gnu/packages/gnome.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
   5 ;;; Copyright © 2014, 2016, 2020 Eric Bavier <bavier@posteo.net>
   6 ;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
   7 ;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
   8 ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
   9 ;;; Copyright © 2015, 2017 Andy Wingo <wingo@igalia.com>
  10 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
  11 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
  12 ;;; Copyright © 2015, 2016, 2017, 2018, 2021 Mark H Weaver <mhw@netris.org>
  13 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
  14 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016, 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
  16 ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
  17 ;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
  18 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  19 ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
  20 ;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
  21 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  22 ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
  23 ;;; Copyright © 2016 David Craven <david@craven.ch>
  24 ;;; Copyright © 2016–2021 Tobias Geerinckx-Rice <me@tobias.gr>
  25 ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
  26 ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
  27 ;;; Copyright © 2017, 2018 nee <nee-git@hidamari.blue>
  28 ;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
  29 ;;; Copyright © 2017 Mohammed Sadiq <sadiq@sadiqpk.org>
  30 ;;; Copyright © 2017, 2020 Brendan Tildesley <mail@brendan.scot>
  31 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
  32 ;;; Copyright © 2018 Jovany Leandro G.C <bit4bit@riseup.net>
  33 ;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com>
  34 ;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
  35 ;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
  36 ;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
  37 ;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
  38 ;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
  39 ;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
  40 ;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
  41 ;;; Copyright © 2019 Jonathan Frederickson <jonathan@terracrypt.net>
  42 ;;; Copyright © 2019, 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  43 ;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
  44 ;;; Copyright © 2019 David Wilson <david@daviwil.com>
  45 ;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  46 ;;; Copyright © 2019, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
  47 ;;; Copyright © 2019, 2020, 2021 Leo Prikler <leo.prikler@student.tugraz.at>
  48 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
  49 ;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
  50 ;;; Copyright © 2020 raingloom <raingloom@riseup.net>
  51 ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  52 ;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
  53 ;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
  54 ;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
  55 ;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
  56 ;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
  57 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
  58 ;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
  59 ;;; Copyright © 2020, 2021 Andy Tai <atai@atai.org>
  60 ;;; Copyright © 2020, 2021 Sébastien Lerique <sl@eauchat.org>
  61 ;;;
  62 ;;; This file is part of GNU Guix.
  63 ;;;
  64 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  65 ;;; under the terms of the GNU General Public License as published by
  66 ;;; the Free Software Foundation; either version 3 of the License, or (at
  67 ;;; your option) any later version.
  68 ;;;
  69 ;;; GNU Guix is distributed in the hope that it will be useful, but
  70 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  71 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  72 ;;; GNU General Public License for more details.
  73 ;;;
  74 ;;; You should have received a copy of the GNU General Public License
  75 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  76
  77 (define-module (gnu packages gnome)
  78   #:use-module (gnu packages)
  79   #:use-module (gnu packages admin)
  80   #:use-module (gnu packages aidc)
  81   #:use-module (gnu packages aspell)
  82   #:use-module (gnu packages autotools)
  83   #:use-module (gnu packages avahi)
  84   #:use-module (gnu packages backup)
  85   #:use-module (gnu packages base)
  86   #:use-module (gnu packages bash)
  87   #:use-module (gnu packages bison)
  88   #:use-module (gnu packages boost)
  89   #:use-module (gnu packages build-tools)
  90   #:use-module (gnu packages calendar)
  91   #:use-module (gnu packages cdrom)
  92   #:use-module (gnu packages check)
  93   #:use-module (gnu packages cmake)
  94   #:use-module (gnu packages compression)
  95   #:use-module (gnu packages crates-io)
  96   #:use-module (gnu packages crates-graphics)
  97   #:use-module (gnu packages crates-gtk)
  98   #:use-module (gnu packages cups)
  99   #:use-module (gnu packages curl)
 100   #:use-module (gnu packages cyrus-sasl)
 101   #:use-module (gnu packages databases)
 102   #:use-module (gnu packages dbm)
 103   #:use-module (gnu packages djvu)
 104   #:use-module (gnu packages dns)
 105   #:use-module (gnu packages docbook)
 106   #:use-module (gnu packages documentation)
 107   #:use-module (gnu packages enchant)
 108   #:use-module (gnu packages flex)
 109   #:use-module (gnu packages fonts)
 110   #:use-module (gnu packages file-systems)
 111   #:use-module (gnu packages fontutils)
 112   #:use-module (gnu packages freedesktop)
 113   #:use-module (gnu packages game-development)
 114   #:use-module (gnu packages gcc)
 115   #:use-module (gnu packages gettext)
 116   #:use-module (gnu packages ghostscript)
 117   #:use-module (gnu packages gimp)
 118   #:use-module (gnu packages gl)
 119   #:use-module (gnu packages glib)
 120   #:use-module (gnu packages gnupg)
 121   #:use-module (gnu packages gnuzilla)
 122   #:use-module (gnu packages geo)
 123   #:use-module (gnu packages gperf)
 124   #:use-module (gnu packages graphviz)
 125   #:use-module (gnu packages gstreamer)
 126   #:use-module (gnu packages gtk)
 127   #:use-module (gnu packages guile)
 128   #:use-module (gnu packages ibus)
 129   #:use-module (gnu packages icu4c)
 130   #:use-module (gnu packages image)
 131   #:use-module (gnu packages imagemagick)
 132   #:use-module (gnu packages inkscape)
 133   #:use-module (gnu packages iso-codes)
 134   #:use-module (gnu packages kerberos)
 135   #:use-module (gnu packages libcanberra)
 136   #:use-module (gnu packages libffi)
 137   #:use-module (gnu packages libunistring)
 138   #:use-module (gnu packages libunwind)
 139   #:use-module (gnu packages libusb)
 140   #:use-module (gnu packages linux)
 141   #:use-module (gnu packages lirc)
 142   #:use-module (gnu packages lua)
 143   #:use-module (gnu packages mail)
 144   #:use-module (gnu packages mp3)
 145   #:use-module (gnu packages multiprecision)
 146   #:use-module (gnu packages music)
 147   #:use-module (gnu packages ncurses)
 148   #:use-module (gnu packages nettle)
 149   #:use-module (gnu packages networking)
 150   #:use-module (gnu packages ninja)
 151   #:use-module (gnu packages node)
 152   #:use-module (gnu packages nss)
 153   #:use-module (gnu packages ocr)
 154   #:use-module (gnu packages openldap)
 155   #:use-module (gnu packages package-management)
 156   #:use-module (gnu packages password-utils)
 157   #:use-module (gnu packages pcre)
 158   #:use-module (gnu packages pdf)
 159   #:use-module (gnu packages perl)
 160   #:use-module (gnu packages photo)
 161   #:use-module (gnu packages php)
 162   #:use-module (gnu packages pkg-config)
 163   #:use-module (gnu packages polkit)
 164   #:use-module (gnu packages popt)
 165   #:use-module (gnu packages pretty-print)
 166   #:use-module (gnu packages protobuf)
 167   #:use-module (gnu packages pulseaudio)
 168   #:use-module (gnu packages python)
 169   #:use-module (gnu packages python-compression)
 170   #:use-module (gnu packages python-crypto)
 171   #:use-module (gnu packages python-web)
 172   #:use-module (gnu packages python-xyz)
 173   #:use-module (gnu packages rdesktop)
 174   #:use-module (gnu packages rdf)
 175   #:use-module (gnu packages readline)
 176   #:use-module (gnu packages ruby)
 177   #:use-module (gnu packages rust)
 178   #:use-module (gnu packages samba)
 179   #:use-module (gnu packages scanner)
 180   #:use-module (gnu packages sdl)
 181   #:use-module (gnu packages search)
 182   #:use-module (gnu packages selinux)
 183   #:use-module (gnu packages slang)
 184   #:use-module (gnu packages speech)
 185   #:use-module (gnu packages spice)
 186   #:use-module (gnu packages sqlite)
 187   #:use-module (gnu packages ssh)
 188   #:use-module (gnu packages swig)
 189   #:use-module (gnu packages tex)
 190   #:use-module (gnu packages time)
 191   #:use-module (gnu packages tls)
 192   #:use-module (gnu packages valgrind)
 193   #:use-module (gnu packages version-control)
 194   #:use-module (gnu packages video)
 195   #:use-module (gnu packages virtualization)
 196   #:use-module (gnu packages vpn)
 197   #:use-module (gnu packages web)
 198   #:use-module (gnu packages webkit)
 199   #:use-module (gnu packages xdisorg)
 200   #:use-module (gnu packages xiph)
 201   #:use-module (gnu packages xml)
 202   #:use-module (gnu packages xorg)
 203   #:use-module (gnu artwork)
 204   #:use-module ((guix build utils) #:select (modify-phases))
 205   #:use-module (guix build-system cargo)
 206   #:use-module (guix build-system cmake)
 207   #:use-module (guix build-system glib-or-gtk)
 208   #:use-module (guix build-system gnu)
 209   #:use-module (guix build-system meson)
 210   #:use-module (guix build-system python)
 211   #:use-module (guix build-system trivial)
 212   #:use-module (guix download)
 213   #:use-module (guix git-download)
 214   #:use-module ((guix licenses) #:prefix license:)
 215   #:use-module (guix packages)
 216   #:use-module (guix utils)
 217   #:use-module (guix gexp)
 218   #:use-module (guix monads)
 219   #:use-module (guix store)
 220   #:use-module (ice-9 match)
 221   #:use-module (srfi srfi-1))
 222
 223 (define-public gupnp-igd
 224   (package
 225     (name "gupnp-igd")
 226     (version "1.2.0")
 227     (source
 228      (origin
 229        (method url-fetch)
 230        (uri
 231         (string-append "mirror://gnome/sources/" name "/"
 232                        (version-major+minor version) "/"
 233                        name "-" version ".tar.xz"))
 234        (sha256
 235         (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
 236     (build-system meson-build-system)
 237     (outputs '("out" "doc"))
 238     (arguments
 239      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
 240        #:configure-flags (list "-Dgtk_doc=true")
 241        #:phases
 242        (modify-phases %standard-phases
 243          (add-after 'unpack 'patch-docbook-xml
 244            (lambda* (#:key inputs #:allow-other-keys)
 245              (with-directory-excursion "doc"
 246                (substitute* "gupnp-igd-docs.xml"
 247                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 248                   (string-append (assoc-ref inputs "docbook-xml-4.1.2")
 249                                  "/xml/dtd/docbook/"))))
 250              #t))
 251          (add-after 'install 'move-doc
 252            (lambda* (#:key outputs #:allow-other-keys)
 253              (let* ((out (assoc-ref outputs "out"))
 254                     (doc (assoc-ref outputs "doc")))
 255                (mkdir-p (string-append doc "/share"))
 256                (rename-file
 257                 (string-append out "/share/gtk-doc")
 258                 (string-append doc "/share/gtk-doc"))
 259                #t))))))
 260     (native-inputs
 261      `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
 262        ("docbook-xsl" ,docbook-xsl)
 263        ("glib:bin" ,glib "bin")
 264        ("gobject-introspection" ,gobject-introspection)
 265        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 266        ("gtk-doc" ,gtk-doc/stable)
 267        ("pkg-config" ,pkg-config)))
 268     (propagated-inputs
 269      `(("glib" ,glib)
 270        ("glib-networking" ,glib-networking)
 271        ("gssdp" ,gssdp)
 272        ("gupnp" ,gupnp)
 273        ("libsoup" ,libsoup)))
 274     (synopsis "UPnP IGD for GNOME")
 275     (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
 276     (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
 277     (license license:lgpl2.1+)))
 278
 279 (define-public brasero
 280   (package
 281     (name "brasero")
 282     (version "3.12.2")
 283     (source (origin
 284              (method url-fetch)
 285              (uri (string-append "mirror://gnome/sources/brasero/"
 286                                  (version-major+minor version) "/"
 287                                  "brasero-" version ".tar.xz"))
 288              (sha256
 289               (base32
 290                "0h90y674j26rvjahb8cc0w79zx477rb6zaqcj26wzvq8kmpic8k8"))))
 291     (build-system glib-or-gtk-build-system)
 292     (arguments
 293      `(#:configure-flags (list
 294                           (string-append "--with-girdir="
 295                                          (assoc-ref %outputs "out")
 296                                          "/share/gir-1.0")
 297                           (string-append "--with-typelibdir="
 298                                          (assoc-ref %outputs "out")
 299                                          "/lib/girepository-1.0"))
 300        #:phases
 301        (modify-phases %standard-phases
 302          (add-before 'configure 'embed-growisofs
 303            (lambda* (#:key inputs #:allow-other-keys)
 304              (substitute* "plugins/growisofs/burn-growisofs.c"
 305                (("\"growisofs") (string-append "\"" (which "growisofs"))))
 306              #t)))))
 307     (propagated-inputs
 308      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 309     (native-inputs
 310      `(("intltool" ,intltool)
 311        ("itstool" ,itstool)
 312        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 313        ("gobject-introspection" ,gobject-introspection)
 314        ("pkg-config" ,pkg-config)))
 315     (inputs
 316      `(("dvd+rw-tools" ,dvd+rw-tools)
 317        ("glib" ,glib)
 318        ("gnome-doc-utils" ,gnome-doc-utils)
 319        ("gstreamer" ,gstreamer)
 320        ("gst-plugins-base" ,gst-plugins-base)
 321        ("gtk+" ,gtk+)
 322        ("libcanberra" ,libcanberra)
 323        ("libice" ,libice)
 324        ("libnotify" ,libnotify)
 325        ("libsm" ,libsm)
 326        ("libxml2" ,libxml2)
 327        ("totem-pl-parser" ,totem-pl-parser)))
 328     (home-page "https://wiki.gnome.org/Apps/Brasero")
 329     (synopsis "CD/DVD burning tool for Gnome")
 330     (description "Brasero is an application to burn CD/DVD for the Gnome
 331 Desktop.  It is designed to be as simple as possible and has some unique
 332 features to enable users to create their discs easily and quickly.")
 333     (license license:gpl2+)))
 334
 335 (define-public libcloudproviders
 336   (package
 337     (name "libcloudproviders")
 338     (version "0.3.1")
 339     (source
 340      (origin
 341        (method url-fetch)
 342        (uri
 343         (string-append "mirror://gnome/sources/" name "/"
 344                        (version-major+minor version) "/"
 345                        name "-" version ".tar.xz"))
 346        (sha256
 347         (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
 348     (build-system meson-build-system)
 349     (outputs '("out" "doc"))
 350     (arguments
 351      `(#:glib-or-gtk? #t     ; To wrap binaries and/or compile schemas
 352        #:configure-flags
 353        (list
 354         "-Denable-gtk-doc=true")
 355        #:phases
 356        (modify-phases %standard-phases
 357          (add-after 'install 'move-doc
 358            (lambda* (#:key outputs #:allow-other-keys)
 359              (let* ((out (assoc-ref outputs "out"))
 360                     (doc (assoc-ref outputs "doc")))
 361                (mkdir-p (string-append doc "/share"))
 362                (rename-file
 363                 (string-append out "/share/gtk-doc")
 364                 (string-append doc "/share/gtk-doc"))
 365                #t))))))
 366     (native-inputs
 367      `(("glib:bin" ,glib "bin")
 368        ("gobject-introspection" ,gobject-introspection)
 369        ("gtk-doc" ,gtk-doc/stable)
 370        ("pkg-config" ,pkg-config)
 371        ("vala" ,vala)))
 372     (inputs
 373      `(("glib" ,glib)
 374        ("glib-networking" ,glib-networking)))
 375     (synopsis "Cloudproviders Integration API")
 376     (description "Libcloudproviders is a DBus API that allows cloud storage sync
 377 clients to expose their services.  Clients such as file managers and desktop
 378 environments can then provide integrated access to the cloud providers
 379 services.")
 380     (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
 381     (license license:lgpl3+)))
 382
 383 (define-public libgrss
 384   (package
 385     (name "libgrss")
 386     (version "0.7.0")
 387     (source
 388      (origin
 389        (method url-fetch)
 390        (uri
 391         (string-append "mirror://gnome/sources/" name "/"
 392                        (version-major+minor version) "/"
 393                        name "-" version ".tar.xz"))
 394        (sha256
 395         (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))))
 396     (build-system glib-or-gtk-build-system)
 397     (outputs '("out" "doc"))
 398     (arguments
 399      `(#:configure-flags
 400        (list
 401         "--enable-gtk-doc"
 402         (string-append "--with-html-dir="
 403                        (assoc-ref %outputs "doc")
 404                        "/share/gtk-doc/html"))
 405        #:phases
 406        (modify-phases %standard-phases
 407          (add-after 'unpack 'patch-docbook-xml
 408            (lambda* (#:key inputs #:allow-other-keys)
 409              (with-directory-excursion "doc/reference"
 410                (substitute* "libgrss-docs.sgml"
 411                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 412                   (string-append (assoc-ref inputs "docbook-xml")
 413                                  "/xml/dtd/docbook/"))))
 414              #t)))))
 415     (native-inputs
 416      `(("docbook-xml" ,docbook-xml-4.1.2)
 417        ("gobject-introspection" ,gobject-introspection)
 418        ("gtk-doc" ,gtk-doc/stable)
 419        ("pkg-config" ,pkg-config)))
 420     (propagated-inputs
 421      `(("glib" ,glib)
 422        ("libsoup" ,libsoup)
 423        ("libxml2" ,libxml2)))
 424     (synopsis "Glib library for feeds")
 425     (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
 426 and other formats.")
 427     (home-page "https://wiki.gnome.org/Projects/Libgrss")
 428     (license license:lgpl3+)))
 429
 430 (define-public gnome-js-common
 431   (package
 432     (name "gnome-js-common")
 433     (version "0.1.2")
 434     (source
 435      (origin
 436        (method url-fetch)
 437        (uri
 438         (string-append "mirror://gnome/sources/" name "/"
 439                        (version-major+minor version) "/"
 440                        name "-" version ".tar.gz"))
 441        (sha256
 442         (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
 443     (build-system glib-or-gtk-build-system)
 444     (arguments
 445      `(#:configure-flags
 446        (list
 447         "--disable-static")))
 448     (native-inputs
 449      `(("gettext" ,gettext-minimal)
 450        ("intltool" ,intltool)
 451        ("pkg-config" ,pkg-config)))
 452     (synopsis "Common JS Modules")
 453     (description "GNOME-JS-Common provides common modules for GNOME JavaScript
 454 bindings.")
 455     (home-page "https://wiki.gnome.org/Projects/Seed")
 456     (license license:gpl3+)))
 457
 458 (define-public seed
 459   (package
 460     (name "seed")
 461     (version "3.8.1")
 462     (source
 463      (origin
 464        (method url-fetch)
 465        (uri
 466         (string-append "mirror://gnome/sources/" name "/"
 467                        (version-major+minor version) "/"
 468                        name "-" version ".tar.xz"))
 469        (sha256
 470         (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
 471        (patches
 472         (search-patches "seed-webkit.patch"))))
 473     (build-system glib-or-gtk-build-system)
 474     (outputs '("out" "doc"))
 475     (arguments
 476      `(#:configure-flags
 477        (list
 478         "--disable-static"
 479         "--enable-xorg-module"
 480         (string-append "--with-html-dir="
 481                        (assoc-ref %outputs "doc")
 482                        "/share/gtk-doc/html")
 483         "--with-webkit=4.0")
 484        #:phases
 485        (modify-phases %standard-phases
 486          ;; The seed-webkit.patch patches configure.ac.
 487          ;; So the source files need to be re-bootstrapped.
 488          (add-after 'unpack 'trigger-bootstrap
 489            (lambda _
 490              (for-each delete-file
 491                        (list
 492                         "configure"
 493                         "Makefile.in"))
 494              #t))
 495          (add-after 'unpack 'patch-tests
 496            (lambda* (#:key outputs #:allow-other-keys)
 497              (substitute* (find-files "." "\\.js$")
 498               (("#!/usr/bin/env seed")
 499                (string-append "#!" (getcwd) "/src/seed")))
 500              #t))
 501          (add-before 'build 'patch-docbook-xml
 502            (lambda* (#:key inputs #:allow-other-keys)
 503              (with-directory-excursion "doc"
 504                (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
 505                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 506                   (string-append (assoc-ref inputs "docbook-xml")
 507                                  "/xml/dtd/docbook/"))))
 508              #t)))))
 509     (native-inputs
 510      `(("autoconf" ,autoconf)
 511        ("automake" ,automake)
 512        ("docbook-xml" ,docbook-xml-4.1.2)
 513        ("gettext" ,gettext-minimal)
 514        ("gobject-introspection" ,gobject-introspection)
 515        ("gtk-doc" ,gtk-doc/stable)
 516        ("intltool" ,intltool)
 517        ("libtool" ,libtool)
 518        ("pkg-config" ,pkg-config)))
 519     (inputs
 520      `(("cairo" ,cairo)
 521        ("dbus" ,dbus)
 522        ("dbus-glib" ,dbus-glib)
 523        ("gnome-js-common" ,gnome-js-common)
 524        ("gtk+" ,gtk+)
 525        ("gtk+-2" ,gtk+-2)
 526        ("libffi" ,libffi)
 527        ("libxml2" ,libxml2)
 528        ("mpfr" ,mpfr)
 529        ("readline" ,readline)
 530        ("sqlite" ,sqlite)
 531        ("xscrnsaver" ,libxscrnsaver)))
 532     (propagated-inputs
 533      `(("glib" ,glib)
 534        ("webkit" ,webkitgtk)))
 535     (synopsis "GObject JavaScriptCore bridge")
 536     (description "Seed is a library and interpreter, dynamically bridging
 537 (through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
 538 GNOME platform.  It serves as something which enables you to write standalone
 539 applications in JavaScript, or easily enable your application to be extensible
 540 in JavaScript.")
 541     (home-page "https://wiki.gnome.org/Projects/Seed")
 542     (license license:lgpl2.0+)))
 543
 544 (define-public libdmapsharing
 545   (package
 546     (name "libdmapsharing")
 547     (version "3.9.10")
 548     (source
 549      (origin
 550        (method url-fetch)
 551        (uri
 552         (string-append "https://www.flyn.org/projects/"
 553                        name "/" name "-" version ".tar.gz"))
 554        (sha256
 555         (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
 556     (build-system glib-or-gtk-build-system)
 557     (outputs '("out" "doc"))
 558     (arguments
 559      `(#:tests? #f                      ; Tests require networking.
 560        #:configure-flags
 561        (list
 562         "--disable-static"
 563         (string-append "--with-html-dir="
 564                        (assoc-ref %outputs "doc")
 565                        "/share/gtk-doc/html"))
 566        #:phases
 567        (modify-phases %standard-phases
 568          (add-after 'unpack 'patch-docbook-xml
 569            (lambda* (#:key inputs #:allow-other-keys)
 570              (with-directory-excursion "doc"
 571                (substitute* "libdmapsharing-4.0-docs.xml"
 572                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 573                   (string-append (assoc-ref inputs "docbook-xml")
 574                                  "/xml/dtd/docbook/"))))
 575              #t)))))
 576     (native-inputs
 577      `(("check" ,check)
 578        ("docbook-xml" ,docbook-xml-4.3)
 579        ("gobject-introspection" ,gobject-introspection)
 580        ("pedansee" ,pedansee)
 581        ("pkg-config" ,pkg-config)
 582        ("vala" ,vala)))
 583     (inputs
 584      `(("avahi" ,avahi)
 585        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 586        ("gee" ,libgee)
 587        ("gst-plugins-base" ,gst-plugins-base)
 588        ("gtk+" ,gtk+)))
 589     (propagated-inputs
 590      `(("glib" ,glib)
 591        ("glib-networking" ,glib-networking)
 592        ("gstreamer" ,gstreamer)
 593        ("libsoup" ,libsoup)))
 594     (synopsis "Media management library")
 595     (description "Libdmapsharing is a library which allows programs to access,
 596 share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
 597 It is written in C using GObject and libsoup.")
 598     (home-page "https://launchpad.net/gtx")
 599     (license license:lgpl2.1+)))
 600
 601 (define-public gtx
 602   (package
 603     (name "gtx")
 604     (version "0.2.2")
 605     (source
 606      (origin
 607        (method url-fetch)
 608        (uri
 609         (string-append "https://launchpad.net/gtx/trunk/"
 610                        version "/+download/gtx-" version ".tar.gz"))
 611        (sha256
 612         (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
 613     (build-system glib-or-gtk-build-system)
 614     (outputs '("out" "doc"))
 615     (arguments
 616      `(#:configure-flags
 617        (list
 618         "--disable-static"
 619         "--enable-gtk-doc"
 620         (string-append "--with-html-dir="
 621                        (assoc-ref %outputs "doc")
 622                        "/share/gtk-doc/html"))))
 623     (native-inputs
 624      `(("gobject-introspection" ,gobject-introspection)
 625        ("gtk-doc" ,gtk-doc/stable)
 626        ("pkg-config" ,pkg-config)))
 627     (propagated-inputs
 628      `(("glib" ,glib)))
 629     (synopsis "GLib Testing Framework")
 630     (description "GTX is a small collection of convenience functions intended to
 631 enhance the GLib testing framework.  With specific emphasis on easing the pain
 632 of writing test cases for asynchronous interactions.")
 633     (home-page "https://launchpad.net/gtx")
 634     (license license:lgpl2.1+)))
 635
 636 (define-public dee
 637   (package
 638     (name "dee")
 639     (version "1.2.7")
 640     (source
 641      (origin
 642        (method url-fetch)
 643        (uri
 644         (string-append "https://launchpad.net/dee/1.0/"
 645                        version "/+download/dee-" version ".tar.gz"))
 646        (sha256
 647         (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
 648        (patches
 649         (search-patches "dee-vapi.patch"))))
 650     (build-system glib-or-gtk-build-system)
 651     (outputs '("out" "doc"))
 652     (arguments
 653      `(#:configure-flags
 654        (list
 655         "--disable-maintainer-flags"
 656         (string-append "--with-pygi-overrides-dir="
 657                        (assoc-ref %outputs "out")
 658                        "/lib/python"
 659                        ,(version-major+minor
 660                          (package-version python))
 661                        "/site-packages/gi/overrides")
 662         (string-append "--with-html-dir="
 663                        (assoc-ref %outputs "doc")
 664                        "/share/gtk-doc/html"))
 665        #:phases
 666        (modify-phases %standard-phases
 667          (add-after 'unpack 'patch-docbook-xml
 668            (lambda* (#:key inputs #:allow-other-keys)
 669              (with-directory-excursion "doc/reference/dee-1.0"
 670                (substitute* "dee-1.0-docs.sgml"
 671                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 672                   (string-append (assoc-ref inputs "docbook-xml")
 673                                  "/xml/dtd/docbook/"))))
 674              #t))
 675          (add-after 'patch-docbook-xml 'disable-failing-tests
 676            (lambda _
 677              (substitute* "tests/test-icu.c"
 678                (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
 679                 "")
 680                (("setup, test_ascii_folder, teardown\\);")
 681                 ""))
 682              #t))
 683          (add-before 'check 'pre-check
 684            (lambda _
 685              ;; Tests require a running dbus-daemon.
 686              (system "dbus-daemon &")
 687              ;; For missing '/etc/machine-id'.
 688              (setenv "DBUS_FATAL_WARNINGS" "0")
 689              #t)))))
 690     (native-inputs
 691      `(("dbus" ,dbus)
 692        ("dbus-test-runner" ,dbus-test-runner)
 693        ("docbook-xml" ,docbook-xml-4.3)
 694        ("gobject-introspection" ,gobject-introspection)
 695        ("gtk-doc" ,gtk-doc/stable)
 696        ;; Would only be required by configure flag "--enable-extended-tests".
 697        ;("gtx" ,gtx)
 698        ("pkg-config" ,pkg-config)
 699        ("pygobject" ,python-pygobject)
 700        ("python" ,python-wrapper)
 701        ("vala" ,vala)))
 702     (inputs
 703      `(("icu" ,icu4c)))
 704     (propagated-inputs
 705      `(("glib" ,glib)))
 706     (synopsis "Model to synchronize multiple instances over DBus")
 707     (description "Dee is a library that uses DBus to provide objects allowing
 708 you to create Model-View-Controller type programs across DBus.  It also consists
 709 of utility objects which extend DBus allowing for peer-to-peer discoverability
 710 of known objects without needing a central registrar.")
 711     (home-page "https://launchpad.net/dee")
 712     (license
 713      ;; Dual-licensed
 714      (list
 715       license:lgpl3+
 716       license:gpl3+))))
 717
 718 (define-public zeitgeist
 719   (package
 720     (name "zeitgeist")
 721     (version "1.0.3")
 722     (source
 723      (origin
 724        (method git-fetch)
 725        (uri
 726         (git-reference
 727          (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
 728          (commit
 729           (string-append "v" version))))
 730        (file-name
 731         (git-file-name name version))
 732        (sha256
 733         (base32 "0y6fyzxl5np4yskcxibd0p03h619w9ir907nhf40h02y0pk1kgkp"))))
 734     (build-system glib-or-gtk-build-system)
 735     (arguments
 736      `(#:configure-flags
 737        (list
 738         "--enable-explain-queries"
 739         "--enable-fts"
 740         "--enable-docs")
 741        #:phases
 742        (modify-phases %standard-phases
 743          (add-after 'unpack 'patch-docbook-xml
 744            (lambda* (#:key inputs #:allow-other-keys)
 745              (with-directory-excursion "doc/libzeitgeist"
 746                (substitute* "zeitgeist-gtkdoc-index.sgml"
 747                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 748                   (string-append (assoc-ref inputs "docbook-xml")
 749                                  "/xml/dtd/docbook/"))))
 750              #t))
 751          (add-after 'patch-docbook-xml 'disable-failing-tests
 752            (lambda _
 753              (substitute* "test/direct/Makefile.am"
 754                (("      log-test ")
 755                 ""))
 756              (substitute* "test/c/Makefile.am"
 757                (("      test-log ")
 758                 ""))
 759              #t))
 760          (add-before 'bootstrap 'remove-autogen-script
 761            (lambda _
 762              ;; To honor `autoreconf -vif` by build-system.
 763              (delete-file "autogen.sh")
 764              #t)))))
 765     (native-inputs
 766      `(("autoconf" ,autoconf)
 767        ("automake" ,automake)
 768        ("docbook-xml" ,docbook-xml-4.3)
 769        ("gettext" ,gettext-minimal)
 770        ("gobject-introspection" ,gobject-introspection)
 771        ("gtk-doc" ,gtk-doc/stable)
 772        ("libtool" ,libtool)
 773        ("pkg-config" ,pkg-config)
 774        ("vala" ,vala)
 775        ("xorg-server-for-tests" ,xorg-server-for-tests)))
 776     (inputs
 777      `(("dee-icu" ,dee)
 778        ("gtk+" ,gtk+)
 779        ("json-glib" ,json-glib)
 780        ("sqlite" ,sqlite)
 781        ("telepathy-glib" ,telepathy-glib)
 782        ("python" ,python-wrapper)
 783        ("python-rdflib" ,python-rdflib)
 784        ("xapian-config" ,xapian)))
 785     (propagated-inputs
 786      `(("glib" ,glib)))
 787     (synopsis "Desktop Activity Logging")
 788     (description "Zeitgeist is a service which logs the users’s activities and
 789 events, anywhere from files opened to websites visited and conversations.  It
 790 makes this information readily available for other applications to use.  It is
 791 able to establish relationships between items based on similarity and usage
 792 patterns.")
 793     (home-page "https://zeitgeist.freedesktop.org/")
 794     (license
 795      ;; Dual-licensed
 796      (list
 797       license:lgpl2.1+
 798       license:gpl2+))))
 799
 800 (define-public gnome-recipes
 801   (package
 802     (name "gnome-recipes")
 803     (version "2.0.4")
 804     (source (origin
 805               (method git-fetch)
 806               (uri (git-reference
 807                     (url "https://gitlab.gnome.org/GNOME/recipes")
 808                     (commit version)))
 809               (file-name (git-file-name name version))
 810               (sha256
 811                (base32
 812                 "1h049mzqnlcfqwrhmzbq3pzzdglvy2bn9fj1p8wql7a60pn8sr32"))))
 813     (build-system meson-build-system)
 814     (arguments
 815      `(#:glib-or-gtk? #t
 816        #:phases
 817        (modify-phases %standard-phases
 818          (add-after 'unpack 'skip-gtk-update-icon-cache
 819            (lambda _
 820              (substitute* "meson_post_install.py"
 821                (("gtk-update-icon-cache") (which "true")))
 822              #t))
 823          (add-after 'unpack 'unpack-libgd
 824            (lambda* (#:key inputs #:allow-other-keys)
 825              (let ((libgd (assoc-ref inputs "libgd")))
 826                (copy-recursively libgd "subprojects/libgd")
 827                #t))))))
 828     (inputs
 829      `(("glib" ,glib)
 830        ("gnome-autoar" ,gnome-autoar)
 831        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 832        ("gspell" ,gspell)
 833        ("gtk+" ,gtk+)
 834        ("json-glib" ,json-glib)
 835        ("libcanberra" ,libcanberra)
 836        ("libsoup" ,libsoup)
 837        ("rest" ,rest)))
 838     (native-inputs
 839      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
 840        ("gettext" ,gettext-minimal)
 841        ("glib:bin" ,glib "bin")
 842        ("itstool" ,itstool)
 843        ("libgd"
 844         ,(origin
 845            (method git-fetch)
 846            (uri (git-reference
 847                  (url "https://gitlab.gnome.org/GNOME/libgd")
 848                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
 849            (file-name (git-file-name "libgd" version))
 850            (sha256
 851             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
 852        ("pkg-config" ,pkg-config)))
 853     (home-page "https://wiki.gnome.org/Apps/Recipes")
 854     (synopsis "Discover recipes for preparing food")
 855     (description "GNOME Recipes helps you discover what to cook today,
 856 tomorrow, the rest of the week and for special occasions.")
 857     (license license:gpl3+)))
 858
 859 (define-public gnome-photos
 860   (package
 861     (name "gnome-photos")
 862     (version "3.34.2")
 863     (source
 864      (origin
 865        (method url-fetch)
 866        (uri
 867         (string-append "mirror://gnome/sources/" name "/"
 868                        (version-major+minor version) "/"
 869                        name "-" version ".tar.xz"))
 870        (sha256
 871         (base32
 872          "06ml5sf8xhpan410msqz085hmfc7082d368pb82yq646y9pcfn9w"))))
 873     (build-system meson-build-system)
 874     (arguments
 875      `(#:glib-or-gtk? #t
 876        #:configure-flags
 877        (list "-Ddogtail=false"     ; Not available
 878              ;; Required for RUNPATH validation.
 879              (string-append "-Dc_link_args=-Wl,-rpath="
 880                             (assoc-ref %outputs "out") "/lib/gnome-photos"))
 881        #:phases
 882        (modify-phases %standard-phases
 883          (add-after 'install 'wrap-gnome-photos
 884            (lambda* (#:key inputs outputs #:allow-other-keys)
 885              (let*
 886                  ((out (assoc-ref outputs "out")))
 887                (wrap-program (string-append out "/bin/gnome-photos")
 888                  `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))))
 889              #t)))))
 890     (native-inputs
 891      `(("dbus" ,dbus)
 892        ("desktop-file-utils" ,desktop-file-utils)
 893        ("gettext" ,gettext-minimal)
 894        ("git" ,git-minimal)
 895        ("glib:bin" ,glib "bin")
 896        ("gobject-introspection" ,gobject-introspection)
 897        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 898        ("gtk+:bin" ,gtk+ "bin")
 899        ("itstool" ,itstool)
 900        ("pkg-config" ,pkg-config)))
 901     (inputs
 902      `(("babl" ,babl)
 903        ("cairo" ,cairo)
 904        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 905        ("gegl" ,gegl)
 906        ("geocode-glib" ,geocode-glib)
 907        ("gexiv2" ,gexiv2)
 908        ("gnome-online-accounts" ,gnome-online-accounts)
 909        ("gnome-online-miners" ,gnome-online-miners)
 910        ("grilo" ,grilo)
 911        ("grilo-plugins" ,grilo-plugins)
 912        ("gtk+" ,gtk+)
 913        ("libdazzle" ,libdazzle)
 914        ("libgdata" ,libgdata)
 915        ("libgfbgraph" ,gfbgraph)
 916        ("libjpeg" ,libjpeg-turbo)
 917        ("libpng" ,libpng)
 918        ("librest" ,rest)
 919        ("pygobject" ,python-pygobject)
 920        ("tracker" ,tracker)
 921        ("tracker-miners" ,tracker-miners)))
 922     (synopsis "Access, organize and share your photos on GNOME desktop")
 923     (description "GNOME Photos is a simple and elegant replacement for using a
 924 file manager to deal with photos.  Enhance, crop and edit in a snap.  Seamless
 925 cloud integration is offered through GNOME Online Accounts.")
 926     (home-page "https://wiki.gnome.org/Apps/Photos")
 927     (license license:gpl3+)))
 928
 929 (define-public gnome-music
 930   (package
 931     (name "gnome-music")
 932     (version "3.34.5")
 933     (source
 934      (origin
 935        (method url-fetch)
 936        (uri
 937         (string-append "mirror://gnome/sources/" name "/"
 938                        (version-major+minor version) "/"
 939                        name "-" version ".tar.xz"))
 940        (sha256
 941         (base32
 942          "1r5sfw5cbd6qqh27lzhblazir0bfi3k7nqppw66qw990isqm5psy"))))
 943     (build-system meson-build-system)
 944     (arguments
 945      `(#:glib-or-gtk? #t
 946        #:phases
 947        (modify-phases %standard-phases
 948          (add-after 'install 'wrap-gnome-music
 949            (lambda* (#:key inputs outputs #:allow-other-keys)
 950              (let*
 951                  ((out (assoc-ref outputs "out"))
 952                   (pylib (string-append out "/lib/python"
 953                                         ,(version-major+minor
 954                                           (package-version python))
 955                                         "/site-packages")))
 956                (wrap-program (string-append out "/bin/gnome-music")
 957                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
 958                  `("GST_PLUGIN_SYSTEM_PATH" = (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
 959                  `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))
 960                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))))
 961              #t)))))
 962     (native-inputs
 963      `(("desktop-file-utils" ,desktop-file-utils)
 964        ("gettext" ,gettext-minimal)
 965        ("glib:bin" ,glib "bin")
 966        ("gobject-introspection" ,gobject-introspection)
 967        ("gtk+:bin" ,gtk+ "bin")
 968        ("itstools" ,itstool)
 969        ("pkg-config" ,pkg-config)))
 970     (inputs
 971      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 972        ("grilo" ,grilo)
 973        ("grilo-plugins" ,grilo-plugins)
 974        ("gst-plugins-base" ,gst-plugins-base)
 975        ("gstreamer" ,gstreamer)
 976        ("gvfs" ,gvfs)
 977        ("libdazzle" ,libdazzle)
 978        ("libmediaart" ,libmediaart)
 979        ("libsoup" ,libsoup)
 980        ("pycairo" ,python-pycairo)
 981        ("pygobject" ,python-pygobject)
 982        ("tracker" ,tracker)
 983        ("tracker-miners" ,tracker-miners)))
 984     (synopsis "Simple music player for GNOME desktop")
 985     (description "GNOME Music is the new GNOME music playing application that
 986 aims to combine an elegant and immersive browsing experience with simple
 987 and straightforward controls.")
 988     (home-page "https://wiki.gnome.org/Apps/Music")
 989     (license license:gpl2+)))
 990
 991 (define-public portablexdr
 992   (package
 993     (name "portablexdr")
 994     (version "4.9.1")
 995     (source
 996      (origin
 997        (method url-fetch)
 998        (uri
 999         (string-append "https://people.redhat.com/~rjones/" name "/files/"
1000                        name "-" version ".tar.gz"))
1001        (sha256
1002         (base32
1003          "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
1004     (build-system gnu-build-system)
1005     (synopsis "External Data Representation Library")
1006     (description "PortableXDR is an implementation of External Data
1007 Representation (XDR) Library.  It is a standard data serialization format, for
1008 uses such as computer network protocols.  It allows data to be transferred
1009 between different kinds of computer systems.")
1010     (home-page "https://people.redhat.com/~rjones/portablexdr/")
1011     (license
1012      (list
1013       license:gpl2+
1014       license:lgpl2.1+))))
1015
1016 (define-public tepl
1017   (package
1018     (name "tepl")
1019     (version "4.4.0")
1020     (source
1021      (origin
1022        (method url-fetch)
1023        (uri
1024         (string-append "mirror://gnome/sources/" name "/"
1025                        (version-major+minor version) "/"
1026                        name "-" version ".tar.xz"))
1027        (sha256
1028         (base32
1029          "0mm2z849hnni7597an05mrv0dckrxjngpf2xfa0g5s17i8x6gxp6"))))
1030     (build-system glib-or-gtk-build-system)
1031     (arguments
1032      `(#:tests? #f))                    ; FIX-ME: Requires gvfs
1033     (native-inputs
1034      `(("gobject-introspection" ,gobject-introspection)
1035        ("pkg-config" ,pkg-config)))
1036     (inputs
1037      `(("amtk" ,amtk)
1038        ("glib" ,glib)
1039        ("gtk+" ,gtk+)
1040        ("gtksourceview" ,gtksourceview)
1041        ("libxml2" ,libxml2)
1042        ("uchardet" ,uchardet)))
1043     (synopsis "Text editor product line")
1044     (description "Tepl is a library that eases the development of
1045 GtkSourceView-based text editors and IDEs.")
1046     (home-page "https://wiki.gnome.org/Projects/Tepl")
1047     (license license:lgpl2.1+)))
1048
1049 (define-public krb5-auth-dialog
1050   (package
1051     (name "krb5-auth-dialog")
1052     (version "3.26.1")
1053     (source
1054      (origin
1055        (method url-fetch)
1056        (uri
1057         (string-append "mirror://gnome/sources/" name "/"
1058                        (version-major+minor version) "/"
1059                        name "-" version ".tar.xz"))
1060        (sha256
1061         (base32
1062          "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1063     (build-system glib-or-gtk-build-system)
1064     (native-inputs
1065      `(("intltool" ,intltool)
1066        ("itstool" ,itstool)
1067        ("libxml2" ,libxml2)
1068        ("pkg-config" ,pkg-config)
1069        ("python-wrapper" ,python-wrapper)))
1070     (inputs
1071      `(("glib" ,glib)
1072        ("gtk+" ,gtk+)
1073        ("libnotify" ,libnotify)
1074        ("mit-krb5" ,mit-krb5)
1075        ("network-manager" ,network-manager)))
1076     (synopsis "Popup dialogs for Kerberos 5")
1077     (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1078 tickets, and pops up a dialog when they are about to expire.")
1079     (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1080     (license license:gpl2+)))
1081
1082 (define-public notification-daemon
1083   (package
1084     (name "notification-daemon")
1085     (version "3.20.0")
1086     (source
1087      (origin
1088        (method url-fetch)
1089        (uri
1090         (string-append "mirror://gnome/sources/" name "/"
1091                        (version-major+minor version) "/"
1092                        name "-" version ".tar.xz"))
1093        (sha256
1094         (base32
1095          "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1096     (build-system glib-or-gtk-build-system)
1097     (native-inputs
1098      `(("intltool" ,intltool)
1099        ("pkg-config" ,pkg-config)))
1100     (inputs
1101      `(("glib" ,glib)
1102        ("gtk+" ,gtk+)
1103        ("x11" ,libx11)))
1104     (synopsis "Notification Daemon for GNOME Desktop")
1105     (description "Notification-Daemon is the server implementation of the
1106 freedesktop.org desktop notification specification.")
1107     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1108     (license license:gpl2+)))
1109
1110 (define-public mm-common
1111   (package
1112     (name "mm-common")
1113     (version "1.0.2")
1114     (source (origin
1115               (method url-fetch)
1116               (uri (string-append "mirror://gnome/sources/mm-common/"
1117                                   (version-major+minor version) "/"
1118                                   "mm-common-" version ".tar.xz"))
1119               (sha256
1120                (base32
1121                 "07b4s5ckcz9q5gwx8vchim19mhfgl8wysqwi30pndks3m4zrzad2"))))
1122     (build-system meson-build-system)
1123     (arguments
1124      `(#:phases
1125        (modify-phases %standard-phases
1126          (add-after 'unpack 'patch
1127            (lambda* (#:key inputs #:allow-other-keys)
1128              (substitute* "util/mm-common-prepare.in"
1129               (("ln") (string-append (assoc-ref inputs "coreutils")
1130                                      "/bin/ln"))
1131               (("cp") (string-append (assoc-ref inputs "coreutils")
1132                                      "/bin/cp"))
1133               (("sed") (string-append (assoc-ref inputs "sed")
1134                                       "/bin/sed"))
1135               (("cat") (string-append (assoc-ref inputs "coreutils")
1136                                       "/bin/cat")))
1137              #t)))))
1138     (native-inputs
1139      `(("coreutils" ,coreutils)
1140        ("gettext" ,gettext-minimal)
1141        ("pkg-config" ,pkg-config)
1142        ("sed" ,sed)))
1143     (inputs
1144      `(("python" ,python)))
1145     (synopsis "Module of GNOME C++ bindings")
1146     (description "The mm-common module provides the build infrastructure
1147 and utilities shared among the GNOME C++ binding libraries.  Release
1148 archives of mm-common include the Doxygen tag file for the GNU C++
1149 Library reference documentation.")
1150     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1151     (license license:gpl2+)))
1152
1153 (define-public phodav
1154   (package
1155    (name "phodav")
1156    (version "2.5")
1157    (source (origin
1158             (method url-fetch)
1159             (uri (string-append "mirror://gnome/sources/" name "/"
1160                                 (version-major+minor version) "/"
1161                                 name "-" version ".tar.xz"))
1162             (sha256
1163              (base32
1164               "045rdzf8isqmzix12lkz6z073b5qvcqq6ad028advm5gf36skw3i"))))
1165    (build-system meson-build-system)
1166    (arguments
1167     `(#:phases
1168       (modify-phases %standard-phases
1169         (add-before 'check 'start-virtual-dir-server
1170           ;; The same server when started by tests/virtual-dir returns an
1171           ;; unexpected status (4 instead of 200) and fails a test.  It is
1172           ;; unclear why starting it manually here makes it pass.
1173           (lambda _
1174             (system "tests/virtual-dir-server &")
1175             #t)))))
1176    (native-inputs
1177     `(("docbook-xml" ,docbook-xml-4.3)
1178       ("gettext" ,gettext-minimal)
1179       ("glib:bin" ,glib "bin")
1180       ("gtk-doc" ,gtk-doc/stable)
1181       ("pkg-config" ,pkg-config)))
1182    (inputs
1183     `(("avahi" ,avahi)
1184       ("libgudev" ,libgudev)
1185       ("libsoup" ,libsoup)))
1186    (synopsis "WebDav server implementation using libsoup")
1187    (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1188 but it is generic enough to be reused in other projects,
1189 in particular in the GNOME desktop.")
1190    (home-page "https://wiki.gnome.org/phodav")
1191    (license license:lgpl2.1+)))
1192
1193 (define-public gnome-color-manager
1194   (package
1195    (name "gnome-color-manager")
1196    (version "3.32.0")
1197    (source (origin
1198             (method url-fetch)
1199             (uri (string-append "mirror://gnome/sources/" name "/"
1200                                 (version-major+minor version) "/"
1201                                 name "-" version ".tar.xz"))
1202             (sha256
1203              (base32
1204               "1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w"))))
1205    (build-system meson-build-system)
1206    (arguments
1207     `(#:glib-or-gtk? #t
1208       #:phases
1209        (modify-phases %standard-phases
1210         (add-before
1211          'check 'pre-check
1212          (lambda _
1213            ;; Tests require a running X server.
1214            (system "Xvfb :1 &")
1215            (setenv "DISPLAY" ":1")
1216            #t)))))
1217    (native-inputs
1218     `(("desktop-file-utils" ,desktop-file-utils)
1219       ("gettext" ,gettext-minimal)
1220       ("glib:bin" ,glib "bin")
1221       ("gtk+:bin" ,gtk+ "bin")
1222       ("itstool" ,itstool)
1223       ("pkg-config" ,pkg-config)
1224       ("xorg-server" ,xorg-server-for-tests)))
1225    (inputs
1226     `(("adwaita-icon-theme" ,adwaita-icon-theme)
1227       ("appstream-glib" ,appstream-glib)
1228       ("colord-gtk" ,colord-gtk)
1229       ("exiv2" ,exiv2)
1230       ("gnome-desktop" ,gnome-desktop)
1231       ("libcanberra" ,libcanberra)
1232       ("libexif" ,libexif)
1233       ("libtiff" ,libtiff)
1234       ("libxrandr" ,libxrandr)
1235       ("libxtst" ,libxtst)
1236       ("libxxf86vm" ,libxxf86vm)
1237       ("vte" ,vte)
1238       ("xorgproto" ,xorgproto)))
1239    (synopsis "Color profile manager for the GNOME desktop")
1240    (description "GNOME Color Manager is a session framework that makes
1241 it easy to manage, install and generate color profiles
1242 in the GNOME desktop.")
1243    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
1244    (license license:gpl2+)))
1245
1246 (define-public gnome-online-miners
1247   (package
1248     (name "gnome-online-miners")
1249     (version "3.34.0")
1250     (source (origin
1251               (method url-fetch)
1252               (uri (string-append "mirror://gnome/sources/" name "/"
1253                                   (version-major+minor version) "/"
1254                                   name "-" version ".tar.xz"))
1255               (sha256
1256                (base32
1257                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))))
1258     (build-system glib-or-gtk-build-system)
1259     (native-inputs
1260      `(("gettext" ,gettext-minimal)
1261        ("glib:bin" ,glib "bin")
1262        ("gobject-introspection" ,gobject-introspection)
1263        ("gtk+:bin" ,gtk+ "bin")
1264        ("pkg-config" ,pkg-config)))
1265     (inputs
1266      `(("gnome-online-accounts" ,gnome-online-accounts)
1267        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1268        ("grilo" ,grilo)
1269        ("libgdata" ,libgdata)
1270        ("libgfbgraph" ,gfbgraph)
1271        ("libzapojit" ,libzapojit)
1272        ("rest" ,rest)
1273        ("tracker" ,tracker)))
1274     (synopsis "Web Crawlers for GNOME")
1275     (description "GNOME Online Miners provides a set of crawlers that
1276 go through your online content and index them locally in Tracker.
1277 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1278     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
1279     (license license:gpl2+)))
1280
1281 (define-public gssdp
1282   (package
1283    (name "gssdp")
1284    (version "1.2.3")
1285    (source (origin
1286             (method url-fetch)
1287             (uri (string-append "mirror://gnome/sources/" name "/"
1288                                 (version-major+minor version) "/"
1289                                 name "-" version ".tar.xz"))
1290             (sha256
1291              (base32
1292               "1s57i8a8wnnxnsfl27cq4503dkdlzbrhry5zpg23sfqfffvdqqx2"))))
1293    (build-system meson-build-system)
1294    (native-inputs
1295     `(("gettext" ,gettext-minimal)
1296       ("glib:bin" ,glib "bin")
1297       ("gobject-introspection" ,gobject-introspection)
1298       ("gtk-doc" ,gtk-doc/stable)
1299       ("pkg-config" ,pkg-config)
1300       ("vala" ,vala)))
1301    (inputs
1302     `(("gtk+" ,gtk+)
1303       ("libsoup" ,libsoup)))
1304    (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1305 Protocol} for GNOME")
1306    (description "This package provides a library to handle resource discovery
1307 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1308 a debugging tool, @command{gssdp-device-sniffer}.")
1309    (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1310    (license license:lgpl2.0+)))
1311
1312 (define-public gupnp
1313   (package
1314    (name "gupnp")
1315    (version "1.2.4")
1316    (source (origin
1317             (method url-fetch)
1318             (uri (string-append "mirror://gnome/sources/" name "/"
1319                                 (version-major+minor version) "/"
1320                                 name "-" version ".tar.xz"))
1321             (sha256
1322              (base32
1323               "1ld7mrpdv9cszmfzh7i19qx4li25j3fr7x1jp38l8phzlmz3187p"))))
1324    (build-system meson-build-system)
1325    (native-inputs
1326     `(("gettext" ,gettext-minimal)
1327       ("glib:bin" ,glib "bin")
1328       ("gobject-introspection" ,gobject-introspection)
1329       ("gtk-doc" ,gtk-doc/stable)
1330       ("pkg-config" ,pkg-config)
1331       ("vala" ,vala)))
1332    (inputs
1333     `(("gssdp" ,gssdp)
1334       ("gtk+" ,gtk+)
1335       ("libsoup" ,libsoup)))
1336    (synopsis "PnP API for GNOME")
1337    (description "This package provides GUPnP, an object-oriented framework
1338 for creating UPnP devices and control points, written in C using
1339 @code{GObject} and @code{libsoup}.")
1340    (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1341    (license license:lgpl2.0+)))
1342
1343 (define-public gupnp-dlna
1344   (package
1345    (name "gupnp-dlna")
1346    (version "0.10.5")
1347    (source (origin
1348             (method url-fetch)
1349             (uri (string-append "mirror://gnome/sources/" name "/"
1350                                 (version-major+minor version) "/"
1351                                 name "-" version ".tar.xz"))
1352             (sha256
1353              (base32
1354               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1355    (build-system gnu-build-system)
1356    (native-inputs
1357     `(("gettext" ,gettext-minimal)
1358       ("glib:bin" ,glib "bin")
1359       ("gobject-introspection" ,gobject-introspection)
1360       ("gtk-doc" ,gtk-doc/stable)
1361       ("libxml" ,libxml2)
1362       ("pkg-config" ,pkg-config)
1363       ("vala" ,vala)))
1364    (inputs
1365     `(("gstreamer" ,gstreamer)
1366       ("gupnp" ,gupnp)))
1367    (propagated-inputs
1368     `(("gst-plugins-base" ,gst-plugins-base)
1369       ("gst-plugins-good" ,gst-plugins-good)))
1370    (synopsis "GUPnP DLNA for GNOME")
1371    (description "This package provides a small utility library to
1372 support DLNA-related tasks such as media profile guessing, transcoding to a
1373 given profile, etc.  DLNA is a subset of UPnP A/V.")
1374    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1375    (license license:lgpl2.0+)))
1376
1377 (define-public gupnp-av
1378   (package
1379    (name "gupnp-av")
1380    (version "0.12.11")
1381    (source (origin
1382             (method url-fetch)
1383             (uri (string-append "mirror://gnome/sources/" name "/"
1384                                 (version-major+minor version) "/"
1385                                 name "-" version ".tar.xz"))
1386             (sha256
1387              (base32
1388               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1389    (build-system gnu-build-system)
1390    (native-inputs
1391     `(("gettext" ,gettext-minimal)
1392       ("glib:bin" ,glib "bin")
1393       ("gobject-introspection" ,gobject-introspection)
1394       ("gtk-doc" ,gtk-doc/stable)
1395       ("libxml" ,libxml2)
1396       ("pkg-config" ,pkg-config)))
1397    (inputs
1398     `(("gtk+" ,gtk+)
1399       ("gupnp" ,gupnp)))
1400    (synopsis "GUPnP A/V for GNOME")
1401    (description "This package provides a small library for handling
1402 and implementation of UPnP A/V profiles.")
1403    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1404    (license license:lgpl2.0+)))
1405
1406 (define-public libmediaart
1407   (package
1408     (name "libmediaart")
1409     (version "1.9.4")
1410     (source (origin
1411               (method url-fetch)
1412               (uri (string-append "mirror://gnome/sources/" name "/"
1413                                   (version-major+minor version) "/"
1414                                   name "-" version ".tar.xz"))
1415               (sha256
1416                (base32
1417                 "0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
1418     (build-system gnu-build-system)
1419     (native-inputs
1420      `(("glib:bin" ,glib "bin")
1421        ("pkg-config" ,pkg-config)))
1422     (inputs
1423      `(("gdk-pixbuf" ,gdk-pixbuf)
1424        ("gettext" ,gettext-minimal)
1425        ("gobject-introspection" ,gobject-introspection)
1426        ("gtk+:doc" ,gtk+ "doc")
1427        ("vala" ,vala)))
1428     (synopsis "Media art library for the GNOME desktop")
1429     (description
1430      "The libmediaart library is the foundation for media art caching,
1431 extraction, and lookup for applications on the desktop.")
1432     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1433     (license license:lgpl2.1+)))
1434
1435 (define-public gnome-initial-setup
1436   (package
1437    (name "gnome-initial-setup")
1438    (version "3.32.1")
1439    (source (origin
1440             (method url-fetch)
1441            (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1442                                 (version-major+minor version)
1443                                 "/gnome-initial-setup-" version ".tar.xz"))
1444             (sha256
1445              (base32
1446               "1gwhp7dalyc8zsb2pa66cmpdrj2d6drbq5p331sq6zp8ds10k9ry"))))
1447    (build-system meson-build-system)
1448    (arguments
1449     '(#:configure-flags '(;; Enable camera support for user selfie.
1450                           "-Dcheese=auto"
1451                           "-Dsystemd=false")
1452       #:phases (modify-phases %standard-phases
1453                  (add-after 'unpack 'set-gkbd-file-name
1454                    (lambda* (#:key inputs #:allow-other-keys)
1455                      ;; Allow the "Preview" button in the keyboard layout
1456                      ;; selection dialog to display the layout.
1457                      (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
1458                        (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1459                          (("\"gkbd-keyboard-display")
1460                           (string-append "\"" libgnomekbd
1461                                          "/bin/gkbd-keyboard-display")))
1462                        #t))))))
1463    (native-inputs
1464     `(("gettext" ,gettext-minimal)
1465       ("glib:bin" ,glib "bin")
1466       ("gobject-introspection" ,gobject-introspection)
1467       ("gtk+:bin" ,gtk+ "bin")
1468       ("pkg-config" ,pkg-config)))
1469    (inputs
1470     `(("accountsservice" ,accountsservice)
1471       ;("adwaita-icon-theme" ,adwaita-icon-theme)
1472       ("gdm" ,gdm)
1473       ("geoclue" ,geoclue)
1474       ("gnome-desktop" ,gnome-desktop)
1475       ("gnome-getting-started-docs" ,gnome-getting-started-docs)
1476       ("gnome-online-accounts" ,gnome-online-accounts)
1477       ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1478       ("gstreamer" ,gstreamer)
1479       ("ibus" ,ibus)
1480       ("json-glib" ,json-glib)
1481       ("krb5" ,mit-krb5)
1482       ("libgweather" ,libgweather)
1483       ("libnma" ,libnma)
1484       ("libsecret" ,libsecret)
1485       ("network-manager" ,network-manager)
1486       ("packagekit" ,packagekit)
1487       ("polkit" ,polkit)
1488       ("pwquality" ,libpwquality)
1489       ("rest" ,rest)
1490       ("upower" ,upower)
1491       ("webkitgtk" ,webkitgtk)
1492       ("libgnomekbd" ,libgnomekbd)))
1493    (synopsis "Initial setup wizard for GNOME desktop")
1494    (description "This package provides a set-up wizard when a
1495 user logs into GNOME for the first time.  It typically provides a
1496 tour of all gnome components and allows the user to set them up.")
1497    (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1498    (license license:gpl2)))
1499
1500 (define-public gnome-user-share
1501   (package
1502    (name "gnome-user-share")
1503    (version "3.33.1")
1504    (source (origin
1505             (method url-fetch)
1506             (uri (string-append "mirror://gnome/sources/" name "/"
1507                                 (version-major+minor version) "/"
1508                                 name "-" version ".tar.xz"))
1509             (sha256
1510              (base32
1511               "0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
1512    (build-system meson-build-system)
1513    (arguments
1514     `(#:glib-or-gtk? #t
1515       #:configure-flags
1516        `("-Dsystemd=false"
1517          ;; Enable nautilus extension for file sharing.
1518          "-Dnautilus_extension=true")))
1519    (native-inputs
1520     `(("gettext" ,gettext-minimal)
1521       ("glib:bin" ,glib "bin")
1522       ("gobject-introspection" ,gobject-introspection)
1523       ("gtk+:bin" ,gtk+ "bin")
1524       ("pkg-config" ,pkg-config)
1525       ("yelp-tools" ,yelp-tools)))
1526    (inputs
1527     `(("glib" ,glib)
1528       ("gnome-bluetooth" ,gnome-bluetooth)
1529       ("gtk+" ,gtk+)
1530       ("libcanberra" ,libcanberra)
1531       ("libnotify" ,libnotify)
1532       ("nautilus" ,nautilus)))      ; For nautilus extension.
1533    (synopsis "File sharing for GNOME desktop")
1534    (description "GNOME User Share is a small package that binds together
1535 various free software projects to bring easy to use user-level file
1536 sharing to the masses.")
1537    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
1538    (license license:gpl2+)))
1539
1540 (define-public sushi
1541   (package
1542     (name "sushi")
1543     (version "3.32.1")
1544     (source (origin
1545               (method url-fetch)
1546               (uri (string-append "mirror://gnome/sources/" name "/"
1547                                   (version-major+minor version) "/"
1548                                   name "-" version ".tar.xz"))
1549               (sha256
1550                (base32
1551                 "02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
1552     (build-system meson-build-system)
1553     (arguments
1554      `(#:glib-or-gtk? #t
1555        #:phases
1556        (modify-phases %standard-phases
1557          (add-after 'glib-or-gtk-wrap 'wrap-typelib
1558            (lambda* (#:key outputs #:allow-other-keys)
1559              (let ((prog (string-append (assoc-ref outputs "out")
1560                                         "/bin/sushi")))
1561                ;; Put existing typelibs before sushi's deps, so as to correctly
1562                ;; infer gdk-pixbuf
1563                (wrap-program prog
1564                  `("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
1565                #t))))))
1566     (native-inputs
1567      `(("glib:bin" ,glib "bin")
1568        ("gettext" ,gettext-minimal)
1569        ("gobject-introspection" ,gobject-introspection)
1570        ("pkg-config" ,pkg-config)))
1571     (inputs
1572      `(("clutter" ,clutter)
1573        ("clutter-gst" ,clutter-gst)
1574        ("clutter-gtk" ,clutter-gtk)
1575        ("evince" ,evince)                         ; For file previewing.
1576        ("freetype" ,freetype)
1577        ("gdk-pixbuf" ,gdk-pixbuf)
1578        ("gjs" ,gjs)
1579        ("gst-plugins-base" ,gst-plugins-base)
1580        ("gstreamer" ,gstreamer)
1581        ("gtksourceview" ,gtksourceview-3)
1582        ("harfbuzz" ,harfbuzz)
1583        ("libepoxy" ,libepoxy)
1584        ("libmusicbrainz" ,libmusicbrainz)
1585        ("libxml2" ,libxml2)
1586        ("neon" ,neon)
1587        ("webkitgtk" ,webkitgtk)))
1588     (synopsis "File previewer for the GNOME desktop")
1589     (description "Sushi is a DBus-activated service that allows applications to
1590 preview files on the GNOME desktop.")
1591     (home-page "https://gitlab.gnome.org/GNOME/sushi")
1592     (license license:gpl2+)))
1593
1594 (define-public rygel
1595   (package
1596     (name "rygel")
1597     (version "0.38.3")
1598     (source (origin
1599               (method url-fetch)
1600               (uri (string-append "mirror://gnome/sources/" name "/"
1601                                   (version-major+minor version) "/"
1602                                   name "-" version ".tar.xz"))
1603               (sha256
1604                (base32
1605                 "003xficqb08r1dgid20i7cn889lbfwrglpx78rjd5nkvgxbimhh8"))))
1606     (build-system gnu-build-system)
1607     (native-inputs
1608      `(("gettext" ,gettext-minimal)
1609        ("gobject-introspection" ,gobject-introspection)
1610        ("gtk-doc" ,gtk-doc/stable)
1611        ("pkg-config" ,pkg-config)
1612        ("vala" ,vala)))
1613     (inputs
1614      `(("gdk-pixbuf" ,gdk-pixbuf)
1615        ("gssdp" ,gssdp)
1616        ("gstreamer" ,gstreamer)
1617        ("gst-plugins-base" ,gst-plugins-base)
1618        ("gtk+" ,gtk+)
1619        ("gupnp" ,gupnp)
1620        ("gupnp-av" ,gupnp-av)
1621        ("gupnp-dlna" ,gupnp-dlna)
1622        ("libgee" ,libgee)
1623        ("libmediaart" ,libmediaart)
1624        ("libsoup" ,libsoup)
1625        ("libxslt" ,libxslt)
1626        ("libunistring" ,libunistring)
1627        ("tracker" ,tracker)))
1628     (synopsis "Share audio, video, and pictures with other devices")
1629     (description
1630      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1631 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1632 pictures, and to control a media player on your home network.
1633
1634 Rygel achieves interoperability with other devices by trying to conform to the
1635 strict requirements of DLNA and by converting media on-the-fly to formats that
1636 client devices can handle.")
1637     (home-page "https://wiki.gnome.org/Projects/Rygel")
1638     (license (list
1639               ;; For logo (data/icons/*).
1640               license:cc-by-sa3.0
1641               ;; For all others.
1642               license:lgpl2.1+))))
1643
1644 (define-public libnma
1645   (package
1646     (name "libnma")
1647     (version "1.8.28")
1648     (source (origin
1649               (method url-fetch)
1650               (uri (string-append "mirror://gnome/sources/" name "/"
1651                                   (version-major+minor version) "/"
1652                                   name "-" version ".tar.xz"))
1653               (sha256
1654                (base32
1655                 "09mp6k0hfam1vyyv9kcd8j4gb2r58i05ipx2nswb58ris599bxja"))))
1656     (build-system meson-build-system)
1657     (arguments
1658      `(#:phases
1659        (modify-phases %standard-phases
1660          (add-after 'unpack 'patch-docbook-xml
1661            (lambda* (#:key inputs #:allow-other-keys)
1662              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1663                                           "/xml/dtd/docbook")))
1664                (substitute* "libnma-docs.xml"
1665                  (("http://.*/docbookx\\.dtd")
1666                   (string-append xmldoc "/docbookx.dtd")))
1667                #t))))))
1668     (native-inputs
1669      `(("docbook-xml" ,docbook-xml-4.3)
1670        ("gettext" ,gettext-minimal)
1671        ("glib:bin" ,glib "bin")
1672        ("gtk-doc" ,gtk-doc/stable)
1673        ("gobject-introspection" ,gobject-introspection)
1674        ("pkg-config" ,pkg-config)
1675        ("vala" ,vala)))
1676     (inputs
1677      `(("gcr" ,gcr)
1678        ("gtk+" ,gtk+)
1679        ("iso-codes" ,iso-codes)
1680        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
1681        ("network-manager" ,network-manager)))
1682     (synopsis "Network Manager's applet library")
1683     (description "Libnma is an applet library for Network Manager.  It was
1684 initially part of network-manager-applet and has now become a separate
1685 project.")
1686     (home-page "https://gitlab.gnome.org/GNOME/libnma")
1687     ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1688     ;; "LGPL-2.1+".
1689     (license license:gpl2+)))
1690
1691 (define-public gnome-menus
1692   (package
1693     (name "gnome-menus")
1694     (version "3.32.0")
1695     (source (origin
1696               (method url-fetch)
1697               (uri (string-append "mirror://gnome/sources/gnome-menus/"
1698                                   (version-major+minor version) "/"
1699                                   name "-" version ".tar.xz"))
1700               (sha256
1701                (base32
1702                 "0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68"))))
1703     (build-system gnu-build-system)
1704     (native-inputs
1705      `(("gettext" ,gettext-minimal)
1706        ("glib" ,glib)
1707        ("pkg-config" ,pkg-config)))
1708     (synopsis "Menu support for GNOME desktop")
1709     (description "GNOME Menus contains the libgnome-menu library, the layout
1710 configuration files for the GNOME menu, as well as a simple menu editor.")
1711     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
1712     (license license:lgpl2.0+)))
1713
1714 (define-public deja-dup
1715   (package
1716     (name "deja-dup")
1717     (version "40.6")
1718     (source (origin
1719               (method url-fetch)
1720               (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1721                                   version "/deja-dup-" version ".tar.bz2"))
1722               (sha256
1723                (base32
1724                 "0lwazh6crby5wpy9fg6zvwy4plqbhs2f98bm5lbizjdlbh88n5q0"))))
1725     (build-system meson-build-system)
1726     (arguments
1727      `(#:glib-or-gtk? #t
1728        #:configure-flags
1729        (list
1730         ;; Otherwise, the RUNPATH will lack the final path component.
1731         (string-append "-Dc_link_args=-Wl,-rpath="
1732                        (assoc-ref %outputs "out") "/lib/deja-dup"))
1733        #:phases
1734        (modify-phases %standard-phases
1735          (add-after 'unpack 'patch-paths
1736            (lambda* (#:key inputs #:allow-other-keys)
1737              (let ((python (assoc-ref inputs "python")))
1738                (substitute* '("libdeja/tools/duplicity/DuplicityInstance.vala"
1739                               "libdeja/tests/scripts/instance-error.test")
1740                  (("/bin/rm")
1741                   (which "rm")))
1742                (substitute* "libdeja/tests/runner.vala"
1743                  (("/bin/sh")
1744                   (which "sh")))
1745                (substitute* "libdeja/tests/scripts/instance-error.test"
1746                  (("`which python3`")
1747                   (string-append python "/bin/python3"))))))
1748          (add-after 'unpack 'patch-libgpg-error
1749            (lambda* (#:key inputs #:allow-other-keys)
1750              (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1751                (substitute* "meson.build"
1752                  (("(gpgerror_libs = ).*" _ var)
1753                   (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))
1754              #t))
1755          (add-after 'unpack 'skip-gtk-update-icon-cache
1756            ;; Don't create 'icon-theme.cache'.
1757            (lambda _
1758              (substitute* "data/post-install.sh"
1759                (("gtk-update-icon-cache") "true"))
1760              #t)))))
1761     (inputs
1762      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1763        ("duplicity" ,duplicity)
1764        ("python" ,python)
1765        ("python-pygobject" ,python-pygobject)
1766        ("gtk+" ,gtk+)
1767        ("json-glib" ,json-glib)
1768        ("libnotify" ,libnotify)
1769        ("libgpg-error" ,libgpg-error)
1770        ("libsecret" ,libsecret)
1771        ("libsoup" ,libsoup)
1772        ("packagekit" ,packagekit)))
1773     (native-inputs
1774      `(("appstream-glib" ,appstream-glib)
1775        ("desktop-file-utils" ,desktop-file-utils)
1776        ("gettext" ,gettext-minimal)
1777        ("glib" ,glib "bin")             ; for glib-compile-schemas.
1778        ("gobject-introspection" ,gobject-introspection)
1779        ("itstool" ,itstool)
1780        ("pkg-config" ,pkg-config)
1781        ("vala" ,vala)))
1782     (home-page "https://wiki.gnome.org/Apps/DejaDup")
1783     (synopsis "Simple backup tool, for regular encrypted backups")
1784     (description
1785      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
1786 uses duplicity as the backend, which supports incremental backups and storage
1787 either on a local, or remote machine via a number of methods.")
1788     (license license:gpl3+)))
1789
1790 (define-public gnome-commander
1791   (package
1792     (name "gnome-commander")
1793     (version "1.10.3")
1794     (source
1795      (origin
1796        (method url-fetch)
1797        (uri (string-append "mirror://gnome/sources/" name "/"
1798                            (version-major+minor version)  "/"
1799                            "gnome-commander-" version ".tar.xz"))
1800        (sha256
1801         (base32 "0bis36awb73vhkncq8yr0qlnyaxynqkvmyqbg57ijqwd0m8hh4zg"))))
1802     (build-system glib-or-gtk-build-system)
1803     (native-inputs
1804      `(("desktop-file-utils" ,desktop-file-utils)
1805        ("gcc" ,gcc-8) ;required for -Wcast-function-type
1806        ("gettext" ,gettext-minimal)
1807        ("glib:bin" ,glib "bin")
1808        ("gobject-introspection" ,gobject-introspection)
1809        ("googletest" ,googletest)
1810        ("intltool" ,intltool)
1811        ("itstool" ,itstool)
1812        ("libtool" ,libtool)
1813        ("pkg-config" ,pkg-config)))
1814     (inputs
1815      `(("gconf" ,gconf)
1816        ("gnome-vfs" ,gnome-vfs)
1817        ("gtk+" ,gtk+-2)
1818        ("libxml2" ,libxml2)))
1819     (home-page "https://gcmd.github.io/")
1820     (synopsis "Two-pane graphical file manager for the GNOME desktop")
1821     (description
1822      "GNOME Commander is a two-pane graphical file manager using GNOME
1823 libraries.  It aims to fulfill the demands of more advanced users who
1824 like to focus on file management, their work through special applications
1825 and running smart commands.")
1826     (license license:gpl2+)))
1827
1828 (define-public gnome-user-docs
1829   (package
1830    (name "gnome-user-docs")
1831    (version "3.32.3")
1832    (source
1833     (origin
1834       (method url-fetch)
1835       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1836                           (version-major+minor version)
1837                           "/gnome-user-docs-" version ".tar.xz"))
1838       (sha256
1839        (base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig"))))
1840    (build-system gnu-build-system)
1841    (native-inputs
1842     `(("gettext" ,gettext-minimal)
1843       ("itstool" ,itstool)
1844       ("pkg-config" ,pkg-config)
1845       ("xmllint" ,libxml2)))
1846    (synopsis "User documentation for the GNOME desktop")
1847    (description
1848     "The GNOME User Documentation explains how to use the GNOME desktop and its
1849 components.  It covers usage and setup of the core GNOME programs by end-users
1850 and system administrators.")
1851    (home-page "https://live.gnome.org/DocumentationProject")
1852    (license license:cc-by3.0)))
1853
1854 (define-public gnome-getting-started-docs
1855   (package
1856    (name "gnome-getting-started-docs")
1857    (version "3.32.2")
1858    (source
1859     (origin
1860       (method url-fetch)
1861       (uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/"
1862                           (version-major+minor version)
1863                           "/gnome-getting-started-docs-" version ".tar.xz"))
1864       (sha256
1865        (base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq"))))
1866    (build-system gnu-build-system)
1867    (native-inputs
1868     `(("gettext" ,gettext-minimal)
1869       ("itstool" ,itstool)
1870       ("pkg-config" ,pkg-config)
1871       ("xmllint" ,libxml2)))
1872    (synopsis "Help to get new users started with the GNOME desktop")
1873    (description
1874     "The GNOME Getting Started Documentation contains GNOME's intuitive
1875 \"Getting Started\" tour, with video guides, that can be viewed with Yelp.
1876
1877 It is normally used together with @command{gnome-initial-setup}, but is also
1878 useful as a tutorial and users' guide for new or less experienced users.")
1879    (home-page "https://live.gnome.org/DocumentationProject")
1880    (license license:cc-by-sa3.0)))
1881
1882 (define-public dia
1883   ;; This version from GNOME's repository includes fixes for compiling with
1884   ;; recent versions of the build tools.  The latest activity on the
1885   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
1886   ;; fixes since.
1887   (let ((commit "3cf7ec4c2e5bca139a7f3e17f9fc9009c237fcc5")
1888         (revision "2"))
1889     (package
1890       (name "dia")
1891       (version (git-version "0.97.3" revision commit))
1892       (source (origin
1893                 (method git-fetch)
1894                 (uri (git-reference
1895                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
1896                       (commit commit)))
1897                 (file-name (git-file-name name version))
1898                 (sha256
1899                  (base32
1900                   "04r8dspa6nmicrifhi3sh46hqvyy88hzq37xx99q3q1mwsrpmwy8"))))
1901       (build-system meson-build-system)
1902       (inputs
1903        `(("graphene" ,graphene)
1904          ("gtk+" ,gtk+-2)
1905          ("libxml2" ,libxml2)
1906          ("libxslt" ,libxslt)
1907          ("poppler" ,poppler)
1908          ;; Without Python 2, build fails: plug-ins/python/meson.build:4:0:
1909          ;; ERROR: Unknown method "dependency" in object.
1910          ("python-2" ,python-2)))
1911       (native-inputs
1912        `(("appstream-glib" ,appstream-glib)
1913          ("docbook-xsl" ,docbook-xsl)
1914          ("glib" ,glib "bin")
1915          ("intltool" ,intltool)
1916          ("pkg-config" ,pkg-config)))
1917       (home-page "https://wiki.gnome.org/Apps/Dia")
1918       (synopsis "Diagram creation for GNOME")
1919       (description "Dia can be used to draw different types of diagrams, and
1920 includes support for UML static structure diagrams (class diagrams), entity
1921 relationship modeling, and network diagrams.  The program supports various file
1922 formats like PNG, SVG, PDF and EPS.")
1923       (license license:gpl2+))))
1924
1925 ;; This is the unstable release, but it is required for the current stable
1926 ;; release of gvfs (1.38.1).
1927 (define-public libgdata
1928   (package
1929     (name "libgdata")
1930     (version "0.17.9")
1931     (source (origin
1932               (method url-fetch)
1933               (uri (string-append "mirror://gnome/sources/" name "/"
1934                                   (version-major+minor version)  "/"
1935                                   name "-" version ".tar.xz"))
1936               (sha256
1937                (base32
1938                 "0fj54yqxdapdppisqm1xcyrpgcichdmipq0a0spzz6009ikzgi45"))))
1939     (build-system gnu-build-system)
1940     (arguments
1941      '(#:phases
1942        (modify-phases %standard-phases
1943          (add-before 'check 'disable-failing-tests
1944            (lambda _
1945              ;; The PicasaWeb API tests fail with gnome-online-accounts@3.24.2.
1946              ;; They have been removed in libgdata 0.17.6, so just do the same.
1947              (substitute* "gdata/tests/Makefile"
1948                (("picasaweb\\$\\(EXEEXT\\) ") ""))
1949              #t)))))
1950     (native-inputs
1951      `(("glib:bin" ,glib "bin")
1952        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1953        ("intltool" ,intltool)
1954        ("pkg-config" ,pkg-config)
1955        ("uhttpmock" ,uhttpmock)))
1956     (inputs
1957      `(("cyrus-sasl" ,cyrus-sasl)
1958        ("glib-networking" ,glib-networking)))
1959     (propagated-inputs
1960      `(("gcr" ,gcr)
1961        ("glib" ,glib)
1962        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1963        ("json-glib" ,json-glib)
1964        ("liboauth" ,liboauth)
1965        ("libsoup" ,libsoup)
1966        ("libxml2" ,libxml2)))
1967     (home-page "https://wiki.gnome.org/Projects/libgdata")
1968     (synopsis "Library for accessing online service APIs")
1969     (description
1970      "libgdata is a GLib-based library for accessing online service APIs using
1971 the GData protocol — most notably, Google's services.  It provides APIs to
1972 access the common Google services, and has full asynchronous support.")
1973     (license license:lgpl2.1+)))
1974
1975 (define-public libgxps
1976   (package
1977     (name "libgxps")
1978     (version "0.3.2")
1979     (source (origin
1980               (method url-fetch)
1981               (uri (string-append "mirror://gnome/sources/" name "/"
1982                                   (version-major+minor version) "/"
1983                                   name "-" version ".tar.xz"))
1984               (sha256
1985                (base32
1986                 "07156nj7yrp3h9zyzx6mjwxwmfijialb4gi5d6dwyp53arr8c9vd"))))
1987     (build-system meson-build-system)
1988     (native-inputs
1989      `(("gobject-introspection" ,gobject-introspection)
1990        ("pkg-config" ,pkg-config)))
1991     (inputs
1992      `(("gtk+" ,gtk+)
1993        ("libjpeg" ,libjpeg-turbo)
1994        ("lcms" ,lcms)
1995        ("libtiff" ,libtiff)))
1996     (propagated-inputs
1997      ;; In Requires of libgxps.pc.
1998      `(("cairo" ,cairo)
1999        ("glib" ,glib)
2000        ("libarchive" ,libarchive)))
2001     (home-page "https://wiki.gnome.org/Projects/libgxps")
2002     (synopsis "GObject-based library for handling and rendering XPS documents")
2003     (description
2004      "libgxps is a GObject-based library for handling and rendering XPS
2005 documents.  This package also contains binaries that can convert XPS documents
2006 to other formats.")
2007     (license license:lgpl2.1+)))
2008
2009 (define-public gnome-characters
2010   (package
2011     (name "gnome-characters")
2012     (version "3.30.0")
2013     (source
2014      (origin
2015        (method url-fetch)
2016        (uri (string-append "mirror://gnome/sources/"
2017                            "gnome-characters/" (version-major+minor version)
2018                            "/gnome-characters-" version ".tar.xz"))
2019        (sha256
2020         (base32
2021          "08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
2022     (build-system meson-build-system)
2023     (arguments
2024      `(#:glib-or-gtk? #t
2025        #:phases (modify-phases %standard-phases
2026                   (add-after 'install 'wrap
2027                     (lambda* (#:key outputs #:allow-other-keys)
2028                       ;; GNOME Characters needs Typelib files from GTK and
2029                       ;; gnome-desktop.
2030                       (wrap-program (string-append (assoc-ref outputs "out")
2031                                                    "/bin/gnome-characters")
2032                         `("GI_TYPELIB_PATH" ":" prefix
2033                           (,(getenv "GI_TYPELIB_PATH"))))
2034                       #t)))))
2035     (native-inputs
2036      `(("gettext" ,gettext-minimal)
2037        ("glib:bin" ,glib "bin")
2038        ("gtk+:bin" ,gtk+ "bin")
2039        ("pkg-config" ,pkg-config)
2040        ("python" ,python-minimal)))
2041     (inputs
2042      `(("gjs" ,gjs)
2043        ("gtk+" ,gtk+)
2044        ("libunistring" ,libunistring)
2045        ("gnome-desktop" ,gnome-desktop)))
2046     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
2047     (synopsis "Find and insert unusual characters")
2048     (description "Characters is a simple utility application to find
2049 and insert unusual characters.  It allows you to quickly find the
2050 character you are looking for by searching for keywords.")
2051     (license license:bsd-3)))
2052
2053 (define-public gnome-common
2054   (package
2055     (name "gnome-common")
2056     (version "3.18.0")
2057     (source
2058      (origin
2059        (method url-fetch)
2060        (uri (string-append "mirror://gnome/sources/" name "/"
2061                            (version-major+minor version)  "/"
2062                            name "-" version ".tar.xz"))
2063        (sha256
2064         (base32
2065          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
2066     (build-system gnu-build-system)
2067     (home-page "https://www.gnome.org/")
2068     (synopsis "Bootstrap GNOME modules built from Git")
2069     (description "gnome-common contains various files needed to bootstrap
2070 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
2071 can be used to configure a source directory checked out from Git and some
2072 commonly used macros.")
2073     (license license:gpl2+)))
2074
2075 (define-public gnome-contacts
2076   (package
2077     (name "gnome-contacts")
2078     (version "3.34")
2079     (source (origin
2080               (method url-fetch)
2081               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2082                                   (version-major+minor version) "/"
2083                                   name "-" version ".tar.xz"))
2084               (sha256
2085                (base32
2086                 "04igc9xvyc4kb5xf5g2missnvyvj9zv5cqxf5k4z7hb0sv42wq4r"))))
2087     (build-system meson-build-system)
2088     (arguments
2089      `(#:configure-flags '("-Dcheese=false")
2090        #:phases
2091        (modify-phases %standard-phases
2092          (add-after 'unpack 'generate-vapis
2093            (lambda* (#:key inputs #:allow-other-keys)
2094              ;; To generate goa's missing .vapi file
2095              (define goa
2096                (assoc-ref inputs "gnome-online-accounts:lib"))
2097
2098              (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
2099                      "--library=goa-1.0"
2100                      (string-append goa "/share/gir-1.0/Goa-1.0.gir"))
2101              #t))
2102          (add-after 'unpack 'skip-gtk-update-icon-cache
2103            ;; Don't create 'icon-theme.cache'.
2104            (lambda _
2105              (substitute* "build-aux/meson_post_install.py"
2106                (("gtk-update-icon-cache") "true"))
2107              #t)))))
2108     (native-inputs
2109      `(("glib:bin" ,glib "bin")
2110        ("pkg-config" ,pkg-config)))
2111     (inputs
2112      `(("docbook-xml" ,docbook-xml)
2113        ("dockbook-xsl" ,docbook-xsl)
2114        ("evolution-data-server" ,evolution-data-server)
2115        ("gettext" ,gettext-minimal)
2116        ("gnome-desktop" ,gnome-desktop)
2117        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2118        ("gobject-introspection" ,gobject-introspection)
2119        ("gst-plugins-base" ,gst-plugins-base)
2120        ("gtk+" ,gtk+)
2121        ("libgee" ,libgee)
2122        ("libxslt" ,libxslt)
2123        ("telepathy-glib" ,telepathy-glib)
2124        ("vala" ,vala)))
2125     (propagated-inputs
2126      `(("folks" ,folks)
2127        ("telepathy-mission-control" ,telepathy-mission-control)))
2128     (synopsis "GNOME's integrated address book")
2129     (description
2130      "GNOME Contacts organizes your contact information from online and
2131 offline sources, providing a centralized place for managing your contacts.")
2132     (home-page "https://wiki.gnome.org/Apps/Contacts")
2133     (license license:gpl2+)))
2134
2135 (define-public gnome-desktop
2136   (package
2137     (name "gnome-desktop")
2138     (version "3.34.2")
2139     (source
2140      (origin
2141       (method url-fetch)
2142       (uri (string-append "mirror://gnome/sources/" name "/"
2143                           (version-major+minor version)  "/"
2144                           name "-" version ".tar.xz"))
2145       (sha256
2146        (base32
2147         "1v983xirwp1y6ggz97bh742ak6gff0hxb359dgn37nikjxhvm0a0"))))
2148     (build-system meson-build-system)
2149     (arguments
2150      '(#:phases
2151        (modify-phases %standard-phases
2152          (add-before 'configure 'patch-path
2153            (lambda* (#:key inputs #:allow-other-keys)
2154              (let ((libc   (assoc-ref inputs "libc")))
2155                (substitute* "libgnome-desktop/gnome-languages.c"
2156                  (("\"locale\"")
2157                   (string-append "\"" libc "/bin/locale\"")))
2158                #t)))
2159          (add-before 'configure 'patch-bubblewrap
2160            (lambda* (#:key inputs #:allow-other-keys)
2161              (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2162                (("\"bwrap\",")
2163                 (string-append "\"" (which "bwrap") "\","))
2164                (("\"--ro-bind\", \"/usr\", \"/usr\",")
2165                 (string-append "\"--ro-bind\", \""
2166                                (%store-directory)
2167                                "\", \""
2168                                (%store-directory)
2169                                "\","))
2170                (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",") ""))
2171              #t))
2172          (add-before 'check 'pre-check
2173            (lambda* (#:key inputs #:allow-other-keys)
2174              ;; Tests require a running X server and locales.
2175              (system "Xvfb :1 &")
2176              (setenv "DISPLAY" ":1")
2177              (setenv "GUIX_LOCPATH"
2178                      (string-append (assoc-ref inputs "glibc-locales")
2179                                     "/lib/locale"))
2180              #t)))))
2181     (native-inputs
2182      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
2183        ("glibc-locales" ,glibc-locales) ; for tests
2184        ("gobject-introspection" ,gobject-introspection)
2185        ("itstool" ,itstool)
2186        ("intltool" ,intltool)
2187        ("pkg-config" ,pkg-config)
2188        ("xmllint" ,libxml2)
2189        ("xorg-server" ,xorg-server-for-tests)))
2190     (propagated-inputs
2191      ;; Required by gnome-desktop-3.0.pc.
2192      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2193        ("gtk+" ,gtk+)
2194        ("iso-codes" ,iso-codes)
2195        ("libseccomp" ,libseccomp)
2196        ("libx11" ,libx11)
2197        ("xkeyboard-config" ,xkeyboard-config)))
2198     (inputs
2199      `(("gdk-pixbuf" ,gdk-pixbuf)
2200        ("glib" ,glib)
2201        ("bubblewrap" ,bubblewrap)
2202        ("libxext" ,libxext)
2203        ("libxkbfile" ,libxkbfile)
2204        ("libxrandr" ,libxrandr)))
2205     (home-page "https://www.gnome.org/")
2206     (synopsis
2207      "Libgnome-desktop, gnome-about, and desktop-wide documents")
2208     (description
2209      "The libgnome-desktop library provides API shared by several applications
2210 on the desktop, but that cannot live in the platform for various reasons.
2211 There is no API or ABI guarantee, although we are doing our best to provide
2212 stability.  Documentation for the API is available with gtk-doc.
2213
2214 The gnome-about program helps find which version of GNOME is installed.")
2215     ; Some bits under the LGPL.
2216     (license license:gpl2+)))
2217
2218 (define-public gnome-doc-utils
2219   (package
2220     (name "gnome-doc-utils")
2221     (version "0.20.10")
2222     (source
2223      (origin
2224       (method url-fetch)
2225       (uri (string-append "mirror://gnome/sources/" name "/"
2226                           (version-major+minor version)  "/"
2227                           name "-" version ".tar.xz"))
2228       (sha256
2229        (base32
2230         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
2231     (build-system gnu-build-system)
2232     (native-inputs
2233      `(("intltool" ,intltool)
2234        ("docbook-xml" ,docbook-xml-4.4)
2235        ("python2-libxml2" ,python2-libxml2)
2236        ("libxml2" ,libxml2)
2237        ("libxslt" ,libxslt)
2238        ("pkg-config" ,pkg-config)
2239        ("python-2" ,python-2)))
2240     (home-page "https://wiki.gnome.org/GnomeDocUtils")
2241     (synopsis
2242      "Documentation utilities for the Gnome project")
2243     (description
2244      "Gnome-doc-utils is a collection of documentation utilities for the
2245 Gnome project.  It includes xml2po tool which makes it easier to translate
2246 and keep up to date translations of documentation.")
2247     (license license:gpl2+))) ; xslt under lgpl
2248
2249 (define-public gnome-disk-utility
2250   (package
2251     (name "gnome-disk-utility")
2252     (version "3.34.0")
2253     (source (origin
2254               (method url-fetch)
2255               (uri (string-append "mirror://gnome/sources/" name "/"
2256                                   (version-major+minor version) "/"
2257                                   name "-" version ".tar.xz"))
2258               (sha256
2259                (base32
2260                 "1mb7q90lnlp97dhxhnadhjagcfd12dfqzp0vj9h6b1r61pzhy97y"))))
2261     (build-system meson-build-system)
2262     (arguments
2263      '(#:configure-flags '("-Dlogind=libelogind")
2264        #:phases
2265        (modify-phases %standard-phases
2266          (add-after 'unpack 'skip-gtk-update-icon-cache
2267            ;; Don't create 'icon-theme.cache'.
2268            (lambda _
2269              (substitute* "meson_post_install.py"
2270                (("gtk-update-icon-cache") "true"))
2271              #t)))))
2272     (native-inputs
2273      `(("glib:bin" ,glib "bin")
2274        ("intltool" ,intltool)
2275        ("pkg-config" ,pkg-config)
2276        ("docbook-xml" ,docbook-xml)
2277        ("docbook-xsl" ,docbook-xsl)
2278        ("libxml2" ,libxml2)
2279        ("libxslt" ,libxslt)))
2280     (inputs
2281      `(("elogind" ,elogind)
2282        ("glib" ,glib)
2283        ("appstream-glib" ,appstream-glib)
2284        ("gnome-settings-daemon" ,gnome-settings-daemon)
2285        ("gtk+" ,gtk+)
2286        ("libcanberra" ,libcanberra)
2287        ("libdvdread" ,libdvdread)
2288        ("libnotify" ,libnotify)
2289        ("libpwquality" ,libpwquality)
2290        ("libsecret" ,libsecret)
2291        ("udisks" ,udisks)))
2292     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2293     (synopsis "Disk management utility for GNOME")
2294     (description "Disk management utility for GNOME.")
2295     (license license:gpl2+)))
2296
2297 (define-public gnome-font-viewer
2298   (package
2299     (name "gnome-font-viewer")
2300     (version "3.30.0")
2301     (source (origin
2302               (method url-fetch)
2303               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2304                                   (version-major+minor version)
2305                                   "/gnome-font-viewer-" version ".tar.xz"))
2306               (sha256
2307                (base32
2308                 "1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
2309     (build-system meson-build-system)
2310     (arguments
2311      '(#:phases
2312        (modify-phases %standard-phases
2313          (add-after 'unpack 'patch-post-install-script
2314            (lambda _
2315              (substitute* "meson-postinstall.sh"
2316                (("update-desktop-database") (which "true")))
2317              #t))
2318          (add-after 'install 'patch-thumbnailer
2319            (lambda* (#:key outputs #:allow-other-keys)
2320              (let ((out (assoc-ref outputs "out")))
2321                (substitute*
2322                    (string-append
2323                     out
2324                     "/share/thumbnailers/gnome-font-viewer.thumbnailer")
2325                  (("gnome-thumbnail-font")
2326                   (string-append out "/bin/gnome-thumbnail-font"))))
2327              #t)))))
2328     (native-inputs
2329      `(("gettext" ,gettext-minimal)
2330        ("glib:bin" ,glib "bin")
2331        ("pkg-config" ,pkg-config)))
2332     (inputs
2333      `(("glib" ,glib)
2334        ("gnome-desktop" ,gnome-desktop)
2335        ("gtk+" ,gtk+)))
2336     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2337     (synopsis "GNOME Fonts")
2338     (description "Application to show you the fonts installed on your computer
2339 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
2340 the font would look under various sizes.")
2341     (license license:gpl2+)))
2342
2343 (define-public gcr
2344   (package
2345     (name "gcr")
2346     (version "3.34.0")
2347     (source (origin
2348               (method url-fetch)
2349               (uri (string-append "mirror://gnome/sources/" name "/"
2350                                   (version-major+minor version)  "/"
2351                                   name "-" version ".tar.xz"))
2352               (sha256
2353                (base32
2354                 "0925snsixzkwh49xiayqmj6fcrmklqk8kyy0jkv7m64h9abm1pr9"))))
2355     (build-system gnu-build-system)
2356     (arguments
2357      '(#:phases
2358        (modify-phases %standard-phases
2359          ;; These fail because /var/lib/dbus/machine-id is not present in the
2360          ;; build environment.
2361          (add-after 'unpack 'disable-failing-tests
2362            (lambda _
2363              (substitute* "Makefile.in"
2364                (("[[:blank:]]+test-system-prompt\\$\\(EXEEXT\\)")
2365                 ""))
2366              #t))
2367          (add-before 'check 'pre-check
2368            (lambda _
2369              ;; Some tests expect to write to $HOME.
2370              (setenv "HOME" "/tmp")
2371              #t)))))
2372     (inputs
2373      `(("dbus" ,dbus)
2374        ("gnupg" ,gnupg)                ;called as a child process during tests
2375        ("libgcrypt" ,libgcrypt)))
2376     (native-inputs
2377      `(("python" ,python-wrapper)       ;for tests
2378        ("pkg-config" ,pkg-config)
2379        ("gettext" ,gettext-minimal)
2380        ("glib" ,glib "bin")
2381        ("gobject-introspection" ,gobject-introspection)
2382        ("libxml2" ,libxml2)
2383        ("vala" ,vala)
2384        ("xsltproc" ,libxslt)))
2385     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2386     (propagated-inputs
2387      `(("p11-kit" ,p11-kit)
2388        ("glib" ,glib)
2389        ("gtk+" ,gtk+)))
2390     (home-page "https://www.gnome.org")
2391     (synopsis "Libraries for displaying certificates and accessing key stores")
2392     (description
2393      "The GCR package contains libraries used for displaying certificates and
2394 accessing key stores.  It also provides the viewer for crypto files on the
2395 GNOME Desktop.")
2396     (license license:lgpl2.1+)))
2397
2398 (define-public gdl
2399   (package
2400     (name "gdl")
2401     (version "3.34.0")
2402     (source (origin
2403               (method git-fetch)
2404               (uri (git-reference
2405                     (url "https://gitlab.gnome.org/GNOME/gdl.git")
2406                     (commit (string-append "GDL_" (string-map (match-lambda
2407                                                                 (#\. #\_)
2408                                                                 (c c))
2409                                                               version)))))
2410               (file-name (git-file-name name version))
2411               (sha256
2412                (base32
2413                 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2414     (build-system gnu-build-system)
2415     (native-inputs
2416      `(("autoconf" ,autoconf)
2417        ("automake" ,automake)
2418        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2419        ("gnome-common" ,gnome-common)
2420        ("gtk-doc" ,gtk-doc/stable)
2421        ("intltool" ,intltool)
2422        ("pkg-config" ,pkg-config)
2423        ("libtool" ,libtool)
2424        ("which" ,which)))
2425     (inputs
2426      `(("libxml2" ,libxml2)))
2427     (propagated-inputs
2428      ;; The gdl-3.0.pc file 'Requires' GTK+.
2429      `(("gtk+" ,gtk+)))
2430     (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2431     (synopsis "GNOME docking library")
2432     (description "This library provides docking features for gtk+.")
2433     (license license:lgpl2.1+)))
2434
2435 ;;; A minimal variant used to break a cycle with Inkscape.
2436 (define-public gdl-minimal
2437   (package/inherit gdl
2438     (name "gdl-minimal")
2439     (arguments
2440      '(#:phases
2441        (modify-phases %standard-phases
2442          (add-after 'unpack 'disable-doc-generation
2443            ;; XXX: There is no easy way to disable generating the
2444            ;; documentation.
2445            (lambda _
2446              (substitute* "configure.in"
2447                (("GTK_DOC_CHECK.*") "")
2448                (("docs/.*") ""))
2449              (substitute* "Makefile.am"
2450                (("gdl docs po") "gdl po"))
2451              #t)))))
2452     (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2453
2454 (define-public libgnome-keyring
2455   (package
2456     (name "libgnome-keyring")
2457     (version "3.12.0")
2458     (source (origin
2459              (method url-fetch)
2460              (uri (string-append "mirror://gnome/sources/" name "/"
2461                                  (version-major+minor version)  "/"
2462                                  name "-" version ".tar.xz"))
2463              (sha256
2464               (base32
2465                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
2466     (build-system gnu-build-system)
2467     (inputs
2468      `(("libgcrypt" ,libgcrypt)
2469        ("dbus" ,dbus)))
2470     (native-inputs
2471      `(("pkg-config" ,pkg-config)
2472        ("glib" ,glib "bin")
2473        ("intltool" ,intltool)))
2474     (propagated-inputs
2475      ;; Referred to in .h files and .pc.
2476      `(("glib" ,glib)))
2477     (home-page "https://www.gnome.org")
2478     (synopsis "Accessing passwords from the GNOME keyring")
2479     (description
2480      "Client library to access passwords from the GNOME keyring.")
2481
2482     ;; Though a couple of files are LGPLv2.1+.
2483     (license license:lgpl2.0+)))
2484
2485 (define-public gnome-keyring
2486   (package
2487     (name "gnome-keyring")
2488     (version "3.34.0")
2489     (source (origin
2490              (method url-fetch)
2491              (uri (string-append "mirror://gnome/sources/" name "/"
2492                                  (version-major+minor version)  "/"
2493                                  name "-" version ".tar.xz"))
2494              (sha256
2495               (base32
2496                "0hqrsh5g9q9lm190f0m85q4nki8k4ng7wphl6qbccdry59aakkg9"))))
2497     (build-system gnu-build-system)
2498     (arguments
2499      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
2500                    ;not exist
2501        #:configure-flags
2502        (list
2503         (string-append "--with-pkcs11-config="
2504                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
2505         (string-append "--with-pkcs11-modules="
2506                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
2507        #:phases
2508        (modify-phases %standard-phases
2509          (add-after 'unpack 'fix-/bin/sh-reference
2510            (lambda _
2511              (substitute* "po/Makefile.in.in"
2512                (("/bin/sh") (which "sh")))
2513              #t))
2514          (add-after 'unpack 'fix-docbook
2515            (lambda* (#:key inputs #:allow-other-keys)
2516              (substitute* "docs/Makefile.am"
2517                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2518                 (string-append (assoc-ref inputs "docbook-xsl")
2519                                "/xml/xsl/docbook-xsl-"
2520                                ,(package-version docbook-xsl)
2521                                "/manpages/docbook.xsl")))
2522              (setenv "XML_CATALOG_FILES"
2523                      (string-append (assoc-ref inputs "docbook-xml")
2524                                     "/xml/dtd/docbook/catalog.xml"))
2525              ;; Rerun the whole thing to avoid version mismatch ("This is
2526              ;; Automake 1.15.1, but the definition used by this
2527              ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
2528              ;; use 'autoreconf' because it insists on running 'libtoolize'.
2529              (invoke "autoconf")
2530              (invoke "aclocal")
2531              (invoke "automake" "-ac"))))))
2532     (inputs
2533      `(("libgcrypt" ,libgcrypt)
2534        ("linux-pam" ,linux-pam)
2535        ("openssh" ,openssh)
2536        ("dbus" ,dbus)
2537        ("gcr" ,gcr)))
2538     (native-inputs
2539      `(("pkg-config" ,pkg-config)
2540        ("glib" ,glib "bin")
2541        ("glib" ,glib) ; for m4 macros
2542        ("python" ,python-2) ;for tests
2543        ("intltool" ,intltool)
2544        ("autoconf" ,autoconf)
2545        ("automake" ,automake)
2546        ("libxslt" ,libxslt) ;for documentation
2547        ("docbook-xml" ,docbook-xml-4.2)
2548        ("docbook-xsl" ,docbook-xsl)))
2549     (propagated-inputs
2550      `(("gcr" ,gcr)))
2551     (home-page "https://www.gnome.org")
2552     (synopsis "Daemon to store passwords and encryption keys")
2553     (description
2554      "gnome-keyring is a program that keeps passwords and other secrets for
2555 users.  It is run as a daemon in the session, similar to ssh-agent, and other
2556 applications locate it via an environment variable or D-Bus.
2557
2558 The program can manage several keyrings, each with its own master password,
2559 and there is also a session keyring which is never stored to disk, but
2560 forgotten when the session ends.")
2561     (license license:lgpl2.1+)))
2562
2563 (define-public evince
2564   (package
2565     (name "evince")
2566     (version "3.36.5")
2567     (source (origin
2568              (method url-fetch)
2569              (uri (string-append "mirror://gnome/sources/evince/"
2570                                  (version-major+minor version) "/"
2571                                  "evince-" version ".tar.xz"))
2572              (sha256
2573               (base32
2574                "0z79jl0j9xq9wgwkfr0d1w1qrdy4447y8shs407n5srr0vixc3bg"))))
2575     (build-system glib-or-gtk-build-system)
2576     (arguments
2577      `(#:configure-flags '("--disable-nautilus" "--enable-introspection")
2578        #:phases
2579        (modify-phases %standard-phases
2580          (add-before 'install 'skip-gtk-update-icon-cache
2581            ;; Don't create 'icon-theme.cache'.
2582            (lambda _
2583              (substitute* "data/Makefile"
2584                (("gtk-update-icon-cache") "true"))
2585              #t)))))
2586     (inputs
2587      `(("libarchive" ,libarchive)
2588        ("libgxps" ,libgxps)
2589        ("libspectre" ,libspectre)
2590        ("djvulibre" ,djvulibre)
2591        ("ghostscript" ,ghostscript)
2592        ("poppler" ,poppler)
2593        ("libtiff" ,libtiff)
2594        ;; TODO:
2595        ;;   Build libkpathsea as a shared library for DVI support.
2596        ;; ("libkpathsea" ,texlive-bin)
2597        ("gnome-desktop" ,gnome-desktop)
2598        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2599        ("gspell" ,gspell)
2600        ("libgnome-keyring" ,libgnome-keyring)
2601        ("adwaita-icon-theme" ,adwaita-icon-theme)
2602        ("gdk-pixbuf" ,gdk-pixbuf)
2603        ("atk" ,atk)
2604        ("pango" ,pango)
2605        ("gtk+" ,gtk+)
2606        ("glib" ,glib)
2607        ("libxml2" ,libxml2)
2608        ("libsm" ,libsm)
2609        ("libice" ,libice)
2610        ("shared-mime-info" ,shared-mime-info)
2611        ("dconf" ,dconf)
2612        ("libcanberra" ,libcanberra)
2613        ("libsecret" ,libsecret)
2614
2615        ;; For tests.
2616        ("dogtail" ,python2-dogtail)))
2617     (native-inputs
2618      `(("itstool" ,itstool)
2619        ("intltool" ,intltool)
2620        ("glib" ,glib "bin")
2621        ("gobject-introspection" ,gobject-introspection)
2622        ("pkg-config" ,pkg-config)
2623        ("xmllint" ,libxml2)))
2624     (home-page "https://www.gnome.org/projects/evince/")
2625     (synopsis "GNOME's document viewer")
2626     (description
2627      "Evince is a document viewer for multiple document formats.  It
2628 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
2629 of Evince is to replace the multiple document viewers that exist
2630 on the GNOME Desktop with a single simple application.")
2631     (license license:gpl2+)))
2632
2633 (define-public gsettings-desktop-schemas
2634   (package
2635     (name "gsettings-desktop-schemas")
2636     (version "3.34.0")
2637     (source
2638      (origin
2639       (method url-fetch)
2640       (uri (string-append "mirror://gnome/sources/" name "/"
2641                           (version-major+minor version)  "/"
2642                           name "-" version ".tar.xz"))
2643       (sha256
2644        (base32
2645         "1bayr76aylawf2fhyjhv9zgk4kpv7ivrrmd80khb0h3h1wk092r8"))))
2646     (build-system meson-build-system)
2647     (arguments
2648      '(#:phases (modify-phases %standard-phases
2649                   (add-after 'unpack 'patch-schemas
2650                     (lambda* (#:key inputs #:allow-other-keys)
2651                       (let ((theme (assoc-ref inputs "gnome-backgrounds")))
2652                         (substitute* (find-files "schemas"
2653                                                  "\\.gschema\\.xml\\.in$")
2654                           ;; Provide the correct file name of the default GNOME
2655                           ;; background, 'adwaita-timed.xml'.
2656                           (("@datadir@/backgrounds/gnome")
2657                            (string-append theme "/share/backgrounds/gnome"))
2658                           ;; Do not reference fonts, that may not exist.
2659                           (("'Source Code Pro 10'") "'Monospace 11'"))
2660                         #t))))))
2661     (inputs
2662      `(("glib" ,glib)
2663        ("gnome-backgrounds" ,gnome-backgrounds)))
2664     (native-inputs
2665      `(("intltool" ,intltool)
2666        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
2667        ("gobject-introspection" ,gobject-introspection)
2668        ("pkg-config" ,pkg-config)))
2669     (home-page "https://launchpad.net/gsettings-desktop-schemas")
2670     (synopsis
2671      "GNOME settings for various desktop components")
2672     (description
2673      "Gsettings-desktop-schemas contains a collection of GSettings schemas
2674 for settings shared by various components of the GNOME desktop.")
2675     (license license:lgpl2.1+)))
2676
2677 (define-public python-liblarch
2678   (package
2679     (name "python-liblarch")
2680     (version "3.0.1")
2681     (source
2682      (origin
2683        (method git-fetch)
2684        (uri (git-reference
2685              (url "https://github.com/getting-things-gnome/liblarch")
2686              (commit (string-append "v" version))))
2687        (file-name (git-file-name name version))
2688        (sha256
2689         (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2690     (build-system python-build-system)
2691     (arguments
2692      `(#:phases
2693        (modify-phases %standard-phases
2694          (add-before 'check 'start-xserver
2695            (lambda* (#:key inputs #:allow-other-keys)
2696              (system (format #f "~a/bin/Xvfb :1 &"
2697                              (assoc-ref inputs "xorg-server")))
2698              (setenv "DISPLAY" ":1")
2699              #t)))))
2700     (native-inputs
2701      `(("xorg-server" ,xorg-server-for-tests)))
2702     (inputs
2703      `(("gtk+" ,gtk+)))
2704     (propagated-inputs
2705      `(("python-pygobject" ,python-pygobject)))
2706     (home-page "https://wiki.gnome.org/Projects/liblarch")
2707     (synopsis "Library to easily handle complex data structures")
2708     (description
2709      "Liblarch is a Python library built to easily handle data structures such
2710 as lists, trees and acyclic graphs.  There's also a GTK binding that will
2711 allow you to use your data structure in a @code{Gtk.Treeview}.
2712
2713 Liblarch support multiple views of one data structure and complex filtering.
2714 That way, you have a clear separation between your data themselves (Model)
2715 and how they are displayed (View).")
2716     (license license:lgpl3+)))
2717
2718 (define-public gtg
2719   (package
2720     (name "gtg")
2721     (version "0.4")
2722     (source
2723      (origin
2724        (method git-fetch)
2725        (uri (git-reference
2726              (url "https://github.com/getting-things-gnome/gtg")
2727              (commit (string-append "v" version))))
2728        (file-name (git-file-name name version))
2729        (sha256
2730         (base32 "0r28vyr88rj3kd3cg4gj7sd29wadjchi92wzmbx67d4hlg25h8kk"))))
2731     (build-system meson-build-system)
2732     (arguments
2733      `(#:glib-or-gtk? #t
2734        #:phases
2735        (modify-phases %standard-phases
2736          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2737            (lambda* (#:key outputs #:allow-other-keys)
2738              (let ((prog (string-append (assoc-ref outputs "out")
2739                                         "/bin/gtg"))
2740                    (pylib (string-append (assoc-ref outputs "out")
2741                                          "/lib/python"
2742                                          ,(version-major+minor
2743                                            (package-version python))
2744                                          "/site-packages")))
2745                (wrap-program prog
2746                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
2747                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2748                #t))))))
2749     (native-inputs
2750      `(("desktop-file-utils" ,desktop-file-utils)
2751        ("gettext" ,gettext-minimal)
2752        ("glib:bin" ,glib "bin")
2753        ("gobject-introspection" ,gobject-introspection)
2754        ("gtk+:bin" ,gtk+ "bin")
2755        ("pkg-config" ,pkg-config)))
2756     (inputs
2757      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2758        ("gtk+" ,gtk+)
2759        ("python-dbus" ,python-dbus)
2760        ("python-liblarch" ,python-liblarch)
2761        ("python-pycairo" ,python-pycairo)
2762        ("python-pygobject" ,python-pygobject)
2763        ("python-pyxdg" ,python-pyxdg)))
2764     (home-page "https://wiki.gnome.org/Apps/GTG")
2765     (synopsis "Personal organizer for the GNOME desktop")
2766     (description
2767      "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2768 organizer for the GNOME desktop environment inspired by the Getting Things
2769 Done (GTD) methodology.  GTG is designed with flexibility, adaptability,
2770 and ease of use in mind so it can be used as more than just GTD software.
2771 GTG is intended to help you track everything you need to do and need to
2772 know, from small tasks to large projects.")
2773     (license license:gpl3+)))
2774
2775 (define-public icon-naming-utils
2776   (package
2777     (name "icon-naming-utils")
2778     (version "0.8.90")
2779     (source
2780      (origin
2781       (method url-fetch)
2782       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
2783                           version ".tar.bz2"))
2784       (sha256
2785        (base32
2786         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2787     (build-system gnu-build-system)
2788     (inputs
2789      `(("perl" ,perl)
2790        ("perl-xml-simple" ,perl-xml-simple)))
2791     (arguments
2792      '(#:phases
2793        (modify-phases %standard-phases
2794          (add-after 'install 'set-load-paths
2795            ;; Tell 'icon-name-mapping' where XML::Simple is.
2796            (lambda* (#:key outputs #:allow-other-keys)
2797              (let* ((out  (assoc-ref outputs "out"))
2798                     (prog (string-append out "/libexec/icon-name-mapping")))
2799                (wrap-program
2800                    prog
2801                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2802              #t)))))
2803     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2804     (synopsis
2805      "Utility to implement the Freedesktop Icon Naming Specification")
2806     (description
2807      "To help with the transition to the Freedesktop Icon Naming
2808 Specification, the icon naming utility maps the icon names used by the
2809 GNOME and KDE desktops to the icon names proposed in the specification.")
2810     (license license:lgpl2.1+)))
2811
2812 (define-public gnome-icon-theme
2813   (package
2814     (name "gnome-icon-theme")
2815     (version "3.12.0")
2816     (source
2817      (origin
2818       (method url-fetch)
2819       (uri (string-append "mirror://gnome/sources/" name "/"
2820                           (version-major+minor version)  "/"
2821                           name "-" version ".tar.xz"))
2822       (sha256
2823        (base32
2824         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
2825     (build-system gnu-build-system)
2826     (arguments
2827      '(#:configure-flags
2828        ;; Don't create 'icon-theme.cache'.
2829        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
2830               (true      (string-append coreutils "/bin/true")))
2831          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
2832     (native-inputs
2833      `(("icon-naming-utils" ,icon-naming-utils)
2834        ("intltool" ,intltool)
2835        ("pkg-config" ,pkg-config)))
2836     (home-page "https://wiki.gnome.org/Personalization")
2837     (synopsis "GNOME icon theme")
2838     (description "Icons for the GNOME desktop.")
2839     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
2840
2841 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
2842 (define-public adwaita-icon-theme
2843   (package (inherit gnome-icon-theme)
2844     (name "adwaita-icon-theme")
2845     (version "3.34.3")
2846     (source (origin
2847               (method url-fetch)
2848               (uri (string-append "mirror://gnome/sources/" name "/"
2849                                   (version-major+minor version) "/"
2850                                   name "-" version ".tar.xz"))
2851               (sha256
2852                (base32
2853                 "025rj1fskw1y448hiar4a9icyzpyr242nlh9xhsmyp8jb71dihp7"))))
2854     (native-inputs
2855      `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
2856
2857 (define-public tango-icon-theme
2858   (package
2859     (name "tango-icon-theme")
2860     (version "0.8.90")
2861     (source (origin
2862               (method url-fetch)
2863               (uri (string-append "http://tango.freedesktop.org/releases/"
2864                                   "tango-icon-theme-" version ".tar.bz2"))
2865               (sha256
2866                (base32
2867                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2868     (build-system gnu-build-system)
2869     (native-inputs
2870      `(("icon-naming-utils" ,icon-naming-utils)
2871        ("intltool" ,intltool)
2872        ("imagemagick" ,imagemagick)
2873        ("pkg-config" ,pkg-config)))
2874     (home-page "http://tango-project.org/")
2875     (synopsis "Tango icon theme")
2876     (description "This is an icon theme that follows the Tango visual
2877 guidelines.")
2878     (license license:public-domain)))
2879
2880 (define-public shared-mime-info
2881   (package
2882     (name "shared-mime-info")
2883     (version "1.15")
2884     (source (origin
2885              (method url-fetch)
2886              (uri (string-append
2887                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2888                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2889                    ".tar.xz"))
2890              (sha256
2891               (base32
2892                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
2893     (build-system gnu-build-system)
2894     (arguments
2895      ;; The build system appears not to be parallel-safe.
2896      '(#:parallel-build? #f))
2897     (inputs
2898      `(("glib" ,glib)
2899        ("libxml2" ,libxml2)))
2900     (native-inputs
2901      `(("gettext" ,gettext-minimal)
2902        ("itstool" ,itstool)
2903        ("pkg-config" ,pkg-config)))
2904     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
2905     (synopsis "Database of common MIME types")
2906     (description
2907      "The shared-mime-info package contains the core database of common types
2908 and the update-mime-database command used to extend it.  It requires glib2 to
2909 be installed for building the update command.  Additionally, it uses intltool
2910 for translations, though this is only a dependency for the maintainers.  This
2911 database is translated at Transifex.")
2912     (license license:gpl2+)))
2913
2914 (define-public system-config-printer
2915   (package
2916     (name "system-config-printer")
2917     (version "1.5.15")
2918     (source
2919      (origin
2920        (method url-fetch)
2921        (uri (string-append
2922              "https://github.com/OpenPrinting/system-config-printer/releases/"
2923              "download/v" version
2924              "/system-config-printer-" version ".tar.xz"))
2925        (sha256
2926         (base32 "12d6xx51vizc476zfnsga9q09nflp51ipn6y7lhi9w2v4772dlpv"))))
2927     (build-system glib-or-gtk-build-system)
2928     (arguments
2929      `(#:imported-modules ((guix build python-build-system)
2930                            ,@%glib-or-gtk-build-system-modules)
2931        #:phases
2932        (modify-phases %standard-phases
2933          (add-after 'unpack 'patch-Makefile.am
2934            (lambda _
2935              ;; The Makefile generates some scripts, so set a valid shebang
2936              (substitute* "Makefile.am"
2937                (("/bin/bash") (which "bash")))
2938              (delete-file "configure")
2939              #t))
2940          (add-after 'unpack 'patch-docbook-xml
2941            (lambda* (#:key inputs #:allow-other-keys)
2942              ;; Modify the man XML otherwise xmlto tries to access the network
2943              (substitute* "man/system-config-printer.xml"
2944                (("http://www.oasis-open.org/docbook/xml/4.1.2/")
2945                 (string-append (assoc-ref inputs "docbook-xml")
2946                                "/xml/dtd/docbook/")))
2947              #t))
2948          (add-after 'install 'wrap-for-python
2949            (@@ (guix build python-build-system) wrap))
2950          (add-after 'install 'wrap
2951            (lambda* (#:key outputs #:allow-other-keys)
2952              (let ((out               (assoc-ref outputs "out"))
2953                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
2954                (for-each
2955                 (lambda (program)
2956                   (wrap-program program
2957                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
2958                 (map (lambda (name)
2959                        (string-append out "/bin/" name))
2960                      '("system-config-printer"
2961                        "system-config-printer-applet"
2962                        "install-printerdriver"
2963                        "scp-dbus-service"))))
2964              #t)))))
2965     (inputs
2966      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2967        ("gobject-introspection" ,gobject-introspection)
2968        ("python" ,python)
2969        ("cups" ,cups)
2970        ("gtk+" ,gtk+)
2971        ("python-dbus" ,python-dbus)
2972        ("python-pygobject" ,python-pygobject)
2973        ("python-pycups" ,python-pycups)
2974        ("python-requests" ,python-requests)
2975        ("python-pycairo" ,python-pycairo)
2976        ("libnotify" ,libnotify)
2977        ("packagekit" ,packagekit)))
2978     (native-inputs
2979      `(("pkg-config" ,pkg-config)
2980        ("desktop-file-utils" ,desktop-file-utils)
2981        ("glib" ,glib)
2982        ("autoconf" ,autoconf)
2983        ("automake" ,automake)
2984        ("intltool" ,intltool)
2985        ("xmlto" ,xmlto)
2986        ("docbook-xml" ,docbook-xml-4.1.2)
2987        ("docbook-xsl" ,docbook-xsl)
2988        ("libxml2" ,libxml2)))
2989     (home-page "https://github.com/zdohnal/system-config-printer")
2990     (synopsis "CUPS administration tool")
2991     (description
2992      "system-config-printer is a CUPS administration tool.  It's written in
2993 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
2994 configuring CUPS.")
2995     (license license:gpl2+)))
2996
2997 (define-public hicolor-icon-theme
2998   (package
2999     (name "hicolor-icon-theme")
3000     (version "0.17")
3001     (source
3002      (origin
3003       (method url-fetch)
3004       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
3005                           "hicolor-icon-theme-" version ".tar.xz"))
3006       (sha256
3007        (base32
3008         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
3009     (build-system gnu-build-system)
3010     (arguments
3011      `(#:tests? #f)) ; no check target
3012     (home-page "https://icon-theme.freedesktop.org/releases/")
3013     (synopsis
3014      "Freedesktop icon theme")
3015     (description
3016      "Freedesktop icon theme.")
3017     (license license:gpl2)))
3018
3019 (define-public libnotify
3020   (package
3021     (name "libnotify")
3022     (version "0.7.9")
3023     (source
3024      (origin
3025        (method url-fetch)
3026        (uri (string-append "mirror://gnome/sources/" name "/"
3027                            (version-major+minor version)  "/"
3028                            name "-" version ".tar.xz"))
3029        (sha256
3030         (base32
3031          "0qa7cx6ra5hwqnxw95b9svgjg5q6ynm8y843iqjszxvds5z53h36"))))
3032     (build-system meson-build-system)
3033     (arguments
3034      `(#:phases
3035        (modify-phases %standard-phases
3036          (add-after 'unpack 'fix-docbook
3037            (lambda* (#:key inputs #:allow-other-keys)
3038              ;; Don't attempt to download XSL schema.
3039              (substitute* "meson.build"
3040                (("http://docbook.sourceforge.net/release/xsl-ns/current\
3041 /manpages/docbook.xsl")
3042                 (string-append (assoc-ref inputs "docbook-xsl")
3043                                "/xml/xsl/docbook-xsl-"
3044                                ,(package-version docbook-xsl)
3045                                "/manpages/docbook.xsl")))
3046              #t)))))
3047     (propagated-inputs
3048      `(;; In Requires of libnotify.pc.
3049        ("gdk-pixbuf" ,gdk-pixbuf)
3050        ("glib" ,glib)))
3051     (inputs
3052      `(("gtk+" ,gtk+)
3053        ("libpng" ,libpng)))
3054     (native-inputs
3055      `(("pkg-config" ,pkg-config)
3056        ("glib" ,glib "bin")
3057        ("gobject-introspection" ,gobject-introspection)
3058
3059        ;; For the documentation.
3060        ("gtk-doc" ,gtk-doc/stable)
3061        ("xsltproc" ,libxslt)
3062        ("docbook-xsl" ,docbook-xsl)))
3063     (home-page "https://developer-next.gnome.org/libnotify/")
3064     (synopsis
3065      "GNOME desktop notification library")
3066     (description
3067      "Libnotify is a library that sends desktop notifications to a
3068 notification daemon, as defined in the Desktop Notifications spec.  These
3069 notifications can be used to inform the user about an event or display
3070 some form of information without getting in the user's way.")
3071     (license license:lgpl2.1+)))
3072
3073 (define-public libpeas
3074   (package
3075     (name "libpeas")
3076     (version "1.28.0")
3077     (source
3078      (origin
3079       (method url-fetch)
3080       (uri (string-append "mirror://gnome/sources/" name "/"
3081                           (version-major+minor version)  "/"
3082                           name "-" version ".tar.xz"))
3083       (sha256
3084        (base32
3085         "05cb7drn6arc4gi02wgsvzibigi2riz5gnfnmlb0zmbfnj9ikna2"))))
3086     (build-system meson-build-system)
3087     (arguments
3088      '(#:phases
3089        (modify-phases %standard-phases
3090          (add-before 'check 'start-xserver
3091            (lambda* (#:key inputs #:allow-other-keys)
3092              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3093                    (disp ":1"))
3094                (setenv "DISPLAY" disp)
3095                ;; Tests require a running X server.
3096                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3097                #t))))))
3098     (inputs
3099      `(("gtk+" ,gtk+)
3100        ("glade" ,glade3)
3101        ("python" ,python)
3102        ("python-pygobject" ,python-pygobject)))
3103     (native-inputs
3104      `(("pkg-config" ,pkg-config)
3105        ("gettext" ,gettext-minimal)
3106        ("glib:bin" ,glib "bin")
3107        ("gobject-introspection" ,gobject-introspection)
3108        ("xorg-server" ,xorg-server-for-tests)))
3109     (propagated-inputs
3110      ;; The .pc file "Requires" gobject-introspection.
3111      `(("gobject-introspection" ,gobject-introspection)))
3112     (home-page "https://wiki.gnome.org/Libpeas")
3113     (synopsis "GObject plugin system")
3114     (description
3115      "Libpeas is a gobject-based plugin engine, targeted at giving every
3116 application the chance to assume its own extensibility.  It also has a set of
3117 features including, but not limited to: multiple extension points; on-demand
3118 (lazy) programming language support for C, Python and JS; simplicity of the
3119 API.")
3120     (license license:lgpl2.0+)))
3121
3122 (define-public gtkglext
3123   (package
3124     (name "gtkglext")
3125     (version "1.2.0")
3126     (source (origin
3127               (method url-fetch)
3128               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
3129                                   version "/gtkglext-" version ".tar.gz"))
3130               (sha256
3131                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
3132               (patches (search-patches
3133                         "gtkglext-disable-disable-deprecated.patch"))))
3134     (build-system gnu-build-system)
3135     (arguments
3136      `(#:phases
3137        (modify-phases %standard-phases
3138          ;; Fix a collision between a local variable and a definition from
3139          ;; glibc's string.h.
3140          (add-after 'unpack 'fix-collision
3141            (lambda _
3142              (substitute* "gdk/gdkglshapes.c"
3143                ((" index") " triangle_index"))
3144              #t)))))
3145     (inputs `(("gtk+" ,gtk+-2)
3146               ("mesa" ,mesa)
3147               ("glu" ,glu)
3148               ("libx11" ,libx11)
3149               ("libxt" ,libxt)))
3150     (native-inputs `(("pkg-config" ,pkg-config)
3151                      ("glib" ,glib "bin")))
3152     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
3153     (home-page "https://projects.gnome.org/gtkglext")
3154     (synopsis "OpenGL extension to GTK+")
3155     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
3156 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3157 API add-ons to make GTK+ widgets OpenGL-capable.")
3158     (license license:lgpl2.1+)))
3159
3160 (define-public glade3
3161   (package
3162     (name "glade")
3163     (version "3.36.0")
3164     (source (origin
3165               (method url-fetch)
3166               (uri (string-append "mirror://gnome/sources/" name "/"
3167                                   (version-major+minor version)  "/"
3168                                   name "-" version ".tar.xz"))
3169               (sha256
3170                (base32
3171                 "023gx8rj51njn8fsb6ma5kz1irjpxi4js0n8rwy22inc4ysldd8r"))))
3172     (build-system glib-or-gtk-build-system)
3173     (arguments
3174      `(#:phases
3175        (modify-phases %standard-phases
3176          (add-before 'configure 'fix-docbook
3177            (lambda* (#:key inputs #:allow-other-keys)
3178              (substitute* "man/Makefile.in"
3179                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
3180                 (string-append (assoc-ref inputs "docbook-xsl")
3181                                "/xml/xsl/docbook-xsl-"
3182                                ,(package-version docbook-xsl)
3183                                "/manpages/docbook.xsl")))
3184              #t))
3185          (add-before 'check 'pre-check
3186            (lambda _
3187              (setenv "HOME" "/tmp")
3188              ;; Tests require a running X server.
3189              (system "Xvfb :1 &")
3190              (setenv "DISPLAY" ":1")
3191              #t)))))
3192     (inputs
3193      `(("gtk+" ,gtk+)
3194        ("libxml2" ,libxml2)))
3195     (native-inputs
3196      `(("hicolor-icon-theme" ,hicolor-icon-theme)
3197        ("intltool" ,intltool)
3198        ("itstool" ,itstool)
3199        ("libxslt" ,libxslt) ;for xsltproc
3200        ("docbook-xml" ,docbook-xml-4.2)
3201        ("docbook-xsl" ,docbook-xsl)
3202        ("python" ,python-2)
3203        ("pkg-config" ,pkg-config)
3204        ("xorg-server" ,xorg-server-for-tests)))
3205     (home-page "https://glade.gnome.org")
3206     (synopsis "GTK+ rapid application development tool")
3207     (description "Glade is a rapid application development (RAD) tool to
3208 enable quick & easy development of user interfaces for the GTK+ toolkit and
3209 the GNOME desktop environment.")
3210     (license license:lgpl2.0+)
3211     (native-search-paths (list (search-path-specification
3212                                 (variable "GLADE_CATALOG_SEARCH_PATH")
3213                                 (files '("share/glade/catalogs")))
3214                                (search-path-specification
3215                                 (variable "GLADE_MODULE_SEARCH_PATH")
3216                                 (files '("lib/glade/modules")))))))
3217
3218 (define-public libcroco
3219   (package
3220     (name "libcroco")
3221     (version "0.6.13")
3222     (source (origin
3223               (method url-fetch)
3224               (uri (string-append "mirror://gnome/sources/" name "/"
3225                                   (version-major+minor version)  "/"
3226                                   name "-" version ".tar.xz"))
3227               (sha256
3228                (base32
3229                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
3230     (replacement libcroco/fixed)
3231     (build-system gnu-build-system)
3232     (native-inputs
3233      `(("pkg-config" ,pkg-config)))
3234     (inputs
3235      `(("glib" ,glib)
3236        ("libxml2" ,libxml2)
3237        ("zlib" ,zlib)))
3238     (home-page "https://github.com/GNOME/libcroco")
3239     (synopsis "CSS2 parsing and manipulation library")
3240     (description
3241      "Libcroco is a standalone CSS2 parsing and manipulation library.
3242 The parser provides a low level event driven SAC-like API and a CSS object
3243 model like API.  Libcroco provides a CSS2 selection engine and an experimental
3244 XML/CSS rendering engine.")
3245
3246     ;; LGPLv2.1-only.
3247     (license license:lgpl2.1)))
3248
3249 (define libcroco/fixed
3250   (package
3251     (inherit libcroco)
3252     (name "libcroco")
3253     (version "0.6.13")
3254     (source (origin
3255               (method url-fetch)
3256               (uri (string-append "mirror://gnome/sources/" name "/"
3257                                   (version-major+minor version)  "/"
3258                                   name "-" version ".tar.xz"))
3259               (sha256
3260                (base32
3261                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))
3262               (patches (search-patches "libcroco-CVE-2020-12825.patch"))))))
3263
3264 (define-public libgsf
3265   (package
3266     (name "libgsf")
3267     (version "1.14.47")
3268     (source (origin
3269               (method url-fetch)
3270               (uri (string-append "mirror://gnome/sources/" name "/"
3271                                   (version-major+minor version)  "/"
3272                                   name "-" version ".tar.xz"))
3273               (sha256
3274                (base32
3275                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
3276     (build-system gnu-build-system)
3277     (arguments
3278      '(#:configure-flags '("--disable-static")))
3279     (native-inputs
3280      `(("pkg-config" ,pkg-config)
3281        ("gettext" ,gettext-minimal)
3282
3283        ;; For tests.
3284        ("perl" ,perl)
3285        ("perl-xml-parser" ,perl-xml-parser)))
3286     (inputs
3287      `(("zlib" ,zlib)
3288        ("bzip2" ,bzip2)))
3289     (propagated-inputs
3290      `(("gdk-pixbuf" ,gdk-pixbuf)
3291        ("glib" ,glib)
3292        ("libxml2" ,libxml2)))
3293     (home-page "https://www.gnome.org/projects/libgsf")
3294     (synopsis "GNOME's Structured File Library")
3295     (description
3296      "Libgsf aims to provide an efficient extensible I/O abstraction for
3297 dealing with different structured file formats.")
3298
3299     ;; LGPLv2.1-only.
3300     (license license:lgpl2.1)))
3301
3302 (define-public librsvg
3303   (package
3304     (name "librsvg")
3305     (version "2.40.21")
3306     (source (origin
3307               (method url-fetch)
3308               (uri (string-append "mirror://gnome/sources/" name "/"
3309                                   (version-major+minor version)  "/"
3310                                   name "-" version ".tar.xz"))
3311               (sha256
3312                (base32
3313                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
3314     (build-system gnu-build-system)
3315     (arguments
3316      `(#:configure-flags
3317        (list "--disable-static"
3318              "--enable-vala") ; needed for e.g. gnome-mines
3319        #:phases
3320        (modify-phases %standard-phases
3321          (add-before 'configure 'pre-configure
3322            (lambda* (#:key inputs #:allow-other-keys)
3323              (substitute* "gdk-pixbuf-loader/Makefile.in"
3324                ;; By default the gdk-pixbuf loader is installed under
3325                ;; gdk-pixbuf's prefix.  Work around that.
3326                (("gdk_pixbuf_moduledir = .*$")
3327                 (string-append "gdk_pixbuf_moduledir = "
3328                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3329                                 "loaders\n"))
3330                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3331                (("gdk_pixbuf_cache_file = .*$")
3332                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3333              #t))
3334          (add-before 'check 'remove-failing-tests
3335            (lambda _
3336              (with-directory-excursion "tests/fixtures/reftests"
3337                (for-each delete-file
3338                          '(;; This test fails on i686:
3339                            "svg1.1/masking-path-04-b.svg"
3340                            ;; This test fails on armhf:
3341                            "svg1.1/masking-mask-01-b.svg"
3342                            ;; This test fails on aarch64:
3343                            "bugs/777834-empty-text-children.svg")))
3344              #t)))))
3345     (native-inputs
3346      `(("pkg-config" ,pkg-config)
3347        ("vala" ,vala)
3348        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
3349        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
3350     (inputs
3351      `(;; XXX: 1.44 causes some test failures, so we stick with 1.42 for
3352        ;; this ancient version of librsvg.
3353        ("pango" ,pango-1.42)
3354        ("libcroco" ,libcroco)
3355        ("bzip2" ,bzip2)
3356        ("libgsf" ,libgsf)
3357        ("libxml2" ,libxml2)))
3358     (propagated-inputs
3359      ;; librsvg-2.0.pc refers to all of that.
3360      `(("cairo" ,cairo)
3361        ("gdk-pixbuf" ,gdk-pixbuf)
3362        ("glib" ,glib)))
3363     (home-page "https://wiki.gnome.org/LibRsvg")
3364     (synopsis "Render SVG files using Cairo")
3365     (description
3366      "Librsvg is a C library to render SVG files using the Cairo 2D graphics
3367 library.")
3368     (license license:lgpl2.0+)))
3369
3370 (define-public librsvg-next
3371   (package
3372     (name "librsvg")
3373     (version "2.50.2")
3374     (source (origin
3375               (method url-fetch)
3376               (uri (string-append "mirror://gnome/sources/librsvg/"
3377                                   (version-major+minor version)  "/"
3378                                   "librsvg-" version ".tar.xz"))
3379               (sha256
3380                (base32
3381                 "1lsnl08b5pjf01q3agixjd53islw5rqkc38r31rlmm2crrqz44b2"))
3382               (modules '((guix build utils)))
3383               (snippet
3384                '(begin (delete-file-recursively "vendor")
3385                        #t))))
3386     (build-system cargo-build-system)
3387     (outputs '("out" "doc"))
3388     (arguments
3389      `(#:install-source? #f
3390        #:modules
3391        ((guix build cargo-build-system)
3392         (guix build utils)
3393         ((guix build gnu-build-system) #:prefix gnu:))
3394        #:cargo-inputs
3395        (("rust-bitflags" ,rust-bitflags-1)
3396         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3397         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
3398         ("rust-cast" ,rust-cast-0.2)
3399         ("rust-cssparser" ,rust-cssparser-0.27)
3400         ("rust-data-url" ,rust-data-url-0.1)
3401         ("rust-encoding" ,rust-encoding-0.2)
3402         ("rust-float-cmp" ,rust-float-cmp-0.8)
3403         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
3404         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
3405         ("rust-gio" ,rust-gio-0.8)
3406         ("rust-gio-sys" ,rust-gio-sys-0.9)
3407         ("rust-glib" ,rust-glib-0.9)
3408         ("rust-glib-sys" ,rust-glib-sys-0.9)
3409         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
3410         ("rust-itertools" ,rust-itertools-0.9)
3411         ("rust-language-tags" ,rust-language-tags-0.2)
3412         ("rust-libc" ,rust-libc-0.2)
3413         ("rust-locale-config" ,rust-locale-config-0.3)
3414         ("rust-markup5ever" ,rust-markup5ever-0.10)
3415         ("rust-nalgebra" ,rust-nalgebra-0.21)
3416         ("rust-num-traits" ,rust-num-traits-0.2)
3417         ("rust-once-cell" ,rust-once-cell-1)
3418         ("rust-pkg-config" ,rust-pkg-config-0.3)
3419         ("rust-pango" ,rust-pango-0.8)
3420         ("rust-pango-sys" ,rust-pango-sys-0.9)
3421         ("rust-pangocairo" ,rust-pangocairo-0.9)
3422         ("rust-rayon" ,rust-rayon-1)
3423         ("rust-rctree" ,rust-rctree-0.3)
3424         ("rust-rgb" ,rust-rgb-0.8)
3425         ("rust-regex" ,rust-regex-1)
3426         ("rust-selectors" ,rust-selectors-0.22)
3427         ("rust-string-cache" ,rust-string-cache-0.8)
3428         ("rust-tinyvec" ,rust-tinyvec-0.3)
3429         ("rust-url" ,rust-url-2)
3430         ("rust-xml5ever" ,rust-xml5ever-0.16))
3431        #:cargo-development-inputs
3432        (("rust-assert-cmd" ,rust-assert-cmd-1)
3433         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3434         ("rust-chrono" ,rust-chrono-0.4)
3435         ("rust-criterion" ,rust-criterion-0.3)
3436         ("rust-float-cmp" ,rust-float-cmp-0.8)
3437         ("rust-lopdf" ,rust-lopdf-0.25)
3438         ("rust-png" ,rust-png-0.16)
3439         ("rust-predicates" ,rust-predicates-1)
3440         ("rust-tempfile" ,rust-tempfile-3))
3441        #:phases
3442        (modify-phases %standard-phases
3443          (add-after 'unpack 'patch-docbook-xml
3444            (lambda* (#:key inputs #:allow-other-keys)
3445              (with-directory-excursion "doc"
3446                (substitute* "rsvg-docs.xml"
3447                  (("http://www.oasis-open.org/docbook/xml/4.3/")
3448                   (string-append (assoc-ref inputs "docbook-xml")
3449                                  "/xml/dtd/docbook/"))))
3450              #t))
3451          (add-after 'unpack 'prepare-for-build
3452            (lambda _
3453              ;; In lieu of #:make-flags
3454              (setenv "CC" ,(cc-for-target))
3455              ;; Something about the build environment resists building
3456              ;; successfully with the '--locked' flag.
3457              (substitute* '("Makefile.am" "Makefile.in")
3458                (("--locked") ""))
3459              #t))
3460          (add-before 'configure 'pre-configure
3461            (lambda _
3462              (substitute* "gdk-pixbuf-loader/Makefile.in"
3463                ;; By default the gdk-pixbuf loader is installed under
3464                ;; gdk-pixbuf's prefix.  Work around that.
3465                (("gdk_pixbuf_moduledir = .*$")
3466                 (string-append "gdk_pixbuf_moduledir = "
3467                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3468                                "loaders\n"))
3469                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3470                (("gdk_pixbuf_cache_file = .*$")
3471                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3472              #t))
3473          (add-after 'configure 'gnu-configure
3474            (lambda* (#:key inputs native-inputs outputs #:allow-other-keys)
3475              ((assoc-ref gnu:%standard-phases 'configure)
3476               #:native-inputs native-inputs
3477               #:inputs inputs
3478               #:outputs outputs
3479               #:configure-flags
3480               (list "--disable-static"
3481                     "--enable-vala"
3482                (string-append "--with-html-dir="
3483                               (assoc-ref %outputs "doc")
3484                               "/share/gtk-doc/html")))))
3485          (add-after 'configure 'dont-vendor-self
3486            (lambda* (#:key vendor-dir #:allow-other-keys)
3487              ;; Don't keep the whole tarball in the vendor directory
3488              (delete-file-recursively
3489               (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))
3490              #t))
3491          (replace 'build
3492            (assoc-ref gnu:%standard-phases 'build))
3493          (add-before 'check 'ignore-failing-tests
3494            ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3495            (lambda _
3496              (substitute* "tests/src/cmdline/rsvg_convert.rs"
3497                (("fn background_color_option_invalid_color_yields_error" all)
3498                 (string-append "#[ignore] " all))
3499                (("fn empty_input_yields_error" all)
3500                 (string-append "#[ignore] " all))
3501                (("fn empty_svg_yields_error" all)
3502                 (string-append "#[ignore] " all))
3503                (("fn env_source_data_epoch_empty" all)
3504                 (string-append "#[ignore] " all))
3505                (("fn env_source_data_epoch_no_digits" all)
3506                 (string-append "#[ignore] " all))
3507                (("fn env_source_data_epoch_trailing_garbage" all)
3508                 (string-append "#[ignore] " all))
3509                (("fn export_id_option_error" all)
3510                 (string-append "#[ignore] " all))
3511                (("fn huge_zoom_factor_yields_error" all)
3512                 (string-append "#[ignore] " all))
3513                (("fn multiple_input_files_not_allowed_for_png_output" all)
3514                 (string-append "#[ignore] " all))
3515                (("fn stylesheet_option_error" all)
3516                 (string-append "#[ignore] " all)))
3517              #t))
3518          (replace 'check
3519            (lambda* args
3520              ((assoc-ref gnu:%standard-phases 'check)
3521               #:test-target "check")))
3522          (replace 'install
3523            (assoc-ref gnu:%standard-phases 'install)))))
3524     (native-inputs
3525      `(("docbook-xml" ,docbook-xml-4.3)
3526        ("glib" ,glib "bin")
3527        ("gobject-introspection" ,gobject-introspection)
3528        ("pkg-config" ,pkg-config)
3529        ("python" ,python-wrapper)
3530        ("ruby" ,ruby)
3531        ("vala" ,vala)))
3532     (inputs
3533      `(("bzip2" ,bzip2)
3534        ("fontconfig" ,fontconfig)
3535        ("freetype" ,freetype)
3536        ("harfbuzz" ,harfbuzz)
3537        ("libcroco" ,libcroco)
3538        ("libgsf" ,libgsf)
3539        ("libxml2" ,libxml2)
3540        ("pango" ,pango)))
3541     (propagated-inputs
3542      `(("cairo" ,cairo)
3543        ("gdk-pixbuf" ,gdk-pixbuf)
3544        ("glib" ,glib)))
3545     (synopsis "SVG rendering library")
3546     (description "Librsvg is a library to render SVG images to Cairo surfaces.
3547 GNOME uses this to render SVG icons.  Outside of GNOME, other desktop
3548 environments use it for similar purposes.  Wikimedia uses it for Wikipedia's SVG
3549 diagrams.")
3550     (home-page "https://wiki.gnome.org/LibRsvg")
3551     (license license:lgpl2.1+)))
3552
3553 (define-public libidl
3554   (package
3555     (name "libidl")
3556     (version "0.8.14")
3557     (source (origin
3558               (method url-fetch)
3559               (uri (string-append "mirror://gnome/sources/libIDL/"
3560                                   (version-major+minor version) "/"
3561                                   "libIDL-" version ".tar.bz2"))
3562               (sha256
3563                (base32
3564                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3565     (build-system gnu-build-system)
3566     (inputs `(("glib" ,glib)))
3567     (native-inputs
3568      `(("pkg-config" ,pkg-config)
3569        ("flex" ,flex)
3570        ("bison" ,bison)))
3571     (home-page "http://freecode.com/projects/libidl")
3572     (synopsis "Create trees of CORBA Interface Definition Language files")
3573     (description  "Libidl is a library for creating trees of CORBA Interface
3574 Definition Language (idl) files, which is a specification for defining
3575 portable interfaces. libidl was initially written for orbit (the orb from the
3576 GNOME project, and the primary means of libidl distribution).  However, the
3577 functionality was designed to be as reusable and portable as possible.")
3578     (properties `((upstream-name . "libIDL")))
3579     (license license:lgpl2.0+)))
3580
3581
3582 (define-public orbit2
3583   (package
3584     (name "orbit2")
3585     (version "2.14.19")
3586     (source (origin
3587               (method url-fetch)
3588               (uri (let ((upstream-name "ORBit2"))
3589                      (string-append "mirror://gnome/sources/" upstream-name "/"
3590                                     (version-major+minor version) "/"
3591                                     upstream-name "-" version ".tar.bz2")))
3592               (sha256
3593                (base32
3594                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
3595     (build-system gnu-build-system)
3596     (arguments
3597      `(;; The "timeout-server" test hangs when run in parallel.
3598        #:parallel-tests? #f
3599        #:configure-flags
3600        '(;; We don't need static libraries, plus they don't build reproducibly
3601          ;; (non-deterministic ordering of .o files in the archive.)
3602          "--disable-static"
3603
3604          ;; The programmer kindly gives us a hook to turn off deprecation
3605          ;; warnings ...
3606          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3607        ;; ... which they then completly ignore !!
3608        #:phases
3609        (modify-phases %standard-phases
3610          (add-before 'configure 'ignore-deprecations
3611            (lambda _
3612              (substitute* "linc2/src/Makefile.in"
3613                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3614              #t)))))
3615     (inputs `(("glib" ,glib)
3616               ("libidl" ,libidl)))
3617     (native-inputs
3618      `(("pkg-config" ,pkg-config)))
3619     (home-page "https://projects.gnome.org/orbit2/")
3620     (synopsis "CORBA 2.4-compliant Object Request Broker")
3621     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
3622 featuring mature C, C++ and Python bindings.")
3623     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
3624     ;; a version.  SOME of the code files have licence notices for GPLv2+.
3625     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
3626     (license license:gpl2+)
3627     (properties `((upstream-name . "ORBit2")))))
3628
3629
3630 (define-public libbonobo
3631   (package
3632     (name "libbonobo")
3633     (version "2.32.1")
3634     (source (origin
3635               (method url-fetch)
3636               (uri (string-append "mirror://gnome/sources/" name "/"
3637                                   (version-major+minor version)
3638                                   "/" name "-" version ".tar.bz2"))
3639               (sha256
3640                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
3641               (patches (search-patches
3642                         "libbonobo-activation-test-race.patch"))))
3643     (build-system gnu-build-system)
3644     (arguments
3645      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
3646      `(#:configure-flags
3647        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3648        ;; ... which they then completly ignore !!
3649        #:phases
3650        (modify-phases %standard-phases
3651          (add-before 'configure 'ignore-deprecations
3652            (lambda _
3653              (substitute* "activation-server/Makefile.in"
3654                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3655              #t)))
3656
3657        ;; There's apparently a race condition between the server stub
3658        ;; generation and linking of the example under 'samples/echo' that can
3659        ;; lead do undefined references when building in parallel, as reported
3660        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3661        ;; Thus, disable parallel builds.
3662        #:parallel-build? #f))
3663     (inputs `(("popt" ,popt)
3664               ("libxml2" ,libxml2)))
3665     ;; The following are Required by the .pc file
3666     (propagated-inputs
3667      `(("glib" ,glib)
3668        ("orbit2" ,orbit2)))
3669     (native-inputs
3670      `(("intltool" ,intltool)
3671        ("pkg-config" ,pkg-config)
3672        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3673        ("flex" ,flex)
3674        ("bison" ,bison)))
3675     (home-page "https://developer.gnome.org/libbonobo/")
3676     (synopsis "Framework for creating reusable components for use in GNOME applications")
3677     (description "Bonobo is a framework for creating reusable components for
3678 use in GNOME applications, built on top of CORBA.")
3679     ;; Licence not explicitly stated.  Source files contain no licence notices.
3680     ;; Tarball contains text of both GPLv2 and LGPLv2
3681     ;; GPLv2 covers both conditions
3682     (license license:gpl2+)))
3683
3684
3685 (define-public gconf
3686   (package
3687     (name "gconf")
3688     (version "3.2.6")
3689     (source (origin
3690               (method url-fetch)
3691               (uri
3692                (let ((upstream-name "GConf"))
3693                  (string-append "mirror://gnome/sources/" upstream-name "/"
3694                                 (version-major+minor version) "/"
3695                                 upstream-name "-" version ".tar.xz")))
3696               (sha256
3697                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3698     (build-system gnu-build-system)
3699     (inputs `(("dbus-glib" ,dbus-glib)
3700               ("libxml2" ,libxml2)))
3701     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
3702                          ("orbit2" ,orbit2)))
3703     (native-inputs
3704      `(("intltool" ,intltool)
3705        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3706        ("pkg-config" ,pkg-config)))
3707     (home-page "https://projects.gnome.org/gconf/")
3708     (synopsis "Store application preferences")
3709     (description "Gconf is a system for storing application preferences.  It
3710 is intended for user preferences; not arbitrary data storage.")
3711     (license license:lgpl2.0+)
3712     (properties '((upstream-name . "GConf")))))
3713
3714
3715 (define-public gnome-mime-data
3716   (package
3717     (name "gnome-mime-data")
3718     (version "2.18.0")
3719     (source (origin
3720               (method url-fetch)
3721               (uri (string-append "mirror://gnome/sources/" name "/"
3722                                   (version-major+minor version)  "/"
3723                                   name "-" version ".tar.bz2"))
3724               (sha256
3725                (base32
3726                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3727     (build-system gnu-build-system)
3728     (native-inputs
3729      `(("perl" ,perl)
3730        ("intltool" ,intltool)))
3731     (arguments
3732      '(#:phases (modify-phases %standard-phases
3733                   (add-after 'configure 'use-our-intltool
3734                     (lambda _
3735                       ;; Do not use the bundled intltool commands, which lack
3736                       ;; the "dotless @INC" fixes of our 'intltool' package.
3737                       (substitute* (find-files "." "^Makefile$")
3738                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3739                          (string-append "INTLTOOL_" tool " = intltool-"
3740                                         (string-downcase tool) "\n")))
3741                       #t)))))
3742     (home-page "https://www.gnome.org")
3743     (synopsis "Base MIME and Application database for GNOME")
3744     (description  "GNOME Mime Data is a module which contains the base MIME
3745 and Application database for GNOME.  The data stored by this module is
3746 designed to be accessed through the MIME functions in GnomeVFS.")
3747     (license license:gpl2+)))
3748
3749
3750 (define-public gnome-vfs
3751   (package
3752     (name "gnome-vfs")
3753     (version "2.24.4")
3754     (source (origin
3755               (method url-fetch)
3756               (uri (string-append "mirror://gnome/sources/" name "/"
3757                                   (version-major+minor version)  "/"
3758                                   name "-" version ".tar.bz2"))
3759               (sha256
3760                (base32
3761                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
3762     (build-system gnu-build-system)
3763     (arguments
3764      `(#:phases
3765        (modify-phases %standard-phases
3766          (add-before 'configure 'ignore-deprecations
3767            (lambda _
3768              (substitute* '("libgnomevfs/Makefile.in"
3769                             "daemon/Makefile.in")
3770                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3771              #t))
3772          (add-before 'configure 'patch-test-async-cancel-to-never-fail
3773            (lambda _
3774              (substitute* "test/test-async-cancel.c"
3775                (("EXIT_FAILURE") "77"))
3776              #t)))))
3777     (inputs `(("libxml2" ,libxml2)
3778               ("dbus-glib" ,dbus-glib)
3779               ("gconf" ,gconf)
3780               ("gnome-mime-data" ,gnome-mime-data)
3781               ("zlib" ,zlib)))
3782     (native-inputs
3783      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3784        ("intltool" ,intltool)
3785        ("pkg-config" ,pkg-config)))
3786     (home-page "https://developer.gnome.org/gnome-vfs/")
3787     (synopsis "Access files and folders in GNOME applications")
3788     (description
3789      "GnomeVFS is the core library used to access files and folders in GNOME
3790 applications.  It provides a file system abstraction which allows applications
3791 to access local and remote files with a single consistent API.")
3792     (license license:lgpl2.0+)))
3793
3794
3795
3796 (define-public libgnome
3797   (package
3798     (name "libgnome")
3799     (version "2.32.1")
3800     (source (origin
3801               (method url-fetch)
3802               (uri (string-append "mirror://gnome/sources/" name "/"
3803                                   (version-major+minor version)  "/"
3804                                   name "-" version ".tar.bz2"))
3805               (sha256
3806                (base32
3807                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3808               (patches (search-patches "libgnome-encoding.patch"))))
3809     (build-system gnu-build-system)
3810     (arguments
3811      `(#:phases
3812        (modify-phases %standard-phases
3813          (add-before 'configure 'enable-deprecated
3814            (lambda _
3815              (substitute* "libgnome/Makefile.in"
3816                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3817              #t)))))
3818     (inputs `(("libxml2" ,libxml2)))
3819     (native-inputs
3820      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3821        ("intltool" ,intltool)
3822        ("pkg-config" ,pkg-config)))
3823     ;; The following are listed as Required in the .pc file
3824     ;; (except for libcanberra -- which seems to be oversight on the part
3825     ;; of the upstream developers -- anything that links against libgnome,
3826     ;; must also link against libcanberra
3827     (propagated-inputs
3828      `(("libcanberra" ,libcanberra)
3829        ("libbonobo" ,libbonobo)
3830        ("gconf" ,gconf)
3831        ("gnome-vfs" ,gnome-vfs)
3832        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
3833     (home-page "https://developer.gnome.org/libgnome/")
3834     (synopsis "Useful routines for building applications")
3835     (description  "The libgnome library provides a number of useful routines
3836 for building modern applications, including session management, activation of
3837 files and URIs, and displaying help.")
3838     (license license:lgpl2.0+)))
3839
3840
3841 (define-public libart-lgpl
3842   (package
3843     (name "libart-lgpl")
3844     (version "2.3.21")
3845     (source (origin
3846               (method url-fetch)
3847               (uri (let ((upstream-name "libart_lgpl"))
3848                      (string-append "mirror://gnome/sources/" upstream-name "/"
3849                                     (version-major+minor version) "/"
3850                                     upstream-name "-" version ".tar.bz2")))
3851               (sha256
3852                (base32
3853                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
3854     (build-system gnu-build-system)
3855     (native-inputs
3856      `(("pkg-config" ,pkg-config)))
3857     (home-page "https://people.gnome.org/~mathieu/libart")
3858     (synopsis "2D drawing library")
3859     (description  "Libart is a 2D drawing library intended as a
3860 high-quality vector-based 2D library with antialiasing and alpha composition.")
3861     (license license:lgpl2.0+)))
3862
3863
3864
3865 (define-public libgnomecanvas
3866   (package
3867     (name "libgnomecanvas")
3868     (version "2.30.3")
3869     (source (origin
3870               (method url-fetch)
3871               (uri (string-append "mirror://gnome/sources/" name "/"
3872                                   (version-major+minor version)  "/"
3873                                   name "-" version ".tar.gz"))
3874               (sha256
3875                (base32
3876                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
3877     (build-system gnu-build-system)
3878     ;; Mentioned as Required in the .pc file
3879     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
3880                          ("gtk+" ,gtk+-2)))
3881     (native-inputs
3882      `(("intltool" ,intltool)
3883        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3884        ("pkg-config" ,pkg-config)))
3885     (home-page "https://developer.gnome.org/libgnomecanvas/")
3886     (synopsis "Flexible widget for creating interactive structured graphics")
3887     (description  "The GnomeCanvas widget provides a flexible widget for
3888 creating interactive structured graphics.")
3889     (license license:lgpl2.0+)))
3890
3891 (define-public libgnomecanvasmm
3892   (package
3893     (name "libgnomecanvasmm")
3894     (version "2.26.0")
3895     (source (origin
3896               (method url-fetch)
3897               (uri (string-append "mirror://gnome/sources/" name "/"
3898                                   (version-major+minor version)  "/"
3899                                   name "-" version ".tar.bz2"))
3900               (sha256
3901                (base32
3902                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
3903     (build-system gnu-build-system)
3904     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
3905     (native-inputs
3906      `(("gtkmm-2" ,gtkmm-2)
3907        ("pkg-config" ,pkg-config)))
3908     (home-page "https://gtkmm.org")
3909     (synopsis "C++ bindings to the GNOME Canvas library")
3910     (description "C++ bindings to the GNOME Canvas library.")
3911     (license license:lgpl2.0+)))
3912
3913 (define-public libgnomeui
3914   (package
3915     (name "libgnomeui")
3916     (version "2.24.5")
3917     (source (origin
3918               (method url-fetch)
3919               (uri (string-append "mirror://gnome/sources/" name "/"
3920                                   (version-major+minor version)  "/"
3921                                   name "-" version ".tar.bz2"))
3922               (patches (search-patches "libgnomeui-utf8.patch"))
3923               (sha256
3924                (base32
3925                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
3926     (build-system gnu-build-system)
3927     ;; Mentioned as Required in the .pc file
3928     (propagated-inputs `(("libbonoboui" ,libbonoboui)
3929                          ("libgnome" ,libgnome)
3930                          ("libgnomecanvas" ,libgnomecanvas)
3931                          ("libgnome-keyring" ,libgnome-keyring)))
3932     (inputs `(("libjpeg" ,libjpeg-turbo)
3933               ("popt" ,popt)
3934               ("libbonobo" ,libbonobo)
3935               ("libxml2" ,libxml2)
3936               ("libglade" ,libglade)))
3937     (native-inputs
3938      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3939        ("intltool" ,intltool)
3940        ("pkg-config" ,pkg-config)))
3941     (home-page "https://developer.gnome.org/libgnomeui/")
3942     (synopsis "Additional widgets for applications")
3943     (description "The libgnomeui library provides additional widgets for
3944 applications.  Many of the widgets from libgnomeui have already been
3945 ported to GTK+.")
3946     (license license:lgpl2.0+)))
3947
3948 (define-public libglade
3949   (package
3950     (name "libglade")
3951     (version "2.6.4")
3952     (source (origin
3953               (method url-fetch)
3954               (uri (string-append "mirror://gnome/sources/" name "/"
3955                                   (version-major+minor version)  "/"
3956                                   name "-" version ".tar.bz2"))
3957               (sha256
3958                (base32
3959                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
3960     (build-system gnu-build-system)
3961     (inputs
3962      `(("python" ,python))) ;; needed for the optional libglade-convert program
3963     (propagated-inputs
3964      `(("gtk+-2" ,gtk+-2)
3965        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
3966     (native-inputs
3967      `(("pkg-config" ,pkg-config)))
3968     (home-page "https://developer.gnome.org/libglade")
3969     (synopsis "Load glade interfaces and access the glade built widgets")
3970     (description "Libglade is a library that provides interfaces for loading
3971 graphical interfaces described in glade files and for accessing the
3972 widgets built in the loading process.")
3973     (license license:gpl2+))) ; This is correct.  GPL not LGPL
3974
3975 (define-public libgnomeprint
3976   ;; This library has been deprecated since 2006; see
3977   ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
3978   (package
3979     (name "libgnomeprint")
3980     (version "2.18.8")
3981     (source (origin
3982               (method url-fetch)
3983               (uri (string-append "mirror://gnome/sources/" name "/"
3984                                   (version-major+minor version)  "/"
3985                                   name "-" version ".tar.bz2"))
3986               (sha256
3987                (base32
3988                 "14cnimvlc7ky22g2snyf4362412k3jk1syjf8b9887q5a63fqd0h"))))
3989     (build-system gnu-build-system)
3990     (inputs
3991      `(("popt" ,popt)
3992        ("libart-lgpl" ,libart-lgpl)
3993        ("gtk+" ,gtk+-2)
3994        ("libxml2" ,libxml2)))
3995     (native-inputs
3996      `(("intltool" ,intltool)
3997        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3998        ("pkg-config" ,pkg-config)))
3999     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
4000     (synopsis "Printing framework for GNOME")
4001     (description
4002      "GNOME-print was a printing framework for GNOME.  It has been deprecated
4003 since ca. 2006, when GTK+ itself incorporated printing support.")
4004     (license license:lgpl2.0+)))
4005
4006
4007 (define-public libgnomeprintui
4008   ;; Deprecated; see libgnomeprint.
4009   (package
4010     (name "libgnomeprintui")
4011     (version "2.18.6")
4012     (source (origin
4013               (method url-fetch)
4014               (uri (string-append "mirror://gnome/sources/" name "/"
4015                                   (version-major+minor version)  "/"
4016                                   name "-" version ".tar.bz2"))
4017               (sha256
4018                (base32
4019                 "0spl8vinb5n6n1krnfnr61dwaxidg67h8j94z9p59k2xdsvfashm"))))
4020     (build-system gnu-build-system)
4021     ;; Mentioned as Required in the .pc file
4022     (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
4023     (inputs `(("gtk+" ,gtk+-2)
4024               ("glib" ,glib)
4025               ("gnome-icon-theme" ,gnome-icon-theme)
4026               ("libgnomecanvas" ,libgnomecanvas)
4027               ("libxml2" ,libxml2)))
4028     (native-inputs
4029      `(("intltool" ,intltool)
4030        ("pkg-config" ,pkg-config)))
4031     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
4032     (synopsis "Printing framework for GNOME")
4033     (description (package-description libgnomeprint))
4034     (license license:lgpl2.0+)))
4035
4036 (define-public libbonoboui
4037   (package
4038     (name "libbonoboui")
4039     (version "2.24.5")
4040     (source (origin
4041               (method url-fetch)
4042               (uri (string-append "mirror://gnome/sources/" name "/"
4043                                   (version-major+minor version)  "/"
4044                                   name "-" version ".tar.bz2"))
4045               (sha256
4046                (base32
4047                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
4048     (build-system gnu-build-system)
4049     (arguments
4050      `(#:phases
4051        (modify-phases %standard-phases
4052          (add-before 'check 'start-xserver
4053            (lambda* (#:key inputs #:allow-other-keys)
4054              (let ((xorg-server (assoc-ref inputs "xorg-server"))
4055                    (disp ":1"))
4056
4057                (setenv "HOME" (getcwd))
4058                (setenv "DISPLAY" disp)
4059                ;; There must be a running X server and make check doesn't start one.
4060                ;; Therefore we must do it.
4061                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
4062     ;; Mentioned as Required by the .pc file
4063     (propagated-inputs `(("libxml2" ,libxml2)))
4064     (inputs
4065      `(("popt" ,popt)
4066        ("pangox-compat" ,pangox-compat)
4067        ("libgnome" ,libgnome)
4068        ("libgnomecanvas" ,libgnomecanvas)
4069        ("libglade" ,libglade)))
4070     (native-inputs
4071      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4072        ("intltool" ,intltool)
4073        ("xorg-server" ,xorg-server-for-tests) ; For running the tests
4074        ("pkg-config" ,pkg-config)))
4075     (home-page "https://developer.gnome.org/libbonoboui/")
4076     (synopsis "Some user interface controls using Bonobo")
4077     (description  "The Bonobo UI library provides a number of user interface
4078 controls using the Bonobo component framework.")
4079     (license license:lgpl2.0+)))
4080
4081 (define-public libwnck
4082   (package
4083     (name "libwnck")
4084     (version "3.32.0")
4085     (source (origin
4086               (method url-fetch)
4087               (uri (string-append "mirror://gnome/sources/" name "/"
4088                                   (version-major+minor version) "/"
4089                                   name "-" version ".tar.xz"))
4090               (sha256
4091                (base32
4092                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
4093     (build-system meson-build-system)
4094     (native-inputs
4095      `(("pkg-config" ,pkg-config)
4096        ("glib" ,glib "bin") ; for glib-mkenums
4097        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
4098        ("intltool" ,intltool)))
4099     (propagated-inputs
4100      `(("gtk+" ,gtk+)
4101        ("libxres" ,libxres)
4102        ("startup-notification" ,startup-notification)))
4103     (home-page "https://developer.gnome.org/libwnck/")
4104     (synopsis "Window Navigator Construction Kit")
4105     (description
4106      "Libwnck is the Window Navigator Construction Kit, a library for use in
4107 writing pagers, tasklists, and more generally applications that are dealing
4108 with window management.  It tries hard to respect the Extended Window Manager
4109 Hints specification (EWMH).")
4110     (license license:lgpl2.0+)))
4111
4112 ;; stable version for gtk2, required by xfwm4.
4113 (define-public libwnck-2
4114   (package (inherit libwnck)
4115     (name "libwnck")
4116     (version "2.30.7")
4117     (source (origin
4118               (method url-fetch)
4119               (uri (string-append "mirror://gnome/sources/" name "/"
4120                                   (version-major+minor version) "/"
4121                                   name "-" version ".tar.xz"))
4122               (sha256
4123                (base32
4124                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
4125     (build-system gnu-build-system)
4126     (native-inputs
4127      `(("pkg-config" ,pkg-config)
4128        ("intltool" ,intltool)))
4129     (propagated-inputs
4130      `(("gtk+" ,gtk+-2)
4131        ("libxres" ,libxres)
4132        ("startup-notification" ,startup-notification)))))
4133
4134 (define-public goffice
4135   (package
4136     (name "goffice")
4137     (version "0.10.49")
4138     (source (origin
4139               (method url-fetch)
4140               (uri (string-append "mirror://gnome/sources/goffice/"
4141                                   (version-major+minor version)  "/"
4142                                   "goffice-" version ".tar.xz"))
4143               (sha256
4144                (base32 "1s87ngs3g3nfvcn96aq4lgzx5cscbfg4n9f6ns2zpvc5ngdiiz2z"))))
4145     (build-system gnu-build-system)
4146     (outputs '("out"
4147                "doc"))                  ; 4.0 MiB of gtk-doc
4148     (arguments
4149      '(#:configure-flags (list (string-append "--with-html-dir="
4150                                               (assoc-ref %outputs "doc")
4151                                               "/share/gtk-doc/html"))))
4152     (inputs
4153      `(("gtk+" ,gtk+)
4154        ("libgsf" ,libgsf)
4155        ("librsvg" ,librsvg)
4156        ("libxslt" ,libxslt)
4157        ("libxml2" ,libxml2)))
4158     (native-inputs
4159      `(("intltool" ,intltool)
4160        ("glib" ,glib "bin")
4161        ("pkg-config" ,pkg-config)))
4162     (home-page "https://developer.gnome.org/goffice/")
4163     (synopsis "Document-centric objects and utilities")
4164     (description "A GLib/GTK+ set of document-centric objects and utilities.")
4165     (license
4166      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4167      ;; Note: NOT LGPL
4168      (list license:gpl2 license:gpl3))))
4169
4170 (define-public goffice-0.8
4171   (package (inherit goffice)
4172     (version "0.8.17")
4173     (source (origin
4174               (method url-fetch)
4175               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4176                                   (version-major+minor version)  "/"
4177                                   (package-name goffice) "-" version ".tar.xz"))
4178               (sha256
4179                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4180     (arguments
4181      `(#:phases
4182        (modify-phases %standard-phases
4183          (add-after 'unpack 'fix-pcre-check
4184            (lambda _
4185              ;; Only glib.h can be included directly.  See
4186              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4187              (substitute* "configure"
4188                (("glib/gregex\\.h") "glib.h")) #t)))
4189
4190        ,@(package-arguments goffice)))
4191     (propagated-inputs
4192      ;; libgoffice-0.8.pc mentions libgsf-1
4193      `(("libgsf" ,libgsf)))
4194     (inputs
4195      `(("gtk" ,gtk+-2)
4196        ,@(alist-delete "gtk" (package-inputs goffice))))))
4197
4198 (define-public gnumeric
4199   (package
4200     (name "gnumeric")
4201     (version "1.12.49")
4202     (source (origin
4203               (method url-fetch)
4204               (uri (string-append "mirror://gnome/sources/gnumeric/"
4205                                   (version-major+minor version)  "/"
4206                                   "gnumeric-" version ".tar.xz"))
4207               (sha256
4208                (base32
4209                 "0mzdhhpa7kwkc51l344g6vgqwaxkjdf03s7zasqh0bn3jpn75h4i"))))
4210     (build-system glib-or-gtk-build-system)
4211     (arguments
4212      `(;; The gnumeric developers don't worry much about failing tests.
4213        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
4214        #:tests? #f
4215        #:phases
4216        (modify-phases %standard-phases
4217          (add-before
4218           'configure 'pre-conf
4219            (lambda* (#:key outputs #:allow-other-keys)
4220              ;; Make install tries to write into the directory of goffice
4221              ;; I am informed that this only affects the possibility to embed a
4222              ;; spreadsheet inside an Abiword document.   So presumably when we
4223              ;; package Abiword we'll have to refer it to this directory.
4224              (substitute* "configure"
4225                (("^GOFFICE_PLUGINS_DIR=.*")
4226                 (string-append "GOFFICE_PLUGINS_DIR="
4227                                (assoc-ref outputs "out")
4228                                "/goffice/plugins"))))))))
4229     (inputs
4230      `(("glib" ,glib)
4231        ("gtk+" ,gtk+)
4232        ("goffice" ,goffice)
4233        ("libgsf" ,libgsf)
4234        ("librsvg" ,librsvg)
4235        ("libxml2" ,libxml2)
4236        ("libxslt" ,libxslt)
4237        ("python" ,python)
4238        ("python-pygobject" ,python-pygobject)
4239        ("zlib" ,zlib)))
4240     (native-inputs
4241      `(("bison" ,bison)
4242        ("docbook-xml" ,docbook-xml)
4243        ("intltool" ,intltool)
4244        ("itstool" ,itstool)
4245        ("glib:bin" ,glib "bin")
4246        ("pkg-config" ,pkg-config)))
4247     (home-page "http://www.gnumeric.org")
4248     (synopsis "Spreadsheet application")
4249     (description
4250      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
4251 interoperable with other spreadsheet applications.  It has a vast array of
4252 features beyond typical spreadsheet functionality, such as support for linear
4253 and non-linear solvers, statistical analysis, and telecommunication
4254 engineering.")
4255     (license
4256     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4257      (list license:gpl2 license:gpl3))))
4258
4259 (define-public drawing
4260   (package
4261     (name "drawing")
4262     (version "0.6.5")
4263     (source
4264      (origin
4265        (method git-fetch)
4266        (uri (git-reference
4267              (url "https://github.com/maoschanz/drawing")
4268              (commit version)))
4269        (file-name (git-file-name name version))
4270        (sha256
4271         (base32 "1kfgmalakifcvzhzss9zhmqjbdk24zr22c5xwkkahlvfcafp13wn"))))
4272     (build-system meson-build-system)
4273     (arguments
4274      `(#:glib-or-gtk? #t
4275        #:phases
4276        (modify-phases %standard-phases
4277          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
4278            (lambda* (#:key outputs #:allow-other-keys)
4279              (let ((prog (string-append (assoc-ref outputs "out")
4280                                         "/bin/drawing"))
4281                    (pylib (string-append (assoc-ref outputs "out")
4282                                          "/lib/python"
4283                                          ,(version-major+minor
4284                                            (package-version python))
4285                                          "/site-packages")))
4286                (wrap-program prog
4287                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
4288                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
4289                #t))))))
4290     (native-inputs
4291      `(("desktop-file-utils" ,desktop-file-utils)
4292        ("gettext" ,gettext-minimal)
4293        ("glib:bin" ,glib "bin")
4294        ("gobject-introspection" ,gobject-introspection)
4295        ("gtk+:bin" ,gtk+ "bin")
4296        ("pkg-config" ,pkg-config)))
4297     (inputs
4298      `(("gdk-pixbuf" ,gdk-pixbuf+svg)
4299        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4300        ("gtk+" ,gtk+)
4301        ("pango" ,pango)
4302        ("python-pycairo" ,python-pycairo)
4303        ("python-pygobject" ,python-pygobject)))
4304     (home-page "https://maoschanz.github.io/drawing/")
4305     (synopsis "Basic image editor for GNOME")
4306     (description
4307      "Drawing is a basic image editor aiming at the GNOME desktop.")
4308     (license license:gpl3+)))
4309
4310 (define-public gnome-themes-standard
4311   (package
4312     (name "gnome-themes-standard")
4313     (version "3.22.3")
4314     (source
4315      (origin
4316        (method url-fetch)
4317        (uri (string-append "mirror://gnome/sources/" name "/"
4318                            (version-major+minor version) "/" name "-"
4319                            version ".tar.xz"))
4320        (sha256
4321         (base32
4322          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
4323     (build-system gnu-build-system)
4324     (arguments
4325      '(#:configure-flags
4326        ;; Don't create 'icon-theme.cache'.
4327        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
4328               (true      (string-append coreutils "/bin/true")))
4329          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
4330     (inputs
4331      `(("gtk+" ,gtk+)
4332        ("gtk+-2" ,gtk+-2)
4333        ("librsvg" ,librsvg)
4334        ("libxml2" ,libxml2)
4335        ("glib" ,glib)))
4336     (native-inputs
4337      `(("intltool" ,intltool)
4338        ("glib:bin" ,glib "bin")
4339        ("pkg-config" ,pkg-config)))
4340     (home-page "https://launchpad.net/gnome-themes-standard")
4341     (synopsis "Default GNOME 3 themes")
4342     (description
4343      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
4344     (license license:lgpl2.1+)))
4345
4346 (define-public seahorse
4347   (package
4348     (name "seahorse")
4349     (version "3.36.2")
4350     (source
4351      (origin
4352        (method url-fetch)
4353        (uri (string-append "mirror://gnome/sources/" name "/"
4354                            (version-major+minor version) "/" name "-"
4355                            version ".tar.xz"))
4356        (sha256
4357         (base32 "16wmxxppgcgfj8zkagcny5af1c81x32ysm9d6j9f2k7bmik21ss5"))))
4358     (build-system meson-build-system)
4359     (arguments
4360      '(#:glib-or-gtk? #t
4361        #:phases
4362        (modify-phases %standard-phases
4363          (add-after 'unpack 'skip-gtk-update-icon-cache
4364            ;; Don't create 'icon-theme.cache'.
4365            (lambda _
4366              (substitute* "build-aux/meson_post_install.py"
4367                (("gtk-update-icon-cache") "true"))
4368              #t)))))
4369     (inputs
4370      `(("gtk+" ,gtk+)
4371        ("gcr" ,gcr)
4372        ("gnupg" ,gnupg)
4373        ("gpgme" ,gpgme)
4374        ("openldap" ,openldap)
4375        ("openssh" ,openssh)
4376        ("avahi" ,avahi)
4377        ("libhandy" ,libhandy-0.0)
4378        ("libpwquality" ,libpwquality)
4379        ("libsecret" ,libsecret)
4380        ("libsoup" ,libsoup)))
4381     (native-inputs
4382      `(("gettext" ,gettext-minimal)
4383        ("glib:bin" ,glib "bin")
4384        ("itstool" ,itstool)
4385        ("pkg-config" ,pkg-config)
4386        ("vala" ,vala)
4387        ("xmllint" ,libxml2)))
4388     (home-page "https://wiki.gnome.org/Apps/Seahorse")
4389     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4390     (description
4391      "Seahorse is a GNOME application for managing encryption keys and
4392 passwords in the GNOME keyring.")
4393     (license license:gpl2+)))
4394
4395 (define-public vala
4396   (package
4397     (name "vala")
4398     (version "0.46.5")
4399     (source (origin
4400               (method url-fetch)
4401               (uri (string-append "mirror://gnome/sources/" name "/"
4402                                   (version-major+minor version) "/"
4403                                   name "-" version ".tar.xz"))
4404               (sha256
4405                (base32
4406                 "07fv895sp9wq74b20qig7hic0r4ynrr5pfaqba02r44xb794fy0s"))))
4407     (build-system gnu-build-system)
4408     (arguments
4409      '(#:phases
4410        (modify-phases %standard-phases
4411          (add-before 'check 'pre-check
4412                      (lambda _
4413                        (setenv "CC" "gcc")
4414                        (substitute* "valadoc/tests/testrunner.sh"
4415                          (("export PKG_CONFIG_PATH=" m)
4416                           (string-append m "$PKG_CONFIG_PATH:")))
4417                        ;; For missing '/etc/machine-id'.
4418                        (setenv "DBUS_FATAL_WARNINGS" "0")
4419                        #t)))))
4420     (native-inputs
4421      `(("pkg-config" ,pkg-config)
4422        ("flex" ,flex)
4423        ("bison" ,bison)
4424        ("xsltproc" ,libxslt)
4425        ("dbus" ,dbus)                                     ; for dbus tests
4426        ("gobject-introspection" ,gobject-introspection))) ; for gir tests
4427     (inputs
4428      `(("graphviz" ,graphviz)))
4429     (propagated-inputs
4430      `(("glib" ,glib))) ; required by libvala-0.40.pc
4431     (home-page "https://wiki.gnome.org/Projects/Vala/")
4432     (synopsis "Compiler for the GObject type system")
4433     (description
4434      "Vala is a programming language that aims to bring modern programming
4435 language features to GNOME developers without imposing any additional runtime
4436 requirements and without using a different ABI compared to applications and
4437 libraries written in C.")
4438     (license license:lgpl2.1+)))
4439
4440 (define-public vala-0.50
4441   (package
4442     (inherit vala)
4443     (version "0.50.2")
4444     (source (origin
4445               (method url-fetch)
4446               (uri (string-append "mirror://gnome/sources/vala/"
4447                                   (version-major+minor version) "/"
4448                                   "vala-" version ".tar.xz"))
4449               (sha256
4450                (base32
4451                 "1nnf0x6vk0a9p2y6z7jwjfvmlxh3qhj581v381r0y1sxsv35s39c"))))))
4452
4453 (define-public vte
4454   (package
4455     (name "vte")
4456     (version "0.60.3")
4457     (source (origin
4458               (method url-fetch)
4459               (uri (string-append "mirror://gnome/sources/vte/"
4460                                   (version-major+minor version) "/"
4461                                   "vte-" version ".tar.xz"))
4462               (sha256
4463                (base32
4464                 "0al2v6fn061v4j1wwvppim1q283y2a6s0iyl29hxhmx3h48nxdzy"))))
4465     (build-system meson-build-system)
4466     (arguments
4467      `(#:configure-flags
4468        '("-Dvapi=true"
4469          "-D_systemd=false")))
4470     (native-inputs
4471      `(("pkg-config" ,pkg-config)
4472        ("gettext" ,gettext-minimal)
4473        ("vala" ,vala)
4474        ("gobject-introspection" ,gobject-introspection)
4475        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4476        ("gperf" ,gperf)
4477        ("xmllint" ,libxml2)))
4478     (propagated-inputs
4479      `(("gtk+" ,gtk+)                   ; required by vte-2.91.pc
4480        ("gnutls" ,gnutls)               ; ditto
4481        ("pcre2" ,pcre2)))               ; ditto
4482     (home-page "https://www.gnome.org/")
4483     (synopsis "Virtual Terminal Emulator")
4484     (description
4485      "VTE is a library (libvte) implementing a terminal emulator widget for
4486 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
4487 gnome-terminal, but can also be used to embed a console/terminal in games,
4488 editors, IDEs, etc.")
4489     (license license:lgpl2.1+)))
4490
4491 (define-public vte-ng
4492   (package
4493     (inherit vte)
4494     (name "vte-ng")
4495     (version "0.58.2.a")
4496     (home-page "https://github.com/thestinger/vte-ng")
4497     (source (origin
4498               (method git-fetch)
4499               (uri (git-reference (url home-page) (commit version)))
4500               (file-name (git-file-name name version))
4501               (sha256
4502                (base32
4503                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4504     (build-system meson-build-system)
4505     (native-inputs
4506      `(("gtk-doc" ,gtk-doc/stable)
4507        ,@(package-native-inputs vte)))
4508     (arguments
4509      `(#:configure-flags '("-Ddocs=true")))
4510   (synopsis "Enhanced VTE terminal widget")
4511   (description
4512    "VTE is a library (libvte) implementing a terminal emulator widget for
4513 GTK+, this fork provides additional functions exposed for keyboard text
4514 selection and URL hints.")))
4515
4516 ;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
4517 (define-public vte/gtk+-2
4518   (package (inherit vte)
4519     (name "vte")
4520     (version "0.28.2")
4521     (source (origin
4522               (method url-fetch)
4523               (uri (string-append "mirror://gnome/sources/" name "/"
4524                                   (version-major+minor version) "/"
4525                                   name "-" version ".tar.xz"))
4526               (sha256
4527                (base32
4528                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4529               (patches (search-patches
4530                          "vte-CVE-2012-2738-pt1.patch"
4531                          "vte-CVE-2012-2738-pt2.patch"))))
4532     (build-system gnu-build-system)
4533     (arguments
4534      '(#:configure-flags '("--disable-python")))
4535     (native-inputs
4536      `(("pkg-config" ,pkg-config)
4537        ("intltool" ,intltool)
4538        ("glib" ,glib "bin")))   ; for glib-genmarshal, etc.
4539     (propagated-inputs
4540      `(("gtk+" ,gtk+-2)         ; required by libvte.pc
4541        ("ncurses" ,ncurses))))) ; required by libvte.la
4542
4543 (define-public vinagre
4544   (package
4545     (name "vinagre")
4546     (version "3.22.0")
4547     (source (origin
4548               (method url-fetch)
4549               (uri (string-append "mirror://gnome/sources/" name "/"
4550                                   (version-major+minor version) "/"
4551                                   name "-" version ".tar.xz"))
4552               (patches (search-patches "vinagre-newer-freerdp.patch"
4553                                        "vinagre-newer-rdp-parameters.patch"))
4554               (sha256
4555                (base32
4556                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4557     (build-system glib-or-gtk-build-system)
4558     (arguments
4559      ;; Disable -Werror and such, to avoid build failures on compilation
4560      ;; warnings.
4561      '(#:configure-flags '("--enable-compile-warnings=minimum")
4562        #:phases
4563        (modify-phases %standard-phases
4564          (add-before 'install 'skip-gtk-update-icon-cache
4565            (lambda _
4566              ;; Don't create 'icon-theme.cache'
4567              (substitute* (find-files "." "^Makefile$")
4568                (("gtk-update-icon-cache") (which "true")))
4569              #t))
4570          (add-after 'unpack 'patch-configure
4571            (lambda _
4572              (substitute* "configure"
4573                (("freerdp") "freerdp2"))
4574              #t)))))
4575     (native-inputs
4576      `(("pkg-config" ,pkg-config)
4577        ("intltool" ,intltool)
4578        ("itstool" ,itstool)
4579        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
4580     (inputs
4581      `(("libxml2" ,libxml2)
4582        ("gtk-vnc" ,gtk-vnc)
4583        ("gnome-keyring" ,gnome-keyring)
4584        ("libsecret" ,libsecret)
4585        ("freerdp" ,freerdp)
4586        ("spice" ,spice)
4587        ("spice-gtk" ,spice-gtk)
4588        ("telepathy-glib" ,telepathy-glib)
4589        ("vte" ,vte)))
4590     (home-page "https://wiki.gnome.org/Apps/Vinagre")
4591     (synopsis "Remote desktop viewer for GNOME")
4592     (description "Vinagre is a remote display client supporting the VNC, SPICE
4593 and RDP protocols.")
4594     (license license:gpl3+)))
4595
4596 (define-public dconf
4597   (package
4598     (name "dconf")
4599     (version "0.36.0")
4600     (source (origin
4601               (method url-fetch)
4602               (uri (string-append
4603                     "mirror://gnome/sources/" name "/"
4604                     (version-major+minor version) "/"
4605                     name "-" version ".tar.xz"))
4606               (sha256
4607                (base32
4608                 "0bfs069pjv6lhp7xrzmrhz3876ay2ryqxzc6mlva1hhz34ibprlz"))))
4609     (build-system meson-build-system)
4610     (propagated-inputs
4611      ;; In Requires of dconf.pc.
4612      `(("glib" ,glib)))
4613     (inputs
4614      `(("gtk+" ,gtk+)
4615        ("dbus" ,dbus)))
4616     (native-inputs
4617      `(("bash-completion" ,bash-completion)
4618        ("libxslt" ,libxslt)                     ;for xsltproc
4619        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
4620        ("docbook-xml" ,docbook-xml-4.2)
4621        ("docbook-xsl" ,docbook-xsl)
4622        ("glib:bin" ,glib "bin")
4623        ("gtk-doc" ,gtk-doc/stable)
4624        ("pkg-config" ,pkg-config)
4625        ("vala" ,vala)))
4626     (arguments
4627      `(#:glib-or-gtk? #t
4628        #:configure-flags '("-Denable-gtk-doc=true")
4629        #:phases (modify-phases %standard-phases
4630                   (add-after 'unpack 'increase-test-timeout
4631                     (lambda _
4632                       ;; On big-memory systems, the engine test may take
4633                       ;; much longer than the default of 30 seconds.
4634                       (substitute* "tests/meson.build"
4635                         (("test\\(unit_test\\[0\\], exe" all)
4636                          (string-append all ", timeout : 90")))
4637                       #t)))))
4638     (home-page "https://developer.gnome.org/dconf/")
4639     (synopsis "Low-level GNOME configuration system")
4640     (description "Dconf is a low-level configuration system.  Its main purpose
4641 is to provide a backend to GSettings on platforms that don't already have
4642 configuration storage systems.")
4643     (license license:lgpl2.1+)))
4644
4645 (define-public json-glib
4646   (package
4647     (name "json-glib")
4648     (version "1.4.4")
4649     (source (origin
4650               (method url-fetch)
4651               (uri (string-append "mirror://gnome/sources/" name "/"
4652                                   (version-major+minor version) "/"
4653                                   name "-" version ".tar.xz"))
4654               (sha256
4655                (base32
4656                 "0ixwyis47v5bkx6h8a1iqlw3638cxcv57ivxv4gw2gaig51my33j"))))
4657     (build-system meson-build-system)
4658     (native-inputs
4659      `(("gettext" ,gettext-minimal)
4660        ("glib" ,glib "bin")              ;for glib-mkenums and glib-genmarshal
4661        ("gobject-introspection" ,gobject-introspection)
4662        ("pkg-config" ,pkg-config)))
4663     (propagated-inputs
4664      `(("glib" ,glib)))                         ;according to json-glib-1.0.pc
4665     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4666     (synopsis "Compiler for the GObject type system")
4667     (description
4668      "JSON-GLib is a C library based on GLib providing serialization and
4669 deserialization support for the JavaScript Object Notation (JSON) format
4670 described by RFC 4627.  It provides parser and generator GObject classes and
4671 various wrappers for the complex data types employed by JSON, such as arrays
4672 and objects.")
4673     (license license:lgpl2.1+)))
4674
4675 (define-public libxklavier
4676   (package
4677     (name "libxklavier")
4678     (version "5.4")
4679     (source (origin
4680               ;; Note: There's no tarball at ftp.gnome.org for this version.
4681               (method git-fetch)
4682               (uri (git-reference
4683                     (url "https://anongit.freedesktop.org/git/libxklavier")
4684                     (commit (string-append "libxklavier-" version))))
4685               (sha256
4686                (base32
4687                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4688               (file-name (git-file-name name version))))
4689     (build-system gnu-build-system)
4690     (arguments
4691      '(#:configure-flags
4692        (list (string-append "--with-xkb-base="
4693                             (assoc-ref %build-inputs "xkeyboard-config")
4694                             "/share/X11/xkb")
4695              "--disable-xmodmap-support")))
4696     (native-inputs
4697      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
4698        ("gobject-introspection" ,gobject-introspection)
4699        ("pkg-config"            ,pkg-config)
4700        ("gtk-doc" ,gtk-doc/stable)
4701        ("intltool" ,intltool)
4702        ("which" ,which)
4703        ("autoconf" ,autoconf)
4704        ("automake" ,automake)
4705        ("libtool" ,libtool)))
4706     (propagated-inputs
4707      ;; Required by libxklavier.pc.
4708      `(("glib"    ,glib)
4709        ("libxml2" ,libxml2)))
4710     (inputs
4711      `(("iso-codes"        ,iso-codes)
4712        ("libxi"            ,libxi)
4713        ("libxkbfile"       ,libxkbfile)
4714        ("xkbcomp"          ,xkbcomp)
4715        ("xkeyboard-config" ,xkeyboard-config)))
4716     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
4717     (synopsis "High-level API for X Keyboard Extension")
4718     (description
4719      "LibXklavier is a library providing high-level API for X Keyboard
4720 Extension known as XKB.  This library is intended to support XFree86 and other
4721 commercial X servers.  It is useful for creating XKB-related software (layout
4722 indicators etc).")
4723     (license license:lgpl2.0+)))
4724
4725 (define-public python2-rsvg
4726   ;; XXX: This is actually a subset of gnome-python-desktop.
4727   (package
4728     (name "python2-rsvg")
4729     (version "2.32.0")
4730     (source
4731      (origin
4732        (method url-fetch)
4733        (uri (string-append
4734              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
4735              version ".tar.bz2"))
4736        (sha256
4737         (base32
4738          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
4739     (build-system gnu-build-system)
4740     (native-inputs
4741      `(("pkg-config" ,pkg-config)))
4742     (inputs
4743      `(("python" ,python-2)
4744        ("python2-pygtk" ,python2-pygtk)
4745        ("librsvg" ,librsvg)))
4746     (home-page "https://www.gnome.org")
4747     (synopsis "Python bindings to librsvg")
4748     (description
4749      "This package provides Python bindings to librsvg, the SVG rendering
4750 library.")
4751
4752     ;; This is the license of the rsvg bindings.  The license of each module
4753     ;; of gnome-python-desktop is given in 'COPYING'.
4754     (license license:lgpl2.1+)))
4755
4756 (define-public glib-networking
4757   (package
4758     (name "glib-networking")
4759     (version "2.62.2")
4760     (source (origin
4761               (method url-fetch)
4762               (uri (string-append "mirror://gnome/sources/glib-networking/"
4763                                   (version-major+minor version) "/"
4764                                   "glib-networking-" version ".tar.xz"))
4765               (sha256
4766                (base32
4767                 "0i2mw75297ql72h47vyvff3hqa0kcmqybblj52fqrarb0kfbhi06"))))
4768     (build-system meson-build-system)
4769     (arguments
4770      `(#:configure-flags '("-Dlibproxy_support=false")))
4771     (native-inputs
4772      `(("pkg-config" ,pkg-config)
4773        ("intltool" ,intltool)))
4774     (inputs
4775      `(("glib" ,glib)
4776        ("gnutls" ,gnutls)
4777        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
4778     (home-page "https://www.gnome.org")
4779     (synopsis "Network-related GIO modules")
4780     (description
4781      "This package contains various network related extensions for the GIO
4782 library.")
4783     (license license:lgpl2.0+)))
4784
4785 (define-public rest
4786   (package
4787     (name "rest")
4788     (version "0.8.1")
4789     (source (origin
4790               (method url-fetch)
4791               (uri (string-append "mirror://gnome/sources/rest/"
4792                                   (version-major+minor version) "/"
4793                                   name "-" version ".tar.xz"))
4794               (sha256
4795                (base32
4796                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4797     (build-system gnu-build-system)
4798     (arguments
4799      '(#:tests? #f ; tests require internet connection
4800        #:configure-flags
4801        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4802     (native-inputs
4803      `(("glib-mkenums" ,glib "bin")
4804        ("gobject-introspection" ,gobject-introspection)
4805        ("pkg-config" ,pkg-config)))
4806     (propagated-inputs
4807      ;; rest-0.7.pc refers to all these.
4808      `(("glib"    ,glib)
4809        ("libsoup" ,libsoup)
4810        ("libxml2" ,libxml2)))
4811     (home-page "https://www.gtk.org/")
4812     (synopsis "RESTful web api query library")
4813     (description
4814      "This library was designed to make it easier to access web services that
4815 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
4816 libxml to ease remote use of the RESTful API.")
4817     (license license:lgpl2.1+)))
4818
4819 (define-public libsoup
4820   (package
4821     (name "libsoup")
4822     (version "2.72.0")
4823     (source (origin
4824               (method url-fetch)
4825               (uri (string-append "mirror://gnome/sources/libsoup/"
4826                                   (version-major+minor version) "/"
4827                                   "libsoup-" version ".tar.xz"))
4828               (sha256
4829                (base32
4830                 "11skbyw2pw32178q3h8pi7xqa41b2x4k6q4k9f75zxmh8s23y30p"))))
4831     (build-system meson-build-system)
4832     (outputs '("out" "doc"))
4833     (arguments
4834      `(#:modules ((guix build utils)
4835                   (guix build meson-build-system)
4836                   (ice-9 popen))
4837
4838        #:configure-flags '("-Dgtk_doc=true")
4839        #:phases
4840        (modify-phases %standard-phases
4841          (add-after 'unpack 'patch-docbook-xml
4842            (lambda* (#:key inputs #:allow-other-keys)
4843              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
4844                                           "/xml/dtd/docbook")))
4845                (substitute* (find-files "docs/reference")
4846                  (("http://.*/docbookx\\.dtd")
4847                   (string-append xmldoc "/docbookx.dtd")))
4848                #t)))
4849          (add-after 'unpack 'adjust-tests
4850            (lambda _
4851              ;; This test fails due to missing /etc/nsswitch.conf
4852              ;; in the build environment.
4853              (substitute* "tests/socket-test.c"
4854                ((".*/sockets/unconnected.*") ""))
4855
4856              ;; These fail because "subdomain.localhost" does not resolve in
4857              ;; the build environment.
4858              (substitute* "tests/hsts-test.c"
4859                ((".*/hsts/basic.*") "")
4860                ((".*/hsts/subdomains.*") "")
4861                ((".*/hsts/superdomain.*") "")
4862                ((".*/hsts/utf8-address.*") ""))
4863              (substitute* "tests/hsts-db-test.c"
4864                ((".*/hsts-db/subdomains.*") ""))
4865
4866              ;; Generate a self-signed certificate that has "localhost" as its
4867              ;; 'dnsName'.  Failing to do that, and starting with GnuTLS
4868              ;; 3.5.12, tests such as "ssl-tests" fail:
4869              ;;
4870              ;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
4871              ;;
4872              ;; 'certtool' is interactive so we have to pipe it the answers.
4873              ;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
4874              (let ((pipe (open-output-pipe "certtool --generate-self-signed \
4875  --load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
4876                (for-each (lambda (line)
4877                            (display line pipe)
4878                            (newline pipe))
4879                          '(""               ;Common name
4880                            ""               ;UID
4881                            "Guix"           ;Organizational unit name
4882                            "GNU"            ;Organization name
4883                            ""               ;Locality name
4884                            ""               ;State or province
4885                            ""               ;Country
4886                            ""               ;subject's domain component (DC)
4887                            ""               ;E-mail
4888                            ""               ;serial number
4889                            "-1"             ;expiration time
4890                            "N"              ;belong to authority?
4891                            "N"              ;web client certificate?
4892                            "N"              ;IPsec IKE?
4893                            "Y"              ;web server certificate?
4894                            "localhost"      ;dnsName of subject
4895                            ""               ;dnsName of subject (end)
4896                            ""               ;URI of subject
4897                            "127.0.0.1"      ;IP address of subject
4898                            ""               ;signing?
4899                            ""               ;encryption (RSA)?
4900                            ""               ;data encryption?
4901                            ""               ;sign OCSP requests?
4902                            ""               ;sign code?
4903                            ""               ;time stamping?
4904                            ""               ;email protection?
4905                            ""               ;URI of the CRL distribution point
4906                            "y"              ;above info OK?
4907                            ))
4908                (close-pipe pipe))
4909              #t))
4910          (add-after 'install 'move-doc
4911            (lambda* (#:key outputs #:allow-other-keys)
4912              (let ((out (assoc-ref outputs "out"))
4913                    (doc (assoc-ref outputs "doc")))
4914                (mkdir-p (string-append doc "/share"))
4915                (copy-recursively (string-append out "/share/gtk-doc")
4916                                  (string-append doc "/share/gtk-doc"))
4917                (delete-file-recursively (string-append out "/share/gtk-doc"))
4918                #t))))))
4919     (native-inputs
4920      `(("docbook-xml" ,docbook-xml-4.1.2)
4921        ("glib:bin" ,glib "bin")                   ; for glib-mkenums
4922        ("gobject-introspection" ,gobject-introspection)
4923        ("gtk-doc" ,gtk-doc/stable)
4924        ("intltool" ,intltool)
4925        ("pkg-config" ,pkg-config)
4926        ("python" ,python-wrapper)
4927        ("vala" ,vala)
4928        ("php" ,php)
4929        ("curl" ,curl)
4930        ("gnutls" ,gnutls)                         ;for 'certtool'
4931        ("httpd" ,httpd)))
4932     (propagated-inputs
4933      ;; libsoup-2.4.pc refers to all these.
4934      `(("brotli" ,google-brotli)
4935        ("glib" ,glib)
4936        ("libpsl" ,libpsl)
4937        ("libxml2" ,libxml2)
4938        ("sqlite" ,sqlite)
4939        ("zlib" ,zlib)))
4940     (inputs
4941      `(("glib-networking" ,glib-networking)
4942        ("mit-krb5" ,mit-krb5)))
4943     (home-page "https://live.gnome.org/LibSoup/")
4944     (synopsis "GLib-based HTTP Library")
4945     (description
4946      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
4947 and the GLib main loop, to integrate well with GNOME applications.")
4948     (license license:lgpl2.0+)))
4949
4950
4951 ;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4952 (define-public libsoup-minimal
4953   (package/inherit libsoup
4954     (name "libsoup-minimal")
4955     (outputs (delete "doc" (package-outputs libsoup)))
4956     (arguments
4957      (substitute-keyword-arguments (package-arguments libsoup)
4958        ((#:configure-flags configure-flags)
4959         `(delete "-Dgtk_doc=true" ,configure-flags))
4960        ((#:phases phases)
4961         `(modify-phases ,phases
4962            (delete 'move-doc)))))
4963     (native-inputs (alist-delete "gtk-doc" (package-native-inputs libsoup)))))
4964
4965 (define-public libsecret
4966   (package
4967     (name "libsecret")
4968     (version "0.20.4")
4969     (source (origin
4970               (method url-fetch)
4971               (uri (string-append
4972                     "mirror://gnome/sources/libsecret/"
4973                     (version-major+minor version) "/"
4974                     "libsecret-" version ".tar.xz"))
4975               (sha256
4976                (base32
4977                 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
4978     (build-system gnu-build-system)
4979     (outputs '("out" "doc"))
4980     (arguments
4981      `(#:tests? #f ; FIXME: Testing hangs.
4982        #:configure-flags
4983        (list (string-append "--with-html-dir="
4984                             (assoc-ref %outputs "doc")
4985                             "/share/gtk-doc/html"))))
4986     (native-inputs
4987      `(("gettext" ,gettext-minimal)
4988        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
4989        ("gobject-introspection" ,gobject-introspection)
4990        ("pkg-config" ,pkg-config)
4991        ("vala" ,vala)
4992        ("xsltproc" ,libxslt)))
4993        ;; These are needed for the tests.
4994        ;; FIXME: Add gjs once available.
4995        ;("dbus" ,dbus)
4996        ;("python2" ,python-2)
4997        ;("python2-dbus" ,python2-dbus)
4998        ;("python2-pygobject" ,python2-pygobject)
4999        ;("python2-pygobject-2" ,python2-pygobject-2)))
5000     (propagated-inputs
5001      `(("glib" ,glib))) ; required by libsecret-1.pc
5002     (inputs
5003      ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
5004      ;; doesn't seem to affect the build result.
5005      `(("docbook-xsl" ,docbook-xsl)
5006        ("libgcrypt" ,libgcrypt)
5007        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
5008     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
5009     (synopsis "GObject bindings for \"Secret Service\" API")
5010     (description
5011      "Libsecret is a GObject based library for storing and retrieving passwords
5012 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
5013     (license license:lgpl2.1+)))
5014
5015 (define-public five-or-more
5016   (package
5017     (name "five-or-more")
5018     (version "3.32.2")
5019     (source
5020      (origin
5021        (method url-fetch)
5022        (uri (string-append "mirror://gnome/sources/five-or-more/"
5023                            (version-major+minor version) "/"
5024                            "five-or-more-" version ".tar.xz"))
5025        (sha256
5026         (base32 "19pf8wzbf3ciqf2k4bj9sddvyhckfd62x86pnqr6s8h4vn9jc6ii"))))
5027     (build-system meson-build-system)
5028     (arguments
5029      '(#:glib-or-gtk? #t
5030        #:phases
5031        (modify-phases %standard-phases
5032          (add-after 'unpack 'skip-gtk-update-icon-cache
5033            (lambda _
5034              (substitute* "meson_post_install.py"
5035                (("gtk-update-icon-cache") (which "true")))
5036              #t)))))
5037     (native-inputs
5038      `(("pkg-config" ,pkg-config)
5039        ("appstream-glib" ,appstream-glib)
5040        ("desktop-file-utils" ,desktop-file-utils)
5041        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5042        ("intltool" ,intltool)
5043        ("itstool" ,itstool)
5044        ("vala" ,vala)
5045        ("xmllint" ,libxml2)))
5046     (inputs
5047      `(("gtk+" ,gtk+)
5048        ("libgnome-games-support" ,libgnome-games-support)
5049        ("librsvg" ,librsvg)))
5050     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
5051     (synopsis "Logic puzzle game")
5052     (description "Five or More is a game where you try to align
5053  five or more objects of the same color and shape causing them to disappear.
5054  On every turn more objects will appear, until the board is full.
5055  Try to last as long as possible.")
5056     (license license:gpl2+)))
5057
5058 (define-public gnome-mines
5059   (package
5060     (name "gnome-mines")
5061     (version "3.36.1")
5062     (source
5063      (origin
5064        (method url-fetch)
5065        (uri (string-append "mirror://gnome/sources/" name "/"
5066                            (version-major+minor version) "/"
5067                            name "-" version ".tar.xz"))
5068        (sha256
5069         (base32 "0m2680r94nk61imym4x73j03jwfjd8cxm592m5ybiqdfdw6i723i"))))
5070     (build-system meson-build-system)
5071     (arguments
5072      '(#:glib-or-gtk? #t
5073        #:phases
5074        (modify-phases %standard-phases
5075          (add-after 'unpack 'skip-gtk-update-icon-cache
5076            (lambda _
5077              (substitute* "build-aux/meson_post_install.py"
5078                (("gtk-update-icon-cache") (which "true")))
5079              #t)))))
5080     (native-inputs
5081      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
5082        ("pkg-config" ,pkg-config)
5083        ("desktop-file-utils" ,desktop-file-utils)
5084        ("intltool" ,intltool)
5085        ("itstool" ,itstool)
5086        ("vala" ,vala)
5087        ("yelp" ,yelp)
5088        ("appstream-glib" ,appstream-glib)))
5089     (inputs
5090      `(("gtk+" ,gtk+)
5091        ("libgnome-games-support" ,libgnome-games-support)
5092        ("librsvg" ,librsvg)))
5093     (home-page "https://wiki.gnome.org/Apps/Mines")
5094     (synopsis "Minesweeper game")
5095     (description
5096      "Mines (previously gnomine) is a puzzle game where you locate mines
5097 floating in an ocean using only your brain and a little bit of luck.")
5098     (license license:gpl2+)))
5099
5100 (define-public gnome-multi-writer
5101   (package
5102     (name "gnome-multi-writer")
5103     (version "3.35.90")
5104     (source
5105      (origin
5106        (method url-fetch)
5107        (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
5108                            (version-major+minor version) "/"
5109                            "gnome-multi-writer-" version ".tar.xz"))
5110        (sha256
5111         (base32
5112          "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
5113     (build-system meson-build-system)
5114     (arguments
5115      '(#:glib-or-gtk? #t
5116        #:phases
5117        (modify-phases %standard-phases
5118          (add-after 'unpack 'skip-post-install
5119            (lambda _
5120              (substitute* "meson.build"
5121                (("meson.add_install_script" &) (string-append "# " &)))
5122              #t)))))
5123     (native-inputs
5124      `(("glib:bin" ,glib "bin")
5125        ("pkg-config" ,pkg-config)))
5126     (inputs
5127      `(("gtk+" ,gtk+)
5128        ("glib" ,glib)                   ; for gio
5129        ("gusb" ,gusb)
5130        ("udisks" ,udisks)
5131        ("libgudev" ,libgudev)
5132        ("libcanberra" ,libcanberra)
5133        ("polkit" ,polkit)))
5134     (home-page "https://wiki.gnome.org/Apps/MultiWriter")
5135     (synopsis "Write to multiple USB devices at once")
5136     (description
5137      "MultiWriter can be used to write an ISO file to multiple USB devices at
5138 once.")
5139     (license license:gpl2+)))
5140
5141 (define-public gnome-sudoku
5142   (package
5143     (name "gnome-sudoku")
5144     (version "3.34.1")
5145     (source
5146      (origin
5147        (method url-fetch)
5148        (uri (string-append "mirror://gnome/sources/" name "/"
5149                            (version-major+minor version) "/"
5150                            name "-" version ".tar.xz"))
5151        (sha256
5152         (base32
5153          "025y85r4qqardivvwiwhbmgarziykdy224m8zlrq8b79zv82793b"))))
5154     (build-system meson-build-system)
5155     (arguments
5156      '(#:glib-or-gtk? #t
5157        #:phases
5158        (modify-phases %standard-phases
5159          (add-after 'unpack 'skip-gtk-update-icon-cache
5160            (lambda _
5161              (substitute* "build-aux/post_install.py"
5162                (("gtk-update-icon-cache") (which "true")))
5163              #t)))))
5164     (native-inputs
5165      `(("pkg-config" ,pkg-config)
5166        ("desktop-file-utils" ,desktop-file-utils)
5167        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5168        ("intltool" ,intltool)
5169        ("itstool" ,itstool)
5170        ("vala" ,vala)
5171        ("xmllint" ,libxml2)))
5172     (inputs
5173      `(("gtk+" ,gtk+)
5174        ("json-glib" ,json-glib)
5175        ("libgee" ,libgee)
5176        ("librsvg" ,librsvg)
5177        ("qqwing" ,qqwing)))
5178     (home-page "https://wiki.gnome.org/Apps/Sudoku")
5179     (synopsis "Japanese logic game")
5180     (description
5181      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5182 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5183 possible while still providing features that make playing difficult Sudoku
5184 more fun.")
5185     (license license:gpl2+)))
5186
5187 (define-public gnome-terminal
5188   (package
5189     (name "gnome-terminal")
5190     (version "3.34.2")
5191     (source
5192      (origin
5193        (method url-fetch)
5194        (uri (string-append "mirror://gnome/sources/" name "/"
5195                            (version-major+minor version) "/"
5196                            name "-" version ".tar.xz"))
5197        (sha256
5198         (base32
5199          "0gc004f9b5k94gkdanmqjz3wqgnpny0l3nqm8zd19h4f0ps27mrv"))))
5200     (build-system glib-or-gtk-build-system)
5201     (arguments
5202      '(#:configure-flags
5203        (list "--disable-migration" "--disable-search-provider"
5204              "--without-nautilus-extension")
5205        #:phases
5206        (modify-phases %standard-phases
5207          (add-before 'configure 'patch-/bin/true
5208                      (lambda _
5209                        (substitute* "configure"
5210                          (("/bin/true") (which "true"))))))))
5211     (native-inputs
5212      `(("pkg-config" ,pkg-config)
5213        ("desktop-file-utils" ,desktop-file-utils)
5214        ("intltool" ,intltool)
5215        ("itstool" ,itstool)
5216        ("xmllint" ,libxml2)))
5217     (propagated-inputs
5218      `(("dconf" ,dconf)))
5219     (inputs
5220      `(("gtk+" ,gtk+)
5221        ("vte" ,vte)
5222        ("gnutls" ,gnutls)
5223        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5224        ("util-linux" ,util-linux "lib")
5225        ("vala" ,vala)))
5226     (home-page "https://wiki.gnome.org/Apps/Terminal")
5227     (synopsis "Terminal emulator")
5228     (description
5229      "GNOME Terminal is a terminal emulator application for accessing a
5230 UNIX shell environment which can be used to run programs available on
5231 your system.
5232
5233 It supports several profiles, multiple tabs and implements several
5234 keyboard shortcuts.")
5235     (license license:gpl3+)))
5236
5237 (define-public colord
5238   (package
5239     (name "colord")
5240     (version "1.4.5")
5241     (source
5242      (origin
5243        (method url-fetch)
5244        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
5245                            "colord-" version ".tar.xz"))
5246        (sha256
5247         (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
5248     (build-system meson-build-system)
5249     (arguments
5250      '(;; FIXME: One test fails:
5251        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5252        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5253        ;; application/x-zerosize
5254        #:tests? #f
5255        #:glib-or-gtk? #t
5256        #:configure-flags (list "-Dlocalstatedir=/var"
5257                                ;; No dep on systemd.
5258                                "-Dsystemd=false"
5259                                ;; Wants to install to global completion dir;
5260                                ;; punt.
5261                                "-Dbash_completion=false"
5262                                "-Ddaemon_user=colord"
5263                                "-Dsane=true"
5264                                "-Dvapi=true"
5265                                ;; Requires spotread.
5266                                "-Dargyllcms_sensor=false"
5267                                ;; TODO: Requires docbook2x.
5268                                "-Dman=false")
5269        #:phases
5270        (modify-phases %standard-phases
5271          (add-before 'configure 'patch-build-system
5272            (lambda* (#:key outputs #:allow-other-keys)
5273              (substitute* "rules/meson.build"
5274                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5275                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))
5276              #t))
5277          (add-before 'configure 'set-sqlite3-file-name
5278            (lambda* (#:key inputs #:allow-other-keys)
5279              ;; "colormgr dump" works by invoking the "sqlite3" command.
5280              ;; Record its absolute file name.
5281              (let ((sqlite (assoc-ref inputs "sqlite")))
5282                (substitute* "client/cd-util.c"
5283                  (("\"sqlite3\"")
5284                   (string-append "\"" sqlite "/bin/sqlite3\"")))
5285                #t))))))
5286     (native-inputs
5287      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
5288        ("gettext" ,gettext-minimal)
5289        ("gobject-introspection" ,gobject-introspection)
5290        ("gtk-doc" ,gtk-doc/stable)
5291        ("pkg-config" ,pkg-config)
5292        ("vala" ,vala)))
5293     (propagated-inputs
5294      ;; colord.pc refers to all these.
5295      `(("glib" ,glib)
5296        ("lcms" ,lcms)
5297        ("udev" ,eudev)))
5298     (inputs
5299      `(("dbus-glib" ,dbus-glib)
5300        ("gusb" ,gusb)
5301        ("libgudev" ,libgudev)
5302        ("libusb" ,libusb)
5303        ("polkit" ,polkit)
5304        ("python" ,python-wrapper)
5305        ("sqlite" ,sqlite)
5306        ("sane-backends" ,sane-backends)))
5307     (home-page "https://www.freedesktop.org/software/colord/")
5308     (synopsis "Color management service")
5309     (description "Colord is a system service that makes it easy to manage,
5310 install and generate color profiles to accurately color manage input and
5311 output devices.")
5312     (license license:gpl2+)))
5313
5314 (define-public geoclue
5315   (package
5316     (name "geoclue")
5317     (version "2.5.7")
5318     (source
5319      (origin
5320        (method url-fetch)
5321        (uri
5322         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5323                        version "/geoclue-" version ".tar.bz2"))
5324        (sha256
5325         (base32 "09ww26a76kanldhgwnn5sqy9ly2940k45zpp68spykkv2zjdpivc"))
5326        (patches (search-patches "geoclue-config.patch"))))
5327     (build-system meson-build-system)
5328     (arguments
5329      '(#:configure-flags (list "-Dbus-srv-user=geoclue")))
5330     (native-inputs
5331      `(("pkg-config" ,pkg-config)
5332        ("gobject-introspection" ,gobject-introspection)
5333        ("modem-manager" ,modem-manager)
5334        ("libnotify" ,libnotify)
5335        ("gtk-doc" ,gtk-doc/stable)
5336        ("intltool" ,intltool)))
5337     (inputs
5338      `(("avahi" ,avahi)
5339        ("glib:bin" ,glib "bin")
5340        ("glib-networking" ,glib-networking)
5341        ("json-glib" ,json-glib)
5342        ("libsoup" ,libsoup)))
5343     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
5344     (synopsis "Geolocation service")
5345     (description "Geoclue is a D-Bus service that provides location
5346 information.  The primary goal of the Geoclue project is to make creating
5347 location-aware applications as simple as possible, while the secondary goal is
5348 to ensure that no application can access location information without explicit
5349 permission from user.")
5350     (license license:gpl2+)))
5351
5352 (define-public geocode-glib
5353   (package
5354     (name "geocode-glib")
5355     (version "3.26.2")
5356     (source (origin
5357               (method url-fetch)
5358               (uri (string-append "mirror://gnome/sources/geocode-glib/"
5359                                   (version-major+minor version) "/"
5360                                   "geocode-glib-" version ".tar.xz"))
5361               (sha256
5362                (base32
5363                 "1l8g0f13xgkrk335afr9w8k46mziwb2jnyhl07jccl5yl37q9zh1"))))
5364     (build-system meson-build-system)
5365     (arguments
5366      `(#:phases
5367        (modify-phases %standard-phases
5368          ;; The tests require a bunch of locales.
5369          (add-before 'check 'set-locales
5370            (lambda* (#:key inputs #:allow-other-keys)
5371              (setenv "GUIX_LOCPATH"
5372                      (string-append (assoc-ref inputs "glibc-locales")
5373                                     "/lib/locale"))
5374              #t)))))
5375     (native-inputs
5376      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5377        ("glibc-locales" ,glibc-locales) ; for tests
5378        ("gettext" ,gettext-minimal)
5379        ("gobject-introspection" ,gobject-introspection)
5380        ("gtk-doc" ,gtk-doc/stable)
5381        ("pkg-config" ,pkg-config)
5382        ("json-glib" ,json-glib)))
5383     (propagated-inputs
5384      ;; geocode-glib-1.0.pc refers to GIO.
5385      `(("glib" ,glib)))
5386     (inputs
5387      `(("libsoup" ,libsoup)))
5388     (home-page "https://github.com/GNOME/geocode-glib/")
5389     (synopsis "Geocoding and reverse-geocoding library")
5390     (description
5391      "geocode-glib is a convenience library for geocoding (finding longitude,
5392 and latitude from an address) and reverse geocoding (finding an address from
5393 coordinates) using the Nominatim service.  geocode-glib caches requests for
5394 faster results and to avoid unnecessary server load.")
5395     (license license:lgpl2.0+)))
5396
5397 (define-public upower
5398   (package
5399     (name "upower")
5400     (version "0.99.11")
5401     (source (origin
5402               (method url-fetch)
5403               (uri (string-append "https://upower.freedesktop.org/releases/"
5404                                   "upower-" version ".tar.xz"))
5405               (sha256
5406                (base32
5407                 "1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
5408               (patches (search-patches "upower-builddir.patch"))
5409               (modules '((guix build utils)))
5410               (snippet
5411                '(begin
5412                   ;; Upstream commit
5413                   ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
5414                   ;; moved 'dbus-1/system.d' from etc/ to share/.  However,
5415                   ;; 'dbus-configuration-directory' in (gnu services dbus)
5416                   ;; expects it in etc/.  Thus, move it back to its previous
5417                   ;; location.
5418                   (substitute* "src/Makefile.in"
5419                     (("^dbusconfdir =.*$")
5420                      "dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
5421                   #t))))
5422     (build-system glib-or-gtk-build-system)
5423     (arguments
5424      '(#:phases
5425        (modify-phases %standard-phases
5426          (add-before 'check 'pre-check
5427            (lambda* (#:key inputs #:allow-other-keys)
5428              (let ((umockdev (string-append (assoc-ref inputs "umockdev")
5429                                             "/lib")))
5430                (setenv "LD_LIBRARY_PATH" umockdev))
5431              #t)))
5432        #:configure-flags (list "--localstatedir=/var"
5433                                (string-append "--with-udevrulesdir="
5434                                               (assoc-ref %outputs "out")
5435                                               "/lib/udev/rules.d"))))
5436     (native-inputs
5437      `(("gobject-introspection" ,gobject-introspection)
5438        ("pkg-config" ,pkg-config)
5439        ("intltool" ,intltool)
5440        ("python" ,python)
5441
5442        ;; For tests.
5443        ("python-dbus" ,python-dbus)
5444        ("python-dbusmock" ,python-dbusmock)
5445        ("python-pygobject" ,python-pygobject)
5446        ("umockdev" ,umockdev)
5447
5448        ;; For man pages.
5449        ("libxslt" ,libxslt)                       ;for 'xsltproc'
5450        ("libxml2" ,libxml2)                       ;for 'XML_CATALOG_FILES'
5451        ("docbook-xsl" ,docbook-xsl)))
5452     (inputs
5453      `(("dbus-glib" ,dbus-glib)
5454        ("libgudev" ,libgudev)
5455        ("libusb" ,libusb)))
5456     (propagated-inputs
5457      ;; In Requires of upower-glib.pc.
5458      `(("glib" ,glib)))
5459     (home-page "https://upower.freedesktop.org/")
5460     (synopsis "System daemon for managing power devices")
5461     (description
5462      "UPower is an abstraction for enumerating power devices,
5463 listening to device events and querying history and statistics.  Any
5464 application or service on the system can access the org.freedesktop.UPower
5465 service via the system message bus.")
5466     (license license:gpl2+)))
5467
5468 (define-public libgweather
5469   (package
5470     (name "libgweather")
5471     (version "3.34.0")
5472     (source (origin
5473               (method url-fetch)
5474               (uri (string-append "mirror://gnome/sources/" name "/"
5475                                   (version-major+minor version) "/"
5476                                   name "-" version ".tar.xz"))
5477               (sha256
5478                (base32
5479                 "1fgiqswkhiaijanml3mb16ajn5aanrk7x6yiwagp9n9rssam6902"))))
5480     (build-system meson-build-system)
5481     (arguments
5482      `(#:tests? #f ; one of two tests requires network access
5483        #:configure-flags
5484        `(,(string-append "-Dzoneinfo_dir="
5485                          (assoc-ref %build-inputs "tzdata")
5486                          "/share/zoneinfo"))))
5487     (native-inputs
5488      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5489        ("gobject-introspection" ,gobject-introspection)
5490        ("pkg-config" ,pkg-config)
5491        ("vala" ,vala)
5492        ("intltool" ,intltool)))
5493     (propagated-inputs
5494      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5495      ;; libsoup.
5496      `(("gtk+" ,gtk+)
5497        ("gdk-pixbuf" ,gdk-pixbuf)
5498        ("libxml2" ,libxml2)
5499        ("libsoup" ,libsoup)
5500        ("geocode-glib" ,geocode-glib)))
5501     (inputs
5502      `(("tzdata" ,tzdata)))
5503     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5504     (synopsis "Location, time zone, and weather library for GNOME")
5505     (description
5506      "libgweather is a library to access weather information from online
5507 services for numerous locations.")
5508     (license license:gpl2+)))
5509
5510 (define-public gnome-settings-daemon
5511   (package
5512     (name "gnome-settings-daemon")
5513     (version "3.34.1")
5514     (source
5515      (origin
5516        (method url-fetch)
5517        (uri (string-append "mirror://gnome/sources/" name "/"
5518                            (version-major+minor version) "/"
5519                            name "-" version ".tar.xz"))
5520        (sha256
5521         (base32
5522          "07y1gbicz0pbxmdgwrdzyc4byy30wfwpbqgvnx27gnpqmc5s50cr"))
5523        (patches (search-patches "gnome-settings-daemon-gc.patch"))))
5524     (build-system meson-build-system)
5525     (arguments
5526      `(#:glib-or-gtk? #t
5527        #:configure-flags
5528        (list (string-append "-Dudev_dir="
5529                             (assoc-ref %outputs "out")
5530                             "/lib/udev/rules.d/")
5531              "-Dsystemd=false"
5532              ;; Otherwise, the RUNPATH will lack the final path component.
5533              (string-append "-Dc_link_args=-Wl,-rpath="
5534                             (assoc-ref %outputs "out")
5535                             "/lib/gnome-settings-daemon-3.0"))
5536
5537        #:phases (modify-phases %standard-phases
5538                   (add-before 'configure 'set-baobab-file-name
5539                     (lambda* (#:key inputs #:allow-other-keys)
5540                       ;; Hard-code the file name of Baobab instead of looking
5541                       ;; it up in $PATH.  This ensures users get the "Examine"
5542                       ;; button in the low disk space notification of GDM even
5543                       ;; if they don't have GNOME in their main profile.
5544                       (let ((baobab (assoc-ref inputs "baobab")))
5545                         (substitute* "plugins/housekeeping/gsd-disk-space.c"
5546                           (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5547                            (string-append "g_strdup (\"" baobab
5548                                           "/bin/baobab\")")))
5549                         #t))))
5550
5551        ;; Color management test can't reach the colord system service.
5552        #:tests? #f))
5553     (native-inputs
5554      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5555        ("pkg-config" ,pkg-config)
5556        ("intltool" ,intltool)
5557        ("xsltproc" ,libxslt)
5558        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
5559        ("docbook-xml" ,docbook-xml-4.2)
5560        ("docbook-xsl" ,docbook-xsl)))
5561     (inputs
5562      `(("alsa-lib" ,alsa-lib)
5563        ("baobab" ,baobab)
5564        ("colord" ,colord)
5565        ("libgudev" ,libgudev)
5566        ("upower" ,upower)
5567        ("polkit" ,polkit)
5568        ("pulseaudio" ,pulseaudio)
5569        ("libcanberra" ,libcanberra)
5570        ("libx11" ,libx11)
5571        ("libxtst" ,libxtst)
5572        ("lcms" ,lcms)
5573        ("libnotify" ,libnotify)
5574        ("geoclue" ,geoclue)
5575        ("geocode-glib" ,geocode-glib)
5576        ("libgweather" ,libgweather)
5577        ("gnome-desktop" ,gnome-desktop)
5578        ("nss" ,nss)
5579        ("cups" ,cups)
5580        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5581        ("libwacom" ,libwacom)
5582        ("librsvg" ,librsvg)
5583        ("xf86-input-wacom" ,xf86-input-wacom)
5584        ("wayland" ,wayland)
5585        ("network-manager" ,network-manager)
5586        ("gcr" ,gcr)
5587        ("modem-manager" ,modem-manager)))
5588     (home-page "https://www.gnome.org")
5589     (synopsis "GNOME settings daemon")
5590     (description
5591      "This package contains the daemon responsible for setting the various
5592 parameters of a GNOME session and the applications that run under it.  It
5593 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5594 settings, themes, mouse settings, and startup of other daemons.")
5595     (license license:gpl2+)))
5596
5597 (define-public totem-pl-parser
5598  (package
5599    (name "totem-pl-parser")
5600    (version "3.26.5")
5601    (source (origin
5602             (method url-fetch)
5603             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5604                                 (version-major+minor version) "/"
5605                                 "totem-pl-parser-" version ".tar.xz"))
5606             (sha256
5607              (base32
5608               "132jihnf51zs98yjkc6jxyqib4f3dawpjm17g4bj4j78y93dww2k"))))
5609    (build-system meson-build-system)
5610    (arguments
5611     ;; FIXME: Tests require gvfs.
5612     `(#:tests? #f))
5613    (native-inputs
5614     `(("intltool" ,intltool)
5615       ("glib" ,glib "bin")
5616       ("gobject-introspection" ,gobject-introspection)
5617       ("pkg-config" ,pkg-config)))
5618    (propagated-inputs
5619     `(("glib" ,glib)
5620       ("gmime" ,gmime)
5621       ("libarchive" ,libarchive)
5622       ("libgcrypt" ,libgcrypt)
5623       ("libxml2" ,libxml2)))
5624    (inputs
5625     `(("libsoup" ,libsoup)))
5626    (home-page "https://projects.gnome.org/totem")
5627    (synopsis "Library to parse and save media playlists for GNOME")
5628    (description "Totem-pl-parser is a GObjects-based library to parse and save
5629 playlists in a variety of formats.")
5630    (license license:lgpl2.0+)))
5631
5632 (define-public aisleriot
5633   (package
5634     (name "aisleriot")
5635     (version "3.22.9")
5636     (source (origin
5637               (method url-fetch)
5638               (uri (string-append "mirror://gnome/sources/aisleriot/"
5639                                   (version-major+minor version) "/"
5640                                   "aisleriot-" version ".tar.xz"))
5641               (sha256
5642                (base32
5643                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
5644     (build-system glib-or-gtk-build-system)
5645     (arguments
5646      '(#:configure-flags
5647        '("--with-platform=gtk-only"
5648          "--with-card-theme-formats=svg")))
5649     (native-inputs
5650      `(("desktop-file-utils" ,desktop-file-utils)
5651        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5652        ("intltool" ,intltool)
5653        ("itstool" ,itstool)
5654        ("pkg-config" ,pkg-config)
5655        ("xmllint" ,libxml2)))
5656     (inputs
5657      `(("gtk+" ,gtk+)
5658        ("guile" ,guile-2.2)
5659        ("libcanberra" ,libcanberra)
5660        ("librsvg" ,librsvg)))
5661     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5662     (synopsis "Solitaire card games")
5663     (description
5664      "Aisleriot (also known as Solitaire or sol) is a collection of card games
5665 which are easy to play with the aid of a mouse.")
5666     (license license:gpl3+)))
5667
5668 (define-public amtk
5669   (package
5670     (name "amtk")
5671     (version "5.0.2")
5672     (source (origin
5673               (method url-fetch)
5674               (uri (string-append "mirror://gnome/sources/amtk/"
5675                                   (version-major+minor version) "/"
5676                                   "amtk-" version ".tar.xz"))
5677               (sha256
5678                (base32
5679                 "11jgz2i9wjzv4alrxl1qyxiapb52w7vs5ygfgsw0qgdap8gqkk3i"))))
5680     (build-system gnu-build-system)
5681     (arguments
5682      '(#:configure-flags '("--enable-gtk-doc")))
5683     (native-inputs
5684      `(("gobject-introspection" ,gobject-introspection)
5685        ("glib:bin" ,glib "bin")         ; for glib-mkenums
5686        ("gtk-doc" ,gtk-doc/stable)
5687        ("pkg-config" ,pkg-config)))
5688     (inputs
5689      `(("glib" ,glib)
5690        ("gtk+" ,gtk+)))
5691     (home-page "https://wiki.gnome.org/Projects/Amtk")
5692     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5693     (description
5694      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5695 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
5696 both a traditional UI or a modern UI with a GtkHeaderBar.")
5697     (license license:lgpl2.1+)))
5698
5699 (define-public devhelp
5700   (package
5701     (name "devhelp")
5702     (version "3.34.0")
5703     (source (origin
5704               (method url-fetch)
5705               (uri (string-append "mirror://gnome/sources/" name "/"
5706                                   (version-major+minor version) "/"
5707                                   name "-" version ".tar.xz"))
5708               (sha256
5709                (base32
5710                 "0zpmn6fgkgiayvn4diia5df0s6s7dqrdnp3nrvpavsmgn0vhb4pg"))))
5711     (build-system meson-build-system)
5712     (arguments
5713      '(#:glib-or-gtk? #t
5714        #:phases
5715        (modify-phases %standard-phases
5716          (add-after 'unpack 'skip-gtk-update-icon-cache
5717            ;; Don't create 'icon-theme.cache'.
5718            (lambda _
5719              (substitute* "meson_post_install.py"
5720                (("gtk-update-icon-cache") "true"))
5721              #t)))))
5722     (native-inputs
5723      `(("intltool" ,intltool)
5724        ("itstool" ,itstool)
5725        ("gobject-introspection" ,gobject-introspection)
5726        ("glib:bin" ,glib "bin") ; for glib-mkmenus
5727        ("pkg-config" ,pkg-config)))
5728     (inputs
5729      `(("amtk" ,amtk)
5730        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5731        ("webkitgtk" ,webkitgtk)))
5732     (home-page "https://wiki.gnome.org/Apps/Devhelp")
5733     (synopsis "API documentation browser for GNOME")
5734     (description
5735      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
5736 natively with GTK-Doc (the API reference system developed for GTK+ and used
5737 throughout GNOME for API documentation).")
5738     (license license:gpl2+)))
5739
5740 (define-public cogl
5741   (package
5742     (name "cogl")
5743     (version "1.22.8")
5744     (source
5745      (origin
5746        (method url-fetch)
5747        (uri (string-append "mirror://gnome/sources/cogl/"
5748                            (version-major+minor version) "/"
5749                            "cogl-" version ".tar.xz"))
5750        (sha256
5751         (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
5752     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
5753     ;; cogl, corresponding changes may be appropriate in mutter as well.
5754     (build-system gnu-build-system)
5755     (native-inputs
5756      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5757        ("gobject-introspection" ,gobject-introspection)
5758        ("xorg-server" ,xorg-server-for-tests)
5759        ("pkg-config" ,pkg-config)))
5760     (propagated-inputs
5761      `(("glib" ,glib)
5762        ("gdk-pixbuf" ,gdk-pixbuf)
5763        ("libx11" ,libx11)
5764        ("libxext" ,libxext)
5765        ("libxfixes" ,libxfixes)
5766        ("libxdamage" ,libxdamage)
5767        ("libxcomposite" ,libxcomposite)
5768        ("libxrandr" ,libxrandr)))
5769     (inputs
5770      `(("mesa" ,mesa)
5771        ("cairo" ,cairo)
5772        ("pango" ,pango)
5773        ("gstreamer" ,gstreamer)
5774        ("gst-plugins-base" ,gst-plugins-base)
5775        ("wayland" ,wayland)))
5776     (arguments
5777      `(#:disallowed-references (,xorg-server-for-tests)
5778        #:configure-flags (list "--enable-cogl-gst"
5779                                "--enable-wayland-egl-platform"
5780                                "--enable-wayland-egl-server"
5781
5782                                ;; Arrange to pass an absolute file name to
5783                                ;; dlopen for libGL.so.
5784                                (string-append "--with-gl-libname="
5785                                               (assoc-ref %build-inputs "mesa")
5786                                               "/lib/libGL.so"))
5787        #:phases
5788        (modify-phases %standard-phases
5789          (add-after 'unpack 'fix-build-with-mesa-20
5790            (lambda _
5791              ;; Work around a problem with Mesa 20 where some macros used by
5792              ;; Cogl went missing from eglext.h.  This can likely be removed
5793              ;; for newer versions of Cogl or Mesa.
5794              ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
5795              (substitute* '("configure"
5796                             "cogl/winsys/cogl-winsys-egl-kms.c")
5797                (("#include <EGL/eglext.h>" all)
5798                 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
5799              #t))
5800          (add-before 'check 'start-xorg-server
5801                      (lambda* (#:key tests? inputs #:allow-other-keys)
5802                        (if tests?
5803                            (begin
5804                              ;; The test suite requires a running X server.
5805                              (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
5806                                              (assoc-ref inputs "xorg-server")))
5807                              (setenv "DISPLAY" ":1")
5808                              #t)
5809                            (format #t "test suite not run~%"))
5810                        #t)))))
5811     (home-page "https://www.cogl3d.org")
5812     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
5813     (description
5814      "Cogl is a small library for using 3D graphics hardware to draw pretty
5815 pictures.  The API departs from the flat state machine style of OpenGL and is
5816 designed to make it easy to write orthogonal components that can render
5817 without stepping on each others toes.")
5818     (license (list license:expat       ; most of the code
5819                    license:bsd-3       ; cogl/cogl-point-in-poly.c
5820                    license:sgifreeb2.0 ; cogl-path/tesselator/
5821                    license:asl2.0))))  ; examples/android/
5822
5823 (define-public clutter
5824   (package
5825     (name "clutter")
5826     (version "1.26.2")
5827     (source
5828      (origin
5829        (method url-fetch)
5830        (uri (string-append "mirror://gnome/sources/" name "/"
5831                            (version-major+minor version) "/"
5832                            name "-" version ".tar.xz"))
5833        (sha256
5834         (base32
5835          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
5836     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
5837     ;; to clutter, corresponding changes may be appropriate in mutter as well.
5838     (build-system gnu-build-system)
5839     (outputs '("out"
5840                "doc"))                            ;9 MiB of gtk-doc HTML pages
5841     (native-inputs
5842      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
5843        ("gobject-introspection" ,gobject-introspection)
5844        ("pkg-config" ,pkg-config)
5845        ("xsltproc" ,libxslt)))
5846     (propagated-inputs
5847      `(("cogl" ,cogl)
5848        ("cairo" ,cairo)
5849        ("atk" ,atk)
5850        ("gtk+" ,gtk+)
5851        ("json-glib" ,json-glib)
5852        ("glib" ,glib)
5853        ("libxcomposite" ,libxcomposite)
5854        ("libxdamage" ,libxdamage)
5855        ("libxext" ,libxext)
5856        ("xinput" ,xinput)))
5857     (inputs
5858      `(("libxkbcommon" ,libxkbcommon)
5859        ("udev" ,eudev)))
5860     (arguments
5861      `(#:configure-flags (list "--enable-x11-backend=yes"
5862
5863                                ;; This produces share/doc/{clutter,cally}.
5864                                (string-append "--with-html-dir="
5865                                               (assoc-ref %outputs "doc")
5866                                               "/share/doc"))
5867        ;; XXX FIXME: Get test suite working.  It would probably fail in the
5868        ;; same way the cogl tests fail, since clutter is based on cogl.
5869        #:tests? #f))
5870     (home-page "http://www.clutter-project.org")
5871     (synopsis "OpenGL-based interactive canvas library")
5872     (description
5873      "Clutter is an OpenGL-based interactive canvas library, designed for
5874 creating fast, mainly 2D single window applications such as media box UIs,
5875 presentations, kiosk style applications and so on.")
5876     (license license:lgpl2.0+)))
5877
5878 (define-public clutter-gtk
5879   (package
5880     (name "clutter-gtk")
5881     (version "1.8.4")
5882     (source
5883      (origin
5884        (method url-fetch)
5885        (uri (string-append "mirror://gnome/sources/" name "/"
5886                            (version-major+minor version) "/"
5887                            name "-" version ".tar.xz"))
5888        (sha256
5889         (base32
5890          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
5891     (build-system gnu-build-system)
5892     (native-inputs
5893      `(("pkg-config" ,pkg-config)
5894        ("gobject-introspection" ,gobject-introspection)))
5895     (propagated-inputs
5896      ;; clutter-gtk.pc refers to all these.
5897      `(("clutter" ,clutter)
5898        ("gtk+" ,gtk+)))
5899     (home-page "http://www.clutter-project.org")
5900     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
5901     (description
5902      "Clutter is an OpenGL-based interactive canvas library, designed for
5903 creating fast, mainly 2D single window applications such as media box UIs,
5904 presentations, kiosk style applications and so on.")
5905     (license license:lgpl2.0+)))
5906
5907 (define-public clutter-gst
5908   (package
5909     (name "clutter-gst")
5910     (version "3.0.27")
5911     (source
5912      (origin
5913        (method url-fetch)
5914        (uri (string-append "mirror://gnome/sources/clutter-gst/"
5915                            (version-major+minor version) "/"
5916                            "clutter-gst-" version ".tar.xz"))
5917        (sha256
5918         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
5919     (build-system gnu-build-system)
5920     (native-inputs
5921      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
5922        ("pkg-config" ,pkg-config)
5923        ("gobject-introspection" ,gobject-introspection)))
5924     (inputs
5925      `(("clutter" ,clutter)
5926        ("gstreamer" ,gstreamer)
5927        ("gst-plugins-base" ,gst-plugins-base)))
5928     (home-page "http://www.clutter-project.org")
5929     (synopsis "Integration library for using GStreamer with Clutter")
5930     (description
5931      "Clutter-Gst is an integration library for using GStreamer with Clutter.
5932 It provides a GStreamer sink to upload frames to GL and an actor that
5933 implements the ClutterGstPlayer interface using playbin.  Clutter is an
5934 OpenGL-based interactive canvas library.")
5935     (license license:lgpl2.0+)))
5936
5937 (define-public libchamplain
5938   (package
5939     (name "libchamplain")
5940     (version "0.12.16")
5941     (source (origin
5942               (method url-fetch)
5943               (uri (string-append
5944                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
5945                     version ".tar.xz"))
5946               (sha256
5947                (base32
5948                 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
5949     (build-system gnu-build-system)
5950     (arguments '(#:configure-flags '("--enable-vala")))
5951     (native-inputs
5952      `(("gobject-introspection" ,gobject-introspection)
5953        ("pkg-config" ,pkg-config)
5954        ("vala" ,vala)))
5955     (propagated-inputs
5956      `(("libsoup" ,libsoup)
5957        ("sqlite" ,sqlite)
5958        ("clutter" ,clutter)
5959        ("clutter-gtk" ,clutter-gtk)
5960        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
5961        ("cairo" ,cairo)
5962        ("gtk+3" ,gtk+)
5963        ("glib" ,glib)))
5964     (home-page "https://projects.gnome.org/libchamplain/")
5965     (synopsis "C library providing a ClutterActor to display maps")
5966     (description
5967      "libchamplain is a C library providing a ClutterActor to display maps.
5968 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
5969 and Perl bindings are also available.  It supports numerous free map sources
5970 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
5971     (license license:lgpl2.1+)))
5972
5973 (define-public gom
5974   (package
5975     (name "gom")
5976     (version "0.3.2")
5977     (source
5978      (origin
5979        (method url-fetch)
5980        (uri (string-append "mirror://gnome/sources/gom/"
5981                            (version-major+minor version) "/"
5982                            "gom-" version ".tar.xz"))
5983        (sha256
5984         (base32
5985          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
5986     (build-system gnu-build-system)
5987     (native-inputs
5988      `(("intltool" ,intltool)
5989        ("pkg-config" ,pkg-config)
5990        ("gobject-introspection" ,gobject-introspection)))
5991     (inputs
5992      `(("glib" ,glib)
5993        ("gdk-pixbuf" ,gdk-pixbuf)
5994        ("sqlite" ,sqlite)))
5995     ;; XXX TODO: Figure out how to run the test suite.
5996     (arguments `(#:tests? #f))
5997     (home-page "https://wiki.gnome.org/Projects/Gom")
5998     (synopsis "Object mapper from GObjects to SQLite")
5999     (description
6000      "Gom provides an object mapper from GObjects to SQLite.  It helps you
6001 write applications that need to store structured data as well as make complex
6002 queries upon that data.")
6003     (license license:lgpl2.1+)))
6004
6005 (define-public libgnome-games-support
6006   (package
6007     (name "libgnome-games-support")
6008     (version "1.4.4")
6009     (source (origin
6010               (method url-fetch)
6011               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
6012                                   (version-major+minor version) "/"
6013                                   "libgnome-games-support-" version ".tar.xz"))
6014               (sha256
6015                (base32
6016                 "1zkbmnrn161p74qg6jhsn9f66yjjzxfm13pl1klv9av8k1bax9pq"))))
6017     (build-system gnu-build-system)
6018     (arguments
6019      '(#:phases
6020        (modify-phases %standard-phases
6021          (add-before 'check 'pre-check
6022            (lambda _
6023              ;; Tests require a writable HOME.
6024              (setenv "HOME" (getcwd))
6025              #t)))))
6026     (native-inputs
6027      `(("intltool" ,intltool)
6028        ("pkg-config" ,pkg-config)
6029        ("vala" ,vala)))
6030     (propagated-inputs
6031      ;; Required by libgnome-games-support-1.0.pc
6032      `(("gtk+" ,gtk+)
6033        ("libgee" ,libgee)))
6034     (home-page "https://www.gnome.org/")
6035     (synopsis "Useful functionality shared among GNOME games")
6036     (description
6037      "libgnome-games-support is a small library intended for internal use by
6038 GNOME Games, but it may be used by others.")
6039     (license license:lgpl3+)))
6040
6041 (define-public gnome-klotski
6042   (package
6043     (name "gnome-klotski")
6044     (version "3.34.0")
6045     (source (origin
6046               (method url-fetch)
6047               (uri (string-append "mirror://gnome/sources/" name "/"
6048                                   (version-major+minor version) "/"
6049                                   name "-" version ".tar.xz"))
6050               (sha256
6051                (base32
6052                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
6053     (build-system meson-build-system)
6054     (arguments
6055      '(#:glib-or-gtk? #t
6056        #:phases
6057        (modify-phases %standard-phases
6058          (add-after 'unpack 'skip-gtk-update-icon-cache
6059            ;; Don't create 'icon-theme.cache'.
6060            (lambda _
6061              (substitute* "build-aux/meson_post_install.py"
6062                (("gtk-update-icon-cache") (which "true")))
6063              #t)))))
6064     (native-inputs
6065      `(("desktop-file-utils" ,desktop-file-utils)
6066        ("glib:bin" ,glib "bin") ; for glib-compile-resources
6067        ("intltool" ,intltool)
6068        ("itstool" ,itstool)
6069        ("pkg-config" ,pkg-config)
6070        ("vala" ,vala)
6071        ("xmllint" ,libxml2)))
6072     (inputs
6073      `(("gtk+" ,gtk+)
6074        ("libgnome-games-support" ,libgnome-games-support)
6075        ("librsvg" ,librsvg)))
6076     (home-page "https://wiki.gnome.org/Apps/Klotski")
6077     (synopsis "Sliding block puzzles")
6078     (description
6079      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
6080 the patterned block to the area bordered by green markers.  To do so, you will
6081 need to slide other blocks out of the way.  Complete each puzzle in as few moves
6082 as possible!")
6083     (license license:gpl2+)))
6084
6085 (define-public grilo
6086   (package
6087     (name "grilo")
6088     (version "0.3.12")
6089     (source
6090      (origin
6091        (method url-fetch)
6092        (uri (string-append "mirror://gnome/sources/grilo/"
6093                            (version-major+minor version) "/"
6094                            "grilo-" version ".tar.xz"))
6095        (sha256
6096         (base32 "0w8sq5g6g1rg85h53vbll8va70fcp6082mlpmy98aa03444ddyyv"))))
6097     (build-system meson-build-system)
6098     (native-inputs
6099      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
6100        ("intltool" ,intltool)
6101        ("pkg-config" ,pkg-config)
6102        ("gobject-introspection" ,gobject-introspection)
6103        ("gtk-doc" ,gtk-doc/stable)
6104        ("vala" ,vala)))
6105     (inputs
6106      `(("cyrus-sasl" ,cyrus-sasl)
6107        ("glib" ,glib)
6108        ("gtk+" ,gtk+)
6109        ("libxml2" ,libxml2)
6110        ("liboauth" ,liboauth)
6111        ("libsoup" ,libsoup)
6112        ("totem-pl-parser" ,totem-pl-parser)))
6113     (native-search-paths
6114      (list (search-path-specification
6115             (variable "GRL_PLUGIN_PATH")
6116             (files (list (string-append "lib/grilo-"
6117                                         (version-major+minor version)))))))
6118     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
6119     (synopsis "Framework for discovering and browsing media")
6120     (description
6121      "Grilo is a framework focused on making media discovery and browsing easy
6122 for application developers.")
6123     (license license:lgpl2.1+)))
6124
6125 (define-public grilo-plugins
6126   (package
6127     (name "grilo-plugins")
6128     (version "0.3.11")
6129     (source
6130      (origin
6131        (method url-fetch)
6132        (uri (string-append "mirror://gnome/sources/" name "/"
6133                            (version-major+minor version) "/"
6134                            name "-" version ".tar.xz"))
6135        (sha256
6136         (base32 "0wyd3n5mn7b77hxylkc3f62v01mlavh96901pz342hwrn42ydqnx"))))
6137     (build-system meson-build-system)
6138     (native-inputs
6139      `(("gettext" ,gettext-minimal)
6140        ("glib:bin" ,glib "bin")
6141        ("gtk+:bin" ,gtk+ "bin")
6142        ("itstool" ,itstool)
6143        ("pkg-config" ,pkg-config)))
6144     ;; TODO: ahavi, gstreamer
6145     (inputs
6146      `(("grilo" ,grilo)
6147        ;("gmime" ,gmime) ; unused
6148        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6149        ("gom" ,gom)
6150        ;("gssdp" ,gssdp) ; unused
6151        ;("gupnp" ,gupnp) ; unused
6152        ;("gupnp-av" ,gupnp-av) ; unused
6153        ("json-glib" ,json-glib)
6154        ("avahi" ,avahi)
6155        ("libgdata" ,libgdata)
6156        ("libmediaart" ,libmediaart)
6157        ;("librest" ,rest) ; unused
6158        ("libsoup" ,libsoup)
6159        ("totam-pl-parser" ,totem-pl-parser)
6160        ("tracker" ,tracker))) ; unused because it's too old
6161     (arguments
6162      `(#:glib-or-gtk? #t
6163        ;;Disable lua-factory as it needs missing dependencies
6164        #:configure-flags '("-Denable-lua-factory=no")))
6165     (home-page "https://live.gnome.org/Grilo")
6166     (synopsis "Plugins for the Grilo media discovery library")
6167     (description
6168      "Grilo is a framework focused on making media discovery and browsing easy
6169 for application developers.  This package provides plugins for common media
6170 discovery protocols.")
6171     (license license:lgpl2.1+)))
6172
6173 (define-public totem
6174   (package
6175     (name "totem")
6176     (version "3.38.0")
6177     (source
6178      (origin
6179        (method url-fetch)
6180        (uri (string-append "mirror://gnome/sources/totem/"
6181                            (version-major+minor version) "/"
6182                            "totem-" version ".tar.xz"))
6183        (sha256
6184         (base32
6185          "0bs33ijvxbr2prb9yj4dxglsszslsn9k258n311sld84masz4ad8"))))
6186     (build-system meson-build-system)
6187     (native-inputs
6188      `(("pkg-config" ,pkg-config)
6189        ("desktop-file-utils" ,desktop-file-utils)
6190        ("gettext" ,gettext-minimal)
6191        ("gobject-introspection" ,gobject-introspection)
6192        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
6193        ("itstool" ,itstool)
6194        ("xmllint" ,libxml2)
6195        ("xorg-server" ,xorg-server-for-tests)))
6196     (propagated-inputs
6197      `(("dconf" ,dconf)))
6198     (inputs
6199      `(("gtk+" ,gtk+)
6200        ("gdk-pixbuf" ,gdk-pixbuf)
6201        ("atk" ,atk)
6202        ("cairo" ,cairo)
6203        ("dbus-glib" ,dbus-glib)
6204        ("clutter" ,clutter)
6205        ("clutter-gtk" ,clutter-gtk)
6206        ("clutter-gst" ,clutter-gst)
6207        ("xorgproto" ,xorgproto)
6208        ("libxxf86vm" ,libxxf86vm)
6209        ("libxtst" ,libxtst)
6210        ("libxrandr" ,libxrandr)
6211        ("libxml2" ,libxml2)
6212        ("libsoup" ,libsoup)
6213        ("libpeas" ,libpeas)
6214        ("librsvg" ,librsvg)
6215        ("lirc" ,lirc)
6216        ("gnome-desktop" ,gnome-desktop)
6217        ("gstreamer" ,gstreamer)
6218        ("gst-plugins-base" ,gst-plugins-base)
6219        ("gst-plugins-good" ,gst-plugins-good)
6220        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6221        ("adwaita-icon-theme" ,adwaita-icon-theme)
6222        ("python" ,python)
6223        ("python-pygobject" ,python-pygobject)
6224        ("totem-pl-parser" ,totem-pl-parser)
6225        ("grilo" ,grilo)
6226        ("grilo-plugins" ,grilo-plugins)
6227        ("vala" ,vala)))
6228     (arguments
6229      `(#:glib-or-gtk? #t
6230
6231        ;; Disable automatic GStreamer plugin installation via PackageKit and
6232        ;; all that.
6233        #:configure-flags '("-D" "enable-easy-codec-installation=no"
6234
6235                            ;; Do not build .a files for the plugins, it's
6236                            ;; completely useless.  This saves 2 MiB.
6237                            "--default-library" "shared")
6238        #:phases
6239        (modify-phases %standard-phases
6240          (add-after 'unpack 'skip-gtk-update-icon-cache
6241            ;; Don't create 'icon-theme.cache'.
6242            (lambda _
6243              (substitute* "meson_post_install.py"
6244                (("gtk-update-icon-cache") "true"))
6245              #t))
6246          (add-after 'unpack 'patch-failing-test
6247            (lambda _
6248              ;; Work around test failure with GStreamer 1.18, because the test
6249              ;; relies on "und" not being mapped to a particular language:
6250              ;; https://gitlab.gnome.org/GNOME/totem/-/issues/450
6251             (substitute* "src/test-totem.c"
6252               (("und") "nosuchlang"))
6253             #t))
6254          (add-before
6255           'install 'disable-cache-generation
6256           (lambda _
6257             (setenv "DESTDIR" "/")
6258             #t))
6259          (add-before
6260           'check 'pre-check
6261           (lambda _
6262             ;; Tests require a running X server.
6263             (system "Xvfb :1 &")
6264             (setenv "DISPLAY" ":1")
6265             #t))
6266          (add-after
6267           'install 'wrap-totem
6268           (lambda* (#:key inputs outputs #:allow-other-keys)
6269             (let ((out             (assoc-ref outputs "out"))
6270                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6271                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6272               (wrap-program (string-append out "/bin/totem")
6273                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6274                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
6275               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6276                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
6277             #t)))))
6278     (home-page "https://wiki.gnome.org/Apps/Videos")
6279     (synopsis "Simple media player for GNOME based on GStreamer")
6280     (description "Totem is a simple yet featureful media player for GNOME
6281 which can read a large number of file formats.")
6282     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6283     ;; to be used and distributed together with GStreamer and Totem.  See
6284     ;; file://COPYING in the source distribution for details.
6285     (license license:gpl2+)))
6286
6287 (define-public rhythmbox
6288  (package
6289    (name "rhythmbox")
6290    (version "3.4.4")
6291    (source (origin
6292             (method url-fetch)
6293             (uri (string-append "mirror://gnome/sources/rhythmbox/"
6294                                 (version-major+minor version) "/"
6295                                 "rhythmbox-" version ".tar.xz"))
6296             (sha256
6297              (base32
6298               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
6299    (build-system glib-or-gtk-build-system)
6300    (arguments
6301     `(#:configure-flags
6302       (list "--enable-lirc"
6303             "--enable-python"
6304             "--enable-vala"
6305             "--with-brasero"
6306             "--with-gudev"
6307             "--with-libsecret")
6308       #:phases
6309       (modify-phases %standard-phases
6310         (add-after
6311          'install 'wrap-rhythmbox
6312          (lambda* (#:key inputs outputs #:allow-other-keys)
6313            (let ((out               (assoc-ref outputs "out"))
6314                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6315                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
6316                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
6317                  (python-path       (getenv "PYTHONPATH")))
6318              (wrap-program (string-append out "/bin/rhythmbox")
6319                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
6320                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6321                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
6322                `("PYTHONPATH"             ":" prefix (,python-path))))
6323            #t)))))
6324    (propagated-inputs
6325     `(("dconf" ,dconf)))
6326    (native-inputs
6327     `(("itstool" ,itstool)
6328       ("intltool" ,intltool)
6329       ("glib" ,glib "bin")
6330       ("gobject-introspection" ,gobject-introspection)
6331       ("desktop-file-utils" ,desktop-file-utils)
6332       ("pkg-config" ,pkg-config)
6333       ("xmllint" ,libxml2)))
6334    (inputs
6335     `(("json-glib" ,json-glib)
6336       ("tdb" ,tdb)
6337       ("gnome-desktop" ,gnome-desktop)
6338       ("python" ,python)
6339       ("python-pygobject" ,python2-pygobject)
6340       ("vala" ,vala)
6341       ("gmime" ,gmime)
6342       ("adwaita-icon-theme" ,adwaita-icon-theme)
6343       ("grilo" ,grilo)
6344       ("grilo-plugins" ,grilo-plugins)
6345       ("gstreamer" ,gstreamer)
6346       ("gst-plugins-base" ,gst-plugins-base)
6347       ("gst-plugins-good" ,gst-plugins-good)
6348       ("totem-pl-parser" ,totem-pl-parser)
6349       ("libgudev" ,libgudev)
6350       ;;("libmtp" ,libmtp) FIXME: Not detected
6351       ("libsecret" ,libsecret)
6352       ("libsoup" ,libsoup)
6353       ("libnotify" ,libnotify)
6354       ("libpeas" ,libpeas)
6355       ("lirc" ,lirc)
6356       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6357       ;;("clutter" ,clutter)
6358       ;;("clutter-gtk" ,clutter-gtk)
6359       ;;("clutter-gst" ,clutter-gst)
6360       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6361       ("atk" ,atk)
6362       ("pango" ,pango)
6363       ("gtk+" ,gtk+)
6364       ;; TODO:
6365       ;;  * libgpod
6366       ;;  * mx
6367       ("brasero" ,brasero)))
6368    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6369    (synopsis "Music player for GNOME")
6370    (description "Rhythmbox is a music playing application for GNOME.  It
6371 supports playlists, song ratings, and any codecs installed through gstreamer.")
6372    (license license:gpl2+)))
6373
6374 (define-public eog
6375  (package
6376    (name "eog")
6377    (version "3.34.1")
6378    (source (origin
6379             (method url-fetch)
6380             (uri (string-append "mirror://gnome/sources/" name "/"
6381                                 (version-major+minor version) "/"
6382                                 name "-" version ".tar.xz"))
6383             (sha256
6384              (base32
6385               "0b7ld4azs9xbdjsk9b91ywhdzvxgajhndiwiivxjzbr0hjgp7c7x"))))
6386    (build-system meson-build-system)
6387    (arguments
6388     `(#:configure-flags
6389       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6390       (list (string-append "-Dc_link_args=-Wl,-rpath="
6391                            (assoc-ref %outputs "out") "/lib/eog"))
6392       #:phases
6393       (modify-phases %standard-phases
6394          (add-after 'unpack 'skip-gtk-update-icon-cache
6395            ;; Don't create 'icon-theme.cache'.
6396            (lambda _
6397              (substitute* "meson_post_install.py"
6398                (("gtk-update-icon-cache") "true"))
6399              #t))
6400         (add-after 'install 'wrap-eog
6401           (lambda* (#:key outputs #:allow-other-keys)
6402             (let ((out               (assoc-ref outputs "out"))
6403                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6404               (wrap-program (string-append out "/bin/eog")
6405                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6406             #t)))))
6407    (propagated-inputs
6408     `(("dconf" ,dconf)))
6409    (native-inputs
6410     `(("intltool" ,intltool)
6411       ("itstool" ,itstool)
6412       ("glib" ,glib "bin")
6413       ("gobject-introspection" ,gobject-introspection)
6414       ("pkg-config" ,pkg-config)
6415       ("xmllint" ,libxml2)))
6416    (inputs
6417     `(("gnome-desktop" ,gnome-desktop)
6418       ("shared-mime-info" ,shared-mime-info)
6419       ("adwaita-icon-theme" ,adwaita-icon-theme)
6420       ("exempi" ,exempi)
6421       ("lcms" ,lcms)
6422       ("libexif" ,libexif)
6423       ("libpeas" ,libpeas)
6424       ("libjpeg" ,libjpeg-turbo)
6425       ("librsvg" ,librsvg-next)
6426       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6427       ("gtk+" ,gtk+)))
6428    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6429    (synopsis "GNOME image viewer")
6430    (description "Eye of GNOME is the GNOME image viewer.  It
6431 supports image conversion, rotation, and slideshows.")
6432    (license license:gpl2+)))
6433
6434 (define-public eog-plugins
6435   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6436   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
6437   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
6438   ;; 'XDG_DATA_DIRS' appropriately set.
6439   (package
6440     (name "eog-plugins")
6441     (version "3.26.4")
6442     (source (origin
6443               (method url-fetch)
6444               (uri (string-append "mirror://gnome/sources/eog-plugins/"
6445                                   (version-major+minor version) "/"
6446                                   "eog-plugins-" version ".tar.xz"))
6447               (sha256
6448                (base32
6449                 "0pd7fqa4ciy5844k5s1c6rlsqkk8pxd8cchxjcjhxlsngm9lynnx"))))
6450     (build-system gnu-build-system)
6451     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6452     (synopsis "Extensions for the Eye of GNOME image viewer")
6453     (native-inputs
6454      `(("pkg-config" ,pkg-config)
6455        ("gettext" ,gettext-minimal)))
6456     (inputs
6457      `(("eog" ,eog)
6458        ("glib" ,glib)
6459        ("gtk+" ,gtk+)
6460        ("libpeas" ,libpeas)
6461        ("libexif" ,libexif)
6462        ("libchamplain" ,libchamplain)))
6463     (description
6464      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6465 notably:
6466
6467 @itemize
6468 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
6469 @item @dfn{Map}, which displays a map of where the picture was taken on the
6470 side panel;
6471 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6472 @end itemize\n")
6473
6474     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6475     ;; long suspicious byte stream that goes to a
6476     ;; ".gresource.eog_postasa_plugin" ELF section.
6477     (license license:gpl2+)))
6478
6479 (define-public libgudev
6480   (package
6481     (name "libgudev")
6482     (version "232")
6483     (source (origin
6484               (method url-fetch)
6485               (uri (string-append "mirror://gnome/sources/" name "/"
6486                                   version "/" name "-" version ".tar.xz"))
6487               (sha256
6488                (base32
6489                 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
6490     (build-system gnu-build-system)
6491     (arguments
6492      '(#:configure-flags
6493        ;; umockdev depends on libgudev.
6494        (list "--disable-umockdev")))
6495     (native-inputs
6496      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6497        ("gobject-introspection" ,gobject-introspection)
6498        ("pkg-config" ,pkg-config)))
6499     (propagated-inputs
6500      `(("glib" ,glib))) ; required by gudev-1.0.pc
6501     (inputs
6502      `(("udev" ,eudev)))
6503     (home-page "https://wiki.gnome.org/Projects/libgudev")
6504     (synopsis "GObject bindings for libudev")
6505     (description
6506      "This library provides GObject bindings for libudev.  It was originally
6507 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
6508     (license license:lgpl2.1+)))
6509
6510 (define-public gvfs
6511   (package
6512     (name "gvfs")
6513     (version "1.40.2")
6514     (source (origin
6515               (method url-fetch)
6516               (uri (string-append "mirror://gnome/sources/gvfs/"
6517                                   (version-major+minor version) "/"
6518                                   "gvfs-" version ".tar.xz"))
6519               (sha256
6520                (base32
6521                 "07lpcfric3h0302n9b1pwa38mjb76r9s98kg2867y2d1qvzfivxx"))
6522               ;; This patch may be removed when upgrading to version 1.46.x.
6523               (patches
6524                (search-patches "gvfs-add-support-for-libplist-2.2.patch"))))
6525     (build-system meson-build-system)
6526     (arguments
6527      '(#:glib-or-gtk? #t
6528        #:configure-flags
6529        (list "-Dsystemduserunitdir=no"
6530              "-Dtmpfilesdir=no"
6531              ;; Otherwise, the RUNPATH will lack the final path component.
6532              (string-append "-Dc_link_args=-Wl,-rpath="
6533                             (assoc-ref %outputs "out") "/lib/gvfs"))))
6534     (native-inputs
6535      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6536        ("gettext" ,gettext-minimal)
6537        ("gtk-doc" ,gtk-doc/stable)
6538        ("pkg-config" ,pkg-config)
6539        ("xsltproc" ,libxslt)))
6540     (inputs
6541      `(("avahi" ,avahi)
6542        ("docbook-xml" ,docbook-xml-4.2)
6543        ("docbook-xsl" ,docbook-xsl)
6544        ("dbus" ,dbus)
6545        ("elogind" ,elogind)
6546        ("fuse" ,fuse)
6547        ("gcr" ,gcr)
6548        ("glib" ,glib)
6549        ("gnome-online-accounts" ,gnome-online-accounts)
6550        ("libarchive" ,libarchive)
6551        ("libbluray" ,libbluray)
6552        ("libcap" ,libcap)
6553        ("libcdio-paranoia" ,libcdio-paranoia)
6554        ("libgcrypt" ,libgcrypt)
6555        ("libgdata" ,libgdata)
6556        ("libgphoto2" ,libgphoto2)
6557        ("libgudev" ,libgudev)
6558        ("libimobiledevice" ,libimobiledevice)
6559        ("libmtp" ,libmtp)
6560        ("libnfs" ,libnfs)
6561        ("libsecret" ,libsecret)
6562        ("libsmbclient" ,samba)
6563        ("libsoup" ,libsoup)
6564        ("libxml2" ,libxml2)
6565        ("openssh" ,openssh)
6566        ("polkit" ,polkit)
6567        ("udisks" ,udisks)))
6568     ;; CVE-2019-{12447,12448,12449} are fixed in the 1.40.2 release.
6569     (properties '((lint-hidden-cve . ("CVE-2019-12447"
6570                                       "CVE-2019-12448"
6571                                       "CVE-2019-12449"))))
6572     (home-page "https://wiki.gnome.org/gvfs/")
6573     (synopsis "Userspace virtual file system for GIO")
6574     (description
6575      "GVFS is a userspace virtual file system designed to work with the I/O
6576 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
6577 to all applications using the GIO API.  It also supports exposing the GVFS
6578 mounts to non-GIO applications using FUSE.
6579
6580 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6581 DAV, and others.")
6582     (license license:lgpl2.0+)))
6583
6584 (define-public gusb
6585   (package
6586     (name "gusb")
6587     (version "0.3.5")
6588     (source (origin
6589               (method git-fetch)
6590               (uri (git-reference
6591                      (url "https://github.com/hughsie/libgusb")
6592                      (commit version)))
6593               (file-name (git-file-name name version))
6594               (sha256
6595                (base32
6596                 "0ifhdqhpyxwsg0z9s1anj7cf5pya5qsqyp5ksh9n7mqwa4lrjkl8"))))
6597     (build-system meson-build-system)
6598     (native-inputs
6599      `(("gobject-introspection" ,gobject-introspection)
6600        ("pkg-config" ,pkg-config)
6601        ("vala" ,vala)
6602        ("gtk-doc" ,gtk-doc/stable)))
6603     (propagated-inputs
6604      ;; Both of these are required by gusb.pc.
6605      `(("glib" ,glib)
6606        ("libusb" ,libusb)))
6607     (arguments
6608      `(#:tests? #f)) ;libusb fails to initialize.  Wonder what that is.
6609     (home-page "https://github.com/hughsie/libgusb")
6610     (synopsis "GLib binding for libusb1")
6611     (description
6612      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6613 asynchronous control, bulk and interrupt transfers with proper cancellation
6614 and integration into a mainloop.  This makes it easy to integrate low level
6615 USB transfers with your high-level application or system daemon.")
6616     (license license:lgpl2.1+)))
6617
6618 (define-public simple-scan
6619   (package
6620     (name "simple-scan")
6621     (version "3.38.2")
6622     (source
6623      (origin
6624        (method url-fetch)
6625        (uri (string-append "mirror://gnome/sources/simple-scan/"
6626                            (version-major+minor version) "/"
6627                            "simple-scan-" version ".tar.xz"))
6628        (sha256
6629         (base32 "02sdkhxgr6i7iy481h4xavgaqd0a5dlsipzwrm4qd242jrr813d8"))))
6630     (build-system meson-build-system)
6631     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6632     (arguments
6633      '(#:glib-or-gtk? #t))
6634     (inputs
6635      `(("gtk" ,gtk+)
6636        ("zlib" ,zlib)
6637        ("cairo" ,cairo)
6638        ("colord" ,colord)
6639        ("gdk-pixbuf" ,gdk-pixbuf)
6640        ("gusb" ,gusb)
6641        ("libsane" ,sane-backends)))
6642     (native-inputs
6643      `(("gettext" ,gettext-minimal)
6644        ("itstool" ,itstool)
6645        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
6646        ("pkg-config" ,pkg-config)
6647        ("vala" ,vala)
6648        ("xmllint" ,libxml2)))
6649     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
6650     (synopsis "Document and image scanner")
6651     (description
6652      "Document Scanner is an easy-to-use application that lets you connect your
6653 scanner and quickly capture images and documents in an appropriate format.  It
6654 supports any scanner for which a suitable SANE driver is available, which is
6655 almost all of them.")
6656     (license license:gpl3+)))
6657
6658 (define-public eolie
6659   (package
6660     (name "eolie")
6661     (version "0.9.101")
6662     (source (origin
6663               (method url-fetch)
6664               (uri (string-append "https://adishatz.org/eolie/eolie-"
6665                                   version ".tar.xz"))
6666               (sha256
6667                (base32
6668                 "1v8n21y75abdzsnx5idyd0q6yfb6cd0sqbknlbkwh5fdgvjzyvwn"))))
6669     (build-system meson-build-system)
6670     (arguments
6671      `(#:glib-or-gtk? #t
6672        #:phases
6673        (modify-phases %standard-phases
6674          (add-after 'unpack 'skip-gtk-update-icon-cache
6675            ;; Don't create 'icon-theme.cache'.
6676            (lambda _
6677              (substitute* "meson_post_install.py"
6678                (("gtk-update-icon-cache") "true"))
6679              #t))
6680          (add-after 'wrap 'wrap-more
6681            (lambda* (#:key inputs outputs #:allow-other-keys)
6682              (let* ((out  (assoc-ref outputs "out"))
6683                     ;; These libraries must be on LD_LIBRARY_PATH.
6684                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6685                             "atk" "gtk+" "gsettings-desktop-schemas"
6686                             "gobject-introspection"))
6687                     (path (string-join
6688                            (map (lambda (lib)
6689                                   (string-append (assoc-ref inputs lib) "/lib"))
6690                                 libs)
6691                            ":")))
6692                (wrap-program (string-append out "/bin/eolie")
6693                  `("LD_LIBRARY_PATH" ":" prefix (,path))
6694                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
6695                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6696              #t)))))
6697     (native-inputs
6698      `(("intltool" ,intltool)
6699        ("itstool" ,itstool)
6700        ("pkg-config" ,pkg-config)
6701        ("python" ,python)
6702        ("glib:bin" ,glib "bin")))
6703     (inputs
6704      `(("gobject-introspection" ,gobject-introspection)
6705        ("glib-networking" ,glib-networking)
6706        ("cairo" ,cairo)
6707        ("gtk+" ,gtk+)
6708        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6709        ("python" ,python-wrapper)
6710        ("python-dateutil" ,python-dateutil)
6711        ("python-pyfxa" ,python-pyfxa)
6712        ("python-pygobject" ,python-pygobject)
6713        ("python-pycairo" ,python-pycairo)
6714        ("python-pycrypto" ,python-pycrypto)
6715        ("libhandy" ,libhandy)
6716        ("libsecret" ,libsecret)
6717        ("gtkspell3" ,gtkspell3)
6718        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6719        ("gnome-settings-daemon" ,gnome-settings-daemon) ; desktop-schemas are not enough
6720        ("webkitgtk" ,webkitgtk)))
6721     (home-page "https://wiki.gnome.org/Apps/Eolie")
6722     (synopsis "Web browser for GNOME")
6723     (description
6724      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
6725 a secret password store, an adblocker, and a modern UI.")
6726     (license license:gpl3+)))
6727
6728 (define-public epiphany
6729   (package
6730     (name "epiphany")
6731     (version "3.34.4")
6732     (source (origin
6733               (method url-fetch)
6734               (uri (string-append "mirror://gnome/sources/epiphany/"
6735                                   (version-major+minor version) "/"
6736                                   "epiphany-" version ".tar.xz"))
6737               (sha256
6738                (base32
6739                 "13ar3s40cds1rplwbzx0fzigf120w0rydiv05r3k6zpc0zy91qb0"))))
6740
6741     (build-system meson-build-system)
6742     (arguments
6743      '(#:glib-or-gtk? #t
6744        #:phases
6745        (modify-phases %standard-phases
6746          (add-after 'unpack 'skip-gtk-update-icon-cache
6747            ;; Don't create 'icon-theme.cache'.
6748            (lambda _
6749              (substitute* "post_install.py"
6750                (("gtk-update-icon-cache") "true"))
6751              #t))
6752          (add-after 'unpack 'disable-failing-tests
6753            (lambda _
6754              (substitute* "tests/meson.build"
6755                ;; embed_shell fails, because webkitgtk apparently no longer supports
6756                ;; overriding the ftp schema
6757                ;; web_app_utils fails due to missing network access
6758                (("(embed_shell|web_app_utils)_test,")
6759                 "find_program('sh'), args: ['-c', 'exit 77'],"))
6760              #t))
6761          (add-before 'check 'pre-check
6762            (lambda _
6763              ;; Tests require a running X server.
6764              (system "Xvfb :1 &")
6765              (setenv "DISPLAY" ":1")
6766              #t)))
6767        #:configure-flags
6768        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
6769        (list (string-append "-Dc_link_args=-Wl,-rpath="
6770                             (assoc-ref %outputs "out") "/lib/epiphany"))))
6771     (propagated-inputs
6772      `(("dconf" ,dconf)))
6773     (native-inputs
6774      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6775        ("glib:bin" ,glib "bin") ; for glib-mkenums
6776        ("intltool" ,intltool)
6777        ("itstool" ,itstool)
6778        ("pkg-config" ,pkg-config)
6779        ("xmllint" ,libxml2)
6780        ("xorg-server" ,xorg-server-for-tests)))
6781     (inputs
6782      `(("avahi" ,avahi)
6783        ("gcr" ,gcr)
6784        ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
6785        ("glib-networking" ,glib-networking)
6786        ("gnome-desktop" ,gnome-desktop)
6787        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6788        ("json-glib" ,json-glib)
6789        ("iso-codes" ,iso-codes)
6790        ("libdazzle" ,libdazzle)
6791        ("libnotify" ,libnotify)
6792        ("libsecret" ,libsecret)
6793        ("libxslt" ,libxslt)
6794        ("nettle" ,nettle) ; for hogweed
6795        ("sqlite" ,sqlite)
6796        ("webkitgtk" ,webkitgtk)))
6797     (home-page "https://wiki.gnome.org/Apps/Web")
6798     (synopsis "GNOME web browser")
6799     (description
6800      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
6801 principles are simplicity and standards compliance.")
6802     (license license:gpl2+)))
6803
6804 (define-public d-feet
6805   (package
6806     (name "d-feet")
6807     (version "0.3.14")
6808     (source (origin
6809               (method url-fetch)
6810               (uri (string-append "mirror://gnome/sources/" name "/"
6811                                   (version-major+minor version) "/"
6812                                   name "-" version ".tar.xz"))
6813               (sha256
6814                (base32
6815                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
6816     (build-system glib-or-gtk-build-system)
6817     (arguments
6818      '(#:out-of-source? #f ; tests need to run in the source directory.
6819        #:phases
6820        (modify-phases %standard-phases
6821          (add-before
6822           'check 'pre-check
6823           (lambda _
6824             ;; The test suite requires a running X server.
6825             (system "Xvfb :1 &")
6826             (setenv "DISPLAY" ":1")
6827             ;; Don't fail on missing '/etc/machine-id'.
6828             (setenv "DBUS_FATAL_WARNINGS" "0")
6829             ;; tests.py and window.py don't meet E402:
6830             ;;   E402 module level import not at top of file
6831             (substitute* "src/tests/Makefile"
6832               (("--ignore=E123") "--ignore=E123,E402"))
6833             #t))
6834          (add-after
6835           'install 'wrap-program
6836           (lambda* (#:key outputs #:allow-other-keys)
6837             (let ((prog (string-append (assoc-ref outputs "out")
6838                                        "/bin/d-feet")))
6839               (wrap-program prog
6840                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
6841                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
6842               #t))))))
6843     (native-inputs
6844      `(("intltool" ,intltool)
6845        ("itstool" ,itstool)
6846        ("pkg-config" ,pkg-config)
6847        ("python-pep8" ,python-pep8)
6848        ("xmllint" ,libxml2)
6849        ("xorg-server" ,xorg-server-for-tests)))
6850     (inputs
6851      `(("gobject-introspection" ,gobject-introspection)
6852        ("gtk+" ,gtk+)
6853        ("python" ,python-wrapper)
6854        ("hicolor-icon-theme" ,hicolor-icon-theme)
6855        ("python-pygobject" ,python-pygobject)))
6856     (home-page "https://wiki.gnome.org/Apps/DFeet")
6857     (synopsis "D-Bus debugger")
6858     (description
6859      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
6860 of running programs and invoke methods on those interfaces.")
6861     (license license:gpl2+)))
6862
6863 (define-public yelp-xsl
6864   (package
6865     (name "yelp-xsl")
6866     (version "3.34.2")
6867     (source
6868      (origin
6869        (method url-fetch)
6870        (uri
6871         (string-append "mirror://gnome/sources/" name "/"
6872                        (version-major+minor version) "/"
6873                        name "-" version ".tar.xz"))
6874        (sha256
6875         (base32 "1bdpgkzawhqmw52l6zx8czzg1ndfgcf1p44m2bxjdpqkc4afcgqc"))))
6876     (build-system gnu-build-system)
6877     (native-inputs
6878      `(("gettext-minimal" ,gettext-minimal)
6879        ("itstool" ,itstool)
6880        ("xmllint" ,libxml2)))
6881     (synopsis "XSL stylesheets for Yelp")
6882     (description "Yelp-XSL is a collection of programs and data files to help
6883 you build, maintain, and distribute documentation.  It provides XSLT stylesheets
6884 that can be built upon for help viewers and publishing systems.  These
6885 stylesheets output JavaScript and CSS content, and reference images
6886 provided by yelp-xsl. It also redistributes copies of the jQuery and
6887 jQuery.Syntax JavaScript libraries.")
6888     (home-page "https://wiki.gnome.org/Apps/Yelp")
6889     (license
6890      (list
6891       ;; XSLT
6892       license:gpl2+
6893       ;; Images
6894       license:lgpl2.1+
6895       ;; JavaScript
6896       license:expat))))
6897
6898 (define-public yelp
6899   (package
6900     (name "yelp")
6901     (version "3.32.2")
6902     (source (origin
6903               (method url-fetch)
6904               (uri (string-append "mirror://gnome/sources/" name "/"
6905                                   (version-major+minor version) "/"
6906                                   name "-" version ".tar.xz"))
6907               (sha256
6908                (base32
6909                 "0yrl96icmmrxvg7sxl519gzg9qb368cmzgrr9ddh181ignkxzx7f"))))
6910     (build-system glib-or-gtk-build-system)
6911     (native-inputs
6912      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6913        ("intltool" ,intltool)
6914        ("itstool" ,itstool)
6915        ("pkg-config" ,pkg-config)))
6916     (propagated-inputs
6917      `(("dconf" ,dconf)))
6918     (inputs
6919      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6920        ("libxslt" ,libxslt)
6921        ("sqlite" ,sqlite)
6922        ("webkitgtk" ,webkitgtk)
6923        ("yelp-xsl" ,yelp-xsl)))
6924     (home-page "https://wiki.gnome.org/Apps/Yelp")
6925     (synopsis "GNOME help browser")
6926     (description
6927      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
6928 man, info, and HTML documents.  It can locate documents according to the
6929 freedesktop.org help system specification.")
6930     (license license:gpl2+)))
6931
6932 (define-public yelp-tools
6933   (package
6934     (name "yelp-tools")
6935     (version "3.32.2")
6936     (source
6937      (origin
6938        (method url-fetch)
6939        (uri
6940         (string-append "mirror://gnome/sources/" name "/"
6941                        (version-major+minor version) "/"
6942                        name "-" version ".tar.xz"))
6943        (sha256
6944         (base32 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
6945     (build-system gnu-build-system)
6946     (native-inputs
6947      `(("pkg-config" ,pkg-config)))
6948     (inputs
6949      `(("yelp-xsl" ,yelp-xsl)))
6950     (propagated-inputs
6951      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
6952      `(("itstool" ,itstool)
6953        ("xmllint" ,libxml2)
6954        ("xsltproc" ,libxslt)))
6955     (synopsis "Yelp documentation tools")
6956     (description
6957      "Yelp-tools is a collection of scripts and build utilities to help create,
6958 manage, and publish documentation for Yelp and the web.  Most of the heavy
6959 lifting is done by packages like yelp-xsl and itstool.  This package just
6960 wraps things up in a developer-friendly way.")
6961     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
6962     (license license:gpl2+)))
6963
6964 (define-public libgee
6965   (package
6966     (name "libgee")
6967     (version "0.20.3")
6968     (source (origin
6969               (method url-fetch)
6970               (uri (string-append "mirror://gnome/sources/libgee/"
6971                                   (version-major+minor version) "/"
6972                                   "libgee-" version ".tar.xz"))
6973               (sha256
6974                (base32
6975                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
6976     (build-system gnu-build-system)
6977     (arguments
6978      `(#:phases
6979        (modify-phases %standard-phases
6980          (add-after 'unpack 'fix-introspection-install-dir
6981           (lambda* (#:key outputs #:allow-other-keys)
6982             (let ((out (assoc-ref outputs "out")))
6983               (substitute* "gee/Makefile.in"
6984                 (("@INTROSPECTION_GIRDIR@")
6985                  (string-append out "/share/gir-1.0/"))
6986                 (("@INTROSPECTION_TYPELIBDIR@")
6987                  (string-append out "/lib/girepository-1.0/")))))))))
6988     (native-inputs
6989      `(("glib" ,glib "bin")
6990        ("pkg-config" ,pkg-config)))
6991     (inputs
6992      `(("glib" ,glib)
6993        ("gobject-introspection" ,gobject-introspection)))
6994     (home-page "https://wiki.gnome.org/Projects/Libgee")
6995     (synopsis "GObject collection library")
6996     (description
6997      "Libgee is a utility library providing GObject-based interfaces and
6998 classes for commonly used data structures.")
6999     (license license:lgpl2.1+)))
7000
7001 (define-public gexiv2
7002   (package
7003     (name "gexiv2")
7004     (version "0.12.2")
7005     (source (origin
7006               (method url-fetch)
7007               (uri (string-append "mirror://gnome/sources/" name "/"
7008                                   (version-major+minor version) "/"
7009                                   name "-" version ".tar.xz"))
7010               (sha256
7011                (base32
7012                 "0k4ljzzz5dwqndw8awvlw3ala8rh3b2rk9i4jzvywc53mi9ba8i3"))))
7013     (build-system meson-build-system)
7014     (native-inputs
7015      `(("gcr" ,gcr)
7016        ("glib" ,glib "bin")
7017        ("pkg-config" ,pkg-config)
7018        ("vala" ,vala)))
7019     (propagated-inputs
7020      ;; Listed in "Requires" section of gexiv2.pc
7021      `(("exiv2" ,exiv2)))
7022     (inputs
7023      `(("glib" ,glib)
7024        ("gobject-introspection" ,gobject-introspection)))
7025     (home-page "https://wiki.gnome.org/Projects/gexiv2")
7026     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
7027     (description
7028      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
7029 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
7030 metadata in photo and video files of various formats.")
7031     (license license:gpl2+)))
7032
7033 (define-public shotwell
7034   (package
7035     (name "shotwell")
7036     (version "0.30.11")
7037     (source (origin
7038               (method url-fetch)
7039               (uri (string-append "mirror://gnome/sources/shotwell/"
7040                                   (version-major+minor version) "/"
7041                                   "shotwell-" version ".tar.xz"))
7042               (sha256
7043                (base32
7044                 "12d26y40kjlv5x8f5g04wff33vh7mdjb8c41ydqbrwdip0jwy2n2"))))
7045     (build-system meson-build-system)
7046     (arguments
7047      '(#:glib-or-gtk? #t
7048        #:phases
7049        (modify-phases %standard-phases
7050          (add-after 'unpack 'skip-gtk-update-icon-cache
7051            (lambda _
7052              (substitute* "build-aux/meson/postinstall.py"
7053                (("gtk-update-icon-cache") (which "true"))
7054                (("update-desktop-database") (which "true")))
7055              #t)))))
7056     (propagated-inputs
7057      `(("dconf" ,dconf)))
7058     (native-inputs
7059      `(("gettext" ,gettext-minimal)
7060        ("glib:bin" ,glib "bin")
7061        ("itstool" ,itstool)
7062        ("pkg-config" ,pkg-config)
7063        ("vala" ,vala)))
7064     (inputs
7065      `(("gcr" ,gcr)
7066        ("gexiv2" ,gexiv2)
7067        ("gst-plugins-base" ,gst-plugins-base)
7068        ("gstreamer" ,gstreamer)
7069        ("json-glib" ,json-glib)
7070        ("libgdata" ,libgdata)
7071        ("libgee" ,libgee)
7072        ("libgphoto2" ,libgphoto2)
7073        ("libgudev" ,libgudev)
7074        ("libraw" ,libraw)
7075        ("libsoup" ,libsoup)
7076        ("libxml2" ,libxml2)
7077        ("sqlite" ,sqlite)
7078        ("webkitgtk" ,webkitgtk)))
7079     (home-page "https://wiki.gnome.org/Apps/Shotwell")
7080     (synopsis "Photo manager for GNOME 3")
7081     (description
7082      "Shotwell is a digital photo manager designed for the GNOME desktop
7083 environment.  It allows you to import photos from disk or camera, organize
7084 them by keywords and events, view them in full-window or fullscreen mode, and
7085 share them with others via social networking and more.")
7086     (license license:lgpl2.1+)))
7087
7088 (define-public file-roller
7089   (package
7090     (name "file-roller")
7091     (version "3.38.0")
7092     (source (origin
7093               (method url-fetch)
7094               (uri (string-append "mirror://gnome/sources/file-roller/"
7095                                   (version-major+minor version) "/"
7096                                   "file-roller-" version ".tar.xz"))
7097               (sha256
7098                (base32
7099                 "06ikvjjcgb8nxabkn2rywy76a1c7s6w8dszaxvaxldbxarp1qgbj"))))
7100     (build-system meson-build-system)
7101     (native-inputs
7102      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7103        ("intltool" ,intltool)
7104        ("itstool" ,itstool)
7105        ("pkg-config" ,pkg-config)
7106        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
7107        ("glib:bin" ,glib "bin")))
7108     ;; TODO: Add libnautilus.
7109     (inputs
7110      `(("gtk+" ,gtk+)
7111        ("gdk-pixbuf" ,gdk-pixbuf)
7112        ("json-glib" ,json-glib)
7113        ("libarchive" ,libarchive)
7114        ("libnotify" ,libnotify)
7115        ("nettle" ,nettle)
7116        ("libxml2" ,libxml2)))
7117     (synopsis "Graphical archive manager for GNOME")
7118     (description "File Roller is an archive manager for the GNOME desktop
7119 environment that allows users to view, unpack, and create compressed archives
7120 such as gzip tarballs.")
7121     (home-page "http://fileroller.sourceforge.net/")
7122     (license license:gpl2+)))
7123
7124 (define-public gnome-session
7125   (package
7126     (name "gnome-session")
7127     (version "3.34.2")
7128     (source (origin
7129               (method url-fetch)
7130               (uri (string-append "mirror://gnome/sources/" name "/"
7131                                   (version-major+minor version) "/"
7132                                   name "-" version ".tar.xz"))
7133               (sha256
7134                (base32
7135                 "1qgqp97f8k2zi2ydvhds14zsjzfj7cv521r6wx5sw0qacn0p7dwb"))))
7136     (arguments
7137      '(#:glib-or-gtk? #t
7138        #:phases
7139        (modify-phases %standard-phases
7140          (add-before 'configure 'pre-configure
7141            (lambda* (#:key outputs #:allow-other-keys)
7142              ;; Use elogind instead of systemd.
7143              (substitute* "meson.build"
7144                (("libsystemd-login") "libelogind")
7145                (("and libsystemd_daemon_dep.found.*") ","))
7146              (substitute* "gnome-session/gsm-systemd.c"
7147                (("#include <systemd/sd-login.h>")
7148                 "#include <elogind/sd-login.h>"))
7149              ;; Remove uses of the systemd daemon.
7150              (substitute* "gnome-session/gsm-autostart-app.c"
7151                (("#ifdef HAVE_SYSTEMD") "#if 0"))
7152              #t))
7153          (add-after 'install 'wrap-gnome-session
7154            (lambda* (#:key inputs outputs #:allow-other-keys)
7155              ;; Make sure 'gnome-session' finds the 'gsettings' program.
7156              (let ((glib (assoc-ref inputs "glib:bin"))
7157                    (out  (assoc-ref outputs "out")))
7158                (wrap-program (string-append out "/bin/gnome-session")
7159                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
7160                #t))))
7161
7162        #:configure-flags
7163        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
7164          "-Dman=false" ; FIXME: disabled because of docbook validation error
7165          "-Dsystemd_journal=false")))
7166     (build-system meson-build-system)
7167     (native-inputs
7168      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7169        ("pkg-config" ,pkg-config)
7170        ("intltool" ,intltool)
7171        ("xsltproc" ,libxslt)
7172        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
7173        ("docbook-xsl" ,docbook-xsl)
7174        ("docbook-xml" ,docbook-xml)
7175        ("xmlto" ,xmlto)))
7176     (inputs
7177      `(("elogind" ,elogind)
7178        ("gnome-desktop" ,gnome-desktop)
7179        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7180        ("gtk+" ,gtk+)
7181        ("json-glib" ,json-glib)
7182        ("libsm" ,libsm)
7183        ("libxcomposite" ,libxcomposite)
7184        ("libxtst" ,libxtst)
7185        ("mesa" ,mesa)
7186        ("upower" ,upower)
7187        ("xtrans" ,xtrans)))
7188     (synopsis "Session manager for GNOME")
7189     (description
7190      "This package contains the GNOME session manager, as well as a
7191 configuration program to choose applications starting on login.")
7192     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7193     (license license:gpl2+)))
7194
7195 (define-public gjs
7196   (package
7197     (name "gjs")
7198     (version "1.58.3")
7199     (source (origin
7200               (method url-fetch)
7201               (uri (string-append "mirror://gnome/sources/" name "/"
7202                                   (version-major+minor version) "/"
7203                                   name "-" version ".tar.xz"))
7204               (sha256
7205                (base32
7206                 "1bkksx362007zs8c31ydygb29spwa5g5kch1ad2grc2sp53wv7ya"))))
7207     (build-system gnu-build-system)
7208     (arguments
7209      '(#:phases
7210        (modify-phases %standard-phases
7211          (add-before
7212           'check 'pre-check
7213           (lambda _
7214             ;; The test suite requires a running X server.
7215             (system "Xvfb :1 &")
7216             (setenv "DISPLAY" ":1")
7217
7218             ;; For the missing /etc/machine-id.
7219             (setenv "DBUS_FATAL_WARNINGS" "0")
7220
7221             ;; Our mozjs-38 package does not compile the required Intl API
7222             ;; support for these failing tests.
7223             (substitute* "installed-tests/js/testLocale.js"
7224               ((".*toBeDefined.*") "")
7225               ((".*expect\\(datestr\\).*") ""))
7226             (substitute* "installed-tests/scripts/testCommandLine.sh"
7227               (("Valentín") "")
7228               (("☭") ""))
7229             #t)))))
7230     (native-inputs
7231      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
7232        ("pkg-config" ,pkg-config)
7233        ("xmllint" ,libxml2)
7234        ;; For testing
7235        ("dbus-launch" ,dbus)
7236        ("dconf" ,dconf) ; required to properly store settings
7237        ("uuidgen" ,util-linux)
7238        ("xvfb" ,xorg-server-for-tests)))
7239     (propagated-inputs
7240      ;; These are all in the Requires.private field of gjs-1.0.pc.
7241      `(("cairo" ,cairo)
7242        ("gobject-introspection" ,gobject-introspection)
7243        ("mozjs" ,mozjs-60)))
7244     (inputs
7245      `(("gtk+" ,gtk+)
7246        ("readline" ,readline)))
7247     (synopsis "Javascript bindings for GNOME")
7248     (home-page "https://live.gnome.org/Gjs")
7249     (description
7250      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
7251 javascript engine and the GObject introspection framework.")
7252     (license license:gpl2+)))
7253
7254 (define-public gedit
7255   (package
7256     (name "gedit")
7257     (version "3.34.1")
7258     (source (origin
7259               (method url-fetch)
7260               (uri (string-append "mirror://gnome/sources/" name "/"
7261                                   (version-major+minor version) "/"
7262                                   name "-" version ".tar.xz"))
7263               (sha256
7264                (base32
7265                 "1inm50sdfw63by1lf4f1swb59mpyxlly0g5rdg99j5l3357fzygb"))))
7266     (build-system meson-build-system)
7267     (arguments
7268      `(#:glib-or-gtk? #t
7269        #:configure-flags
7270        ;; Otherwise, the RUNPATH will lack the final path component.
7271        (list (string-append "-Dc_link_args=-Wl,-rpath="
7272                             (assoc-ref %outputs "out") "/lib/gedit"))
7273
7274        ;; XXX: Generated .h files are sometimes used before being built.
7275        #:parallel-build? #f
7276
7277        #:phases
7278        (modify-phases %standard-phases
7279          (add-after 'unpack 'skip-gtk-update-icon-cache
7280            ;; Don't create 'icon-theme.cache'.
7281            (lambda _
7282              (substitute* "build-aux/meson/post_install.py"
7283                (("gtk-update-icon-cache") (which "true")))
7284              #t))
7285          (add-after 'unpack 'patch-libgd-fetch
7286            (lambda* (#:key inputs #:allow-other-keys)
7287              (let ((libgd (assoc-ref inputs "libgd")))
7288                ;; Calling git is unnecessary because libgd is fetched as a
7289                ;; native input to this package.
7290                (substitute* "meson.build"
7291                  ((".*git.*") ""))
7292                (copy-recursively libgd "subprojects/libgd")
7293                #t)))
7294          (add-after 'install 'wrap-gedit
7295            (lambda* (#:key inputs outputs #:allow-other-keys)
7296              (let ((out               (assoc-ref outputs "out"))
7297                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
7298                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
7299                    (python-path       (getenv "PYTHONPATH")))
7300                (wrap-program (string-append out "/bin/gedit")
7301                  ;; For plugins.
7302                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7303                  `("PYTHONPATH" ":" prefix (,python-path))
7304                  ;; For language-specs.
7305                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
7306                                                                "/share")))))
7307              #t)))))
7308     (propagated-inputs
7309      `(("dconf" ,dconf)))
7310     (native-inputs
7311      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7312        ("intltool" ,intltool)
7313        ("itstool" ,itstool)
7314        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7315        ("gobject-introspection" ,gobject-introspection)
7316        ("libgd"
7317         ,(origin
7318            (method git-fetch)
7319            (uri (git-reference
7320                  (url "https://gitlab.gnome.org/GNOME/libgd")
7321                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
7322            (file-name (git-file-name "libgd" version))
7323            (sha256
7324             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
7325        ("pkg-config" ,pkg-config)))
7326     (inputs
7327      `(("glib" ,glib)
7328        ("gspell" ,gspell)
7329        ("gtk+" ,gtk+)
7330        ("gtksourceview" ,gtksourceview)
7331        ("libpeas" ,libpeas)
7332        ("libxml2" ,libxml2)
7333        ("iso-codes" ,iso-codes)
7334        ("python-pygobject" ,python-pygobject)
7335        ("python" ,python)
7336        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7337        ("libx11" ,libx11)
7338        ("vala" ,vala)
7339        ("adwaita-icon-theme" ,adwaita-icon-theme)
7340        ("libsoup" ,libsoup)
7341        ("gnome-desktop" ,gnome-desktop)))
7342     (home-page "https://wiki.gnome.org/Apps/Gedit")
7343     (synopsis "GNOME text editor")
7344     (description "While aiming at simplicity and ease of use, gedit is a
7345 powerful general purpose text editor.")
7346     (license license:gpl2+)))
7347
7348 (define-public zenity
7349   (package
7350     (name "zenity")
7351     (version "3.32.0")
7352     (source (origin
7353               (method url-fetch)
7354               (uri (string-append "mirror://gnome/sources/zenity/"
7355                                   (version-major+minor version) "/"
7356                                   "zenity-" version ".tar.xz"))
7357               (sha256
7358                (base32
7359                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
7360     (build-system gnu-build-system)
7361     (native-inputs
7362      `(("gettext" ,gettext-minimal)
7363        ("itstool" ,itstool)
7364        ("pkg-config" ,pkg-config)))
7365     (inputs
7366      `(("libnotify" ,libnotify)
7367        ("webkitgtk" ,webkitgtk)))
7368     (synopsis "Display graphical dialog boxes from shell scripts")
7369     (home-page "https://www.gnome.org")
7370     (description
7371      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7372 to display dialog boxes from the commandline and shell scripts.")
7373     (license license:lgpl2.0+)))
7374
7375 (define-public mutter
7376   (package
7377     (name "mutter")
7378     (version "3.34.2")
7379     (source (origin
7380               (method url-fetch)
7381               (uri (string-append "mirror://gnome/sources/" name "/"
7382                                   (version-major+minor version) "/"
7383                                   name "-" version ".tar.xz"))
7384               (sha256
7385                (base32
7386                 "0b8bz5kvs7rlwvqsg87cf6jhrrj95vgd1l235mjx8rip35ipfvrd"))))
7387     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7388     ;; versions of cogl and clutter.  As a result, many of the inputs,
7389     ;; propagated-inputs, and configure flags used in cogl and clutter are
7390     ;; needed here as well.
7391     (build-system meson-build-system)
7392     (arguments
7393      '(;; XXX: All mutter tests fail with the following error:
7394        ;;   Settings schema 'org.gnome.mutter' is not installed
7395        #:tests? #f
7396        #:glib-or-gtk? #t
7397        #:configure-flags
7398        ;; TODO: Enable profiler when Sysprof is packaged.
7399        (list "-Dprofiler=false"
7400              ;; Otherwise, the RUNPATH will lack the final path component.
7401              (string-append "-Dc_link_args=-Wl,-rpath="
7402                             (assoc-ref %outputs "out") "/lib:"
7403                             (assoc-ref %outputs "out") "/lib/mutter-5")
7404
7405              ;; The following flags are needed for the bundled clutter
7406              (string-append "-Dxwayland_path="
7407                             (assoc-ref %build-inputs "xorg-server-xwayland")
7408                             "/bin/Xwayland")
7409
7410              ;; the remaining flags are needed for the bundled cogl
7411              (string-append "-Dopengl_libname="
7412                             (assoc-ref %build-inputs "mesa")
7413                             "/lib/libGL.so"))
7414        #:phases (modify-phases %standard-phases
7415                   (add-after 'unpack 'fix-build-with-mesa-20
7416                     (lambda _
7417                       ;; Mimic upstream commit a444a4c5f58ea516ad for
7418                       ;; compatibility with Mesa 20.  Remove for 3.36.
7419                       (substitute* '("src/backends/meta-egl-ext.h"
7420                                      "src/backends/meta-egl.c"
7421                                      "src/backends/meta-egl.h")
7422                         (("#include <EGL/eglext\\.h>" all)
7423                          (string-append all "\n#include <EGL/eglmesaext.h>")))
7424                       (substitute* "cogl/cogl/meson.build"
7425                         (("#include <EGL/eglext\\.h>" all)
7426                          (string-append all "\\n#include <EGL/eglmesaext.h>")))
7427                       #t)))))
7428     (native-inputs
7429      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7430        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7431        ("gobject-introspection" ,gobject-introspection)
7432        ("intltool" ,intltool)
7433        ("pkg-config" ,pkg-config)
7434        ("xorg-server" ,xorg-server-for-tests)
7435        ;; For git build
7436        ("autoconf" ,autoconf)
7437        ("automake" ,automake)
7438        ("libtool" ,libtool)))
7439     (propagated-inputs
7440      `(;; libmutter.pc refers to these:
7441        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7442        ("gtk+" ,gtk+)
7443        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7444        ("atk" ,atk)
7445        ("cairo" ,cairo)
7446        ("gdk-pixbuf" ,gdk-pixbuf)
7447        ("glib" ,glib)
7448        ("json-glib" ,json-glib)
7449        ("libinput" ,libinput)
7450        ("libx11" ,libx11)
7451        ("libxcomposite" ,libxcomposite)
7452        ("libxdamage" ,libxdamage)
7453        ("libxext" ,libxext)
7454        ("libxfixes" ,libxfixes)
7455        ("libxkbcommon" ,libxkbcommon)
7456        ("libxrandr" ,libxrandr)
7457        ("mesa" ,mesa)
7458        ("pango" ,pango)
7459        ("udev" ,eudev)
7460        ("xinput" ,xinput)))
7461     (inputs
7462      `(("elogind" ,elogind)
7463        ("gnome-desktop" ,gnome-desktop)
7464        ("gnome-settings-daemon" ,gnome-settings-daemon)
7465        ("libcanberra-gtk" ,libcanberra)
7466        ("libgudev" ,libgudev)
7467        ("libice" ,libice)
7468        ("libsm" ,libsm)
7469        ("libwacom" ,libwacom)
7470        ("libxkbfile" ,libxkbfile)
7471        ("libxrandr" ,libxrandr)
7472        ("libxtst" ,libxtst)
7473        ("pipewire" ,pipewire)
7474        ("startup-notification" ,startup-notification)
7475        ("upower-glib" ,upower)
7476        ("xkeyboard-config" ,xkeyboard-config)
7477        ("xorg-server-xwayland" ,xorg-server-xwayland)
7478        ("zenity" ,zenity)))
7479     (synopsis "Window and compositing manager")
7480     (home-page "https://www.gnome.org")
7481     (description
7482      "Mutter is a window and compositing manager that displays and manages your
7483 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
7484 Clutter toolkit with solid window-management logic inherited from the Metacity
7485 window manager.")
7486     (license license:gpl2+)))
7487
7488 (define-public gnome-online-accounts
7489   (package
7490     (name "gnome-online-accounts")
7491     (version "3.36.0")
7492     (source (origin
7493               (method url-fetch)
7494               (uri (string-append "mirror://gnome/sources/" name "/"
7495                                   (version-major+minor version) "/"
7496                                   name "-" version ".tar.xz"))
7497               (sha256
7498                (base32
7499                 "0bigfi225g1prnxpb9lcc1i7mdcrkplwb05vilc43jik12cn53qw"))))
7500     (outputs '("out" "lib"))
7501     (build-system glib-or-gtk-build-system)
7502     (arguments
7503      `(#:configure-flags
7504        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
7505        #:phases
7506        (modify-phases %standard-phases
7507          (add-before 'configure 'patch-libgoa-output
7508            (lambda* (#:key outputs #:allow-other-keys)
7509              (let ((lib (assoc-ref outputs "lib")))
7510                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
7511                  (("@prefix@") lib)
7512                  (("@exec_prefix@") lib)
7513                  (("@libdir@") (string-append lib "/lib"))
7514                  (("@includedir@") (string-append lib "/include"))
7515                  (("@datadir@") (string-append lib "/share")))
7516                ;; Make sure gobject-introspection knows about the output
7517                ;; too (see <https://bugs.gnu.org/36535>).
7518                (setenv "outputs" "out lib")
7519                #t))))))
7520     (native-inputs
7521      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7522        ("gobject-introspection" ,gobject-introspection)
7523        ("intltool" ,intltool)
7524        ("pkg-config" ,pkg-config)
7525        ("vala" ,vala)
7526        ("xsltproc" ,libxslt)))
7527     (propagated-inputs
7528      `(("glib" ,glib)           ; required by goa-1.0.pc
7529        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
7530     (inputs
7531      `(("docbook-xsl" ,docbook-xsl)
7532        ("json-glib" ,json-glib)
7533        ("libsecret" ,libsecret)
7534        ("rest" ,rest)
7535        ("webkitgtk" ,webkitgtk)))
7536     (synopsis "Single sign-on framework for GNOME")
7537     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7538     (description
7539      "GNOME Online Accounts provides interfaces so that applications and
7540 libraries in GNOME can access the user's online accounts.  It has providers for
7541 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
7542 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7543     (license license:lgpl2.0+)))
7544
7545 (define-public evolution-data-server
7546   (package
7547     (name "evolution-data-server")
7548     (version "3.34.2")
7549     (source (origin
7550               (method url-fetch)
7551               (uri (string-append "mirror://gnome/sources/" name "/"
7552                                   (version-major+minor version) "/"
7553                                   name "-" version ".tar.xz"))
7554               (patches (search-patches "evolution-data-server-locales.patch"
7555                                        "evolution-data-server-libical-compat.patch"
7556                                        "evolution-data-server-CVE-2020-14928.patch"
7557                                        "evolution-data-server-CVE-2020-16117.patch"))
7558               (sha256
7559                (base32
7560                 "16z85y6hhazcrp5ngw47w4x9r0j8zrj7awv5im58hhp0xs19zf1y"))))
7561     (build-system cmake-build-system)
7562     (arguments
7563      '(#:configure-flags
7564        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
7565               (runpaths (map (lambda (s)
7566                                (string-append lib "/evolution-data-server/" s))
7567                              '("addressbook-backends" "calendar-backends"
7568                                "camel-providers" "credential-modules"
7569                                "registry-modules"))))
7570          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
7571                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
7572                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
7573                "-DENABLE_VALA_BINDINGS=ON"
7574                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7575                               (string-append lib "/evolution-data-server;")
7576                               (string-join runpaths ";"))
7577                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
7578        #:phases
7579        (modify-phases %standard-phases
7580          (add-after 'unpack 'disable-failing-tests
7581            (lambda _
7582              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7583              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7584              (delete-file-recursively "tests/book-migration")
7585              (substitute* "tests/CMakeLists.txt"
7586                (("add_subdirectory\\(book-migration\\)") ""))
7587              #t))
7588          (add-after 'unpack 'patch-paths
7589           (lambda _
7590             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7591                            "tests/libedata-book/data-test-utils.c"
7592                            "tests/libedata-book/test-book-cache-utils.c"
7593                            "tests/libedata-cal/test-cal-cache-utils.c")
7594               (("/bin/rm") (which "rm")))
7595             #t))
7596          (add-before 'configure 'dont-override-rpath
7597            (lambda _
7598              (substitute* "CMakeLists.txt"
7599                ;; CMakeLists.txt hard-codes runpath to just the libdir.
7600                ;; Remove it so the configure flag is respected.
7601                (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
7602              #t)))))
7603     (native-inputs
7604      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7605        ("gobject-introspection" ,gobject-introspection)
7606        ("gperf" ,gperf)
7607        ("intltool" ,intltool)
7608        ("pkg-config" ,pkg-config)
7609        ("vala" ,vala)
7610        ("python" ,python-wrapper)))
7611     (propagated-inputs
7612      ;; These are all in the Requires field of .pc files.
7613      `(("gtk+" ,gtk+)
7614        ("libical" ,libical)
7615        ("libsecret" ,libsecret)
7616        ("libsoup" ,libsoup)
7617        ("nss" ,nss)
7618        ("sqlite" ,sqlite)))
7619     (inputs
7620      `(("bdb" ,bdb)
7621        ("gcr" ,gcr)
7622        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7623        ("json-glib" ,json-glib)
7624        ("libcanberra" ,libcanberra)
7625        ("libgweather" ,libgweather)
7626        ("mit-krb5" ,mit-krb5)
7627        ("openldap" ,openldap)
7628        ("webkitgtk" ,webkitgtk)))
7629     (synopsis "Store address books and calendars")
7630     (home-page "https://wiki.gnome.org/Apps/Evolution")
7631     (description
7632      "This package provides a unified backend for programs that work with
7633 contacts, tasks, and calendar information.  It was originally developed for
7634 Evolution (hence the name), but is now used by other packages as well.")
7635     (license license:lgpl2.0)))
7636
7637 (define-public caribou
7638   (package
7639     (name "caribou")
7640     (version "0.4.21")
7641     (source (origin
7642               (method url-fetch)
7643               (uri (string-append "mirror://gnome/sources/" name "/"
7644                                   (version-major+minor version) "/"
7645                                   name "-" version ".tar.xz"))
7646               (sha256
7647                (base32
7648                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
7649     (build-system glib-or-gtk-build-system)
7650     (arguments
7651      '(#:phases
7652        (modify-phases %standard-phases
7653          (add-before
7654           'build 'pre-build
7655           (lambda* (#:key outputs #:allow-other-keys)
7656             (let ((out (assoc-ref outputs "out")))
7657               ;; Use absolute shared library path in Caribou-1.0.typelib.
7658               (substitute* "libcaribou/Makefile"
7659                 (("--shared-library=libcaribou.so")
7660                  (string-append "--shared-library="
7661                                 out "/lib/libcaribou.so")))
7662               #t)))
7663          (add-after 'install 'wrap-programs
7664           (lambda* (#:key outputs #:allow-other-keys)
7665             (let* ((out (assoc-ref outputs "out"))
7666                    (python-path (getenv "PYTHONPATH"))
7667                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7668               (for-each
7669                (lambda (prog)
7670                  (wrap-program prog
7671                    `("PYTHONPATH"      ":" prefix (,python-path))
7672                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7673                (list (string-append out "/bin/caribou-preferences")
7674                      (string-append out "/libexec/antler-keyboard"))))
7675             #t)))))
7676     (native-inputs
7677      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7678        ("gobject-introspection" ,gobject-introspection)
7679        ("intltool" ,intltool)
7680        ("pkg-config" ,pkg-config)
7681        ("python" ,python)
7682        ("vala" ,vala)
7683        ("xsltproc" ,libxslt)))
7684     (propagated-inputs
7685      ;; caribou-1.0.pc refers to all these.
7686      `(("libgee" ,libgee)
7687        ("libxklavier" ,libxklavier)
7688        ("libxtst" ,libxtst)
7689        ("gtk+" ,gtk+)))
7690     (inputs
7691      `(("clutter" ,clutter)
7692        ("dconf" ,dconf)
7693        ("gtk+-2" ,gtk+-2)
7694        ("python-pygobject" ,python-pygobject)))
7695     (synopsis "Text entry and UI navigation application")
7696     (home-page "https://wiki.gnome.org/Projects/Caribou")
7697     (description
7698      "Caribou is an input assistive technology intended for switch and pointer
7699 users.")
7700     (license license:lgpl2.1)))
7701
7702 (define-public network-manager
7703   (package
7704     (name "network-manager")
7705     (version "1.24.0")
7706     (source (origin
7707               (method url-fetch)
7708               (uri (string-append "mirror://gnome/sources/NetworkManager/"
7709                                   (version-major+minor version) "/"
7710                                   "NetworkManager-" version ".tar.xz"))
7711               (patches (search-patches "network-manager-plugin-path.patch"))
7712               (sha256
7713                (base32
7714                 "06044fl60bjlj7c6rqqfbm5795h61h6yzp7ch392hzcnm46wwhn3"))
7715               (modules '((guix build utils)))
7716               (snippet
7717                '(begin
7718                   (substitute* "src/devices/wwan/nm-modem-manager.c"
7719                     (("systemd") "elogind"))
7720                   #t))))
7721     (build-system meson-build-system)
7722     (outputs '("out"
7723                "doc")) ; 8 MiB of gtk-doc HTML
7724     (arguments
7725      `(#:configure-flags
7726        (let ((out      (assoc-ref %outputs "out"))
7727              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
7728                                       "/sbin/dhclient")))
7729          (list
7730           ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
7731           ;; component.
7732           (string-append "-Dc_link_args=-Wl,-rpath="
7733                          out "/lib:"
7734                          out "/lib/NetworkManager/" ,version)
7735           "-Dsystemd_journal=false"
7736           "-Dsession_tracking=elogind"
7737           "-Dsuspend_resume=elogind"
7738           "-Dsystemdsystemunitdir=no"
7739           "-Dsession_tracking_consolekit=false"
7740           "-Ddhcpcd=no"
7741           "-Ddhcpcanon=no"
7742           "-Dcrypto=gnutls"
7743           "-Diwd=true"
7744           "-Dlibaudit=yes"
7745           "-Dqt=false"
7746           "-Ddocs=true"
7747           "--sysconfdir=/etc"
7748           "--localstatedir=/var"
7749           (string-append "-Dudev_dir="
7750                          out "/lib/udev")
7751           (string-append "-Ddbus_conf_dir="
7752                          out "/etc/dbus-1/system.d")
7753
7754           (string-append "-Ddhclient=" dhclient)))
7755        #:phases
7756        (modify-phases %standard-phases
7757          (add-before 'configure 'pre-configure
7758            (lambda _
7759              ;; These tests try to test aspects of network-manager's
7760              ;; functionality within restricted containers, but they don't
7761              ;; cope with being already in the Guix build jail as that jail
7762              ;; lacks some features that they would like to proxy over (like
7763              ;; a /sys mount).
7764              (substitute* "src/platform/tests/meson.build"
7765                ((".*test-address-linux.*") "")
7766                ((".*test-cleanup-linux.*") "")
7767                ((".*test-link-linux.*") "")
7768                ((".*test-route-linux.*") ""))
7769              (substitute* "src/devices/tests/meson.build"
7770                ((".*test-acd.*") "")
7771                ((".*test-lldp.*") ""))
7772              #t))
7773          (add-after 'unpack 'patch-docbook-xml
7774            (lambda* (#:key inputs #:allow-other-keys)
7775              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
7776                                           "/xml/dtd/docbook")))
7777                (substitute* (find-files "." ".*\\.(xsl|xml)")
7778                  (("http://.*/docbookx\\.dtd")
7779                   (string-append xmldoc "/docbookx.dtd")))
7780                #t)))
7781          (add-before 'check 'pre-check
7782            (lambda _
7783              ;; For the missing /etc/machine-id.
7784              (setenv "DBUS_FATAL_WARNINGS" "0")
7785              #t))
7786          (add-before 'install 'no-polkit-magic
7787            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
7788            (lambda _
7789              (setenv "PKEXEC_UID" "something")
7790              #t))
7791          (add-after 'install 'move-doc
7792            (lambda* (#:key outputs #:allow-other-keys)
7793              (let ((out (assoc-ref outputs "out"))
7794                    (doc (assoc-ref outputs "doc")))
7795                (mkdir-p (string-append doc "/share"))
7796                (for-each (lambda (directory)
7797                            (copy-recursively (string-append out directory)
7798                                              (string-append doc directory))
7799                            (delete-file-recursively
7800                             (string-append out directory)))
7801                          '("/share/doc" "/share/gtk-doc"))
7802                #t))))))
7803     (propagated-inputs
7804      `(("glib" ,glib)))
7805     (native-inputs
7806      `(("glib:bin" ,glib "bin")         ; for gdbus-codegen
7807        ("gtk-doc" ,gtk-doc/stable)
7808        ("gobject-introspection" ,gobject-introspection)
7809        ("docbook-xml" ,docbook-xml)
7810        ("docbook-xsl" ,docbook-xsl)
7811        ("intltool" ,intltool)
7812        ("libxslt" ,libxslt)
7813        ("libxml2" ,libxml2)
7814        ("pkg-config" ,pkg-config)
7815        ("vala" ,vala)
7816        ;; For testing.
7817        ("python" ,python-wrapper)
7818        ("python-dbus" ,python-dbus)
7819        ("python-pygobject" ,python-pygobject)))
7820     (inputs
7821      `(("curl" ,curl)
7822        ("cyrus-sasl" ,cyrus-sasl)
7823        ("dbus-glib" ,dbus-glib)
7824        ("dnsmasq" ,dnsmasq)
7825        ("eudev" ,eudev)
7826        ("gnutls" ,gnutls)
7827        ("iptables" ,iptables)
7828        ("isc-dhcp" ,isc-dhcp)
7829        ("iwd" ,iwd)                     ; wpa_supplicant alternative
7830        ("jansson" ,jansson)
7831        ("libaudit" ,audit)
7832        ("libgcrypt" ,libgcrypt)
7833        ("libgudev" ,libgudev)
7834        ("libndp" ,libndp)
7835        ("libnl" ,libnl)
7836        ("libsoup" ,libsoup)
7837        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
7838        ("modem-manager" ,modem-manager)
7839        ("newt" ,newt)                       ;for the 'nmtui' console interface
7840        ("openresolv" ,openresolv)           ; alternative resolv.conf manager
7841        ("polkit" ,polkit)
7842        ("ppp" ,ppp)
7843        ("readline" ,readline)
7844        ("util-linux" ,util-linux)
7845        ("elogind" ,elogind)))
7846     (synopsis "Network connection manager")
7847     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7848     (description
7849      "NetworkManager is a system network service that manages your network
7850 devices and connections, attempting to keep active network connectivity when
7851 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
7852 devices, and provides VPN integration with a variety of different VPN
7853 services.")
7854     ;; “This NetworkManager project consists of the daemon, client tools, and
7855     ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
7856     ;; GPL-2.0+.”
7857     (license (list license:gpl2+
7858                    license:lgpl2.1+))
7859     (properties '((upstream-name . "NetworkManager")))))
7860
7861 (define-public network-manager-openvpn
7862   (package
7863     (name "network-manager-openvpn")
7864     (version "1.8.12")
7865     (source (origin
7866               (method url-fetch)
7867               (uri (string-append
7868                     "mirror://gnome/sources/NetworkManager-openvpn/"
7869                     (version-major+minor version)
7870                     "/NetworkManager-openvpn-" version ".tar.xz"))
7871               (sha256
7872                (base32
7873                 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
7874     (build-system gnu-build-system)
7875     (arguments
7876      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7877        #:phases
7878        (modify-phases %standard-phases
7879          (add-after 'configure 'patch-path
7880            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7881              (let* ((ovpn (string-append (assoc-ref inputs "openvpn")
7882                                          "/sbin/openvpn"))
7883                     (modprobe (string-append (assoc-ref inputs "kmod")
7884                                              "/bin/modprobe"))
7885                     (pretty-ovpn (string-append "\"" ovpn "\"")))
7886                (for-each
7887                 (lambda (file)
7888                   (substitute* file
7889                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
7890                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
7891                     (("\"/sbin/openvpn\"") pretty-ovpn)
7892                     (("/sbin/modprobe") modprobe)))
7893                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
7894              #t)))))
7895     (native-inputs
7896      `(("pkg-config" ,pkg-config)
7897        ("intltool" ,intltool)))
7898     (inputs
7899      `(("gtk+" ,gtk+)
7900        ("kmod" ,kmod)
7901        ("openvpn" ,openvpn)
7902        ("network-manager" ,network-manager)
7903        ("libnma" ,libnma)
7904        ("libsecret" ,libsecret)))
7905     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7906     (synopsis "OpenVPN plug-in for NetworkManager")
7907     (description
7908      "This extension of NetworkManager allows it to take care of connections
7909 to virtual private networks (VPNs) via OpenVPN.")
7910     (license license:gpl2+)
7911     (properties `((upstream-name . "NetworkManager-openvpn")))))
7912
7913 (define-public network-manager-vpnc
7914   (package
7915     (name "network-manager-vpnc")
7916     (version "1.2.6")
7917     (source (origin
7918               (method url-fetch)
7919               (uri (string-append
7920                     "mirror://gnome/sources/NetworkManager-vpnc/"
7921                     (version-major+minor version)
7922                     "/NetworkManager-vpnc-" version ".tar.xz"))
7923               (sha256
7924                (base32
7925                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
7926     (build-system gnu-build-system)
7927     (arguments
7928      `(#:configure-flags '("--enable-absolute-paths"
7929                            "--localstatedir=/var"
7930                            ;; libnm-glib has been removed from network-manager
7931                            ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
7932                            "--with-libnm-glib=no")
7933        #:phases
7934        (modify-phases %standard-phases
7935          (add-after 'configure 'patch-path
7936            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7937              (let* ((vpnc (string-append (assoc-ref inputs "vpnc")
7938                                          "/sbin/vpnc"))
7939                     (modprobe (string-append (assoc-ref inputs "kmod")
7940                                              "/bin/modprobe"))
7941                     (pretty-ovpn (string-append "\"" vpnc "\"")))
7942                (substitute* "src/nm-vpnc-service.c"
7943                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
7944                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
7945                     (("\"/sbin/vpnc\"") pretty-ovpn)
7946                     (("/sbin/modprobe") modprobe)))
7947              #t)))))
7948     (native-inputs
7949      `(("pkg-config" ,pkg-config)
7950        ("intltool" ,intltool)))
7951     (inputs
7952      `(("gtk+" ,gtk+)
7953        ("kmod" ,kmod)
7954        ("vpnc" ,vpnc)
7955        ("network-manager" ,network-manager)
7956        ("libnma" ,libnma)
7957        ("libsecret" ,libsecret)))
7958     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7959     (synopsis "VPNC plug-in for NetworkManager")
7960     (description
7961      "Support for configuring virtual private networks based on VPNC.
7962 Compatible with Cisco VPN concentrators configured to use IPsec.")
7963     (license license:gpl2+)
7964     (properties `((upstream-name . "NetworkManager-vpnc")))))
7965
7966 (define-public network-manager-openconnect
7967   (package
7968     (name "network-manager-openconnect")
7969     (version "1.2.6")
7970     (source (origin
7971               (method url-fetch)
7972               (uri (string-append
7973                     "mirror://gnome/sources/NetworkManager-openconnect/"
7974                     (version-major+minor version)
7975                     "/NetworkManager-openconnect-" version ".tar.xz"))
7976               (sha256
7977                (base32
7978                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
7979     (build-system gnu-build-system)
7980     (arguments
7981      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7982        #:phases
7983        (modify-phases %standard-phases
7984          (add-after 'configure 'patch-path
7985            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7986              (let* ((openconnect (string-append (assoc-ref inputs "openconnect")
7987                                          "/sbin/openconnect"))
7988                     (modprobe (string-append (assoc-ref inputs "kmod")
7989                                              "/bin/modprobe"))
7990                     (pretty-ovpn (string-append "\"" openconnect "\"")))
7991                (substitute* "src/nm-openconnect-service.c"
7992                  (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
7993                  (("/sbin/modprobe") modprobe)))
7994              #t)))))
7995     (native-inputs
7996      `(("intltool" ,intltool)
7997        ("libnma" ,libnma)
7998        ("pkg-config" ,pkg-config)))
7999     (inputs
8000      `(("gcr" ,gcr)
8001        ("gtk+" ,gtk+)
8002        ("kmod" ,kmod)
8003        ("libsecret" ,libsecret)
8004        ("libxml2" ,libxml2)
8005        ("lz4" ,lz4)
8006        ("network-manager" ,network-manager)
8007        ("openconnect" ,openconnect)))
8008     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8009     (synopsis "OpenConnect plug-in for NetworkManager")
8010     (description
8011      "This extension of NetworkManager allows it to take care of connections
8012 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
8013 Cisco's AnyConnect SSL VPN.")
8014     (license license:gpl2+)
8015     (properties `((upstream-name . "NetworkManager-openconnect")
8016
8017                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
8018                   ;; file refers to account "nm-openconnect".  Specify it here
8019                   ;; so that 'network-manager-service-type' creates it.
8020                   (user-accounts . ("nm-openconnect"))))))
8021
8022 (define-public mobile-broadband-provider-info
8023   (package
8024     (name "mobile-broadband-provider-info")
8025     (version "20190116")
8026     (source (origin
8027               (method url-fetch)
8028               (uri (string-append
8029                     "mirror://gnome/sources/"
8030                     "mobile-broadband-provider-info/" version "/"
8031                     "mobile-broadband-provider-info-" version ".tar.xz"))
8032               (sha256
8033                (base32
8034                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
8035     (build-system gnu-build-system)
8036     (arguments
8037      `(#:tests? #f))                    ; no tests
8038     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8039     (synopsis "Database of broadband connection configuration")
8040     (description "Database of broadband connection configuration.")
8041     (license license:public-domain)))
8042
8043 (define-public network-manager-applet
8044   (package
8045     (name "network-manager-applet")
8046     (version "1.20.0")
8047     (source (origin
8048               (method url-fetch)
8049               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
8050                                   (version-major+minor version) "/"
8051                                   "network-manager-applet-" version ".tar.xz"))
8052               (sha256
8053                (base32
8054                 "0lsjkbv66hn7acl2pg9h6hz4b700zzv4cjwrwjvy7043blw0bcla"))))
8055     (build-system meson-build-system)
8056     (arguments
8057      '(#:glib-or-gtk? #t
8058        #:configure-flags
8059        '("-Dappindicator=yes")))
8060     (native-inputs
8061      `(("intltool" ,intltool)
8062        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
8063        ("gobject-introspection" ,gobject-introspection)
8064        ("gtk-doc" ,gtk-doc/stable)
8065        ("pkg-config" ,pkg-config)))
8066     (propagated-inputs
8067      ;; libnm-gtk.pc refers to all these.
8068      `(("dbus-glib" ,dbus-glib)
8069        ("gtk+" ,gtk+)
8070        ("network-manager" ,network-manager)
8071        ;; nm-applet need by org.gnome.nm-applet.gschema.xml
8072        ("libnma" ,libnma)))
8073     (inputs
8074      `(("gcr" ,gcr)
8075        ("libappindicator" ,libappindicator)
8076        ("libgudev" ,libgudev)
8077        ("libnotify" ,libnotify)
8078        ("libsecret" ,libsecret)
8079        ("libselinux" ,libselinux)
8080        ("jansson" ,jansson) ; for team support
8081        ("modem-manager" ,modem-manager)))
8082     (synopsis "Applet for managing network connections")
8083     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8084     (description
8085      "This package contains a systray applet for NetworkManager.  It displays
8086 the available networks and allows users to easily switch between them.")
8087     (license license:gpl2+)))
8088
8089 (define-public libxml++
8090   (package
8091     (name "libxml++")
8092     (version "3.0.1")
8093     (source (origin
8094               (method url-fetch)
8095               (uri (string-append "mirror://gnome/sources/" name "/"
8096                                   (version-major+minor version) "/"
8097                                   name "-" version ".tar.xz"))
8098               (sha256
8099                (base32
8100                 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
8101     (build-system gnu-build-system)
8102     ;; libxml++-3.0.pc refers to all these.
8103     (propagated-inputs
8104      `(("libxml2" ,libxml2)
8105        ("glibmm" ,glibmm)))
8106     (native-inputs
8107      `(("perl" ,perl)
8108        ("pkg-config" ,pkg-config)))
8109     (home-page "http://libxmlplusplus.sourceforge.net/")
8110     (synopsis "C++ wrapper for XML parser library libxml2")
8111     (description
8112      "This package provides a C++ wrapper for the XML parser library
8113 libxml2.")
8114     (license license:lgpl2.1+)))
8115
8116 (define-public libxml++-2
8117   (package
8118     (inherit libxml++)
8119     (name "libxml++")
8120     (version "2.40.1")
8121     (source (origin
8122               (method url-fetch)
8123               (uri (string-append "mirror://gnome/sources/" name "/"
8124                                   (version-major+minor version) "/"
8125                                   name "-" version ".tar.xz"))
8126               (sha256
8127                (base32
8128                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
8129
8130 (define-public gdm
8131   (package
8132     (name "gdm")
8133     (version "3.34.1")
8134     (source (origin
8135               (method url-fetch)
8136               (uri (string-append "mirror://gnome/sources/" name "/"
8137                                   (version-major+minor version) "/"
8138                                   name "-" version ".tar.xz"))
8139               (sha256
8140                (base32
8141                 "1lyqvcwxhwxklbxn4xjswjzr6fhjix6h28mi9ypn34wdm9bzcpg8"))
8142               (patches (search-patches "gdm-default-session.patch"))))
8143     (build-system glib-or-gtk-build-system)
8144     (arguments
8145      '(#:configure-flags
8146        `("--without-plymouth"
8147          "--disable-systemd-journal"
8148
8149          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
8150          ;; instead of having to replace it (i.e., stopping the mingetty
8151          ;; service for TTY 1 before starting GDM).
8152          "--with-initial-vt=7"
8153
8154          ;; Use '/etc/environment' for locale settings instead of the
8155          ;; systemd-specific '/etc/locale.conf'.
8156          "--with-lang-file=/etc/environment"
8157
8158          ,(string-append "--with-udevdir="
8159                          (assoc-ref %outputs "out") "/lib/udev")
8160
8161          "--localstatedir=/var"
8162          ,(string-append "--with-default-path="
8163                          (string-join '("/run/setuid-programs"
8164                                         "/run/current-system/profile/bin"
8165                                         "/run/current-system/profile/sbin")
8166                                       ":"))
8167          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
8168          ;; XDG_DATA_DIRS so that it finds its schemas.
8169          "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
8170        #:phases
8171        (modify-phases %standard-phases
8172          (add-before
8173           'configure 'pre-configure
8174           (lambda* (#:key inputs outputs #:allow-other-keys)
8175             ;; We don't have <systemd/sd-daemon.h>.
8176             (substitute* '("common/gdm-log.c"
8177                            "daemon/gdm-server.c"
8178                            "daemon/gdm-session-worker.c"
8179                            "daemon/gdm-session-worker-job.c")
8180               (("#include <systemd/sd-daemon\\.h>") ""))
8181             ;; Use elogind for sd-login.
8182             (substitute* '("common/gdm-common.c"
8183                            "daemon/gdm-local-display-factory.c"
8184                            "daemon/gdm-manager.c"
8185                            "libgdm/gdm-user-switching.c")
8186               (("#include <systemd/sd-login\\.h>")
8187                "#include <elogind/sd-login.h>"))
8188             ;; Check for elogind.
8189             (substitute* '("configure")
8190               (("libsystemd")
8191                "libelogind"))
8192             ;; Look for system-installed sessions in
8193             ;; /run/current-system/profile/share.
8194             (substitute* '("libgdm/gdm-sessions.c"
8195                            "daemon/gdm-session.c"
8196                            "daemon/gdm-display.c"
8197                            "daemon/gdm-launch-environment.c")
8198               (("DATADIR \"/x")
8199                "\"/run/current-system/profile/share/x")
8200               (("DATADIR \"/wayland")
8201                "\"/run/current-system/profile/share/wayland")
8202               (("DATADIR \"/gnome")
8203                "\"/run/current-system/profile/share/gnome"))
8204             (let ((propagate '("GDM_CUSTOM_CONF"
8205                                "GDM_DBUS_DAEMON"
8206                                "GDM_X_SERVER"
8207                                "GDM_X_SESSION"
8208                                ;; XXX: Remove this once GNOME Shell is
8209                                ;; a dependency of GDM.
8210                                "XDG_DATA_DIRS")))
8211               (substitute* "daemon/gdm-session.c"
8212                 (("set_up_session_environment \\(self\\);")
8213                  (apply string-append
8214                         "set_up_session_environment (self);\n"
8215                         (map (lambda (name)
8216                                (string-append
8217                                 "gdm_session_set_environment_variable "
8218                                 "(self, \"" name "\","
8219                                 "g_getenv (\"" name "\"));\n"))
8220                              propagate)))))
8221             ;; Find the configuration file using an environment variable.
8222             (substitute* '("common/gdm-settings.c")
8223               (("GDM_CUSTOM_CONF")
8224                (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8225                               " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8226                               " : GDM_CUSTOM_CONF)")))
8227             ;; Use service-supplied path to X.
8228             (substitute* '("daemon/gdm-server.c")
8229               (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8230                "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
8231             (substitute* '("daemon/gdm-wayland-session.c"
8232                            "daemon/gdm-x-session.c")
8233               (("\"dbus-daemon\"")
8234                "g_getenv (\"GDM_DBUS_DAEMON\")")
8235               (("X_SERVER")
8236                "g_getenv (\"GDM_X_SERVER\")")
8237               (("GDMCONFDIR \"/Xsession\"")
8238                "g_getenv (\"GDM_X_SESSION\")"))
8239             ;; Use an absolute path for GNOME Session.
8240             (substitute* "daemon/gdm-launch-environment.c"
8241               (("\"gnome-session\"")
8242                (string-append "\"" (assoc-ref inputs "gnome-session")
8243                               "/bin/gnome-session\"")))
8244             ;; Do not automatically select the placeholder session.
8245             (substitute* "daemon/gdm-session.c"
8246               (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8247                (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8248                               "(g_strcmp0(search_dirs[i], \""
8249                               (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
8250                               "\") == 0 && "
8251                               "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8252               (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
8253                "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
8254             #t))
8255          ;; GDM requires that there be at least one desktop entry
8256          ;; file.  This phase installs a hidden one that simply
8257          ;; fails.  This enables users to use GDM with a
8258          ;; '~/.xsession' script with no other desktop entry files.
8259          ;; See <https://bugs.gnu.org/35068>.
8260          (add-after 'install 'install-placeholder-desktop-entry
8261            (lambda* (#:key inputs outputs #:allow-other-keys)
8262              (let* ((out (assoc-ref outputs "out"))
8263                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
8264                     (fail (string-append sessions "/fail.desktop")))
8265                (mkdir-p sessions)
8266                (with-output-to-file fail
8267                  (lambda ()
8268                    (for-each
8269                     display
8270                     '("[Desktop Entry]\n"
8271                       "Encoding=UTF-8\n"
8272                       "Type=Application\n"
8273                       "Name=Fail\n"
8274                       "Comment=This session fails immediately.\n"
8275                       "NoDisplay=true\n"
8276                       "Exec=false\n"))))
8277                #t)))
8278          ;; GDM needs GNOME Session to run these applications.  We link
8279          ;; their autostart files in `share/gdm/greeter/autostart'
8280          ;; because GDM explicitly tells GNOME Session to look there.
8281          ;;
8282          ;; XXX: GNOME Shell should be linked here too, but currently
8283          ;; GNOME Shell depends on GDM.
8284          (add-after 'install 'link-autostart-files
8285            (lambda* (#:key inputs outputs #:allow-other-keys)
8286              (let* ((out (assoc-ref outputs "out"))
8287                     (autostart (string-append out "/share/gdm/"
8288                                               "greeter/autostart"))
8289                     (settings (assoc-ref inputs "gnome-settings-daemon")))
8290                (mkdir-p autostart)
8291                (with-directory-excursion autostart
8292                  (for-each (lambda (desktop)
8293                              (symlink desktop (basename desktop)))
8294                            (find-files (string-append settings "/etc/xdg"))))
8295                #t))))))
8296     (native-inputs
8297      `(("dconf" ,dconf)
8298        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8299        ("gobject-introspection" ,gobject-introspection)
8300        ("intltool" ,intltool)
8301        ("itstool" ,itstool)
8302        ("pkg-config" ,pkg-config)
8303        ("xmllint" ,libxml2)))
8304     (inputs
8305      `(("accountsservice" ,accountsservice)
8306        ("check" ,check-0.14)            ;for testing
8307        ("elogind" ,elogind)
8308        ("gnome-session" ,gnome-session)
8309        ("gnome-settings-daemon" ,gnome-settings-daemon)
8310        ("gtk+" ,gtk+)
8311        ("iso-codes" ,iso-codes)
8312        ("libcanberra" ,libcanberra)
8313        ("linux-pam" ,linux-pam)))
8314     (synopsis "Display manager for GNOME")
8315     (home-page "https://wiki.gnome.org/Projects/GDM/")
8316     (description
8317      "GNOME Display Manager is a system service that is responsible for
8318 providing graphical log-ins and managing local and remote displays.")
8319     (license license:gpl2+)))
8320
8321 (define-public libgtop
8322   (package
8323     (name "libgtop")
8324     (version "2.40.0")
8325     (source (origin
8326               (method url-fetch)
8327               (uri (string-append "mirror://gnome/sources/libgtop/"
8328                                   (version-major+minor version) "/"
8329                                   "libgtop-" version ".tar.xz"))
8330               (sha256
8331                (base32
8332                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8333     (build-system gnu-build-system)
8334     (native-inputs
8335      `(("gobject-introspection" ,gobject-introspection)
8336        ("intltool" ,intltool)
8337        ("perl" ,perl)
8338        ("pkg-config" ,pkg-config)))
8339     (propagated-inputs
8340      `(("glib" ,glib))) ; required by libgtop-2.0.pc
8341     (synopsis "Portable system access library")
8342     (home-page "https://www.gnome.org/")
8343     (description
8344      "LibGTop is a library to get system specific data such as CPU and memory
8345 usage and information about running processes.")
8346     (license license:gpl2+)))
8347
8348 (define-public gnome-bluetooth
8349   (package
8350     (name "gnome-bluetooth")
8351     (version "3.34.2")
8352     (source (origin
8353               (method url-fetch)
8354               (uri (string-append "mirror://gnome/sources/" name "/"
8355                                   (version-major+minor version) "/"
8356                                   name "-" version ".tar.xz"))
8357               (sha256
8358                (base32
8359                 "0lmjvb49vgr4jjplrisv6pi29jsn1q42715i6c5a0p9ad3gawyyv"))))
8360     (build-system meson-build-system)
8361     (native-inputs
8362      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
8363        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8364        ("gobject-introspection" ,gobject-introspection)
8365        ("intltool" ,intltool)
8366        ("pkg-config" ,pkg-config)
8367        ("xmllint" ,libxml2)))
8368     (propagated-inputs
8369      ;; gnome-bluetooth-1.0.pc refers to all these.
8370      `(("glib" ,glib)
8371        ("gtk+" ,gtk+)))
8372     (inputs
8373      `(("eudev" ,eudev)
8374        ("libcanberra" ,libcanberra)
8375        ("libnotify" ,libnotify)))
8376     (synopsis "GNOME Bluetooth subsystem")
8377     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8378     (description
8379      "This package contains tools for managing and manipulating Bluetooth
8380 devices using the GNOME desktop.")
8381     (license license:lgpl2.1+)))
8382
8383 (define-public gnome-control-center
8384   (package
8385     (name "gnome-control-center")
8386     (version "3.34.2")
8387     (source (origin
8388               (method url-fetch)
8389               (uri (string-append "mirror://gnome/sources/" name "/"
8390                                   (version-major+minor version) "/"
8391                                   name "-" version ".tar.xz"))
8392               (sha256
8393                (base32
8394                 "054igagvmyzpaa5nwzz98gv7bk7l5dwp6g813707132si3szlpx8"))))
8395     (build-system meson-build-system)
8396     (arguments
8397      '(#:glib-or-gtk? #t
8398        #:configure-flags
8399        (list "-Dcheese=false"
8400              (string-append "-Dgnome_session_libexecdir="
8401                             (assoc-ref %build-inputs "gnome-session")
8402                             "/libexec"))
8403        #:phases
8404        (modify-phases %standard-phases
8405          (add-before 'configure 'patch-paths
8406            (lambda* (#:key inputs #:allow-other-keys)
8407              (let ((libc   (assoc-ref inputs "libc"))
8408                    (tzdata (assoc-ref inputs "tzdata"))
8409                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
8410                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
8411                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
8412                (substitute* "panels/datetime/tz.h"
8413                  (("/usr/share/zoneinfo/zone.tab")
8414                   (string-append tzdata "/share/zoneinfo/zone.tab")))
8415                (substitute* "tests/datetime/test-endianess.c"
8416                  (("/usr/share/locale")
8417                   (string-append libc "/share/locale")))
8418                (substitute* "panels/region/cc-region-panel.c"
8419                  (("\"gkbd-keyboard-display")
8420                   (string-append "\"" libgnomekbd
8421                                  "/bin/gkbd-keyboard-display")))
8422                (substitute* '("panels/network/net-device-wifi.c"
8423                               "panels/network/net-device.c"
8424                               "panels/network/connection-editor/net-connection-editor.c")
8425                  (("\"nm-connection-editor")
8426                   (string-append "\"" nm-applet
8427                                  "/bin/nm-connection-editor")))
8428                (substitute* '("panels/user-accounts/run-passwd.c")
8429                  (("/usr/bin/passwd")
8430                   "/run/setuid-programs/passwd"))
8431                (substitute* "panels/info/cc-info-overview-panel.c"
8432                  (("DATADIR \"/gnome/gnome-version.xml\"")
8433                   (string-append "\"" gnome-desktop
8434                                  "/share/gnome/gnome-version.xml\"")))
8435                #t)))
8436          (add-after 'unpack 'skip-gtk-update-icon-cache
8437            ;; Don't create 'icon-theme.cache'.
8438            (lambda _
8439              (substitute* "build-aux/meson/meson_post_install.py"
8440                (("gtk-update-icon-cache") (which "true")))
8441              #t)))))
8442     (native-inputs
8443      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
8444        ("intltool" ,intltool)
8445        ("pkg-config" ,pkg-config)
8446        ("xsltproc" ,libxslt)
8447        ;; For tests
8448        ("hicolor-icon-theme" ,hicolor-icon-theme)
8449        ("python-dbusmock" ,python-dbusmock)
8450        ("xorg-server" ,xorg-server-for-tests)))
8451     (inputs
8452      `(("accountsservice" ,accountsservice)
8453        ("clutter-gtk" ,clutter-gtk)
8454        ("colord-gtk" ,colord-gtk)
8455        ("cups" ,cups)
8456        ("dconf" ,dconf)
8457        ("docbook-xsl" ,docbook-xsl)
8458        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
8459        ("gnome-bluetooth" ,gnome-bluetooth)
8460        ("gnome-desktop" ,gnome-desktop)
8461        ("gnome-online-accounts" ,gnome-online-accounts)
8462        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8463        ("gnome-session" ,gnome-session)
8464        ("gnome-settings-daemon" ,gnome-settings-daemon)
8465        ("grilo" ,grilo)
8466        ("gsound" ,gsound)
8467        ("ibus" ,ibus)
8468        ("libcanberra" ,libcanberra)
8469        ("libgnomekbd" ,libgnomekbd)
8470        ("libgudev" ,libgudev)
8471        ("libgtop" ,libgtop)
8472        ("libnma" ,libnma)
8473        ("libpwquality" ,libpwquality)
8474        ("libsecret" ,libsecret)
8475        ("libsoup" ,libsoup)
8476        ("libxml2" ,libxml2)
8477        ("libwacom" ,libwacom)
8478        ("mesa" ,mesa)
8479        ("mit-krb5" ,mit-krb5)
8480        ("modem-manager" ,modem-manager)
8481        ("network-manager-applet" ,network-manager-applet)
8482        ("polkit" ,polkit)
8483        ("pulseaudio" ,pulseaudio)
8484        ("smbclient" ,samba)
8485        ("tzdata" ,tzdata)
8486        ("udisks" ,udisks)
8487        ("upower" ,upower)))
8488     (synopsis "Utilities to configure the GNOME desktop")
8489     (home-page "https://www.gnome.org/")
8490     (description
8491      "This package contains configuration applets for the GNOME desktop,
8492 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8493 properties, sound setup, desktop theme and background, user interface
8494 properties, screen resolution, and other GNOME parameters.")
8495     (license license:gpl2+)))
8496
8497 (define-public gnome-shell
8498   (package
8499     (name "gnome-shell")
8500     (version "3.34.5")
8501     (source (origin
8502               (method url-fetch)
8503               (uri (string-append "mirror://gnome/sources/" name "/"
8504                                   (version-major+minor version) "/"
8505                                   name "-" version ".tar.xz"))
8506               (sha256
8507                (base32
8508                 "0l3mdn7g2c22mdhrqkxvvc1pk2w0v32f2v4a6n1phvaalwcg75nj"))
8509               (patches (search-patches "gnome-shell-CVE-2020-17489.patch"
8510                                        "gnome-shell-theme.patch"
8511                                        "gnome-shell-disable-test.patch"))
8512               (modules '((guix build utils)))
8513               (snippet
8514                #~(begin
8515                    ;; Copy images for use on the GDM log-in screen.
8516                    (copy-file #$(file-append %artwork-repository
8517                                              "/slim/0.x/background.png")
8518                               "data/theme/guix-background.png")
8519                    (copy-file #$(file-append %artwork-repository
8520                                              "/logo/Guix-horizontal-white.svg")
8521                               "data/theme/guix-logo.svg")
8522                    #t))))
8523     (build-system meson-build-system)
8524     (arguments
8525      `(#:glib-or-gtk? #t
8526        #:disallowed-references ((,glib "bin")
8527                                 ,inkscape ,libxslt
8528                                 ,ruby-sass)
8529        #:configure-flags
8530        (list "-Dsystemd=false"
8531              ;; Otherwise, the RUNPATH will lack the final path component.
8532              (string-append "-Dc_link_args=-Wl,-rpath="
8533                             (assoc-ref %outputs "out")
8534                             "/lib/gnome-shell"))
8535
8536        #:modules ((guix build meson-build-system)
8537                   (guix build utils)
8538                   (srfi srfi-1))
8539
8540        #:phases
8541        (modify-phases %standard-phases
8542          (add-after 'unpack 'fix-keysdir
8543            (lambda* (#:key outputs #:allow-other-keys)
8544              (let* ((out     (assoc-ref outputs "out"))
8545                     (keysdir (string-append
8546                               out "/share/gnome-control-center/keybindings")))
8547                (substitute* "meson.build"
8548                  (("keysdir =.*")
8549                   (string-append "keysdir = '" keysdir "'\n")))
8550                #t)))
8551          (add-before 'configure 'convert-logo-to-png
8552            (lambda* (#:key inputs #:allow-other-keys)
8553              ;; Convert the logo from SVG to PNG.
8554              (invoke "inkscape" "--export-png=data/theme/guix-logo.png"
8555                      "data/theme/guix-logo.svg")))
8556          (add-before 'configure 'record-absolute-file-names
8557            (lambda* (#:key inputs #:allow-other-keys)
8558              (substitute* "js/misc/ibusManager.js"
8559                (("'ibus-daemon'")
8560                 (string-append "'" (assoc-ref inputs "ibus")
8561                                "/bin/ibus-daemon'")))
8562              (substitute* "js/ui/status/keyboard.js"
8563                (("'gkbd-keyboard-display'")
8564                 (string-append "'" (assoc-ref inputs "libgnomekbd")
8565                                "/bin/gkbd-keyboard-display'")))
8566              #t))
8567          (add-before 'check 'pre-check
8568            (lambda* (#:key inputs #:allow-other-keys)
8569              ;; Tests require a running X server.
8570              (system "Xvfb :1 &")
8571              (setenv "DISPLAY" ":1")
8572              #t))
8573          (add-after 'install 'wrap-programs
8574            (lambda* (#:key inputs outputs #:allow-other-keys)
8575              (let ((out              (assoc-ref outputs "out"))
8576                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
8577                    (python-path      (getenv "PYTHONPATH")))
8578                (wrap-program (string-append out "/bin/gnome-shell")
8579                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
8580                  ;; FIXME: gnome-shell loads these libraries with unqualified
8581                  ;; names only, so they need to be on LD_LIBRARY_PATH.  The
8582                  ;; alternative might be to patch gnome-shell.
8583                  `("LD_LIBRARY_PATH" ":" prefix
8584                    ,(map (lambda (pkg)
8585                            (string-append (assoc-ref inputs pkg) "/lib"))
8586                          '("gdk-pixbuf"
8587                            "gnome-bluetooth" "librsvg" "libgweather"))))
8588                (for-each
8589                 (lambda (prog)
8590                   (wrap-program (string-append out "/bin/" prog)
8591                     `("PYTHONPATH"      ":" prefix (,python-path))
8592                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8593                 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
8594                #t)))
8595          (replace 'glib-or-gtk-wrap
8596            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8597              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
8598                ;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
8599                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8600                ;; phase.  Fix that since we don't need these.
8601                (wrap #:inputs (fold alist-delete inputs
8602                                     '("inkscape" "intltool" "glib:bin"))
8603                      #:outputs outputs)))))))
8604     (native-inputs
8605      `(("asciidoc" ,asciidoc)
8606        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8607        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8608        ("gobject-introspection" ,gobject-introspection)
8609        ("inkscape" ,inkscape)
8610        ("intltool" ,intltool)
8611        ("pkg-config" ,pkg-config)
8612        ("python" ,python)
8613        ("ruby-sass" ,ruby-sass)
8614        ("sassc" ,sassc)
8615        ("xsltproc" ,libxslt)
8616        ;; For tests
8617        ("xorg-server" ,xorg-server-for-tests)))
8618     (inputs
8619      `(("accountsservice" ,accountsservice)
8620        ("caribou" ,caribou)
8621        ("docbook-xsl" ,docbook-xsl)
8622        ("evolution-data-server" ,evolution-data-server)
8623        ("gcr" ,gcr)
8624        ("gdm" ,gdm)
8625        ("gdk-pixbuf" ,gdk-pixbuf+svg)
8626        ("gjs" ,gjs)
8627        ("gnome-autoar" ,gnome-autoar)
8628        ("gnome-bluetooth" ,gnome-bluetooth)
8629        ("gnome-desktop" ,gnome-desktop)
8630        ("gnome-settings-daemon" ,gnome-settings-daemon)
8631        ("gst-plugins-base" ,gst-plugins-base)
8632        ("ibus" ,ibus)
8633        ("libcanberra" ,libcanberra)
8634        ("libcroco" ,libcroco)
8635        ("libgnomekbd" ,libgnomekbd)               ;for gkbd-keyboard-display
8636        ("libgweather" ,libgweather)
8637        ("libnma" ,libnma)
8638        ("libsoup" ,libsoup)
8639        ("mesa-headers" ,mesa-headers)
8640        ("mutter" ,mutter)
8641        ("network-manager-applet" ,network-manager-applet)
8642        ("polkit" ,polkit)
8643        ("pulseaudio" ,pulseaudio)
8644        ("python-pygobject" ,python-pygobject)
8645        ("startup-notification" ,startup-notification)
8646        ("telepathy-logger" ,telepathy-logger)
8647        ("upower" ,upower)
8648        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
8649        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
8650        ("librsvg" ,librsvg)
8651        ("geoclue" ,geoclue)))
8652     ;; CVE-2019-3820 was fixed before GNOME 3.34 was released, in upstream
8653     ;; commit f0a7395b3006360905ccdc642982f9fc67378927.
8654     (properties '((lint-hidden-cve . ("CVE-2019-3820"))))
8655     (synopsis "Desktop shell for GNOME")
8656     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
8657     (description
8658      "GNOME Shell provides core user interface functions for the GNOME desktop,
8659 like switching to windows and launching applications.")
8660     (license license:gpl2+)))
8661
8662 (define-public gtk-vnc
8663   (package
8664     (name "gtk-vnc")
8665     (version "1.0.0")
8666     (source
8667      (origin
8668        (method url-fetch)
8669        (uri
8670         (string-append "mirror://gnome/sources/" name "/"
8671                        (version-major+minor version) "/"
8672                        name "-" version ".tar.xz"))
8673        (sha256
8674         (base32 "1060ws037v556rx1qhfrcg02859rscksrzr8fq11himdg4d1y6m8"))))
8675     (build-system meson-build-system)
8676     (arguments
8677      `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
8678     (native-inputs
8679      `(("gjs" ,gjs)
8680        ("glib:bin" ,glib "bin")
8681        ("gobject-introspection" ,gobject-introspection)
8682        ("intltool" ,intltool)
8683        ("node" ,node)
8684        ("perl" ,perl)
8685        ("pkg-config" ,pkg-config)
8686        ("python" ,python-wrapper)
8687        ("vala" ,vala)))
8688     (inputs
8689      `(("cairo" ,cairo)
8690        ("gdk-pixbuf" ,gdk-pixbuf+svg)
8691        ("glib" ,glib)
8692        ("gnutls" ,gnutls)
8693        ("libgcrypt" ,libgcrypt)
8694        ("libsasl" ,cyrus-sasl)
8695        ("pulseaudio" ,pulseaudio)
8696        ("x11" ,libx11)
8697        ("zlib" ,zlib)))
8698     (propagated-inputs
8699      `(("gtk+" ,gtk+)))
8700     (synopsis "VNC client viewer widget for GTK+")
8701     (description "GTK-VNC is a project providing client side APIs for the RFB
8702 protocol / VNC remote desktop technology.  It is built using coroutines allowing
8703 it to be completely asynchronous while remaining single threaded.  It provides a
8704 core C library, and bindings for Python (PyGTK).")
8705     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
8706     (license license:lgpl2.1+)))
8707
8708 (define-public gnome-autoar
8709   (package
8710     (name "gnome-autoar")
8711     (version "0.3.1")
8712     (source (origin
8713               (method url-fetch)
8714               (uri (string-append "mirror://gnome/sources/" name "/"
8715                                   (version-major+minor version) "/"
8716                                   name "-" version ".tar.xz"))
8717               (sha256
8718                (base32
8719                 "1y6hh5dldhdq7mpbmd571zl0yadfackvifhnxvykkqqddwz72y0f"))))
8720     (build-system glib-or-gtk-build-system)
8721     (native-inputs
8722      `(("gobject-introspection" ,gobject-introspection)
8723        ("pkg-config" ,pkg-config)))
8724     (propagated-inputs
8725      `(("libarchive" ,libarchive)))  ; Required by gnome-autoar-0.pc
8726     (inputs
8727      `(("gtk+" ,gtk+)))
8728     (synopsis "Archives integration support for GNOME")
8729     (home-page "https://git.gnome.org/browse/gnome-autoar/")
8730     (description
8731      "GNOME Autoar is a library which makes creating and extracting archives
8732 easy, safe, and automatic.")
8733     (license license:lgpl2.1+)))
8734
8735 (define-public tracker
8736   (package
8737     (name "tracker")
8738     (version "2.3.5")
8739     (source (origin
8740               (method url-fetch)
8741               (uri (string-append "mirror://gnome/sources/tracker/"
8742                                   (version-major+minor version) "/"
8743                                   "tracker-" version ".tar.xz"))
8744               (sha256
8745                (base32
8746                 "1ixxyqjlv7pnl4j8g6b72fkbjvzfspza8y71ppkncry8i6xkr223"))))
8747     (build-system meson-build-system)
8748     (arguments
8749      `(#:glib-or-gtk? #t
8750        #:configure-flags
8751        ;; Otherwise, the RUNPATH will lack the final path component.
8752        (list (string-append "-Dc_link_args=-Wl,-rpath="
8753                             (assoc-ref %outputs "out") "/lib:"
8754                             (assoc-ref %outputs "out") "/lib/tracker-2.0"))
8755        #:phases
8756        (modify-phases %standard-phases
8757          (add-before 'check 'pre-check
8758            (lambda _
8759              ;; Some tests expect to write to $HOME.
8760              (setenv "HOME" "/tmp")
8761              #t)))))
8762     (native-inputs
8763      `(("glib:bin" ,glib "bin")
8764        ("gobject-introspection" ,gobject-introspection)
8765        ("python-pygobject" ,python-pygobject)
8766        ("intltool" ,intltool)
8767        ("pkg-config" ,pkg-config)
8768        ("vala" ,vala)))
8769     (inputs
8770      `(("dbus" ,dbus)
8771        ("sqlite" ,sqlite)
8772        ("libxml2" ,libxml2)
8773        ("icu4c" ,icu4c)                 ; libunistring gets miner-miner-fs test to fail.
8774        ("json-glib" ,json-glib)
8775        ("libsoup" ,libsoup)))
8776     (synopsis "Metadata database, indexer and search tool")
8777     (home-page "https://wiki.gnome.org/Projects/Tracker")
8778     (description
8779      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
8780
8781 It is a middleware component aimed at desktop application developers who want
8782 their apps to browse and search user content.  It's not designed to be used
8783 directly by desktop users, but it provides a commandline tool named
8784 @command{tracker} for the adventurous.
8785
8786 Tracker allows your application to instantly perform full-text searches across
8787 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
8788 example.  This is achieved by indexing the user's home directory in the
8789 background.
8790
8791 Tracker also allows your application to query and list content that the user
8792 has stored.  For example, GNOME Music displays all the music files that are
8793 found by Tracker.  This means that GNOME Music doesn't need to maintain a
8794 database of its own.
8795
8796 If you need to go beyond simple searches, Tracker is also a linked data
8797 endpoint and it understands SPARQL. ")
8798     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
8799     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8800     ;; libstemmer is bsd-3 and the rest is gpl2+.
8801     (license (list license:gpl2+
8802                    license:bsd-3
8803                    license:lgpl2.1+))))
8804
8805 (define-public tracker-miners
8806   (package
8807     (name "tracker-miners")
8808     (version "2.3.4")
8809     (source (origin
8810               (method url-fetch)
8811               (uri (string-append "mirror://gnome/sources/tracker-miners/"
8812                                   (version-major+minor version)
8813                                   "/tracker-miners-" version ".tar.xz"))
8814               (sha256
8815                (base32
8816                 "10wy8d8ski52k809p7s6lbw72qmg05bbmhnl00vx4qrbzqyxvc0b"))))
8817     (build-system meson-build-system)
8818     (arguments
8819      `(#:glib-or-gtk? #t
8820        #:configure-flags
8821        (list "-Dminer_rss=false" ; libgrss is required.
8822              ;; Ensure the RUNPATH contains all installed library locations.
8823              (string-append "-Dc_link_args=-Wl,-rpath="
8824                             (assoc-ref %outputs "out")
8825                             "/lib/tracker-miners-2.0")
8826              ;; TODO: Enable functional tests. Currently, the following error
8827              ;; appears:
8828              ;; Exception: The functional tests require DConf to be the default
8829              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
8830              "-Dfunctional_tests=false")))
8831     (native-inputs
8832      `(("dbus" ,dbus)
8833        ("intltool" ,intltool)
8834        ("glib:bin" ,glib "bin")
8835        ("gobject-introspection" ,gobject-introspection)
8836        ("pkg-config" ,pkg-config)
8837        ("python-pygobject" ,python-pygobject)))
8838     (inputs
8839      `(("exempi" ,exempi)
8840        ("ffmpeg" ,ffmpeg)
8841        ("flac" ,flac)
8842        ("giflib" ,giflib)
8843        ("glib" ,glib)
8844        ("gstreamer" ,gstreamer)
8845        ("icu4c" ,icu4c)
8846        ("libcue" ,libcue)
8847        ("libexif" ,libexif)
8848        ("libgsf" ,libgsf)
8849        ("libgxps" ,libgxps)
8850        ("libiptcdata" ,libiptcdata)
8851        ("libjpeg" ,libjpeg-turbo)
8852        ("libosinfo" ,libosinfo)
8853        ("libpng" ,libpng)
8854        ("libseccomp" ,libseccomp)
8855        ("libtiff" ,libtiff)
8856        ("libvorbis" ,libvorbis)
8857        ("libxml2" ,libxml2)
8858        ("poppler" ,poppler)
8859        ("taglib" ,taglib)
8860        ("totem-pl-parser" ,totem-pl-parser)
8861        ("tracker" ,tracker)
8862        ("upower" ,upower)
8863        ("zlib" ,zlib)))
8864     (synopsis "Metadata database, indexer and search tool")
8865     (home-page "https://wiki.gnome.org/Projects/Tracker")
8866     (description
8867      "Tracker is an advanced framework for first class objects with associated
8868 metadata and tags.  It provides a one stop solution for all metadata, tags,
8869 shared object databases, search tools and indexing.")
8870     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8871     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
8872     (license (list license:gpl2+
8873                    license:lgpl2.1+
8874                    license:lgpl2.0+))))
8875
8876 (define-public nautilus
8877   (package
8878     (name "nautilus")
8879     (version "3.34.2")
8880     (source (origin
8881               (method url-fetch)
8882               (uri (string-append "mirror://gnome/sources/" name "/"
8883                                   (version-major+minor version) "/"
8884                                   name "-" version ".tar.xz"))
8885               (sha256
8886                (base32
8887                 "19zqwq4qyyncc5wq3xls0f7rsavnw741k336p2h7kx35p4kf41mv"))))
8888     (build-system meson-build-system)
8889     (arguments
8890      '(#:glib-or-gtk? #t
8891        #:phases
8892        (modify-phases %standard-phases
8893          (add-after 'unpack 'skip-gtk-update-icon-cache
8894            ;; Don't create 'icon-theme.cache'.
8895            (lambda _
8896              (substitute* "build-aux/meson/postinstall.py"
8897                (("gtk-update-icon-cache") "true"))
8898              #t)))
8899        ;; XXX: FAIL: check-nautilus
8900        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
8901        #:tests? #f))
8902     (native-inputs
8903      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8904        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
8905        ("gobject-introspection" ,gobject-introspection)
8906        ("intltool" ,intltool)
8907        ("pkg-config" ,pkg-config)))
8908     (inputs
8909      `(("dconf" ,dconf)
8910        ("gexiv2" ,gexiv2)
8911        ("gvfs" ,gvfs)
8912        ("exempi" ,exempi)
8913        ("gnome-desktop" ,gnome-desktop)
8914        ("gnome-autoar" ,gnome-autoar)
8915        ("gst-plugins-base" ,gst-plugins-base)
8916        ("libseccomp" ,libseccomp)
8917        ("libselinux" ,libselinux)
8918        ("tracker" ,tracker)
8919        ("tracker-miners" ,tracker-miners)
8920        ;; XXX: gtk+ is required by libnautilus-extension.pc
8921        ;;
8922        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
8923        ;; package.  See:
8924        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
8925        ("gtk+" ,gtk+)
8926        ("libexif" ,libexif)
8927        ("libxml2" ,libxml2)))
8928     (synopsis "File manager for GNOME")
8929     (home-page "https://wiki.gnome.org/Apps/Nautilus")
8930     (description
8931      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
8932 design and behaviour, giving the user a simple way to navigate and manage its
8933 files.")
8934     (license license:gpl2+)))
8935
8936 (define-public baobab
8937   (package
8938     (name "baobab")
8939     (version "3.38.0")
8940     (source (origin
8941               (method url-fetch)
8942               (uri (string-append
8943                     "mirror://gnome/sources/" name "/"
8944                     (version-major+minor version) "/"
8945                     name "-" version ".tar.xz"))
8946               (sha256
8947                (base32
8948                 "0ac3fbl15l836yvgw724q4whbkws9v4b6l2xy6bnp0b0g0a6i104"))))
8949     (build-system meson-build-system)
8950     (arguments
8951      '(#:glib-or-gtk? #t))
8952     (native-inputs
8953      `(("intltool" ,intltool)
8954        ("pkg-config" ,pkg-config)
8955        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8956        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8957        ("itstool" ,itstool)
8958        ("xmllint" ,libxml2)
8959        ("glib" ,glib "bin")
8960        ("vala" ,vala)))
8961     (inputs
8962      `(("gtk+" ,gtk+)))
8963     (synopsis "Disk usage analyzer for GNOME")
8964     (description
8965      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
8966 usage in the GNOME desktop environment.  It can easily scan device volumes or
8967 a specific user-requested directory branch (local or remote).  Once the scan
8968 is complete it provides a graphical representation of each selected folder.")
8969     (home-page "https://wiki.gnome.org/Apps/Baobab")
8970     (license license:gpl2+)))
8971
8972 (define-public gnome-backgrounds
8973   (package
8974     (name "gnome-backgrounds")
8975     (version "3.34.0")
8976     (source
8977      (origin
8978        (method url-fetch)
8979        (uri (string-append "mirror://gnome/sources/" name "/"
8980                            (version-major+minor version) "/"
8981                            name "-" version ".tar.xz"))
8982        (sha256
8983         (base32
8984          "0zxlwy55fz7i582hch2wnj8zy1kzikssgaix0l2y41ccp5nzpdy2"))))
8985     (build-system meson-build-system)
8986     (native-inputs
8987      `(("intltool" ,intltool)))
8988     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
8989     (synopsis "Background images for the GNOME desktop")
8990     (description
8991      "GNOME backgrounds package contains a collection of graphics files which
8992 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
8993 the package creates the proper framework and directory structure so that you
8994 can add your own files to the collection.")
8995     (license (list license:gpl2+
8996                    license:cc-by2.0
8997                    license:cc-by-sa2.0
8998                    license:cc-by-sa3.0))))
8999
9000 (define-public gnome-screenshot
9001   (package
9002     (name "gnome-screenshot")
9003     (version "3.34.0")
9004     (source
9005      (origin
9006        (method url-fetch)
9007        (uri (string-append "mirror://gnome/sources/" name "/"
9008                            (version-major+minor version) "/"
9009                            name "-" version ".tar.xz"))
9010        (sha256
9011         (base32
9012          "1rmiq890j7gfn5mcz31xy6jfnnxgc17dq67bhn2k9m5ylbvza2n8"))))
9013     (build-system meson-build-system)
9014     (arguments
9015      '(#:phases
9016        (modify-phases %standard-phases
9017          (add-after 'unpack 'skip-gtk-update-icon-cache
9018            ;; Don't create 'icon-theme.cache'.
9019            (lambda _
9020              (substitute* "build-aux/postinstall.py"
9021                (("gtk-update-icon-cache") "true"))
9022              #t)))))
9023     (native-inputs
9024      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
9025        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9026        ("intltool" ,intltool)
9027        ("appstream-glib" ,appstream-glib)
9028        ("pkg-config" ,pkg-config)))
9029     (inputs
9030      `(("gtk+" ,gtk+)
9031        ("libcanberra" ,libcanberra)
9032        ("libx11" ,libx11)
9033        ("libxext" ,libxext)))
9034     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
9035     (synopsis "Take pictures of your screen")
9036     (description
9037      "GNOME Screenshot is a utility used for taking screenshots of the entire
9038 screen, a window or a user defined area of the screen, with optional
9039 beautifying border effects.")
9040     (license license:gpl2+)))
9041
9042 (define-public dconf-editor
9043   (package
9044     (name "dconf-editor")
9045     (version "3.34.2")
9046     (source
9047      (origin
9048        (method url-fetch)
9049        (uri (string-append "mirror://gnome/sources/" name "/"
9050                            (version-major+minor version) "/"
9051                            name "-" version ".tar.xz"))
9052        (sha256
9053         (base32
9054          "0pwxjada2vaf69ihpjgp9nky54iykvxq63lp1vl8pxjanif2mk6f"))))
9055     (build-system meson-build-system)
9056     (native-inputs
9057      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9058        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9059        ("intltool" ,intltool)
9060        ("pkg-config" ,pkg-config)
9061        ("vala" ,vala)))
9062     (inputs
9063      `(("dconf" ,dconf)
9064        ("gtk+" ,gtk+)
9065        ("libxml2" ,libxml2)))
9066     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
9067     (synopsis "Graphical editor for GNOME's dconf configuration system")
9068     (description
9069      "Dconf-editor is a graphical tool for browsing and editing the dconf
9070 configuration system for GNOME.  It allows users to configure desktop
9071 software that do not provide their own configuration interface.")
9072     (license license:lgpl2.1+)))
9073
9074 (define-public gnome-default-applications
9075   (package
9076     (name "gnome-default-applications")
9077     (version "0")
9078     (build-system trivial-build-system)
9079     (source #f)
9080     (propagated-inputs
9081      `(("nautilus" ,nautilus)
9082        ("evince" ,evince)))
9083     (arguments
9084      `(#:modules ((guix build utils))
9085        #:builder
9086        (begin
9087          (use-modules (guix build utils))
9088          (let* ((out (assoc-ref %outputs "out"))
9089                 (apps (string-append out "/share/applications")))
9090            (mkdir-p apps)
9091            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
9092              (lambda (port)
9093                (format port "[Default Applications]\n")
9094                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
9095                (format port "application/pdf=evince.desktop\n")
9096                (format port "application/postscript=evince.desktop\n")))
9097            #t))))
9098     (synopsis "Default MIME type associations for the GNOME desktop")
9099     (description
9100      "Given many installed packages which might handle a given MIME type, a
9101 user running the GNOME desktop probably has some preferences: for example,
9102 that folders be opened by default by the Nautilus file manager, not the Baobab
9103 disk usage analyzer.  This package establishes that set of default MIME type
9104 associations for GNOME.")
9105     (license license:gpl3+)
9106     (home-page #f)))
9107
9108 (define-public libgovirt
9109   (package
9110    (name "libgovirt")
9111    (version "0.3.8")
9112    (source (origin
9113             (method url-fetch)
9114             (uri (string-append "mirror://gnome/sources/" name "/"
9115                                 (version-major+minor version) "/"
9116                                 name "-" version ".tar.xz"))
9117             (sha256
9118              (base32
9119               "1y0x1wyakj3ya33hgj0w1jkbcn50q21gmn2zyalxysqp55i1ij8x"))))
9120    (build-system glib-or-gtk-build-system)
9121    (native-inputs
9122     `(("gettext" ,gettext-minimal)
9123       ("glib:bin" ,glib "bin")
9124       ("gobject-introspection" ,gobject-introspection)
9125       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9126       ("gtk+:bin" ,gtk+ "bin")
9127       ("pkg-config" ,pkg-config)))
9128    (inputs
9129     `(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
9130       ("librest" ,rest)))
9131    (synopsis "GoVirt Library")
9132    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
9133    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
9134    (license license:gpl2+)))
9135
9136 (define-public gnome-weather
9137   (package
9138    (name "gnome-weather")
9139    (version "3.34.0")
9140    (source (origin
9141             (method url-fetch)
9142             (uri (string-append "mirror://gnome/sources/" name "/"
9143                                 (version-major+minor version) "/"
9144                                 name "-" version ".tar.xz"))
9145             (sha256
9146              (base32
9147               "1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
9148    (build-system meson-build-system)
9149    (native-inputs
9150     `(("gettext" ,gettext-minimal)
9151       ("glib:bin" ,glib "bin")
9152       ("gobject-introspection" ,gobject-introspection)
9153       ("gtk+:bin" ,gtk+ "bin")
9154       ("pkg-config" ,pkg-config)))
9155    (inputs
9156     `( ;("adwaita-icon-theme" ,adwaita-icon-theme)
9157       ("appstream-glib" ,appstream-glib)
9158       ("geoclue" ,geoclue)
9159       ("gdk-pixbuf" ,gdk-pixbuf)
9160       ("gjs" ,gjs)
9161       ("gnome-desktop" ,gnome-desktop)
9162       ("libgweather" ,libgweather)))
9163    (arguments
9164     `(#:glib-or-gtk? #t
9165       #:phases
9166       (modify-phases %standard-phases
9167         (add-after 'install 'fix-desktop-file
9168           ;; FIXME: "gapplication launch org.gnome.Weather" fails for some reason.
9169           ;; See https://issues.guix.gnu.org/issue/39324.
9170           (lambda* (#:key outputs #:allow-other-keys)
9171             (let* ((out (assoc-ref outputs "out"))
9172                    (applications (string-append out "/share/applications")))
9173               (substitute* (string-append applications "/org.gnome.Weather.desktop")
9174                 (("Exec=.*") "Exec=gnome-weather\n"))
9175               #t)))
9176         (add-after 'install 'wrap
9177           (lambda* (#:key inputs outputs #:allow-other-keys)
9178             (let ((out               (assoc-ref outputs "out"))
9179                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9180               ;; GNOME Weather needs the typelib files of GTK+, Pango etc at runtime.
9181               (wrap-program (string-append out "/bin/gnome-weather")
9182                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
9183               #t))))))
9184    (synopsis "Weather monitoring for GNOME desktop")
9185    (description "GNOME Weather is a small application that allows you to
9186 monitor the current weather conditions for your city, or anywhere in the
9187 world.")
9188    (home-page "https://wiki.gnome.org/Apps/Weather")
9189    (license license:gpl2+)))
9190
9191 (define-public gnome
9192   (package
9193     (name "gnome")
9194     (version (package-version gnome-shell))
9195     (source #f)
9196     (build-system trivial-build-system)
9197     (arguments '(#:builder (begin (mkdir %output) #t)))
9198     (propagated-inputs
9199      ;; TODO: Add or remove packages according to:
9200      ;;       <https://calc.disroot.org/2nu6mpf88ynq.html>.
9201      `(
9202      ;; GNOME-Core-OS-Services
9203        ("accountsservice" ,accountsservice)
9204        ("network-manager" ,network-manager)
9205        ("packagekit" ,packagekit)
9206        ("upower" ,upower)
9207      ;; GNOME-Core-Shell
9208        ("adwaita-icon-theme" ,adwaita-icon-theme)
9209        ("gdm" ,gdm)
9210        ("glib-networking" ,glib-networking)
9211        ("gnome-backgrounds" ,gnome-backgrounds)
9212        ("gnome-bluetooth" ,gnome-bluetooth)
9213        ("gnome-color-manager" ,gnome-color-manager)
9214        ("gnome-control-center" ,gnome-control-center)
9215        ("gnome-desktop" ,gnome-desktop)
9216        ("gnome-getting-started-docs" ,gnome-getting-started-docs)
9217        ("gnome-initial-setup" ,gnome-initial-setup)
9218        ("gnome-keyring" ,gnome-keyring)
9219        ("gnome-menus" ,gnome-menus)
9220        ("gnome-session" ,gnome-session)
9221        ("gnome-settings-daemon" ,gnome-settings-daemon)
9222        ("gnome-shell-extensions" ,gnome-shell-extensions)
9223        ("gnome-shell" ,gnome-shell)
9224        ("gnome-themes-extra" ,gnome-themes-extra)
9225        ("gnome-user-docs" ,gnome-user-docs)
9226        ("gnome-user-share" ,gnome-user-share)
9227        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9228        ("gvfs" ,gvfs)
9229        ("mutter" ,mutter)
9230        ("orca" ,orca)
9231        ("rygel" ,rygel)
9232        ("sushi" ,sushi)
9233      ;; GNOME-Core-Utilities
9234        ("baobab" ,baobab)
9235        ("cheese" ,cheese)
9236        ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9237        ;; only works on x86_64, so exclude it on other architectures.
9238        ,@(if (string-prefix? "x86_64" (%current-system))
9239              `(("eog" ,eog))
9240              '())
9241        ("epiphany" ,epiphany)
9242        ("evince" ,evince)
9243        ("file-roller" ,file-roller)
9244        ("gedit" ,gedit)
9245        ("gnome-boxes" ,gnome-boxes)
9246        ("gnome-calculator" ,gnome-calculator)
9247        ("gnome-calendar" ,gnome-calendar)
9248        ("gnome-characters" ,gnome-characters)
9249        ("gnome-clocks" ,gnome-clocks)
9250        ("gnome-contacts" ,gnome-contacts)
9251        ("gnome-disk-utility" ,gnome-disk-utility)
9252        ("gnome-font-viewer" ,gnome-font-viewer)
9253        ("gnome-maps" ,gnome-maps)
9254        ; TODO: ("gnome-music" ,gnome-music)
9255        ; TODO: ("gnome-photos" ,gnome-photos)
9256        ("gnome-screenshot" ,gnome-screenshot)
9257        ("gnome-system-monitor" ,gnome-system-monitor)
9258        ("gnome-terminal" ,gnome-terminal)
9259        ("gnome-weather" ,gnome-weather)
9260        ("nautilus" ,nautilus)
9261        ("simple-scan" ,simple-scan)
9262        ("totem" ,totem)
9263        ("yelp" ,yelp)
9264      ;; Others
9265        ("hicolor-icon-theme" ,hicolor-icon-theme)
9266        ("gnome-online-accounts" ,gnome-online-accounts)
9267
9268        ;; Packages not part of GNOME proper but that are needed for a good
9269        ;; experience.  See <https://bugs.gnu.org/39646>.
9270        ;; XXX: Find out exactly which ones are needed and why.
9271        ("font-cantarell"            ,font-cantarell)
9272        ("font-dejavu"               ,font-dejavu)
9273        ("at-spi2-core"              ,at-spi2-core)
9274        ("dbus"                      ,dbus)
9275        ("dconf"                     ,dconf)
9276        ("desktop-file-utils"        ,desktop-file-utils)
9277        ("gnome-default-applications" ,gnome-default-applications)
9278        ("gnome-themes-standard"     ,gnome-themes-standard)
9279        ("gst-plugins-base"          ,gst-plugins-base)
9280        ("gst-plugins-good"          ,gst-plugins-good)
9281        ("gucharmap"                 ,gucharmap)
9282        ("pinentry-gnome3"           ,pinentry-gnome3)
9283        ("pulseaudio"                ,pulseaudio)
9284        ("shared-mime-info"          ,shared-mime-info)
9285        ("system-config-printer"     ,system-config-printer)
9286        ("xdg-user-dirs"             ,xdg-user-dirs)
9287        ("yelp"                      ,yelp)
9288        ("zenity"                    ,zenity)))
9289     (synopsis "The GNU desktop environment")
9290     (home-page "https://www.gnome.org/")
9291     (description
9292      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
9293 applications for browsing the web, editing text and images, creating
9294 documents and diagrams, playing media, scanning, and much more.")
9295     (license license:gpl2+)))
9296
9297 (define-public byzanz
9298   ;; The last stable release of Byzanz was in 2011, but there have been many
9299   ;; useful commits made to the Byzanz repository since then that it would be
9300   ;; silly to use such an old release.
9301   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9302     (package
9303       (name "byzanz")
9304       (version (string-append "0.2-1." (string-take commit 7)))
9305       (source (origin
9306                 (method git-fetch)
9307                 (uri (git-reference
9308                       (url "https://git.gnome.org/browse/byzanz")
9309                       (commit commit)))
9310                 (file-name (string-append name "-" version "-checkout"))
9311                 (sha256
9312                  (base32
9313                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9314       (build-system glib-or-gtk-build-system)
9315       (arguments
9316        '(#:phases
9317          (modify-phases %standard-phases
9318            (add-before 'bootstrap 'build-without-Werror
9319              (lambda _
9320                ;; The build system cleverly detects that we're not building from
9321                ;; a release tarball and turns on -Werror for GCC.
9322                ;; Unsurprisingly, there is a warning during compilation that
9323                ;; causes the build to fail unnecessarily, so we remove the flag.
9324                (substitute* '("configure.ac")
9325                  (("-Werror") ""))
9326                #t)))))
9327       (native-inputs
9328        `(("autoconf" ,autoconf)
9329          ("automake" ,automake)
9330          ("gnome-common" ,gnome-common)
9331          ("intltool" ,intltool)
9332          ("libtool" ,libtool)
9333          ("pkg-config" ,pkg-config)
9334          ("which" ,which)))
9335       (inputs
9336        `(("glib" ,glib)
9337          ("gstreamer" ,gstreamer)
9338          ("gst-plugins-base" ,gst-plugins-base)
9339          ("gtk+" ,gtk+)))
9340       (synopsis "Desktop recording program")
9341       (description "Byzanz is a simple desktop recording program with a
9342 command-line interface.  It can record part or all of an X display for a
9343 specified duration and save it as a GIF encoded animated image file.")
9344       (home-page "https://git.gnome.org/browse/byzanz")
9345       (license license:gpl2+))))
9346
9347 (define-public authenticator
9348   (package
9349     (name "authenticator")
9350     (version "3.32.2")
9351     (source
9352      (origin
9353        (method git-fetch)
9354        (uri (git-reference
9355              (url "https://gitlab.gnome.org/World/Authenticator")
9356              (commit version)))
9357        (file-name (git-file-name name version))
9358        (sha256
9359         (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9360     (build-system meson-build-system)
9361     (arguments
9362      `(#:glib-or-gtk? #t
9363        #:phases
9364        (modify-phases %standard-phases
9365          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9366            (lambda* (#:key inputs outputs #:allow-other-keys)
9367              (let ((prog (string-append (assoc-ref outputs "out")
9368                                         "/bin/authenticator"))
9369                    (pylib (string-append (assoc-ref outputs "out")
9370                                          "/lib/python"
9371                                          ,(version-major+minor
9372                                            (package-version python))
9373                                          "/site-packages")))
9374                (wrap-program prog
9375                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
9376                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9377                #t))))))
9378     (native-inputs
9379      `(("desktop-file-utils" ,desktop-file-utils)
9380        ("gettext" ,gettext-minimal)
9381        ("glib:bin" ,glib "bin")
9382        ("gobject-introspection" ,gobject-introspection)
9383        ("gtk+:bin" ,gtk+ "bin")
9384        ("pkg-config" ,pkg-config)))
9385     (inputs
9386      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9387        ("gtk+" ,gtk+)
9388        ("libhandy" ,libhandy-0.0)
9389        ("libsecret" ,libsecret)
9390        ("python-beautifulsoup4" ,python-beautifulsoup4)
9391        ("python-pillow" ,python-pillow)
9392        ("python-pyfavicon" ,python-pyfavicon)
9393        ("python-pygobject" ,python-pygobject)
9394        ("python-pyotp" ,python-pyotp)
9395        ("python-pyzbar" ,python-pyzbar)
9396        ("yoyo-migrations" ,yoyo-migrations)
9397        ("zbar" ,zbar)))
9398     (home-page "https://gitlab.gnome.org/World/Authenticator/")
9399     (synopsis "Two-factor authentication application built for GNOME")
9400     (description
9401      "Authenticator is a two-factor authentication (2FA) application built for
9402 the GNOME desktop environment.
9403
9404 Features:
9405
9406 @itemize
9407 @item QR code scanner
9408 @item Beautiful UI
9409 @item Huge database of more than 560 supported services
9410 @item Keep your PIN tokens secure by locking the application with a password
9411 @item Automatically fetch an image for services using their favicon
9412 @item The possibility to add new services
9413 @end itemize")
9414     (license license:gpl3+)))
9415
9416 (define-public gsound
9417   (package
9418     (name "gsound")
9419     (version "1.0.2")
9420     (source (origin
9421               (method url-fetch)
9422               (uri (string-append "mirror://gnome/sources/" name "/"
9423                                   (version-major+minor version) "/"
9424                                   name "-" version ".tar.xz"))
9425               (sha256
9426                (base32
9427                 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
9428     (build-system glib-or-gtk-build-system)
9429     (native-inputs
9430      `(("pkg-config" ,pkg-config)
9431        ("gobject-introspection" ,gobject-introspection)
9432        ("vala" ,vala)))
9433     (inputs
9434      `(("glib" ,glib)
9435        ("libcanberra" ,libcanberra)))
9436     (home-page "https://wiki.gnome.org/Projects/GSound")
9437     (synopsis "GObject wrapper for libcanberra")
9438     (description
9439      "GSound is a small library for playing system sounds.  It's designed to be
9440 used via GObject Introspection, and is a thin wrapper around the libcanberra C
9441 library.")
9442     (license license:lgpl2.1+)))
9443
9444 (define-public libzapojit
9445   (package
9446     (name "libzapojit")
9447     (version "0.0.3")
9448     (source (origin
9449               (method url-fetch)
9450               (uri (string-append "mirror://gnome/sources/" name "/"
9451                                   (version-major+minor version) "/"
9452                                   name "-" version ".tar.xz"))
9453               (sha256
9454                (base32
9455                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9456     (build-system gnu-build-system)
9457     (native-inputs
9458      `(("gobject-introspection" ,gobject-introspection)
9459        ("intltool" ,intltool)
9460        ("pkg-config" ,pkg-config)))
9461     (inputs
9462      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9463        ("json-glib" ,json-glib)
9464        ("rest" ,rest)))
9465     (home-page "https://wiki.gnome.org/Projects/Zapojit")
9466     (synopsis "Library for accessing SkyDrive and Hotmail")
9467     (description
9468      "Libzapojit is a GLib-based library for accessing online service APIs of
9469 Microsoft SkyDrive and Hotmail, using their REST protocols.")
9470     (license license:lgpl2.1+)))
9471
9472 (define-public gnome-clocks
9473   (package
9474     (name "gnome-clocks")
9475     (version "3.34.0")
9476     (source (origin
9477               (method url-fetch)
9478               (uri (string-append "mirror://gnome/sources/" name "/"
9479                                   (version-major+minor version) "/"
9480                                   name "-" version ".tar.xz"))
9481               (sha256
9482                (base32
9483                 "0g7hjk55smhkd09hwa9kag3h5a12l494wj89w9smpdk3ghsmy6b1"))))
9484     (build-system meson-build-system)
9485     (arguments
9486      '(#:glib-or-gtk? #t
9487        #:phases
9488        (modify-phases %standard-phases
9489          (add-after 'unpack 'skip-gtk-update-icon-cache
9490            ;; Don't create 'icon-theme.cache'.
9491            (lambda _
9492              (substitute* "build-aux/post-install.py"
9493                (("gtk-update-icon-cache") "true"))
9494              #t)))))
9495     (native-inputs
9496      `(("vala" ,vala)
9497        ("pkg-config" ,pkg-config)
9498        ("glib" ,glib "bin")             ; for glib-compile-resources
9499        ("desktop-file-utils" ,desktop-file-utils)
9500        ("gettext" ,gettext-minimal)
9501        ("itstool" ,itstool)))
9502     (inputs
9503      `(("glib" ,glib)
9504        ("gtk+" ,gtk+)
9505        ("gsound" ,gsound)
9506        ("geoclue" ,geoclue)
9507        ("geocode-glib" ,geocode-glib)
9508        ("libgweather" ,libgweather)
9509        ("gnome-desktop" ,gnome-desktop)))
9510     (home-page "https://wiki.gnome.org/Apps/Clocks")
9511     (synopsis "GNOME's clock application")
9512     (description
9513      "GNOME Clocks is a simple clocks application designed to fit the GNOME
9514 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
9515     (license license:gpl3+)))
9516
9517 (define-public gnome-calendar
9518   (package
9519     (name "gnome-calendar")
9520     (version "3.34.2")
9521     (source (origin
9522               (method url-fetch)
9523               (uri (string-append "mirror://gnome/sources/" name "/"
9524                                   (version-major+minor version) "/"
9525                                   name "-" version ".tar.xz"))
9526               (sha256
9527                (base32
9528                 "1bnmd191044zn2kr6f5vg7sm5q59qf7z652awll1f7s6ahijr8rw"))))
9529     (build-system meson-build-system)
9530     (arguments
9531      '(#:glib-or-gtk? #t
9532        ;; gnome-calendar has to be installed before the tests can be run
9533        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
9534        #:tests? #f
9535        #:phases
9536        (modify-phases %standard-phases
9537          (add-after 'unpack 'skip-gtk-update-icon-cache
9538            ;; Don't create 'icon-theme.cache'.
9539            (lambda _
9540              (substitute* "build-aux/meson/meson_post_install.py"
9541                (("gtk-update-icon-cache") "true"))
9542              #t)))))
9543     (native-inputs
9544      `(("gettext" ,gettext-minimal)
9545        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
9546        ("pkg-config" ,pkg-config)))
9547     (inputs
9548      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9549        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9550        ("libdazzle" ,libdazzle)
9551        ("libedataserverui" ,evolution-data-server)
9552        ("libgweather" ,libgweather)
9553        ("geoclue" ,geoclue)))
9554     (propagated-inputs
9555      `(("evolution-data-server" ,evolution-data-server)))
9556     (home-page "https://wiki.gnome.org/Apps/Calendar")
9557     (synopsis "GNOME's calendar application")
9558     (description
9559      "GNOME Calendar is a simple calendar application designed to fit the GNOME
9560 desktop.  It supports multiple calendars, month, week and year view.")
9561     (license license:gpl3+)))
9562
9563 (define-public gnome-todo
9564   (package
9565     (name "gnome-todo")
9566     (version "3.28.1")
9567     (source (origin
9568               (method url-fetch)
9569               (uri (string-append "mirror://gnome/sources/" name "/"
9570                                   (version-major+minor version) "/"
9571                                   name "-" version ".tar.xz"))
9572               (sha256
9573                (base32
9574                 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))
9575               (patches
9576                (search-patches "gnome-todo-delete-esource-duplicate.patch"))))
9577     (build-system meson-build-system)
9578     (arguments
9579      '(#:glib-or-gtk? #t
9580        #:phases (modify-phases %standard-phases
9581                   (add-after
9582                       'install 'wrap-gnome-todo
9583                     (lambda* (#:key inputs outputs #:allow-other-keys)
9584                       (let ((out               (assoc-ref outputs "out"))
9585                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
9586                             (python-path       (getenv "PYTHONPATH")))
9587                         (wrap-program (string-append out "/bin/gnome-todo")
9588                           ;; XXX: gi plugins are broken.
9589                           ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
9590                           ;; For plugins.
9591                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
9592                           `("PYTHONPATH" ":" prefix (,python-path))))
9593                       #t)))))
9594     (native-inputs
9595      `(("gettext" ,gettext-minimal)
9596        ("gobject-introspection" ,gobject-introspection)
9597        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
9598        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
9599        ("pkg-config" ,pkg-config)))
9600     (inputs
9601      `(("rest" ,rest)                   ; For Todoist plugin
9602        ("json-glib" ,json-glib)         ; For Todoist plugin
9603        ("libedataserverui" ,evolution-data-server)
9604        ("libical" ,libical)
9605        ("libpeas" ,libpeas)
9606        ("python-pygobject" ,python-pygobject)
9607        ("evolution-data-server" ,evolution-data-server)
9608        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9609        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
9610     (home-page "https://wiki.gnome.org/Apps/Todo")
9611     (synopsis "GNOME's ToDo Application")
9612     (description
9613      "GNOME To Do is a simplistic personal task manager designed to perfectly
9614 fit the GNOME desktop.")
9615     (license license:gpl3+)))
9616
9617 (define-public gnome-dictionary
9618   (package
9619     (name "gnome-dictionary")
9620     (version "3.26.1")
9621     (source (origin
9622               (method url-fetch)
9623               (uri (string-append "mirror://gnome/sources/" name "/"
9624                                   (version-major+minor version) "/"
9625                                   name "-" version ".tar.xz"))
9626               (sha256
9627                (base32
9628                 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
9629     (build-system meson-build-system)
9630     (arguments '(#:glib-or-gtk? #t
9631                  #:phases (modify-phases %standard-phases
9632                             (add-after 'unpack 'patch-install-script
9633                               (lambda _
9634                                 ;; This script attempts to compile glib schemas
9635                                 ;; and create an empty MIME database.  We do
9636                                 ;; that elsewhere, so prevent it from running.
9637                                 (substitute* "build-aux/post-install.sh"
9638                                   (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
9639                                 #t)))))
9640     (native-inputs
9641      `(("glib:bin" ,glib "bin")
9642        ("gobject-introspection" ,gobject-introspection)
9643        ("intltool" ,intltool)
9644        ("itstool" ,itstool)
9645        ("pkg-config" ,pkg-config)
9646        ("xmllint" ,libxml2)))
9647     (inputs
9648      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9649        ("gtk+" ,gtk+)))
9650     (home-page "https://wiki.gnome.org/Apps/Dictionary")
9651     (synopsis "Look up words in dictionary sources")
9652     (description
9653      "GNOME Dictionary can look for the definition or translation of a word in
9654 existing databases over the internet.")
9655     (license license:gpl3+)))
9656
9657 (define-public gnome-tweaks
9658   (package
9659     (name "gnome-tweaks")
9660     (version "3.34.1")
9661     (source (origin
9662               (method url-fetch)
9663               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
9664                                   (version-major+minor version) "/"
9665                                   "gnome-tweaks-" version ".tar.xz"))
9666               (patches
9667                (list (search-patch "gnome-tweaks-search-paths.patch")))
9668               (sha256
9669                (base32
9670                 "19y62dj4n5i6v4zpjllxl51dch6ndy8xs45v5aqmmq9xyfrqk5yq"))))
9671     (build-system meson-build-system)
9672     (arguments
9673      `(#:glib-or-gtk? #t
9674        #:configure-flags '("-Dlocalstatedir=/tmp"
9675                            "-Dsysconfdir=/tmp")
9676        #:imported-modules ((guix build python-build-system)
9677                            ,@%meson-build-system-modules)
9678        #:phases
9679        (modify-phases %standard-phases
9680          (add-after 'unpack 'skip-gtk-update-icon-cache
9681            ;; Don't create 'icon-theme.cache'.
9682            (lambda _
9683              (substitute* "meson-postinstall.py"
9684                (("gtk-update-icon-cache") "true"))
9685              #t))
9686          (add-after 'install 'wrap
9687            (@@ (guix build python-build-system) wrap))
9688          (add-after 'wrap 'wrap-gi-typelib
9689            (lambda* (#:key inputs outputs #:allow-other-keys)
9690              (let ((out               (assoc-ref outputs "out"))
9691                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9692                (wrap-program (string-append out "/bin/gnome-tweaks")
9693                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
9694              #t)))))
9695     (native-inputs
9696      `(("intltool" ,intltool)
9697        ("pkg-config" ,pkg-config)))
9698     (inputs
9699      `(("gnome-desktop" ,gnome-desktop)
9700        ("gtk+" ,gtk+)
9701        ("gobject-introspection" ,gobject-introspection)
9702        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9703        ("libhandy" ,libhandy-0.0)
9704        ("libnotify" ,libnotify)
9705        ("libsoup" ,libsoup)
9706        ("nautilus" ,nautilus)
9707        ("python" ,python)
9708        ("python-pygobject" ,python-pygobject)))
9709     (synopsis "Customize advanced GNOME 3 options")
9710     (home-page "https://wiki.gnome.org/Apps/Tweaks")
9711     (description
9712      "GNOME Tweaks allows adjusting advanced configuration settings in
9713 GNOME 3.  This includes things like the fonts used in user interface elements,
9714 alternative user interface themes, changes in window management behavior,
9715 GNOME Shell appearance and extension, etc.")
9716     (license license:gpl3+)))
9717
9718 (define-public gnome-shell-extensions
9719   (package
9720     (name "gnome-shell-extensions")
9721     (version "3.34.2")
9722     (source (origin
9723               (method url-fetch)
9724               (uri (string-append "mirror://gnome/sources/" name "/"
9725                                   (version-major+minor version)  "/"
9726                                   name "-" version ".tar.xz"))
9727               (sha256
9728                (base32
9729                 "1f5l35l3kdkzrv49xmg1sh11vwmgjbg7hx3gb91i39bfl1snxqd1"))))
9730     (build-system meson-build-system)
9731     (arguments
9732      '(#:configure-flags '("-Dextension_set=all")))
9733     (native-inputs
9734      `(("glib:bin" ,glib "bin")
9735        ("intltool" ,intltool)
9736        ("pkg-config" ,pkg-config)))
9737     (propagated-inputs
9738      `(("glib" ,glib)))
9739     (synopsis "Extensions for GNOME Shell")
9740     (description "GNOME Shell extensions modify and extend GNOME Shell
9741 functionality and behavior.")
9742     (home-page "https://extensions.gnome.org/")
9743     (license license:gpl3+)))
9744
9745 (define-public folks
9746   (package
9747     (name "folks")
9748     (version "0.13.1")
9749     (source (origin
9750               (method url-fetch)
9751               (uri (string-append
9752                     "mirror://gnome/sources/folks/"
9753                     (version-major+minor version) "/"
9754                     "folks-" version ".tar.xz"))
9755               (sha256
9756                (base32
9757                 "0pda8sx4ap3lyri5fdrnakl29la1zkhwlc9bmnp13qigp1iwdw9x"))))
9758     (build-system meson-build-system)
9759     (arguments
9760      '(#:phases
9761        (modify-phases %standard-phases
9762          (add-after 'unpack 'skip-gtk-update-icon-cache
9763            ;; Don't create 'icon-theme.cache'.
9764            (lambda _
9765              (substitute* "meson_post_install.py"
9766                (("gtk-update-icon-cache") "true"))
9767              #t)))))
9768     (inputs
9769      `(("bdb" ,bdb)
9770        ("dbus-glib" ,dbus-glib)
9771        ("evolution-data-server" ,evolution-data-server)
9772        ("glib" ,glib)
9773        ("libgee" ,libgee)
9774        ("readline" ,readline)
9775        ("telepathy-glib" ,telepathy-glib)))
9776     (native-inputs
9777      `(("glib:bin" ,glib "bin")
9778        ("gobject-introspection" ,gobject-introspection)
9779        ("intltool" ,intltool)
9780        ("pkg-config" ,pkg-config)
9781        ("vala" ,vala)))
9782     (synopsis "Library to aggregate data about people")
9783     (description "Libfolks is a library that aggregates information about people
9784 from multiple sources (e.g., Telepathy connection managers for IM contacts,
9785 Evolution Data Server for local contacts, libsocialweb for web service contacts,
9786 etc.) to create metacontacts.  It's written in Vala, which generates C code when
9787 compiled.")
9788     (home-page "https://wiki.gnome.org/Projects/Folks")
9789     (license license:lgpl2.1+)))
9790
9791 (define-public gfbgraph
9792   (package
9793     (name "gfbgraph")
9794     (version "0.2.4")
9795     (source (origin
9796               (method url-fetch)
9797               (uri (string-append
9798                     "mirror://gnome/sources/gfbgraph/"
9799                     (version-major+minor version) "/"
9800                     "gfbgraph-" version ".tar.xz"))
9801               (sha256
9802                (base32
9803                 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
9804     (build-system glib-or-gtk-build-system)
9805     (arguments
9806      `(#:tests? #f                      ; tests appear to require the network
9807        #:configure-flags '("--disable-static"
9808                            "--enable-gtk-doc"
9809                            "--enable-introspection")))
9810     (native-inputs
9811      `(("gobject-introspection" ,gobject-introspection)
9812        ("gtk-doc" ,gtk-doc/stable)
9813        ("pkg-config" ,pkg-config)
9814
9815        ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
9816        ("autoconf" ,autoconf)
9817        ("automake" ,automake)
9818        ("libtool" ,libtool)
9819        ("which" ,which)))
9820     (inputs
9821      `(("json-glib" ,json-glib)
9822        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9823        ("rest" ,rest)))
9824     (synopsis "GLib/GObject wrapper for the Facebook API")
9825     (description "This library allows you to use the Facebook API from
9826 GLib/GObject code.")
9827     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
9828     (license license:lgpl2.1+)))
9829
9830 (define-public libgnomekbd
9831   (package
9832     (name "libgnomekbd")
9833     (version "3.26.1")
9834     (source (origin
9835               (method url-fetch)
9836               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
9837                                   (version-major+minor version)  "/"
9838                                   "libgnomekbd-" version ".tar.xz"))
9839               (sha256
9840                (base32
9841                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
9842     (build-system gnu-build-system)
9843     (native-inputs
9844      `(("pkg-config" ,pkg-config)
9845        ("glib" ,glib "bin")
9846        ("intltool" ,intltool)))
9847     (propagated-inputs
9848      ;; Referred to in .h files and .pc.
9849      `(("glib" ,glib)
9850        ("gtk+" ,gtk+)
9851        ("libxklavier" ,libxklavier)))
9852     (home-page "https://www.gnome.org")
9853     (synopsis "GNOME keyboard configuration library")
9854     (description
9855      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
9856 environment, which can notably display keyboard layouts.")
9857     (license license:lgpl2.0+)))
9858
9859 ;;; This package is no longer maintained:
9860 ;;; https://wiki.gnome.org/Attic/LibUnique
9861 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
9862 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
9863 (define-public libunique
9864   (package
9865     (name "libunique")
9866     (version "3.0.2")
9867     (source (origin
9868               (method url-fetch)
9869               (uri (string-append "mirror://gnome/sources/" name "/"
9870                                   (version-major+minor version)  "/"
9871                                   name "-" version ".tar.xz"))
9872               (sha256
9873                (base32
9874                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
9875     (build-system glib-or-gtk-build-system)
9876     (arguments
9877      `(#:configure-flags '("--disable-static"
9878                            "--disable-dbus" ; use gdbus
9879                            "--enable-introspection")))
9880     (native-inputs
9881      `(("pkg-config" ,pkg-config)
9882        ("gobject-introspection" ,gobject-introspection)
9883        ("glib:bin" ,glib "bin")
9884        ("gtk-doc" ,gtk-doc/stable)))
9885     (propagated-inputs
9886      ;; Referred to in .h files and .pc.
9887      `(("gtk+" ,gtk+)))
9888     (home-page "https://wiki.gnome.org/Attic/LibUnique")
9889     (synopsis "Library for writing single instance applications")
9890     (description
9891      "Libunique is a library for writing single instance applications.  If you
9892 launch a single instance application twice, the second instance will either just
9893 quit or will send a message to the running instance.  Libunique makes it easy to
9894 write this kind of application, by providing a base class, taking care of all
9895 the IPC machinery needed to send messages to a running instance, and also
9896 handling the startup notification side.")
9897     (license license:lgpl2.1+)))
9898
9899 (define-public gnome-calculator
9900   (package
9901     (name "gnome-calculator")
9902     (version "3.34.1")
9903     (source
9904      (origin
9905        (method url-fetch)
9906        (uri (string-append "mirror://gnome/sources/" name "/"
9907                            (version-major+minor version) "/"
9908                            name "-" version ".tar.xz"))
9909        (sha256
9910         (base32
9911          "0lbh87255zzggqzai6543qg920y52bl4vs5m5h5087ghzg14hlsd"))))
9912     (build-system meson-build-system)
9913     (arguments '(#:glib-or-gtk? #t))
9914     (native-inputs
9915      `(("gettext" ,gettext-minimal)
9916        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9917        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9918        ("itstool" ,itstool)
9919        ("vala" ,vala)
9920        ("pkg-config" ,pkg-config)))
9921     (inputs
9922      `(("glib" ,glib)
9923        ("gtksourceview" ,gtksourceview)
9924        ("libgee" ,libgee)
9925        ("libsoup" ,libsoup)
9926        ("libxml2" ,libxml2)
9927        ("mpc" ,mpc)
9928        ("mpfr" ,mpfr)))
9929     (home-page "https://wiki.gnome.org/Apps/Calculator")
9930     (synopsis "Desktop calculator")
9931     (description
9932      "Calculator is an application that solves mathematical equations and
9933 is suitable as a default application in a Desktop environment.")
9934     (license license:gpl3)))
9935
9936 (define-public xpad
9937   (package
9938     (name "xpad")
9939     (version "5.1.0")
9940     (source
9941      (origin
9942        (method url-fetch)
9943        (uri (string-append "https://launchpad.net/xpad/trunk/"
9944                            version "/+download/"
9945                            name "-" version ".tar.bz2"))
9946        (sha256
9947         (base32
9948          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
9949     (build-system gnu-build-system)
9950     (native-inputs
9951      `(("autoconf" ,autoconf)
9952        ("automake" ,automake)
9953        ("gtk+:bin" ,gtk+ "bin")
9954        ("intltool" ,intltool)
9955        ("pkg-config" ,pkg-config)))
9956     (inputs
9957      `(("gtksourceview" ,gtksourceview-3)
9958        ("libsm" ,libsm)))
9959     (home-page "https://wiki.gnome.org/Apps/Xpad")
9960     (synopsis "Virtual sticky note")
9961     (description
9962      "Xpad is a sticky note that strives to be simple, fault tolerant,
9963 and customizable.  Xpad consists of independent pad windows, each is
9964 basically a text box in which notes can be written.")
9965     (license license:gpl3+)))
9966
9967 (define-public gucharmap
9968   (let ((unicode-files
9969          '(("Blocks.txt"
9970             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
9971            ("DerivedAge.txt"
9972             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
9973            ("NamesList.txt"
9974             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
9975            ("Scripts.txt"
9976             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
9977            ("UnicodeData.txt"
9978             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
9979            ("Unihan.zip"
9980             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
9981     (package
9982       (name "gucharmap")
9983       (version "12.0.1")
9984       (source
9985        (origin
9986          (method url-fetch)
9987          (uri (string-append "mirror://gnome/sources/" name "/"
9988                              (version-major+minor version) "/"
9989                              name "-" version ".tar.xz"))
9990          (sha256
9991           (base32
9992            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
9993       (build-system glib-or-gtk-build-system)
9994       (arguments
9995        `(#:modules ((ice-9 match)
9996                     (guix build glib-or-gtk-build-system)
9997                     (guix build utils))
9998          #:configure-flags
9999          (list "--with-unicode-data=../unicode-data")
10000          #:phases
10001          (modify-phases %standard-phases
10002            (add-after 'unpack 'prepare-unicode-data
10003              (lambda* (#:key inputs #:allow-other-keys)
10004                (mkdir-p "../unicode-data")
10005                (with-directory-excursion "../unicode-data"
10006                  (for-each (match-lambda
10007                              ((file _)
10008                               (install-file (assoc-ref inputs file) ".")))
10009                            ',unicode-files))
10010                #t)))))
10011       (native-inputs
10012        `(("desktop-file-utils" ,desktop-file-utils)
10013          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
10014          ("gobject-introspection" ,gobject-introspection)
10015          ("intltool" ,intltool)
10016          ("itstool" ,itstool)
10017          ("pkg-config" ,pkg-config)
10018          ,@(map (match-lambda
10019                   ((file hash)
10020                    `(,file
10021                      ,(origin
10022                         (method url-fetch)
10023                         (uri (string-append
10024                               "http://www.unicode.org/Public/12.0.0/ucd/"
10025                               file))
10026                         (sha256 (base32 hash))))))
10027                 unicode-files)
10028          ("unzip" ,unzip)))
10029       (inputs
10030        `(("gtk+" ,gtk+)
10031          ("xmllint" ,libxml2)))
10032       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
10033       (synopsis "Unicode character picker and font browser")
10034       (description
10035        "This program allows you to browse through all the available Unicode
10036 characters and categories for the installed fonts, and to examine their
10037 detailed properties.  It is an easy way to find the character you might
10038 only know by its Unicode name or code point.")
10039       (license license:gpl3+))))
10040
10041 (define-public bluefish
10042   (package
10043     (name "bluefish")
10044     (version "2.2.12")
10045     (source
10046      (origin
10047        (method url-fetch)
10048        (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
10049                            "bluefish-" version ".tar.gz"))
10050        (sha256
10051         (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
10052     (build-system gnu-build-system)
10053     (native-inputs
10054      `(("desktop-file-utils" ,desktop-file-utils)
10055        ("intltool" ,intltool)
10056        ("pkg-config" ,pkg-config)))
10057     (inputs
10058      `(("enchant" ,enchant)
10059        ("gtk+" ,gtk+)
10060        ("python" ,python-wrapper)
10061        ("xmllint" ,libxml2)
10062        ("gucharmap" ,gucharmap)))
10063     (home-page "http://bluefish.openoffice.nl")
10064     (synopsis "Web development studio")
10065     (description
10066      "Bluefish is an editor aimed at programmers and web developers,
10067 with many options to write web sites, scripts and other code.
10068 Bluefish supports many programming and markup languages.")
10069     (license license:gpl3+)))
10070
10071 (define-public gnome-system-monitor
10072   (package
10073     (name "gnome-system-monitor")
10074     (version "3.32.1")
10075     (source
10076      (origin
10077        (method url-fetch)
10078        (uri (string-append "mirror://gnome/sources/" name "/"
10079                            (version-major+minor version) "/"
10080                            name "-" version ".tar.xz"))
10081        (sha256
10082         (base32
10083          "1wd43qdgjav6xamq5z5cy8fri5zr01jga3plc9w95gcia0rk3ha8"))))
10084     (build-system meson-build-system)
10085     (arguments
10086      '(#:glib-or-gtk? #t
10087        #:configure-flags '("-Dsystemd=false")))
10088     (native-inputs
10089      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
10090        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
10091        ("intltool" ,intltool)
10092        ("itstool" ,itstool)
10093        ("libgtop" ,libgtop)
10094        ("polkit" ,polkit)
10095        ("pkg-config" ,pkg-config)))
10096     (inputs
10097      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
10098        ("gtk+" ,gtk+)
10099        ("gtkmm" ,gtkmm)
10100        ("librsvg" ,librsvg)
10101        ("libxml2" ,libxml2)
10102        ("libwnck" ,libwnck)))
10103     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
10104     (synopsis "Process viewer and system resource monitor for GNOME")
10105     (description
10106      "GNOME System Monitor is a GNOME process viewer and system monitor with
10107 an attractive, easy-to-use interface.  It has features, such as a tree view
10108 for process dependencies, icons for processes, the ability to hide processes,
10109 graphical time histories of CPU/memory/swap usage and the ability to
10110 kill/reinice processes.")
10111     (license license:gpl2+)))
10112
10113 (define-public python-pyatspi
10114   (package
10115     (name "python-pyatspi")
10116     (version "2.34.0")
10117     (source (origin
10118               (method url-fetch)
10119               (uri (string-append
10120                     "mirror://gnome/sources/pyatspi/"
10121                     (version-major+minor version)
10122                     "/pyatspi-" version ".tar.xz"))
10123               (sha256
10124                (base32
10125                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
10126     (build-system gnu-build-system)
10127     (arguments
10128      `(#:phases
10129        (modify-phases %standard-phases
10130          (add-before 'build 'fix-atk-load
10131            (lambda _
10132              (substitute* "pyatspi/__init__.py"
10133                (("from gi.repository import Atspi")
10134                 "gi.require_version('Gtk', '3.0')
10135 from gi.repository import Gtk
10136 from gi.repository import Atspi"))
10137              #t)))))
10138     (native-inputs
10139      `(("pkg-config" ,pkg-config)))
10140     (inputs
10141      `(("python" ,python)))
10142     (propagated-inputs
10143      `(("python-pygobject" ,python-pygobject)))
10144     (synopsis "Python client bindings for D-Bus AT-SPI")
10145     (home-page "https://wiki.linuxfoundation.org/accessibility\
10146 /atk/at-spi/at-spi_on_d-bus")
10147     (description
10148      "This package includes a python client library for the AT-SPI D-Bus
10149 accessibility infrastructure.")
10150     (license license:lgpl2.0)
10151     (properties '((upstream-name . "pyatspi")))))
10152
10153 (define-public python2-pyatspi
10154   (package/inherit python-pyatspi
10155     (name "python2-pyatspi")
10156     (inputs
10157      `(("python" ,python-2)))
10158     (propagated-inputs
10159      `(("python-pygobject" ,python2-pygobject)))))
10160
10161 (define-public orca
10162   (package
10163     (name "orca")
10164     (version "3.34.1")
10165     (source (origin
10166               (method url-fetch)
10167               (uri (string-append
10168                     "mirror://gnome/sources/" name "/"
10169                     (version-major+minor version) "/"
10170                     name "-" version ".tar.xz"))
10171               (sha256
10172                (base32
10173                 "1q38n7hyshkiszmn361skxjynxr31lcms7a1iny6d0zlpmh1vnk4"))))
10174     (build-system glib-or-gtk-build-system)
10175     (arguments
10176      '(#:phases
10177        (modify-phases %standard-phases
10178          (add-before 'configure 'qualify-xkbcomp
10179            (lambda* (#:key inputs #:allow-other-keys)
10180              (let ((xkbcomp (string-append
10181                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10182                (substitute* "src/orca/orca.py"
10183                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
10184              #t))
10185          (add-after 'install 'wrap-orca
10186            (lambda* (#:key outputs #:allow-other-keys)
10187              (let* ((out  (assoc-ref outputs "out"))
10188                     (prog (string-append out "/bin/orca")))
10189                (wrap-program prog
10190                  `("GI_TYPELIB_PATH" ":" prefix
10191                    (,(getenv "GI_TYPELIB_PATH")))
10192                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10193                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10194                  `("PYTHONPATH" ":" prefix
10195                    (,(getenv "PYTHONPATH")))))
10196              #t)))))
10197     (native-inputs
10198      `(("intltool" ,intltool)
10199        ("itstool" ,itstool)
10200        ("pkg-config" ,pkg-config)
10201        ("xmllint" ,libxml2)))
10202     (inputs
10203      `(("at-spi2-atk" ,at-spi2-atk)
10204        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10205        ("gstreamer" ,gstreamer)
10206        ("gst-plugins-base" ,gst-plugins-base)
10207        ("gst-plugins-good" ,gst-plugins-good)
10208        ("gtk+" ,gtk+)
10209        ("python" ,python)
10210        ("python-pygobject" ,python-pygobject)
10211        ("python-pyatspi" ,python-pyatspi)
10212        ("python-speechd" ,speech-dispatcher)
10213        ("xkbcomp" ,xkbcomp)))
10214     (synopsis
10215      "Screen reader for individuals who are blind or visually impaired")
10216     (home-page "https://wiki.gnome.org/Projects/Orca")
10217     (description
10218      "Orca is a screen reader that provides access to the graphical desktop
10219 via speech and refreshable braille.  Orca works with applications and toolkits
10220 that support the Assistive Technology Service Provider Interface (AT-SPI).")
10221     (license license:lgpl2.1+)))
10222
10223 (define-public gspell
10224   (package
10225     (name "gspell")
10226     (version "1.8.2")
10227     (source (origin
10228               (method url-fetch)
10229               (uri (string-append "mirror://gnome/sources/" name "/"
10230                                   (version-major+minor version) "/"
10231                                   name "-" version ".tar.xz"))
10232               (sha256
10233                (base32
10234                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
10235               (patches (search-patches "gspell-dash-test.patch"))))
10236     (build-system glib-or-gtk-build-system)
10237     (arguments
10238      '(#:configure-flags (list "--enable-vala")
10239        #:phases
10240        (modify-phases %standard-phases
10241          (add-before 'check 'pre-check
10242            (lambda* (#:key inputs #:allow-other-keys)
10243              ;; Tests require a running X server.
10244              (system "Xvfb :1 &")
10245              (setenv "DISPLAY" ":1")
10246
10247              ;; For the missing /etc/machine-id.
10248              (setenv "DBUS_FATAL_WARNINGS" "0")
10249
10250              ;; Allow Enchant and its Aspell backend to find the en_US
10251              ;; dictionary.
10252              (setenv "ASPELL_DICT_DIR"
10253                      (string-append (assoc-ref inputs "aspell-dict-en")
10254                                     "/lib/aspell"))
10255              #t)))))
10256     (inputs
10257      `(("gtk+" ,gtk+)
10258        ("glib" ,glib)
10259        ("iso-codes" ,iso-codes)))
10260     (native-inputs
10261      `(("glib" ,glib "bin")
10262        ("gobject-introspection" ,gobject-introspection)
10263        ("pkg-config" ,pkg-config)
10264        ("vala" ,vala)                             ;for VAPI, needed by Geary
10265        ("xmllint" ,libxml2)
10266
10267        ;; For tests.
10268        ("aspell-dict-en" ,aspell-dict-en)
10269        ("xorg-server" ,xorg-server-for-tests)))
10270     (propagated-inputs
10271      `(("enchant" ,enchant)))            ;enchant.pc is required by gspell-1.pc
10272     (home-page "https://wiki.gnome.org/Projects/gspell")
10273     (synopsis "GNOME's alternative spell checker")
10274     (description
10275      "gspell provides a flexible API to add spell-checking to a GTK+
10276 application.  It provides a GObject API, spell-checking to text entries and
10277 text views, and buttons to choose the language.")
10278     (license license:gpl2+)))
10279
10280 (define-public gnome-planner
10281   (package
10282     (name "gnome-planner")
10283     (version "0.14.6")
10284     (source (origin
10285               (method url-fetch)
10286               (uri (string-append "mirror://gnome/sources/planner/"
10287                                   (version-major+minor version) "/planner-"
10288                                   version ".tar.xz"))
10289               (sha256
10290                (base32
10291                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10292     (build-system glib-or-gtk-build-system)
10293     (arguments
10294      ;; Disable the Python bindings because the Planner program functions
10295      ;; without them, and (as of 2017-06-13) we have not packaged all of
10296      ;; packages that are necessary for building the Python bindings.
10297      `(#:configure-flags
10298        (list "--disable-python"
10299              ,@(if (string=? "aarch64-linux" (%current-system))
10300                    '("--build=aarch64-unknown-linux-gnu")
10301                    '()))))
10302     (inputs
10303      `(("libgnomecanvas" ,libgnomecanvas)
10304        ("libgnomeui" ,libgnomeui)
10305        ("libglade" ,libglade)
10306        ("gnome-vfs" ,gnome-vfs)
10307        ("gconf" ,gconf)
10308        ("libxml2" ,libxml2)
10309        ("libxslt" ,libxslt)
10310        ("gtk+" ,gtk+)
10311        ("glib" ,glib)))
10312     (native-inputs
10313      `(("intltool" ,intltool)
10314        ("scrollkeeper" ,scrollkeeper)
10315        ("pkg-config" ,pkg-config)))
10316     (home-page "https://wiki.gnome.org/Apps/Planner")
10317     (synopsis "Project management software for the GNOME desktop")
10318     (description
10319      "GNOME Planner is a project management tool based on the Work Breakdown
10320 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
10321 the resources, tasks, and constraints that you define, Planner generates
10322 various views into a project.  For example, Planner can show a Gantt chart of
10323 the project.  It can show a detailed summary of tasks including their
10324 duration, cost, and current progress.  It can also show a report of resource
10325 utilization that highlights under-utilized and over-utilized resources.  These
10326 views can be printed as PDF or PostScript files, or exported to HTML.")
10327     (license license:gpl2+)))
10328
10329 (define-public lollypop
10330   (package
10331     (name "lollypop")
10332     (version "1.4.6")
10333     (source
10334      (origin
10335        (method url-fetch)
10336        (uri (string-append "https://adishatz.org/lollypop/"
10337                            "lollypop-" version ".tar.xz"))
10338        (sha256
10339         (base32 "1hlahr50gsagx1ifcdk4yn43xps6w0vqn0gnd6xckfc7qmg1pgq7"))))
10340     (build-system meson-build-system)
10341     (arguments
10342      `(#:imported-modules
10343        (,@%meson-build-system-modules
10344         (guix build python-build-system))
10345        #:modules
10346        ((guix build meson-build-system)
10347         ((guix build python-build-system) #:prefix python:)
10348         (guix build utils))
10349        #:glib-or-gtk? #t
10350        #:tests? #f                      ; no test suite
10351        #:phases
10352        (modify-phases %standard-phases
10353          (add-after 'install 'wrap-program
10354            (lambda* (#:key outputs #:allow-other-keys)
10355              (let ((out               (assoc-ref outputs "out"))
10356                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10357                (wrap-program (string-append out "/bin/lollypop")
10358                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10359              #t))
10360          (add-after 'install 'wrap-python
10361            (assoc-ref python:%standard-phases 'wrap)))))
10362     (native-inputs
10363      `(("intltool" ,intltool)
10364        ("itstool" ,itstool)
10365        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
10366        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
10367        ("pkg-config" ,pkg-config)))
10368     (inputs
10369      `(("glib-networking" ,glib-networking)
10370        ("gobject-introspection" ,gobject-introspection)
10371        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10372        ("gst-plugins-base" ,gst-plugins-base)
10373        ("libnotify" ,libnotify)
10374        ("libsecret" ,libsecret)
10375        ("libhandy" ,libhandy)
10376        ("libsoup" ,libsoup)
10377        ("python" ,python)
10378        ("python-beautifulsoup4" ,python-beautifulsoup4)
10379        ("python-gst" ,python-gst)
10380        ("python-pil" ,python-pillow)
10381        ("python-pycairo" ,python-pycairo)
10382        ("python-pygobject" ,python-pygobject)
10383        ("python-pylast" ,python-pylast)
10384        ("totem-pl-parser" ,totem-pl-parser)
10385        ("webkitgtk" ,webkitgtk)))
10386     (propagated-inputs
10387      `(;; gst-plugins-base is required to start Lollypop,
10388        ;; the others are required to play streaming.
10389        ("gst-plugins-good" ,gst-plugins-good)
10390        ("gst-plugins-ugly" ,gst-plugins-ugly)))
10391     (home-page "https://wiki.gnome.org/Apps/Lollypop")
10392     (synopsis "GNOME music playing application")
10393     (description
10394      "Lollypop is a music player designed to play well with GNOME desktop.
10395 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10396 from artists and tracks from the web.  It also fetches cover artworks
10397 automatically and it can stream songs from online music services and charts.")
10398     (license license:gpl3+)))
10399
10400 (define-public gnome-video-effects
10401   (package
10402     (name "gnome-video-effects")
10403     (version "0.5.0")
10404     (source (origin
10405               (method url-fetch)
10406               (uri (string-append "mirror://gnome/sources/" name "/"
10407                                   (version-major+minor version) "/" name "-"
10408                                   version ".tar.xz"))
10409               (sha256
10410                (base32
10411                 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10412     (build-system meson-build-system)
10413     (native-inputs
10414      `(("gettext" ,gettext-minimal)
10415        ("pkg-config" ,pkg-config)))
10416     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10417     (synopsis "Video effects for Cheese and other GNOME applications")
10418     (description
10419      "A collection of GStreamer video filters and effects to be used in
10420 photo-booth-like software, such as Cheese.")
10421     (license license:gpl2+)))
10422
10423 (define-public cheese
10424   (package
10425     (name "cheese")
10426     (version "3.38.0")
10427     (source (origin
10428               (method url-fetch)
10429               (uri (string-append "mirror://gnome/sources/" name "/"
10430                                   (version-major+minor version) "/" name "-"
10431                                   version ".tar.xz"))
10432               (sha256
10433                (base32
10434                 "0vyim2avlgq3a48rgdfz5g21kqk11mfb53b2l883340v88mp7ll8"))))
10435     (arguments
10436      `(#:glib-or-gtk? #t
10437        ;; Tests require GDK.
10438        #:tests? #f
10439        #:phases
10440        (modify-phases %standard-phases
10441          (add-after 'unpack 'skip-gtk-update-icon-cache
10442            (lambda _
10443              ;; Don't create 'icon-theme.cache'
10444              (substitute* "meson_post_install.py"
10445                (("gtk-update-icon-cache") (which "true")))
10446              #t))
10447          (add-after 'unpack 'patch-docbook-xml
10448            (lambda* (#:key inputs #:allow-other-keys)
10449              ;; Avoid a network connection attempt during the build.
10450              (substitute* '("docs/reference/cheese.xml"
10451                             "docs/reference/cheese-docs.xml")
10452                (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
10453                 (string-append (assoc-ref inputs "docbook-xml")
10454                                "/xml/dtd/docbook/docbookx.dtd")))
10455              #t))
10456          (add-after 'install 'wrap-cheese
10457            (lambda* (#:key inputs outputs #:allow-other-keys)
10458              (let ((out             (assoc-ref outputs "out"))
10459                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10460                (wrap-program (string-append out "/bin/cheese")
10461                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10462              #t)))))
10463     (build-system meson-build-system)
10464     (native-inputs
10465      `(("docbook-xsl" ,docbook-xsl)
10466        ("docbook-xml" ,docbook-xml-4.3)
10467        ("gettext" ,gettext-minimal)
10468        ("glib:bin" ,glib "bin")
10469        ("gtk-doc" ,gtk-doc/stable)
10470        ("itstool" ,itstool)
10471        ("libxml2" ,libxml2)
10472        ("libxslt" ,libxslt)
10473        ("pkg-config" ,pkg-config)
10474        ("vala" ,vala)))
10475     (propagated-inputs
10476      `(("gnome-video-effects" ,gnome-video-effects)
10477        ("clutter" ,clutter)
10478        ("clutter-gst" ,clutter-gst)
10479        ("clutter-gtk" ,clutter-gtk)
10480        ("libcanberra" ,libcanberra)
10481        ("gdk-pixbuf" ,gdk-pixbuf)
10482        ("glib" ,glib)
10483        ("gstreamer" ,gstreamer)))
10484     (inputs
10485      `(("gnome-desktop" ,gnome-desktop)
10486        ("gobject-introspection" ,gobject-introspection)
10487        ("gst-plugins-base" ,gst-plugins-base)
10488        ("gst-plugins-good" ,gst-plugins-good)
10489        ("gst-plugins-bad" ,gst-plugins-bad)
10490        ("gtk+" ,gtk+)
10491        ("libx11" ,libx11)
10492        ("libxtst" ,libxtst)))
10493     (home-page "https://wiki.gnome.org/Apps/Cheese")
10494     (synopsis "Webcam photo booth software for GNOME")
10495     (description
10496      "Cheese uses your webcam to take photos and videos.  Cheese can also
10497 apply fancy special effects and lets you share the fun with others.")
10498     (license license:gpl2+)))
10499
10500 (define-public passwordsafe
10501   (package
10502     (name "passwordsafe")
10503     (version "3.99.2")
10504     (source
10505      (origin
10506        (method git-fetch)
10507        (uri (git-reference
10508              (url "https://gitlab.gnome.org/World/PasswordSafe")
10509              (commit version)))
10510        (file-name (git-file-name name version))
10511        (sha256
10512         (base32 "0pi2l4gwf8paxm858mxrcsk5nr0c0zw5ycax40mghndb6b1qmmhf"))))
10513     (build-system meson-build-system)
10514     (arguments
10515      `(#:glib-or-gtk? #t
10516        #:phases
10517        (modify-phases %standard-phases
10518          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
10519            (lambda* (#:key outputs #:allow-other-keys)
10520              (let ((prog (string-append (assoc-ref outputs "out")
10521                                         "/bin/gnome-passwordsafe"))
10522                    (pylib (string-append (assoc-ref outputs "out")
10523                                          "/lib/python"
10524                                          ,(version-major+minor
10525                                            (package-version python))
10526                                          "/site-packages")))
10527                (wrap-program prog
10528                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
10529                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10530                #t))))))
10531     (native-inputs
10532      `(("desktop-file-utils" ,desktop-file-utils)
10533        ("gettext" ,gettext-minimal)
10534        ("glib:bin" ,glib "bin")
10535        ("gobject-introspection" ,gobject-introspection)
10536        ("gtk+:bin" ,gtk+ "bin")
10537        ("pkg-config" ,pkg-config)))
10538     (inputs
10539      `(("glib" ,glib)
10540        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10541        ("gtk+" ,gtk+)
10542        ("libhandy" ,libhandy-0.0)
10543        ("libpwquality" ,libpwquality)
10544        ("python-pygobject" ,python-pygobject)
10545        ("python-pykeepass" ,python-pykeepass)))
10546     (home-page "https://gitlab.gnome.org/World/PasswordSafe")
10547     (synopsis "Password manager for the GNOME desktop")
10548     (description
10549      "Password Safe is a password manager which makes use of the KeePass v4
10550 format.  It integrates perfectly with the GNOME desktop and provides an easy
10551 and uncluttered interface for the management of password databases.")
10552     (license license:gpl3+)))
10553
10554 (define-public sound-juicer
10555   (package
10556     (name "sound-juicer")
10557     (version "3.24.0")
10558     (source
10559      (origin
10560        (method url-fetch)
10561        (uri (string-append "mirror://gnome/sources/" name "/"
10562                            (version-major+minor version) "/"
10563                            name "-" version ".tar.xz"))
10564        (sha256
10565         (base32
10566          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
10567     (build-system glib-or-gtk-build-system)
10568     (native-inputs
10569      `(("desktop-file-utils" ,desktop-file-utils)
10570        ("intltool" ,intltool)
10571        ("itstool" ,itstool)
10572        ("pkg-config" ,pkg-config)
10573        ("xmllint" ,libxml2)))
10574     (inputs
10575      `(("gtk+" ,gtk+)
10576        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10577        ("gstreamer" ,gstreamer)
10578        ("gst-plugins-base" ,gst-plugins-base)
10579        ("gst-plugins-good" ,gst-plugins-good)
10580        ("iso-codes" ,iso-codes)
10581        ("libbrasero-media3" ,brasero)
10582        ("libcanberra" ,libcanberra)
10583        ("libdiscid" ,libdiscid)
10584        ("libmusicbrainz" ,libmusicbrainz)
10585        ("neon" ,neon)))
10586     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
10587     (synopsis "Audio music cd ripper")
10588     (description "Sound Juicer extracts audio from compact discs and convert it
10589 into audio files that a personal computer or digital audio player can play.
10590 It supports ripping to any audio codec supported by a GStreamer plugin, such as
10591 mp3, Ogg Vorbis and FLAC")
10592     (license license:gpl2+)))
10593
10594 (define-public soundconverter
10595   (package
10596     (name "soundconverter")
10597     (version "3.0.2")
10598     (source
10599      (origin
10600        (method url-fetch)
10601        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
10602                            version "/+download/"
10603                            "soundconverter-" version ".tar.xz"))
10604
10605        (sha256
10606         (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
10607     (build-system glib-or-gtk-build-system)
10608     (arguments
10609      `(#:imported-modules ((guix build python-build-system)
10610                            (guix build glib-or-gtk-build-system)
10611                            ,@%gnu-build-system-modules)
10612
10613        #:modules ((guix build glib-or-gtk-build-system)
10614                   (guix build utils)
10615                   ((guix build gnu-build-system) #:prefix gnu:)
10616                   ((guix build python-build-system) #:prefix python:))
10617
10618        #:phases
10619        (modify-phases %standard-phases
10620          (add-after 'install 'wrap-soundconverter-for-python
10621            (assoc-ref python:%standard-phases 'wrap))
10622          (add-after 'install 'wrap-soundconverter
10623            (lambda* (#:key inputs outputs #:allow-other-keys)
10624              (let ((out               (assoc-ref outputs "out"))
10625                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
10626                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
10627                (wrap-program (string-append out "/bin/soundconverter")
10628                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
10629                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10630              #t)))))
10631     (native-inputs
10632      `(("intltool" ,intltool)
10633        ("pkg-config" ,pkg-config)
10634        ("glib:bin" ,glib "bin")))
10635     (inputs
10636      `(("gtk+" ,gtk+)
10637        ("python" ,python)
10638        ("python-pygobject" ,python-pygobject)
10639        ("gstreamer" ,gstreamer)
10640        ("gst-plugins-base" ,gst-plugins-base)))
10641     (home-page "https://soundconverter.org/")
10642     (synopsis "Convert between audio formats with a graphical interface")
10643     (description
10644      "SoundConverter supports converting between many audio formats including
10645 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
10646 configurable file renaming. ")
10647     (license license:gpl3)))
10648
10649 (define-public workrave
10650   (package
10651     (name "workrave")
10652     (version "1.10.42")
10653     (source
10654      (origin
10655        (method git-fetch)
10656        (uri (git-reference
10657              (url "https://github.com/rcaelers/workrave")
10658              (commit (string-append "v" (string-map
10659                                          (match-lambda (#\. #\_) (chr chr))
10660                                          version)))))
10661        (file-name (git-file-name name version))
10662        (sha256
10663         (base32 "03i9kk8r1wgrfkkbwikx8wxaw4r4kn62vismr2zdq5g34fkkjh95"))))
10664     (build-system glib-or-gtk-build-system)
10665     (arguments
10666      ;; The only tests are maintainer tests (in po/), which fail.
10667      `(#:tests? #f))
10668     (inputs `(("glib" ,glib)
10669               ("gtk+" ,gtk+)
10670               ("gdk-pixbuf" ,gdk-pixbuf)
10671               ("gtkmm" ,gtkmm)
10672               ("glibmm" ,glibmm)
10673               ("libx11" ,libx11)
10674               ("libxtst" ,libxtst)
10675               ("dconf" ,dconf)
10676               ("libice" ,libice)
10677               ("libsm" ,libsm)
10678               ("libxscrnsaver" ,libxscrnsaver)))
10679     (native-inputs `(("boost" ,boost)
10680                      ("pkg-config" ,pkg-config)
10681                      ("gettext" ,gettext-minimal)
10682                      ("autoconf" ,autoconf)
10683                      ("autoconf-archive" , autoconf-archive)
10684                      ("automake" ,automake)
10685                      ("libtool" ,libtool)
10686                      ("intltool" ,intltool)
10687                      ("gobject-introspection" ,gobject-introspection)
10688                      ("python3" ,python-3)
10689                      ("python-jinja2" ,python-jinja2)))
10690     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
10691     (description
10692      "Workrave is a program that assists in the recovery and prevention of
10693 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
10694 micro-pauses and rest breaks, and restricts you to your daily limit.")
10695     (home-page "http://www.workrave.org")
10696     (license license:gpl3+)))
10697
10698 (define-public ghex
10699   (package
10700     (name "ghex")
10701     (version "3.18.4")
10702     (source (origin
10703               (method url-fetch)
10704               (uri (string-append "mirror://gnome/sources/ghex/"
10705                                   (version-major+minor version) "/"
10706                                   "ghex-" version ".tar.xz"))
10707               (sha256
10708                (base32
10709                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
10710     (build-system meson-build-system)
10711     (arguments
10712      '(#:glib-or-gtk? #t
10713        #:phases
10714        (modify-phases %standard-phases
10715          (add-after 'unpack 'skip-gtk-update-icon-cache
10716            ;; Don't create 'icon-theme.cache'.
10717            (lambda _
10718              (substitute* "meson_post_install.py"
10719                (("gtk-update-icon-cache") (which "true")))
10720              #t)))))
10721     (native-inputs
10722      `(("pkg-config" ,pkg-config)
10723        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
10724        ("gnome-common" ,gnome-common)
10725        ("which" ,which)
10726        ("intltool" ,intltool)
10727        ("yelp-tools" ,yelp-tools)
10728        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
10729     (inputs
10730      `(("atk" ,atk)
10731        ("gtk" ,gtk+)))
10732     (synopsis "GNOME hexadecimal editor")
10733     (description "The GHex program can view and edit files in two ways:
10734 hexadecimal or ASCII.  It is useful for editing binary files in general.")
10735     (home-page "https://wiki.gnome.org/Apps/Ghex")
10736     (license license:gpl2)))
10737
10738 (define-public libdazzle
10739   (package
10740     (name "libdazzle")
10741     (version "3.37.1")
10742     (source (origin
10743               (method url-fetch)
10744               (uri (string-append "mirror://gnome/sources/libdazzle/"
10745                                   (version-major+minor version) "/"
10746                                   "libdazzle-" version ".tar.xz"))
10747               (sha256
10748                (base32
10749                 "03r5cr11dc031qa3694bpgm3lajrhiiln67kvl7vjj4q0scf7w7x"))))
10750     (build-system meson-build-system)
10751     (arguments
10752      `(#:phases
10753        (modify-phases %standard-phases
10754          (add-before 'check 'pre-check
10755            (lambda _
10756              ;; Tests require a running X server.
10757              (system "Xvfb :1 &")
10758              (setenv "DISPLAY" ":1")
10759              #t)))))
10760     (native-inputs
10761      `(("glib" ,glib "bin")             ; glib-compile-resources
10762        ("pkg-config" ,pkg-config)
10763        ;; For tests.
10764        ("xorg-server" ,xorg-server-for-tests)))
10765     (inputs
10766      `(("glib" ,glib)
10767        ("gobject-introspection" ,gobject-introspection)
10768        ("gtk+" ,gtk+)
10769        ("vala" ,vala)))
10770     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
10771     (synopsis "Companion library to GObject and Gtk+")
10772     (description "The libdazzle library is a companion library to GObject and
10773 Gtk+.  It provides various features that the authors wish were in the
10774 underlying library but cannot for various reasons.  In most cases, they are
10775 wildly out of scope for those libraries.  In other cases, they are not quite
10776 generic enough to work for everyone.")
10777     (license license:gpl3+)))
10778
10779 (define-public evolution
10780   (package
10781     (name "evolution")
10782     (version "3.34.2")
10783     (source (origin
10784               (method url-fetch)
10785               (uri (string-append "mirror://gnome/sources/evolution/"
10786                                   (version-major+minor version) "/"
10787                                   "evolution-" version ".tar.xz"))
10788               (sha256
10789                (base32
10790                 "164vy8h432pjglafn8y2ms4gsvk3kbgc63h5qp0mk5dv4smsp29c"))
10791               (patches (search-patches "evolution-CVE-2020-11879.patch"))))
10792     (build-system cmake-build-system)
10793     (arguments
10794      `(#:imported-modules (,@%cmake-build-system-modules
10795                            (guix build glib-or-gtk-build-system))
10796        #:modules ((guix build cmake-build-system)
10797                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10798                   (guix build utils))
10799        #:configure-flags
10800        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
10801              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
10802                                           ; in four years and cannot be built.
10803        #:phases
10804        (modify-phases %standard-phases
10805          ;; The build system attempts to install user interface modules to the
10806          ;; output directory of the "evolution-data-server" package.  This
10807          ;; change redirects that change.
10808          (add-after 'unpack 'patch-ui-module-dir
10809            (lambda* (#:key outputs #:allow-other-keys)
10810              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
10811                (("\\$\\{edsuimoduledir\\}")
10812                 (string-append (assoc-ref outputs "out")
10813                                "/lib/evolution-data-server/ui-modules")))
10814              #t))
10815          (add-after 'install 'glib-or-gtk-compile-schemas
10816            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
10817          (add-after 'install 'glib-or-gtk-wrap
10818            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
10819     (native-inputs
10820      `(("glib" ,glib "bin")             ; glib-mkenums
10821        ("pkg-config" ,pkg-config)
10822        ("intltool" ,intltool)
10823        ("itstool" ,itstool)))
10824     (inputs
10825      `(("enchant" ,enchant)
10826        ("evolution-data-server" ,evolution-data-server) ; must be the same version
10827        ("gcr" ,gcr)
10828        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10829        ("gnome-autoar" ,gnome-autoar)
10830        ("gnome-desktop" ,gnome-desktop)
10831        ("gspell" ,gspell)
10832        ("highlight" ,highlight)
10833        ("libcanberra" ,libcanberra)
10834        ("libgweather" ,libgweather)
10835        ("libnotify" ,libnotify)
10836        ("libsoup" ,libsoup)
10837        ("nss" ,nss)
10838        ("openldap" ,openldap)
10839        ("webkitgtk" ,webkitgtk)
10840        ("ytnef" ,ytnef)))
10841     (home-page "https://gitlab.gnome.org/GNOME/evolution")
10842     (synopsis "Manage your email, contacts and schedule")
10843     (description "Evolution is a personal information management application
10844 that provides integrated mail, calendaring and address book
10845 functionality.")
10846     ;; See COPYING for details.
10847     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
10848                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
10849                    license:lgpl2.1+))))  ; smime/lib/*
10850
10851 (define-public gthumb
10852   (package
10853     (name "gthumb")
10854     (version "3.10.2")
10855     (source (origin
10856               (method url-fetch)
10857               (uri (string-append "mirror://gnome/sources/gthumb/"
10858                                   (version-major+minor version) "/"
10859                                   "gthumb-" version ".tar.xz"))
10860               (sha256
10861                (base32
10862                 "14sw8d37g1lkp44dwsgyxjjsgh5pnpp4wq00mcy9p3rp30lf9spx"))))
10863     (build-system meson-build-system)
10864     (arguments
10865      `(#:glib-or-gtk? #t
10866        #:configure-flags
10867        ;; Ensure the RUNPATH contains all installed library locations.
10868        (list (string-append "-Dc_link_args=-Wl,-rpath="
10869                             (assoc-ref %outputs "out")
10870                             "/lib/gthumb/extensions")
10871              (string-append "-Dcpp_link_args=-Wl,-rpath="
10872                             (assoc-ref %outputs "out")
10873                             "/lib/gthumb/extensions"))))
10874     (native-inputs
10875      `(("pkg-config" ,pkg-config)
10876        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
10877        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
10878        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
10879        ("intltool" ,intltool)
10880        ("itstool" ,itstool)))
10881     (inputs
10882      `(("exiv2" ,exiv2)
10883        ("gtk" ,gtk+)
10884        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10885        ("gstreamer" ,gstreamer)
10886        ("clutter" ,clutter)
10887        ("clutter-gst" ,clutter-gst)
10888        ("clutter-gtk" ,clutter-gtk)
10889        ("libjpeg" ,libjpeg-turbo)
10890        ("libtiff" ,libtiff)
10891        ("libraw" ,libraw)))
10892     (home-page "https://wiki.gnome.org/Apps/Gthumb")
10893     (synopsis "GNOME image viewer and browser")
10894     (description "GThumb is an image viewer, browser, organizer, editor and
10895 advanced image management tool")
10896     (license license:gpl2+)))
10897
10898 (define-public terminator
10899   (package
10900     (name "terminator")
10901     (version "2.1.0")
10902     (source
10903      (origin
10904        (method url-fetch)
10905        (uri (string-append "https://github.com/gnome-terminator/terminator/"
10906                            "releases/download/v" version "/"
10907                            name "-" version ".tar.gz"))
10908        (sha256
10909         (base32
10910          "1vap4li2i24l1iz2q4b8wvhj8flamarf18xcmzq5ik2vzcrisbjy"))))
10911     (build-system python-build-system)
10912     (native-inputs
10913      `(("gettext" ,gettext-minimal)
10914        ("glib:bin" ,glib "bin")         ; for glib-compile-resources
10915        ("gobject-introspection" ,gobject-introspection)
10916        ("intltool" ,intltool)
10917        ("pkg-config" ,pkg-config)
10918        ("python-psutil" ,python-psutil)
10919        ("python-pytest-runner" ,python-pytest-runner)
10920        ("python-pytest" ,python-pytest)))
10921     (inputs
10922      `(("cairo" ,cairo)
10923        ("dbus-glib" ,dbus-glib)
10924        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10925        ("gtk+" ,gtk+)
10926        ("python" ,python-wrapper)
10927        ("python-dbus" ,python-dbus)
10928        ("python-notify2" ,python-notify2)
10929        ("python-pycairo" ,python-pycairo)
10930        ("python-pygobject" ,python-pygobject)
10931        ("vte" ,vte)))
10932     (propagated-inputs
10933      `(("python-configobj" ,python-configobj)))
10934     (arguments
10935      ;; One test out of 28 fails due to dbus-python and python-notify; skip
10936      ;; tests.
10937      `(#:tests? #f
10938        #:imported-modules ((guix build glib-or-gtk-build-system)
10939                            ,@%python-build-system-modules)
10940        #:modules ((guix build python-build-system)
10941                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10942                   (guix build utils))
10943        #:phases
10944        (modify-phases %standard-phases
10945          (add-after 'unpack 'handle-dbus-python
10946            (lambda _
10947              ;; python-dbus cannot be found but it's really there.  See
10948              ;; https://github.com/SpotlightKid/jack-select/issues/2
10949              (substitute* "setup.py"
10950                (("'dbus-python',") ""))
10951              #t))
10952          (add-after 'install 'wrap-program
10953            (lambda* (#:key outputs #:allow-other-keys)
10954              (let ((prog (string-append (assoc-ref outputs "out")
10955                                         "/bin/terminator"))
10956                    (pylib (string-append (assoc-ref outputs "out")
10957                                          "/lib/python"
10958                                          ,(version-major+minor
10959                                            (package-version python))
10960                                          "/site-packages")))
10961                (wrap-program prog
10962                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
10963                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10964                #t)))
10965          (add-after 'wrap-program 'glib-or-gtk-wrap
10966            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
10967     (home-page "https://gnome-terminator.org/")
10968     (synopsis "Store and run multiple GNOME terminals in one window")
10969     (description
10970      "Terminator allows you to run multiple GNOME terminals in a grid and
10971 tabs, and it supports drag and drop re-ordering of terminals.")
10972     (license license:gpl2)))
10973
10974 (define-public libhandy
10975   (package
10976     (name "libhandy")
10977     (version "1.2.0")
10978     (source
10979      (origin
10980        (method git-fetch)
10981        (uri (git-reference
10982              (url "https://gitlab.gnome.org/GNOME/libhandy")
10983              (commit version)))
10984        (file-name (git-file-name name version))
10985        (sha256
10986         (base32 "1a8wfgm2jd3gcbk1nzhq6f2xq7vkxdc9qky8p9k0za9gqi7xfg4v"))))
10987     (build-system meson-build-system)
10988     (arguments
10989      `(#:configure-flags
10990        '("-Dglade_catalog=enabled"
10991          "-Dgtk_doc=true")
10992        #:phases
10993        (modify-phases %standard-phases
10994          (add-before 'check 'pre-check
10995            (lambda _
10996              ;; Tests require a running X server.
10997              (system "Xvfb :1 &")
10998              (setenv "DISPLAY" ":1")
10999              #t)))))
11000     (inputs
11001      `(("gtk+" ,gtk+)
11002        ("glade" ,glade3)
11003        ("libxml2" ,libxml2)))
11004     (native-inputs
11005      `(("glib:bin" ,glib "bin")
11006        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
11007        ("vala" ,vala)
11008        ("gtk-doc" ,gtk-doc/stable)
11009        ("pkg-config" ,pkg-config)
11010        ("gettext" ,gettext-minimal)
11011
11012        ;; Test suite dependencies.
11013        ("xorg-server" ,xorg-server-for-tests)
11014        ("hicolor-icon-theme" ,hicolor-icon-theme)))
11015     (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
11016     (synopsis "Library full of GTK+ widgets for mobile phones")
11017     (description "The aim of the handy library is to help with developing user
11018 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
11019 for usage on small and big screens.")
11020     (license license:lgpl2.1+)))
11021
11022 (define-public libhandy-0.0
11023   (package
11024     (inherit libhandy)
11025     (version "0.0.13")
11026     (source
11027      (origin
11028        (method git-fetch)
11029        (uri (git-reference
11030              (url "https://gitlab.gnome.org/GNOME/libhandy")
11031              (commit (string-append "v" version))))
11032        (file-name (git-file-name "libhandy" version))
11033        (sha256
11034         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
11035     (arguments
11036      (substitute-keyword-arguments (package-arguments libhandy)
11037        ((#:configure-flags flags)
11038         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
11039
11040 (define-public libgit2-glib
11041   (package
11042     (name "libgit2-glib")
11043     (version "0.99.0.1")
11044     (source (origin
11045               (method url-fetch)
11046               (uri (string-append "mirror://gnome/sources/" name "/"
11047                                   (version-major+minor version) "/"
11048                                   name "-" version ".tar.xz"))
11049               (sha256
11050                (base32
11051                 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
11052     (build-system meson-build-system)
11053     (native-inputs
11054      `(("glib:bin" ,glib "bin") ;; For glib-mkenums
11055        ("gobject-introspection" ,gobject-introspection)
11056        ("pkg-config" ,pkg-config)
11057        ("python-pygobject" ,python-pygobject)
11058        ("python-wrapper" ,python-wrapper)
11059        ("vala" ,vala)))
11060     (inputs
11061      `(("glib" ,glib)
11062        ("libssh2" ,libssh2)))
11063     (propagated-inputs
11064      `(;; In Requires of libgit2-glib.pc.
11065        ("libgit2" ,libgit2)))
11066     (synopsis "GLib wrapper around the libgit2 Git access library")
11067     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
11068 access library.  It only implements the core plumbing functions, not really the
11069 higher level porcelain stuff.")
11070     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
11071     (license license:gpl2+)))
11072
11073 (define-public gitg
11074   (package
11075     (name "gitg")
11076     (version "3.32.1")
11077     (source (origin
11078               (method url-fetch)
11079               (uri (string-append "mirror://gnome/sources/" name "/"
11080                                   (version-major+minor version) "/"
11081                                   name "-" version ".tar.xz"))
11082               (sha256
11083                (base32
11084                 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
11085     (build-system meson-build-system)
11086     (arguments
11087      `(#:glib-or-gtk? #t
11088        #:phases
11089        (modify-phases %standard-phases
11090          (add-after 'unpack 'disable-post-install-partially
11091            (lambda _
11092              (substitute* "meson_post_install.py"
11093                (("'python'") ; there are no python sources to compile
11094                 (string-append "'" (which "true") "'"))
11095                (("gtk-update-icon-cache") (which "true")))
11096              #t))
11097          (add-after 'unpack 'fix-test-sources
11098            (lambda _
11099              (substitute* "tests/libgitg/test-commit.vala"
11100                (("/bin/bash") (which "bash")))
11101              #t))
11102          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11103            (lambda* (#:key outputs #:allow-other-keys)
11104              (let ((prog (string-append (assoc-ref outputs "out")
11105                                         "/bin/gitg")))
11106                (wrap-program prog
11107                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11108                #t))))))
11109     (inputs
11110      `(("glib" ,glib)
11111        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11112        ("gtk+" ,gtk+)
11113        ("gtkspell3" ,gtkspell3)
11114        ("gtksourceview" ,gtksourceview-3)
11115        ("json-glib" ,json-glib)
11116        ("libdazzle" ,libdazzle)
11117        ("libgee" ,libgee)
11118        ("libgit2-glib" ,libgit2-glib)
11119        ("libpeas" ,libpeas)
11120        ("libsecret" ,libsecret)
11121        ("libsoup" ,libsoup)
11122        ("libxml2" ,libxml2)))
11123     (native-inputs
11124      `(("glib:bin" ,glib "bin")
11125        ("gtk+:bin" ,gtk+ "bin")
11126        ("gobject-introspection" ,gobject-introspection)
11127        ("intltool" ,intltool)
11128        ("pkg-config" ,pkg-config)
11129        ("vala" ,vala)))
11130     (synopsis "Graphical user interface for git")
11131     (description
11132      "gitg is a graphical user interface for git.  It aims at being a small,
11133 fast and convenient tool to visualize the history of git repositories.
11134 Besides visualization, gitg also provides several utilities to manage your
11135 repository and commit your work.")
11136     (home-page "https://wiki.gnome.org/Apps/Gitg")
11137     (license license:gpl2+)))
11138
11139 (define-public gamin
11140   (package
11141     (name "gamin")
11142     (version "0.1.10")
11143     (source (origin
11144               (method url-fetch)
11145               (uri (string-append "mirror://gnome/sources/" name "/"
11146                                   (version-major+minor version) "/"
11147                                   name "-" version ".tar.bz2"))
11148               (sha256
11149                (base32
11150                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
11151     (build-system gnu-build-system)
11152     (arguments
11153      `(#:phases
11154        (modify-phases %standard-phases
11155          (add-after 'unpack 'remove-deprecated-macro
11156            (lambda _
11157              (substitute* '("server/gam_node.c"
11158                             "server/gam_subscription.h"
11159                             "server/gam_node.h"
11160                             "server/gam_subscription.c")
11161                (("G_CONST_RETURN") "const"))
11162              #t)))))
11163     (inputs
11164      `(("glib" ,glib)))
11165     (native-inputs
11166      `(("intltool" ,intltool)
11167        ("pkg-config" ,pkg-config)))
11168     (home-page "https://people.gnome.org/~veillard/gamin/")
11169     (synopsis "File alteration monitor")
11170     (description
11171      "Gamin is a file and directory monitoring system defined to be a subset
11172 of the FAM (File Alteration Monitor) system.  This is a service provided by a
11173 library which detects when a file or a directory has been modified.")
11174     (license license:gpl2+)))
11175
11176 (define-public gnome-mahjongg
11177   (package
11178     (name "gnome-mahjongg")
11179     (version "3.35.1")
11180     (source (origin
11181               (method git-fetch)
11182               (uri (git-reference
11183                     (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
11184                     (commit version)))
11185               (file-name (git-file-name name version))
11186               (sha256
11187                (base32
11188                 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
11189     (build-system meson-build-system)
11190     (arguments
11191      `(#:glib-or-gtk? #t))
11192     (native-inputs
11193      `(("appstream-glib" ,appstream-glib)
11194        ("gettext" ,gettext-minimal)
11195        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11196        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
11197        ("itstool" ,itstool)
11198        ("pkg-config" ,pkg-config)
11199        ("vala" ,vala)))
11200     (propagated-inputs
11201      `(("dconf" ,dconf)))
11202     (inputs
11203      `(("glib" ,glib)
11204        ("gtk+" ,gtk+)
11205        ("librsvg" ,librsvg)))
11206     (synopsis "Mahjongg tile-matching game")
11207     (description "GNOME Mahjongg is a game based on the classic Chinese
11208 tile-matching game Mahjong.  It features multiple board layouts, tile themes,
11209 and a high score table.")
11210     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11211     (license license:gpl2+)))
11212
11213 (define-public gnome-themes-extra
11214   (package
11215     (name "gnome-themes-extra")
11216     (version "3.28")
11217     (source
11218      (origin
11219        (method url-fetch)
11220        (uri (string-append "mirror://gnome/sources/" name "/"
11221                            (version-major+minor version) "/" name "-"
11222                            version ".tar.xz"))
11223        (sha256
11224         (base32
11225          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11226     (build-system gnu-build-system)
11227     (arguments
11228      '(#:configure-flags
11229        ;; Don't create 'icon-theme.cache'.
11230        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11231               (true      (string-append coreutils "/bin/true")))
11232          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
11233     (native-inputs
11234      `(("glib:bin" ,glib "bin")
11235        ("intltool" ,intltool)
11236        ("pkg-config" ,pkg-config)))
11237     (inputs
11238      `(("glib" ,glib)
11239        ("gtk+" ,gtk+)
11240        ("gtk+-2" ,gtk+-2)
11241        ("librsvg" ,librsvg)
11242        ("libxml2" ,libxml2)))
11243     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11244     (synopsis "GNOME Extra Themes")
11245     (description "This package provides themes and related elements that don't
11246 really fit in other upstream packages.  It offers legacy support for GTK+ 2
11247 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
11248 index files needed for Adwaita to be used outside of GNOME.")
11249     (license license:lgpl2.1+)))
11250
11251 (define-public gnote
11252   (package
11253     (name "gnote")
11254     (version "3.38.1")
11255     (source
11256      (origin
11257        (method url-fetch)
11258        (uri (string-append "mirror://gnome/sources/" name "/"
11259                            (version-major+minor version)  "/"
11260                            "gnote-" version ".tar.xz"))
11261        (sha256
11262         (base32 "1adjfjhmsm2d33999khjyzvli6kiz1jlzavn77jhd49kfzhxa9y4"))))
11263     (build-system glib-or-gtk-build-system)
11264     (native-inputs
11265      `(("desktop-file-utils" ,desktop-file-utils)
11266        ("glib:bin" ,glib "bin")
11267        ("gobject-introspection" ,gobject-introspection)
11268        ("intltool" ,intltool)
11269        ("itstool" ,itstool)
11270        ("pkg-config" ,pkg-config)
11271        ("unittest-cpp" ,unittest-cpp))) ;FIXME: not found by pkg-config
11272     (inputs
11273      `(("glibmm" ,glibmm)
11274        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11275        ("gspell" ,gspell)
11276        ("gtk+" ,gtk+)
11277        ("gtkmm" ,gtkmm)
11278        ("libsecret" ,libsecret)
11279        ("libuuid" ,util-linux "lib")
11280        ("libxml2" ,libxml2)
11281        ("libxslt" ,libxslt)))
11282     (synopsis "Note-taking application for the GNOME desktop")
11283     (description
11284      "Gnote is a note-taking application written for the GNOME desktop
11285 environment.")
11286     (home-page "https://wiki.gnome.org/Apps/Gnote")
11287     (license license:gpl3+)))
11288
11289 (define-public polari
11290   (package
11291     (name "polari")
11292     (version "3.36.3")
11293     (source (origin
11294               (method url-fetch)
11295               (uri (string-append "mirror://gnome/sources/polari/"
11296                                   (version-major+minor version)
11297                                   "/polari-" version ".tar.xz"))
11298               (sha256
11299                (base32
11300                 "0fpmrvhd40yay051bzn4x3gsrzdv42nav0pm5ps0np8wk1z689jg"))))
11301     (build-system meson-build-system)
11302     (arguments
11303      `(#:glib-or-gtk? #t
11304        #:phases
11305        (modify-phases %standard-phases
11306          (add-after 'unpack 'skip-gtk-update-icon-cache
11307            (lambda _
11308              (substitute* "meson/meson-postinstall.sh"
11309                (("gtk-update-icon-cache") (which "true")))
11310              #t))
11311          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11312            (lambda* (#:key outputs #:allow-other-keys)
11313              (let ((prog (string-append (assoc-ref outputs "out")
11314                                         "/bin/polari")))
11315                (wrap-program prog
11316                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11317                #t))))))
11318     (inputs
11319      `(("glib" ,glib)
11320        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11321        ("gspell" ,gspell)
11322        ("gtk+" ,gtk+)
11323        ("gjs" ,gjs)
11324        ("libsecret" ,libsecret)
11325        ("libsoup" ,libsoup)
11326        ("telepathy-glib" ,telepathy-glib)
11327        ("telepathy-logger" ,telepathy-logger)))
11328     (native-inputs
11329      `(("glib:bin" ,glib "bin")
11330        ("gobject-introspection" ,gobject-introspection)
11331        ("intltool" ,intltool)
11332        ("pkg-config" ,pkg-config)
11333        ("yelp-tools" ,yelp-tools)))
11334     (propagated-inputs
11335      `(("telepathy-idle" ,telepathy-idle)
11336        ("telepathy-mission-control" ,telepathy-mission-control)))
11337     (synopsis "Simple IRC Client")
11338     (description
11339      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11340 integrate seamlessly with the GNOME desktop.")
11341     (home-page "https://wiki.gnome.org/Apps/Polari")
11342     (license license:gpl2+)))
11343
11344 (define-public gnome-boxes
11345   (package
11346     (name "gnome-boxes")
11347     (version "3.36.6")
11348     (source
11349      (origin
11350        (method url-fetch)
11351        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11352                            (version-major+minor version) "/"
11353                            "gnome-boxes-" version ".tar.xz"))
11354        (sha256
11355         (base32 "0c3cw90xqqcpacc2z06ljs0gg8saxizfgjzg9alhpwgz3gl4c5pg"))))
11356     (build-system meson-build-system)
11357     (arguments
11358      '(#:glib-or-gtk? #t
11359        #:configure-flags (list "-Drdp=false"
11360                                (string-append "-Dc_link_args=-Wl,-rpath="
11361                                               (assoc-ref %outputs "out")
11362                                               "/lib/gnome-boxes"))))
11363     (native-inputs
11364      `(("glib:bin" ,glib "bin")             ; for glib-compile-resources
11365        ("gtk+:bin" ,gtk+ "bin")             ; for gtk-update-icon-cache
11366        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11367        ("itstool" ,itstool)
11368        ("intltool" ,intltool)
11369        ("vala" ,vala)
11370        ("pkg-config" ,pkg-config)))
11371     (inputs
11372      `(("libarchive" ,libarchive)
11373        ("glib-networking" ,glib-networking) ;for TLS support
11374        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11375        ("gtk" ,gtk+)
11376        ("gtk-vnc" ,gtk-vnc)
11377        ("libosinfo" ,libosinfo)
11378        ("libsecret" ,libsecret)
11379        ("libsoup" ,libsoup)
11380        ("libusb" ,libusb)
11381        ("libvirt" ,libvirt)
11382        ("libvirt-glib" ,libvirt-glib)
11383        ("libxml" ,libxml2)
11384        ("spice-gtk" ,spice-gtk)
11385        ("sparql-query" ,sparql-query)
11386        ("vte" ,vte)
11387        ("webkitgtk" ,webkitgtk)
11388        ("tracker" ,tracker)
11389        ("libgudev" ,libgudev)))
11390     (home-page "https://wiki.gnome.org/Apps/Boxes")
11391     (synopsis "View, access, and manage remote and virtual systems")
11392     (description "GNOME Boxes is a simple application to view, access, and
11393 manage remote and virtual systems.  Note that this application requires the
11394 @code{libvirt} and @code{virtlog} daemons to run.  Use the command
11395 @command{info '(guix) Virtualization Services'} to learn how to configure
11396 these services on the Guix System.")
11397     (license (list
11398               ;; For data/icons/empty-boxes.png.
11399               license:cc-by2.0
11400               ;; For all others.
11401               license:lgpl2.0+))))
11402
11403 (define-public geary
11404   (package
11405     (name "geary")
11406     (version "3.34.1")
11407     (source (origin
11408               (method git-fetch)
11409               (uri (git-reference
11410                     (url "https://gitlab.gnome.org/GNOME/geary")
11411                     (commit version)))
11412               (file-name (git-file-name name version))
11413               (sha256
11414                (base32
11415                 "01cc921kyh3zxz07biqbdzkjgmdcc36kwjyajm4y382a75cl5zg7"))
11416               (patches (search-patches "geary-CVE-2020-24661.patch"))))
11417     (build-system meson-build-system)
11418     (arguments
11419      `(#:glib-or-gtk? #t
11420        #:phases (modify-phases %standard-phases
11421                   (add-after 'unpack 'disable-failing-tests
11422                     (lambda _
11423                       (substitute* "test/meson.build"
11424                         (("test\\('client-tests', geary_test_client_bin\\)")
11425                          ""))
11426                       #t))
11427                   (add-after 'unpack 'disable-postinstall-script
11428                     (lambda _
11429                       (substitute* "meson.build"
11430                         (("meson.add_install_script\\(\
11431 join_paths\\('build-aux', 'post_install.py'\\)\\)")
11432                          ""))
11433                       #t))
11434                   (add-before 'check 'setup-xvfb
11435                     (lambda _
11436                       (system "Xvfb :1 &")
11437                       (setenv "DISPLAY" ":1")
11438                       #t)))))
11439     (inputs
11440      `(("enchant" ,enchant)
11441        ("folks" ,folks)
11442        ("gcr" ,gcr)
11443        ("glib" ,glib)
11444        ("gmime" ,gmime-2.6)
11445        ("gnome-online-accounts:lib"
11446         ,gnome-online-accounts "lib")
11447        ("gspell" ,gspell)
11448        ("gtk+" ,gtk+)
11449        ("iso-codes" ,iso-codes)
11450        ("json-glib" ,json-glib)
11451        ("libcanberra" ,libcanberra)
11452        ("libgee" ,libgee)
11453        ("libhandy" ,libhandy-0.0)
11454        ("libpeas" ,libpeas)
11455        ("libsecret" ,libsecret)
11456        ("libunwind" ,libunwind)
11457        ("sqlite" ,sqlite)
11458        ("webkitgtk" ,webkitgtk)
11459        ("ytnef" ,ytnef)))
11460     (native-inputs
11461      `(("appstream-glib" ,appstream-glib)
11462        ("cmake-minimal" ,cmake-minimal)
11463        ("desktop-file-utils" ,desktop-file-utils)
11464        ("gettext" ,gettext-minimal)
11465        ("glib:bin" ,glib "bin")
11466        ("gobject-introspection" ,gobject-introspection)
11467        ("itstool" ,itstool)
11468        ("libarchive" ,libarchive)
11469        ("libxml2" ,libxml2)
11470        ("pkg-config" ,pkg-config)
11471        ("vala" ,vala)
11472        ("xvfb" ,xorg-server-for-tests)))
11473     (synopsis "GNOME email application built around conversations")
11474     (description
11475      "Geary collects related messages together into conversations,
11476 making it easy to find and follow your discussions.  Full-text and keyword
11477 search makes it easy to find the email you are looking for.  Geary's
11478 full-featured composer lets you send rich, styled text with images, links, and
11479 lists, but also send lightweight, easy to read text messages.  Geary
11480 automatically picks up your existing GNOME Online Accounts, and adding more is
11481 easy.  Geary has a clean, fast, modern interface that works like you want it
11482 to.")
11483     (home-page "https://wiki.gnome.org/Apps/Geary")
11484     (license (list
11485               ;; geary
11486               license:lgpl2.1+
11487               ;; icons
11488               license:cc-by3.0
11489               license:cc-by-sa3.0
11490               license:public-domain
11491               ;; snowball
11492               license:bsd-2))))
11493
11494 (define-public glabels
11495   (package
11496     (name "glabels")
11497     (version "3.4.1")
11498     (source
11499      (origin
11500        (method url-fetch)
11501        (uri (string-append "mirror://gnome/sources/" name "/"
11502                            (version-major+minor version)  "/"
11503                            "glabels-" version ".tar.xz"))
11504        (sha256
11505         (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
11506     (build-system glib-or-gtk-build-system)
11507     (native-inputs
11508      `(("gettext" ,gettext-minimal)
11509        ("glib:bin" ,glib "bin")
11510        ("intltool" ,intltool)
11511        ("itstool" ,itstool)
11512        ("pkg-config" ,pkg-config)))
11513     (inputs
11514      `(("gtk+" ,gtk+)
11515        ("librsvg" ,librsvg)
11516        ("libxml2" ,libxml2)))
11517     (home-page "https://glabels.org/")
11518     (synopsis "Program for creating labels and business cards")
11519     (description
11520      "gLabels is a program for creating labels and business cards.  It is
11521 designed to work with various laser/ink-jet peel-off label and business
11522 card sheets that you’ll find at most office supply stores.")
11523     (license license:gpl3+)))
11524
11525 ;; Version 3.38.0 is out but requires tepl>=5 which requires glib>=2.64.
11526 (define-public gnome-latex
11527   (package
11528     (name "gnome-latex")
11529     (version "3.36.0")
11530     (source
11531      (origin
11532        (method url-fetch)
11533        (uri (string-append "mirror://gnome/sources/" name "/"
11534                            (version-major+minor version)  "/"
11535                            "gnome-latex-" version ".tar.xz"))
11536        (sha256
11537         (base32 "1869kr1zhcp04mzbi67lwgk497w840dbbc7427i9yh9b9s7j6mqn"))))
11538     (build-system glib-or-gtk-build-system)
11539     (native-inputs
11540      `(("gettext" ,gettext-minimal)
11541        ("glib:bin" ,glib "bin")
11542        ("gobject-introspection" ,gobject-introspection)
11543        ("gtk-doc" ,gtk-doc/stable)
11544        ("intltool" ,intltool)
11545        ("itstool" ,itstool)
11546        ("pkg-config" ,pkg-config)
11547        ("vala" ,vala)))
11548     (inputs
11549      `(("amtk" ,amtk)
11550        ("dconf" ,dconf)
11551        ("glib" ,glib)
11552        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11553        ("gspell" ,gspell)
11554        ("gtk+" ,gtk+)
11555        ("gtksourceview" ,gtksourceview)
11556        ("libgee" ,libgee)
11557        ("tepl" ,tepl)
11558        ("uchardet" ,uchardet)))
11559     (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
11560     (synopsis "LaTeX editor for the GNOME desktop")
11561     (description
11562      "GNOME LaTeX is a LaTeX editor for the GNOME desktop.  It has features
11563 such as build tools, completion of LaTeX commands, structure navigation,
11564 symbol tables, document templates, project management, spell-checking, menus
11565 and toolbars.")
11566     (license license:gpl3+)))
11567
11568 (define-public setzer
11569   (package
11570     (name "setzer")
11571     (version "0.4.1")
11572     (source
11573      (origin
11574        (method git-fetch)
11575        (uri (git-reference
11576              (url "https://github.com/cvfosammmm/Setzer")
11577              (commit (string-append "v" version))))
11578        (file-name (git-file-name name version))
11579        (sha256
11580         (base32 "1rcx2c07jg1ij81pnvg3px49hfbjmkagn68d3gp79z3gcajbp2av"))))
11581     (build-system meson-build-system)
11582     (arguments
11583      `(#:glib-or-gtk? #t
11584        #:phases
11585        (modify-phases %standard-phases
11586          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11587            (lambda* (#:key outputs #:allow-other-keys)
11588              (let ((prog (string-append (assoc-ref outputs "out")
11589                                         "/bin/setzer"))
11590                    (pylib (string-append (assoc-ref outputs "out")
11591                                          "/lib/python"
11592                                          ,(version-major+minor
11593                                            (package-version python))
11594                                          "/site-packages")))
11595                (wrap-program prog
11596                  `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
11597                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11598                #t))))))
11599     (native-inputs
11600      `(("desktop-file-utils" ,desktop-file-utils)
11601        ("gettext" ,gettext-minimal)
11602        ("glib:bin" ,glib "bin")
11603        ("gobject-introspection" ,gobject-introspection)
11604        ("gtk+:bin" ,gtk+ "bin")))
11605     (inputs
11606      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11607        ("gspell" ,gspell)
11608        ("gtk+" ,gtk+)
11609        ("gtksourceview" ,gtksourceview)
11610        ("pango" ,pango)
11611        ("poppler" ,poppler)
11612        ("python-pdfminer" ,python-pdfminer-six)
11613        ("python-pycairo" ,python-pycairo)
11614        ("python-pygobject" ,python-pygobject)
11615        ("python-pyxdg" ,python-pyxdg)
11616        ("webkitgtk" ,webkitgtk)
11617        ("xdg-utils" ,xdg-utils)))
11618     (home-page "https://www.cvfosammmm.org/setzer/")
11619     (synopsis "LaTeX editor written in Python with GTK+")
11620     (description
11621      "Setzer is a simple yet full-featured LaTeX editor written in Python with
11622 GTK+.  It integrates well with the GNOME desktop environment.")
11623     (license license:gpl3+)))
11624
11625 (define-public libratbag
11626   (package
11627     (name "libratbag")
11628     (version "0.14")
11629     (source
11630      (origin
11631        (method git-fetch)
11632        (uri (git-reference
11633              (url "https://github.com/libratbag/libratbag")
11634              (commit (string-append "v" version))))
11635        (file-name (git-file-name name version))
11636        (sha256
11637         (base32 "1fpwp2sj8mf98bqasq2h8qwgprxi7k3iw33gcfid3d1lbyiacw0x"))))
11638     (build-system meson-build-system)
11639     (arguments
11640      `(#:configure-flags
11641        (list "-Dsystemd=false"
11642              "-Dlogind-provider=elogind")
11643        #:phases
11644        (modify-phases %standard-phases
11645          (add-after 'install 'wrap
11646            (lambda* (#:key inputs outputs #:allow-other-keys)
11647              (let* ((out (assoc-ref outputs "out"))
11648                     (site (string-append
11649                            "/lib/python"
11650                            ,(version-major+minor (package-version python))
11651                            "/site-packages"))
11652                     (evdev (string-append
11653                             (assoc-ref inputs "python-evdev") site))
11654                     (pygo (string-append
11655                            (assoc-ref inputs "python-pygobject") site))
11656                     (python-wrap
11657                      `("PYTHONPATH" = (,evdev ,pygo))))
11658                (wrap-program (string-append out "/bin/" "ratbagctl")
11659                  python-wrap)
11660                #t))))))
11661     (native-inputs
11662      `(("check" ,check)
11663        ("pkg-config" ,pkg-config)
11664        ("swig" ,swig)
11665        ("valgrind" ,valgrind)))
11666     (inputs
11667      `(("glib" ,glib)
11668        ("json-glib" ,json-glib)
11669        ("libevdev" ,libevdev)
11670        ("libsystemd" ,elogind)
11671        ("libunistring" ,libunistring)
11672        ("python-evdev" ,python-evdev)
11673        ("python-pygobject" ,python-pygobject)
11674        ("udev" ,eudev)))
11675     (home-page "https://github.com/libratbag/libratbag")
11676     (synopsis "DBus daemon and utility for configuring gaming mice")
11677     (description "libratbag provides @command{ratbagd}, a DBus daemon to
11678 configure input devices, mainly gaming mice.  The daemon provides a generic
11679 way to access the various features exposed by these mice and abstracts away
11680 hardware-specific and kernel-specific quirks.  There is also the
11681 @command{ratbagctl} command line interface for configuring devices.
11682
11683 libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
11684 Steelseries.
11685
11686 The ratbagd DBus service can be enabled by adding the following service to
11687 your operating-system definition:
11688
11689   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11690     (license license:expat)))
11691
11692 (define-public piper
11693   (package
11694     (name "piper")
11695     (version "0.5.1")
11696     (source
11697      (origin
11698        (method git-fetch)
11699        (uri (git-reference
11700              (url "https://github.com/libratbag/piper")
11701              (commit version)))
11702        (sha256
11703         (base32 "1nfjnsiwg2rs6gkjsxzhr2708i6di149dgwq3cf6l12rxqpb8arj"))
11704        (file-name (git-file-name name version))))
11705     (build-system meson-build-system)
11706     (native-inputs
11707      `(("gettext" ,gettext-minimal)
11708        ("glib:bin" ,glib "bin")
11709        ("gobject-introspection" ,gobject-introspection)
11710        ("pkg-config" ,pkg-config)
11711        ("python-flake8" ,python-flake8)))
11712     (inputs
11713      `(("adwaita-icon-theme" ,adwaita-icon-theme)
11714        ("gtk" ,gtk+)
11715        ("gtk:bin" ,gtk+ "bin")
11716        ("librsvg" ,librsvg)
11717        ("python-evdev" ,python-evdev)
11718        ("python-lxml" ,python-lxml)
11719        ("python-pycairo" ,python-pycairo)
11720        ("python-pygobject" ,python-pygobject)))
11721     (arguments
11722      `(#:imported-modules ((guix build python-build-system)
11723                            ,@%meson-build-system-modules)
11724        #:modules (((guix build python-build-system) #:prefix python:)
11725                   (guix build meson-build-system)
11726                   (guix build utils))
11727        #:tests? #f ;; The flake8 test fails trying to validate piper.in as code.
11728        #:phases
11729        (modify-phases %standard-phases
11730          (add-after 'unpack 'dont-update-gtk-icon-cache
11731            (lambda _
11732              (substitute* "meson.build"
11733                (("meson.add_install_script('meson_install.sh')") ""))
11734              #t))
11735          ;; TODO: Switch to wrap-script when it is fixed.
11736          (add-after 'install 'wrap-python
11737            (assoc-ref python:%standard-phases 'wrap))
11738          (add-after 'wrap-python 'wrap
11739            (lambda* (#:key outputs #:allow-other-keys)
11740              (wrap-program
11741                  (string-append (assoc-ref outputs "out" )"/bin/piper")
11742                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11743              #t)))))
11744     (home-page "https://github.com/libratbag/piper/")
11745     (synopsis "Configure bindings and LEDs on gaming mice")
11746     (description "Piper is a GTK+ application for configuring gaming mice with
11747 onboard configuration for key bindings via libratbag.  Piper requires
11748 a @command{ratbagd} daemon running with root privileges.  It can be run
11749 manually as root, but is preferably configured as a DBus service that can
11750 launch on demand.  This can be configured by enabling the following service,
11751 provided there is a DBus service present:
11752
11753   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11754     (license license:gpl2)))
11755
11756 (define-public parlatype
11757   (package
11758     (name "parlatype")
11759     (version "2.1")
11760     (source
11761      (origin
11762        (method git-fetch)
11763        (uri (git-reference
11764              (url "https://github.com/gkarsay/parlatype")
11765              (commit (string-append "v" version))))
11766        (file-name (git-file-name name version))
11767        (sha256
11768         (base32 "1c15ja0rwz3jj8bnqdq0nmqka39iwrhy8krdv2a2x8nl4shfpmv0"))))
11769     (build-system meson-build-system)
11770     (arguments
11771      `(#:glib-or-gtk? #t
11772        #:tests? #f                      ;require internet access
11773        #:phases
11774        (modify-phases %standard-phases
11775          (add-after 'install 'wrap-parlatype
11776            ;; Add gstreamer plugin provided in this package to system's
11777            ;; plugins.
11778            (lambda* (#:key outputs #:allow-other-keys)
11779              (let* ((out (assoc-ref outputs "out"))
11780                     (gst-plugin-path (string-append
11781                                       out "/lib/gstreamer-1.0/"
11782                                       ":"
11783                                       (getenv "GST_PLUGIN_SYSTEM_PATH"))))
11784                (wrap-program (string-append out "/bin/parlatype")
11785                  `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path))))
11786              #t)))))
11787     (native-inputs
11788      `(("appstream-glib" ,appstream-glib)
11789        ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11790        ("gettext" ,gettext-minimal)
11791        ("glib" ,glib "bin")             ;for glib-compile-resources
11792        ("pkg-config" ,pkg-config)
11793        ("yelp-tools" ,yelp-tools)))
11794     (inputs
11795      `(("gst-plugins-base" ,gst-plugins-base)
11796        ("gst-plugins-good" ,gst-plugins-good)
11797        ("gstreamer" ,gstreamer)
11798        ("gtk+" ,gtk+)
11799        ("pocketsphinx" ,pocketsphinx)
11800        ("pulseaudio" ,pulseaudio)
11801        ("sphinxbase" ,sphinxbase)))
11802     (home-page "http://gkarsay.github.io/parlatype/")
11803     (synopsis "GNOME audio player for transcription")
11804     (description "Parlatype is an audio player for the GNOME desktop
11805 environment.  Its main purpose is the manual transcription of spoken
11806 audio files.")
11807     (license license:gpl3+)))
11808
11809 (define-public jsonrpc-glib
11810   (package
11811     (name "jsonrpc-glib")
11812     (version "3.34.0")
11813     (source (origin
11814               (method url-fetch)
11815               (uri (string-append "mirror://gnome/sources/" name "/"
11816                                   (version-major+minor version) "/"
11817                                    name "-" version ".tar.xz"))
11818               (sha256
11819                (base32
11820                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
11821     (build-system meson-build-system)
11822     (inputs
11823      `(("json-glib" ,json-glib)
11824        ("glib" ,glib)))
11825     (native-inputs
11826      `(("pkg-config" ,pkg-config)
11827        ("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
11828        ("gobject-introspection" ,gobject-introspection)
11829        ("vala" ,vala)))
11830     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
11831     (synopsis "JSON-RPC library for GLib")
11832     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
11833 peers in either a synchronous or asynchronous fashion.  It also allows
11834 communicating using the GVariant serialization format instead of JSON when
11835 both peers support it.  You might want that when communicating on a single
11836 host to avoid parser overhead and memory-allocator fragmentation.")
11837     (license license:lgpl2.1+)))
11838
11839 (define-public feedbackd
11840   (package
11841     (name "feedbackd")
11842     (version "0.0.0+git20200527")
11843     (source (origin
11844               (method git-fetch)
11845               (uri (git-reference
11846                     (url "https://source.puri.sm/Librem5/feedbackd.git")
11847                     (commit (string-append "v" version))))
11848               (file-name (git-file-name name version))
11849               (sha256
11850                (base32
11851                 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
11852     (build-system meson-build-system)
11853     (native-inputs
11854      `(("glib:bin" ,glib "bin")
11855        ("gobject-introspection" ,gobject-introspection)
11856        ("pkg-config" ,pkg-config)
11857        ("vala" ,vala)))
11858     (inputs
11859      `(("dbus" ,dbus)
11860        ("gsound" ,gsound)
11861        ("json-glib" ,json-glib)
11862        ("libgudev" ,libgudev)))
11863     (propagated-inputs
11864      `(("glib" ,glib))) ; in Requires of libfeedback-0.0.pc
11865     (synopsis "Haptic/visual/audio feedback via DBus")
11866     (description "Feedbackd provides a DBus daemon to act on events to provide
11867 haptic, visual and audio feedback.  It offers the libfeedbackd library and
11868 GObject introspection bindings.")
11869      (home-page "https://source.puri.sm/Librem5/feedbackd")
11870      (license (list license:lgpl2.1+   ; libfeedbackd
11871                     license:lgpl3+)))) ; the rest
11872
11873 (define-public sysprof
11874   (package
11875     (name "sysprof")
11876     (version "3.36.0")
11877     (source
11878      (origin
11879        (method url-fetch)
11880        (uri (string-append "mirror://gnome/sources/sysprof/"
11881                            (version-major+minor version) "/"
11882                            "sysprof-" version ".tar.xz"))
11883        (sha256
11884         (base32 "024i0gzqnm79rpr4gqxdvcj6gvf82xdlcp2p1k9ikcppmi6xnw46"))))
11885     (build-system meson-build-system)
11886     (arguments
11887      `(#:configure-flags
11888        (list (string-append "-Dsystemdunitdir="
11889                             %output
11890                             "/share/systemd"))
11891        #:tests? #f ; 3/4 test-model-filter barfs some dbus nonsense
11892        #:phases
11893        (modify-phases %standard-phases
11894          (add-after 'unpack 'patch-install-script
11895            (lambda _
11896              (substitute* "build-aux/meson/post_install.sh"
11897                (("gtk-update-icon-cache") "true")
11898                (("update-desktop-database") "true"))
11899              #t)))))
11900     (inputs
11901      `(("glib" ,glib)
11902        ("gtk+" ,gtk+)
11903        ("libdazzle" ,libdazzle)
11904        ("polkit" ,polkit)))
11905     (native-inputs
11906      `(("gettext" ,gettext-minimal)
11907        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
11908        ("itstool" ,itstool)
11909        ("pkg-config" ,pkg-config)
11910        ("xmllint" ,libxml2)))
11911     ;; This home page is so woefully out of date as to be essentially useless.
11912     ;; (home-page "http://www.sysprof.com")
11913     (home-page "https://wiki.gnome.org/Apps/Sysprof")
11914     (synopsis "System-wide performance profiler for GNU/Linux")
11915     (description
11916      "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
11917 GNU/Linux system including the kernel and all user-space applications.  This
11918 helps find the function(s) in which a program spends most of its time.
11919
11920 It uses the kernel's built-in @code{ptrace} feature and handles shared
11921 libraries.  Applications do not need to be recompiled--or even restarted.")
11922     (license license:gpl3+)))
11923
11924 (define-public gnome-builder
11925   (package
11926     (name "gnome-builder")
11927     (version "3.36.1")
11928     (source (origin
11929               (method url-fetch)
11930               (uri (string-append "mirror://gnome/sources/" name "/"
11931                                   (version-major+minor version) "/"
11932                                   name "-" version ".tar.xz"))
11933               (sha256
11934                (base32
11935                 "17pvmd5jypar8dkr6w56hvf7jnq4l1wih2wwgkrv7sblr7rkkar2"))))
11936     (build-system meson-build-system)
11937     (arguments
11938      `(#:configure-flags (list "-Dnetwork_tests=false"
11939                                ;; TODO: Enable all plugins...
11940                                "-Dplugin_clang=false"
11941                                "-Dplugin_flatpak=false"
11942                                "-Dplugin_glade=false"
11943                                ;; XXX: This one has been shown not to work in
11944                                ;;      <https://issues.guix.gnu.org/45272>
11945                                "-Dplugin_jedi=false"
11946                                ;; ... except this one.
11947                                "-Dplugin_update_manager=false")
11948        #:phases
11949        (modify-phases %standard-phases
11950          (add-after 'unpack 'patch-meson
11951            (lambda* (#:key inputs #:allow-other-keys)
11952              (substitute* "build-aux/meson/post_install.py"
11953                (("gtk-update-icon-cache") "true")
11954                (("update-desktop-database") "true"))
11955              (substitute* "src/libide/meson.build"
11956                (("/usr/lib")
11957                 (string-append (assoc-ref inputs "python-pygobject")
11958                                "/lib")))
11959              #t))
11960          (add-after 'configure 'fix-ninja
11961            (lambda _
11962              ;; #43296: meson(?) incorrectly assumes we want to link
11963              ;;         this PIE against a static libselinux.
11964              (substitute* "build.ninja"
11965                (("libselinux\\.a") "libselinux.so"))
11966              #t))
11967          (add-before 'check 'pre-check
11968            (lambda _
11969              (system "Xvfb :1 &")
11970              (setenv "DISPLAY" ":1")
11971              #t)))))
11972     (inputs
11973      `(("devhelp" ,devhelp)
11974        ("gspell" ,gspell)
11975        ("gtk+" ,gtk+)
11976        ("json-glib" ,json-glib)
11977        ("jsonrpc-glib" ,jsonrpc-glib)
11978        ("libdazzle" ,libdazzle)
11979        ("libgit2-glib" ,libgit2-glib)
11980        ("libpeas" ,libpeas)
11981        ("python-pygobject" ,python-pygobject)
11982        ("sysprof" ,sysprof)
11983        ("template-glib" ,template-glib)
11984        ("vte" ,vte)
11985        ("webkitgtk" ,webkitgtk)))
11986     (propagated-inputs
11987      `(("gtksourceview" ,gtksourceview)))         ;needed for settings
11988     (native-inputs
11989      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11990        ("glib:bin" ,glib "bin")
11991        ("gettext" ,gettext-minimal)
11992        ("pkg-config" ,pkg-config)
11993        ("vala" ,vala)
11994        ("xorg-server" ,xorg-server-for-tests)))
11995     (home-page "https://wiki.gnome.org/Apps/Builder")
11996     (synopsis "Toolsmith for GNOME-based applications")
11997     (description "Builder aims to be an integrated development
11998 environment (IDE) for writing GNOME-based software.  It features fuzzy search,
11999 auto-completion, a mini code map, documentation browsing, Git integration, an
12000 integrated profiler via Sysprof, debugging support, and more.")
12001     (license license:gpl3+)))
12002
12003 (define-public komikku
12004   (package
12005     (name "komikku")
12006     (version "0.27.0")
12007     (source
12008      (origin
12009        (method git-fetch)
12010        (uri (git-reference
12011              (url "https://gitlab.com/valos/Komikku/")
12012              (commit (string-append "v" version))))
12013        (file-name (git-file-name name version))
12014        (sha256
12015         (base32
12016          "0mj4bsy7jp9wjj1dqz9zdq5aj0ib813wkz5k1481k80jp9dnlqnv"))))
12017     (build-system meson-build-system)
12018     (arguments
12019      `(#:glib-or-gtk? #t
12020        #:phases
12021        (modify-phases %standard-phases
12022          (add-after 'unpack 'patch-sources
12023            (lambda _
12024              (substitute* "komikku/utils.py"
12025                (("from komikku\\.servers import get_servers_list")
12026                 ;; code following that line should migrate old databases
12027                 ;; but the line itself results in an import error
12028                 "return data_dir_path"))))
12029          (add-after 'unpack 'skip-gtk-update-icon-cache
12030            (lambda _
12031              (substitute* "meson_post_install.py"
12032                (("gtk-update-icon-cache") (which "true")))
12033              #t))
12034          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12035           (lambda* (#:key outputs #:allow-other-keys)
12036             (let ((prog (string-append (assoc-ref outputs "out")
12037                                        "/bin/komikku")))
12038               (wrap-program prog
12039                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
12040                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12041               #t))))))
12042     (inputs
12043      `(("gtk+" ,gtk+)
12044        ("libhandy" ,libhandy)
12045        ("libnotify" ,libnotify)
12046        ("libsecret" ,libsecret)
12047        ("python-beautifulsoup4" ,python-beautifulsoup4)
12048        ("python-brotli" ,python-brotli)
12049        ("python-dateparser" ,python-dateparser)
12050        ("python-keyring" ,python-keyring)
12051        ("python-lxml" ,python-lxml)
12052        ("python-magic" ,python-magic)
12053        ("python-pillow" ,python-pillow)
12054        ("python-pure-protobuf" ,python-pure-protobuf)
12055        ("python-pycairo" ,python-pycairo)
12056        ("python-pygobject" ,python-pygobject)
12057        ("python-requests" ,python-requests)
12058        ("python-unidecode" ,python-unidecode)
12059        ("webkitgtk" ,webkitgtk)))
12060     (native-inputs
12061      `(("desktop-file-utils" ,desktop-file-utils)
12062        ("gettext" ,gettext-minimal)
12063        ("glib:bin" ,glib "bin")
12064        ("gobject-introspection" ,gobject-introspection)
12065        ("pkg-config" ,pkg-config)))
12066     (home-page "https://gitlab.com/valos/Komikku")
12067     (synopsis "Manga reader for GNOME")
12068     (description "Komikku is an online/offline manga reader for GNOME,
12069 developed with the aim of being used with the Librem 5 phone.")
12070     (license license:gpl3+)))
12071
12072 (define-public libgda
12073   (package
12074     (name "libgda")
12075     (version "5.2.10")
12076     (source
12077      (origin
12078        (method git-fetch)
12079        (uri (git-reference
12080              (url "https://gitlab.gnome.org/GNOME/libgda.git/")
12081              (commit (string-append "LIBGDA_" (string-replace-substring
12082                                                version "." "_")))))
12083        (file-name (git-file-name name version))
12084        (sha256
12085         (base32 "18rg773gq9v3cdywpmrp12c5xyp97ir9yqjinccpi22sksb1kl8a"))))
12086     (build-system gnu-build-system)
12087     (arguments
12088      `(#:configure-flags '("--enable-vala")
12089        ;; There's a race between check_cnc_lock and check_threaded_cnc
12090        ;; in tests/multi-threading.
12091        #:parallel-tests? #f
12092        #:phases
12093        (modify-phases %standard-phases
12094          (add-after 'unpack 'fix-glade-install
12095            (lambda _
12096              (substitute* "configure.ac"
12097                (("`\\$PKG_CONFIG --variable=catalogdir gladeui-2\\.0`")
12098                 "${datadir}/glade/catalogs")
12099                (("`\\$PKG_CONFIG --variable=pixmapdir gladeui-2\\.0`")
12100                 "${datadir}/glade/pixmaps"))
12101              #t))
12102          (add-before 'check 'pre-check
12103            (lambda* (#:key inputs #:allow-other-keys)
12104              ;; Tests require a running X server.
12105              (system "Xvfb :1 &")
12106              (setenv "DISPLAY" ":1")
12107              #t))
12108          (add-after 'install 'symlink-glade-module
12109            (lambda* (#:key outputs #:allow-other-keys)
12110              (let* ((shlib "libgda-ui-5.0.so")
12111                     (out (assoc-ref outputs "out"))
12112                     (out/lib (string-append out "/lib"))
12113                     (moduledir (string-append out/lib "/glade/modules")))
12114                (mkdir-p moduledir)
12115                (symlink (string-append out/lib "/" shlib)
12116                         (string-append moduledir "/" shlib))
12117                #t))))))
12118     (propagated-inputs
12119      `(("libxml2" ,libxml2)))           ; required by libgda-5.0.pc
12120     (inputs
12121      `(("glib" ,glib)
12122        ("glade" ,glade3)
12123        ("gtk+" ,gtk+)
12124        ("libsecret" ,libsecret)
12125        ("libxslt" ,libxslt)
12126        ("openssl" ,openssl)
12127        ("vala" ,vala)))
12128     (native-inputs
12129      `(("autoconf" ,autoconf)
12130        ("autoconf-archive" ,autoconf-archive)
12131        ("automake" ,automake)
12132        ("glib:bin" ,glib "bin")
12133        ("gnome-common" ,gnome-common)
12134        ("gobject-introspection" ,gobject-introspection)
12135        ("gtk-doc" ,gtk-doc/stable)
12136        ("intltool" ,intltool)
12137        ("libtool" ,libtool)
12138        ("pkg-config" ,pkg-config)
12139        ("vala" ,vala)
12140        ("which" ,which)
12141        ("xorg-server" ,xorg-server-for-tests)
12142        ("yelp-tools" ,yelp-tools)))
12143     (home-page "https://gitlab.gnome.org/GNOME/libgda")
12144     (synopsis "Uniform data access")
12145     (description
12146      "GNU Data Access (GDA) is an attempt to provide uniform access to
12147 different kinds of data sources (databases, information servers, mail spools,
12148 etc).  It is a complete architecture that provides all you need to access
12149 your data.")
12150     (license license:lgpl2.1+)))
12151
12152 (define-public gtranslator
12153   (package
12154     (name "gtranslator")
12155     (version "3.36.0")
12156         (source (origin
12157               (method url-fetch)
12158               (uri (string-append "mirror://gnome/sources/" name "/"
12159                                   (version-major+minor version) "/"
12160                                   name "-" version ".tar.xz"))
12161               (sha256
12162                (base32
12163                 "1lxd2nkji4jk8g2xmyc1a1r3ww710ddk91zh9psmx8xlb4xivaid"))))
12164     (build-system meson-build-system)
12165     (inputs
12166      `(("json-glib" ,json-glib)
12167        ("jsonrpc-glib" ,jsonrpc-glib)
12168        ("gettext" ,gettext-minimal)
12169        ("glib" ,glib)
12170        ("gtk+" ,gtk+)
12171        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12172        ("gspell" ,gspell)
12173        ("libdazzle" ,libdazzle)
12174        ("libgda" ,libgda)
12175        ("libsoup" ,libsoup)))
12176     (native-inputs
12177      `(("glib:bin" ,glib "bin")
12178        ("itstool" ,itstool)
12179        ("pkg-config" ,pkg-config)))
12180     (propagated-inputs
12181      `(("gtksourceview" ,gtksourceview))) ; required for source view
12182     (arguments
12183      `(#:build-type "release"
12184        #:glib-or-gtk? #t
12185        #:phases
12186        (modify-phases %standard-phases
12187          (add-after 'unpack 'skip-gtk-update-icon-cache
12188            (lambda _
12189              (substitute* "build-aux/meson/meson_post_install.py"
12190                (("gtk-update-icon-cache") (which "true")))
12191              #t)))))
12192     (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12193     (synopsis "Translation making program")
12194     (description
12195      "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12196 for the GNOME 3.x platform with many features.  It aims to be a very complete
12197 editing environment for translation issues within the GNU gettext/GNOME desktop
12198 world.")
12199     (license license:gpl3+)))
12200
12201
12202 (define-public ocrfeeder
12203   (package
12204     (name "ocrfeeder")
12205     (version "0.8.3")
12206     (source (origin
12207               (method url-fetch)
12208               (uri (string-append "mirror://gnome/sources/ocrfeeder/"
12209                                   (version-major+minor version) "/"
12210                                   "ocrfeeder-" version ".tar.xz"))
12211               (sha256
12212                (base32
12213                 "12f5gnq92ffnd5zaj04df7jrnsdz1zn4zcgpbf5p9qnd21i2y529"))))
12214     (build-system gnu-build-system)
12215     (arguments
12216      `(#:phases
12217        (modify-phases %standard-phases
12218          (add-after
12219           'install 'wrap-program
12220           (lambda* (#:key outputs #:allow-other-keys)
12221             (let ((prog (string-append (assoc-ref outputs "out")
12222                                        "/bin/" "ocrfeeder"))
12223                   (pylib (string-append (assoc-ref outputs "out")
12224                                         "/lib/python"
12225                                         ,(version-major+minor
12226                                           (package-version python))
12227                                         "/site-packages")))
12228               (wrap-program prog
12229                 `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
12230                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12231               #t))))))
12232     (native-inputs
12233      `(("glib:bin" ,glib "bin")                   ; for glib-compile-resources
12234        ("gobject-introspection" ,gobject-introspection)
12235        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
12236        ("intltool" ,intltool)
12237        ("itstool" ,itstool)
12238        ("pkg-config" ,pkg-config)
12239        ("xmllint" ,libxml2)))
12240     (inputs
12241      `(("enchant" ,enchant)
12242        ("glib" ,glib)
12243        ("goocanvas" ,goocanvas)
12244        ("gtk" ,gtk+)
12245        ("gtkspell3" ,gtkspell3)
12246        ("libjpeg" ,libjpeg-turbo)
12247        ("libtiff" ,libtiff)
12248        ("libraw" ,libraw)
12249        ("ocrad" ,ocrad)
12250        ("python" ,python-wrapper)
12251        ("python-pygobject" ,python-pygobject)
12252        ("python-odfpy" ,python-odfpy)
12253        ("python-pillow" ,python-pillow)
12254        ("python-pyenchant" ,python-pyenchant)
12255        ("python-reportlab" ,python-reportlab)
12256        ("python-sane" ,python-sane)
12257        ("sane-backends" ,sane-backends)
12258        ("tesseract-ocr" ,tesseract-ocr)))
12259     (home-page "https://wiki.gnome.org/Apps/OCRFeeder")
12260     (synopsis "Complete OCR Suite")
12261     (description "OCRFeeder is a complete Optical Character Recognition and
12262 Document Analysis and Recognition program.")
12263     (license license:gpl3+)))