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, 2021 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, 2021 Brendan Tildesley <mail@brendan.scot>
  31 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
  32 ;;; Copyright © 2018 Jovany Leandro G.C <bit4bit@riseup.net>
  33 ;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com>
  34 ;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
  35 ;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
  36 ;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
  37 ;;; Copyright © 2019, 2020 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, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  43 ;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
  44 ;;; Copyright © 2019 David Wilson <david@daviwil.com>
  45 ;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  46 ;;; Copyright © 2019, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
  47 ;;; Copyright © 2019, 2020, 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
  48 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
  49 ;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
  50 ;;; Copyright © 2020 raingloom <raingloom@riseup.net>
  51 ;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  52 ;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
  53 ;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
  54 ;;; Copyright © 2020, 2021 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 ;;; Copyright © 2021 Trevor Hass <thass@okstate.edu>
  62 ;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
  63 ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
  64 ;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
  65 ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
  66 ;;; Copyright © 2021 Josselin Poiret <josselin.poiret@protonmail.ch>
  67 ;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
  68 ;;;
  69 ;;; This file is part of GNU Guix.
  70 ;;;
  71 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  72 ;;; under the terms of the GNU General Public License as published by
  73 ;;; the Free Software Foundation; either version 3 of the License, or (at
  74 ;;; your option) any later version.
  75 ;;;
  76 ;;; GNU Guix is distributed in the hope that it will be useful, but
  77 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  78 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  79 ;;; GNU General Public License for more details.
  80 ;;;
  81 ;;; You should have received a copy of the GNU General Public License
  82 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  83
  84 (define-module (gnu packages gnome)
  85   #:use-module (gnu packages)
  86   #:use-module (gnu packages admin)
  87   #:use-module (gnu packages aidc)
  88   #:use-module (gnu packages aspell)
  89   #:use-module (gnu packages autotools)
  90   #:use-module (gnu packages avahi)
  91   #:use-module (gnu packages backup)
  92   #:use-module (gnu packages base)
  93   #:use-module (gnu packages bash)
  94   #:use-module (gnu packages bison)
  95   #:use-module (gnu packages boost)
  96   #:use-module (gnu packages build-tools)
  97   #:use-module (gnu packages calendar)
  98   #:use-module (gnu packages cdrom)
  99   #:use-module (gnu packages check)
 100   #:use-module (gnu packages cmake)
 101   #:use-module (gnu packages compression)
 102   #:use-module (gnu packages crates-io)
 103   #:use-module (gnu packages crates-graphics)
 104   #:use-module (gnu packages crates-gtk)
 105   #:use-module (gnu packages cups)
 106   #:use-module (gnu packages curl)
 107   #:use-module (gnu packages cyrus-sasl)
 108   #:use-module (gnu packages databases)
 109   #:use-module (gnu packages dbm)
 110   #:use-module (gnu packages djvu)
 111   #:use-module (gnu packages dns)
 112   #:use-module (gnu packages docbook)
 113   #:use-module (gnu packages docker)
 114   #:use-module (gnu packages documentation)
 115   #:use-module (gnu packages enchant)
 116   #:use-module (gnu packages flex)
 117   #:use-module (gnu packages fonts)
 118   #:use-module (gnu packages file-systems)
 119   #:use-module (gnu packages fontutils)
 120   #:use-module (gnu packages freedesktop)
 121   #:use-module (gnu packages game-development)
 122   #:use-module (gnu packages gcc)
 123   #:use-module (gnu packages gettext)
 124   #:use-module (gnu packages ghostscript)
 125   #:use-module (gnu packages gimp)
 126   #:use-module (gnu packages gl)
 127   #:use-module (gnu packages glib)
 128   #:use-module (gnu packages gnupg)
 129   #:use-module (gnu packages gnuzilla)
 130   #:use-module (gnu packages geo)
 131   #:use-module (gnu packages gperf)
 132   #:use-module (gnu packages graphviz)
 133   #:use-module (gnu packages gstreamer)
 134   #:use-module (gnu packages gtk)
 135   #:use-module (gnu packages guile)
 136   #:use-module (gnu packages haskell-xyz)
 137   #:use-module (gnu packages ibus)
 138   #:use-module (gnu packages icu4c)
 139   #:use-module (gnu packages image)
 140   #:use-module (gnu packages imagemagick)
 141   #:use-module (gnu packages inkscape)
 142   #:use-module (gnu packages iso-codes)
 143   #:use-module (gnu packages kerberos)
 144   #:use-module (gnu packages language)
 145   #:use-module (gnu packages libcanberra)
 146   #:use-module (gnu packages libffi)
 147   #:use-module (gnu packages libunistring)
 148   #:use-module (gnu packages libunwind)
 149   #:use-module (gnu packages libusb)
 150   #:use-module (gnu packages linux)
 151   #:use-module (gnu packages lirc)
 152   #:use-module (gnu packages llvm)
 153   #:use-module (gnu packages lua)
 154   #:use-module (gnu packages mail)
 155   #:use-module (gnu packages man)
 156   #:use-module (gnu packages markup)
 157   #:use-module (gnu packages mp3)
 158   #:use-module (gnu packages multiprecision)
 159   #:use-module (gnu packages music)
 160   #:use-module (gnu packages ncurses)
 161   #:use-module (gnu packages nettle)
 162   #:use-module (gnu packages networking)
 163   #:use-module (gnu packages ninja)
 164   #:use-module (gnu packages node)
 165   #:use-module (gnu packages nss)
 166   #:use-module (gnu packages ocr)
 167   #:use-module (gnu packages openldap)
 168   #:use-module (gnu packages package-management)
 169   #:use-module (gnu packages password-utils)
 170   #:use-module (gnu packages pcre)
 171   #:use-module (gnu packages pdf)
 172   #:use-module (gnu packages perl)
 173   #:use-module (gnu packages photo)
 174   #:use-module (gnu packages pkg-config)
 175   #:use-module (gnu packages polkit)
 176   #:use-module (gnu packages popt)
 177   #:use-module (gnu packages pretty-print)
 178   #:use-module (gnu packages protobuf)
 179   #:use-module (gnu packages pulseaudio)
 180   #:use-module (gnu packages python)
 181   #:use-module (gnu packages python-crypto)
 182   #:use-module (gnu packages python-web)
 183   #:use-module (gnu packages python-xyz)
 184   #:use-module (gnu packages rdesktop)
 185   #:use-module (gnu packages rdf)
 186   #:use-module (gnu packages readline)
 187   #:use-module (gnu packages ruby)
 188   #:use-module (gnu packages rust)
 189   #:use-module (gnu packages samba)
 190   #:use-module (gnu packages scanner)
 191   #:use-module (gnu packages sdl)
 192   #:use-module (gnu packages search)
 193   #:use-module (gnu packages selinux)
 194   #:use-module (gnu packages slang)
 195   #:use-module (gnu packages speech)
 196   #:use-module (gnu packages spice)
 197   #:use-module (gnu packages sqlite)
 198   #:use-module (gnu packages ssh)
 199   #:use-module (gnu packages swig)
 200   #:use-module (gnu packages tex)
 201   #:use-module (gnu packages time)
 202   #:use-module (gnu packages tls)
 203   #:use-module (gnu packages valgrind)
 204   #:use-module (gnu packages version-control)
 205   #:use-module (gnu packages video)
 206   #:use-module (gnu packages virtualization)
 207   #:use-module (gnu packages vpn)
 208   #:use-module (gnu packages web)
 209   #:use-module (gnu packages webkit)
 210   #:use-module (gnu packages xdisorg)
 211   #:use-module (gnu packages xiph)
 212   #:use-module (gnu packages xml)
 213   #:use-module (gnu packages xorg)
 214   #:use-module (gnu artwork)
 215   #:use-module (guix build-system cargo)
 216   #:use-module (guix build-system cmake)
 217   #:use-module (guix build-system glib-or-gtk)
 218   #:use-module (guix build-system gnu)
 219   #:use-module (guix build-system meson)
 220   #:use-module (guix build-system python)
 221   #:use-module (guix build-system trivial)
 222   #:use-module (guix download)
 223   #:use-module (guix git-download)
 224   #:use-module ((guix licenses) #:prefix license:)
 225   #:use-module (guix packages)
 226   #:use-module (guix utils)
 227   #:use-module (guix gexp)
 228   #:use-module (ice-9 match)
 229   #:use-module (srfi srfi-1))
 230
 231 (define-public gupnp-igd
 232   (package
 233     (name "gupnp-igd")
 234     (version "1.2.0")
 235     (source
 236      (origin
 237        (method url-fetch)
 238        (uri
 239         (string-append "mirror://gnome/sources/" name "/"
 240                        (version-major+minor version) "/"
 241                        name "-" version ".tar.xz"))
 242        (sha256
 243         (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
 244     (build-system meson-build-system)
 245     (outputs '("out" "doc"))
 246     (arguments
 247      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
 248        #:configure-flags (list "-Dgtk_doc=true")
 249        #:phases
 250        (modify-phases %standard-phases
 251          (add-after 'unpack 'patch-docbook-xml
 252            (lambda* (#:key inputs #:allow-other-keys)
 253              (with-directory-excursion "doc"
 254                (substitute* "gupnp-igd-docs.xml"
 255                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 256                   (string-append (assoc-ref inputs "docbook-xml-4.1.2")
 257                                  "/xml/dtd/docbook/"))))
 258              #t))
 259          (add-before 'check 'set-home
 260            (lambda _
 261              ;; A test using GIO expects ~/.config/glib-2.0/settings to be
 262              ;; writable.
 263              (setenv "HOME" (getcwd))))
 264          (add-after 'install 'move-doc
 265            (lambda* (#:key outputs #:allow-other-keys)
 266              (let* ((out (assoc-ref outputs "out"))
 267                     (doc (assoc-ref outputs "doc")))
 268                (mkdir-p (string-append doc "/share"))
 269                (rename-file
 270                 (string-append out "/share/gtk-doc")
 271                 (string-append doc "/share/gtk-doc"))
 272                #t))))))
 273     (native-inputs
 274      `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
 275        ("docbook-xsl" ,docbook-xsl)
 276        ("glib:bin" ,glib "bin")
 277        ("gobject-introspection" ,gobject-introspection)
 278        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 279        ("gtk-doc" ,gtk-doc/stable)
 280        ("pkg-config" ,pkg-config)))
 281     (propagated-inputs
 282      (list glib glib-networking gssdp gupnp libsoup))
 283     (synopsis "UPnP IGD for GNOME")
 284     (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
 285     (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
 286     (license license:lgpl2.1+)))
 287
 288 (define-public brasero
 289   (package
 290     (name "brasero")
 291     (version "3.12.3")
 292     (source (origin
 293              (method url-fetch)
 294              (uri (string-append "mirror://gnome/sources/brasero/"
 295                                  (version-major+minor version) "/"
 296                                  "brasero-" version ".tar.xz"))
 297              (sha256
 298               (base32
 299                "05gabybkl7xfinwx97i4scp9hic0dlxj7gh03dyj0hd16fp9wx47"))))
 300     (build-system glib-or-gtk-build-system)
 301     (arguments
 302      `(#:configure-flags (list
 303                           (string-append "--with-girdir="
 304                                          (assoc-ref %outputs "out")
 305                                          "/share/gir-1.0")
 306                           (string-append "--with-typelibdir="
 307                                          (assoc-ref %outputs "out")
 308                                          "/lib/girepository-1.0"))
 309        #:phases
 310        (modify-phases %standard-phases
 311          (add-before 'configure 'embed-growisofs-reference
 312            (lambda* (#:key inputs #:allow-other-keys)
 313              (let ((dvd+rw-tools (assoc-ref inputs "dvd+rw-tools")))
 314                (substitute* "plugins/growisofs/burn-growisofs.c"
 315                  (("(\")(growisofs)" _ prefix command)
 316                   (string-append prefix dvd+rw-tools "/bin/" command)))))))))
 317     (propagated-inputs
 318      (list hicolor-icon-theme))
 319     (native-inputs
 320      (list intltool
 321            itstool
 322            `(,glib "bin") ; glib-compile-schemas, etc.
 323            gobject-introspection
 324            pkg-config))
 325     (inputs
 326      (list dvd+rw-tools
 327            glib
 328            gnome-doc-utils
 329            gstreamer
 330            gst-plugins-base
 331            gtk+
 332            libcanberra
 333            libice
 334            libnotify
 335            libsm
 336            libxml2
 337            totem-pl-parser))
 338     (home-page "https://wiki.gnome.org/Apps/Brasero")
 339     (synopsis "CD/DVD burning tool for Gnome")
 340     (description "Brasero is an application to burn CD/DVD for the Gnome
 341 Desktop.  It is designed to be as simple as possible and has some unique
 342 features to enable users to create their discs easily and quickly.")
 343     (license license:gpl2+)))
 344
 345 ;;; Minimal variant, used to break a cycle with Inkscape.
 346 (define-public libcloudproviders-minimal
 347   (package
 348     (name "libcloudproviders-minimal")
 349     (version "0.3.1")
 350     (source
 351      (origin
 352        (method url-fetch)
 353        (uri
 354         (string-append "mirror://gnome/sources/libcloudproviders/"
 355                        (version-major+minor version)
 356                        "/libcloudproviders-" version ".tar.xz"))
 357        (sha256
 358         (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
 359     (build-system meson-build-system)
 360     (arguments
 361      `(#:glib-or-gtk? #t             ; To wrap binaries and/or compile schemas
 362        #:configure-flags (list "-Dintrospection=false"
 363                                "-Denable-gtk-doc=false"
 364                                "-Dvapigen=false")))
 365     (native-inputs
 366      `(("glib:bin" ,glib "bin")
 367        ("pkg-config" ,pkg-config)
 368        ("vala" ,vala)))
 369     (inputs
 370      (list glib glib-networking))
 371     (synopsis "Cloudproviders Integration API")
 372     (description "Libcloudproviders is a DBus API that allows cloud storage sync
 373 clients to expose their services.  Clients such as file managers and desktop
 374 environments can then provide integrated access to the cloud providers
 375 services.")
 376     (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
 377     (license license:lgpl3+)))
 378
 379 (define-public libcloudproviders
 380   (package/inherit libcloudproviders-minimal
 381     (name "libcloudproviders")
 382     (version "0.3.1")
 383     (outputs (cons "doc" (package-outputs libcloudproviders-minimal)))
 384     (arguments
 385      (substitute-keyword-arguments (package-arguments libcloudproviders-minimal)
 386        ((#:configure-flags _)
 387         '(list "-Denable-gtk-doc=true")) ;false by default
 388        ((#:phases phases '%standard-phases)
 389         `(modify-phases %standard-phases
 390            (add-after 'install 'move-doc
 391              (lambda* (#:key outputs #:allow-other-keys)
 392                (let* ((out (assoc-ref outputs "out"))
 393                       (doc (assoc-ref outputs "doc")))
 394                  (mkdir-p (string-append doc "/share"))
 395                  (rename-file
 396                   (string-append out "/share/gtk-doc")
 397                   (string-append doc "/share/gtk-doc")))))))))
 398     (native-inputs
 399      (append
 400          `(("gobject-introspection" ,gobject-introspection)
 401            ("gtk-doc" ,gtk-doc/stable))
 402          (package-native-inputs libcloudproviders-minimal)))))
 403
 404 (define-public libgrss
 405   (package
 406     (name "libgrss")
 407     (version "0.7.0")
 408     (source
 409      (origin
 410        (method url-fetch)
 411        (uri
 412         (string-append "mirror://gnome/sources/" name "/"
 413                        (version-major+minor version) "/"
 414                        name "-" version ".tar.xz"))
 415        (sha256
 416         (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))
 417        (patches
 418         (search-patches "libgrss-CVE-2016-2001.patch"))))
 419     (build-system glib-or-gtk-build-system)
 420     (outputs '("out" "doc"))
 421     (arguments
 422      `(#:configure-flags
 423        (list
 424         "--enable-gtk-doc"
 425         (string-append "--with-html-dir="
 426                        (assoc-ref %outputs "doc")
 427                        "/share/gtk-doc/html"))
 428        #:phases
 429        (modify-phases %standard-phases
 430          (add-after 'unpack 'patch-docbook-xml
 431            (lambda* (#:key inputs #:allow-other-keys)
 432              (with-directory-excursion "doc/reference"
 433                (substitute* "libgrss-docs.sgml"
 434                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 435                   (string-append (assoc-ref inputs "docbook-xml")
 436                                  "/xml/dtd/docbook/"))))
 437              #t)))))
 438     (native-inputs
 439      (list docbook-xml-4.1.2 gobject-introspection gtk-doc/stable
 440            pkg-config))
 441     (propagated-inputs
 442      (list glib libsoup libxml2))
 443     (synopsis "Glib library for feeds")
 444     (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
 445 and other formats.")
 446     (home-page "https://wiki.gnome.org/Projects/Libgrss")
 447     (license license:lgpl3+)))
 448
 449 (define-public gnome-js-common
 450   (package
 451     (name "gnome-js-common")
 452     (version "0.1.2")
 453     (source
 454      (origin
 455        (method url-fetch)
 456        (uri
 457         (string-append "mirror://gnome/sources/" name "/"
 458                        (version-major+minor version) "/"
 459                        name "-" version ".tar.gz"))
 460        (sha256
 461         (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
 462     (build-system glib-or-gtk-build-system)
 463     (arguments
 464      `(#:configure-flags
 465        (list
 466         "--disable-static")))
 467     (native-inputs
 468      `(("gettext" ,gettext-minimal)
 469        ("intltool" ,intltool)
 470        ("pkg-config" ,pkg-config)))
 471     (synopsis "Common JS Modules")
 472     (description "GNOME-JS-Common provides common modules for GNOME JavaScript
 473 bindings.")
 474     (home-page "https://wiki.gnome.org/Projects/Seed")
 475     (license license:gpl3+)))
 476
 477 (define-public seed
 478   (package
 479     (name "seed")
 480     (version "3.8.1")
 481     (source
 482      (origin
 483        (method url-fetch)
 484        (uri
 485         (string-append "mirror://gnome/sources/" name "/"
 486                        (version-major+minor version) "/"
 487                        name "-" version ".tar.xz"))
 488        (sha256
 489         (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
 490        (patches
 491         (search-patches "seed-webkit.patch"))))
 492     (build-system glib-or-gtk-build-system)
 493     (outputs '("out" "doc"))
 494     (arguments
 495      `(#:configure-flags
 496        (list
 497         "--disable-static"
 498         "--enable-xorg-module"
 499         (string-append "--with-html-dir="
 500                        (assoc-ref %outputs "doc")
 501                        "/share/gtk-doc/html")
 502         "--with-webkit=4.0")
 503        #:phases
 504        (modify-phases %standard-phases
 505          ;; The seed-webkit.patch patches configure.ac.
 506          ;; So the source files need to be re-bootstrapped.
 507          (add-after 'unpack 'trigger-bootstrap
 508            (lambda _
 509              (for-each delete-file
 510                        (list
 511                         "configure"
 512                         "Makefile.in"))
 513              #t))
 514          (add-after 'unpack 'patch-tests
 515            (lambda* (#:key outputs #:allow-other-keys)
 516              (substitute* (find-files "." "\\.js$")
 517               (("#!/usr/bin/env seed")
 518                (string-append "#!" (getcwd) "/src/seed")))
 519              #t))
 520          (add-before 'build 'patch-docbook-xml
 521            (lambda* (#:key inputs #:allow-other-keys)
 522              (with-directory-excursion "doc"
 523                (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
 524                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 525                   (string-append (assoc-ref inputs "docbook-xml")
 526                                  "/xml/dtd/docbook/"))))
 527              #t)))))
 528     (native-inputs
 529      `(("autoconf" ,autoconf)
 530        ("automake" ,automake)
 531        ("docbook-xml" ,docbook-xml-4.1.2)
 532        ("gettext" ,gettext-minimal)
 533        ("gobject-introspection" ,gobject-introspection)
 534        ("gtk-doc" ,gtk-doc/stable)
 535        ("intltool" ,intltool)
 536        ("libtool" ,libtool)
 537        ("pkg-config" ,pkg-config)))
 538     (inputs
 539      `(("cairo" ,cairo)
 540        ("dbus" ,dbus)
 541        ("dbus-glib" ,dbus-glib)
 542        ("gnome-js-common" ,gnome-js-common)
 543        ("gtk+" ,gtk+)
 544        ("gtk+-2" ,gtk+-2)
 545        ("libffi" ,libffi)
 546        ("libxml2" ,libxml2)
 547        ("mpfr" ,mpfr)
 548        ("readline" ,readline)
 549        ("sqlite" ,sqlite)
 550        ("xscrnsaver" ,libxscrnsaver)))
 551     (propagated-inputs
 552      `(("glib" ,glib)
 553        ("webkit" ,webkitgtk)))
 554     (synopsis "GObject JavaScriptCore bridge")
 555     (description "Seed is a library and interpreter, dynamically bridging
 556 (through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
 557 GNOME platform.  It serves as something which enables you to write standalone
 558 applications in JavaScript, or easily enable your application to be extensible
 559 in JavaScript.")
 560     (home-page "https://wiki.gnome.org/Projects/Seed")
 561     (license license:lgpl2.0+)))
 562
 563 (define-public libdmapsharing
 564   (package
 565     (name "libdmapsharing")
 566     (version "3.9.10")
 567     (source
 568      (origin
 569        (method url-fetch)
 570        (uri
 571         (string-append "https://www.flyn.org/projects/"
 572                        name "/" name "-" version ".tar.gz"))
 573        (sha256
 574         (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
 575     (build-system glib-or-gtk-build-system)
 576     (outputs '("out" "doc"))
 577     (arguments
 578      `(#:tests? #f                      ; Tests require networking.
 579        #:configure-flags
 580        (list
 581         "--disable-static"
 582         (string-append "--with-html-dir="
 583                        (assoc-ref %outputs "doc")
 584                        "/share/gtk-doc/html"))
 585        #:phases
 586        (modify-phases %standard-phases
 587          (add-after 'unpack 'patch-docbook-xml
 588            (lambda* (#:key inputs #:allow-other-keys)
 589              (with-directory-excursion "doc"
 590                (substitute* "libdmapsharing-4.0-docs.xml"
 591                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 592                   (string-append (assoc-ref inputs "docbook-xml")
 593                                  "/xml/dtd/docbook/"))))
 594              #t)))))
 595     (native-inputs
 596      (list check
 597            docbook-xml-4.3
 598            gobject-introspection
 599            pedansee
 600            pkg-config
 601            vala))
 602     (inputs
 603      `(("avahi" ,avahi)
 604        ("librsvg" ,librsvg)
 605        ("gee" ,libgee)
 606        ("gst-plugins-base" ,gst-plugins-base)
 607        ("gtk+" ,gtk+)))
 608     (propagated-inputs
 609      (list glib glib-networking gstreamer libsoup-minimal-2))
 610     (synopsis "Media management library")
 611     (description "Libdmapsharing is a library which allows programs to access,
 612 share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
 613 It is written in C using GObject and libsoup.")
 614     (home-page "https://launchpad.net/gtx")
 615     (license license:lgpl2.1+)))
 616
 617 (define-public gtx
 618   (package
 619     (name "gtx")
 620     (version "0.2.2")
 621     (source
 622      (origin
 623        (method url-fetch)
 624        (uri
 625         (string-append "https://launchpad.net/gtx/trunk/"
 626                        version "/+download/gtx-" version ".tar.gz"))
 627        (sha256
 628         (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
 629     (build-system glib-or-gtk-build-system)
 630     (outputs '("out" "doc"))
 631     (arguments
 632      `(#:configure-flags
 633        (list
 634         "--disable-static"
 635         "--enable-gtk-doc"
 636         (string-append "--with-html-dir="
 637                        (assoc-ref %outputs "doc")
 638                        "/share/gtk-doc/html"))))
 639     (native-inputs
 640      (list gobject-introspection gtk-doc/stable pkg-config))
 641     (propagated-inputs
 642      (list glib))
 643     (synopsis "GLib Testing Framework")
 644     (description "GTX is a small collection of convenience functions intended to
 645 enhance the GLib testing framework.  With specific emphasis on easing the pain
 646 of writing test cases for asynchronous interactions.")
 647     (home-page "https://launchpad.net/gtx")
 648     (license license:lgpl2.1+)))
 649
 650 (define-public dee
 651   (package
 652     (name "dee")
 653     (version "1.2.7")
 654     (source
 655      (origin
 656        (method url-fetch)
 657        (uri
 658         (string-append "https://launchpad.net/dee/1.0/"
 659                        version "/+download/dee-" version ".tar.gz"))
 660        (sha256
 661         (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
 662        (patches
 663         (search-patches "dee-vapi.patch"))))
 664     (build-system glib-or-gtk-build-system)
 665     (outputs '("out" "doc"))
 666     (arguments
 667      `(#:configure-flags
 668        (list
 669         "--disable-maintainer-flags"
 670         (string-append "--with-pygi-overrides-dir="
 671                        (assoc-ref %outputs "out")
 672                        "/lib/python"
 673                        ,(version-major+minor
 674                          (package-version python))
 675                        "/site-packages/gi/overrides")
 676         (string-append "--with-html-dir="
 677                        (assoc-ref %outputs "doc")
 678                        "/share/gtk-doc/html"))
 679        #:phases
 680        (modify-phases %standard-phases
 681          (add-after 'unpack 'patch-docbook-xml
 682            (lambda* (#:key inputs #:allow-other-keys)
 683              (with-directory-excursion "doc/reference/dee-1.0"
 684                (substitute* "dee-1.0-docs.sgml"
 685                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 686                   (string-append (assoc-ref inputs "docbook-xml")
 687                                  "/xml/dtd/docbook/"))))
 688              #t))
 689          (add-after 'patch-docbook-xml 'disable-failing-tests
 690            (lambda _
 691              (substitute* "tests/test-icu.c"
 692                (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
 693                 "")
 694                (("setup, test_ascii_folder, teardown\\);")
 695                 ""))
 696              #t))
 697          (add-before 'check 'pre-check
 698            (lambda _
 699              ;; Tests require a running dbus-daemon.
 700              (system "dbus-daemon &")
 701              ;; For missing '/etc/machine-id'.
 702              (setenv "DBUS_FATAL_WARNINGS" "0")
 703              #t)))))
 704     (native-inputs
 705      `(("dbus" ,dbus)
 706        ("dbus-test-runner" ,dbus-test-runner)
 707        ("docbook-xml" ,docbook-xml-4.3)
 708        ("gobject-introspection" ,gobject-introspection)
 709        ("gtk-doc" ,gtk-doc/stable)
 710        ;; Would only be required by configure flag "--enable-extended-tests".
 711        ;("gtx" ,gtx)
 712        ("pkg-config" ,pkg-config)
 713        ("pygobject" ,python-pygobject)
 714        ("python" ,python-wrapper)
 715        ("vala" ,vala)))
 716     (inputs
 717      `(("icu" ,icu4c)))
 718     (propagated-inputs
 719      (list glib))
 720     (synopsis "Model to synchronize multiple instances over DBus")
 721     (description "Dee is a library that uses DBus to provide objects allowing
 722 you to create Model-View-Controller type programs across DBus.  It also consists
 723 of utility objects which extend DBus allowing for peer-to-peer discoverability
 724 of known objects without needing a central registrar.")
 725     (home-page "https://launchpad.net/dee")
 726     (license
 727      ;; Dual-licensed
 728      (list
 729       license:lgpl3+
 730       license:gpl3+))))
 731
 732 (define-public zeitgeist
 733   (package
 734     (name "zeitgeist")
 735     (version "1.0.3")
 736     (source
 737      (origin
 738        (method git-fetch)
 739        (uri
 740         (git-reference
 741          (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
 742          (commit
 743           (string-append "v" version))))
 744        (file-name
 745         (git-file-name name version))
 746        (sha256
 747         (base32 "0y6fyzxl5np4yskcxibd0p03h619w9ir907nhf40h02y0pk1kgkp"))))
 748     (build-system glib-or-gtk-build-system)
 749     (arguments
 750      `(#:configure-flags
 751        (list
 752         "--enable-explain-queries"
 753         "--enable-fts"
 754         "--enable-docs")
 755        #:phases
 756        (modify-phases %standard-phases
 757          (add-after 'unpack 'patch-docbook-xml
 758            (lambda* (#:key inputs #:allow-other-keys)
 759              (with-directory-excursion "doc/libzeitgeist"
 760                (substitute* "zeitgeist-gtkdoc-index.sgml"
 761                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 762                   (string-append (assoc-ref inputs "docbook-xml")
 763                                  "/xml/dtd/docbook/"))))
 764              #t))
 765          (add-after 'patch-docbook-xml 'disable-failing-tests
 766            (lambda _
 767              (substitute* "test/direct/Makefile.am"
 768                (("      log-test ")
 769                 ""))
 770              (substitute* "test/c/Makefile.am"
 771                (("      test-log ")
 772                 ""))
 773              #t))
 774          (add-before 'bootstrap 'remove-autogen-script
 775            (lambda _
 776              ;; To honor `autoreconf -vif` by build-system.
 777              (delete-file "autogen.sh")
 778              #t)))))
 779     (native-inputs
 780      `(("autoconf" ,autoconf)
 781        ("automake" ,automake)
 782        ("docbook-xml" ,docbook-xml-4.3)
 783        ("gettext" ,gettext-minimal)
 784        ("gobject-introspection" ,gobject-introspection)
 785        ("gtk-doc" ,gtk-doc/stable)
 786        ("libtool" ,libtool)
 787        ("pkg-config" ,pkg-config)
 788        ("vala" ,vala)
 789        ("xorg-server-for-tests" ,xorg-server-for-tests)))
 790     (inputs
 791      `(("dee-icu" ,dee)
 792        ("gtk+" ,gtk+)
 793        ("json-glib" ,json-glib)
 794        ("sqlite" ,sqlite)
 795        ("telepathy-glib" ,telepathy-glib)
 796        ("python" ,python-wrapper)
 797        ("python-rdflib" ,python-rdflib)
 798        ("xapian-config" ,xapian)))
 799     (propagated-inputs
 800      (list glib))
 801     (synopsis "Desktop Activity Logging")
 802     (description "Zeitgeist is a service which logs the users’s activities and
 803 events, anywhere from files opened to websites visited and conversations.  It
 804 makes this information readily available for other applications to use.  It is
 805 able to establish relationships between items based on similarity and usage
 806 patterns.")
 807     (home-page "https://zeitgeist.freedesktop.org/")
 808     (license
 809      ;; Dual-licensed
 810      (list
 811       license:lgpl2.1+
 812       license:gpl2+))))
 813
 814 (define-public gnome-recipes
 815   (package
 816     (name "gnome-recipes")
 817     (version "2.0.4")
 818     (source (origin
 819               (method git-fetch)
 820               (uri (git-reference
 821                     (url "https://gitlab.gnome.org/GNOME/recipes")
 822                     (commit version)))
 823               (file-name (git-file-name name version))
 824               (sha256
 825                (base32
 826                 "1h049mzqnlcfqwrhmzbq3pzzdglvy2bn9fj1p8wql7a60pn8sr32"))))
 827     (build-system meson-build-system)
 828     (arguments
 829      `(#:glib-or-gtk? #t
 830        #:phases
 831        (modify-phases %standard-phases
 832          (add-after 'unpack 'skip-gtk-update-icon-cache
 833            (lambda _
 834              (substitute* "meson_post_install.py"
 835                (("gtk-update-icon-cache") (which "true")))
 836              #t))
 837          (add-after 'unpack 'unpack-libgd
 838            (lambda* (#:key inputs #:allow-other-keys)
 839              (let ((libgd (assoc-ref inputs "libgd")))
 840                (copy-recursively libgd "subprojects/libgd")
 841                #t))))))
 842     (inputs
 843      `(("glib" ,glib)
 844        ("gnome-autoar" ,gnome-autoar)
 845        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 846        ("gspell" ,gspell)
 847        ("gtk+" ,gtk+)
 848        ("json-glib" ,json-glib)
 849        ("libcanberra" ,libcanberra)
 850        ("libsoup" ,libsoup)
 851        ("rest" ,rest)))
 852     (native-inputs
 853      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
 854        ("gettext" ,gettext-minimal)
 855        ("glib:bin" ,glib "bin")
 856        ("itstool" ,itstool)
 857        ("libgd"
 858         ,(origin
 859            (method git-fetch)
 860            (uri (git-reference
 861                  (url "https://gitlab.gnome.org/GNOME/libgd")
 862                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
 863            (file-name (git-file-name "libgd" version))
 864            (sha256
 865             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
 866        ("pkg-config" ,pkg-config)))
 867     (home-page "https://wiki.gnome.org/Apps/Recipes")
 868     (synopsis "Discover recipes for preparing food")
 869     (description "GNOME Recipes helps you discover what to cook today,
 870 tomorrow, the rest of the week and for special occasions.")
 871     (license license:gpl3+)))
 872
 873 (define-public gnome-photos
 874   (package
 875     (name "gnome-photos")
 876     (version "40.0")
 877     (source
 878      (origin
 879        (method url-fetch)
 880        (uri
 881         (string-append "mirror://gnome/sources/" name "/"
 882                        (version-major version) "/"
 883                        name "-" version ".tar.xz"))
 884        (sha256
 885         (base32
 886          "1bzi79plw6ji6qlckhxnwfnswy6jpnhzmmyanml2i2xg73hp6bg0"))))
 887     (build-system meson-build-system)
 888     (arguments
 889      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
 890        #:glib-or-gtk? #t
 891        #:configure-flags
 892        (list "-Ddogtail=false"     ; Not available
 893              ;; Required for RUNPATH validation.
 894              (string-append "-Dc_link_args=-Wl,-rpath="
 895                             (assoc-ref %outputs "out") "/lib/gnome-photos"))
 896        #:phases
 897        (modify-phases %standard-phases
 898          (add-after 'install 'wrap-gnome-photos
 899            (lambda* (#:key inputs outputs #:allow-other-keys)
 900              (let*
 901                  ((out (assoc-ref outputs "out")))
 902                (wrap-program (string-append out "/bin/gnome-photos")
 903                  `("GRL_PLUGIN_PATH" =
 904                    (,(getenv "GRL_PLUGIN_PATH"))))))))))
 905     (native-inputs
 906      `(("dbus" ,dbus)
 907        ("desktop-file-utils" ,desktop-file-utils)
 908        ("gettext" ,gettext-minimal)
 909        ("git" ,git-minimal)
 910        ("glib:bin" ,glib "bin")
 911        ("gobject-introspection" ,gobject-introspection)
 912        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 913        ("gtk+:bin" ,gtk+ "bin")
 914        ("itstool" ,itstool)
 915        ("pkg-config" ,pkg-config)))
 916     (inputs
 917      `(("babl" ,babl)
 918        ("cairo" ,cairo)
 919        ("librsvg" ,librsvg)
 920        ("gegl" ,gegl)
 921        ("geocode-glib" ,geocode-glib)
 922        ("gexiv2" ,gexiv2)
 923        ("gnome-online-accounts" ,gnome-online-accounts)
 924        ("gnome-online-miners" ,gnome-online-miners)
 925        ("grilo" ,grilo)
 926        ("grilo-plugins" ,grilo-plugins)
 927        ("gtk+" ,gtk+)
 928        ("libdazzle" ,libdazzle)
 929        ("libgdata" ,libgdata)
 930        ("libgfbgraph" ,gfbgraph)
 931        ("libhandy" ,libhandy)
 932        ("libjpeg" ,libjpeg-turbo)
 933        ("libpng" ,libpng)
 934        ("librest" ,rest)
 935        ("pygobject" ,python-pygobject)
 936        ("tracker" ,tracker)
 937        ("tracker-miners" ,tracker-miners)))
 938     (synopsis "Access, organize and share your photos on GNOME desktop")
 939     (description "GNOME Photos is a simple and elegant replacement for using a
 940 file manager to deal with photos.  Enhance, crop and edit in a snap.  Seamless
 941 cloud integration is offered through GNOME Online Accounts.")
 942     (home-page "https://wiki.gnome.org/Apps/Photos")
 943     (license license:gpl3+)))
 944
 945 (define-public gnome-music
 946   (package
 947     (name "gnome-music")
 948     (version "40.1.1")
 949     (source
 950      (origin
 951        (method url-fetch)
 952        (uri
 953         (string-append "mirror://gnome/sources/" name "/"
 954                        (version-major version) "/"
 955                        name "-" version ".tar.xz"))
 956        (sha256
 957         (base32
 958          "0lcdal4qdhclr8961p57xf010y92l6wwmkw86lyi9wy224z6gjr0"))))
 959     (build-system meson-build-system)
 960     (arguments
 961      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
 962        #:glib-or-gtk? #t
 963        #:phases
 964        (modify-phases %standard-phases
 965          (add-after 'install 'wrap-gnome-music
 966            (lambda* (#:key inputs outputs #:allow-other-keys)
 967              (let*
 968                  ((out (assoc-ref outputs "out"))
 969                   (pylib (string-append out "/lib/python"
 970                                         ,(version-major+minor
 971                                           (package-version python))
 972                                         "/site-packages")))
 973                (wrap-program (string-append out "/bin/gnome-music")
 974                  `("GI_TYPELIB_PATH" =
 975                    (,(getenv "GI_TYPELIB_PATH")))
 976                  `("GST_PLUGIN_SYSTEM_PATH" =
 977                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
 978                  `("GRL_PLUGIN_PATH" =
 979                    (,(getenv "GRL_PLUGIN_PATH")))
 980                  `("GUIX_PYTHONPATH" =
 981                    (,(getenv "GUIX_PYTHONPATH") ,pylib)))))))))
 982     (native-inputs
 983      `(("desktop-file-utils" ,desktop-file-utils)
 984        ("gettext" ,gettext-minimal)
 985        ("glib:bin" ,glib "bin")
 986        ("gobject-introspection" ,gobject-introspection)
 987        ("gtk+:bin" ,gtk+ "bin")
 988        ("itstools" ,itstool)
 989        ("pkg-config" ,pkg-config)))
 990     (inputs
 991      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 992        ("grilo" ,grilo)
 993        ("grilo-plugins" ,grilo-plugins)
 994        ("gst-plugins-base" ,gst-plugins-base)
 995        ("gst-plugins-good" ,gst-plugins-good)
 996        ("gstreamer" ,gstreamer)
 997        ("gvfs" ,gvfs)
 998        ("json-glib" ,json-glib)
 999        ("libdazzle" ,libdazzle)
1000        ("libmediaart" ,libmediaart)
1001        ("libsoup" ,libsoup-minimal-2)
1002        ("pycairo" ,python-pycairo)
1003        ("pygobject" ,python-pygobject)
1004        ("tracker" ,tracker)
1005        ("tracker-miners" ,tracker-miners)))
1006     (synopsis "Simple music player for GNOME desktop")
1007     (description "GNOME Music is the new GNOME music playing application that
1008 aims to combine an elegant and immersive browsing experience with simple
1009 and straightforward controls.")
1010     (home-page "https://wiki.gnome.org/Apps/Music")
1011     (license license:gpl2+)))
1012
1013 (define-public portablexdr
1014   (package
1015     (name "portablexdr")
1016     (version "4.9.1")
1017     (source
1018      (origin
1019        (method url-fetch)
1020        (uri
1021         (string-append "https://people.redhat.com/~rjones/" name "/files/"
1022                        name "-" version ".tar.gz"))
1023        (sha256
1024         (base32
1025          "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
1026     (build-system gnu-build-system)
1027     (synopsis "External Data Representation Library")
1028     (description "PortableXDR is an implementation of External Data
1029 Representation (XDR) Library.  It is a standard data serialization format, for
1030 uses such as computer network protocols.  It allows data to be transferred
1031 between different kinds of computer systems.")
1032     (home-page "https://people.redhat.com/~rjones/portablexdr/")
1033     (license
1034      (list
1035       license:gpl2+
1036       license:lgpl2.1+))))
1037
1038 (define-public tepl
1039   (package
1040     (name "tepl")
1041     (version "6.00.0")
1042     (source
1043      (origin
1044        (method url-fetch)
1045        (uri
1046         (string-append "mirror://gnome/sources/" name "/"
1047                        (version-major+minor version) "/"
1048                        name "-" version ".tar.xz"))
1049        (sha256
1050         (base32
1051          "0qvs7s86gqyyrzi0r5fbrj8zczlgv8xhdjswgbgc1afwjnl9fqx8"))))
1052     (build-system meson-build-system)
1053     (arguments
1054      `(#:glib-or-gtk? #t
1055        #:tests? #f))                    ; FIX-ME: Requires gvfs
1056     (native-inputs
1057      (list `(,glib "bin") gobject-introspection pkg-config))
1058     (inputs
1059      (list amtk
1060            glib
1061            gtk+
1062            gtksourceview
1063            libxml2
1064            uchardet))
1065     (synopsis "Text editor product line")
1066     (description "Tepl is a library that eases the development of
1067 GtkSourceView-based text editors and IDEs.")
1068     (home-page "https://wiki.gnome.org/Projects/Tepl")
1069     (license license:lgpl2.1+)))
1070
1071 (define-public tepl-5
1072   (package
1073     (inherit tepl)
1074     (name "tepl")
1075     (version "5.0.1")
1076     (source
1077      (origin
1078        (method url-fetch)
1079        (uri
1080         (string-append "mirror://gnome/sources/" name "/"
1081                        (version-major+minor version) "/"
1082                        name "-" version ".tar.xz"))
1083        (sha256
1084         (base32
1085          "0118j64s4fb350phbgda2rk6sv19rfgglxc7nf248llzc1klj9xi"))))))
1086
1087 (define-public krb5-auth-dialog
1088   (package
1089     (name "krb5-auth-dialog")
1090     (version "3.26.1")
1091     (source
1092      (origin
1093        (method url-fetch)
1094        (uri
1095         (string-append "mirror://gnome/sources/" name "/"
1096                        (version-major+minor version) "/"
1097                        name "-" version ".tar.xz"))
1098        (sha256
1099         (base32
1100          "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1101     (build-system glib-or-gtk-build-system)
1102     (native-inputs
1103      (list intltool itstool libxml2 pkg-config python-wrapper))
1104     (inputs
1105      (list glib gtk+ libnotify mit-krb5 network-manager))
1106     (synopsis "Popup dialogs for Kerberos 5")
1107     (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1108 tickets, and pops up a dialog when they are about to expire.")
1109     (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1110     (license license:gpl2+)))
1111
1112 (define-public notification-daemon
1113   (package
1114     (name "notification-daemon")
1115     (version "3.20.0")
1116     (source
1117      (origin
1118        (method url-fetch)
1119        (uri
1120         (string-append "mirror://gnome/sources/" name "/"
1121                        (version-major+minor version) "/"
1122                        name "-" version ".tar.xz"))
1123        (sha256
1124         (base32
1125          "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1126     (build-system glib-or-gtk-build-system)
1127     (native-inputs
1128      (list intltool pkg-config))
1129     (inputs
1130      (list glib gtk+ libx11))
1131     (synopsis "Notification Daemon for GNOME Desktop")
1132     (description "Notification-Daemon is the server implementation of the
1133 freedesktop.org desktop notification specification.")
1134     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1135     (license license:gpl2+)))
1136
1137 (define-public mm-common
1138   (package
1139     (name "mm-common")
1140     (version "1.0.3")
1141     (source (origin
1142               (method url-fetch)
1143               (uri (string-append "mirror://gnome/sources/mm-common/"
1144                                   (version-major+minor version) "/"
1145                                   "mm-common-" version ".tar.xz"))
1146               (sha256
1147                (base32
1148                 "1x8yvjy0yg17qyhmqws8xh2k8dvzrhpwqz7j1cfwzalrb1i9c5g8"))))
1149     (build-system meson-build-system)
1150     (arguments
1151      `(#:phases
1152        (modify-phases %standard-phases
1153          (add-after 'unpack 'patch
1154            (lambda* (#:key inputs #:allow-other-keys)
1155              (substitute* "util/mm-common-prepare.in"
1156                (("ln") (search-input-file inputs "/bin/ln"))
1157                (("cp") (search-input-file inputs "/bin/cp"))
1158                (("sed") (search-input-file inputs "/bin/sed"))
1159                (("cat") (search-input-file inputs "/bin/cat"))))))))
1160     (native-inputs
1161      `(("coreutils" ,coreutils)
1162        ("gettext" ,gettext-minimal)
1163        ("pkg-config" ,pkg-config)
1164        ("sed" ,sed)))
1165     (inputs
1166      (list python))
1167     (synopsis "Module of GNOME C++ bindings")
1168     (description "The mm-common module provides the build infrastructure
1169 and utilities shared among the GNOME C++ binding libraries.  Release
1170 archives of mm-common include the Doxygen tag file for the GNU C++
1171 Library reference documentation.")
1172     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1173     (license license:gpl2+)))
1174
1175 (define-public phodav
1176   (package
1177    (name "phodav")
1178    (version "2.5")
1179    (source (origin
1180             (method url-fetch)
1181             (uri (string-append "mirror://gnome/sources/" name "/"
1182                                 (version-major+minor version) "/"
1183                                 name "-" version ".tar.xz"))
1184             (sha256
1185              (base32
1186               "045rdzf8isqmzix12lkz6z073b5qvcqq6ad028advm5gf36skw3i"))))
1187    (build-system meson-build-system)
1188    (arguments
1189     `(#:phases
1190       (modify-phases %standard-phases
1191         (add-after 'unpack 'fix-udev-rules-directory
1192           (lambda* (#:key outputs #:allow-other-keys)
1193             (let* ((out   (assoc-ref outputs "out"))
1194                    (rules (string-append out "/lib/udev/rules.d")))
1195               (substitute* "data/meson.build"
1196                 (("udev\\.get_pkgconfig_variable\\('udevdir'\\)")
1197                  (format #f "'~a'" rules))))))
1198         (add-before 'check 'start-virtual-dir-server
1199           ;; The same server when started by tests/virtual-dir returns an
1200           ;; unexpected status (4 instead of 200) and fails a test.  It is
1201           ;; unclear why starting it manually here makes it pass.
1202           (lambda _
1203             (system "tests/virtual-dir-server &"))))))
1204    (native-inputs
1205     `(("docbook-xml" ,docbook-xml-4.3)
1206       ("gettext" ,gettext-minimal)
1207       ("glib:bin" ,glib "bin")
1208       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1209       ("gtk-doc" ,gtk-doc/stable)
1210       ("pkg-config" ,pkg-config)))
1211    (inputs
1212     (list avahi libgudev libsoup))
1213    (synopsis "WebDav server implementation using libsoup")
1214    (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1215 but it is generic enough to be reused in other projects,
1216 in particular in the GNOME desktop.")
1217    (home-page "https://wiki.gnome.org/phodav")
1218    (license license:lgpl2.1+)))
1219
1220 (define-public gnome-color-manager
1221   (package
1222    (name "gnome-color-manager")
1223    (version "3.36.0")
1224    (source (origin
1225             (method url-fetch)
1226             (uri (string-append "mirror://gnome/sources/" name "/"
1227                                 (version-major+minor version) "/"
1228                                 name "-" version ".tar.xz"))
1229             (sha256
1230              (base32
1231               "0fxdng74d8hwhfx1nwl1i4jx9h9f6c2hkyc12f01kqbjcimrxnwx"))))
1232    (build-system meson-build-system)
1233    (arguments
1234     `(#:glib-or-gtk? #t
1235       #:phases
1236        (modify-phases %standard-phases
1237         (add-before
1238          'check 'pre-check
1239          (lambda _
1240            ;; Tests require a running X server.
1241            (system "Xvfb :1 &")
1242            (setenv "DISPLAY" ":1")
1243            #t)))))
1244    (native-inputs
1245     `(("desktop-file-utils" ,desktop-file-utils)
1246       ("gettext" ,gettext-minimal)
1247       ("glib:bin" ,glib "bin")
1248       ("gtk+:bin" ,gtk+ "bin")
1249       ("itstool" ,itstool)
1250       ("pkg-config" ,pkg-config)
1251       ("xorg-server" ,xorg-server-for-tests)))
1252    (inputs
1253     (list adwaita-icon-theme
1254           appstream-glib
1255           colord-gtk
1256           exiv2
1257           gnome-desktop
1258           libcanberra
1259           libexif
1260           libtiff
1261           libxrandr
1262           libxtst
1263           libxxf86vm
1264           vte
1265           xorgproto))
1266    (synopsis "Color profile manager for the GNOME desktop")
1267    (description "GNOME Color Manager is a session framework that makes
1268 it easy to manage, install and generate color profiles
1269 in the GNOME desktop.")
1270    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
1271    (license license:gpl2+)))
1272
1273 (define-public gnome-online-miners
1274   (package
1275     (name "gnome-online-miners")
1276     (version "3.34.0")
1277     (source (origin
1278               (method url-fetch)
1279               (uri (string-append "mirror://gnome/sources/" name "/"
1280                                   (version-major+minor version) "/"
1281                                   name "-" version ".tar.xz"))
1282               (sha256
1283                (base32
1284                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))
1285               (patches
1286                (search-patches
1287                 "gnome-online-miners-tracker-3.patch"))))
1288     (build-system glib-or-gtk-build-system)
1289     (arguments
1290      `(#:phases
1291        (modify-phases %standard-phases
1292          (add-after 'unpack 'fix-configure
1293            (lambda _
1294              (substitute* "configure.ac"
1295                (("AX_CHECK_ENABLE_DEBUG.*")
1296                 ""))))
1297          (add-after 'fix-configure 'autoreconf
1298            (lambda _
1299              (invoke "autoreconf" "-vif"))))))
1300     (native-inputs
1301      `(("autoconf" ,autoconf)
1302        ("automake" ,automake)
1303        ("gettext" ,gettext-minimal)
1304        ("glib:bin" ,glib "bin")
1305        ("gobject-introspection" ,gobject-introspection)
1306        ("gtk+:bin" ,gtk+ "bin")
1307        ("libtool" ,libtool)
1308        ("pkg-config" ,pkg-config)))
1309     (inputs
1310      `(("gnome-online-accounts" ,gnome-online-accounts)
1311        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1312        ("grilo" ,grilo)
1313        ("libgdata" ,libgdata)
1314        ("libgfbgraph" ,gfbgraph)
1315        ("libzapojit" ,libzapojit)
1316        ("rest" ,rest)
1317        ("tracker" ,tracker)))
1318     (synopsis "Web Crawlers for GNOME")
1319     (description "GNOME Online Miners provides a set of crawlers that
1320 go through your online content and index them locally in Tracker.
1321 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1322     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
1323     (license license:gpl2+)))
1324
1325 (define-public gssdp
1326   (package
1327    (name "gssdp")
1328    (version "1.2.3")
1329    (source (origin
1330             (method url-fetch)
1331             (uri (string-append "mirror://gnome/sources/" name "/"
1332                                 (version-major+minor version) "/"
1333                                 name "-" version ".tar.xz"))
1334             (sha256
1335              (base32
1336               "1s57i8a8wnnxnsfl27cq4503dkdlzbrhry5zpg23sfqfffvdqqx2"))))
1337    (build-system meson-build-system)
1338    (native-inputs
1339     `(("gettext" ,gettext-minimal)
1340       ("glib:bin" ,glib "bin")
1341       ("gobject-introspection" ,gobject-introspection)
1342       ("gtk-doc" ,gtk-doc/stable)
1343       ("pkg-config" ,pkg-config)
1344       ("vala" ,vala)))
1345    (inputs
1346     (list gtk+))
1347    (propagated-inputs
1348     ;; The .pc file "Requires" libsoup-2.4.
1349     `(("libsoup" ,libsoup-minimal-2)))
1350    (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1351 Protocol} for GNOME")
1352    (description "This package provides a library to handle resource discovery
1353 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1354 a debugging tool, @command{gssdp-device-sniffer}.")
1355    (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1356    (license license:lgpl2.0+)))
1357
1358 (define-public gupnp
1359   (package
1360    (name "gupnp")
1361    (version "1.2.4")
1362    (source (origin
1363             (method url-fetch)
1364             (uri (string-append "mirror://gnome/sources/" name "/"
1365                                 (version-major+minor version) "/"
1366                                 name "-" version ".tar.xz"))
1367             (sha256
1368              (base32
1369               "1ld7mrpdv9cszmfzh7i19qx4li25j3fr7x1jp38l8phzlmz3187p"))))
1370    (build-system meson-build-system)
1371    (arguments
1372     `(#:phases
1373       (modify-phases %standard-phases
1374         (add-before 'check 'pre-check
1375           (lambda _
1376             ;; Tests require a writable HOME.
1377             (setenv "HOME" (getcwd)))))))
1378    (native-inputs
1379     `(("gettext" ,gettext-minimal)
1380       ("glib:bin" ,glib "bin")
1381       ("gobject-introspection" ,gobject-introspection)
1382       ("gtk-doc" ,gtk-doc/stable)
1383       ("pkg-config" ,pkg-config)
1384       ("vala" ,vala)))
1385    (inputs
1386     (list gssdp gtk+ libsoup))
1387    (propagated-inputs
1388     (list ;; For ‘org.gnome.system.proxy’.
1389           gsettings-desktop-schemas))
1390    (synopsis "PnP API for GNOME")
1391    (description "This package provides GUPnP, an object-oriented framework
1392 for creating UPnP devices and control points, written in C using
1393 @code{GObject} and @code{libsoup}.")
1394    (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1395    (license license:lgpl2.0+)))
1396
1397 (define-public gupnp-dlna
1398   (package
1399    (name "gupnp-dlna")
1400    (version "0.10.5")
1401    (source (origin
1402             (method url-fetch)
1403             (uri (string-append "mirror://gnome/sources/" name "/"
1404                                 (version-major+minor version) "/"
1405                                 name "-" version ".tar.xz"))
1406             (sha256
1407              (base32
1408               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1409    (build-system gnu-build-system)
1410    (native-inputs
1411     (list gettext-minimal
1412           `(,glib "bin")
1413           gobject-introspection
1414           gtk-doc/stable
1415           libxml2
1416           pkg-config
1417           vala))
1418    (inputs
1419     (list gstreamer gupnp))
1420    (propagated-inputs
1421     (list gst-plugins-base gst-plugins-good))
1422    (synopsis "GUPnP DLNA for GNOME")
1423    (description "This package provides a small utility library to
1424 support DLNA-related tasks such as media profile guessing, transcoding to a
1425 given profile, etc.  DLNA is a subset of UPnP A/V.")
1426    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1427    (license license:lgpl2.0+)))
1428
1429 (define-public gupnp-av
1430   (package
1431    (name "gupnp-av")
1432    (version "0.12.11")
1433    (source (origin
1434             (method url-fetch)
1435             (uri (string-append "mirror://gnome/sources/" name "/"
1436                                 (version-major+minor version) "/"
1437                                 name "-" version ".tar.xz"))
1438             (sha256
1439              (base32
1440               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1441    (build-system gnu-build-system)
1442    (native-inputs
1443     (list gettext-minimal
1444           `(,glib "bin")
1445           gobject-introspection
1446           gtk-doc/stable
1447           libxml2
1448           pkg-config
1449           vala))
1450    (inputs
1451     (list gtk+ gupnp))
1452    (synopsis "GUPnP A/V for GNOME")
1453    (description "This package provides a small library for handling
1454 and implementation of UPnP A/V profiles.")
1455    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1456    (license license:lgpl2.0+)))
1457
1458 (define-public libmediaart
1459   (package
1460     (name "libmediaart")
1461     (version "1.9.5")
1462     (source (origin
1463               (method url-fetch)
1464               (uri (string-append "mirror://gnome/sources/" name "/"
1465                                   (version-major+minor version) "/"
1466                                   name "-" version ".tar.xz"))
1467               (sha256
1468                (base32
1469                 "1mlw1qgj8nkd9ll6b6h54r1gfdy3zp8a8xqz7qfyfaj85jjgbph7"))))
1470     (build-system meson-build-system)
1471     (native-inputs
1472      (list `(,glib "bin") pkg-config))
1473     (inputs
1474      (list gdk-pixbuf gettext-minimal gobject-introspection
1475            `(,gtk+ "doc") vala))
1476     (synopsis "Media art library for the GNOME desktop")
1477     (description
1478      "The libmediaart library is the foundation for media art caching,
1479 extraction, and lookup for applications on the desktop.")
1480     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1481     (license license:lgpl2.1+)))
1482
1483 (define-public gnome-initial-setup
1484   (package
1485    (name "gnome-initial-setup")
1486    (version "40.4")
1487    (source (origin
1488             (method url-fetch)
1489            (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1490                                 (version-major version)
1491                                 "/gnome-initial-setup-" version ".tar.xz"))
1492             (sha256
1493              (base32
1494               "06q3p4f8g9zr7a4mw3qr556mi0dg9qzrj8n46ybdz93fxs26aaj1"))))
1495    (build-system meson-build-system)
1496    (arguments
1497     `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
1498       #:configure-flags '(;; Enable camera support for user selfie.
1499                           "-Dcheese=auto"
1500                           "-Dsystemd=false")
1501       #:phases (modify-phases %standard-phases
1502                  (add-after 'unpack 'set-gkbd-file-name
1503                    (lambda* (#:key inputs #:allow-other-keys)
1504                      ;; Allow the "Preview" button in the keyboard layout
1505                      ;; selection dialog to display the layout.
1506                      (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
1507                        (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1508                          (("\"gkbd-keyboard-display")
1509                           (string-append "\"" libgnomekbd
1510                                          "/bin/gkbd-keyboard-display")))
1511                        #t))))))
1512    (native-inputs
1513     `(("gettext" ,gettext-minimal)
1514       ("glib:bin" ,glib "bin")
1515       ("gobject-introspection" ,gobject-introspection)
1516       ("gtk+:bin" ,gtk+ "bin")
1517       ("pkg-config" ,pkg-config)))
1518    (inputs
1519     `(("accountsservice" ,accountsservice)
1520       ;("adwaita-icon-theme" ,adwaita-icon-theme)
1521       ("elogind" ,elogind)
1522       ("gdm" ,gdm)
1523       ("geoclue" ,geoclue)
1524       ("gnome-desktop" ,gnome-desktop)
1525       ("gnome-online-accounts" ,gnome-online-accounts)
1526       ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1527       ("gstreamer" ,gstreamer)
1528       ("ibus" ,ibus)
1529       ("json-glib" ,json-glib)
1530       ("krb5" ,mit-krb5)
1531       ("libgweather" ,libgweather)
1532       ("libnma" ,libnma)
1533       ("libsecret" ,libsecret)
1534       ("network-manager" ,network-manager)
1535       ("packagekit" ,packagekit)
1536       ("polkit" ,polkit)
1537       ("pwquality" ,libpwquality)
1538       ("rest" ,rest)
1539       ("upower" ,upower)
1540       ("webkitgtk" ,webkitgtk-with-libsoup2)
1541       ("libgnomekbd" ,libgnomekbd)))
1542    (synopsis "Initial setup wizard for GNOME desktop")
1543    (description "This package provides a set-up wizard when a
1544 user logs into GNOME for the first time.  It typically provides a
1545 tour of all gnome components and allows the user to set them up.")
1546    (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1547    (license license:gpl2)))
1548
1549 (define-public gnome-user-share
1550   (package
1551    (name "gnome-user-share")
1552    (version "3.34.0")
1553    (source (origin
1554             (method url-fetch)
1555             (uri (string-append "mirror://gnome/sources/" name "/"
1556                                 (version-major+minor version) "/"
1557                                 name "-" version ".tar.xz"))
1558             (sha256
1559              (base32
1560               "04r9ck9v4i0d31grbli1d4slw2d6dcsfkpaybkwbzi7wnj72l30x"))))
1561    (build-system meson-build-system)
1562    (arguments
1563     `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
1564       #:glib-or-gtk? #t
1565       #:configure-flags
1566        `("-Dsystemduserunitdir=/tmp/empty"
1567          ;; Enable nautilus extension for file sharing.
1568          "-Dnautilus_extension=true")))
1569    (native-inputs
1570     `(("gettext" ,gettext-minimal)
1571       ("glib:bin" ,glib "bin")
1572       ("gobject-introspection" ,gobject-introspection)
1573       ("gtk+:bin" ,gtk+ "bin")
1574       ("pkg-config" ,pkg-config)
1575       ("yelp-tools" ,yelp-tools)))
1576    (inputs
1577     (list glib
1578           gnome-bluetooth
1579           gtk+
1580           libcanberra
1581           libnotify
1582           nautilus))      ; For nautilus extension.
1583    (synopsis "File sharing for GNOME desktop")
1584    (description "GNOME User Share is a small package that binds together
1585 various free software projects to bring easy to use user-level file
1586 sharing to the masses.")
1587    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
1588    (license license:gpl2+)))
1589
1590 (define-public sushi
1591   (package
1592     (name "sushi")
1593     (version "3.38.1")
1594     (source (origin
1595               (method url-fetch)
1596               (uri (string-append "mirror://gnome/sources/" name "/"
1597                                   (version-major+minor version) "/"
1598                                   name "-" version ".tar.xz"))
1599               (sha256
1600                (base32
1601                 "1sc8i0vrw6bn43rklnwp2fl1gq0r0xfd3bszcqxd0a2mh46d3rpk"))))
1602     (build-system meson-build-system)
1603     (arguments
1604      `(#:glib-or-gtk? #t
1605        #:phases
1606        (modify-phases %standard-phases
1607          (add-after 'glib-or-gtk-wrap 'wrap-typelib
1608            (lambda* (#:key outputs #:allow-other-keys)
1609              (let ((prog (string-append (assoc-ref outputs "out")
1610                                         "/bin/sushi")))
1611                ;; Put existing typelibs before sushi's deps, so as to
1612                ;; correctly infer gdk-pixbuf.
1613                (wrap-program prog
1614                  `("GI_TYPELIB_PATH" suffix
1615                    (,(getenv "GI_TYPELIB_PATH"))))))))))
1616     (native-inputs
1617      `(("glib:bin" ,glib "bin")
1618        ("gettext" ,gettext-minimal)
1619        ("gobject-introspection" ,gobject-introspection)
1620        ("pkg-config" ,pkg-config)))
1621     (inputs
1622      `(("clutter" ,clutter)
1623        ("clutter-gst" ,clutter-gst)
1624        ("clutter-gtk" ,clutter-gtk)
1625        ("evince" ,evince)                         ; For file previewing.
1626        ("freetype" ,freetype)
1627        ("gdk-pixbuf" ,gdk-pixbuf)
1628        ("gjs" ,gjs)
1629        ("gst-plugins-base" ,gst-plugins-base)
1630        ("gstreamer" ,gstreamer)
1631        ("gtksourceview" ,gtksourceview)
1632        ("harfbuzz" ,harfbuzz)
1633        ("libepoxy" ,libepoxy)
1634        ("libmusicbrainz" ,libmusicbrainz)
1635        ("libxml2" ,libxml2)
1636        ("neon" ,neon)
1637        ("webkitgtk" ,webkitgtk-with-libsoup2)))
1638     (synopsis "File previewer for the GNOME desktop")
1639     (description "Sushi is a DBus-activated service that allows applications
1640 to preview files on the GNOME desktop.")
1641     (home-page "https://gitlab.gnome.org/GNOME/sushi")
1642     (license license:gpl2+)))
1643
1644 (define-public rygel
1645   (package
1646     (name "rygel")
1647     (version "0.40.1")
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                 "0bd3d2swa8lq47b9r04x8xwdr9nhjnrwqi6scygd134wb5vxfh22"))))
1656     (build-system meson-build-system)
1657     (arguments
1658      ;; Disable the tracker plugin.
1659      '(#:configure-flags
1660        (list "-Dplugins=external,gst-launch,lms,media-export,
1661 mpris,playbin,ruih,tracker3")))
1662     (native-inputs
1663      `(("gettext" ,gettext-minimal)
1664        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
1665        ("gobject-introspection" ,gobject-introspection)
1666        ("gtk-doc" ,gtk-doc/stable)
1667        ("pkg-config" ,pkg-config)
1668        ("vala" ,vala)
1669        ("docbook-xml" ,docbook-xml)
1670        ("dockbook-xsl" ,docbook-xsl)
1671        ("xsltproc" ,libxslt)))
1672     (inputs
1673      (list gdk-pixbuf
1674            gssdp
1675            gstreamer
1676            gst-plugins-base
1677            gst-editing-services
1678            gtk+
1679            gupnp
1680            gupnp-av
1681            gupnp-dlna
1682            json-glib
1683            libgee
1684            libmediaart
1685            libsoup
1686            libxslt
1687            libunistring
1688            tracker))
1689     (synopsis "Share audio, video, and pictures with other devices")
1690     (description
1691      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1692 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1693 pictures, and to control a media player on your home network.
1694
1695 Rygel achieves interoperability with other devices by trying to conform to the
1696 strict requirements of DLNA and by converting media on-the-fly to formats that
1697 client devices can handle.")
1698     (home-page "https://wiki.gnome.org/Projects/Rygel")
1699     (license (list
1700               ;; For logo (data/icons/*).
1701               license:cc-by-sa3.0
1702               ;; For all others.
1703               license:lgpl2.1+))))
1704
1705 (define-public libnma
1706   (package
1707     (name "libnma")
1708     (version "1.8.28")
1709     (source (origin
1710               (method url-fetch)
1711               (uri (string-append "mirror://gnome/sources/" name "/"
1712                                   (version-major+minor version) "/"
1713                                   name "-" version ".tar.xz"))
1714               (sha256
1715                (base32
1716                 "09mp6k0hfam1vyyv9kcd8j4gb2r58i05ipx2nswb58ris599bxja"))))
1717     (build-system meson-build-system)
1718     (arguments
1719      `(#:phases
1720        (modify-phases %standard-phases
1721          (add-after 'unpack 'patch-docbook-xml
1722            (lambda* (#:key inputs #:allow-other-keys)
1723              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1724                                           "/xml/dtd/docbook")))
1725                (substitute* "libnma-docs.xml"
1726                  (("http://.*/docbookx\\.dtd")
1727                   (string-append xmldoc "/docbookx.dtd")))
1728                #t))))))
1729     (native-inputs
1730      `(("docbook-xml" ,docbook-xml-4.3)
1731        ("gettext" ,gettext-minimal)
1732        ("glib:bin" ,glib "bin")
1733        ("gtk-doc" ,gtk-doc/stable)
1734        ("gobject-introspection" ,gobject-introspection)
1735        ("pkg-config" ,pkg-config)
1736        ("vala" ,vala)))
1737     (inputs
1738      (list gcr gtk+ iso-codes mobile-broadband-provider-info
1739            network-manager))
1740     (synopsis "Network Manager's applet library")
1741     (description "Libnma is an applet library for Network Manager.  It was
1742 initially part of network-manager-applet and has now become a separate
1743 project.")
1744     (home-page "https://gitlab.gnome.org/GNOME/libnma")
1745     ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1746     ;; "LGPL-2.1+".
1747     (license license:gpl2+)))
1748
1749 (define-public gnome-menus
1750   (package
1751     (name "gnome-menus")
1752     (version "3.36.0")
1753     (source (origin
1754               (method url-fetch)
1755               (uri (string-append "mirror://gnome/sources/gnome-menus/"
1756                                   (version-major+minor version) "/"
1757                                   name "-" version ".tar.xz"))
1758               (sha256
1759                (base32
1760                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
1761     (build-system gnu-build-system)
1762     (native-inputs
1763      (list gettext-minimal glib pkg-config))
1764     (synopsis "Menu support for GNOME desktop")
1765     (description "GNOME Menus contains the libgnome-menu library, the layout
1766 configuration files for the GNOME menu, as well as a simple menu editor.")
1767     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
1768     (license license:lgpl2.0+)))
1769
1770 (define-public deja-dup
1771   (package
1772     (name "deja-dup")
1773     (version "42.8")
1774     (source (origin
1775               (method url-fetch)
1776               (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1777                                   version "/deja-dup-" version ".tar.bz2"))
1778               (sha256
1779                (base32
1780                 "0d1jnlxpk52x56aqxz1g2xb4y4sm24h08p2di8mc1k8n8b52rpi4"))))
1781     (build-system meson-build-system)
1782     (arguments
1783      `(#:glib-or-gtk? #t
1784        #:configure-flags
1785        (list
1786         ;; Otherwise, the RUNPATH will lack the final path component.
1787         (string-append "-Dc_link_args=-Wl,-rpath="
1788                        (assoc-ref %outputs "out") "/lib/deja-dup"))
1789        #:phases
1790        (modify-phases %standard-phases
1791          (add-after 'unpack 'patch-paths
1792            (lambda* (#:key inputs #:allow-other-keys)
1793              (let ((python (assoc-ref inputs "python")))
1794                (substitute* '("libdeja/tools/duplicity/DuplicityInstance.vala"
1795                               "libdeja/tests/scripts/instance-error.test")
1796                  (("/bin/rm")
1797                   (which "rm")))
1798                (substitute* "libdeja/tests/runner.vala"
1799                  (("/bin/sh")
1800                   (which "sh")))
1801                (substitute* "libdeja/tests/scripts/instance-error.test"
1802                  (("`which python3`")
1803                   (string-append python "/bin/python3"))))))
1804          (add-after 'unpack 'patch-libgpg-error
1805            (lambda* (#:key inputs #:allow-other-keys)
1806              (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1807                (substitute* "meson.build"
1808                  (("(gpgerror_libs = ).*" _ var)
1809                   (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))
1810              #t))
1811          (add-after 'unpack 'skip-gtk-update-icon-cache
1812            ;; Don't create 'icon-theme.cache'.
1813            (lambda _
1814              (substitute* "data/post-install.sh"
1815                (("gtk-update-icon-cache") "true"))
1816              #t))
1817          (add-after 'install 'wrap-program
1818            (lambda* (#:key inputs outputs #:allow-other-keys)
1819              ;; Add duplicity to the search path
1820              (wrap-program (string-append (assoc-ref outputs "out")
1821                                           "/bin/deja-dup")
1822                `("PATH" ":" prefix
1823                  (,(string-append (assoc-ref inputs "duplicity") "/bin")))))))))
1824     (inputs
1825      `(("bash-minimal" ,bash-minimal)
1826        ("duplicity" ,duplicity)
1827        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1828        ("gtk+" ,gtk+)
1829        ("json-glib" ,json-glib)
1830        ("libgpg-error" ,libgpg-error)
1831        ("libnotify" ,libnotify)
1832        ("libsecret" ,libsecret)
1833        ("libsoup" ,libsoup-minimal-2)
1834        ("libhandy" ,libhandy)
1835        ("packagekit" ,packagekit)
1836        ("python" ,python)
1837        ("python-pygobject" ,python-pygobject)))
1838     (native-inputs
1839      `(("appstream-glib" ,appstream-glib)
1840        ("desktop-file-utils" ,desktop-file-utils)
1841        ("gettext" ,gettext-minimal)
1842        ("glib" ,glib "bin")             ; for glib-compile-schemas.
1843        ("gobject-introspection" ,gobject-introspection)
1844        ("itstool" ,itstool)
1845        ("pkg-config" ,pkg-config)
1846        ("vala" ,vala)))
1847     (home-page "https://wiki.gnome.org/Apps/DejaDup")
1848     (synopsis "Simple backup tool, for regular encrypted backups")
1849     (description
1850      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
1851 uses duplicity as the backend, which supports incremental backups and storage
1852 either on a local, or remote machine via a number of methods.")
1853     (license license:gpl3+)))
1854
1855 (define-public gnome-commander
1856   (package
1857     (name "gnome-commander")
1858     (version "1.12.3.1")
1859     (source
1860      (origin
1861        (method url-fetch)
1862        (uri (string-append "mirror://gnome/sources/" name "/"
1863                            (version-major+minor version)  "/"
1864                            "gnome-commander-" version ".tar.xz"))
1865        (sha256
1866         (base32 "0fhmfxh6kbchggvpbin7d4g4fq5vc49y0w48wdkyxln5dswidss2"))))
1867     (build-system glib-or-gtk-build-system)
1868     (native-inputs
1869      (list desktop-file-utils
1870            gettext-minimal
1871            `(,glib "bin")
1872            gobject-introspection
1873            googletest
1874            intltool
1875            itstool
1876            libtool
1877            pkg-config))
1878     (inputs
1879      (list gconf gnome-vfs gtk+-2 libxml2))
1880     (home-page "https://gcmd.github.io/")
1881     (synopsis "Two-pane graphical file manager for the GNOME desktop")
1882     (description
1883      "GNOME Commander is a two-pane graphical file manager using GNOME
1884 libraries.  It aims to fulfill the demands of more advanced users who
1885 like to focus on file management, their work through special applications
1886 and running smart commands.")
1887     (license license:gpl2+)))
1888
1889 (define-public gnome-user-docs
1890   (package
1891    (name "gnome-user-docs")
1892    (version "40.5")
1893    (source
1894     (origin
1895       (method url-fetch)
1896       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1897                           (version-major version)
1898                           "/gnome-user-docs-" version ".tar.xz"))
1899       (sha256
1900        (base32 "0p6ysdqlfc7vvzsrcanl9bhsc7666sv42xxzpbgsf5j55z3yrkpr"))))
1901    (build-system gnu-build-system)
1902    (native-inputs
1903     (list gettext-minimal itstool pkg-config libxml2))
1904    (synopsis "User documentation for the GNOME desktop")
1905    (description
1906     "The GNOME User Documentation explains how to use the GNOME desktop and its
1907 components.  It covers usage and setup of the core GNOME programs by end-users
1908 and system administrators.")
1909    (home-page "https://live.gnome.org/DocumentationProject")
1910    (license license:cc-by3.0)))
1911
1912 (define-public dia
1913   ;; This version from GNOME's repository includes fixes for compiling with
1914   ;; recent versions of the build tools.  The latest activity on the
1915   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
1916   ;; fixes since.
1917   (let ((commit "3cf7ec4c2e5bca139a7f3e17f9fc9009c237fcc5")
1918         (revision "2"))
1919     (package
1920       (name "dia")
1921       (version (git-version "0.97.3" revision commit))
1922       (source (origin
1923                 (method git-fetch)
1924                 (uri (git-reference
1925                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
1926                       (commit commit)))
1927                 (file-name (git-file-name name version))
1928                 (sha256
1929                  (base32
1930                   "04r8dspa6nmicrifhi3sh46hqvyy88hzq37xx99q3q1mwsrpmwy8"))))
1931       (build-system meson-build-system)
1932       (inputs
1933        (list graphene
1934              gtk+-2
1935              libxml2
1936              libxslt
1937              poppler
1938              ;; Without Python 2, build fails: plug-ins/python/meson.build:4:0:
1939              ;; ERROR: Unknown method "dependency" in object.
1940              python-2))
1941       (native-inputs
1942        (list appstream-glib docbook-xsl
1943              `(,glib "bin") intltool pkg-config))
1944       (home-page "https://wiki.gnome.org/Apps/Dia")
1945       (synopsis "Diagram creation for GNOME")
1946       (description "Dia can be used to draw different types of diagrams, and
1947 includes support for UML static structure diagrams (class diagrams), entity
1948 relationship modeling, and network diagrams.  The program supports various file
1949 formats like PNG, SVG, PDF and EPS.")
1950       (license license:gpl2+))))
1951
1952 (define-public libgdata
1953   (package
1954     (name "libgdata")
1955     (version "0.18.1")
1956     (source (origin
1957               (method url-fetch)
1958               (uri (string-append "mirror://gnome/sources/" name "/"
1959                                   (version-major+minor version)  "/"
1960                                   name "-" version ".tar.xz"))
1961               (sha256
1962                (base32
1963                 "1iq4d1qy0vkmy29xvr13dgz4pxvn5v3yi2swryld0ajinvp951fx"))))
1964     (build-system meson-build-system)
1965     (arguments
1966      '(#:phases
1967        (modify-phases %standard-phases
1968          (add-before 'check 'set-home-for-tests
1969            (lambda _
1970              (setenv "HOME" "/tmp"))))))
1971     (native-inputs
1972      `(("glib:bin" ,glib "bin")
1973        ("gobject-introspection" ,gobject-introspection)
1974        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1975        ("intltool" ,intltool)
1976        ("pkg-config" ,pkg-config)
1977        ("uhttpmock" ,uhttpmock)))
1978     (inputs
1979      (list cyrus-sasl glib-networking vala))
1980     (propagated-inputs
1981      `(("gcr" ,gcr)
1982        ("glib" ,glib)
1983        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1984        ("json-glib" ,json-glib)
1985        ("liboauth" ,liboauth)
1986        ("libsoup" ,libsoup-minimal-2)
1987        ("libxml2" ,libxml2)))
1988     (home-page "https://wiki.gnome.org/Projects/libgdata")
1989     (synopsis "Library for accessing online service APIs")
1990     (description
1991      "libgdata is a GLib-based library for accessing online service APIs using
1992 the GData protocol — most notably, Google's services.  It provides APIs to
1993 access the common Google services, and has full asynchronous support.")
1994     (license license:lgpl2.1+)))
1995
1996 (define-public libgxps
1997   (package
1998     (name "libgxps")
1999     (version "0.3.2")
2000     (source (origin
2001               (method url-fetch)
2002               (uri (string-append "mirror://gnome/sources/" name "/"
2003                                   (version-major+minor version) "/"
2004                                   name "-" version ".tar.xz"))
2005               (sha256
2006                (base32
2007                 "07156nj7yrp3h9zyzx6mjwxwmfijialb4gi5d6dwyp53arr8c9vd"))))
2008     (build-system meson-build-system)
2009     (native-inputs
2010      (list gobject-introspection pkg-config))
2011     (inputs
2012      (list gtk+ libjpeg-turbo lcms libtiff))
2013     (propagated-inputs
2014      ;; In Requires of libgxps.pc.
2015      (list cairo glib libarchive))
2016     (home-page "https://wiki.gnome.org/Projects/libgxps")
2017     (synopsis "GObject-based library for handling and rendering XPS documents")
2018     (description
2019      "libgxps is a GObject-based library for handling and rendering XPS
2020 documents.  This package also contains binaries that can convert XPS documents
2021 to other formats.")
2022     (license license:lgpl2.1+)))
2023
2024 (define-public gnome-characters
2025   (package
2026     (name "gnome-characters")
2027     (version "40.0")
2028     (source
2029      (origin
2030        (method url-fetch)
2031        (uri (string-append "mirror://gnome/sources/"
2032                            "gnome-characters/" (version-major version)
2033                            "/gnome-characters-" version ".tar.xz"))
2034        (sha256
2035         (base32
2036          "0z2xa4w921bzpzj6gv88pvbrijcnnwni6jxynwz0ybaravyzaqha"))))
2037     (build-system meson-build-system)
2038     (arguments
2039      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
2040        #:glib-or-gtk? #t
2041        #:phases (modify-phases %standard-phases
2042                   (add-after 'install 'wrap
2043                     (lambda* (#:key outputs #:allow-other-keys)
2044                       ;; GNOME Characters needs Typelib files from GTK and
2045                       ;; gnome-desktop.
2046                       (wrap-program (string-append (assoc-ref outputs "out")
2047                                                    "/bin/gnome-characters")
2048                         `("GI_TYPELIB_PATH" ":" prefix
2049                           (,(getenv "GI_TYPELIB_PATH")))))))))
2050     (native-inputs
2051      `(("gettext" ,gettext-minimal)
2052        ("glib:bin" ,glib "bin")
2053        ("gtk+:bin" ,gtk+ "bin")
2054        ("pkg-config" ,pkg-config)
2055        ("python" ,python-minimal)))
2056     (inputs
2057      (list gjs gtk+ libhandy libunistring gnome-desktop))
2058     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
2059     (synopsis "Find and insert unusual characters")
2060     (description "Characters is a simple utility application to find
2061 and insert unusual characters.  It allows you to quickly find the
2062 character you are looking for by searching for keywords.")
2063     (license license:bsd-3)))
2064
2065 (define-public gnome-common
2066   (package
2067     (name "gnome-common")
2068     (version "3.18.0")
2069     (source
2070      (origin
2071        (method url-fetch)
2072        (uri (string-append "mirror://gnome/sources/" name "/"
2073                            (version-major+minor version)  "/"
2074                            name "-" version ".tar.xz"))
2075        (sha256
2076         (base32
2077          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
2078     (build-system gnu-build-system)
2079     (home-page "https://www.gnome.org/")
2080     (synopsis "Bootstrap GNOME modules built from Git")
2081     (description "gnome-common contains various files needed to bootstrap
2082 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
2083 can be used to configure a source directory checked out from Git and some
2084 commonly used macros.")
2085     (license license:gpl2+)))
2086
2087 (define-public gnome-contacts
2088   (package
2089     (name "gnome-contacts")
2090     (version "40.0")
2091     (source (origin
2092               (method url-fetch)
2093               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2094                                   (version-major version) "/"
2095                                   name "-" version ".tar.xz"))
2096               (sha256
2097                (base32
2098                 "0w2g5xhw65adzvwzakrj5kaim4sw1w7s8qqwm3nm6inq50znzpn9"))))
2099     (build-system meson-build-system)
2100     (arguments
2101      `(#:configure-flags '("-Dcheese=disabled")
2102        #:phases
2103        (modify-phases %standard-phases
2104          (add-after 'unpack 'generate-vapis
2105            (lambda* (#:key inputs #:allow-other-keys)
2106              ;; To generate goa's missing .vapi file
2107              (define goa
2108                (assoc-ref inputs "gnome-online-accounts:lib"))
2109
2110              (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
2111                      "--library=goa-1.0"
2112                      (string-append goa "/share/gir-1.0/Goa-1.0.gir"))))
2113          (add-after 'unpack 'skip-gtk-update-icon-cache
2114            ;; Don't create 'icon-theme.cache'.
2115            (lambda _
2116              (substitute* "build-aux/meson_post_install.py"
2117                (("gtk-update-icon-cache") "true")))))))
2118     (native-inputs
2119      `(("docbook-xml" ,docbook-xml-4.2)
2120        ("docbook-xsl" ,docbook-xsl)
2121        ("glib:bin" ,glib "bin")
2122        ("pkg-config" ,pkg-config)))
2123     (inputs
2124      `(("docbook-xml" ,docbook-xml)
2125        ("dockbook-xsl" ,docbook-xsl)
2126        ("evolution-data-server" ,evolution-data-server)
2127        ("gettext" ,gettext-minimal)
2128        ("gnome-desktop" ,gnome-desktop)
2129        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2130        ("gobject-introspection" ,gobject-introspection)
2131        ("gst-plugins-base" ,gst-plugins-base)
2132        ("gtk+" ,gtk+)
2133        ("libgee" ,libgee)
2134        ("libhandy" ,libhandy)
2135        ("libxslt" ,libxslt)
2136        ("telepathy-glib" ,telepathy-glib)
2137        ("vala" ,vala)))
2138     (propagated-inputs
2139      (list folks telepathy-mission-control))
2140     (synopsis "GNOME's integrated address book")
2141     (description
2142      "GNOME Contacts organizes your contact information from online and
2143 offline sources, providing a centralized place for managing your contacts.")
2144     (home-page "https://wiki.gnome.org/Apps/Contacts")
2145     (license license:gpl2+)))
2146
2147 (define-public gnome-desktop
2148   (package
2149     (name "gnome-desktop")
2150     (version "40.4")
2151     (source
2152      (origin
2153       (method url-fetch)
2154       (uri (string-append "mirror://gnome/sources/" name "/"
2155                           (version-major version)  "/"
2156                           name "-" version ".tar.xz"))
2157       (sha256
2158        (base32
2159         "1vs5knn2yj6a449p9bn5w5407i1yvxfxg8xv844qgl70hpsrdbl8"))))
2160     (build-system meson-build-system)
2161     (arguments
2162      '(#:phases
2163        (modify-phases %standard-phases
2164          (add-before 'configure 'patch-path
2165            (lambda* (#:key inputs #:allow-other-keys)
2166              (let ((libc   (assoc-ref inputs "libc")))
2167                (substitute* "libgnome-desktop/gnome-languages.c"
2168                  (("\"locale\"")
2169                   (string-append "\"" libc "/bin/locale\"")))
2170                #t)))
2171          (add-before 'configure 'patch-bubblewrap
2172            (lambda* (#:key inputs #:allow-other-keys)
2173              (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2174                (("\"bwrap\",")
2175                 (string-append "\"" (which "bwrap") "\","))
2176                (("\"--ro-bind\", \"/usr\", \"/usr\",")
2177                 (string-append "\"--ro-bind\", \""
2178                                (%store-directory)
2179                                "\", \""
2180                                (%store-directory)
2181                                "\","))
2182                (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",") ""))
2183              #t))
2184          (add-before 'check 'pre-check
2185            (lambda* (#:key inputs #:allow-other-keys)
2186              ;; Tests require a running X server and locales.
2187              (system "Xvfb :1 &")
2188              (setenv "DISPLAY" ":1")
2189              (setenv "XDG_CACHE_HOME" "/tmp/xdg-cache")
2190              (setenv "XDG_CONFIG_HOME" "/tmp")
2191              (setenv "GUIX_LOCPATH"
2192                      (search-input-directory inputs
2193                                              "lib/locale")))))))
2194     (native-inputs
2195      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
2196        ("glibc-locales" ,glibc-locales) ; for tests
2197        ("gobject-introspection" ,gobject-introspection)
2198        ("itstool" ,itstool)
2199        ("intltool" ,intltool)
2200        ("pkg-config" ,pkg-config)
2201        ("xmllint" ,libxml2)
2202        ("xorg-server" ,xorg-server-for-tests)))
2203     (propagated-inputs
2204      ;; Required by gnome-desktop-3.0.pc.
2205      (list gsettings-desktop-schemas
2206            gtk+
2207            iso-codes
2208            libseccomp
2209            libx11
2210            xkeyboard-config))
2211     (inputs
2212      (list gdk-pixbuf
2213            glib
2214            bubblewrap
2215            libxext
2216            libxkbfile
2217            libxrandr))
2218     (home-page "https://www.gnome.org/")
2219     (synopsis
2220      "Libgnome-desktop, gnome-about, and desktop-wide documents")
2221     (description
2222      "The libgnome-desktop library provides API shared by several applications
2223 on the desktop, but that cannot live in the platform for various reasons.
2224 There is no API or ABI guarantee, although we are doing our best to provide
2225 stability.  Documentation for the API is available with gtk-doc.
2226
2227 The gnome-about program helps find which version of GNOME is installed.")
2228     ; Some bits under the LGPL.
2229     (license license:gpl2+)))
2230
2231 (define-public gnome-doc-utils
2232   (package
2233     (name "gnome-doc-utils")
2234     (version "0.20.10")
2235     (source
2236      (origin
2237       (method url-fetch)
2238       (uri (string-append "mirror://gnome/sources/" name "/"
2239                           (version-major+minor version)  "/"
2240                           name "-" version ".tar.xz"))
2241       (sha256
2242        (base32
2243         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
2244     (build-system gnu-build-system)
2245     (native-inputs
2246      (list intltool
2247            docbook-xml-4.4
2248            python2-libxml2
2249            libxml2
2250            libxslt
2251            pkg-config
2252            python-2))
2253     (home-page "https://wiki.gnome.org/GnomeDocUtils")
2254     (synopsis
2255      "Documentation utilities for the Gnome project")
2256     (description
2257      "Gnome-doc-utils is a collection of documentation utilities for the
2258 Gnome project.  It includes xml2po tool which makes it easier to translate
2259 and keep up to date translations of documentation.")
2260     (license license:gpl2+))) ; xslt under lgpl
2261
2262 (define-public gnome-disk-utility
2263   (package
2264     (name "gnome-disk-utility")
2265     (version "40.2")
2266     (source (origin
2267               (method url-fetch)
2268               (uri (string-append "mirror://gnome/sources/" name "/"
2269                                   (version-major version) "/"
2270                                   name "-" version ".tar.xz"))
2271               (sha256
2272                (base32
2273                 "1rr1ypb89p51b6428yqvczmpmylwjfnhnkgx78hzm3vxm3m15lff"))))
2274     (build-system meson-build-system)
2275     (arguments
2276      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
2277        #:configure-flags '("-Dlogind=libelogind")
2278        #:phases
2279        (modify-phases %standard-phases
2280          (add-after 'unpack 'skip-gtk-update-icon-cache
2281            ;; Don't create 'icon-theme.cache'.
2282            (lambda _
2283              (substitute* "meson_post_install.py"
2284                (("gtk-update-icon-cache") "true"))
2285              #t)))))
2286     (native-inputs
2287      `(("glib:bin" ,glib "bin")
2288        ("intltool" ,intltool)
2289        ("pkg-config" ,pkg-config)
2290        ("docbook-xml" ,docbook-xml)
2291        ("docbook-xsl" ,docbook-xsl)
2292        ("libxml2" ,libxml2)
2293        ("libxslt" ,libxslt)))
2294     (inputs
2295      (list elogind
2296            glib
2297            appstream-glib
2298            gnome-settings-daemon
2299            gtk+
2300            libcanberra
2301            libdvdread
2302            libhandy
2303            libnotify
2304            libpwquality
2305            libsecret
2306            udisks))
2307     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2308     (synopsis "Disk management utility for GNOME")
2309     (description "Disk management utility for GNOME.")
2310     (license license:gpl2+)))
2311
2312 (define-public gnome-font-viewer
2313   (package
2314     (name "gnome-font-viewer")
2315     (version "40.0")
2316     (source (origin
2317               (method url-fetch)
2318               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2319                                   (version-major version)
2320                                   "/gnome-font-viewer-" version ".tar.xz"))
2321               (sha256
2322                (base32
2323                 "0hpyi0sz3gcqqs9lkwyk8b6hr39m3n27432x98kxr436jj37dk6j"))))
2324     (build-system meson-build-system)
2325     (arguments
2326      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
2327        #:phases
2328        (modify-phases %standard-phases
2329          (add-after 'unpack 'patch-post-install-script
2330            (lambda _
2331              (substitute* "meson-postinstall.sh"
2332                (("update-desktop-database") (which "true")))
2333              #t))
2334          (add-after 'install 'patch-thumbnailer
2335            (lambda* (#:key outputs #:allow-other-keys)
2336              (let ((out (assoc-ref outputs "out")))
2337                (substitute*
2338                    (string-append
2339                     out
2340                     "/share/thumbnailers/gnome-font-viewer.thumbnailer")
2341                  (("gnome-thumbnail-font")
2342                   (string-append out "/bin/gnome-thumbnail-font"))))
2343              #t)))))
2344     (native-inputs
2345      `(("gettext" ,gettext-minimal)
2346        ("glib:bin" ,glib "bin")
2347        ("pkg-config" ,pkg-config)))
2348     (inputs
2349      (list glib gnome-desktop gtk+ libhandy libxml2))
2350     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2351     (synopsis "GNOME Fonts")
2352     (description "Application to show you the fonts installed on your computer
2353 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
2354 the font would look under various sizes.")
2355     (license license:gpl2+)))
2356
2357 (define-public gcr
2358   (package
2359     (name "gcr")
2360     (version "3.41.0")
2361     (source (origin
2362               (method url-fetch)
2363               (uri (string-append "mirror://gnome/sources/" name "/"
2364                                   (version-major+minor version)  "/"
2365                                   name "-" version ".tar.xz"))
2366               (sha256
2367                (base32
2368                 "00fsf82ycac8qi0kkiq759p6jrn63pyz4ksn4wnq7m4ax94zq289"))))
2369     (build-system meson-build-system)
2370     (arguments
2371      '(#:phases
2372        (modify-phases %standard-phases
2373          ;; These fail because /var/lib/dbus/machine-id is not present in the
2374          ;; build environment.
2375          (add-after 'unpack 'disable-failing-tests
2376            (lambda _
2377              (substitute* "gcr/meson.build"
2378                (("[[:blank:]]+'system-prompt',")
2379                 ""))
2380              #t))
2381          (add-after 'unpack 'skip-gtk-update-icon-cache
2382            ;; Don't create 'icon-theme.cache'.
2383            (lambda _
2384              (substitute* "meson_post_install.py"
2385                (("gtk-update-icon-cache") "true"))
2386              #t))
2387          (add-after 'unpack 'fix-systemd-detection
2388            (lambda _
2389              (substitute* "gcr/gcr-ssh-agent-service.c"
2390                (("#ifdef WITH_SYSTEMD")
2391                 "#if (WITH_SYSTEMD)"))))
2392          (add-before 'check 'pre-check
2393            (lambda _
2394              ;; Some tests expect to write to $HOME.
2395              (setenv "HOME" "/tmp")
2396              #t)))))
2397     (inputs
2398      (list dbus gnupg ;called as a child process during tests
2399            libgcrypt libsecret))
2400     (native-inputs
2401      `(("python" ,python-wrapper)       ;for tests
2402        ("openssh" ,openssh)             ;for tests
2403        ("pkg-config" ,pkg-config)
2404        ("gettext" ,gettext-minimal)
2405        ("autoconf" ,autoconf)
2406        ("automake" ,automake)
2407        ("libtool" ,libtool)
2408        ("gtk-doc" ,gtk-doc)
2409        ("glib" ,glib "bin")
2410        ("gobject-introspection" ,gobject-introspection)
2411        ("libxml2" ,libxml2)
2412        ("vala" ,vala)
2413        ("xsltproc" ,libxslt)))
2414     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2415     (propagated-inputs
2416      (list p11-kit glib gtk+))
2417     (home-page "https://www.gnome.org")
2418     (synopsis "Libraries for displaying certificates and accessing key stores")
2419     (description
2420      "The GCR package contains libraries used for displaying certificates and
2421 accessing key stores.  It also provides the viewer for crypto files on the
2422 GNOME Desktop.")
2423     (license license:lgpl2.1+)))
2424
2425 (define-public gdl
2426   (package
2427     (name "gdl")
2428     (version "3.34.0")
2429     (source (origin
2430               (method git-fetch)
2431               (uri (git-reference
2432                     (url "https://gitlab.gnome.org/GNOME/gdl.git")
2433                     (commit (string-append "GDL_" (string-map (match-lambda
2434                                                                 (#\. #\_)
2435                                                                 (c c))
2436                                                               version)))))
2437               (file-name (git-file-name name version))
2438               (sha256
2439                (base32
2440                 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2441     (build-system gnu-build-system)
2442     (native-inputs
2443      (list autoconf
2444            automake
2445            `(,glib "bin") ; for glib-genmarshal, etc.
2446            gnome-common
2447            gtk-doc/stable
2448            intltool
2449            pkg-config
2450            libtool
2451            which))
2452     (inputs
2453      (list libxml2))
2454     (propagated-inputs
2455      ;; The gdl-3.0.pc file 'Requires' GTK+.
2456      (list gtk+))
2457     (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2458     (synopsis "GNOME docking library")
2459     (description "This library provides docking features for gtk+.")
2460     (license license:lgpl2.1+)))
2461
2462 ;;; A minimal variant used to break a cycle with Inkscape.
2463 (define-public gdl-minimal
2464   (package/inherit gdl
2465     (name "gdl-minimal")
2466     (arguments
2467      '(#:phases
2468        (modify-phases %standard-phases
2469          (add-after 'unpack 'disable-doc-generation
2470            ;; XXX: There is no easy way to disable generating the
2471            ;; documentation.
2472            (lambda _
2473              (substitute* "configure.in"
2474                (("GTK_DOC_CHECK.*") "")
2475                (("docs/.*") ""))
2476              (substitute* "Makefile.am"
2477                (("gdl docs po") "gdl po"))
2478              #t)))))
2479     (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2480
2481 (define-public libgnome-keyring
2482   (package
2483     (name "libgnome-keyring")
2484     (version "3.12.0")
2485     (source (origin
2486              (method url-fetch)
2487              (uri (string-append "mirror://gnome/sources/" name "/"
2488                                  (version-major+minor version)  "/"
2489                                  name "-" version ".tar.xz"))
2490              (sha256
2491               (base32
2492                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
2493     (build-system gnu-build-system)
2494     (inputs
2495      (list libgcrypt dbus))
2496     (native-inputs
2497      (list pkg-config
2498            `(,glib "bin") intltool))
2499     (propagated-inputs
2500      ;; Referred to in .h files and .pc.
2501      (list glib))
2502     (home-page "https://www.gnome.org")
2503     (synopsis "Accessing passwords from the GNOME keyring")
2504     (description
2505      "Client library to access passwords from the GNOME keyring.")
2506
2507     ;; Though a couple of files are LGPLv2.1+.
2508     (license license:lgpl2.0+)))
2509
2510 (define-public gnome-keyring
2511   (package
2512     (name "gnome-keyring")
2513     (version "40.0")
2514     (source (origin
2515              (method url-fetch)
2516              (uri (string-append "mirror://gnome/sources/" name "/"
2517                                  (version-major version)  "/"
2518                                  name "-" version ".tar.xz"))
2519              (sha256
2520               (base32
2521                "0cdrlcw814zayhvlaxqs1sm9bqlfijlp22dzzd0g5zg2isq4vlm3"))))
2522     (build-system gnu-build-system)
2523     (arguments
2524      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
2525                    ;not exist
2526        #:configure-flags
2527        (list
2528         (string-append "--with-pkcs11-config="
2529                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
2530         (string-append "--with-pkcs11-modules="
2531                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
2532        #:phases
2533        (modify-phases %standard-phases
2534          (add-after 'unpack 'fix-/bin/sh-reference
2535            (lambda _
2536              (substitute* "po/Makefile.in.in"
2537                (("/bin/sh") (which "sh")))
2538              #t))
2539          (add-after 'unpack 'fix-docbook
2540            (lambda* (#:key inputs #:allow-other-keys)
2541              (substitute* "docs/Makefile.am"
2542                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2543                 (string-append (assoc-ref inputs "docbook-xsl")
2544                                "/xml/xsl/docbook-xsl-"
2545                                ,(package-version docbook-xsl)
2546                                "/manpages/docbook.xsl")))
2547              (setenv "XML_CATALOG_FILES"
2548                      (string-append (assoc-ref inputs "docbook-xml")
2549                                     "/xml/dtd/docbook/catalog.xml"))
2550              ;; Rerun the whole thing to avoid version mismatch ("This is
2551              ;; Automake 1.15.1, but the definition used by this
2552              ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
2553              ;; use 'autoreconf' because it insists on running 'libtoolize'.
2554              (invoke "autoconf")
2555              (invoke "aclocal")
2556              (invoke "automake" "-ac"))))))
2557     (inputs
2558      (list libgcrypt linux-pam openssh dbus gcr))
2559     (native-inputs
2560      `(("pkg-config" ,pkg-config)
2561        ("glib" ,glib "bin")
2562        ("glib" ,glib) ; for m4 macros
2563        ("python" ,python-2) ;for tests
2564        ("intltool" ,intltool)
2565        ("autoconf" ,autoconf)
2566        ("automake" ,automake)
2567        ("libxslt" ,libxslt) ;for documentation
2568        ("docbook-xml" ,docbook-xml-4.3)
2569        ("docbook-xsl" ,docbook-xsl)))
2570     (propagated-inputs
2571      (list gcr))
2572     (home-page "https://www.gnome.org")
2573     (synopsis "Daemon to store passwords and encryption keys")
2574     (description
2575      "gnome-keyring is a program that keeps passwords and other secrets for
2576 users.  It is run as a daemon in the session, similar to ssh-agent, and other
2577 applications locate it via an environment variable or D-Bus.
2578
2579 The program can manage several keyrings, each with its own master password,
2580 and there is also a session keyring which is never stored to disk, but
2581 forgotten when the session ends.")
2582     (license license:lgpl2.1+)))
2583
2584 (define-public evince
2585   (package
2586     (name "evince")
2587     (version "40.2")
2588     (source (origin
2589               (method url-fetch)
2590               (uri "mirror://gnome/sources/evince/40/evince-40.2.tar.xz")
2591               (sha256
2592                (base32
2593                 "0xrwls1bhvny8vvd7mfjy9p26zjch0pd6x6j9jn9g2ka6xwyrxqg"))))
2594     (build-system meson-build-system)
2595     (arguments
2596      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
2597        #:glib-or-gtk? #t
2598        #:build-type "release"
2599        #:configure-flags
2600        '("-Dnautilus=false"
2601          "-Dintrospection=true"
2602          ;; XXX: Generating the documentation fails because the
2603          ;; libevdocument.devhelp document cannot be created. This seems to be
2604          ;; caused by a problem during the XSL transformation.
2605          "-Dgtk_doc=false")
2606        #:phases
2607        (modify-phases %standard-phases
2608          (add-after 'unpack 'skip-gtk-update-icon-cache
2609            ;; Don't create 'icon-theme.cache'.
2610            (lambda _
2611              (substitute* "meson_post_install.py"
2612                (("gtk-update-icon-cache") "true"))
2613              #t)))))
2614     (inputs
2615      (list libarchive
2616            libgxps
2617            libspectre
2618            djvulibre
2619            ghostscript
2620            poppler
2621            libtiff
2622            texlive-libkpathsea ; for DVI support
2623            gnome-desktop
2624            gsettings-desktop-schemas
2625            gspell
2626            libgnome-keyring
2627            adwaita-icon-theme
2628            gdk-pixbuf
2629            atk
2630            pango
2631            gtk+
2632            glib
2633            libxml2
2634            libsm
2635            libice
2636            shared-mime-info
2637            dconf
2638            libcanberra
2639            libsecret
2640            libhandy))
2641     (native-inputs
2642      `(("itstool" ,itstool)
2643        ("intltool" ,intltool)
2644        ("glib" ,glib "bin")
2645        ("gobject-introspection" ,gobject-introspection)
2646        ("pkg-config" ,pkg-config)
2647        ("xmllint" ,libxml2)))
2648     (home-page "https://www.gnome.org/projects/evince/")
2649     (synopsis "GNOME's document viewer")
2650     (description
2651      "Evince is a document viewer for multiple document formats.  It
2652 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
2653 of Evince is to replace the multiple document viewers that exist
2654 on the GNOME Desktop with a single simple application.")
2655     (license license:gpl2+)))
2656
2657 (define-public gsettings-desktop-schemas
2658   (package
2659     (name "gsettings-desktop-schemas")
2660     (version "41.0")
2661     (source
2662      (origin
2663        (method url-fetch)
2664        (uri (string-append "mirror://gnome/sources/" name "/"
2665                            (version-major version)  "/"
2666                            name "-" version ".tar.xz"))
2667        (sha256
2668         (base32
2669          "1v9jagk679m01nji0acirynxinziv036618c7xc49l4nwmr9ja3p"))))
2670     (build-system meson-build-system)
2671     (arguments
2672      '(#:phases (modify-phases %standard-phases
2673                   (add-after 'unpack 'patch-schemas
2674                     (lambda* (#:key inputs #:allow-other-keys)
2675                       (let ((theme (assoc-ref inputs "gnome-backgrounds")))
2676                         (substitute* (find-files "schemas"
2677                                                  "\\.gschema\\.xml\\.in$")
2678                           ;; Provide the correct file name of the default
2679                           ;; GNOME background, 'adwaita-timed.xml'.
2680                           (("@datadir@/backgrounds/gnome")
2681                            (string-append theme "/share/backgrounds/gnome"))
2682                           ;; Do not reference fonts, that may not exist.
2683                           (("'Source Code Pro 10'") "'Monospace 11'"))))))))
2684     (inputs
2685      (list glib gnome-backgrounds))
2686     (native-inputs
2687      `(("gettext" ,gettext-minimal)
2688        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
2689        ("gobject-introspection" ,gobject-introspection)
2690        ("pkg-config" ,pkg-config)))
2691     (home-page "https://launchpad.net/gsettings-desktop-schemas")
2692     (synopsis "GNOME settings for various desktop components")
2693     (description "Gsettings-desktop-schemas contains a collection of GSettings
2694 schemas for settings shared by various components of the GNOME desktop.")
2695     (license license:lgpl2.1+)))
2696
2697 (define-public python-liblarch
2698   (package
2699     (name "python-liblarch")
2700     (version "3.0.1")
2701     (source
2702      (origin
2703        (method git-fetch)
2704        (uri (git-reference
2705              (url "https://github.com/getting-things-gnome/liblarch")
2706              (commit (string-append "v" version))))
2707        (file-name (git-file-name name version))
2708        (sha256
2709         (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2710     (build-system python-build-system)
2711     (arguments
2712      `(#:phases
2713        (modify-phases %standard-phases
2714          (add-before 'check 'start-xserver
2715            (lambda* (#:key inputs #:allow-other-keys)
2716              (system (format #f "~a/bin/Xvfb :1 &"
2717                              (assoc-ref inputs "xorg-server")))
2718              (setenv "DISPLAY" ":1")
2719              #t)))))
2720     (native-inputs
2721      (list xorg-server-for-tests))
2722     (inputs
2723      (list gtk+))
2724     (propagated-inputs
2725      (list python-pygobject))
2726     (home-page "https://wiki.gnome.org/Projects/liblarch")
2727     (synopsis "Library to easily handle complex data structures")
2728     (description
2729      "Liblarch is a Python library built to easily handle data structures such
2730 as lists, trees and acyclic graphs.  There's also a GTK binding that will
2731 allow you to use your data structure in a @code{Gtk.Treeview}.
2732
2733 Liblarch support multiple views of one data structure and complex filtering.
2734 That way, you have a clear separation between your data themselves (Model)
2735 and how they are displayed (View).")
2736     (license license:lgpl3+)))
2737
2738 (define-public gtg
2739   (package
2740     (name "gtg")
2741     (version "0.5")
2742     (source
2743      (origin
2744        (method git-fetch)
2745        (uri (git-reference
2746              (url "https://github.com/getting-things-gnome/gtg")
2747              (commit (string-append "v" version))))
2748        (file-name (git-file-name name version))
2749        (sha256
2750         (base32 "0b2slm7kjq6q8c7v4m7aqc8m1ynjxn3bl7445srpv1xc0dilq403"))))
2751     (build-system meson-build-system)
2752     (arguments
2753      `(#:glib-or-gtk? #t
2754        #:phases
2755        (modify-phases %standard-phases
2756          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2757            (lambda* (#:key outputs #:allow-other-keys)
2758              (let ((prog (string-append (assoc-ref outputs "out")
2759                                         "/bin/gtg"))
2760                    (pylib (string-append (assoc-ref outputs "out")
2761                                          "/lib/python"
2762                                          ,(version-major+minor
2763                                            (package-version python))
2764                                          "/site-packages")))
2765                (wrap-program prog
2766                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
2767                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2768                #t))))))
2769     (native-inputs
2770      `(("desktop-file-utils" ,desktop-file-utils)
2771        ("gettext" ,gettext-minimal)
2772        ("glib:bin" ,glib "bin")
2773        ("gobject-introspection" ,gobject-introspection)
2774        ("gtk+:bin" ,gtk+ "bin")
2775        ("pkg-config" ,pkg-config)))
2776     (inputs
2777      (list librsvg
2778            gsettings-desktop-schemas
2779            gtk+
2780            pango
2781            python-dbus
2782            python-liblarch
2783            python-lxml
2784            python-pycairo
2785            python-pygobject
2786            python-pyxdg))
2787     (home-page "https://wiki.gnome.org/Apps/GTG")
2788     (synopsis "Personal organizer for the GNOME desktop")
2789     (description
2790      "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2791 organizer for the GNOME desktop environment inspired by the Getting Things
2792 Done (GTD) methodology.  GTG is designed with flexibility, adaptability,
2793 and ease of use in mind so it can be used as more than just GTD software.
2794 GTG is intended to help you track everything you need to do and need to
2795 know, from small tasks to large projects.")
2796     (license license:gpl3+)))
2797
2798 (define-public icon-naming-utils
2799   (package
2800     (name "icon-naming-utils")
2801     (version "0.8.90")
2802     (source
2803      (origin
2804       (method url-fetch)
2805       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
2806                           version ".tar.bz2"))
2807       (sha256
2808        (base32
2809         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2810     (build-system gnu-build-system)
2811     (inputs
2812      (list perl perl-xml-simple))
2813     (arguments
2814      '(#:phases
2815        (modify-phases %standard-phases
2816          (add-after 'install 'set-load-paths
2817            ;; Tell 'icon-name-mapping' where XML::Simple is.
2818            (lambda* (#:key outputs #:allow-other-keys)
2819              (let* ((out  (assoc-ref outputs "out"))
2820                     (prog (string-append out "/libexec/icon-name-mapping")))
2821                (wrap-program
2822                    prog
2823                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2824              #t)))))
2825     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2826     (synopsis
2827      "Utility to implement the Freedesktop Icon Naming Specification")
2828     (description
2829      "To help with the transition to the Freedesktop Icon Naming
2830 Specification, the icon naming utility maps the icon names used by the
2831 GNOME and KDE desktops to the icon names proposed in the specification.")
2832     (license license:lgpl2.1+)))
2833
2834 (define-public gnome-icon-theme
2835   (package
2836     (name "gnome-icon-theme")
2837     (version "3.12.0")
2838     (source
2839      (origin
2840       (method url-fetch)
2841       (uri (string-append "mirror://gnome/sources/" name "/"
2842                           (version-major+minor version)  "/"
2843                           name "-" version ".tar.xz"))
2844       (sha256
2845        (base32
2846         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
2847     (build-system gnu-build-system)
2848     (arguments
2849      '(#:configure-flags
2850        ;; Don't create 'icon-theme.cache'.
2851        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
2852               (true      (string-append coreutils "/bin/true")))
2853          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
2854     (native-inputs
2855      (list icon-naming-utils intltool pkg-config))
2856     (home-page "https://wiki.gnome.org/Personalization")
2857     (synopsis "GNOME icon theme")
2858     (description "Icons for the GNOME desktop.")
2859     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
2860
2861 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
2862 (define-public adwaita-icon-theme
2863   (package/inherit gnome-icon-theme
2864     (name "adwaita-icon-theme")
2865     (version "40.1.1")
2866     (source (origin
2867               (method url-fetch)
2868               (uri (string-append "mirror://gnome/sources/" name "/"
2869                                   (version-major version) "/"
2870                                   name "-" version ".tar.xz"))
2871               (sha256
2872                (base32
2873                 "1xpqa1rgmixlp953938d08xvf7kv36h747ysial8g65dsrp46v0b"))))
2874     (native-inputs
2875      ;; The following requires the SVG pixbuf loader, provided by librsvg,
2876      ;; available on x86_64 only.
2877      `(,@(if (target-64bit?)
2878              `(("gtk-encode-symbolic-svg" ,gtk+ "bin"))
2879              '())))))
2880
2881 (define-public tango-icon-theme
2882   (package
2883     (name "tango-icon-theme")
2884     (version "0.8.90")
2885     (source (origin
2886               (method url-fetch)
2887               (uri (string-append "http://tango.freedesktop.org/releases/"
2888                                   "tango-icon-theme-" version ".tar.bz2"))
2889               (sha256
2890                (base32
2891                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2892     (build-system gnu-build-system)
2893     (native-inputs
2894      (list icon-naming-utils intltool imagemagick pkg-config))
2895     (home-page "http://tango-project.org/")
2896     (synopsis "Tango icon theme")
2897     (description "This is an icon theme that follows the Tango visual
2898 guidelines.")
2899     (license license:public-domain)))
2900
2901 (define-public shared-mime-info
2902   (package
2903     (name "shared-mime-info")
2904     (version "1.15")
2905     (source (origin
2906              (method url-fetch)
2907              (uri (string-append
2908                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2909                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2910                    ".tar.xz"))
2911              (sha256
2912               (base32
2913                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
2914     (build-system gnu-build-system)
2915     (arguments
2916      ;; The build system appears not to be parallel-safe.
2917      '(#:parallel-build? #f))
2918     (inputs
2919      (list glib libxml2))
2920     (native-inputs
2921      `(("gettext" ,gettext-minimal)
2922        ("itstool" ,itstool)
2923        ("pkg-config" ,pkg-config)))
2924     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
2925     (synopsis "Database of common MIME types")
2926     (description
2927      "The shared-mime-info package contains the core database of common types
2928 and the update-mime-database command used to extend it.  It requires glib2 to
2929 be installed for building the update command.  Additionally, it uses intltool
2930 for translations, though this is only a dependency for the maintainers.  This
2931 database is translated at Transifex.")
2932     (license license:gpl2+)))
2933
2934 (define-public system-config-printer
2935   (package
2936     (name "system-config-printer")
2937     (version "1.5.15")
2938     (source
2939      (origin
2940        (method url-fetch)
2941        (uri (string-append
2942              "https://github.com/OpenPrinting/system-config-printer/releases/"
2943              "download/v" version
2944              "/system-config-printer-" version ".tar.xz"))
2945        (sha256
2946         (base32 "12d6xx51vizc476zfnsga9q09nflp51ipn6y7lhi9w2v4772dlpv"))))
2947     (build-system glib-or-gtk-build-system)
2948     (arguments
2949      `(#:imported-modules ((guix build python-build-system)
2950                            ,@%glib-or-gtk-build-system-modules)
2951        #:phases
2952        (modify-phases %standard-phases
2953          (add-after 'unpack 'patch-Makefile.am
2954            (lambda _
2955              ;; The Makefile generates some scripts, so set a valid shebang
2956              (substitute* "Makefile.am"
2957                (("/bin/bash") (which "bash")))
2958              (delete-file "configure")
2959              #t))
2960          (add-after 'unpack 'patch-docbook-xml
2961            (lambda* (#:key inputs #:allow-other-keys)
2962              ;; Modify the man XML otherwise xmlto tries to access the network
2963              (substitute* "man/system-config-printer.xml"
2964                (("http://www.oasis-open.org/docbook/xml/4.1.2/")
2965                 (string-append (assoc-ref inputs "docbook-xml")
2966                                "/xml/dtd/docbook/")))
2967              #t))
2968          (add-after 'install 'wrap-for-python
2969            (@@ (guix build python-build-system) wrap))
2970          (add-after 'install 'wrap
2971            (lambda* (#:key outputs #:allow-other-keys)
2972              (let ((out               (assoc-ref outputs "out"))
2973                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
2974                (for-each
2975                 (lambda (program)
2976                   (wrap-program program
2977                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
2978                 (map (lambda (name)
2979                        (string-append out "/bin/" name))
2980                      '("system-config-printer"
2981                        "system-config-printer-applet"
2982                        "install-printerdriver"
2983                        "scp-dbus-service"))))
2984              #t)))))
2985     (inputs
2986      (list gsettings-desktop-schemas
2987            gobject-introspection
2988            python
2989            cups
2990            gtk+
2991            python-dbus
2992            python-pygobject
2993            python-pycups
2994            python-requests
2995            python-pycairo
2996            libnotify
2997            packagekit))
2998     (native-inputs
2999      (list pkg-config
3000            desktop-file-utils
3001            glib
3002            autoconf
3003            automake
3004            intltool
3005            xmlto
3006            docbook-xml-4.1.2
3007            docbook-xsl
3008            libxml2))
3009     (home-page "https://github.com/zdohnal/system-config-printer")
3010     (synopsis "CUPS administration tool")
3011     (description
3012      "system-config-printer is a CUPS administration tool.  It's written in
3013 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
3014 configuring CUPS.")
3015     (license license:gpl2+)))
3016
3017 (define-public hicolor-icon-theme
3018   (package
3019     (name "hicolor-icon-theme")
3020     (version "0.17")
3021     (source
3022      (origin
3023       (method url-fetch)
3024       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
3025                           "hicolor-icon-theme-" version ".tar.xz"))
3026       (sha256
3027        (base32
3028         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
3029     (build-system gnu-build-system)
3030     (arguments
3031      `(#:tests? #f)) ; no check target
3032     (home-page "https://icon-theme.freedesktop.org/releases/")
3033     (synopsis
3034      "Freedesktop icon theme")
3035     (description
3036      "Freedesktop icon theme.")
3037     (license license:gpl2)))
3038
3039 (define-public libnotify
3040   (package
3041     (name "libnotify")
3042     (version "0.7.9")
3043     (source
3044      (origin
3045        (method url-fetch)
3046        (uri (string-append "mirror://gnome/sources/" name "/"
3047                            (version-major+minor version)  "/"
3048                            name "-" version ".tar.xz"))
3049        (sha256
3050         (base32
3051          "0qa7cx6ra5hwqnxw95b9svgjg5q6ynm8y843iqjszxvds5z53h36"))))
3052     (build-system meson-build-system)
3053     (arguments
3054      `(#:phases
3055        (modify-phases %standard-phases
3056          (add-after 'unpack 'fix-docbook
3057            (lambda* (#:key inputs #:allow-other-keys)
3058              ;; Don't attempt to download XSL schema.
3059              (substitute* "meson.build"
3060                (("http://docbook.sourceforge.net/release/xsl-ns/current\
3061 /manpages/docbook.xsl")
3062                 (string-append (assoc-ref inputs "docbook-xsl")
3063                                "/xml/xsl/docbook-xsl-"
3064                                ,(package-version docbook-xsl)
3065                                "/manpages/docbook.xsl")))
3066              #t)))))
3067     (propagated-inputs
3068      (list ;; In Requires of libnotify.pc.
3069            gdk-pixbuf glib))
3070     (inputs
3071      (list gtk+ libpng))
3072     (native-inputs
3073      `(("pkg-config" ,pkg-config)
3074        ("glib" ,glib "bin")
3075        ("gobject-introspection" ,gobject-introspection)
3076
3077        ;; For the documentation.
3078        ("gtk-doc" ,gtk-doc/stable)
3079        ("xsltproc" ,libxslt)
3080        ("docbook-xsl" ,docbook-xsl)))
3081     (home-page "https://developer-next.gnome.org/libnotify/")
3082     (synopsis
3083      "GNOME desktop notification library")
3084     (description
3085      "Libnotify is a library that sends desktop notifications to a
3086 notification daemon, as defined in the Desktop Notifications spec.  These
3087 notifications can be used to inform the user about an event or display
3088 some form of information without getting in the user's way.")
3089     (license license:lgpl2.1+)))
3090
3091 (define-public libpeas
3092   (package
3093     (name "libpeas")
3094     (version "1.30.0")
3095     (source
3096      (origin
3097       (method url-fetch)
3098       (uri (string-append "mirror://gnome/sources/" name "/"
3099                           (version-major+minor version)  "/"
3100                           name "-" version ".tar.xz"))
3101       (sha256
3102        (base32
3103         "18xrk1c1ixlhkmykcfiafrl2am470ws687xqvjlq40zwkcp5dx8b"))))
3104     (build-system meson-build-system)
3105     (arguments
3106      '(#:phases
3107        (modify-phases %standard-phases
3108          (add-before 'check 'start-xserver
3109            (lambda* (#:key inputs #:allow-other-keys)
3110              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3111                    (disp ":1"))
3112                (setenv "DISPLAY" disp)
3113                (setenv "XDG_CACHE_HOME" "/tmp/xdg-cache")
3114                (setenv "XDG_CONFIG_HOME" "/tmp")
3115                ;; Tests require a running X server.
3116                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3117                #t))))))
3118     (inputs
3119      (list gtk+ glade3 python python-pygobject))
3120     (native-inputs
3121      `(("pkg-config" ,pkg-config)
3122        ("gettext" ,gettext-minimal)
3123        ("glib:bin" ,glib "bin")
3124        ("gobject-introspection" ,gobject-introspection)
3125        ("xorg-server" ,xorg-server-for-tests)))
3126     (propagated-inputs
3127      ;; The .pc file "Requires" gobject-introspection.
3128      (list gobject-introspection))
3129     (home-page "https://wiki.gnome.org/Libpeas")
3130     (synopsis "GObject plugin system")
3131     (description
3132      "Libpeas is a gobject-based plugin engine, targeted at giving every
3133 application the chance to assume its own extensibility.  It also has a set of
3134 features including, but not limited to: multiple extension points; on-demand
3135 (lazy) programming language support for C, Python and JS; simplicity of the
3136 API.")
3137     (license license:lgpl2.0+)))
3138
3139 (define-public gtkglext
3140   (package
3141     (name "gtkglext")
3142     (version "1.2.0")
3143     (source (origin
3144               (method url-fetch)
3145               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
3146                                   version "/gtkglext-" version ".tar.gz"))
3147               (sha256
3148                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
3149               (patches (search-patches
3150                         "gtkglext-disable-disable-deprecated.patch"))))
3151     (build-system gnu-build-system)
3152     (arguments
3153      `(#:phases
3154        (modify-phases %standard-phases
3155          ;; Fix a collision between a local variable and a definition from
3156          ;; glibc's string.h.
3157          (add-after 'unpack 'fix-collision
3158            (lambda _
3159              (substitute* "gdk/gdkglshapes.c"
3160                ((" index") " triangle_index"))
3161              #t)))))
3162     (inputs (list gtk+-2 mesa glu libx11 libxt))
3163     (native-inputs (list pkg-config
3164                          `(,glib "bin")))
3165     (propagated-inputs (list pangox-compat))
3166     (home-page "https://projects.gnome.org/gtkglext")
3167     (synopsis "OpenGL extension to GTK+")
3168     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
3169 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3170 API add-ons to make GTK+ widgets OpenGL-capable.")
3171     (license license:lgpl2.1+)))
3172
3173 (define-public glade3
3174   (package
3175     (name "glade")
3176     (version "3.38.2")
3177     (source (origin
3178               (method url-fetch)
3179               (uri (string-append "mirror://gnome/sources/" name "/"
3180                                   (version-major+minor version)  "/"
3181                                   name "-" version ".tar.xz"))
3182               (sha256
3183                (base32
3184                 "1dxsiz9ahqkxg2a1dw9sbd8jg59y5pdz4c1gvnbmql48gmj8gz4q"))
3185               (patches (search-patches
3186                         "glade-gls-set-script-name.patch"
3187                         "glade-test-widget-null-icon.patch"))))
3188     (build-system meson-build-system)
3189     (arguments
3190      `(#:meson ,meson-0.59
3191        #:phases
3192        (modify-phases %standard-phases
3193          (add-after 'unpack 'skip-gtk-update-icon-cache
3194            ;; Don't create 'icon-theme.cache'.
3195            (lambda _
3196              (substitute* "meson_post_install.py"
3197                (("gtk-update-icon-cache") "true"))))
3198
3199          ,@(if (this-package-native-input "gjs")
3200                '()
3201                '((add-after 'unpack 'skip-gjs-test
3202                    (lambda _
3203                      ;; When the optional dependency on GJS is missing, skip
3204                      ;; the GJS plugin tests.
3205                      (substitute* "tests/modules.c"
3206                        (("g_test_add.*JavaScript.*" all)
3207                         (string-append "// " all "\n")))
3208                      (delete-file "tests/catalogs/gjsplugin.xml")))))
3209
3210          (add-before 'configure 'fix-docbook
3211            (lambda* (#:key inputs #:allow-other-keys)
3212              (substitute* "man/meson.build"
3213                (("http://docbook.sourceforge.net/release/xsl/\
3214 current/manpages/docbook.xsl")
3215                 (string-append (assoc-ref inputs "docbook-xsl")
3216                                "/xml/xsl/docbook-xsl-"
3217                                ,(package-version docbook-xsl)
3218                                "/manpages/docbook.xsl")))))
3219          (add-before 'check 'pre-check
3220            (lambda _
3221              (setenv "HOME" "/tmp")
3222              ;; Tests require a running X server.
3223              (system "Xvfb :1 &")
3224              (setenv "DISPLAY" ":1"))))))
3225     (inputs
3226      (list gtk+ libxml2))
3227     (native-inputs
3228      `(("hicolor-icon-theme" ,hicolor-icon-theme)
3229        ("intltool" ,intltool)
3230        ("itstool" ,itstool)
3231        ("libxslt" ,libxslt) ;for xsltproc
3232        ("docbook-xml" ,docbook-xml-4.2)
3233        ("docbook-xsl" ,docbook-xsl)
3234        ("glib:bin" ,glib "bin")
3235        ("python-pygobject" ,python-pygobject)
3236        ("gobject-introspection" ,gobject-introspection)
3237
3238        ;; GJS depends on Rust, which is x86_64-only so far, so remove the GJS
3239        ;; dependency on other platforms (FIXME).
3240        ,@(if (target-x86-64?)
3241              `(("gjs" ,gjs))
3242              '())
3243
3244        ("pkg-config" ,pkg-config)
3245        ("xorg-server" ,xorg-server-for-tests)))
3246     (home-page "https://glade.gnome.org")
3247     (synopsis "GTK+ rapid application development tool")
3248     (description "Glade is a rapid application development (RAD) tool to
3249 enable quick & easy development of user interfaces for the GTK+ toolkit and
3250 the GNOME desktop environment.")
3251     (license license:lgpl2.0+)
3252     (native-search-paths (list (search-path-specification
3253                                 (variable "GLADE_CATALOG_SEARCH_PATH")
3254                                 (files '("share/glade/catalogs")))
3255                                (search-path-specification
3256                                 (variable "GLADE_MODULE_SEARCH_PATH")
3257                                 (files '("lib/glade/modules")))))))
3258
3259 (define-public libcroco
3260   (package
3261     (name "libcroco")
3262     (version "0.6.13")
3263     (source (origin
3264               (method url-fetch)
3265               (uri (string-append "mirror://gnome/sources/" name "/"
3266                                   (version-major+minor version)  "/"
3267                                   name "-" version ".tar.xz"))
3268               (patches (search-patches "libcroco-CVE-2020-12825.patch"))
3269               (sha256
3270                (base32
3271                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
3272     (build-system gnu-build-system)
3273     (native-inputs
3274      (list pkg-config))
3275     (inputs
3276      (list glib libxml2 zlib))
3277     (home-page "https://github.com/GNOME/libcroco")
3278     (synopsis "CSS2 parsing and manipulation library")
3279     (description
3280      "Libcroco is a standalone CSS2 parsing and manipulation library.
3281 The parser provides a low level event driven SAC-like API and a CSS object
3282 model like API.  Libcroco provides a CSS2 selection engine and an experimental
3283 XML/CSS rendering engine.")
3284
3285     ;; LGPLv2.1-only.
3286     (license license:lgpl2.1)))
3287
3288 (define-public libgsf
3289   (package
3290     (name "libgsf")
3291     (version "1.14.47")
3292     (source (origin
3293               (method url-fetch)
3294               (uri (string-append "mirror://gnome/sources/" name "/"
3295                                   (version-major+minor version)  "/"
3296                                   name "-" version ".tar.xz"))
3297               (sha256
3298                (base32
3299                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
3300     (build-system glib-or-gtk-build-system)
3301     (outputs '("out" "bin" "doc"))
3302     (arguments
3303      `(#:configure-flags
3304        (list
3305         "--disable-static"
3306         "--enable-introspection"
3307         (string-append "--with-gir-dir="
3308                        (assoc-ref %outputs "out")
3309                        "/share/gir-"
3310                        ,(version-major
3311                          (package-version gobject-introspection))
3312                        ".0")
3313         (string-append "--with-typelib-dir="
3314                        (assoc-ref %outputs "out")
3315                        "/lib/girepository-"
3316                        ,(version-major
3317                          (package-version gobject-introspection))
3318                        ".0")
3319         (string-append "--with-html-dir="
3320                        (assoc-ref %outputs "doc")
3321                        "/share/gtk-doc/html")
3322         "--with-zlib"
3323         "--with-bz2")
3324        #:phases
3325        (modify-phases %standard-phases
3326          (add-after 'unpack 'patch-docbook-xml
3327            (lambda* (#:key inputs #:allow-other-keys)
3328              (with-directory-excursion "doc"
3329                (substitute* "gsf-docs.xml"
3330                  (("http://www.oasis-open.org/docbook/xml/4.5/")
3331                   (string-append (assoc-ref inputs "docbook-xml")
3332                                  "/xml/dtd/docbook/"))))
3333              #t)))))
3334     (native-inputs
3335      `(("docbook-xml" ,docbook-xml)
3336        ("gettext" ,gettext-minimal)
3337        ("gobject-introspection" ,gobject-introspection)
3338        ("perl" ,perl)
3339        ("perl-xml-parser" ,perl-xml-parser)
3340        ("pkg-config" ,pkg-config)
3341        ("python" ,python-wrapper)))
3342     (inputs
3343      (list bzip2 gdk-pixbuf zlib))
3344     (propagated-inputs
3345      (list glib libxml2))
3346     (synopsis "G Structured File Library")
3347     (description "Libgsf aims to provide an efficient extensible I/O abstraction
3348 for dealing with different structured file formats.")
3349     (home-page "https://gitlab.gnome.org/GNOME/libgsf")
3350     (license
3351      (list
3352       ;; Library
3353       license:lgpl2.1+
3354       ;; Others
3355       license:lgpl2.0+))))
3356
3357 (define-public librsvg
3358   (package
3359     (name "librsvg")
3360     (version "2.50.7")
3361     (source (origin
3362               (method url-fetch)
3363               (uri (string-append "mirror://gnome/sources/librsvg/"
3364                                   (version-major+minor version)  "/"
3365                                   "librsvg-" version ".tar.xz"))
3366               (sha256
3367                (base32
3368                 "1g3f8byg5w08fx1bka12mmpl59v6a4q2p827w6m2la6mijq63yzz"))
3369               (modules '((guix build utils)))
3370               (snippet
3371                '(begin (delete-file-recursively "vendor")))))
3372     (build-system cargo-build-system)
3373     (outputs '("out" "doc" "debug"))
3374     (arguments
3375      `(#:install-source? #f
3376        #:modules
3377        ((guix build cargo-build-system)
3378         (guix build utils)
3379         ((guix build gnu-build-system) #:prefix gnu:))
3380        #:cargo-inputs
3381        (("rust-bitflags" ,rust-bitflags-1)
3382         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3383         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
3384         ("rust-cast" ,rust-cast-0.2)
3385         ("rust-cssparser" ,rust-cssparser-0.27)
3386         ("rust-data-url" ,rust-data-url-0.1)
3387         ("rust-encoding" ,rust-encoding-0.2)
3388         ("rust-float-cmp" ,rust-float-cmp-0.8)
3389         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
3390         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
3391         ("rust-gio" ,rust-gio-0.8)
3392         ("rust-gio-sys" ,rust-gio-sys-0.9)
3393         ("rust-glib" ,rust-glib-0.9)
3394         ("rust-glib-sys" ,rust-glib-sys-0.9)
3395         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
3396         ("rust-itertools" ,rust-itertools-0.9)
3397         ("rust-language-tags" ,rust-language-tags-0.2)
3398         ("rust-libc" ,rust-libc-0.2)
3399         ("rust-locale-config" ,rust-locale-config-0.3)
3400         ("rust-markup5ever" ,rust-markup5ever-0.10)
3401         ("rust-nalgebra" ,rust-nalgebra-0.21)
3402         ("rust-num-traits" ,rust-num-traits-0.2)
3403         ("rust-once-cell" ,rust-once-cell-1)
3404         ("rust-pkg-config" ,rust-pkg-config-0.3)
3405         ("rust-pango" ,rust-pango-0.8)
3406         ("rust-pango-sys" ,rust-pango-sys-0.9)
3407         ("rust-pangocairo" ,rust-pangocairo-0.9)
3408         ("rust-rayon" ,rust-rayon-1)
3409         ("rust-rctree" ,rust-rctree-0.3)
3410         ("rust-rgb" ,rust-rgb-0.8)
3411         ("rust-regex" ,rust-regex-1)
3412         ("rust-selectors" ,rust-selectors-0.22)
3413         ("rust-string-cache" ,rust-string-cache-0.8)
3414         ("rust-tinyvec" ,rust-tinyvec-0.3)
3415         ("rust-url" ,rust-url-2)
3416         ("rust-xml5ever" ,rust-xml5ever-0.16))
3417        #:cargo-development-inputs
3418        (("rust-assert-cmd" ,rust-assert-cmd-1)
3419         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3420         ("rust-chrono" ,rust-chrono-0.4)
3421         ("rust-criterion" ,rust-criterion-0.3)
3422         ("rust-float-cmp" ,rust-float-cmp-0.8)
3423         ("rust-lopdf" ,rust-lopdf-0.26)
3424         ("rust-png" ,rust-png-0.16)
3425         ("rust-predicates" ,rust-predicates-1)
3426         ("rust-tempfile" ,rust-tempfile-3))
3427        #:phases
3428        (modify-phases %standard-phases
3429          (add-after 'unpack 'patch-docbook-xml
3430            (lambda* (#:key inputs #:allow-other-keys)
3431              (with-directory-excursion "doc"
3432                (substitute* "rsvg-docs.xml"
3433                  (("http://www.oasis-open.org/docbook/xml/4.3/")
3434                   (string-append (assoc-ref inputs "docbook-xml")
3435                                  "/xml/dtd/docbook/"))))))
3436          (add-after 'unpack 'prepare-for-build
3437            (lambda _
3438              ;; In lieu of #:make-flags
3439              (setenv "CC" ,(cc-for-target))
3440              ;; Something about the build environment resists building
3441              ;; successfully with the '--locked' flag.
3442              (substitute* '("Makefile.am" "Makefile.in")
3443                (("--locked") ""))))
3444          (add-before 'configure 'pre-configure
3445            (lambda* (#:key outputs #:allow-other-keys)
3446              (substitute* "gdk-pixbuf-loader/Makefile.in"
3447                ;; By default the gdk-pixbuf loader is installed under
3448                ;; gdk-pixbuf's prefix.  Work around that.
3449                (("gdk_pixbuf_moduledir = .*$")
3450                 (string-append "gdk_pixbuf_moduledir = "
3451                                "$(prefix)/"
3452                                ,(dirname %gdk-pixbuf-loaders-cache-file) "/"
3453                                "loaders\n")))
3454              (substitute* "configure"
3455                (("gdk_pixbuf_cache_file=.*")
3456                 (string-append "gdk_pixbuf_cache_file="
3457                                (assoc-ref outputs "out") "/"
3458                                ,%gdk-pixbuf-loaders-cache-file "\n")))))
3459          (add-after 'configure 'gnu-configure
3460            (lambda* (#:key outputs #:allow-other-keys #:rest args)
3461              (apply (assoc-ref gnu:%standard-phases 'configure)
3462                     #:configure-flags
3463                     (list "--disable-static"
3464                           "--enable-vala"
3465                           (string-append "--with-html-dir="
3466                                          (assoc-ref outputs "doc")
3467                                          "/share/gtk-doc/html"))
3468                     args)))
3469          (add-after 'configure 'dont-vendor-self
3470            (lambda* (#:key vendor-dir #:allow-other-keys)
3471              ;; Don't keep the whole tarball in the vendor directory
3472              (delete-file-recursively
3473               (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))))
3474          (replace 'build
3475            (assoc-ref gnu:%standard-phases 'build))
3476          (add-before 'check 'ignore-failing-tests
3477            ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3478            (lambda _
3479              (substitute* "tests/src/cmdline/rsvg_convert.rs"
3480                (("fn background_color_option_invalid_color_yields_error" all)
3481                 (string-append "#[ignore] " all))
3482                (("fn empty_input_yields_error" all)
3483                 (string-append "#[ignore] " all))
3484                (("fn empty_svg_yields_error" all)
3485                 (string-append "#[ignore] " all))
3486                (("fn env_source_data_epoch_empty" all)
3487                 (string-append "#[ignore] " all))
3488                (("fn env_source_data_epoch_no_digits" all)
3489                 (string-append "#[ignore] " all))
3490                (("fn env_source_data_epoch_trailing_garbage" all)
3491                 (string-append "#[ignore] " all))
3492                (("fn export_id_option_error" all)
3493                 (string-append "#[ignore] " all))
3494                (("fn huge_zoom_factor_yields_error" all)
3495                 (string-append "#[ignore] " all))
3496                (("fn multiple_input_files_not_allowed_for_png_output" all)
3497                 (string-append "#[ignore] " all))
3498                (("fn stylesheet_option_error" all)
3499                 (string-append "#[ignore] " all)))))
3500          (replace 'check
3501            (lambda* args
3502              ((assoc-ref gnu:%standard-phases 'check)
3503               #:test-target "check")))
3504          (replace 'install
3505            (assoc-ref gnu:%standard-phases 'install)))))
3506     (native-inputs
3507      (list docbook-xml-4.3
3508            `(,glib "bin")
3509            gobject-introspection
3510            pkg-config
3511            python-wrapper
3512            ruby
3513            vala))
3514     (inputs
3515      (list bzip2
3516            fontconfig
3517            freetype
3518            harfbuzz
3519            libcroco
3520            libgsf
3521            libxml2
3522            pango))
3523     (propagated-inputs
3524      (list cairo gdk-pixbuf glib))
3525     (synopsis "SVG rendering library")
3526     (description "Librsvg is a library to render SVG images to Cairo surfaces.
3527 GNOME uses this to render SVG icons.  Outside of GNOME, other desktop
3528 environments use it for similar purposes.  Wikimedia uses it for Wikipedia's SVG
3529 diagrams.")
3530     (home-page "https://wiki.gnome.org/LibRsvg")
3531     (license license:lgpl2.1+)))
3532
3533 ;; This copy of librsvg uses the bundled rust libraries. It is useful for
3534 ;; packages which have too many dependencies to be rebuilt as frequently
3535 ;; as the rust inputs are updated.
3536 ;; TODO: Remove this package and use packaged rust libraries!
3537 (define-public librsvg-bootstrap
3538   (package
3539     (inherit librsvg)
3540     (name "librsvg")
3541     (version "2.50.7")
3542     (source (origin
3543               (method url-fetch)
3544               (uri (string-append "mirror://gnome/sources/librsvg/"
3545                                   (version-major+minor version)  "/"
3546                                   "librsvg-" version ".tar.xz"))
3547               (sha256
3548                (base32
3549                 "1g3f8byg5w08fx1bka12mmpl59v6a4q2p827w6m2la6mijq63yzz"))
3550               (modules '((guix build utils)))
3551               (snippet
3552                '(begin
3553                   (for-each delete-file (find-files "vendor" "\\.a$"))))))
3554     (arguments
3555      (substitute-keyword-arguments (package-arguments librsvg)
3556        ((#:vendor-dir _ "vendor") "vendor")
3557        ((#:cargo-inputs _) '())
3558        ((#:cargo-development-inputs _) '())))
3559     (properties '((hidden? . #t)))))
3560
3561 (define-public librsvg-2.40
3562   ;; This is the last version implemented in C.
3563   (package
3564     (inherit librsvg)
3565     (version "2.40.21")
3566     (source (origin
3567               (method url-fetch)
3568               (uri (string-append "mirror://gnome/sources/librsvg/"
3569                                   (version-major+minor version)
3570                                   "/librsvg-" version ".tar.xz"))
3571               (sha256
3572                (base32
3573                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
3574     (build-system gnu-build-system)
3575     (arguments
3576      `(#:configure-flags (list "--disable-static")
3577        #:phases
3578        (modify-phases %standard-phases
3579          (add-before 'configure 'pre-configure
3580            (lambda* (#:key inputs #:allow-other-keys)
3581              (substitute* "gdk-pixbuf-loader/Makefile.in"
3582                ;; By default the gdk-pixbuf loader is installed under
3583                ;; gdk-pixbuf's prefix.  Work around that.
3584                (("gdk_pixbuf_moduledir = .*$")
3585                 (string-append "gdk_pixbuf_moduledir = "
3586                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3587                                 "loaders\n"))
3588                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3589                (("gdk_pixbuf_cache_file = .*$")
3590                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3591              #t))
3592          (add-before 'check 'remove-failing-tests
3593            (lambda _
3594              (with-directory-excursion "tests/fixtures/reftests"
3595                (for-each delete-file
3596                          '(;; This test fails on i686:
3597                            "svg1.1/masking-path-04-b.svg"
3598                            ;; This test fails on armhf:
3599                            "svg1.1/masking-mask-01-b.svg"
3600                            ;; This test fails on aarch64:
3601                            "bugs/777834-empty-text-children.svg"
3602
3603                            ;; These two tests fail due to slightly different
3604                            ;; text rendering (different kerning or similar),
3605                            ;; nothing alarming.
3606                            "bugs/340047.svg"
3607                            "bugs/749415.svg"))))))))
3608     (native-inputs
3609      (list pkg-config
3610            `(,glib "bin") ; glib-mkenums, etc.
3611            gobject-introspection)) ; g-ir-compiler, etc.
3612     (inputs
3613      (list pango libcroco bzip2 libgsf libxml2))
3614     (propagated-inputs
3615      ;; librsvg-2.0.pc refers to all of that.
3616      (list cairo gdk-pixbuf glib))
3617     (synopsis "Render SVG files using Cairo (ancient C version)")
3618     (properties '((hidden? . #t)))))
3619
3620 (define* (librsvg-for-system #:optional
3621                              (system (or (%current-target-system)
3622                                          (%current-system))))
3623   ;; Since librsvg 2.50 depends on Rust, and Rust is only correctly supported
3624   ;; on x86_64 so far, use the ancient C version on other platforms (FIXME).
3625   (if (string-prefix? "x86_64-" system)
3626       librsvg
3627       librsvg-2.40))
3628
3629 (export librsvg-for-system)
3630
3631 (define-public libidl
3632   (package
3633     (name "libidl")
3634     (version "0.8.14")
3635     (source (origin
3636               (method url-fetch)
3637               (uri (string-append "mirror://gnome/sources/libIDL/"
3638                                   (version-major+minor version) "/"
3639                                   "libIDL-" version ".tar.bz2"))
3640               (sha256
3641                (base32
3642                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3643     (build-system gnu-build-system)
3644     (inputs (list glib))
3645     (native-inputs
3646      (list pkg-config flex bison))
3647     (home-page "http://freecode.com/projects/libidl")
3648     (synopsis "Create trees of CORBA Interface Definition Language files")
3649     (description  "Libidl is a library for creating trees of CORBA Interface
3650 Definition Language (idl) files, which is a specification for defining
3651 portable interfaces. libidl was initially written for orbit (the orb from the
3652 GNOME project, and the primary means of libidl distribution).  However, the
3653 functionality was designed to be as reusable and portable as possible.")
3654     (properties `((upstream-name . "libIDL")))
3655     (license license:lgpl2.0+)))
3656
3657
3658 (define-public orbit2
3659   (package
3660     (name "orbit2")
3661     (version "2.14.19")
3662     (source (origin
3663               (method url-fetch)
3664               (uri (let ((upstream-name "ORBit2"))
3665                      (string-append "mirror://gnome/sources/" upstream-name "/"
3666                                     (version-major+minor version) "/"
3667                                     upstream-name "-" version ".tar.bz2")))
3668               (sha256
3669                (base32
3670                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
3671     (build-system gnu-build-system)
3672     (arguments
3673      `(;; The "timeout-server" test hangs when run in parallel.
3674        #:parallel-tests? #f
3675        #:configure-flags
3676        '(;; We don't need static libraries, plus they don't build reproducibly
3677          ;; (non-deterministic ordering of .o files in the archive.)
3678          "--disable-static"
3679
3680          ;; The programmer kindly gives us a hook to turn off deprecation
3681          ;; warnings ...
3682          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3683        ;; ... which they then completly ignore !!
3684        #:phases
3685        (modify-phases %standard-phases
3686          (add-after 'unpack 'fix-parallel-build
3687            ;; Parallel build fails because of a failed dependency,
3688            ;; https://bugzilla.gnome.org/show_bug.cgi?id=732274
3689            (lambda _
3690              (substitute* "src/services/name/Makefile.am"
3691                (("orbit_name_server_2_DEPENDENCIES = \\$(DEPS) CosNaming.h")
3692                 "orbit_name_server_2_DEPENDENCIES = \
3693 $(DEPS) CosNaming.h libname-server-2.a"))))
3694          (add-before 'configure 'ignore-deprecations
3695            (lambda _
3696              (substitute* "linc2/src/Makefile.in"
3697                (("-DG_DISABLE_DEPRECATED")
3698                 "-DGLIB_DISABLE_DEPRECATION_WARNINGS")))))))
3699     (inputs (list glib libidl))
3700     (native-inputs
3701      (list pkg-config))
3702     (home-page "https://projects.gnome.org/orbit2/")
3703     (synopsis "CORBA 2.4-compliant Object Request Broker")
3704     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
3705 featuring mature C, C++ and Python bindings.")
3706     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
3707     ;; a version.  SOME of the code files have licence notices for GPLv2+.
3708     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
3709     (license license:gpl2+)
3710     (properties `((upstream-name . "ORBit2")))))
3711
3712
3713 (define-public libbonobo
3714   (package
3715     (name "libbonobo")
3716     (version "2.32.1")
3717     (source (origin
3718               (method url-fetch)
3719               (uri (string-append "mirror://gnome/sources/" name "/"
3720                                   (version-major+minor version)
3721                                   "/" name "-" version ".tar.bz2"))
3722               (sha256
3723                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
3724               (patches (search-patches
3725                         "libbonobo-activation-test-race.patch"))))
3726     (build-system gnu-build-system)
3727     (arguments
3728      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
3729      `(#:configure-flags
3730        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3731        ;; ... which they then completly ignore !!
3732        #:phases
3733        (modify-phases %standard-phases
3734          (add-before 'configure 'ignore-deprecations
3735            (lambda _
3736              (substitute* "activation-server/Makefile.in"
3737                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3738              #t)))
3739
3740        ;; There's apparently a race condition between the server stub
3741        ;; generation and linking of the example under 'samples/echo' that can
3742        ;; lead do undefined references when building in parallel, as reported
3743        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3744        ;; Thus, disable parallel builds.
3745        #:parallel-build? #f))
3746     (inputs (list popt libxml2))
3747     ;; The following are Required by the .pc file
3748     (propagated-inputs
3749      (list glib orbit2))
3750     (native-inputs
3751      (list intltool
3752            pkg-config
3753            `(,glib "bin") ; for glib-genmarshal, etc.
3754            flex
3755            bison))
3756     (home-page "https://developer.gnome.org/libbonobo/")
3757     (synopsis "Framework for creating reusable components for use in GNOME applications")
3758     (description "Bonobo is a framework for creating reusable components for
3759 use in GNOME applications, built on top of CORBA.")
3760     ;; Licence not explicitly stated.  Source files contain no licence notices.
3761     ;; Tarball contains text of both GPLv2 and LGPLv2
3762     ;; GPLv2 covers both conditions
3763     (license license:gpl2+)))
3764
3765
3766 (define-public gconf
3767   (package
3768     (name "gconf")
3769     (version "3.2.6")
3770     (source (origin
3771               (method url-fetch)
3772               (uri
3773                (let ((upstream-name "GConf"))
3774                  (string-append "mirror://gnome/sources/" upstream-name "/"
3775                                 (version-major+minor version) "/"
3776                                 upstream-name "-" version ".tar.xz")))
3777               (sha256
3778                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3779     (build-system gnu-build-system)
3780     (inputs (list dbus-glib libxml2))
3781     (propagated-inputs (list glib ; referred to in the .pc file
3782                              orbit2))
3783     (native-inputs
3784      (list intltool
3785            `(,glib "bin") ; for glib-genmarshal, etc.
3786            pkg-config))
3787     (home-page "https://projects.gnome.org/gconf/")
3788     (synopsis "Store application preferences")
3789     (description "Gconf is a system for storing application preferences.  It
3790 is intended for user preferences; not arbitrary data storage.")
3791     (license license:lgpl2.0+)
3792     (properties '((upstream-name . "GConf")))))
3793
3794
3795 (define-public gnome-mime-data
3796   (package
3797     (name "gnome-mime-data")
3798     (version "2.18.0")
3799     (source (origin
3800               (method url-fetch)
3801               (uri (string-append "mirror://gnome/sources/" name "/"
3802                                   (version-major+minor version)  "/"
3803                                   name "-" version ".tar.bz2"))
3804               (sha256
3805                (base32
3806                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3807     (build-system gnu-build-system)
3808     (native-inputs
3809      (list perl intltool))
3810     (arguments
3811      '(#:phases (modify-phases %standard-phases
3812                   (add-after 'configure 'use-our-intltool
3813                     (lambda _
3814                       ;; Do not use the bundled intltool commands, which lack
3815                       ;; the "dotless @INC" fixes of our 'intltool' package.
3816                       (substitute* (find-files "." "^Makefile$")
3817                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3818                          (string-append "INTLTOOL_" tool " = intltool-"
3819                                         (string-downcase tool) "\n")))
3820                       #t)))))
3821     (home-page "https://www.gnome.org")
3822     (synopsis "Base MIME and Application database for GNOME")
3823     (description  "GNOME Mime Data is a module which contains the base MIME
3824 and Application database for GNOME.  The data stored by this module is
3825 designed to be accessed through the MIME functions in GnomeVFS.")
3826     (license license:gpl2+)))
3827
3828
3829 (define-public gnome-vfs
3830   (package
3831     (name "gnome-vfs")
3832     (version "2.24.4")
3833     (source (origin
3834               (method url-fetch)
3835               (uri (string-append "mirror://gnome/sources/" name "/"
3836                                   (version-major+minor version)  "/"
3837                                   name "-" version ".tar.bz2"))
3838               (sha256
3839                (base32
3840                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
3841     (build-system gnu-build-system)
3842     (arguments
3843      `(#:phases
3844        (modify-phases %standard-phases
3845          (add-before 'configure 'ignore-deprecations
3846            (lambda _
3847              (substitute* '("libgnomevfs/Makefile.in"
3848                             "daemon/Makefile.in")
3849                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3850              #t))
3851          (add-before 'configure 'patch-test-async-cancel-to-never-fail
3852            (lambda _
3853              (substitute* "test/test-async-cancel.c"
3854                (("EXIT_FAILURE") "77"))
3855              #t)))))
3856     (inputs (list libxml2 dbus-glib gconf gnome-mime-data zlib))
3857     (native-inputs
3858      (list `(,glib "bin") ; for glib-mkenums, etc.
3859            intltool pkg-config))
3860     (home-page "https://developer.gnome.org/gnome-vfs/")
3861     (synopsis "Access files and folders in GNOME applications")
3862     (description
3863      "GnomeVFS is the core library used to access files and folders in GNOME
3864 applications.  It provides a file system abstraction which allows applications
3865 to access local and remote files with a single consistent API.")
3866     (license license:lgpl2.0+)))
3867
3868
3869
3870 (define-public libgnome
3871   (package
3872     (name "libgnome")
3873     (version "2.32.1")
3874     (source (origin
3875               (method url-fetch)
3876               (uri (string-append "mirror://gnome/sources/" name "/"
3877                                   (version-major+minor version)  "/"
3878                                   name "-" version ".tar.bz2"))
3879               (sha256
3880                (base32
3881                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3882               (patches (search-patches "libgnome-encoding.patch"))))
3883     (build-system gnu-build-system)
3884     (arguments
3885      `(#:phases
3886        (modify-phases %standard-phases
3887          (add-before 'configure 'enable-deprecated
3888            (lambda _
3889              (substitute* "libgnome/Makefile.in"
3890                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3891              #t)))))
3892     (inputs (list libxml2))
3893     (native-inputs
3894      (list `(,glib "bin") ; for glib-mkenums, etc.
3895            intltool pkg-config))
3896     ;; The following are listed as Required in the .pc file
3897     ;; (except for libcanberra -- which seems to be oversight on the part
3898     ;; of the upstream developers -- anything that links against libgnome,
3899     ;; must also link against libcanberra
3900     (propagated-inputs
3901      (list libcanberra libbonobo gconf gnome-vfs popt))                       ;gnome-program.h includes popt.h
3902     (home-page "https://developer.gnome.org/libgnome/")
3903     (synopsis "Useful routines for building applications")
3904     (description  "The libgnome library provides a number of useful routines
3905 for building modern applications, including session management, activation of
3906 files and URIs, and displaying help.")
3907     (license license:lgpl2.0+)))
3908
3909
3910 (define-public libart-lgpl
3911   (package
3912     (name "libart-lgpl")
3913     (version "2.3.21")
3914     (source (origin
3915               (method url-fetch)
3916               (uri (let ((upstream-name "libart_lgpl"))
3917                      (string-append "mirror://gnome/sources/" upstream-name "/"
3918                                     (version-major+minor version) "/"
3919                                     upstream-name "-" version ".tar.bz2")))
3920               (sha256
3921                (base32
3922                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
3923     (build-system gnu-build-system)
3924     (native-inputs
3925      (list pkg-config))
3926     (home-page "https://people.gnome.org/~mathieu/libart")
3927     (synopsis "2D drawing library")
3928     (description  "Libart is a 2D drawing library intended as a
3929 high-quality vector-based 2D library with antialiasing and alpha composition.")
3930     (license license:lgpl2.0+)))
3931
3932
3933
3934 (define-public libgnomecanvas
3935   (package
3936     (name "libgnomecanvas")
3937     (version "2.30.3")
3938     (source (origin
3939               (method url-fetch)
3940               (uri (string-append "mirror://gnome/sources/" name "/"
3941                                   (version-major+minor version)  "/"
3942                                   name "-" version ".tar.gz"))
3943               (sha256
3944                (base32
3945                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
3946     (build-system gnu-build-system)
3947     ;; Mentioned as Required in the .pc file
3948     (propagated-inputs (list libart-lgpl gtk+-2))
3949     (native-inputs
3950      (list intltool
3951            `(,glib "bin") ; for glib-genmarshal, etc.
3952            pkg-config))
3953     (home-page "https://developer.gnome.org/libgnomecanvas/")
3954     (synopsis "Flexible widget for creating interactive structured graphics")
3955     (description  "The GnomeCanvas widget provides a flexible widget for
3956 creating interactive structured graphics.")
3957     (license license:lgpl2.0+)))
3958
3959 (define-public libgnomecanvasmm
3960   (package
3961     (name "libgnomecanvasmm")
3962     (version "2.26.0")
3963     (source (origin
3964               (method url-fetch)
3965               (uri (string-append "mirror://gnome/sources/" name "/"
3966                                   (version-major+minor version)  "/"
3967                                   name "-" version ".tar.bz2"))
3968               (sha256
3969                (base32
3970                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
3971     (build-system gnu-build-system)
3972     (propagated-inputs (list libgnomecanvas))
3973     (native-inputs
3974      (list gtkmm-2 pkg-config))
3975     (home-page "https://gtkmm.org")
3976     (synopsis "C++ bindings to the GNOME Canvas library")
3977     (description "C++ bindings to the GNOME Canvas library.")
3978     (license license:lgpl2.0+)))
3979
3980 (define-public libgnomeui
3981   (package
3982     (name "libgnomeui")
3983     (version "2.24.5")
3984     (source (origin
3985               (method url-fetch)
3986               (uri (string-append "mirror://gnome/sources/" name "/"
3987                                   (version-major+minor version)  "/"
3988                                   name "-" version ".tar.bz2"))
3989               (patches (search-patches "libgnomeui-utf8.patch"))
3990               (sha256
3991                (base32
3992                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
3993     (build-system gnu-build-system)
3994     ;; Mentioned as Required in the .pc file
3995     (propagated-inputs (list libbonoboui libgnome libgnomecanvas
3996                              libgnome-keyring))
3997     (inputs (list libjpeg-turbo popt libbonobo libxml2 libglade))
3998     (native-inputs
3999      (list `(,glib "bin") ; for glib-mkenums, etc.
4000            intltool pkg-config))
4001     (home-page "https://developer.gnome.org/libgnomeui/")
4002     (synopsis "Additional widgets for applications")
4003     (description "The libgnomeui library provides additional widgets for
4004 applications.  Many of the widgets from libgnomeui have already been
4005 ported to GTK+.")
4006     (license license:lgpl2.0+)))
4007
4008 (define-public libglade
4009   (package
4010     (name "libglade")
4011     (version "2.6.4")
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                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
4020     (build-system gnu-build-system)
4021     (inputs
4022      (list python)) ;; needed for the optional libglade-convert program
4023     (propagated-inputs
4024      (list gtk+-2 libxml2)) ; required by libglade-2.0.pc
4025     (native-inputs
4026      (list pkg-config))
4027     (home-page "https://developer.gnome.org/libglade")
4028     (synopsis "Load glade interfaces and access the glade built widgets")
4029     (description "Libglade is a library that provides interfaces for loading
4030 graphical interfaces described in glade files and for accessing the
4031 widgets built in the loading process.")
4032     (license license:gpl2+))) ; This is correct.  GPL not LGPL
4033
4034 (define-public libbonoboui
4035   (package
4036     (name "libbonoboui")
4037     (version "2.24.5")
4038     (source (origin
4039               (method url-fetch)
4040               (uri (string-append "mirror://gnome/sources/" name "/"
4041                                   (version-major+minor version)  "/"
4042                                   name "-" version ".tar.bz2"))
4043               (sha256
4044                (base32
4045                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
4046     (build-system gnu-build-system)
4047     (arguments
4048      `(#:phases
4049        (modify-phases %standard-phases
4050          (add-before 'check 'start-xserver
4051            (lambda* (#:key inputs #:allow-other-keys)
4052              (let ((xorg-server (assoc-ref inputs "xorg-server"))
4053                    (disp ":1"))
4054
4055                (setenv "HOME" (getcwd))
4056                (setenv "DISPLAY" disp)
4057                ;; There must be a running X server and make check doesn't start one.
4058                ;; Therefore we must do it.
4059                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
4060     ;; Mentioned as Required by the .pc file
4061     (propagated-inputs (list libxml2))
4062     (inputs
4063      (list popt pangox-compat libgnome libgnomecanvas libglade))
4064     (native-inputs
4065      (list `(,glib "bin") ; for glib-genmarshal, etc.
4066            intltool
4067            xorg-server-for-tests ; For running the tests
4068            pkg-config))
4069     (home-page "https://developer.gnome.org/libbonoboui/")
4070     (synopsis "Some user interface controls using Bonobo")
4071     (description  "The Bonobo UI library provides a number of user interface
4072 controls using the Bonobo component framework.")
4073     (license license:lgpl2.0+)))
4074
4075 (define-public libwnck
4076   (package
4077     (name "libwnck")
4078     (version "3.32.0")
4079     (source (origin
4080               (method url-fetch)
4081               (uri (string-append "mirror://gnome/sources/" name "/"
4082                                   (version-major+minor version) "/"
4083                                   name "-" version ".tar.xz"))
4084               (sha256
4085                (base32
4086                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
4087     (build-system meson-build-system)
4088     (native-inputs
4089      (list pkg-config
4090            `(,glib "bin") ; for glib-mkenums
4091            gobject-introspection ; for g-ir-scanner
4092            intltool))
4093     (propagated-inputs
4094      (list gtk+ libxres startup-notification))
4095     (home-page "https://developer.gnome.org/libwnck/")
4096     (synopsis "Window Navigator Construction Kit")
4097     (description
4098      "Libwnck is the Window Navigator Construction Kit, a library for use in
4099 writing pagers, tasklists, and more generally applications that are dealing
4100 with window management.  It tries hard to respect the Extended Window Manager
4101 Hints specification (EWMH).")
4102     (license license:lgpl2.0+)))
4103
4104 ;; stable version for gtk2, required by xfwm4.
4105 (define-public libwnck-2
4106   (package (inherit libwnck)
4107     (name "libwnck")
4108     (version "2.30.7")
4109     (source (origin
4110               (method url-fetch)
4111               (uri (string-append "mirror://gnome/sources/" name "/"
4112                                   (version-major+minor version) "/"
4113                                   name "-" version ".tar.xz"))
4114               (sha256
4115                (base32
4116                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
4117     (build-system gnu-build-system)
4118     (native-inputs
4119      (list pkg-config intltool))
4120     (propagated-inputs
4121      (list gtk+-2 libxres startup-notification))))
4122
4123 (define-public goffice
4124   (package
4125     (name "goffice")
4126     (version "0.10.50")
4127     (source (origin
4128               (method url-fetch)
4129               (uri (string-append "mirror://gnome/sources/goffice/"
4130                                   (version-major+minor version)  "/"
4131                                   "goffice-" version ".tar.xz"))
4132               (sha256
4133                (base32 "1p5zbj7cbcfcxd6l8pnph54p6ah1bwf146y810j4bcq8ggf3sp1c"))))
4134     (build-system gnu-build-system)
4135     (outputs '("out"
4136                "doc"))                  ; 4.0 MiB of gtk-doc
4137     (arguments
4138      '(#:configure-flags (list (string-append "--with-html-dir="
4139                                               (assoc-ref %outputs "doc")
4140                                               "/share/gtk-doc/html"))))
4141     (inputs
4142      (list gtk+ libgsf librsvg libxslt libxml2))
4143     (native-inputs
4144      (list intltool
4145            `(,glib "bin") pkg-config))
4146     (home-page "https://developer.gnome.org/goffice/")
4147     (synopsis "Document-centric objects and utilities")
4148     (description "A GLib/GTK+ set of document-centric objects and utilities.")
4149     (license
4150      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4151      ;; Note: NOT LGPL
4152      (list license:gpl2 license:gpl3))))
4153
4154 (define-public goffice-0.8
4155   (package (inherit goffice)
4156     (version "0.8.17")
4157     (source (origin
4158               (method url-fetch)
4159               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4160                                   (version-major+minor version)  "/"
4161                                   (package-name goffice) "-" version ".tar.xz"))
4162               (sha256
4163                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4164     (arguments
4165      `(#:phases
4166        (modify-phases %standard-phases
4167          (add-after 'unpack 'fix-pcre-check
4168            (lambda _
4169              ;; Only glib.h can be included directly.  See
4170              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4171              (substitute* "configure"
4172                (("glib/gregex\\.h") "glib.h")) #t)))
4173
4174        ,@(package-arguments goffice)))
4175     (propagated-inputs
4176      ;; libgoffice-0.8.pc mentions libgsf-1
4177      (list libgsf))
4178     (inputs
4179      `(("gtk" ,gtk+-2)
4180        ,@(alist-delete "gtk" (package-inputs goffice))))))
4181
4182 (define-public gnumeric
4183   (package
4184     (name "gnumeric")
4185     (version "1.12.50")
4186     (source (origin
4187               (method url-fetch)
4188               (uri (string-append "mirror://gnome/sources/gnumeric/"
4189                                   (version-major+minor version)  "/"
4190                                   "gnumeric-" version ".tar.xz"))
4191               (sha256
4192                (base32
4193                 "1f0lrj5msg80pgjp38jj6rddf352gwddgip7z4lki66n3fx1k23m"))))
4194     (build-system glib-or-gtk-build-system)
4195     (arguments
4196      `(;; The gnumeric developers don't worry much about failing tests.
4197        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
4198        #:tests? #f
4199        #:phases
4200        (modify-phases %standard-phases
4201          (add-before
4202           'configure 'pre-conf
4203            (lambda* (#:key outputs #:allow-other-keys)
4204              ;; Make install tries to write into the directory of goffice
4205              ;; I am informed that this only affects the possibility to embed a
4206              ;; spreadsheet inside an Abiword document.   So presumably when we
4207              ;; package Abiword we'll have to refer it to this directory.
4208              (substitute* "configure"
4209                (("^GOFFICE_PLUGINS_DIR=.*")
4210                 (string-append "GOFFICE_PLUGINS_DIR="
4211                                (assoc-ref outputs "out")
4212                                "/goffice/plugins"))))))))
4213     (inputs
4214      (list glib
4215            gtk+
4216            goffice
4217            libgsf
4218            librsvg
4219            libxml2
4220            libxslt
4221            python
4222            python-pygobject
4223            zlib))
4224     (native-inputs
4225      `(("bison" ,bison)
4226        ("docbook-xml" ,docbook-xml)
4227        ("intltool" ,intltool)
4228        ("itstool" ,itstool)
4229        ("glib:bin" ,glib "bin")
4230        ("pkg-config" ,pkg-config)))
4231     (home-page "http://www.gnumeric.org")
4232     (synopsis "Spreadsheet application")
4233     (description
4234      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
4235 interoperable with other spreadsheet applications.  It has a vast array of
4236 features beyond typical spreadsheet functionality, such as support for linear
4237 and non-linear solvers, statistical analysis, and telecommunication
4238 engineering.")
4239     (license
4240     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4241      (list license:gpl2 license:gpl3))))
4242
4243 (define-public drawing
4244   (package
4245     (name "drawing")
4246     (version "0.8.3")
4247     (source
4248      (origin
4249        (method git-fetch)
4250        (uri (git-reference
4251              (url "https://github.com/maoschanz/drawing")
4252              (commit version)))
4253        (file-name (git-file-name name version))
4254        (sha256
4255         (base32 "0wz9p47riyy3h8b0sqsb6bx416hc6d1a1wyzlfmsxkrqrkwcjcm8"))))
4256     (build-system meson-build-system)
4257     (arguments
4258      `(#:glib-or-gtk? #t
4259        #:phases
4260        (modify-phases %standard-phases
4261          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
4262            (lambda* (#:key outputs #:allow-other-keys)
4263              (let ((prog (string-append (assoc-ref outputs "out")
4264                                         "/bin/drawing"))
4265                    (pylib (string-append (assoc-ref outputs "out")
4266                                          "/lib/python"
4267                                          ,(version-major+minor
4268                                            (package-version python))
4269                                          "/site-packages")))
4270                (wrap-program prog
4271                  `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
4272                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
4273     (native-inputs
4274      `(("desktop-file-utils" ,desktop-file-utils)
4275        ("gettext" ,gettext-minimal)
4276        ("glib:bin" ,glib "bin")
4277        ("gobject-introspection" ,gobject-introspection)
4278        ("gtk+:bin" ,gtk+ "bin")
4279        ("pkg-config" ,pkg-config)))
4280     (inputs
4281      (list librsvg
4282            gsettings-desktop-schemas
4283            gtk+
4284            pango
4285            python-pycairo
4286            python-pygobject))
4287     (home-page "https://maoschanz.github.io/drawing/")
4288     (synopsis "Basic image editor for GNOME")
4289     (description
4290      "Drawing is a basic image editor aiming at the GNOME desktop.")
4291     (license license:gpl3+)))
4292
4293 (define-public gnome-themes-standard
4294   (package
4295     (name "gnome-themes-standard")
4296     (version "3.22.3")
4297     (source
4298      (origin
4299        (method url-fetch)
4300        (uri (string-append "mirror://gnome/sources/" name "/"
4301                            (version-major+minor version) "/" name "-"
4302                            version ".tar.xz"))
4303        (sha256
4304         (base32
4305          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
4306     (build-system gnu-build-system)
4307     (arguments
4308      '(#:configure-flags
4309        ;; Don't create 'icon-theme.cache'.
4310        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
4311               (true      (string-append coreutils "/bin/true")))
4312          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
4313     (inputs
4314      `(("gtk+" ,gtk+)
4315        ("gtk+-2" ,gtk+-2)
4316        ("librsvg" ,librsvg)
4317        ("libxml2" ,libxml2)
4318        ("glib" ,glib)))
4319     (native-inputs
4320      `(("intltool" ,intltool)
4321        ("glib:bin" ,glib "bin")
4322        ("pkg-config" ,pkg-config)))
4323     (home-page "https://launchpad.net/gnome-themes-standard")
4324     (synopsis "Default GNOME 3 themes")
4325     (description
4326      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
4327     (license license:lgpl2.1+)))
4328
4329 (define-public seahorse
4330   (package
4331     (name "seahorse")
4332     (version "41.0")
4333     (source
4334      (origin
4335        (method url-fetch)
4336        (uri (string-append "mirror://gnome/sources/" name "/"
4337                            (version-major version) "/" name "-"
4338                            version ".tar.xz"))
4339        (sha256
4340         (base32 "1x99i7kdvd8hbxcs5rfrq7nw6r9bfzaw263zaigjjj04h6gc1vp6"))))
4341     (build-system meson-build-system)
4342     (arguments
4343      '(#:glib-or-gtk? #t
4344        #:phases
4345        (modify-phases %standard-phases
4346          (add-after 'unpack 'skip-gtk-update-icon-cache
4347            ;; Don't create 'icon-theme.cache'.
4348            (lambda _
4349              (substitute* "build-aux/meson_post_install.py"
4350                (("gtk-update-icon-cache") "true"))
4351              #t))
4352          (add-before 'check 'pre-check
4353            (lambda _
4354              ;; Tests require a writable HOME.
4355              (setenv "HOME" (getcwd)))))))
4356     (inputs
4357      `(("gtk+" ,gtk+)
4358        ("gcr" ,gcr)
4359        ("gnupg" ,gnupg)
4360        ("gpgme" ,gpgme)
4361        ("openldap" ,openldap)
4362        ("openssh" ,openssh)
4363        ("avahi" ,avahi)
4364        ("libhandy" ,libhandy)
4365        ("libpwquality" ,libpwquality)
4366        ("libsecret" ,libsecret)
4367        ("libsoup" ,libsoup-minimal-2)))
4368     (native-inputs
4369      `(("gettext" ,gettext-minimal)
4370        ("glib:bin" ,glib "bin")
4371        ("itstool" ,itstool)
4372        ("pkg-config" ,pkg-config)
4373        ("vala" ,vala)
4374        ("xmllint" ,libxml2)))
4375     (home-page "https://wiki.gnome.org/Apps/Seahorse")
4376     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4377     (description
4378      "Seahorse is a GNOME application for managing encryption keys and
4379 passwords in the GNOME keyring.")
4380     (license license:gpl2+)))
4381
4382 (define-public vala
4383   (package
4384     (name "vala")
4385     (version "0.54.2")
4386     (source (origin
4387               (method url-fetch)
4388               (uri (string-append "mirror://gnome/sources/vala/"
4389                                   (version-major+minor version) "/"
4390                                   "vala-" version ".tar.xz"))
4391               (sha256
4392                (base32
4393                 "048k5c6c6y7jyb961krnrb7m0kghr0yrkpnfx3j5ckbx652yfkc8"))))
4394     (build-system glib-or-gtk-build-system)
4395     (arguments
4396      '(#:configure-flags '("--enable-coverage")
4397        #:phases
4398        (modify-phases %standard-phases
4399          (add-after 'unpack 'patch-docbook-xml
4400            (lambda* (#:key inputs #:allow-other-keys)
4401              (with-directory-excursion "doc/manual"
4402                (substitute* '("manual.xml" "version.xml.in")
4403                  (("http://www.oasis-open.org/docbook/xml/4.4/")
4404                   (string-append (assoc-ref inputs "docbook-xml")
4405                                  "/xml/dtd/docbook/"))))))
4406          (add-before 'check 'pre-check
4407            (lambda _
4408              (setenv "CC" "gcc")
4409              (substitute* "valadoc/tests/libvaladoc\
4410 /tests-extra-environment.sh"
4411                (("export PKG_CONFIG_PATH=" m)
4412                 (string-append m "$PKG_CONFIG_PATH:"))))))))
4413     (native-inputs
4414      `(("bison" ,bison)
4415        ("dbus" ,dbus)                   ; for dbus tests
4416        ("docbook-xml" ,docbook-xml-4.4)
4417        ("docbook-xsl" ,docbook-xsl)
4418        ("flex" ,flex)
4419        ("gobject-introspection" ,gobject-introspection) ; for gir tests
4420        ("help2man" ,help2man)
4421        ("perl" ,perl)
4422        ("pkg-config" ,pkg-config)
4423        ("xsltproc" ,libxslt)))
4424     (propagated-inputs
4425      `(("glib" ,glib)                   ; required by libvala-0.40.pc
4426        ("libgvc" ,graphviz)))
4427     (home-page "https://wiki.gnome.org/Projects/Vala/")
4428     (synopsis "Compiler using the GObject type system")
4429     (description "Vala is a programming language using modern high level
4430 abstractions without imposing additional runtime requirements and without using
4431 a different ABI compared to applications and libraries written in C.  Vala uses
4432 the GObject type system and has additional code generation routines that make
4433 targeting the GNOME stack simple.")
4434     (license license:lgpl2.1+)))
4435
4436 ;;; An older variant kept to build libsoup-minimal-2.
4437 (define-public vala-0.52
4438   (package/inherit vala
4439     (version "0.52.0")
4440     (source (origin
4441               (method url-fetch)
4442               (uri (string-append "mirror://gnome/sources/vala/"
4443                                   (version-major+minor version) "/"
4444                                   "vala-" version ".tar.xz"))
4445               (sha256
4446                (base32
4447                 "12y6p8wdjp01vmfhxg2cgh32xnyqq6ivblvrar9clnj6vc867qhx"))))))
4448
4449 (define-public vte
4450   (package
4451     (name "vte")
4452     (version "0.64.2")
4453     (source (origin
4454               (method url-fetch)
4455               (uri (string-append "mirror://gnome/sources/vte/"
4456                                   (version-major+minor version) "/"
4457                                   "vte-" version ".tar.xz"))
4458               (sha256
4459                (base32
4460                 "063ys3330cvhbz1dln9irhciavb2prw098lvhpcc2rx6cl5q4g1b"))))
4461     (build-system meson-build-system)
4462     (arguments
4463      `(#:configure-flags
4464        '("-Dvapi=true"
4465          "-D_systemd=false")))
4466     (native-inputs
4467      `(("pkg-config" ,pkg-config)
4468        ("gettext" ,gettext-minimal)
4469        ("vala" ,vala)
4470        ("gobject-introspection" ,gobject-introspection)
4471        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4472        ("gperf" ,gperf)
4473        ("xmllint" ,libxml2)))
4474     (propagated-inputs
4475      (list gtk+ ; required by vte-2.91.pc
4476            gnutls ; ditto
4477            pcre2))               ; ditto
4478     (home-page "https://www.gnome.org/")
4479     (synopsis "Virtual Terminal Emulator")
4480     (description
4481      "VTE is a library (libvte) implementing a terminal emulator widget for
4482 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
4483 gnome-terminal, but can also be used to embed a console/terminal in games,
4484 editors, IDEs, etc.")
4485     (license license:lgpl2.1+)))
4486
4487 (define-public vte-ng
4488   (package
4489     (inherit vte)
4490     (name "vte-ng")
4491     (version "0.58.2.a")
4492     (home-page "https://github.com/thestinger/vte-ng")
4493     (source (origin
4494               (method git-fetch)
4495               (uri (git-reference (url home-page) (commit version)))
4496               (file-name (git-file-name name version))
4497               (sha256
4498                (base32
4499                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4500     (build-system meson-build-system)
4501     (arguments
4502      (list #:configure-flags #~(list "-Ddocs=false")))
4503   (synopsis "Enhanced VTE terminal widget")
4504   (description
4505    "VTE is a library (libvte) implementing a terminal emulator widget for
4506 GTK+, this fork provides additional functions exposed for keyboard text
4507 selection and URL hints.")))
4508
4509 ;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
4510 (define-public vte/gtk+-2
4511   (package (inherit vte)
4512     (name "vte")
4513     (version "0.28.2")
4514     (source (origin
4515               (method url-fetch)
4516               (uri (string-append "mirror://gnome/sources/" name "/"
4517                                   (version-major+minor version) "/"
4518                                   name "-" version ".tar.xz"))
4519               (sha256
4520                (base32
4521                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4522               (patches (search-patches
4523                          "vte-CVE-2012-2738-pt1.patch"
4524                          "vte-CVE-2012-2738-pt2.patch"))))
4525     (build-system gnu-build-system)
4526     (arguments
4527      '(#:configure-flags '("--disable-python")))
4528     (native-inputs
4529      (list pkg-config intltool
4530            `(,glib "bin")))   ; for glib-genmarshal, etc.
4531     (propagated-inputs
4532      (list gtk+-2 ; required by libvte.pc
4533            ncurses)))) ; required by libvte.la
4534
4535 (define-public vinagre
4536   (package
4537     (name "vinagre")
4538     (version "3.22.0")
4539     (source (origin
4540               (method url-fetch)
4541               (uri (string-append "mirror://gnome/sources/" name "/"
4542                                   (version-major+minor version) "/"
4543                                   name "-" version ".tar.xz"))
4544               (patches (search-patches "vinagre-newer-freerdp.patch"
4545                                        "vinagre-newer-rdp-parameters.patch"))
4546               (sha256
4547                (base32
4548                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4549     (build-system glib-or-gtk-build-system)
4550     (arguments
4551      ;; Disable -Werror and such, to avoid build failures on compilation
4552      ;; warnings.
4553      '(#:configure-flags '("--enable-compile-warnings=minimum"
4554                            "CFLAGS=-O2 -g -fcommon")
4555        #:phases
4556        (modify-phases %standard-phases
4557          (add-before 'install 'skip-gtk-update-icon-cache
4558            (lambda _
4559              ;; Don't create 'icon-theme.cache'
4560              (substitute* (find-files "." "^Makefile$")
4561                (("gtk-update-icon-cache") (which "true")))
4562              #t))
4563          (add-after 'unpack 'patch-configure
4564            (lambda _
4565              (substitute* "configure"
4566                (("freerdp") "freerdp2"))
4567              #t)))))
4568     (native-inputs
4569      `(("pkg-config" ,pkg-config)
4570        ("intltool" ,intltool)
4571        ("itstool" ,itstool)
4572        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
4573     (inputs
4574      (list libxml2
4575            gtk-vnc
4576            gnome-keyring
4577            libsecret
4578            freerdp
4579            spice
4580            spice-gtk
4581            telepathy-glib
4582            vte))
4583     (home-page "https://wiki.gnome.org/Apps/Vinagre")
4584     (synopsis "Remote desktop viewer for GNOME")
4585     (description "Vinagre is a remote display client supporting the VNC, SPICE
4586 and RDP protocols.")
4587     (license license:gpl3+)))
4588
4589 (define-public dconf
4590   (package
4591     (name "dconf")
4592     (version "0.40.0")
4593     (source (origin
4594               (method url-fetch)
4595               (uri (string-append
4596                     "mirror://gnome/sources/" name "/"
4597                     (version-major+minor version) "/"
4598                     name "-" version ".tar.xz"))
4599               (sha256
4600                (base32
4601                 "0cs5nayg080y8pb9b7qccm1ni8wkicdmqp1jsgc22110r6j24zyg"))))
4602     (build-system meson-build-system)
4603     (propagated-inputs
4604      ;; In Requires of dconf.pc.
4605      (list glib))
4606     (inputs
4607      (list gtk+ dbus))
4608     (native-inputs
4609      `(("bash-completion" ,bash-completion)
4610        ("libxslt" ,libxslt)                     ;for xsltproc
4611        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
4612        ("docbook-xml" ,docbook-xml-4.2)
4613        ("docbook-xsl" ,docbook-xsl)
4614        ("glib:bin" ,glib "bin")
4615        ("gtk-doc" ,gtk-doc/stable)
4616        ("pkg-config" ,pkg-config)
4617        ("vala" ,vala)))
4618     (arguments
4619      `(#:glib-or-gtk? #t
4620        #:configure-flags '("-Dgtk_doc=true")
4621        #:phases (modify-phases %standard-phases
4622                   (add-after 'unpack 'increase-test-timeout
4623                     (lambda _
4624                       ;; On big-memory systems, the engine test may take
4625                       ;; much longer than the default of 30 seconds.
4626                       (substitute* "tests/meson.build"
4627                         (("test\\(unit_test\\[0\\], exe" all)
4628                          (string-append all ", timeout: 300"))))))))
4629     (home-page "https://developer.gnome.org/dconf/")
4630     (synopsis "Low-level GNOME configuration system")
4631     (description "Dconf is a low-level configuration system.  Its main purpose
4632 is to provide a backend to GSettings on platforms that don't already have
4633 configuration storage systems.")
4634     (license license:lgpl2.1+)))
4635
4636 (define-public json-glib-minimal
4637   (package
4638     (name "json-glib-minimal")
4639     (version "1.6.2")
4640     (source (origin
4641               (method url-fetch)
4642               (uri (string-append "mirror://gnome/sources/json-glib/"
4643                                   (version-major+minor version)
4644                                   "/json-glib-" version ".tar.xz"))
4645               (sha256
4646                (base32
4647                 "092g2dyy1hhl0ix9kp33wcab0pg1qicnsv0cj5ms9g9qs336cgd3"))))
4648     (build-system meson-build-system)
4649     (arguments
4650      `(#:glib-or-gtk? #t))           ; To wrap binaries and/or compile schemas
4651     (native-inputs
4652      `(("gettext" ,gettext-minimal)
4653        ("glib" ,glib "bin")             ;for glib-mkenums and glib-genmarshal
4654        ("pkg-config" ,pkg-config)))
4655     (inputs
4656      (list bash-minimal))
4657     (propagated-inputs
4658      (list glib))                 ;according to json-glib-1.0.pc
4659     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4660     (synopsis "Glib and GObject implementation of JSON")
4661     (description "JSON-GLib is a library providing serialization and
4662 described by RFC 4627.  It implements a full JSON parser and generator using
4663 GLib and GObject, and integrates JSON with GLib data types.")
4664     (license license:lgpl2.1+)))
4665
4666 (define-public json-glib
4667   (package/inherit json-glib-minimal
4668     (name "json-glib")
4669     (outputs (cons "doc" (package-outputs json-glib-minimal)))
4670     (arguments
4671      (substitute-keyword-arguments (package-arguments json-glib-minimal)
4672        ((#:configure-flags _)
4673         `(list "-Ddocs=true"
4674                "-Dman=true"
4675                ,@(if (%current-target-system)
4676                      ;; If enabled, gtkdoc-scangobj will try to execute a
4677                      ;; cross-compiled binary.
4678                      '("-Dgtk_doc=disabled"
4679                        ;; Trying to build introspection data when cross-compiling
4680                        ;; causes errors during linking.
4681                        "-Dintrospection=disabled")
4682                      '())))
4683        ((#:phases phases '%standard-phases)
4684         `(modify-phases ,phases
4685            (add-after 'unpack 'patch-docbook
4686              (lambda* (#:key native-inputs inputs #:allow-other-keys)
4687                (with-directory-excursion "doc"
4688                  (substitute* (find-files "." "\\.xml$")
4689                    (("http://www.oasis-open.org/docbook/xml/4\\.3/")
4690                     (string-append (assoc-ref (or native-inputs inputs)
4691                                               "docbook-xml")
4692                                    "/xml/dtd/docbook/")))
4693                  (substitute* "meson.build"
4694                    (("http://docbook.sourceforge.net/release/xsl/current/")
4695                     (string-append (assoc-ref (or native-inputs inputs)
4696                                               "docbook-xsl")
4697                                    "/xml/xsl/docbook-xsl-1.79.2/"))))))
4698            ;; When cross-compiling, there are no docs to move.
4699            ,(if (%current-target-system)
4700                 '(add-after 'install 'stub-docs
4701                    (lambda* (#:key outputs #:allow-other-keys)
4702                      ;; The daemon doesn't like empty output paths.
4703                      (mkdir (assoc-ref outputs "doc"))))
4704                 '(add-after 'install 'move-docs
4705                    (lambda* (#:key outputs #:allow-other-keys)
4706                      (let* ((out (assoc-ref outputs "out"))
4707                             (doc (assoc-ref outputs "doc")))
4708                        (mkdir-p (string-append doc "/share"))
4709                        (rename-file
4710                         (string-append out "/share/gtk-doc")
4711                         (string-append doc "/share/gtk-doc"))))))))))
4712     (native-inputs
4713      (append
4714          `(("docbook-xml" ,docbook-xml-4.3)
4715            ("docbook-xsl" ,docbook-xsl)
4716            ("gobject-introspection" ,gobject-introspection)
4717            ("gtk-doc" ,gtk-doc)
4718            ("xsltproc" ,libxslt))
4719          (package-native-inputs json-glib-minimal)))))
4720
4721 (define-public libxklavier
4722   (package
4723     (name "libxklavier")
4724     (version "5.4")
4725     (source (origin
4726               ;; Note: There's no tarball at ftp.gnome.org for this version.
4727               (method git-fetch)
4728               (uri (git-reference
4729                     (url "https://anongit.freedesktop.org/git/libxklavier")
4730                     (commit (string-append "libxklavier-" version))))
4731               (sha256
4732                (base32
4733                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4734               (file-name (git-file-name name version))))
4735     (build-system gnu-build-system)
4736     (arguments
4737      '(#:configure-flags
4738        (list (string-append "--with-xkb-base="
4739                             (assoc-ref %build-inputs "xkeyboard-config")
4740                             "/share/X11/xkb")
4741              "--disable-xmodmap-support")))
4742     (native-inputs
4743      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
4744        ("gobject-introspection" ,gobject-introspection)
4745        ("pkg-config"            ,pkg-config)
4746        ("gtk-doc" ,gtk-doc/stable)
4747        ("intltool" ,intltool)
4748        ("which" ,which)
4749        ("autoconf" ,autoconf)
4750        ("automake" ,automake)
4751        ("libtool" ,libtool)))
4752     (propagated-inputs
4753      ;; Required by libxklavier.pc.
4754      (list glib libxml2))
4755     (inputs
4756      (list iso-codes libxi libxkbfile xkbcomp xkeyboard-config))
4757     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
4758     (synopsis "High-level API for X Keyboard Extension")
4759     (description
4760      "LibXklavier is a library providing high-level API for X Keyboard
4761 Extension known as XKB.  This library is intended to support XFree86 and other
4762 commercial X servers.  It is useful for creating XKB-related software (layout
4763 indicators etc).")
4764     (license license:lgpl2.0+)))
4765
4766 (define-public python2-rsvg
4767   ;; XXX: This is actually a subset of gnome-python-desktop.
4768   (package
4769     (name "python2-rsvg")
4770     (version "2.32.0")
4771     (source
4772      (origin
4773        (method url-fetch)
4774        (uri (string-append
4775              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
4776              version ".tar.bz2"))
4777        (sha256
4778         (base32
4779          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
4780     (build-system gnu-build-system)
4781     (native-inputs
4782      (list pkg-config))
4783     (inputs
4784      (list python-2 python2-pygtk librsvg))
4785     (home-page "https://www.gnome.org")
4786     (synopsis "Python bindings to librsvg")
4787     (description
4788      "This package provides Python bindings to librsvg, the SVG rendering
4789 library.")
4790
4791     ;; This is the license of the rsvg bindings.  The license of each module
4792     ;; of gnome-python-desktop is given in 'COPYING'.
4793     (license license:lgpl2.1+)))
4794
4795 (define-public glib-networking
4796   (package
4797     (name "glib-networking")
4798     (version "2.70.0")
4799     (source (origin
4800               (method url-fetch)
4801               (uri (string-append "mirror://gnome/sources/glib-networking/"
4802                                   (version-major+minor version) "/"
4803                                   "glib-networking-" version ".tar.xz"))
4804               (sha256
4805                (base32
4806                 "0dbg1na239mbavn4hknkax5sns9q2dbdnqw9wcpmhv58mzkhid36"))
4807               (patches
4808                (search-patches "glib-networking-gnutls-binding.patch"))))
4809     (build-system meson-build-system)
4810     (arguments
4811      (if (target-64bit?)
4812          '()
4813          (list #:phases
4814                #~(modify-phases %standard-phases
4815                    (add-after 'unpack 'work-around-32-bit-time-t
4816                      (lambda _
4817                        (invoke "patch" "--force" "-p1" "-i"
4818                                #$(local-file
4819                                   (search-patch
4820                                    "glib-networking-32-bit-time.patch")))))))))
4821     (native-inputs
4822      `(("pkg-config" ,pkg-config)
4823        ("gettext" ,gettext-minimal)))
4824     (inputs
4825      (list glib gnutls gsettings-desktop-schemas libproxy))
4826     (home-page "https://wiki.gnome.org/Projects/GLib")
4827     (synopsis "Network extensions for GLib")
4828     (description
4829      "Glib-networking contains the implementations of certain GLib networking
4830 features that cannot be implemented directly in GLib itself because of their
4831 dependencies.  Currently it contains GnuTLS and OpenSSL-based implementations of
4832 GTlsBackend, a libproxy-based implementation of GProxyResolver,
4833 GLibproxyResolver, and a GNOME GProxyResolver that uses the proxy information
4834 from the GSettings schemas in gsettings-desktop-schemas.")
4835     (license license:lgpl2.1+)))
4836
4837 (define-public rest
4838   (package
4839     (name "rest")
4840     (version "0.8.1")
4841     (source (origin
4842               (method url-fetch)
4843               (uri (string-append "mirror://gnome/sources/rest/"
4844                                   (version-major+minor version) "/"
4845                                   name "-" version ".tar.xz"))
4846               (sha256
4847                (base32
4848                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4849     (build-system gnu-build-system)
4850     (arguments
4851      '(#:tests? #f ; tests require internet connection
4852        #:configure-flags
4853        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4854     (native-inputs
4855      `(("glib-mkenums" ,glib "bin")
4856        ("gobject-introspection" ,gobject-introspection)
4857        ("pkg-config" ,pkg-config)))
4858     (propagated-inputs
4859      ;; rest-0.7.pc refers to all these.
4860      `(("glib"    ,glib)
4861        ("libsoup" ,libsoup-minimal-2)
4862        ("libxml2" ,libxml2)))
4863     (home-page "https://www.gtk.org/")
4864     (synopsis "RESTful web api query library")
4865     (description
4866      "This library was designed to make it easier to access web services that
4867 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
4868 libxml to ease remote use of the RESTful API.")
4869     (license license:lgpl2.1+)))
4870
4871 ;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4872 (define-public libsoup-minimal
4873   (package
4874     (name "libsoup-minimal")
4875     (version "3.0.3")
4876     (source (origin
4877               (method url-fetch)
4878               (uri (string-append "mirror://gnome/sources/libsoup/"
4879                                   (version-major+minor version) "/"
4880                                   "libsoup-" version ".tar.xz"))
4881               (sha256
4882                (base32
4883                 "0pp2s9rj7pp45ac99hbqszznln5ljj38cbc8lbljfc5fmm6v0rai"))))
4884     (build-system meson-build-system)
4885     (arguments
4886      `(#:configure-flags '("-Dgtk_doc=false")
4887        #:phases
4888        (modify-phases %standard-phases
4889          (add-after 'unpack 'adjust-tests
4890            (lambda _
4891              ;; This test fails due to missing /etc/nsswitch.conf
4892              ;; in the build environment.
4893              (substitute* "tests/socket-test.c"
4894                ((".*/sockets/unconnected.*") ""))
4895
4896              ;; These fail because "subdomain.localhost" does not resolve in
4897              ;; the build environment.  Moreover, the hsts-test suite fails on
4898              ;; i686-linux because of errors from `session_get_uri' like
4899              ;; "Unexpected status 200 OK (expected 301 Moved Permanently)"
4900              ;; (see: https://gitlab.gnome.org/GNOME/libsoup/-/issues/239).
4901              (substitute* "tests/meson.build"
4902                ((".*'name': 'hsts'.*") ""))
4903              (substitute* "tests/hsts-db-test.c"
4904                ((".*/hsts-db/subdomains.*") "")))))))
4905     (native-inputs
4906      (list `(,glib "bin") ;for glib-mkenums
4907            gobject-introspection
4908            intltool
4909            pkg-config
4910            python-wrapper
4911            vala
4912            curl
4913            gnutls ;for 'certtool'
4914            httpd))
4915     (propagated-inputs
4916      ;; libsoup-3.0.pc refers to all of these (except where otherwise noted)
4917      (list brotli
4918            glib
4919            glib-networking ; for GIO runtime modules
4920            libpsl
4921            nghttp2 ;for pkg-config
4922            `(,nghttp2 "lib")
4923            libxml2
4924            sqlite
4925            zlib))
4926     (inputs
4927      (list mit-krb5 samba/fixed))     ; For ntlm_auth support
4928     (home-page "https://wiki.gnome.org/Projects/libsoup")
4929     (synopsis "GLib-based HTTP Library")
4930     (description
4931      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
4932 and the GLib main loop, to integrate well with GNOME applications.")
4933     (license license:lgpl2.0+)))
4934
4935 ;;; An older variant kept to build the 'rest' package.
4936 (define-public libsoup-minimal-2
4937   (package/inherit libsoup-minimal
4938     (version "2.72.0")
4939     (source (origin
4940               (method url-fetch)
4941               (uri (string-append "mirror://gnome/sources/libsoup/"
4942                                   (version-major+minor version) "/"
4943                                   "libsoup-" version ".tar.xz"))
4944               (sha256
4945                (base32
4946                 "11skbyw2pw32178q3h8pi7xqa41b2x4k6q4k9f75zxmh8s23y30p"))))
4947     (arguments
4948      (substitute-keyword-arguments (package-arguments libsoup-minimal)
4949        ((#:phases phases)
4950         `(modify-phases ,phases
4951            (add-after 'unpack 'disable-failing-tests
4952              (lambda _
4953                ;; Disable the SSL test, failing since 2.68 and resolved in
4954                ;; libsoup 3.
4955                (substitute* "tests/meson.build"
4956                  (("[ \t]*\\['ssl', true, \\[\\]\\],") ""))))))))
4957     (native-inputs
4958      (modify-inputs (package-native-inputs libsoup-minimal)
4959        (replace "vala" vala-0.52)))))
4960
4961 (define-public libsoup
4962   (package/inherit libsoup-minimal
4963     (name "libsoup")
4964     (outputs (cons "doc" (package-outputs libsoup-minimal)))
4965     (arguments
4966      (substitute-keyword-arguments (package-arguments libsoup-minimal)
4967        ((#:configure-flags configure-flags)
4968         `(cons "-Dgtk_doc=true"
4969                (delete "-Dgtk_doc=false" ,configure-flags)))
4970        ((#:phases phases)
4971         `(modify-phases ,phases
4972            (add-after 'unpack 'patch-docbook-xml
4973              (lambda* (#:key inputs #:allow-other-keys)
4974                (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
4975                                             "/xml/dtd/docbook")))
4976                  (substitute* (find-files "docs/reference")
4977                    (("http://.*/docbookx\\.dtd")
4978                     (string-append xmldoc "/docbookx.dtd"))))))
4979            (add-after 'install 'move-doc
4980              (lambda* (#:key outputs #:allow-other-keys)
4981                (let ((out (assoc-ref outputs "out"))
4982                      (doc (assoc-ref outputs "doc")))
4983                  (mkdir-p (string-append doc "/share"))
4984                  (copy-recursively (string-append out "/share/gtk-doc")
4985                                    (string-append doc "/share/gtk-doc"))
4986                  (delete-file-recursively
4987                   (string-append out "/share/gtk-doc")))))))))
4988     (native-inputs (modify-inputs (package-native-inputs libsoup-minimal)
4989                      (prepend docbook-xml-4.1.2 gtk-doc)))))
4990
4991 (define-public libsecret
4992   (package
4993     (name "libsecret")
4994     (version "0.20.4")
4995     (source (origin
4996               (method url-fetch)
4997               (uri (string-append
4998                     "mirror://gnome/sources/libsecret/"
4999                     (version-major+minor version) "/"
5000                     "libsecret-" version ".tar.xz"))
5001               (sha256
5002                (base32
5003                 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
5004     (build-system gnu-build-system)
5005     (outputs '("out" "doc"))
5006     (arguments
5007      `(#:tests? #f ; FIXME: Testing hangs.
5008        #:configure-flags
5009        (list (string-append "--with-html-dir="
5010                             (assoc-ref %outputs "doc")
5011                             "/share/gtk-doc/html"))))
5012     (native-inputs
5013      `(("gettext" ,gettext-minimal)
5014        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
5015        ("gobject-introspection" ,gobject-introspection)
5016        ("pkg-config" ,pkg-config)
5017        ("vala" ,vala)
5018        ("xsltproc" ,libxslt)))
5019        ;; These are needed for the tests.
5020        ;; FIXME: Add gjs once available.
5021        ;("dbus" ,dbus)
5022        ;("python2" ,python-2)
5023        ;("python2-dbus" ,python2-dbus)
5024        ;("python2-pygobject" ,python2-pygobject)
5025        ;("python2-pygobject-2" ,python2-pygobject-2)))
5026     (propagated-inputs
5027      (list glib)) ; required by libsecret-1.pc
5028     (inputs
5029      ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
5030      ;; doesn't seem to affect the build result.
5031      (list docbook-xsl libgcrypt libxml2)) ; for XML_CATALOG_FILES
5032     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
5033     (synopsis "GObject bindings for \"Secret Service\" API")
5034     (description
5035      "Libsecret is a GObject based library for storing and retrieving passwords
5036 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
5037     (license license:lgpl2.1+)))
5038
5039 (define-public five-or-more
5040   (package
5041     (name "five-or-more")
5042     (version "3.32.2")
5043     (source
5044      (origin
5045        (method url-fetch)
5046        (uri (string-append "mirror://gnome/sources/five-or-more/"
5047                            (version-major+minor version) "/"
5048                            "five-or-more-" version ".tar.xz"))
5049        (sha256
5050         (base32 "19pf8wzbf3ciqf2k4bj9sddvyhckfd62x86pnqr6s8h4vn9jc6ii"))))
5051     (build-system meson-build-system)
5052     (arguments
5053      '(#:glib-or-gtk? #t
5054        #:phases
5055        (modify-phases %standard-phases
5056          (add-after 'unpack 'skip-gtk-update-icon-cache
5057            (lambda _
5058              (substitute* "meson_post_install.py"
5059                (("gtk-update-icon-cache") (which "true")))
5060              #t)))))
5061     (native-inputs
5062      `(("pkg-config" ,pkg-config)
5063        ("appstream-glib" ,appstream-glib)
5064        ("desktop-file-utils" ,desktop-file-utils)
5065        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5066        ("intltool" ,intltool)
5067        ("itstool" ,itstool)
5068        ("vala" ,vala)
5069        ("xmllint" ,libxml2)))
5070     (inputs
5071      (list gtk+ libgnome-games-support librsvg))
5072     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
5073     (synopsis "Logic puzzle game")
5074     (description "Five or More is a game where you try to align
5075  five or more objects of the same color and shape causing them to disappear.
5076  On every turn more objects will appear, until the board is full.
5077  Try to last as long as possible.")
5078     (license license:gpl2+)))
5079
5080 (define-public gnome-mines
5081   (package
5082     (name "gnome-mines")
5083     (version "40.0")
5084     (source
5085      (origin
5086        (method url-fetch)
5087        (uri (string-append "mirror://gnome/sources/" name "/"
5088                            (version-major version) "/"
5089                            name "-" version ".tar.xz"))
5090        (sha256
5091         (base32 "0sf6kdvhr4pr3hddnj6ql9larz2wy108sri31id6x9g459nbly8z"))))
5092     (build-system meson-build-system)
5093     (arguments
5094      `(#:glib-or-gtk? #t
5095        #:meson ,meson-0.59
5096        #:phases
5097        (modify-phases %standard-phases
5098          (add-after 'unpack 'skip-gtk-update-icon-cache
5099            (lambda _
5100              (substitute* "build-aux/meson_post_install.py"
5101                (("gtk-update-icon-cache") (which "true"))))))))
5102     (native-inputs
5103      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
5104        ("pkg-config" ,pkg-config)
5105        ("desktop-file-utils" ,desktop-file-utils)
5106        ("intltool" ,intltool)
5107        ("itstool" ,itstool)
5108        ("vala" ,vala)
5109        ("yelp" ,yelp)
5110        ("appstream-glib" ,appstream-glib)))
5111     (inputs
5112      (list gtk+ libgnome-games-support librsvg))
5113     (home-page "https://wiki.gnome.org/Apps/Mines")
5114     (synopsis "Minesweeper game")
5115     (description
5116      "Mines (previously gnomine) is a puzzle game where you locate mines
5117 floating in an ocean using only your brain and a little bit of luck.")
5118     (license license:gpl2+)))
5119
5120 (define-public gnome-multi-writer
5121   (package
5122     (name "gnome-multi-writer")
5123     (version "3.35.90")
5124     (source
5125      (origin
5126        (method url-fetch)
5127        (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
5128                            (version-major+minor version) "/"
5129                            "gnome-multi-writer-" version ".tar.xz"))
5130        (sha256
5131         (base32
5132          "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
5133     (build-system meson-build-system)
5134     (arguments
5135      '(#:glib-or-gtk? #t
5136        #:phases
5137        (modify-phases %standard-phases
5138          (add-after 'unpack 'skip-post-install
5139            (lambda _
5140              (substitute* "meson.build"
5141                (("meson.add_install_script" &) (string-append "# " &)))
5142              #t)))))
5143     (native-inputs
5144      `(("glib:bin" ,glib "bin")
5145        ("pkg-config" ,pkg-config)))
5146     (inputs
5147      (list gtk+
5148            glib ; for gio
5149            gusb
5150            udisks
5151            libgudev
5152            libcanberra
5153            polkit))
5154     (home-page "https://wiki.gnome.org/Apps/MultiWriter")
5155     (synopsis "Write to multiple USB devices at once")
5156     (description
5157      "MultiWriter can be used to write an ISO file to multiple USB devices at
5158 once.")
5159     (license license:gpl2+)))
5160
5161 (define-public gnome-sudoku
5162   (package
5163     (name "gnome-sudoku")
5164     (version "40.2")
5165     (source
5166      (origin
5167        (method url-fetch)
5168        (uri (string-append "mirror://gnome/sources/" name "/"
5169                            (version-major version) "/"
5170                            name "-" version ".tar.xz"))
5171        (sha256
5172         (base32
5173          "18slsxifad5cjz4fqi818i66jc9b7kzgn01qxa0ra4y7wcqha4in"))))
5174     (build-system meson-build-system)
5175     (arguments
5176      `(#:glib-or-gtk? #t
5177        #:meson ,meson-0.59
5178        #:phases
5179        (modify-phases %standard-phases
5180          (add-after 'unpack 'skip-gtk-update-icon-cache
5181            (lambda _
5182              (substitute* "build-aux/post_install.py"
5183                (("gtk-update-icon-cache") (which "true"))))))))
5184     (native-inputs
5185      `(("pkg-config" ,pkg-config)
5186        ("desktop-file-utils" ,desktop-file-utils)
5187        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5188        ("intltool" ,intltool)
5189        ("itstool" ,itstool)
5190        ("vala" ,vala)
5191        ("xmllint" ,libxml2)))
5192     (inputs
5193      (list gtk+ json-glib libgee librsvg qqwing))
5194     (home-page "https://wiki.gnome.org/Apps/Sudoku")
5195     (synopsis "Japanese logic game")
5196     (description
5197      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5198 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5199 possible while still providing features that make playing difficult Sudoku
5200 more fun.")
5201     (license license:gpl2+)))
5202
5203 (define-public gnome-terminal
5204   (package
5205     (name "gnome-terminal")
5206     (version "3.40.3")
5207     (source
5208      (origin
5209        (method url-fetch)
5210        (uri (string-append "mirror://gnome/sources/" name "/"
5211                            (version-major+minor version) "/"
5212                            name "-" version ".tar.xz"))
5213        (sha256
5214         (base32
5215          "08hsic7sn32xw12i3j0ard2bhfhp8gmzqm0pa8xzl5l1jhzsmsfb"))))
5216     (build-system glib-or-gtk-build-system)
5217     (arguments
5218      '(#:configure-flags
5219        (list "--disable-migration" "--disable-search-provider"
5220              "--without-nautilus-extension")
5221        #:phases
5222        (modify-phases %standard-phases
5223          (add-before 'configure 'patch-/bin/true
5224            (lambda _
5225              (substitute* "configure"
5226                (("/bin/true") (which "true"))))))))
5227     (native-inputs
5228      `(("docbook-xsl" ,docbook-xsl)
5229        ("pkg-config" ,pkg-config)
5230        ("desktop-file-utils" ,desktop-file-utils)
5231        ("intltool" ,intltool)
5232        ("itstool" ,itstool)
5233        ("libxslt" ,libxslt)
5234        ("xmllint" ,libxml2)))
5235     (propagated-inputs
5236      (list dconf))
5237     (inputs
5238      (list gtk+
5239            vte
5240            gnutls
5241            gsettings-desktop-schemas
5242            `(,util-linux "lib")
5243            vala))
5244     (home-page "https://wiki.gnome.org/Apps/Terminal")
5245     (synopsis "Terminal emulator")
5246     (description
5247      "GNOME Terminal is a terminal emulator application for accessing a
5248 UNIX shell environment which can be used to run programs available on
5249 your system.
5250
5251 It supports several profiles, multiple tabs and implements several
5252 keyboard shortcuts.")
5253     (license license:gpl3+)))
5254
5255 (define-public colord-minimal
5256   (package
5257     (name "colord-minimal")
5258     (version "1.4.5")
5259     (source
5260      (origin
5261        (method url-fetch)
5262        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
5263                            "colord-" version ".tar.xz"))
5264        (sha256
5265         (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
5266     (build-system meson-build-system)
5267     (arguments
5268      '( ;; FIXME: One test fails:
5269        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5270        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5271        ;; application/x-zerosize
5272        #:tests? #f
5273        #:glib-or-gtk? #t
5274        #:configure-flags (list "-Dargyllcms_sensor=false" ;requires spotread
5275                                "-Dbash_completion=false"
5276                                "-Ddaemon_user=colord"
5277                                "-Ddocs=false"
5278                                "-Dlocalstatedir=/var"
5279                                "-Dman=false"
5280                                "-Dsane=true"
5281                                "-Dsystemd=false") ;no systemd
5282        #:phases
5283        (modify-phases %standard-phases
5284          (add-before 'configure 'patch-build-system
5285            (lambda* (#:key outputs #:allow-other-keys)
5286              (substitute* "rules/meson.build"
5287                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5288                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))))
5289          (add-before 'configure 'set-sqlite3-file-name
5290            (lambda* (#:key inputs #:allow-other-keys)
5291              ;; "colormgr dump" works by invoking the "sqlite3" command.
5292              ;; Record its absolute file name.
5293              (let ((sqlite (assoc-ref inputs "sqlite")))
5294                (substitute* "client/cd-util.c"
5295                  (("\"sqlite3\"")
5296                   (string-append "\"" sqlite "/bin/sqlite3\"")))))))))
5297     (native-inputs
5298      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
5299        ("gettext" ,gettext-minimal)
5300        ("pkg-config" ,pkg-config)
5301        ("vala" ,vala)))
5302     (propagated-inputs
5303      ;; colord.pc refers to all these.
5304      `(("glib" ,glib)
5305        ("lcms" ,lcms)
5306        ("udev" ,eudev)))
5307     (inputs
5308      `(("dbus-glib" ,dbus-glib)
5309        ("gobject-introspection" ,gobject-introspection)
5310        ("gusb" ,gusb-minimal)
5311        ("libgudev" ,libgudev)
5312        ("libusb" ,libusb)
5313        ("polkit" ,polkit)
5314        ("python" ,python-wrapper)
5315        ("sqlite" ,sqlite)
5316        ("sane-backends" ,sane-backends)))
5317     (home-page "https://www.freedesktop.org/software/colord/")
5318     (synopsis "Color management service")
5319     (description "Colord is a system service that makes it easy to manage,
5320 install and generate color profiles to accurately color manage input and
5321 output devices.")
5322     (license license:gpl2+)))
5323
5324 (define-public colord
5325   (package/inherit colord-minimal
5326     (name "colord")
5327     (arguments
5328      (substitute-keyword-arguments
5329          (package-arguments colord-minimal)
5330        ((#:configure-flags flags)
5331         `(begin
5332            (use-modules (srfi srfi-1))
5333            (append '("-Dbash_completion=true"
5334                      "-Ddocs=true"
5335                      "-Dman=true"
5336                      "-Dvapi=true")
5337                (fold delete ,flags '("-Dbash_completion=false"
5338                                      "-Ddocs=false"
5339                                      "-Dman=false")))))
5340        ((#:phases phases)
5341         `(modify-phases ,phases
5342            (add-after 'unpack 'fix-bash-completion-dir
5343              (lambda* (#:key outputs #:allow-other-keys)
5344                (substitute* "data/meson.build"
5345                  (("bash_completion.get_pkgconfig_variable\
5346 \\('completionsdir'\\)")
5347                   (string-append "'" (assoc-ref outputs "out")
5348                                  "/etc/bash_completion.d'")))))))))
5349     (native-inputs
5350      (append
5351          `(("bash-completion" ,bash-completion)
5352            ("docbook-xsl-ns" ,docbook-xsl-ns)
5353            ("gtk-doc" ,gtk-doc/stable)
5354            ("libxml2" ,libxml2)         ;for XML_CATALOG_FILES
5355            ("libxslt" ,libxslt)
5356            ("vala" ,vala))              ;for VAPI, needed by simple-scan
5357          (package-native-inputs colord-minimal)))))
5358
5359 (define-public geoclue
5360   (package
5361     (name "geoclue")
5362     (version "2.5.7")
5363     (source
5364      (origin
5365        (method url-fetch)
5366        (uri
5367         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5368                        version "/geoclue-" version ".tar.bz2"))
5369        (sha256
5370         (base32 "09ww26a76kanldhgwnn5sqy9ly2940k45zpp68spykkv2zjdpivc"))
5371        (patches (search-patches "geoclue-config.patch"))))
5372     (build-system meson-build-system)
5373     (arguments
5374      '(#:configure-flags (list "-Ddbus-srv-user=geoclue")))
5375     (native-inputs
5376      (list pkg-config
5377            gobject-introspection
5378            modem-manager
5379            libnotify
5380            gtk-doc/stable
5381            intltool))
5382     (inputs
5383      `(("avahi" ,avahi)
5384        ("glib:bin" ,glib "bin")
5385        ("glib-networking" ,glib-networking)
5386        ("json-glib" ,json-glib)
5387        ("libsoup" ,libsoup-minimal-2)))
5388     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
5389     (synopsis "Geolocation service")
5390     (description "Geoclue is a D-Bus service that provides location
5391 information.  The primary goal of the Geoclue project is to make creating
5392 location-aware applications as simple as possible, while the secondary goal is
5393 to ensure that no application can access location information without explicit
5394 permission from user.")
5395     (license license:gpl2+)))
5396
5397 (define-public geocode-glib
5398   (package
5399     (name "geocode-glib")
5400     (version "3.26.2")
5401     (source (origin
5402               (method url-fetch)
5403               (uri (string-append "mirror://gnome/sources/geocode-glib/"
5404                                   (version-major+minor version) "/"
5405                                   "geocode-glib-" version ".tar.xz"))
5406               (sha256
5407                (base32
5408                 "1l8g0f13xgkrk335afr9w8k46mziwb2jnyhl07jccl5yl37q9zh1"))))
5409     (build-system meson-build-system)
5410     (arguments
5411      `(#:phases
5412        (modify-phases %standard-phases
5413          ;; The tests require a bunch of locales.
5414          (add-before 'check 'set-locales
5415            (lambda* (#:key inputs #:allow-other-keys)
5416              (setenv "GUIX_LOCPATH"
5417                      (search-input-directory inputs "lib/locale")))))))
5418     (native-inputs
5419      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5420        ("glibc-locales" ,glibc-locales) ; for tests
5421        ("gettext" ,gettext-minimal)
5422        ("gobject-introspection" ,gobject-introspection)
5423        ("gtk-doc" ,gtk-doc/stable)
5424        ("pkg-config" ,pkg-config)
5425        ("json-glib" ,json-glib)))
5426     (propagated-inputs
5427      ;; geocode-glib-1.0.pc refers to GIO.
5428      (list glib))
5429     (inputs
5430      `(("libsoup" ,libsoup-minimal-2)))
5431     (home-page "https://github.com/GNOME/geocode-glib/")
5432     (synopsis "Geocoding and reverse-geocoding library")
5433     (description
5434      "geocode-glib is a convenience library for geocoding (finding longitude,
5435 and latitude from an address) and reverse geocoding (finding an address from
5436 coordinates) using the Nominatim service.  geocode-glib caches requests for
5437 faster results and to avoid unnecessary server load.")
5438     (license license:lgpl2.0+)))
5439
5440 (define-public upower
5441   (package
5442     (name "upower")
5443     (version "0.99.13")
5444     (source
5445      (origin
5446        (method git-fetch)
5447        (uri (git-reference
5448              (url "https://gitlab.freedesktop.org/upower/upower")
5449              (commit (string-append "UPOWER_"
5450                                     (string-map (match-lambda (#\. #\_)
5451                                                               (chr chr))
5452                                                 version)))))
5453        (file-name (git-file-name name version))
5454        (sha256
5455         (base32 "0khwg6jpq81dcylkpi7cn75bjzif0q9qscwvirrk41krma23iddj"))
5456        (patches (search-patches "upower-builddir.patch"))
5457        (modules '((guix build utils)))
5458        (snippet
5459         '(begin
5460            ;; Upstream commit
5461            ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
5462            ;; moved 'dbus-1/system.d' from etc/ to share/.  However,
5463            ;; 'dbus-configuration-directory' in (gnu services dbus)
5464            ;; expects it in etc/.  Thus, move it back to its previous
5465            ;; location.
5466            (substitute* "src/Makefile.am"
5467              (("^dbusconfdir =.*$")
5468               "dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))))))
5469     (build-system glib-or-gtk-build-system)
5470     (arguments
5471      '(#:phases
5472        (modify-phases %standard-phases
5473          (add-before 'check 'pre-check
5474            (lambda* (#:key inputs #:allow-other-keys)
5475              (let ((umockdev (string-append (assoc-ref inputs "umockdev")
5476                                             "/lib")))
5477                (setenv "LD_LIBRARY_PATH" umockdev)))))
5478        #:configure-flags (list "--localstatedir=/var"
5479                                (string-append "--with-udevrulesdir="
5480                                               (assoc-ref %outputs "out")
5481                                               "/lib/udev/rules.d"))))
5482     (native-inputs
5483      (list autoconf
5484            automake
5485            gobject-introspection
5486            gtk-doc
5487            intltool
5488            libtool
5489            pkg-config
5490            python
5491            which ; for ./autogen.sh
5492            ;; For tests.
5493            python-dbus
5494            python-dbusmock
5495            python-packaging
5496            python-pygobject
5497            umockdev
5498            ;; For man pages.
5499            docbook-xsl
5500            libxslt ; for 'xsltproc'
5501            libxml2))           ; for 'XML_CATALOG_FILES'
5502     (inputs
5503      (list dbus-glib libgudev libusb))
5504     (propagated-inputs
5505      ;; In Requires of upower-glib.pc.
5506      (list glib))
5507     (home-page "https://upower.freedesktop.org/")
5508     (synopsis "System daemon for managing power devices")
5509     (description
5510      "UPower is an abstraction for enumerating power devices,
5511 listening to device events and querying history and statistics.  Any
5512 application or service on the system can access the org.freedesktop.UPower
5513 service via the system message bus.")
5514     (license license:gpl2+)))
5515
5516 (define-public libgweather
5517   (package
5518     (name "libgweather")
5519     (version "40.0")
5520     (source (origin
5521               (method url-fetch)
5522               (uri (string-append "mirror://gnome/sources/" name "/"
5523                                   (version-major version) "/"
5524                                   name "-" version ".tar.xz"))
5525               (sha256
5526                (base32
5527                 "1rkf4yv43qcahyx7bismdv6z2vh5azdnm1fqfmnzrada9cm8ykna"))))
5528     (build-system meson-build-system)
5529     (arguments
5530      `(#:tests? #f ; one of two tests requires network access
5531        #:configure-flags
5532        `(,(string-append "-Dzoneinfo_dir="
5533                          (assoc-ref %build-inputs "tzdata")
5534                          "/share/zoneinfo"))))
5535     (native-inputs
5536      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5537        ("gobject-introspection" ,gobject-introspection)
5538        ("pkg-config" ,pkg-config)
5539        ("vala" ,vala)
5540        ("intltool" ,intltool)
5541        ("python-pygobject" ,python-pygobject)))
5542     (propagated-inputs
5543      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5544      ;; libsoup.
5545      `(("gtk+" ,gtk+)
5546        ("gdk-pixbuf" ,gdk-pixbuf)
5547        ("libxml2" ,libxml2)
5548        ("libsoup" ,libsoup-minimal-2)
5549        ("geocode-glib" ,geocode-glib)))
5550     (inputs
5551      (list tzdata))
5552     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5553     (synopsis "Location, time zone, and weather library for GNOME")
5554     (description
5555      "libgweather is a library to access weather information from online
5556 services for numerous locations.")
5557     (license license:gpl2+)))
5558
5559 (define-public gnome-settings-daemon
5560   (package
5561     (name "gnome-settings-daemon")
5562     (version "41.0")
5563     (source
5564      (origin
5565        (method url-fetch)
5566        (uri (string-append "mirror://gnome/sources/" name "/"
5567                            (version-major version) "/"
5568                            name "-" version ".tar.xz"))
5569        (sha256
5570         (base32
5571          "111qcvlqjpasnswdniy5n53wyrs1y7a91qx1w4nsppnizdhn7jp6"))
5572        (patches (search-patches "gnome-settings-daemon-gc.patch"))))
5573     (build-system meson-build-system)
5574     (arguments
5575      `(#:meson ,meson-0.59
5576        #:glib-or-gtk? #t
5577        #:configure-flags
5578        (list (string-append "-Dudev_dir="
5579                             (assoc-ref %outputs "out") "/lib/udev")
5580              "-Dsystemd=false"
5581              ;; Otherwise, the RUNPATH will lack the final path component.
5582              (string-append "-Dc_link_args=-Wl,-rpath="
5583                             (assoc-ref %outputs "out")
5584                             "/lib/gnome-settings-daemon-3.0"))
5585
5586        #:phases (modify-phases %standard-phases
5587                   (add-before 'configure 'set-baobab-file-name
5588                     (lambda* (#:key inputs #:allow-other-keys)
5589                       ;; Hard-code the file name of Baobab instead of looking
5590                       ;; it up in $PATH.  This ensures users get the "Examine"
5591                       ;; button in the low disk space notification of GDM even
5592                       ;; if they don't have GNOME in their main profile.
5593                       (let ((baobab (assoc-ref inputs "baobab")))
5594                         (substitute* "plugins/housekeeping/gsd-disk-space.c"
5595                           (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5596                            (string-append "g_strdup (\"" baobab
5597                                           "/bin/baobab\")")))))))
5598
5599        ;; Color management test can't reach the colord system service.
5600        #:tests? #f))
5601     (native-inputs
5602      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5603        ("pkg-config" ,pkg-config)
5604        ("intltool" ,intltool)
5605        ("xsltproc" ,libxslt)
5606        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
5607        ("docbook-xml" ,docbook-xml-4.2)
5608        ("docbook-xsl" ,docbook-xsl)))
5609     (inputs
5610      (list alsa-lib
5611            baobab
5612            colord
5613            libgudev
5614            upower
5615            polkit
5616            pulseaudio
5617            libcanberra
5618            libx11
5619            libxtst
5620            lcms
5621            libnotify
5622            geoclue
5623            geocode-glib
5624            libgweather
5625            gnome-desktop
5626            nss
5627            cups
5628            gsettings-desktop-schemas
5629            libwacom
5630            librsvg
5631            xf86-input-wacom
5632            wayland
5633            network-manager
5634            gcr
5635            modem-manager))
5636     (home-page "https://www.gnome.org")
5637     (synopsis "GNOME settings daemon")
5638     (description
5639      "This package contains the daemon responsible for setting the various
5640 parameters of a GNOME session and the applications that run under it.  It
5641 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5642 settings, themes, mouse settings, and startup of other daemons.")
5643     (license license:gpl2+)))
5644
5645 (define-public totem-pl-parser
5646  (package
5647    (name "totem-pl-parser")
5648    (version "3.26.6")
5649    (source (origin
5650             (method url-fetch)
5651             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5652                                 (version-major+minor version) "/"
5653                                 "totem-pl-parser-" version ".tar.xz"))
5654             (sha256
5655              (base32
5656               "075csd5x0frgf93jvhlqiwv5i0qm24zz3iw17jj7v7fgsml0zpy0"))))
5657    (build-system meson-build-system)
5658    (arguments
5659     ;; FIXME: Tests require gvfs.
5660     `(#:tests? #f))
5661    (native-inputs
5662     (list intltool
5663           `(,glib "bin") gobject-introspection pkg-config))
5664    (propagated-inputs
5665     (list glib gmime libarchive libgcrypt libxml2))
5666    (inputs
5667     (list libsoup))
5668    (home-page "https://projects.gnome.org/totem")
5669    (synopsis "Library to parse and save media playlists for GNOME")
5670    (description "Totem-pl-parser is a GObjects-based library to parse and save
5671 playlists in a variety of formats.")
5672    (license license:lgpl2.0+)))
5673
5674 (define-public aisleriot
5675   (package
5676     (name "aisleriot")
5677     (version "3.22.9")
5678     (source (origin
5679               (method url-fetch)
5680               (uri (string-append "mirror://gnome/sources/aisleriot/"
5681                                   (version-major+minor version) "/"
5682                                   "aisleriot-" version ".tar.xz"))
5683               (sha256
5684                (base32
5685                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
5686     (build-system glib-or-gtk-build-system)
5687     (arguments
5688      '(#:configure-flags
5689        '("--with-platform=gtk-only"
5690          "--with-card-theme-formats=svg")))
5691     (native-inputs
5692      `(("desktop-file-utils" ,desktop-file-utils)
5693        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5694        ("intltool" ,intltool)
5695        ("itstool" ,itstool)
5696        ("pkg-config" ,pkg-config)
5697        ("xmllint" ,libxml2)))
5698     (inputs
5699      (list gtk+ guile-2.2 libcanberra librsvg))
5700     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5701     (synopsis "Solitaire card games")
5702     (description
5703      "Aisleriot (also known as Solitaire or sol) is a collection of card games
5704 which are easy to play with the aid of a mouse.")
5705     (license license:gpl3+)))
5706
5707 (define-public amtk
5708   (package
5709     (name "amtk")
5710     (version "5.3.1")
5711     (source (origin
5712               (method url-fetch)
5713               (uri (string-append "mirror://gnome/sources/amtk/"
5714                                   (version-major+minor version) "/"
5715                                   "amtk-" version ".tar.xz"))
5716               (sha256
5717                (base32
5718                 "12v3nj1bb7507ndprjggq0hpz8k719b4bwvl8sm43p3ibmn27anm"))))
5719     (build-system meson-build-system)
5720     (native-inputs
5721      (list gobject-introspection
5722            `(,glib "bin") ; for glib-mkenums
5723            gtk-doc/stable pkg-config))
5724     (inputs
5725      (list glib gtk+))
5726     (home-page "https://wiki.gnome.org/Projects/Amtk")
5727     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5728     (description
5729      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5730 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
5731 both a traditional UI or a modern UI with a GtkHeaderBar.")
5732     (license license:lgpl2.1+)))
5733
5734 (define-public devhelp
5735   (package
5736     (name "devhelp")
5737     (version "41.2")
5738     (source (origin
5739               (method url-fetch)
5740               (uri (string-append "mirror://gnome/sources/" name "/"
5741                                   (version-major version) "/"
5742                                   name "-" version ".tar.xz"))
5743               (sha256
5744                (base32
5745                 "1lk0gycjvs6gibhy0zs3ffkrkzrkyl5nkp7n60hgpa6syjq91apc"))))
5746     (build-system meson-build-system)
5747     (arguments
5748      `(#:glib-or-gtk? #t
5749        #:meson ,meson-0.59
5750        #:phases
5751        (modify-phases %standard-phases
5752          (add-after 'unpack 'skip-gtk-update-icon-cache
5753            ;; Don't create 'icon-theme.cache'.
5754            (lambda _
5755              (substitute* "build-aux/meson/meson_post_install.py"
5756                (("gtk-update-icon-cache") "true"))))
5757          (add-after 'unpack 'fix-devhelp-gir-inputs
5758            ;; It still mentions webkitgtk 4.0
5759            (lambda _
5760              (substitute* "devhelp/meson.build"
5761                (("'WebKit2-4.0'") "'WebKit2-4.1'")))))))
5762     (propagated-inputs
5763      (list gsettings-desktop-schemas))
5764     (native-inputs
5765      `(("intltool" ,intltool)
5766        ("itstool" ,itstool)
5767        ("gobject-introspection" ,gobject-introspection)
5768        ("glib:bin" ,glib "bin") ; for glib-mkmenus
5769        ("pkg-config" ,pkg-config)))
5770     (inputs
5771      (list amtk gsettings-desktop-schemas webkitgtk))
5772     (home-page "https://wiki.gnome.org/Apps/Devhelp")
5773     (synopsis "API documentation browser for GNOME")
5774     (description
5775      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
5776 natively with GTK-Doc (the API reference system developed for GTK+ and used
5777 throughout GNOME for API documentation).")
5778     (license license:gpl2+)))
5779
5780 (define-public devhelp-with-libsoup2
5781   (package/inherit devhelp
5782     (arguments
5783      (substitute-keyword-arguments (package-arguments devhelp)
5784        ((#:phases phases '%standard-phases)
5785         `(modify-phases %standard-phases
5786            (add-after 'unpack 'skip-gtk-update-icon-cache
5787              ;; Don't create 'icon-theme.cache'.
5788              (lambda _
5789                (substitute* "build-aux/meson/meson_post_install.py"
5790                  (("gtk-update-icon-cache") "true"))))))))
5791     (inputs
5792      `(("amtk" ,amtk)
5793        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5794        ("webkitgtk" ,webkitgtk-with-libsoup2)))))
5795
5796 (define-public cogl
5797   (package
5798     (name "cogl")
5799     (version "1.22.8")
5800     (source
5801      (origin
5802        (method url-fetch)
5803        (uri (string-append "mirror://gnome/sources/cogl/"
5804                            (version-major+minor version) "/"
5805                            "cogl-" version ".tar.xz"))
5806        (sha256
5807         (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
5808     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
5809     ;; cogl, corresponding changes may be appropriate in mutter as well.
5810     (build-system gnu-build-system)
5811     (native-inputs
5812      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5813        ("gobject-introspection" ,gobject-introspection)
5814        ("xorg-server" ,xorg-server-for-tests)
5815        ("pkg-config" ,pkg-config)))
5816     (propagated-inputs
5817      (list glib
5818            gdk-pixbuf
5819            libx11
5820            libxext
5821            libxfixes
5822            libxdamage
5823            libxcomposite
5824            libxrandr))
5825     (inputs
5826      (list mesa
5827            cairo
5828            pango
5829            gstreamer
5830            gst-plugins-base
5831            wayland))
5832     (arguments
5833      `(#:disallowed-references (,xorg-server-for-tests)
5834        #:configure-flags (list "--enable-cogl-gst"
5835                                "--enable-wayland-egl-platform"
5836                                "--enable-wayland-egl-server"
5837
5838                                ;; Arrange to pass an absolute file name to
5839                                ;; dlopen for libGL.so.
5840                                (string-append "--with-gl-libname="
5841                                               (assoc-ref %build-inputs "mesa")
5842                                               "/lib/libGL.so"))
5843        #:phases
5844        (modify-phases %standard-phases
5845          (add-after 'unpack 'fix-build-with-mesa-20
5846            (lambda _
5847              ;; Work around a problem with Mesa 20 where some macros used by
5848              ;; Cogl went missing from eglext.h.  This can likely be removed
5849              ;; for newer versions of Cogl or Mesa.
5850              ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
5851              (substitute* '("configure"
5852                             "cogl/winsys/cogl-winsys-egl-kms.c")
5853                (("#include <EGL/eglext.h>" all)
5854                 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
5855              #t))
5856          (add-before 'check 'start-xorg-server
5857                      (lambda* (#:key tests? inputs #:allow-other-keys)
5858                        (if tests?
5859                            (begin
5860                              ;; The test suite requires a running X server.
5861                              (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
5862                                              (assoc-ref inputs "xorg-server")))
5863                              (setenv "DISPLAY" ":1")
5864                              #t)
5865                            (format #t "test suite not run~%"))
5866                        #t)))))
5867     (home-page "https://www.cogl3d.org")
5868     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
5869     (description
5870      "Cogl is a small library for using 3D graphics hardware to draw pretty
5871 pictures.  The API departs from the flat state machine style of OpenGL and is
5872 designed to make it easy to write orthogonal components that can render
5873 without stepping on each others toes.")
5874     (license (list license:expat       ; most of the code
5875                    license:bsd-3       ; cogl/cogl-point-in-poly.c
5876                    license:sgifreeb2.0 ; cogl-path/tesselator/
5877                    license:asl2.0))))  ; examples/android/
5878
5879 (define-public clutter
5880   (package
5881     (name "clutter")
5882     (version "1.26.2")
5883     (source
5884      (origin
5885        (method url-fetch)
5886        (uri (string-append "mirror://gnome/sources/" name "/"
5887                            (version-major+minor version) "/"
5888                            name "-" version ".tar.xz"))
5889        (sha256
5890         (base32
5891          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
5892     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
5893     ;; to clutter, corresponding changes may be appropriate in mutter as well.
5894     (build-system gnu-build-system)
5895     (outputs '("out"
5896                "doc"))                            ;9 MiB of gtk-doc HTML pages
5897     (native-inputs
5898      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
5899        ("gobject-introspection" ,gobject-introspection)
5900        ("pkg-config" ,pkg-config)
5901        ("xsltproc" ,libxslt)))
5902     (propagated-inputs
5903      (list cogl
5904            cairo
5905            atk
5906            gtk+
5907            json-glib
5908            glib
5909            libxcomposite
5910            libxdamage
5911            libxext
5912            xinput))
5913     (inputs
5914      `(("libxkbcommon" ,libxkbcommon)
5915        ("udev" ,eudev)))
5916     (arguments
5917      `(#:configure-flags (list "--enable-x11-backend=yes"
5918
5919                                ;; This produces share/doc/{clutter,cally}.
5920                                (string-append "--with-html-dir="
5921                                               (assoc-ref %outputs "doc")
5922                                               "/share/doc"))
5923        ;; XXX FIXME: Get test suite working.  It would probably fail in the
5924        ;; same way the cogl tests fail, since clutter is based on cogl.
5925        #:tests? #f))
5926     (home-page "http://www.clutter-project.org")
5927     (synopsis "OpenGL-based interactive canvas library")
5928     (description
5929      "Clutter is an OpenGL-based interactive canvas library, designed for
5930 creating fast, mainly 2D single window applications such as media box UIs,
5931 presentations, kiosk style applications and so on.")
5932     (license license:lgpl2.0+)))
5933
5934 (define-public clutter-gtk
5935   (package
5936     (name "clutter-gtk")
5937     (version "1.8.4")
5938     (source
5939      (origin
5940        (method url-fetch)
5941        (uri (string-append "mirror://gnome/sources/" name "/"
5942                            (version-major+minor version) "/"
5943                            name "-" version ".tar.xz"))
5944        (sha256
5945         (base32
5946          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
5947     (build-system gnu-build-system)
5948     (native-inputs
5949      (list pkg-config gobject-introspection))
5950     (propagated-inputs
5951      ;; clutter-gtk.pc refers to all these.
5952      (list clutter gtk+))
5953     (home-page "http://www.clutter-project.org")
5954     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
5955     (description
5956      "Clutter is an OpenGL-based interactive canvas library, designed for
5957 creating fast, mainly 2D single window applications such as media box UIs,
5958 presentations, kiosk style applications and so on.")
5959     (license license:lgpl2.0+)))
5960
5961 (define-public clutter-gst
5962   (package
5963     (name "clutter-gst")
5964     (version "3.0.27")
5965     (source
5966      (origin
5967        (method url-fetch)
5968        (uri (string-append "mirror://gnome/sources/clutter-gst/"
5969                            (version-major+minor version) "/"
5970                            "clutter-gst-" version ".tar.xz"))
5971        (sha256
5972         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
5973     (build-system gnu-build-system)
5974     (native-inputs
5975      (list `(,glib "bin") ; for glib-mkenums
5976            pkg-config gobject-introspection))
5977     (inputs
5978      (list clutter gstreamer gst-plugins-base))
5979     (home-page "http://www.clutter-project.org")
5980     (synopsis "Integration library for using GStreamer with Clutter")
5981     (description
5982      "Clutter-Gst is an integration library for using GStreamer with Clutter.
5983 It provides a GStreamer sink to upload frames to GL and an actor that
5984 implements the ClutterGstPlayer interface using playbin.  Clutter is an
5985 OpenGL-based interactive canvas library.")
5986     (license license:lgpl2.0+)))
5987
5988 (define-public libchamplain
5989   (package
5990     (name "libchamplain")
5991     (version "0.12.20")
5992     (source (origin
5993               (method url-fetch)
5994               (uri (string-append
5995                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
5996                     version ".tar.xz"))
5997               (sha256
5998                (base32
5999                 "0rihpb0npqpihqcdz4w03rq6xl7jdckfqskvv9diq2hkrnzv8ch2"))))
6000     (build-system meson-build-system)
6001     (native-inputs
6002      (list gobject-introspection pkg-config vala))
6003     (propagated-inputs
6004      (list libsoup-minimal-2
6005            sqlite
6006            clutter
6007            clutter-gtk
6008            `(,glib "bin") ;glib-mkenums, etc.
6009            cairo
6010            gtk+
6011            glib))
6012     (home-page "https://projects.gnome.org/libchamplain/")
6013     (synopsis "C library providing a ClutterActor to display maps")
6014     (description
6015      "libchamplain is a C library providing a ClutterActor to display maps.
6016 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
6017 and Perl bindings are also available.  It supports numerous free map sources
6018 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
6019     (license license:lgpl2.1+)))
6020
6021 (define-public gom
6022   (package
6023     (name "gom")
6024     (version "0.3.2")
6025     (source
6026      (origin
6027        (method url-fetch)
6028        (uri (string-append "mirror://gnome/sources/gom/"
6029                            (version-major+minor version) "/"
6030                            "gom-" version ".tar.xz"))
6031        (sha256
6032         (base32
6033          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
6034     (build-system gnu-build-system)
6035     (native-inputs
6036      (list intltool pkg-config gobject-introspection))
6037     (inputs
6038      (list glib gdk-pixbuf sqlite))
6039     ;; XXX TODO: Figure out how to run the test suite.
6040     (arguments `(#:tests? #f))
6041     (home-page "https://wiki.gnome.org/Projects/Gom")
6042     (synopsis "Object mapper from GObjects to SQLite")
6043     (description
6044      "Gom provides an object mapper from GObjects to SQLite.  It helps you
6045 write applications that need to store structured data as well as make complex
6046 queries upon that data.")
6047     (license license:lgpl2.1+)))
6048
6049 (define-public libgnome-games-support
6050   (package
6051     (name "libgnome-games-support")
6052     (version "1.7.1")
6053     (source (origin
6054               (method url-fetch)
6055               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
6056                                   (version-major+minor version) "/"
6057                                   "libgnome-games-support-" version ".tar.xz"))
6058               (sha256
6059                (base32
6060                 "11g1r3ppb9v8m3anks9gxf7fv1x38vmjiya3lr7zjjv328pb69d6"))))
6061     (build-system meson-build-system)
6062     (arguments
6063       '(#:glib-or-gtk? #t
6064         #:phases
6065           (modify-phases %standard-phases
6066             (add-before 'check 'pre-check
6067               (lambda _
6068                 ;; Tests require a writable HOME.
6069                 (setenv "HOME" (getcwd))
6070                 #t)))))
6071     (native-inputs
6072      (list intltool pkg-config vala))
6073     (propagated-inputs
6074      ;; Required by libgnome-games-support-1.0.pc
6075      (list gtk+ libgee))
6076     (home-page "https://www.gnome.org/")
6077     (synopsis "Useful functionality shared among GNOME games")
6078     (description
6079      "libgnome-games-support is a small library intended for internal use by
6080 GNOME Games, but it may be used by others.")
6081     (license license:lgpl3+)))
6082
6083 (define-public gnome-klotski
6084   (package
6085     (name "gnome-klotski")
6086     (version "3.34.0")
6087     (source (origin
6088               (method url-fetch)
6089               (uri (string-append "mirror://gnome/sources/" name "/"
6090                                   (version-major+minor version) "/"
6091                                   name "-" version ".tar.xz"))
6092               (sha256
6093                (base32
6094                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
6095     (build-system meson-build-system)
6096     (arguments
6097      '(#:glib-or-gtk? #t
6098        #:phases
6099        (modify-phases %standard-phases
6100          (add-after 'unpack 'skip-gtk-update-icon-cache
6101            ;; Don't create 'icon-theme.cache'.
6102            (lambda _
6103              (substitute* "build-aux/meson_post_install.py"
6104                (("gtk-update-icon-cache") (which "true")))
6105              #t)))))
6106     (native-inputs
6107      `(("desktop-file-utils" ,desktop-file-utils)
6108        ("glib:bin" ,glib "bin") ; for glib-compile-resources
6109        ("intltool" ,intltool)
6110        ("itstool" ,itstool)
6111        ("pkg-config" ,pkg-config)
6112        ("vala" ,vala)
6113        ("xmllint" ,libxml2)))
6114     (inputs
6115      (list gtk+ libgnome-games-support librsvg))
6116     (home-page "https://wiki.gnome.org/Apps/Klotski")
6117     (synopsis "Sliding block puzzles")
6118     (description
6119      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
6120 the patterned block to the area bordered by green markers.  To do so, you will
6121 need to slide other blocks out of the way.  Complete each puzzle in as few moves
6122 as possible!")
6123     (license license:gpl2+)))
6124
6125 (define-public grilo
6126   (package
6127     (name "grilo")
6128     (version "0.3.13")
6129     (source
6130      (origin
6131        (method url-fetch)
6132        (uri (string-append "mirror://gnome/sources/grilo/"
6133                            (version-major+minor version) "/"
6134                            "grilo-" version ".tar.xz"))
6135        (sha256
6136         (base32 "0ywjvh7xw4ql1q4fvl0q5n06n08pga1g1nc9l7c3x5214gr3fj6i"))))
6137     (build-system meson-build-system)
6138     (native-inputs
6139      (list `(,glib "bin") ; for glib-mkenums and glib-genmarshal
6140            intltool
6141            pkg-config
6142            gobject-introspection
6143            gtk-doc/stable
6144            vala))
6145     (inputs
6146      (list cyrus-sasl
6147            glib
6148            gtk+
6149            libxml2
6150            liboauth
6151            libsoup-minimal-2
6152            totem-pl-parser))
6153     (native-search-paths
6154      (list (search-path-specification
6155             (variable "GRL_PLUGIN_PATH")
6156             (files (list (string-append "lib/grilo-"
6157                                         (version-major+minor version)))))))
6158     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
6159     (synopsis "Framework for discovering and browsing media")
6160     (description
6161      "Grilo is a framework focused on making media discovery and browsing easy
6162 for application developers.")
6163     (license license:lgpl2.1+)))
6164
6165 (define-public grilo-plugins
6166   (package
6167     (name "grilo-plugins")
6168     (version "0.3.13")
6169     (source
6170      (origin
6171        (method url-fetch)
6172        (uri (string-append "mirror://gnome/sources/" name "/"
6173                            (version-major+minor version) "/"
6174                            name "-" version ".tar.xz"))
6175        (sha256
6176         (base32 "1y10nnd711qxwgpz6spzp1rnk50fyf11kk1n71a31ab4fgb0ahqw"))))
6177     (build-system meson-build-system)
6178     (native-inputs
6179      `(("gettext" ,gettext-minimal)
6180        ("glib:bin" ,glib "bin")
6181        ("gtk+:bin" ,gtk+ "bin")
6182        ("itstool" ,itstool)
6183        ("pkg-config" ,pkg-config)))
6184     ;; TODO: ahavi, gstreamer
6185     (inputs
6186      `(("grilo" ,grilo)
6187        ;("gmime" ,gmime) ; unused
6188        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6189        ("gom" ,gom)
6190        ;("gssdp" ,gssdp) ; unused
6191        ;("gupnp" ,gupnp) ; unused
6192        ;("gupnp-av" ,gupnp-av) ; unused
6193        ("json-glib" ,json-glib)
6194        ("avahi" ,avahi)
6195        ("libgdata" ,libgdata)
6196        ("libmediaart" ,libmediaart)
6197        ;("librest" ,rest) ; unused
6198        ("libsoup" ,libsoup)
6199        ("python-pygobject" ,python-pygobject)
6200        ("totam-pl-parser" ,totem-pl-parser)
6201        ("tracker" ,tracker)
6202        ("tracker-miners" ,tracker-miners)))
6203     (arguments
6204      `(#:glib-or-gtk? #t
6205        ;;Disable lua-factory as it needs missing dependencies
6206        #:configure-flags '("-Denable-lua-factory=no")
6207        #:phases
6208        (modify-phases %standard-phases
6209          (add-before 'configure 'set-shell
6210            (lambda _
6211              (setenv "SHELL" (which "bash"))))
6212          ;; Disable the tracker test that requires the UPower daemon.
6213          (add-before 'configure 'fix-tests
6214            (lambda* (#:key inputs #:allow-other-keys)
6215              (substitute* "tests/tracker3/meson.build"
6216                (("'test_tracker3'.*") "")))))))
6217     (home-page "https://live.gnome.org/Grilo")
6218     (synopsis "Plugins for the Grilo media discovery library")
6219     (description
6220      "Grilo is a framework focused on making media discovery and browsing easy
6221 for application developers.  This package provides plugins for common media
6222 discovery protocols.")
6223     (license license:lgpl2.1+)))
6224
6225 (define-public totem
6226   (package
6227     (name "totem")
6228     (version "3.38.1")
6229     (source
6230      (origin
6231        (method url-fetch)
6232        (uri (string-append "mirror://gnome/sources/totem/"
6233                            (version-major+minor version) "/"
6234                            "totem-" version ".tar.xz"))
6235        (sha256
6236         (base32 "02510lvzvxvmpcs64k6sqix8ysl7sihhhwvp0vmfv7521ryczylg"))))
6237     (build-system meson-build-system)
6238     (native-inputs
6239      `(("pkg-config" ,pkg-config)
6240        ("desktop-file-utils" ,desktop-file-utils)
6241        ("gettext" ,gettext-minimal)
6242        ("gobject-introspection" ,gobject-introspection)
6243        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
6244        ("itstool" ,itstool)
6245        ("xmllint" ,libxml2)
6246        ("xorg-server" ,xorg-server-for-tests)))
6247     (propagated-inputs
6248      (list dconf))
6249     (inputs
6250      (list gtk+
6251            gdk-pixbuf
6252            atk
6253            cairo
6254            dbus-glib
6255            clutter
6256            clutter-gtk
6257            clutter-gst
6258            xorgproto
6259            libxxf86vm
6260            libxtst
6261            libxrandr
6262            libxml2
6263            libsoup
6264            libpeas
6265            librsvg
6266            lirc
6267            gnome-desktop
6268            gstreamer
6269            gst-plugins-base
6270            gst-plugins-good
6271            gsettings-desktop-schemas
6272            adwaita-icon-theme
6273            python
6274            python-pygobject
6275            totem-pl-parser
6276            grilo
6277            grilo-plugins
6278            vala))
6279     (arguments
6280      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
6281        #:glib-or-gtk? #t
6282
6283        ;; Disable automatic GStreamer plugin installation via PackageKit and
6284        ;; all that.
6285        #:configure-flags '("-D" "enable-easy-codec-installation=no"
6286
6287                            ;; Do not build .a files for the plugins, it's
6288                            ;; completely useless.  This saves 2 MiB.
6289                            "--default-library" "shared")
6290        #:phases
6291        (modify-phases %standard-phases
6292          (add-after 'unpack 'skip-gtk-update-icon-cache
6293            ;; Don't create 'icon-theme.cache'.
6294            (lambda _
6295              (substitute* "meson_post_install.py"
6296                (("gtk-update-icon-cache") "true"))
6297              #t))
6298          (add-before
6299           'install 'disable-cache-generation
6300           (lambda _
6301             (setenv "DESTDIR" "/")
6302             #t))
6303          (add-before
6304           'check 'pre-check
6305           (lambda _
6306             ;; Tests require a running X server.
6307             (system "Xvfb :1 &")
6308             (setenv "DISPLAY" ":1")
6309             #t))
6310          (add-after
6311           'install 'wrap-totem
6312           (lambda* (#:key inputs outputs #:allow-other-keys)
6313             (let ((out             (assoc-ref outputs "out"))
6314                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6315                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6316               (wrap-program (string-append out "/bin/totem")
6317                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6318                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
6319               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6320                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
6321             #t)))))
6322     (home-page "https://wiki.gnome.org/Apps/Videos")
6323     (synopsis "Simple media player for GNOME based on GStreamer")
6324     (description "Totem is a simple yet featureful media player for GNOME
6325 which can read a large number of file formats.")
6326     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6327     ;; to be used and distributed together with GStreamer and Totem.  See
6328     ;; file://COPYING in the source distribution for details.
6329     (license license:gpl2+)))
6330
6331 (define-public rhythmbox
6332  (package
6333    (name "rhythmbox")
6334    (version "3.4.4")
6335    (source (origin
6336             (method url-fetch)
6337             (uri (string-append "mirror://gnome/sources/rhythmbox/"
6338                                 (version-major+minor version) "/"
6339                                 "rhythmbox-" version ".tar.xz"))
6340             (sha256
6341              (base32
6342               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
6343    (build-system glib-or-gtk-build-system)
6344    (arguments
6345     `(#:configure-flags
6346       (list "--enable-lirc"
6347             "--enable-python"
6348             "--enable-vala"
6349             "--with-brasero"
6350             "--with-gudev"
6351             "--with-libsecret")
6352       #:phases
6353       (modify-phases %standard-phases
6354         (add-after
6355          'install 'wrap-rhythmbox
6356          (lambda* (#:key inputs outputs #:allow-other-keys)
6357            (let ((out               (assoc-ref outputs "out"))
6358                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6359                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
6360                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
6361                  (python-path       (getenv "GUIX_PYTHONPATH")))
6362              (wrap-program (string-append out "/bin/rhythmbox")
6363                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
6364                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6365                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
6366                `("GUIX_PYTHONPATH"             ":" prefix (,python-path))))
6367            #t)))))
6368    (propagated-inputs
6369     (list dconf))
6370    (native-inputs
6371     `(("itstool" ,itstool)
6372       ("intltool" ,intltool)
6373       ("glib" ,glib "bin")
6374       ("gobject-introspection" ,gobject-introspection)
6375       ("desktop-file-utils" ,desktop-file-utils)
6376       ("pkg-config" ,pkg-config)
6377       ("xmllint" ,libxml2)))
6378    (inputs
6379     `(("json-glib" ,json-glib)
6380       ("tdb" ,tdb)
6381       ("gnome-desktop" ,gnome-desktop)
6382       ("python" ,python)
6383       ("python-pygobject" ,python-pygobject)
6384       ("vala" ,vala)
6385       ("gmime" ,gmime)
6386       ("adwaita-icon-theme" ,adwaita-icon-theme)
6387       ("grilo" ,grilo)
6388       ("grilo-plugins" ,grilo-plugins)
6389       ("gstreamer" ,gstreamer)
6390       ("gst-plugins-base" ,gst-plugins-base)
6391       ("gst-plugins-good" ,gst-plugins-good)
6392       ("totem-pl-parser" ,totem-pl-parser)
6393       ("libgudev" ,libgudev)
6394       ;;("libmtp" ,libmtp) FIXME: Not detected
6395       ("libsecret" ,libsecret)
6396       ("libsoup" ,libsoup)
6397       ("libnotify" ,libnotify)
6398       ("libpeas" ,libpeas)
6399       ("libsoup" ,libsoup-minimal-2)
6400       ("lirc" ,lirc)
6401       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6402       ;;("clutter" ,clutter)
6403       ;;("clutter-gtk" ,clutter-gtk)
6404       ;;("clutter-gst" ,clutter-gst)
6405       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6406       ("atk" ,atk)
6407       ("pango" ,pango)
6408       ("gtk+" ,gtk+)
6409       ;; TODO:
6410       ;;  * libgpod
6411       ;;  * mx
6412       ("brasero" ,brasero)))
6413    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6414    (synopsis "Music player for GNOME")
6415    (description "Rhythmbox is a music playing application for GNOME.  It
6416 supports playlists, song ratings, and any codecs installed through gstreamer.")
6417    (license license:gpl2+)))
6418
6419 (define-public eog
6420  (package
6421    (name "eog")
6422    (version "40.3")
6423    (source (origin
6424             (method url-fetch)
6425             (uri (string-append "mirror://gnome/sources/" name "/"
6426                                 (version-major version) "/"
6427                                 name "-" version ".tar.xz"))
6428             (sha256
6429              (base32
6430               "0ddjwcd77nw0rxb5x5bz5hd671m8gya9827p8rsnb58x103kpai8"))))
6431    (build-system meson-build-system)
6432    (arguments
6433     `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
6434       #:configure-flags
6435       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6436       (list (string-append "-Dc_link_args=-Wl,-rpath="
6437                            (assoc-ref %outputs "out") "/lib/eog"))
6438       #:phases
6439       (modify-phases %standard-phases
6440          (add-after 'unpack 'skip-gtk-update-icon-cache
6441            ;; Don't create 'icon-theme.cache'.
6442            (lambda _
6443              (substitute* "meson_post_install.py"
6444                (("gtk-update-icon-cache") "true"))))
6445         (add-after 'install 'wrap-eog
6446           (lambda* (#:key outputs #:allow-other-keys)
6447             (let ((out               (assoc-ref outputs "out"))
6448                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6449               (wrap-program (string-append out "/bin/eog")
6450                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
6451    (propagated-inputs
6452     (list dconf))
6453    (native-inputs
6454     `(("intltool" ,intltool)
6455       ("itstool" ,itstool)
6456       ("glib" ,glib "bin")
6457       ("gobject-introspection" ,gobject-introspection)
6458       ("pkg-config" ,pkg-config)
6459       ("xmllint" ,libxml2)))
6460    (inputs
6461     `(("gnome-desktop" ,gnome-desktop)
6462       ("shared-mime-info" ,shared-mime-info)
6463       ("adwaita-icon-theme" ,adwaita-icon-theme)
6464       ("exempi" ,exempi)
6465       ("lcms" ,lcms)
6466       ("libexif" ,libexif)
6467       ("libpeas" ,libpeas)
6468       ("libportal" ,libportal)
6469       ("libjpeg" ,libjpeg-turbo)
6470       ("librsvg" ,librsvg)
6471       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6472       ("gtk+" ,gtk+)))
6473    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6474    (synopsis "GNOME image viewer")
6475    (description "Eye of GNOME is the GNOME image viewer.  It
6476 supports image conversion, rotation, and slideshows.")
6477    (license license:gpl2+)))
6478
6479 (define-public eog-plugins
6480   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6481   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
6482   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
6483   ;; 'XDG_DATA_DIRS' appropriately set.
6484   (package
6485     (name "eog-plugins")
6486     (version "3.26.7")
6487     (source (origin
6488               (method url-fetch)
6489               (uri (string-append "mirror://gnome/sources/eog-plugins/"
6490                                   (version-major+minor version) "/"
6491                                   "eog-plugins-" version ".tar.xz"))
6492               (sha256
6493                (base32
6494                 "0gbvl54hjawcrj2cbkvsw5jx11p6jv1xkc58c8ikwwpb56gc3ric"))))
6495     (build-system gnu-build-system)
6496     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6497     (synopsis "Extensions for the Eye of GNOME image viewer")
6498     (native-inputs
6499      (list pkg-config gettext-minimal))
6500     (inputs
6501      (list eog
6502            glib
6503            gtk+
6504            libpeas
6505            libexif
6506            libchamplain))
6507     (description
6508      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6509 notably:
6510
6511 @itemize
6512 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
6513 @item @dfn{Map}, which displays a map of where the picture was taken on the
6514 side panel;
6515 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6516 @end itemize\n")
6517
6518     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6519     ;; long suspicious byte stream that goes to a
6520     ;; ".gresource.eog_postasa_plugin" ELF section.
6521     (license license:gpl2+)))
6522
6523 (define-public libgudev
6524   (package
6525     (name "libgudev")
6526     (version "236")
6527     (source (origin
6528               (method url-fetch)
6529               (uri (string-append "mirror://gnome/sources/" name "/"
6530                                   version "/" name "-" version ".tar.xz"))
6531               (sha256
6532                (base32
6533                 "094mgjmwgsgqrr1i0vd20ynvlkihvs3vgbmpbrhswjsrdp86j0z5"))))
6534     (build-system meson-build-system)
6535     (native-inputs
6536      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6537        ("gobject-introspection" ,gobject-introspection)
6538        ("pkg-config" ,pkg-config)))
6539     (propagated-inputs
6540      (list glib ; in Requires of gudev-1.0.pc
6541            eudev))               ; in Requires.private of gudev-1.0.pc
6542     (inputs
6543      `(("udev" ,eudev)))
6544     (home-page "https://wiki.gnome.org/Projects/libgudev")
6545     (synopsis "GObject bindings for libudev")
6546     (description
6547      "This library provides GObject bindings for libudev.  It was originally
6548 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
6549     (license license:lgpl2.1+)))
6550
6551 (define-public gvfs
6552   (package
6553     (name "gvfs")
6554     (version "1.48.1")
6555     (source (origin
6556               (method url-fetch)
6557               (uri (string-append "mirror://gnome/sources/gvfs/"
6558                                   (version-major+minor version) "/"
6559                                   "gvfs-" version ".tar.xz"))
6560               (sha256
6561                (base32
6562                 "1hlxl6368h6nyqp1888szxs9hnpcw98k3h23dgqi29xd38klzsmj"))))
6563     (build-system meson-build-system)
6564     (arguments
6565      `(#:meson ,meson-0.59
6566        #:glib-or-gtk? #t
6567        #:configure-flags
6568        (list "-Dsystemduserunitdir=no"
6569              "-Dtmpfilesdir=no"
6570              ;; Otherwise, the RUNPATH will lack the final path component.
6571              (string-append "-Dc_link_args=-Wl,-rpath="
6572                             (assoc-ref %outputs "out") "/lib/gvfs"))))
6573     (native-inputs
6574      `(("glib:bin" ,glib "bin")         ;for glib-genmarshal, etc.
6575        ("gettext" ,gettext-minimal)
6576        ("gtk-doc" ,gtk-doc/stable)
6577        ("pkg-config" ,pkg-config)
6578        ("xsltproc" ,libxslt)))
6579     (inputs
6580      `(("avahi" ,avahi)
6581        ("docbook-xml" ,docbook-xml-4.2)
6582        ("docbook-xsl" ,docbook-xsl)
6583        ("dbus" ,dbus)
6584        ("elogind" ,elogind)
6585        ("fuse" ,fuse-3)
6586        ("gcr" ,gcr)
6587        ("glib" ,glib)
6588        ("gnome-online-accounts" ,gnome-online-accounts)
6589        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6590        ("libarchive" ,libarchive)
6591        ("libbluray" ,libbluray)
6592        ("libcap" ,libcap)
6593        ("libcdio-paranoia" ,libcdio-paranoia)
6594        ("libgcrypt" ,libgcrypt)
6595        ("libgdata" ,libgdata)
6596        ("libgphoto2" ,libgphoto2)
6597        ("libgudev" ,libgudev)
6598        ("libimobiledevice" ,libimobiledevice)
6599        ("libmtp" ,libmtp)
6600        ("libnfs" ,libnfs)
6601        ("libsecret" ,libsecret)
6602        ("libsmbclient" ,samba)
6603        ("libsoup" ,libsoup)
6604        ("libxml2" ,libxml2)
6605        ("openssh" ,openssh)
6606        ("polkit" ,polkit)
6607        ("udisks" ,udisks)))
6608     (home-page "https://wiki.gnome.org/gvfs/")
6609     (synopsis "Userspace virtual file system for GIO")
6610     (description
6611      "GVFS is a userspace virtual file system designed to work with the I/O
6612 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS
6613 support to all applications using the GIO API.  It also supports exposing the
6614 GVFS mounts to non-GIO applications using FUSE.
6615
6616 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6617 DAV, and others.")
6618     (license license:lgpl2.0+)))
6619
6620 (define-public gusb-minimal
6621   (package
6622     (name "gusb-minimal")
6623     (version "0.3.5")
6624     (source (origin
6625               (method git-fetch)
6626               (uri (git-reference
6627                     (url "https://github.com/hughsie/libgusb")
6628                     (commit version)))
6629               (file-name (git-file-name name version))
6630               (sha256
6631                (base32
6632                 "0ifhdqhpyxwsg0z9s1anj7cf5pya5qsqyp5ksh9n7mqwa4lrjkl8"))))
6633     (build-system meson-build-system)
6634     (arguments
6635      `(#:tests? #f          ;libusb fails to initialize.  Wonder what that is.
6636        #:configure-flags
6637        (cons "-Ddocs=false"
6638              (if ,(%current-target-system)
6639                  ;; Introspection data cannot currently be cross-compiled.
6640                  '("-Dintrospection=false"
6641                    ;; Requires introspection data.
6642                    "-Dvapi=false")
6643                  '()))))
6644     (native-inputs
6645      (list gobject-introspection pkg-config vala))
6646     (propagated-inputs
6647      ;; Both of these are required by gusb.pc.
6648      (list glib libusb))
6649     (home-page "https://github.com/hughsie/libgusb")
6650     (synopsis "GLib binding for libusb1")
6651     (description
6652      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6653 asynchronous control, bulk and interrupt transfers with proper cancellation
6654 and integration into a mainloop.  This makes it easy to integrate low level
6655 USB transfers with your high-level application or system daemon.")
6656     (license license:lgpl2.1+)))
6657
6658 (define-public gusb
6659   (package/inherit gusb-minimal
6660     (name "gusb")
6661     (arguments
6662      (substitute-keyword-arguments (package-arguments gusb-minimal)
6663        ((#:configure-flags flags)
6664         `(cons "-Ddocs=true"
6665                (delete "-Ddocs=false" ,flags)))))
6666     (native-inputs
6667      (cons `("gtk-doc" ,gtk-doc/stable)
6668            (package-native-inputs gusb-minimal)))))
6669
6670 (define-public simple-scan
6671   (package
6672     (name "simple-scan")
6673     (version "40.7")
6674     (source
6675      (origin
6676        (method url-fetch)
6677        (uri (string-append "mirror://gnome/sources/simple-scan/"
6678                            (version-major version) "/"
6679                            "simple-scan-" version ".tar.xz"))
6680        (sha256
6681         (base32 "0lrxmk8xqvrb5gn5mpgqij133giwvrgavy49m55d7xssrd91hmbw"))))
6682     (build-system meson-build-system)
6683     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6684     (arguments
6685      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
6686        #:glib-or-gtk? #t))
6687     (native-inputs
6688      (list gettext-minimal
6689            itstool
6690            `(,glib "bin")               ; glib-compile-schemas, etc.
6691            pkg-config
6692            vala
6693            libxml2))
6694     (inputs
6695      (list gtk+
6696            zlib
6697            cairo
6698            colord
6699            gdk-pixbuf
6700            gusb
6701            libhandy
6702            sane-backends))
6703     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
6704     (synopsis "Document and image scanner")
6705     (description
6706      "Document Scanner is an easy-to-use application that lets you connect your
6707 scanner and quickly capture images and documents in an appropriate format.  It
6708 supports any scanner for which a suitable SANE driver is available, which is
6709 almost all of them.")
6710     (license license:gpl3+)))
6711
6712 (define-public eolie
6713   (package
6714     (name "eolie")
6715     (version "0.9.101")
6716     (source (origin
6717               (method url-fetch)
6718               (uri (string-append "https://adishatz.org/eolie/eolie-"
6719                                   version ".tar.xz"))
6720               (sha256
6721                (base32
6722                 "1v8n21y75abdzsnx5idyd0q6yfb6cd0sqbknlbkwh5fdgvjzyvwn"))))
6723     (build-system meson-build-system)
6724     (arguments
6725      `(#:glib-or-gtk? #t
6726        #:phases
6727        (modify-phases %standard-phases
6728          (add-after 'unpack 'skip-gtk-update-icon-cache
6729            ;; Don't create 'icon-theme.cache'.
6730            (lambda _
6731              (substitute* "meson_post_install.py"
6732                (("gtk-update-icon-cache") "true"))
6733              #t))
6734          (add-after 'wrap 'wrap-more
6735            (lambda* (#:key inputs outputs #:allow-other-keys)
6736              (let* ((out  (assoc-ref outputs "out"))
6737                     ;; These libraries must be on LD_LIBRARY_PATH.
6738                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6739                             "atk" "gtk+" "gsettings-desktop-schemas"
6740                             "gobject-introspection"))
6741                     (path (string-join
6742                            (map (lambda (lib)
6743                                   (string-append (assoc-ref inputs lib) "/lib"))
6744                                 libs)
6745                            ":")))
6746                (wrap-program (string-append out "/bin/eolie")
6747                  `("LD_LIBRARY_PATH" ":" prefix (,path))
6748                  `("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))
6749                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6750              #t)))))
6751     (native-inputs
6752      `(("intltool" ,intltool)
6753        ("itstool" ,itstool)
6754        ("pkg-config" ,pkg-config)
6755        ("python" ,python)
6756        ("glib:bin" ,glib "bin")))
6757     (inputs
6758      `(("gobject-introspection" ,gobject-introspection)
6759        ("glib-networking" ,glib-networking)
6760        ("cairo" ,cairo)
6761        ("gtk+" ,gtk+)
6762        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6763        ("python" ,python-wrapper)
6764        ("python-dateutil" ,python-dateutil)
6765        ("python-pyfxa" ,python-pyfxa)
6766        ("python-pygobject" ,python-pygobject)
6767        ("python-pycairo" ,python-pycairo)
6768        ("python-pycrypto" ,python-pycrypto)
6769        ("libhandy" ,libhandy)
6770        ("libsecret" ,libsecret)
6771        ("gtkspell3" ,gtkspell3)
6772        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6773        ("gnome-settings-daemon" ,gnome-settings-daemon) ; desktop-schemas are not enough
6774        ("webkitgtk" ,webkitgtk)))
6775     (home-page "https://wiki.gnome.org/Apps/Eolie")
6776     (synopsis "Web browser for GNOME")
6777     (description
6778      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
6779 a secret password store, an adblocker, and a modern UI.")
6780     (license license:gpl3+)))
6781
6782 (define-public epiphany
6783   (package
6784     (name "epiphany")
6785     (version "40.3")
6786     (source (origin
6787               (method url-fetch)
6788               (uri (string-append "mirror://gnome/sources/epiphany/"
6789                                   (version-major version) "/"
6790                                   "epiphany-" version ".tar.xz"))
6791               (sha256
6792                (base32
6793                 "0r7m34xzz3shdfxf2abxb069izak3yv3ijlg29qy4pfmyawkilfs"))))
6794
6795     (build-system meson-build-system)
6796     (arguments
6797      `(#:glib-or-gtk? #t
6798        #:meson ,meson-0.59
6799        #:phases
6800        (modify-phases %standard-phases
6801          (add-after 'unpack 'skip-gtk-update-icon-cache
6802            ;; Don't create 'icon-theme.cache'.
6803            (lambda _
6804              (substitute* "post_install.py"
6805                (("gtk-update-icon-cache") "true"))))
6806          (add-after 'unpack 'disable-failing-tests
6807            (lambda _
6808              (substitute* "tests/meson.build"
6809                ;; embed_shell fails, because webkitgtk apparently no longer
6810                ;; supports overriding the ftp schema web_app_utils fails due
6811                ;; to missing network access.
6812                (("(embed_shell|web_app_utils)_test,")
6813                 "find_program('sh'), args: ['-c', 'exit 77'],"))))
6814          (add-before 'check 'pre-check
6815            (lambda _
6816              ;; Tests require a running X server.
6817              (system "Xvfb :1 &")
6818              (setenv "DISPLAY" ":1"))))
6819        #:configure-flags
6820        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
6821        (list (string-append "-Dc_link_args=-Wl,-rpath="
6822                             (assoc-ref %outputs "out") "/lib/epiphany"))))
6823     (propagated-inputs
6824      (list dconf))
6825     (native-inputs
6826      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6827        ("glib:bin" ,glib "bin") ; for glib-mkenums
6828        ("intltool" ,intltool)
6829        ("itstool" ,itstool)
6830        ("pkg-config" ,pkg-config)
6831        ("xmllint" ,libxml2)
6832        ("xorg-server" ,xorg-server-for-tests)))
6833     (inputs
6834      `(("avahi" ,avahi)
6835        ("gcr" ,gcr)
6836        ("librsvg" ,librsvg) ; for loading SVG files
6837        ("glib-networking" ,glib-networking)
6838        ("gnome-desktop" ,gnome-desktop)
6839        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6840        ("json-glib" ,json-glib)
6841        ("iso-codes" ,iso-codes)
6842        ("libarchive" ,libarchive)
6843        ("libdazzle" ,libdazzle)
6844        ("libhandy" ,libhandy)
6845        ("libnotify" ,libnotify)
6846        ("libportal" ,libportal)
6847        ("libsecret" ,libsecret)
6848        ("libxslt" ,libxslt)
6849        ("nettle" ,nettle) ; for hogweed
6850        ("sqlite" ,sqlite)
6851        ("webkitgtk" ,webkitgtk-with-libsoup2)))
6852     (home-page "https://wiki.gnome.org/Apps/Web")
6853     (synopsis "GNOME web browser")
6854     (description
6855      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
6856 principles are simplicity and standards compliance.")
6857     (license license:gpl2+)))
6858
6859 (define-public d-feet
6860   (package
6861     (name "d-feet")
6862     (version "0.3.14")
6863     (source (origin
6864               (method url-fetch)
6865               (uri (string-append "mirror://gnome/sources/" name "/"
6866                                   (version-major+minor version) "/"
6867                                   name "-" version ".tar.xz"))
6868               (sha256
6869                (base32
6870                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
6871     (build-system glib-or-gtk-build-system)
6872     (arguments
6873      '(#:out-of-source? #f ; tests need to run in the source directory.
6874        #:phases
6875        (modify-phases %standard-phases
6876          (add-before
6877           'check 'pre-check
6878           (lambda _
6879             ;; The test suite requires a running X server.
6880             (system "Xvfb :1 &")
6881             (setenv "DISPLAY" ":1")
6882             ;; Don't fail on missing '/etc/machine-id'.
6883             (setenv "DBUS_FATAL_WARNINGS" "0")
6884             ;; tests.py and window.py don't meet E402:
6885             ;;   E402 module level import not at top of file
6886             (substitute* "src/tests/Makefile"
6887               (("--ignore=E123") "--ignore=E123,E402"))
6888             #t))
6889          (add-after
6890           'install 'wrap-program
6891           (lambda* (#:key outputs #:allow-other-keys)
6892             (let ((prog (string-append (assoc-ref outputs "out")
6893                                        "/bin/d-feet")))
6894               (wrap-program prog
6895                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
6896                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
6897               #t))))))
6898     (native-inputs
6899      `(("intltool" ,intltool)
6900        ("itstool" ,itstool)
6901        ("pkg-config" ,pkg-config)
6902        ("python-pep8" ,python-pep8)
6903        ("xmllint" ,libxml2)
6904        ("xorg-server" ,xorg-server-for-tests)))
6905     (inputs
6906      `(("gobject-introspection" ,gobject-introspection)
6907        ("gtk+" ,gtk+)
6908        ("python" ,python-wrapper)
6909        ("hicolor-icon-theme" ,hicolor-icon-theme)
6910        ("python-pygobject" ,python-pygobject)))
6911     (home-page "https://wiki.gnome.org/Apps/DFeet")
6912     (synopsis "D-Bus debugger")
6913     (description
6914      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
6915 of running programs and invoke methods on those interfaces.")
6916     (license license:gpl2+)))
6917
6918 (define-public yelp-xsl
6919   (package
6920     (name "yelp-xsl")
6921     (version "41.0")
6922     (source
6923      (origin
6924        (method url-fetch)
6925        (uri
6926         (string-append "mirror://gnome/sources/" name "/"
6927                        (version-major version) "/"
6928                        name "-" version ".tar.xz"))
6929        (sha256
6930         (base32 "19d46rkajvr0f04560vlrzwvac88x5j8ilvzwkawbn5vjg069kf8"))))
6931     (build-system gnu-build-system)
6932     (arguments
6933      `(#:configure-flags
6934        (list
6935         "--enable-doc")))
6936     (native-inputs
6937      `(("ducktype" ,mallard-ducktype)
6938        ("gettext" ,gettext-minimal)
6939        ("intltool" ,intltool)
6940        ("itstool" ,itstool)
6941        ("xmllint" ,libxml2)
6942        ("xsltproc" ,libxslt)))
6943     (synopsis "XSL stylesheets for Yelp")
6944     (description "Yelp-XSL is a collection of programs and data files to help
6945 you build, maintain, and distribute documentation.  It provides XSLT stylesheets
6946 that can be built upon for help viewers and publishing systems.  These
6947 stylesheets output JavaScript and CSS content, and reference images
6948 provided by yelp-xsl. It also redistributes copies of the jQuery and
6949 jQuery.Syntax JavaScript libraries.")
6950     (home-page "https://wiki.gnome.org/Apps/Yelp")
6951     (license
6952      (list
6953       ;; XSLT
6954       license:gpl2+
6955       ;; Images
6956       license:lgpl2.1+
6957       ;; JavaScript
6958       license:expat))))
6959
6960 (define-public yelp
6961   (package
6962     (name "yelp")
6963     (version "41.0")
6964     (source (origin
6965               (method url-fetch)
6966               (uri (string-append "mirror://gnome/sources/" name "/"
6967                                   (version-major version) "/"
6968                                   name "-" version ".tar.xz"))
6969               (sha256
6970                (base32
6971                 "11shrqass8ak8m10nayqssa6sbrrxa13ffpamvqi1c0yzkxdk9r5"))))
6972     (build-system glib-or-gtk-build-system)
6973     (native-inputs
6974      (list `(,glib "bin") ; for glib-genmarshal, etc.
6975            intltool itstool pkg-config))
6976     (propagated-inputs
6977      (list dconf))
6978     (inputs
6979      (list gsettings-desktop-schemas libxslt sqlite webkitgtk yelp-xsl))
6980     (home-page "https://wiki.gnome.org/Apps/Yelp")
6981     (synopsis "GNOME help browser")
6982     (description
6983      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
6984 man, info, and HTML documents.  It can locate documents according to the
6985 freedesktop.org help system specification.")
6986     (license license:gpl2+)))
6987
6988 (define-public yelp-tools
6989   (package
6990     (name "yelp-tools")
6991     (version "3.32.2")
6992     (source
6993      (origin
6994        (method url-fetch)
6995        (uri
6996         (string-append "mirror://gnome/sources/" name "/"
6997                        (version-major+minor version) "/"
6998                        name "-" version ".tar.xz"))
6999        (sha256
7000         (base32 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
7001     (build-system gnu-build-system)
7002     (native-inputs
7003      (list pkg-config))
7004     (inputs
7005      (list yelp-xsl))
7006     (propagated-inputs
7007      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
7008      `(("itstool" ,itstool)
7009        ("xmllint" ,libxml2)
7010        ("xsltproc" ,libxslt)))
7011     (synopsis "Yelp documentation tools")
7012     (description
7013      "Yelp-tools is a collection of scripts and build utilities to help create,
7014 manage, and publish documentation for Yelp and the web.  Most of the heavy
7015 lifting is done by packages like yelp-xsl and itstool.  This package just
7016 wraps things up in a developer-friendly way.")
7017     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
7018     (license license:gpl2+)))
7019
7020 (define-public libgee
7021   (package
7022     (name "libgee")
7023     (version "0.20.3")
7024     (source (origin
7025               (method url-fetch)
7026               (uri (string-append "mirror://gnome/sources/libgee/"
7027                                   (version-major+minor version) "/"
7028                                   "libgee-" version ".tar.xz"))
7029               (sha256
7030                (base32
7031                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
7032     (build-system gnu-build-system)
7033     (arguments
7034      `(#:phases
7035        (modify-phases %standard-phases
7036          (add-after 'unpack 'fix-introspection-install-dir
7037           (lambda* (#:key outputs #:allow-other-keys)
7038             (let ((out (assoc-ref outputs "out")))
7039               (substitute* "gee/Makefile.in"
7040                 (("@INTROSPECTION_GIRDIR@")
7041                  (string-append out "/share/gir-1.0/"))
7042                 (("@INTROSPECTION_TYPELIBDIR@")
7043                  (string-append out "/lib/girepository-1.0/")))))))))
7044     (native-inputs
7045      (list `(,glib "bin") pkg-config))
7046     (inputs
7047      (list glib gobject-introspection))
7048     (home-page "https://wiki.gnome.org/Projects/Libgee")
7049     (synopsis "GObject collection library")
7050     (description
7051      "Libgee is a utility library providing GObject-based interfaces and
7052 classes for commonly used data structures.")
7053     (license license:lgpl2.1+)))
7054
7055 (define-public gexiv2
7056   (package
7057     (name "gexiv2")
7058     (version "0.12.2")
7059     (source (origin
7060               (method url-fetch)
7061               (uri (string-append "mirror://gnome/sources/" name "/"
7062                                   (version-major+minor version) "/"
7063                                   name "-" version ".tar.xz"))
7064               (sha256
7065                (base32
7066                 "0k4ljzzz5dwqndw8awvlw3ala8rh3b2rk9i4jzvywc53mi9ba8i3"))))
7067     (build-system meson-build-system)
7068     (native-inputs
7069      (list gcr
7070            `(,glib "bin") pkg-config vala))
7071     (propagated-inputs
7072      ;; Listed in "Requires" section of gexiv2.pc
7073      (list exiv2))
7074     (inputs
7075      (list glib gobject-introspection))
7076     (home-page "https://wiki.gnome.org/Projects/gexiv2")
7077     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
7078     (description
7079      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
7080 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
7081 metadata in photo and video files of various formats.")
7082     (license license:gpl2+)))
7083
7084 (define-public shotwell
7085   (package
7086     (name "shotwell")
7087     (version "0.30.12")
7088     (source (origin
7089               (method url-fetch)
7090               (uri (string-append "mirror://gnome/sources/shotwell/"
7091                                   (version-major+minor version) "/"
7092                                   "shotwell-" version ".tar.xz"))
7093               (sha256
7094                (base32
7095                 "1h5crjq59lqi8f8mdkadzi8pc3i9i2ik4lsx2nrhzq486fzdfhw6"))))
7096     (build-system meson-build-system)
7097     (arguments
7098      '(#:glib-or-gtk? #t
7099        #:phases
7100        (modify-phases %standard-phases
7101          (add-after 'unpack 'skip-gtk-update-icon-cache
7102            (lambda _
7103              (substitute* "build-aux/meson/postinstall.py"
7104                (("gtk-update-icon-cache") (which "true"))
7105                (("update-desktop-database") (which "true")))
7106              #t)))))
7107     (propagated-inputs
7108      (list dconf))
7109     (native-inputs
7110      `(("gettext" ,gettext-minimal)
7111        ("glib:bin" ,glib "bin")
7112        ("itstool" ,itstool)
7113        ("pkg-config" ,pkg-config)
7114        ("vala" ,vala)))
7115     (inputs
7116      `(("gcr" ,gcr)
7117        ("gexiv2" ,gexiv2)
7118        ("gst-plugins-base" ,gst-plugins-base)
7119        ("gstreamer" ,gstreamer)
7120        ("json-glib" ,json-glib)
7121        ("libgdata" ,libgdata)
7122        ("libgee" ,libgee)
7123        ("libgphoto2" ,libgphoto2)
7124        ("libgudev" ,libgudev)
7125        ("libraw" ,libraw)
7126        ("libxml2" ,libxml2)
7127        ("sqlite" ,sqlite)
7128        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7129     (home-page "https://wiki.gnome.org/Apps/Shotwell")
7130     (synopsis "Photo manager for GNOME 3")
7131     (description
7132      "Shotwell is a digital photo manager designed for the GNOME desktop
7133 environment.  It allows you to import photos from disk or camera, organize
7134 them by keywords and events, view them in full-window or fullscreen mode, and
7135 share them with others via social networking and more.")
7136     (license license:lgpl2.1+)))
7137
7138 (define-public file-roller
7139   (package
7140     (name "file-roller")
7141     (version "3.40.0")
7142     (source (origin
7143               (method url-fetch)
7144               (uri (string-append "mirror://gnome/sources/file-roller/"
7145                                   (version-major+minor version) "/"
7146                                   "file-roller-" version ".tar.xz"))
7147               (sha256
7148                (base32
7149                 "039w1dcpa5ypmv6sm634alk9vbcdkyvy595vkh5gn032jsiqca2a"))))
7150     (build-system meson-build-system)
7151     (native-inputs
7152      (list desktop-file-utils ; for update-desktop-database
7153            intltool
7154            itstool
7155            pkg-config
7156            `(,gtk+ "bin") ; gtk-update-icon-cache
7157            `(,glib "bin")))
7158     ;; TODO: Add libnautilus.
7159     (inputs
7160      (list gtk+
7161            gdk-pixbuf
7162            json-glib
7163            libarchive
7164            libnotify
7165            nettle
7166            libxml2))
7167     (synopsis "Graphical archive manager for GNOME")
7168     (description "File Roller is an archive manager for the GNOME desktop
7169 environment that allows users to view, unpack, and create compressed archives
7170 such as gzip tarballs.")
7171     (home-page "http://fileroller.sourceforge.net/")
7172     (license license:gpl2+)))
7173
7174 (define-public gnome-session
7175   (package
7176     (name "gnome-session")
7177     (version "40.1")
7178     (source (origin
7179               (method url-fetch)
7180               (uri (string-append "mirror://gnome/sources/" name "/"
7181                                   (version-major version) "/"
7182                                   name "-" version ".tar.xz"))
7183               (patches (search-patches "gnome-session-support-elogind.patch"))
7184               (sha256
7185                (base32
7186                 "02z0xr6sv9ibl7awbw9j4y05hf4jk1zgvsbbmh7n27hhjvsvc8pl"))))
7187     (arguments
7188      `(#:meson ,meson-0.59
7189        #:glib-or-gtk? #t
7190        #:phases
7191        (modify-phases %standard-phases
7192          (add-after 'install 'wrap-gnome-session
7193            (lambda* (#:key inputs outputs #:allow-other-keys)
7194              ;; Make sure 'gnome-session' finds the 'gsettings' program.
7195              (let ((glib (assoc-ref inputs "glib:bin"))
7196                    (out  (assoc-ref outputs "out")))
7197                (wrap-program (string-append out "/bin/gnome-session")
7198                  `("PATH" ":" prefix (,(string-append glib "/bin"))))))))
7199
7200        #:configure-flags
7201        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
7202          "-Dman=false" ; FIXME: disabled because of docbook validation error
7203          "-Delogind=true"
7204          "-Dsystemd=false"
7205          "-Dsystemd_session=disable"
7206          "-Dsystemd_journal=false")))
7207     (build-system meson-build-system)
7208     (native-inputs
7209      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7210        ("pkg-config" ,pkg-config)
7211        ("intltool" ,intltool)
7212        ("xsltproc" ,libxslt)
7213        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
7214        ("docbook-xsl" ,docbook-xsl)
7215        ("docbook-xml" ,docbook-xml)
7216        ("xmlto" ,xmlto)))
7217     (inputs
7218      (list elogind
7219            gnome-desktop
7220            gsettings-desktop-schemas
7221            gtk+
7222            json-glib
7223            libsm
7224            libxcomposite
7225            libxtst
7226            mesa
7227            upower
7228            xtrans))
7229     (synopsis "Session manager for GNOME")
7230     (description
7231      "This package contains the GNOME session manager, as well as a
7232 configuration program to choose applications starting on login.")
7233     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7234     (license license:gpl2+)))
7235
7236 (define-public gjs
7237   (package
7238     (name "gjs")
7239     (version "1.70.0")
7240     (source (origin
7241               (method url-fetch)
7242               (uri (string-append "mirror://gnome/sources/" name "/"
7243                                   (version-major+minor version) "/"
7244                                   name "-" version ".tar.xz"))
7245               (sha256
7246                (base32
7247                 "0pqwhq0znprs0h5ixz396912acwzk9zvjfhi9qvh52ii38s2j1jb"))
7248               (modules '((guix build utils)))
7249               (snippet
7250                '(begin
7251                   (substitute* "installed-tests/scripts/testCommandLine.sh"
7252                     (("Valentín") "")
7253                     (("☭") ""))))))
7254     (build-system meson-build-system)
7255     (arguments
7256      '(#:configure-flags '("-Dinstalled_tests=false")
7257        #:phases
7258        (modify-phases %standard-phases
7259          (add-before 'check 'pre-check
7260            (lambda _
7261              ;; The test suite requires a running X server.
7262              (system "Xvfb :1 &")
7263              (setenv "DISPLAY" ":1")
7264
7265              ;; For the missing /etc/machine-id.
7266              (setenv "DBUS_FATAL_WARNINGS" "0"))))))
7267     (native-inputs
7268      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
7269        ("pkg-config" ,pkg-config)
7270        ("xmllint" ,libxml2)
7271        ;; For testing
7272        ("dbus-launch" ,dbus)
7273        ("dconf" ,dconf) ; required to properly store settings
7274        ("uuidgen" ,util-linux)
7275        ("xvfb" ,xorg-server-for-tests)))
7276     (propagated-inputs
7277      ;; These are all in the Requires.private field of gjs-1.0.pc.
7278      (list cairo gobject-introspection mozjs-78))
7279     (inputs
7280      (list gtk+ readline))
7281     (synopsis "Javascript bindings for GNOME")
7282     (home-page "https://live.gnome.org/Gjs")
7283     (description
7284      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
7285 javascript engine and the GObject introspection framework.")
7286     (license license:gpl2+)))
7287
7288 (define-public gedit
7289   (package
7290     (name "gedit")
7291     (version "40.1")
7292     (source (origin
7293               (method url-fetch)
7294               (uri (string-append "mirror://gnome/sources/" name "/"
7295                                   (version-major version) "/"
7296                                   name "-" version ".tar.xz"))
7297               (sha256
7298                (base32
7299                 "149ngl9qw6h59546lir1pa7hvw23ppsnqlj9mfqphmmn5jl99qsm"))))
7300     (build-system meson-build-system)
7301     (arguments
7302      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
7303        #:glib-or-gtk? #t
7304        #:configure-flags
7305        ;; Otherwise, the RUNPATH will lack the final path component.
7306        (list (string-append "-Dc_link_args=-Wl,-rpath="
7307                             (assoc-ref %outputs "out") "/lib/gedit"))
7308
7309        ;; XXX: Generated .h files are sometimes used before being built.
7310        #:parallel-build? #f
7311
7312        #:phases
7313        (modify-phases %standard-phases
7314          (add-after 'unpack 'skip-gtk-update-icon-cache
7315            ;; Don't create 'icon-theme.cache'.
7316            (lambda _
7317              (substitute* "build-aux/meson/post_install.py"
7318                (("gtk-update-icon-cache") (which "true")))
7319              #t))
7320          (add-after 'unpack 'patch-libgd-fetch
7321            (lambda* (#:key inputs #:allow-other-keys)
7322              (let ((libgd (assoc-ref inputs "libgd")))
7323                ;; Calling git is unnecessary because libgd is fetched as a
7324                ;; native input to this package.
7325                (substitute* "meson.build"
7326                  ((".*git.*") ""))
7327                (copy-recursively libgd "subprojects/libgd")
7328                #t)))
7329          (add-after 'install 'wrap-gedit
7330            (lambda* (#:key inputs outputs #:allow-other-keys)
7331              (let ((out               (assoc-ref outputs "out"))
7332                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
7333                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
7334                    (python-path       (getenv "GUIX_PYTHONPATH")))
7335                (wrap-program (string-append out "/bin/gedit")
7336                  ;; For plugins.
7337                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7338                  `("GUIX_PYTHONPATH" ":" prefix (,python-path))
7339                  ;; For language-specs.
7340                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
7341                                                                "/share")))))
7342              #t)))))
7343     (propagated-inputs
7344      (list dconf))
7345     (native-inputs
7346      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7347        ("intltool" ,intltool)
7348        ("itstool" ,itstool)
7349        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7350        ("gobject-introspection" ,gobject-introspection)
7351        ("libgd"
7352         ,(origin
7353            (method git-fetch)
7354            (uri (git-reference
7355                  (url "https://gitlab.gnome.org/GNOME/libgd")
7356                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
7357            (file-name (git-file-name "libgd" version))
7358            (sha256
7359             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
7360        ("pkg-config" ,pkg-config)))
7361     (inputs
7362      (list amtk
7363            glib
7364            gspell
7365            gtk+
7366            gtksourceview
7367            libpeas
7368            libxml2
7369            iso-codes
7370            python-pygobject
7371            python
7372            tepl
7373            gsettings-desktop-schemas
7374            libx11
7375            vala
7376            adwaita-icon-theme
7377            libsoup
7378            gnome-desktop))
7379     (home-page "https://wiki.gnome.org/Apps/Gedit")
7380     (synopsis "GNOME text editor")
7381     (description "While aiming at simplicity and ease of use, gedit is a
7382 powerful general purpose text editor.")
7383     (license license:gpl2+)))
7384
7385 (define-public zenity
7386   (package
7387     (name "zenity")
7388     (version "3.32.0")
7389     (source (origin
7390               (method url-fetch)
7391               (uri (string-append "mirror://gnome/sources/zenity/"
7392                                   (version-major+minor version) "/"
7393                                   "zenity-" version ".tar.xz"))
7394               (sha256
7395                (base32
7396                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
7397     (build-system gnu-build-system)
7398     (native-inputs
7399      (list gettext-minimal itstool pkg-config))
7400     (inputs
7401      (list libnotify webkitgtk))
7402     (synopsis "Display graphical dialog boxes from shell scripts")
7403     (home-page "https://www.gnome.org")
7404     (description
7405      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7406 to display dialog boxes from the commandline and shell scripts.")
7407     (license license:lgpl2.0+)))
7408
7409 (define-public mutter
7410   (package
7411     (name "mutter")
7412     (version "41.0")
7413     (source (origin
7414               (method url-fetch)
7415               (uri (string-append "mirror://gnome/sources/" name "/"
7416                                   (version-major version) "/"
7417                                   name "-" version ".tar.xz"))
7418               (sha256
7419                (base32
7420                 "17pqrm48kddqrc3fl96n5knhaxyn0crg0zv7zpmqhk848jks307s"))))
7421     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7422     ;; versions of cogl and clutter.  As a result, many of the inputs,
7423     ;; propagated-inputs, and configure flags used in cogl and clutter are
7424     ;; needed here as well.
7425     (build-system meson-build-system)
7426     (arguments
7427      `(#:imported-modules (,@%meson-build-system-modules
7428                            (guix build syscalls))
7429        #:modules ((guix build meson-build-system)
7430                   (guix build syscalls)
7431                   (guix build utils)
7432                   (ice-9 match))
7433        #:glib-or-gtk? #t
7434        #:configure-flags
7435        (list
7436         ;; Otherwise, the RUNPATH will lack the final path component.
7437         (string-append "-Dc_link_args=-Wl,-rpath="
7438                        (assoc-ref %outputs "out") "/lib:"
7439                        (assoc-ref %outputs "out") "/lib/mutter-9")
7440         ;; Disable systemd support.
7441         "-Dsystemd=false"
7442         ;; The following flags are needed for the bundled clutter
7443         (string-append "-Dxwayland_path="
7444                        (assoc-ref %build-inputs "xorg-server-xwayland")
7445                        "/bin/Xwayland")
7446         ;; the remaining flags are needed for the bundled cogl
7447         (string-append "-Dopengl_libname="
7448                        (assoc-ref %build-inputs "mesa")
7449                        "/lib/libGL.so")
7450         (string-append "-Dgles2_libname="
7451                        (assoc-ref %build-inputs "mesa")
7452                        "/lib/libGLESv2.so")
7453         "-Degl_device=true"              ;false by default
7454         "-Dwayland_eglstream=true")      ;false by default
7455        #:test-options
7456        (list "--verbose")
7457        #:phases
7458        (modify-phases %standard-phases
7459          (add-after 'unpack 'patch-dlopen-calls
7460            (lambda* (#:key inputs #:allow-other-keys)
7461              (substitute* "src/wayland/meta-wayland-egl-stream.c"
7462                (("libnvidia-egl-wayland.so.1")
7463                 (string-append (assoc-ref inputs "egl-wayland")
7464                                "/lib/libnvidia-egl-wayland.so.1")))))
7465          (add-before 'configure 'set-udev-dir
7466            (lambda* (#:key inputs outputs #:allow-other-keys)
7467              (setenv "PKG_CONFIG_UDEV_UDEVDIR"
7468                      (string-append (assoc-ref outputs "out")
7469                                     "/lib/udev"))))
7470          (add-after 'unpack 'disable-problematic-tests
7471            (lambda _
7472              ;; The native-headless test hangs due to attempting to use audio,
7473              ;; unavailable in the container.
7474              ;; Note: the following sed expression deletes the whole test(...)
7475              ;; expression paragraph.  For an explanation, see: info '(sed)
7476              ;; Multiline techniques'.
7477              (invoke "sed" "/./{H;$!d} ; x ; s/^.*native-headless.*$//"
7478                      "-i" "src/tests/meson.build")))
7479          (replace 'check
7480            (lambda* (#:key tests? test-options parallel-tests?
7481                      #:allow-other-keys)
7482              (when tests?
7483                ;; Setup (see the 'test-mutter' CI target at
7484                ;; https://gitlab.gnome.org/GNOME/mutter/-/raw/main/.gitlab-ci.yml).
7485                (setenv "XDG_RUNTIME_DIR" "runtime-dir")
7486                (setenv "GSETTINGS_SCHEMA_DIR" "data")
7487                (setenv "MUTTER_DEBUG_DUMMY_MODE_SPECS" "800x600@10.0")
7488                (setenv "PIPEWIRE_DEBUG" "2")
7489                (setenv "PIPEWIRE_LOG" "meson-logs/pipewire.log")
7490                (setenv "XVFB_SERVER_ARGS" "+iglx -noreset")
7491                (setenv "G_SLICE" "always-malloc")
7492                (setenv "MALLOC_CHECK" "3")
7493                (setenv "NO_AT_BRIDGE" "1")
7494                ;; This is needed, otherwise the "mutter:core+mutter/unit /
7495                ;; anonymous-file" test would fail (see:
7496                ;; https://gitlab.gnome.org/GNOME/mutter/-/issues/2017).
7497                (setenv "CI_JOB_ID" "1")
7498
7499                (invoke "glib-compile-schemas" (getenv "GSETTINGS_SCHEMA_DIR"))
7500                (mkdir-p (getenv "XDG_RUNTIME_DIR"))
7501                (chmod (getenv "XDG_RUNTIME_DIR") #o755)
7502                (invoke "pipewire" "--version") ;check for pipewire
7503                (system "pipewire &")    ;always returns 0 due to forking
7504
7505                (setenv "MESON_TESTTHREADS"
7506                        (if parallel-tests?
7507                            (number->string (parallel-job-count))
7508                            "1"))
7509                (match (primitive-fork)
7510                  (0                     ;child process
7511                   (set-child-subreaper!)
7512                   ;; Use tini so that signals are properly handled and
7513                   ;; doubly-forked processes get reaped; otherwise,
7514                   ;; python-dbusmock would waste time polling for the dbus
7515                   ;; processes it spawns to be reaped, in vain.
7516                   (apply execlp "tini" "--"
7517                          "dbus-run-session" "--"
7518                          "xvfb-run" "-a" "-s" (getenv "XVFB_SERVER_ARGS")
7519                          "meson" "test" "-t" "0" "--print-errorlogs"
7520                          test-options))
7521                  (pid
7522                   (match (waitpid pid)
7523                     ((_ . status)
7524                      (unless (zero? status)
7525                        (error "`meson test' exited with status"
7526                               status))))))))))))
7527     (native-inputs
7528      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7529        ("glib:bin" ,glib "bin")         ; for glib-compile-schemas, etc.
7530        ("gobject-introspection" ,gobject-introspection)
7531        ("intltool" ,intltool)
7532        ("pkg-config" ,pkg-config)
7533        ("xvfb-run" ,xvfb-run)
7534        ;; For git build
7535        ("autoconf" ,autoconf)
7536        ("automake" ,automake)
7537        ("libtool" ,libtool)
7538        ;; For tests.
7539        ;; Warnings are configured to be fatal during the tests; add an icon
7540        ;; theme to please libxcursor.
7541        ("adwaita-icon-theme" ,adwaita-icon-theme)
7542        ("libxcursor" ,libxcursor)       ;for XCURSOR_PATH
7543        ("pipewire" ,pipewire-0.3)
7544        ("python-dbus" ,python-dbus)
7545        ("python-dbusmock" ,python-dbusmock)
7546        ("tini" ,tini)))                 ;acting as init (zombie reaper)
7547     (propagated-inputs
7548      `( ;; libmutter.pc refers to these:
7549        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7550        ("gtk+" ,gtk+)
7551        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7552        ("atk" ,atk)
7553        ("cairo" ,cairo)
7554        ("gdk-pixbuf" ,gdk-pixbuf)
7555        ("glib" ,glib)
7556        ("json-glib" ,json-glib)
7557        ("libinput" ,libinput)
7558        ("libx11" ,libx11)
7559        ("libxcomposite" ,libxcomposite)
7560        ("libxcvt" ,libxcvt)
7561        ("libxdamage" ,libxdamage)
7562        ("libxext" ,libxext)
7563        ("libxfixes" ,libxfixes)
7564        ("libxkbcommon" ,libxkbcommon)
7565        ("libxml2" ,libxml2)
7566        ("libxrandr" ,libxrandr)
7567        ("mesa" ,mesa)
7568        ("pango" ,pango)
7569        ("udev" ,eudev)
7570        ("xinput" ,xinput)))
7571     (inputs
7572      `(("egl-wayland" ,egl-wayland)     ;for wayland-eglstream-protocols
7573        ("elogind" ,elogind)
7574        ("gnome-desktop" ,gnome-desktop)
7575        ("gnome-settings-daemon" ,gnome-settings-daemon)
7576        ("graphene" ,graphene)
7577        ("libcanberra-gtk" ,libcanberra)
7578        ("libgudev" ,libgudev)
7579        ("libice" ,libice)
7580        ("libsm" ,libsm)
7581        ("libwacom" ,libwacom)
7582        ("libxkbfile" ,libxkbfile)
7583        ("libxrandr" ,libxrandr)
7584        ("libxtst" ,libxtst)
7585        ("pipewire" ,pipewire-0.3)
7586        ("startup-notification" ,startup-notification)
7587        ("sysprof" ,sysprof)
7588        ("upower-glib" ,upower)
7589        ("xkeyboard-config" ,xkeyboard-config)
7590        ("xorg-server-xwayland" ,xorg-server-xwayland)
7591        ("zenity" ,zenity)))
7592     (synopsis "Window and compositing manager")
7593     (home-page "https://www.gnome.org")
7594     (description
7595      "Mutter is a window and compositing manager that displays and manages your
7596 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
7597 Clutter toolkit with solid window-management logic inherited from the Metacity
7598 window manager.")
7599     (license license:gpl2+)))
7600
7601 (define-public gnome-online-accounts
7602   (package
7603     (name "gnome-online-accounts")
7604     (version "3.43.1")
7605     (source (origin
7606               (method url-fetch)
7607               (uri (string-append "mirror://gnome/sources/" name "/"
7608                                   (version-major+minor version) "/"
7609                                   name "-" version ".tar.xz"))
7610               (sha256
7611                (base32
7612                 "1s5pmy3hx6hhnyi40r7b773py9kn2qbkxnpxv6149z9fl5ikdjrv"))))
7613     (outputs '("out" "lib"))
7614     (build-system glib-or-gtk-build-system)
7615     (arguments
7616      `(#:configure-flags
7617        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
7618        #:phases
7619        (modify-phases %standard-phases
7620          (add-before 'configure 'patch-libgoa-output
7621            (lambda* (#:key outputs #:allow-other-keys)
7622              (let ((lib (assoc-ref outputs "lib")))
7623                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
7624                  (("@prefix@") lib)
7625                  (("@exec_prefix@") lib)
7626                  (("@libdir@") (string-append lib "/lib"))
7627                  (("@includedir@") (string-append lib "/include"))
7628                  (("@datadir@") (string-append lib "/share")))
7629                ;; Make sure gobject-introspection knows about the output
7630                ;; too (see <https://bugs.gnu.org/36535>).
7631                (setenv "outputs" "out lib")))))))
7632     (native-inputs
7633      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7634        ("gobject-introspection" ,gobject-introspection)
7635        ("intltool" ,intltool)
7636        ("pkg-config" ,pkg-config)
7637        ("vala" ,vala)
7638        ("xsltproc" ,libxslt)))
7639     (propagated-inputs
7640      (list glib ; required by goa-1.0.pc
7641            gtk+))         ; required by goa-backend-1.0.pc
7642     (inputs
7643      `(("docbook-xsl" ,docbook-xsl)
7644        ("json-glib" ,json-glib)
7645        ("libsecret" ,libsecret)
7646        ("rest" ,rest)
7647        ;; WebKitGtk propagates libsoup 3, which causes the build to fail; so
7648        ;; use a special variant.
7649        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7650     (synopsis "Single sign-on framework for GNOME")
7651     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7652     (description
7653      "GNOME Online Accounts provides interfaces so that applications and
7654 libraries in GNOME can access the user's online accounts.  It has providers
7655 for Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare,
7656 Microsoft Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7657     (license license:lgpl2.0+)))
7658
7659 (define-public evolution-data-server
7660   (package
7661     (name "evolution-data-server")
7662     (version "3.42.1")
7663     (source
7664      (origin
7665        (method url-fetch)
7666        (uri (string-append "mirror://gnome/sources/" name "/"
7667                            (version-major+minor version) "/"
7668                            name "-" version ".tar.xz"))
7669        (sha256
7670         (base32 "0a7my8spwcaf2i2fz8ndddi1drv6l9gxq0qblmnkxzyhfwm7zrp6"))))
7671     (build-system cmake-build-system)
7672     (arguments
7673      '(#:configure-flags
7674        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
7675               (runpaths (map (lambda (s)
7676                                (string-append lib "/evolution-data-server/" s))
7677                              '("addressbook-backends" "calendar-backends"
7678                                "camel-providers" "credential-modules"
7679                                "registry-modules"))))
7680          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
7681                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
7682                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
7683                "-DENABLE_VALA_BINDINGS=ON"
7684                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7685                               (string-append lib "/evolution-data-server;")
7686                               (string-join runpaths ";"))
7687                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
7688        #:phases
7689        (modify-phases %standard-phases
7690          (add-after 'unpack 'disable-failing-tests
7691            (lambda _
7692              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7693              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7694              (delete-file-recursively "tests/book-migration")
7695              (substitute* "tests/CMakeLists.txt"
7696                (("add_subdirectory\\(book-migration\\)") ""))))
7697          (add-after 'unpack 'patch-paths
7698           (lambda _
7699             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7700                            "tests/libedata-book/data-test-utils.c"
7701                            "tests/libedata-book/test-book-cache-utils.c"
7702                            "tests/libedata-cal/test-cal-cache-utils.c")
7703               (("/bin/rm") (which "rm")))))
7704          (add-before 'configure 'dont-override-rpath
7705            (lambda _
7706              (substitute* "CMakeLists.txt"
7707                ;; CMakeLists.txt hard-codes runpath to just the libdir.
7708                ;; Remove it so the configure flag is respected.
7709                (("SET\\(CMAKE_INSTALL_RPATH .*") "")))))))
7710     (native-inputs
7711      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7712        ("gobject-introspection" ,gobject-introspection)
7713        ("gperf" ,gperf)
7714        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7715        ("intltool" ,intltool)
7716        ("pkg-config" ,pkg-config)
7717        ("vala" ,vala)
7718        ("python" ,python-wrapper)))
7719     (propagated-inputs
7720      ;; These are all in the Requires field of .pc files.
7721      `(("gtk+" ,gtk+)
7722        ("libical" ,libical)
7723        ("libsecret" ,libsecret)
7724        ("libsoup" ,libsoup-minimal-2)
7725        ("nss" ,nss)
7726        ("sqlite" ,sqlite)))
7727     (inputs
7728      `(("bdb" ,bdb)
7729        ("gcr" ,gcr)
7730        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7731        ("json-glib" ,json-glib)
7732        ("libcanberra" ,libcanberra)
7733        ("libgweather" ,libgweather)
7734        ("mit-krb5" ,mit-krb5)
7735        ("openldap" ,openldap)
7736        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7737     (synopsis "Store address books and calendars")
7738     (home-page "https://wiki.gnome.org/Apps/Evolution")
7739     (description
7740      "This package provides a unified backend for programs that work with
7741 contacts, tasks, and calendar information.  It was originally developed for
7742 Evolution (hence the name), but is now used by other packages as well.")
7743     (license license:lgpl2.0)))
7744
7745 (define-public caribou
7746   (package
7747     (name "caribou")
7748     (version "0.4.21")
7749     (source (origin
7750               (method url-fetch)
7751               (uri (string-append "mirror://gnome/sources/" name "/"
7752                                   (version-major+minor version) "/"
7753                                   name "-" version ".tar.xz"))
7754               (sha256
7755                (base32
7756                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
7757     (build-system glib-or-gtk-build-system)
7758     (arguments
7759      '(#:phases
7760        (modify-phases %standard-phases
7761          (add-before
7762           'build 'pre-build
7763           (lambda* (#:key outputs #:allow-other-keys)
7764             (let ((out (assoc-ref outputs "out")))
7765               ;; Use absolute shared library path in Caribou-1.0.typelib.
7766               (substitute* "libcaribou/Makefile"
7767                 (("--shared-library=libcaribou.so")
7768                  (string-append "--shared-library="
7769                                 out "/lib/libcaribou.so")))
7770               #t)))
7771          (add-after 'install 'wrap-programs
7772           (lambda* (#:key outputs #:allow-other-keys)
7773             (let* ((out (assoc-ref outputs "out"))
7774                    (python-path (getenv "GUIX_PYTHONPATH"))
7775                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7776               (for-each
7777                (lambda (prog)
7778                  (wrap-program prog
7779                    `("GUIX_PYTHONPATH"      ":" prefix (,python-path))
7780                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7781                (list (string-append out "/bin/caribou-preferences")
7782                      (string-append out "/libexec/antler-keyboard"))))
7783             #t)))))
7784     (native-inputs
7785      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7786        ("gobject-introspection" ,gobject-introspection)
7787        ("intltool" ,intltool)
7788        ("pkg-config" ,pkg-config)
7789        ("python" ,python)
7790        ("vala" ,vala)
7791        ("xsltproc" ,libxslt)))
7792     (propagated-inputs
7793      ;; caribou-1.0.pc refers to all these.
7794      (list libgee libxklavier libxtst gtk+))
7795     (inputs
7796      `(("clutter" ,clutter)
7797        ("dconf" ,dconf)
7798        ("gtk+-2" ,gtk+-2)
7799        ("python-pygobject" ,python-pygobject)))
7800     (synopsis "Text entry and UI navigation application")
7801     (home-page "https://wiki.gnome.org/Projects/Caribou")
7802     (description
7803      "Caribou is an input assistive technology intended for switch and pointer
7804 users.")
7805     (license license:lgpl2.1)))
7806
7807 (define-public network-manager
7808   (package
7809     (name "network-manager")
7810     (version "1.32.12")
7811     (source (origin
7812               (method url-fetch)
7813               (uri (string-append "mirror://gnome/sources/NetworkManager/"
7814                                   (version-major+minor version) "/"
7815                                   "NetworkManager-" version ".tar.xz"))
7816               (patches (search-patches "network-manager-plugin-path.patch"
7817                                        "network-manager-meson.patch"))
7818               (sha256
7819                (base32
7820                 "0jzmz0zw64dgvdn2g7pppr7bkywpbxcbdb1viv6p7zh2lnh3dax8"))))
7821     (build-system meson-build-system)
7822     (outputs '("out"
7823                "doc"))                  ; 8 MiB of gtk-doc HTML
7824     (arguments
7825      `(#:configure-flags
7826        (let ((out      (assoc-ref %outputs "out"))
7827              (dhclient (search-input-file %build-inputs "/sbin/dhclient")))
7828          (list
7829           ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
7830           ;; component.
7831           (string-append "-Dc_link_args=-Wl,-rpath="
7832                          out "/lib:"
7833                          out "/lib/NetworkManager/" ,version)
7834           "-Dsystemd_journal=false"
7835           "-Dsession_tracking=elogind"
7836           "-Dsuspend_resume=elogind"
7837           "-Dsystemdsystemunitdir=no"
7838           "-Dsession_tracking_consolekit=false"
7839           "-Ddhcpcd=no"
7840           "-Ddhcpcanon=no"
7841           "-Dcrypto=gnutls"
7842           "-Diwd=true"
7843           "-Dlibaudit=yes"
7844           "-Dqt=false"
7845           "-Ddocs=true"
7846           "--sysconfdir=/etc"
7847           "--localstatedir=/var"
7848           (string-append "-Dudev_dir="
7849                          out "/lib/udev")
7850           (string-append "-Ddbus_conf_dir="
7851                          out "/etc/dbus-1/system.d")
7852
7853           (string-append "-Ddhclient=" dhclient)))
7854        #:phases
7855        (modify-phases %standard-phases
7856          (add-before 'configure 'pre-configure
7857            (lambda _
7858              ;; These tests try to test aspects of network-manager's
7859              ;; functionality within restricted containers, but they don't
7860              ;; cope with being already in the Guix build jail as that jail
7861              ;; lacks some features that they would like to proxy over (like
7862              ;; a /sys mount).
7863              (substitute* "src/core/tests/meson.build"
7864                ((".*test-l3cfg.*") ""))
7865              (substitute* "src/core/devices/tests/meson.build"
7866                ((".*test-acd.*") "")
7867                ((".*test-lldp.*") ""))
7868              (substitute* "src/core/platform/tests/meson.build"
7869                ((".*test-address-linux.*") "")
7870                ((".*test-cleanup-linux.*") "")
7871                ((".*test-link-linux.*") "")
7872                ((".*test-lldp.*") "")
7873                ((".*test-route-linux.*") "")
7874                ((".*test-tc-linux.*") ""))
7875              ;; FIXME: The jansson check fails (see:
7876              ;; https://gitlab.freedesktop.org/NetworkManager/NetworkManager/-/issues/837
7877              (substitute* "src/libnm-core-impl/tests/test-setting.c"
7878                (("g_assert\\(nm_json_vt\\(\\)\\);")
7879                 "return TRUE;"))))
7880          (add-after 'unpack 'patch-docbook-xml
7881            (lambda* (#:key inputs #:allow-other-keys)
7882              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
7883                                           "/xml/dtd/docbook")))
7884                (substitute* (find-files "." ".*\\.(xsl|xml)")
7885                  (("http://.*/docbookx\\.dtd")
7886                   (string-append xmldoc "/docbookx.dtd"))))))
7887          (add-before 'check 'pre-check
7888            (lambda _
7889              ;; For the missing /etc/machine-id.
7890              (setenv "DBUS_FATAL_WARNINGS" "0")))
7891          (add-before 'install 'no-polkit-magic
7892            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
7893            (lambda _
7894              (setenv "PKEXEC_UID" "something")))
7895          (add-after 'install 'move-doc
7896            (lambda* (#:key outputs #:allow-other-keys)
7897              (let ((out (assoc-ref outputs "out"))
7898                    (doc (assoc-ref outputs "doc")))
7899                (mkdir-p (string-append doc "/share"))
7900                (for-each (lambda (directory)
7901                            (copy-recursively (string-append out directory)
7902                                              (string-append doc directory))
7903                            (delete-file-recursively
7904                             (string-append out directory)))
7905                          '("/share/doc" "/share/gtk-doc"))))))))
7906     (propagated-inputs
7907      (list glib))
7908     (native-inputs
7909      `(("glib:bin" ,glib "bin")         ; for gdbus-codegen
7910        ("gtk-doc" ,gtk-doc/stable)
7911        ("gobject-introspection" ,gobject-introspection)
7912        ("docbook-xml" ,docbook-xml)
7913        ("docbook-xsl" ,docbook-xsl)
7914        ("intltool" ,intltool)
7915        ("libxslt" ,libxslt)
7916        ("libxml2" ,libxml2)
7917        ("pkg-config" ,pkg-config)
7918        ("vala" ,vala)
7919        ;; For testing.
7920        ("python" ,python-wrapper)
7921        ("python-dbus" ,python-dbus)
7922        ("python-pygobject" ,python-pygobject)))
7923     (inputs
7924      `(("curl" ,curl)
7925        ("cyrus-sasl" ,cyrus-sasl)
7926        ("dbus-glib" ,dbus-glib)
7927        ("dnsmasq" ,dnsmasq)
7928        ("eudev" ,eudev)
7929        ("gnutls" ,gnutls)
7930        ("iptables" ,iptables)
7931        ("isc-dhcp" ,isc-dhcp)
7932        ("iwd" ,iwd)                     ; wpa_supplicant alternative
7933        ("jansson" ,jansson)
7934        ("libaudit" ,audit)
7935        ("libgcrypt" ,libgcrypt)
7936        ("libgudev" ,libgudev)
7937        ("libndp" ,libndp)
7938        ("libnl" ,libnl)
7939        ("libselinux" ,libselinux)
7940        ("libsoup" ,libsoup)
7941        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
7942        ("modem-manager" ,modem-manager)
7943        ("newt" ,newt)                   ;for the 'nmtui' console interface
7944        ("openresolv" ,openresolv)       ; alternative resolv.conf manager
7945        ("polkit" ,polkit)
7946        ("ppp" ,ppp)
7947        ("readline" ,readline)
7948        ("util-linux" ,util-linux)
7949        ("elogind" ,elogind)))
7950     (synopsis "Network connection manager")
7951     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7952     (description
7953      "NetworkManager is a system network service that manages your network
7954 devices and connections, attempting to keep active network connectivity when
7955 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
7956 devices, and provides VPN integration with a variety of different VPN
7957 services.")
7958     ;; “This NetworkManager project consists of the daemon, client tools, and
7959     ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
7960     ;; GPL-2.0+.”
7961     (license (list license:gpl2+
7962                    license:lgpl2.1+))
7963     (properties '((upstream-name . "NetworkManager")))))
7964
7965 (define-public network-manager-openvpn
7966   (package
7967     (name "network-manager-openvpn")
7968     (version "1.8.12")
7969     (source (origin
7970               (method url-fetch)
7971               (uri (string-append
7972                     "mirror://gnome/sources/NetworkManager-openvpn/"
7973                     (version-major+minor version)
7974                     "/NetworkManager-openvpn-" version ".tar.xz"))
7975               (sha256
7976                (base32
7977                 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
7978     (build-system gnu-build-system)
7979     (arguments
7980      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7981        #:phases
7982        (modify-phases %standard-phases
7983          (add-after 'configure 'patch-path
7984            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7985              (let* ((ovpn (search-input-file inputs "/sbin/openvpn"))
7986                     (modprobe (search-input-file inputs "/bin/modprobe"))
7987                     (pretty-ovpn (string-append "\"" ovpn "\"")))
7988                (for-each
7989                 (lambda (file)
7990                   (substitute* file
7991                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
7992                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
7993                     (("\"/sbin/openvpn\"") pretty-ovpn)
7994                     (("/sbin/modprobe") modprobe)))
7995                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
7996              #t)))))
7997     (native-inputs
7998      (list pkg-config intltool))
7999     (inputs
8000      (list gtk+
8001            kmod
8002            openvpn
8003            network-manager
8004            libnma
8005            libsecret))
8006     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8007     (synopsis "OpenVPN plug-in for NetworkManager")
8008     (description
8009      "This extension of NetworkManager allows it to take care of connections
8010 to virtual private networks (VPNs) via OpenVPN.")
8011     (license license:gpl2+)
8012     (properties `((upstream-name . "NetworkManager-openvpn")))))
8013
8014 (define-public network-manager-vpnc
8015   (package
8016     (name "network-manager-vpnc")
8017     (version "1.2.6")
8018     (source (origin
8019               (method url-fetch)
8020               (uri (string-append
8021                     "mirror://gnome/sources/NetworkManager-vpnc/"
8022                     (version-major+minor version)
8023                     "/NetworkManager-vpnc-" version ".tar.xz"))
8024               (sha256
8025                (base32
8026                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
8027     (build-system gnu-build-system)
8028     (arguments
8029      `(#:configure-flags '("--enable-absolute-paths"
8030                            "--localstatedir=/var"
8031                            ;; libnm-glib has been removed from network-manager
8032                            ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
8033                            "--with-libnm-glib=no")
8034        #:phases
8035        (modify-phases %standard-phases
8036          (add-after 'configure 'patch-path
8037            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8038              (let* ((vpnc (search-input-file inputs "/sbin/vpnc"))
8039                     (modprobe (search-input-file inputs "/bin/modprobe"))
8040                     (pretty-ovpn (string-append "\"" vpnc "\"")))
8041                (substitute* "src/nm-vpnc-service.c"
8042                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
8043                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
8044                     (("\"/sbin/vpnc\"") pretty-ovpn)
8045                     (("/sbin/modprobe") modprobe)))
8046              #t)))))
8047     (native-inputs
8048      (list pkg-config intltool))
8049     (inputs
8050      (list gtk+
8051            kmod
8052            vpnc
8053            network-manager
8054            libnma
8055            libsecret))
8056     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8057     (synopsis "VPNC plug-in for NetworkManager")
8058     (description
8059      "Support for configuring virtual private networks based on VPNC.
8060 Compatible with Cisco VPN concentrators configured to use IPsec.")
8061     (license license:gpl2+)
8062     (properties `((upstream-name . "NetworkManager-vpnc")))))
8063
8064 (define-public network-manager-openconnect
8065   (package
8066     (name "network-manager-openconnect")
8067     (version "1.2.6")
8068     (source (origin
8069               (method url-fetch)
8070               (uri (string-append
8071                     "mirror://gnome/sources/NetworkManager-openconnect/"
8072                     (version-major+minor version)
8073                     "/NetworkManager-openconnect-" version ".tar.xz"))
8074               (sha256
8075                (base32
8076                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
8077     (build-system gnu-build-system)
8078     (arguments
8079      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
8080        #:phases
8081        (modify-phases %standard-phases
8082          (add-after 'configure 'patch-path
8083            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8084              (let* ((openconnect (search-input-file inputs
8085                                                     "/sbin/openconnect"))
8086                     (modprobe (search-input-file inputs "/bin/modprobe"))
8087                     (pretty-ovpn (string-append "\"" openconnect "\"")))
8088                (substitute* "src/nm-openconnect-service.c"
8089                  (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
8090                  (("/sbin/modprobe") modprobe)))
8091              #t)))))
8092     (native-inputs
8093      (list intltool libnma pkg-config))
8094     (inputs
8095      (list gcr
8096            gtk+
8097            kmod
8098            libsecret
8099            libxml2
8100            lz4
8101            network-manager
8102            openconnect))
8103     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8104     (synopsis "OpenConnect plug-in for NetworkManager")
8105     (description
8106      "This extension of NetworkManager allows it to take care of connections
8107 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
8108 Cisco's AnyConnect SSL VPN.")
8109     (license license:gpl2+)
8110     (properties `((upstream-name . "NetworkManager-openconnect")
8111
8112                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
8113                   ;; file refers to account "nm-openconnect".  Specify it here
8114                   ;; so that 'network-manager-service-type' creates it.
8115                   (user-accounts . ("nm-openconnect"))))))
8116
8117 (define-public mobile-broadband-provider-info
8118   (package
8119     (name "mobile-broadband-provider-info")
8120     (version "20190116")
8121     (source (origin
8122               (method url-fetch)
8123               (uri (string-append
8124                     "mirror://gnome/sources/"
8125                     "mobile-broadband-provider-info/" version "/"
8126                     "mobile-broadband-provider-info-" version ".tar.xz"))
8127               (sha256
8128                (base32
8129                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
8130     (build-system gnu-build-system)
8131     (arguments
8132      `(#:tests? #f))                    ; no tests
8133     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8134     (synopsis "Database of broadband connection configuration")
8135     (description "Database of broadband connection configuration.")
8136     (license license:public-domain)))
8137
8138 (define-public network-manager-applet
8139   (package
8140     (name "network-manager-applet")
8141     (version "1.22.0")
8142     (source (origin
8143               (method url-fetch)
8144               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
8145                                   (version-major+minor version) "/"
8146                                   "network-manager-applet-" version ".tar.xz"))
8147               (sha256
8148                (base32
8149                 "1gj6lqqi613j2m49v9i82lqg1rv7kwwc8z4nxjcwpaa0ins803f7"))))
8150     (build-system meson-build-system)
8151     (arguments
8152      `(#:meson ,meson-0.59
8153        #:glib-or-gtk? #t
8154        #:configure-flags
8155        '("-Dappindicator=yes")))
8156     (native-inputs
8157      `(("intltool" ,intltool)
8158        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
8159        ("gobject-introspection" ,gobject-introspection)
8160        ("gtk-doc" ,gtk-doc/stable)
8161        ("pkg-config" ,pkg-config)))
8162     (propagated-inputs
8163      ;; libnm-gtk.pc refers to all these.
8164      (list dbus-glib gtk+ network-manager
8165            ;; nm-applet need by org.gnome.nm-applet.gschema.xml
8166            libnma))
8167     (inputs
8168      (list gcr
8169            libappindicator
8170            libgudev
8171            libnotify
8172            libsecret
8173            libselinux
8174            jansson ; for team support
8175            modem-manager))
8176     (synopsis "Applet for managing network connections")
8177     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8178     (description
8179      "This package contains a systray applet for NetworkManager.  It displays
8180 the available networks and allows users to easily switch between them.")
8181     (license license:gpl2+)))
8182
8183 (define-public libxml++
8184   (package
8185     (name "libxml++")
8186     (version "3.2.0")
8187     (source
8188      (origin
8189        (method git-fetch)
8190        (uri (git-reference
8191              (url "https://github.com/libxmlplusplus/libxmlplusplus")
8192              (commit version)))
8193        (file-name (git-file-name name version))
8194        (sha256
8195         (base32 "0wjz591rjlgbah7dcq8i0yn0zw9d62b7g6r0pppx81ic0cx8n8ga"))))
8196     (build-system gnu-build-system)
8197     (arguments
8198      `(#:phases
8199        (modify-phases %standard-phases
8200          (add-after 'unpack 'fix-documentation
8201            (lambda* (#:key inputs #:allow-other-keys)
8202              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
8203                                           "/xml/dtd/docbook"))
8204                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
8205                                           "/xml/xsl/docbook-xsl-"
8206                                           ,(package-version docbook-xsl))))
8207                (substitute* '("examples/dom_xpath/example.xml"
8208                               "docs/manual/libxml++_without_code.xml")
8209                  (("http://.*/docbookx\\.dtd")
8210                   (string-append xmldoc "/docbookx.dtd")))
8211                (setenv "SGML_CATALOG_FILES"
8212                        (string-append xmldoc "/catalog.xml"))
8213                (substitute* "docs/manual/docbook-customisation.xsl"
8214                  (("http://docbook.sourceforge.net/release/xsl/current/html/chunk.xsl")
8215                   (string-append xsldoc "/html/chunk.xsl")))))))))
8216     (propagated-inputs
8217      ;; libxml++-3.0.pc refers to all these.
8218      (list glibmm-2.64 libxml2))
8219     (native-inputs
8220      (list autoconf
8221            automake
8222            doxygen
8223            docbook-xml
8224            docbook-xsl
8225            graphviz ; for dot
8226            libtool
8227            libxslt
8228            mm-common
8229            perl
8230            pkg-config))
8231     (home-page "https://github.com/libxmlplusplus/libxmlplusplus/")
8232     (synopsis "C++ bindings to the libxml2 XML parser library")
8233     (description
8234      "This package provides a C++ interface to the libxml2 XML parser
8235 library.")
8236     (license license:lgpl2.1+)))
8237
8238 ;; This is the last release providing the 2.6 API, hence the name.
8239 ;; This is needed by tascam-gtk
8240 (define-public libxml++-2
8241   (package
8242     (inherit libxml++)
8243     (name "libxml++")
8244     (version "2.40.1")
8245     (source
8246      (origin
8247        (method git-fetch)
8248        (uri (git-reference
8249              (url "https://github.com/libxmlplusplus/libxmlplusplus")
8250              (commit version)))
8251        (file-name (git-file-name name version))
8252        (sha256
8253         (base32 "0gbfi4l88w828gmyc9br11l003ylyi4vigp5d1kfgsn0k4cig3y9"))))))
8254
8255 (define-public gdm
8256   (package
8257     (name "gdm")
8258     (version "40.1")
8259     (source (origin
8260               (method url-fetch)
8261               (uri (string-append "mirror://gnome/sources/" name "/"
8262                                   (version-major version) "/"
8263                                   name "-" version ".tar.xz"))
8264               (sha256
8265                (base32
8266                 "1zbks7bwbys1pn7sk0aq0dbn09adx51amb441z4z4j28cvma3f5b"))
8267               (patches
8268                (search-patches
8269                 "gdm-default-session.patch"
8270                 "gdm-elogind-support.patch"
8271                 "gdm-remove-hardcoded-xwayland-path.patch"
8272                 "gdm-wayland-session-wrapper-from-env.patch"
8273                 "gdm-pass-gdk-pixbuf-loader-env.patch"))))
8274     (build-system meson-build-system)
8275     (arguments
8276      `(#:glib-or-gtk? #t
8277        #:configure-flags
8278        ,#~(list
8279            "-Dplymouth=disabled"
8280            "-Dsystemd-journal=false"
8281
8282            ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
8283            ;; instead of having to replace it (i.e., stopping the mingetty
8284            ;; service for TTY 1 before starting GDM).
8285            "-Dinitial-vt=7"
8286
8287            ;; Use elogind instead of systemd.
8288            "-Dlogind-provider=elogind"
8289            "-Dsystemdsystemunitdir=no"
8290            "-Dsystemduserunitdir=no"
8291
8292            ;; Use '/etc/environment' for locale settings instead of the
8293            ;; systemd-specific '/etc/locale.conf'.
8294            "-Dlang-file=/etc/environment"
8295
8296            (string-append "-Dudev-dir=" #$output "/lib/udev")
8297
8298            "--localstatedir=/var"
8299            (string-append "-Ddefault-path="
8300                           (string-join '("/run/setuid-programs"
8301                                          "/run/current-system/profile/bin"
8302                                          "/run/current-system/profile/sbin")
8303                                        ":"))
8304            ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
8305            ;; XDG_DATA_DIRS so that it finds its schemas.
8306            "--sbindir" (string-append #$output "/bin"))
8307        #:phases
8308        (modify-phases %standard-phases
8309          (add-before
8310              'configure 'pre-configure
8311            (lambda* (#:key inputs outputs #:allow-other-keys)
8312              ;; We don't have <systemd/sd-daemon.h>.
8313              (substitute* '("common/gdm-log.c"
8314                             "daemon/gdm-server.c"
8315                             "daemon/gdm-session-worker.c"
8316                             "daemon/gdm-session-worker-job.c")
8317                (("#include <systemd/sd-daemon\\.h>") ""))
8318              ;; Use elogind for sd-login.
8319              (substitute* '("common/gdm-common.c"
8320                             "daemon/gdm-local-display-factory.c"
8321                             "daemon/gdm-manager.c"
8322                             "libgdm/gdm-user-switching.c")
8323                (("#include <systemd/sd-login\\.h>")
8324                 "#include <elogind/sd-login.h>"))
8325              ;; Look for system-installed sessions in
8326              ;; /run/current-system/profile/share.
8327              (substitute* '("libgdm/gdm-sessions.c"
8328                             "daemon/gdm-session.c"
8329                             "daemon/gdm-display.c"
8330                             "daemon/gdm-launch-environment.c")
8331                (("DATADIR \"/x")
8332                 "\"/run/current-system/profile/share/x")
8333                (("DATADIR \"/wayland")
8334                 "\"/run/current-system/profile/share/wayland")
8335                (("DATADIR \"/gnome")
8336                 "\"/run/current-system/profile/share/gnome"))
8337              (let ((propagate '("GDM_CUSTOM_CONF"
8338                                 "GDM_DBUS_DAEMON"
8339                                 "GDM_X_SERVER"
8340                                 "GDM_X_SESSION"
8341                                 ;; XXX: Remove this once GNOME Shell is
8342                                 ;; a dependency of GDM.
8343                                 "XDG_DATA_DIRS")))
8344                (substitute* "daemon/gdm-session.c"
8345                  (("set_up_session_environment \\(self\\);")
8346                   (apply string-append
8347                          "set_up_session_environment (self);\n"
8348                          (map (lambda (name)
8349                                 (string-append
8350                                  "gdm_session_set_environment_variable "
8351                                  "(self, \"" name "\","
8352                                  "g_getenv (\"" name "\"));\n"))
8353                               propagate)))))
8354              ;; Find the configuration file using an environment variable.
8355              (substitute* '("common/gdm-settings.c")
8356                (("GDM_CUSTOM_CONF")
8357                 (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8358                                " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8359                                " : GDM_CUSTOM_CONF)")))
8360              ;; Use service-supplied path to X.
8361              (substitute* '("daemon/gdm-server.c")
8362                (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8363                 "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
8364              (substitute* '("daemon/gdm-wayland-session.c"
8365                             "daemon/gdm-x-session.c")
8366                (("\"dbus-daemon\"")
8367                 "g_getenv (\"GDM_DBUS_DAEMON\")")
8368                (("X_SERVER")
8369                 "g_getenv (\"GDM_X_SERVER\")")
8370                (("GDMCONFDIR \"/Xsession\"")
8371                 "g_getenv (\"GDM_X_SESSION\")"))
8372              ;; Use an absolute path for GNOME Session.
8373              (substitute* "daemon/gdm-launch-environment.c"
8374                (("\"gnome-session\"")
8375                 (string-append "\"" (assoc-ref inputs "gnome-session")
8376                                "/bin/gnome-session\"")))
8377              ;; Do not automatically select the placeholder session.
8378              (substitute* "daemon/gdm-session.c"
8379                (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8380                 (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8381                                "(g_strcmp0(search_dirs[i], \""
8382                                (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
8383                                "\") == 0 && "
8384                                "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8385                (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
8386                 "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))))
8387          (add-before 'install 'install-logo
8388            (lambda* (#:key inputs outputs #:allow-other-keys)
8389              (let* ((out (assoc-ref outputs "out"))
8390                     (guix-icons (assoc-ref inputs "guix-icons"))
8391                     (icon
8392                      (string-append guix-icons "/share/icons/hicolor/\
8393 scalable/apps/guix-white-icon.svg"))
8394                     (schema
8395                      (string-append out "/share/glib-2.0/schemas/\
8396 org.gnome.login-screen.gschema.override")))
8397                (mkdir-p (dirname schema))
8398                (with-output-to-file schema
8399                  (lambda ()
8400                    (format #t "\
8401 [org.gnome.login-screen]
8402 logo='~a'~%" icon))))))
8403          ;; GDM requires that there be at least one desktop entry
8404          ;; file.  This phase installs a hidden one that simply
8405          ;; fails.  This enables users to use GDM with a
8406          ;; '~/.xsession' script with no other desktop entry files.
8407          ;; See <https://bugs.gnu.org/35068>.
8408          (add-after 'install 'install-placeholder-desktop-entry
8409            (lambda* (#:key inputs outputs #:allow-other-keys)
8410              (let* ((out (assoc-ref outputs "out"))
8411                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
8412                     (fail (string-append sessions "/fail.desktop")))
8413                (mkdir-p sessions)
8414                (with-output-to-file fail
8415                  (lambda ()
8416                    (for-each
8417                     display
8418                     '("[Desktop Entry]\n"
8419                       "Encoding=UTF-8\n"
8420                       "Type=Application\n"
8421                       "Name=Fail\n"
8422                       "Comment=This session fails immediately.\n"
8423                       "NoDisplay=true\n"
8424                       "Exec=false\n")))))))
8425          ;; GDM needs GNOME Session to run these applications.  We link
8426          ;; their autostart files in `share/gdm/greeter/autostart'
8427          ;; because GDM explicitly tells GNOME Session to look there.
8428          ;;
8429          ;; XXX: GNOME Shell should be linked here too, but currently
8430          ;; GNOME Shell depends on GDM.
8431          (add-after 'install 'link-autostart-files
8432            (lambda* (#:key inputs outputs #:allow-other-keys)
8433              (let* ((out (assoc-ref outputs "out"))
8434                     (autostart (string-append out "/share/gdm/"
8435                                               "greeter/autostart"))
8436                     (settings (assoc-ref inputs "gnome-settings-daemon")))
8437                (mkdir-p autostart)
8438                (with-directory-excursion autostart
8439                  (for-each (lambda (desktop)
8440                              (symlink desktop (basename desktop)))
8441                            (find-files
8442                             (string-append settings "/etc/xdg"))))))))))
8443     (native-inputs
8444      `(("dconf" ,dconf)
8445        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8446        ("gobject-introspection" ,gobject-introspection)
8447        ("guix-icons" ,guix-icons)
8448        ("intltool" ,intltool)
8449        ("itstool" ,itstool)
8450        ("pkg-config" ,pkg-config)
8451        ("xmllint" ,libxml2)))
8452     (inputs
8453      (list accountsservice
8454            check-0.14 ;for testing
8455            elogind
8456            eudev
8457            gnome-session
8458            gnome-settings-daemon
8459            gtk+
8460            iso-codes
8461            libcanberra
8462            linux-pam))
8463     (synopsis "Display manager for GNOME")
8464     (home-page "https://wiki.gnome.org/Projects/GDM/")
8465     (description
8466      "GNOME Display Manager is a system service that is responsible for
8467 providing graphical log-ins and managing local and remote displays.")
8468     (license license:gpl2+)))
8469
8470 (define-public libgtop
8471   (package
8472     (name "libgtop")
8473     (version "2.40.0")
8474     (source (origin
8475               (method url-fetch)
8476               (uri (string-append "mirror://gnome/sources/libgtop/"
8477                                   (version-major+minor version) "/"
8478                                   "libgtop-" version ".tar.xz"))
8479               (sha256
8480                (base32
8481                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8482     (build-system gnu-build-system)
8483     (native-inputs
8484      (list gobject-introspection intltool perl pkg-config))
8485     (propagated-inputs
8486      (list glib)) ; required by libgtop-2.0.pc
8487     (synopsis "Portable system access library")
8488     (home-page "https://www.gnome.org/")
8489     (description
8490      "LibGTop is a library to get system specific data such as CPU and memory
8491 usage and information about running processes.")
8492     (license license:gpl2+)))
8493
8494 (define-public gnome-bluetooth
8495   (package
8496     (name "gnome-bluetooth")
8497     (version "3.34.5")
8498     (source (origin
8499               (method url-fetch)
8500               (uri (string-append "mirror://gnome/sources/gnome-bluetooth/"
8501                                   (version-major+minor version) "/"
8502                                   "gnome-bluetooth-" version ".tar.xz"))
8503               (sha256
8504                (base32
8505                 "1a9ynlwwkb3wpg293ym517vmrkk63y809mmcv9a21k5yr199x53c"))))
8506     (build-system meson-build-system)
8507     (arguments `(#:meson ,meson-0.59))
8508     (native-inputs
8509      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
8510        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8511        ("gobject-introspection" ,gobject-introspection)
8512        ("intltool" ,intltool)
8513        ("pkg-config" ,pkg-config)
8514        ("python" ,python)
8515        ("python-dbus" ,python-dbus)
8516        ("xmllint" ,libxml2)))
8517     (propagated-inputs
8518      ;; gnome-bluetooth-1.0.pc refers to all these.
8519      (list glib gtk+))
8520     (inputs
8521      (list eudev libcanberra libnotify python-dbus))
8522     (synopsis "GNOME Bluetooth subsystem")
8523     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8524     (description
8525      "This package contains tools for managing and manipulating Bluetooth
8526 devices using the GNOME desktop.")
8527     (license license:lgpl2.1+)))
8528
8529 (define-public gnome-control-center
8530   (package
8531     (name "gnome-control-center")
8532     (version "40.1")
8533     (source (origin
8534               (method url-fetch)
8535               (uri (string-append "mirror://gnome/sources/" name "/"
8536                                   (version-major version) "/"
8537                                   name "-" version ".tar.xz"))
8538               (sha256
8539                (base32
8540                 "0rr4d5m2a72vrb31jgyx49dp0s2pwgyxsrk4hyw5ym66wq63c3v1"))))
8541     (build-system meson-build-system)
8542     (arguments
8543      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
8544        #:glib-or-gtk? #t
8545        #:configure-flags
8546        (list "-Dcheese=false"
8547              (string-append "-Dgnome_session_libexecdir="
8548                             (assoc-ref %build-inputs "gnome-session")
8549                             "/libexec"))
8550        #:phases
8551        (modify-phases %standard-phases
8552          (add-before 'configure 'patch-paths
8553            (lambda* (#:key inputs #:allow-other-keys)
8554              (let ((libc   (assoc-ref inputs "libc"))
8555                    (tzdata (assoc-ref inputs "tzdata"))
8556                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
8557                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
8558                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
8559                (substitute* "panels/datetime/tz.h"
8560                  (("/usr/share/zoneinfo/zone.tab")
8561                   (string-append tzdata "/share/zoneinfo/zone.tab")))
8562                (substitute* "tests/datetime/test-endianess.c"
8563                  (("/usr/share/locale")
8564                   (string-append libc "/share/locale")))
8565                (substitute* "panels/region/cc-region-panel.c"
8566                  (("\"gkbd-keyboard-display")
8567                   (string-append "\"" libgnomekbd
8568                                  "/bin/gkbd-keyboard-display")))
8569                (substitute* '("panels/network/net-device-bluetooth.c"
8570                               "panels/network/net-device-mobile.c"
8571                               "panels/network/connection-editor/net-connection-editor.c")
8572                  (("\"nm-connection-editor")
8573                   (string-append "\"" nm-applet
8574                                  "/bin/nm-connection-editor")))
8575                (substitute* '("panels/user-accounts/run-passwd.c")
8576                  (("/usr/bin/passwd")
8577                   "/run/setuid-programs/passwd"))
8578                (substitute* "panels/info-overview/cc-info-overview-panel.c"
8579                  (("DATADIR \"/gnome/gnome-version.xml\"")
8580                   (string-append "\"" gnome-desktop
8581                                  "/share/gnome/gnome-version.xml\""))))))
8582          (add-after 'unpack 'skip-gtk-update-icon-cache
8583            ;; Don't create 'icon-theme.cache'.
8584            (lambda _
8585              (substitute* "build-aux/meson/meson_post_install.py"
8586                (("gtk-update-icon-cache") (which "true"))))))))
8587     (native-inputs
8588      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
8589        ("intltool" ,intltool)
8590        ("pkg-config" ,pkg-config)
8591        ("xsltproc" ,libxslt)
8592        ;; For tests
8593        ("hicolor-icon-theme" ,hicolor-icon-theme)
8594        ("python-dbusmock" ,python-dbusmock)
8595        ("xorg-server" ,xorg-server-for-tests)))
8596     (inputs
8597      `(("accountsservice" ,accountsservice)
8598        ("clutter-gtk" ,clutter-gtk)
8599        ("colord-gtk" ,colord-gtk)
8600        ("cups" ,cups)
8601        ("dconf" ,dconf)
8602        ("docbook-xsl" ,docbook-xsl)
8603        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
8604        ("gnome-bluetooth" ,gnome-bluetooth)
8605        ("gnome-desktop" ,gnome-desktop)
8606        ("gnome-online-accounts" ,gnome-online-accounts)
8607        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8608        ("gnome-session" ,gnome-session)
8609        ("gnome-settings-daemon" ,gnome-settings-daemon)
8610        ("grilo" ,grilo)
8611        ("gsound" ,gsound)
8612        ("ibus" ,ibus)
8613        ("libcanberra" ,libcanberra)
8614        ("libgnomekbd" ,libgnomekbd)
8615        ("libgudev" ,libgudev)
8616        ("libgtop" ,libgtop)
8617        ("libnma" ,libnma)
8618        ("libpwquality" ,libpwquality)
8619        ("libsecret" ,libsecret)
8620        ("libsoup" ,libsoup-minimal-2)
8621        ("libxml2" ,libxml2)
8622        ("libwacom" ,libwacom)
8623        ("mesa" ,mesa)
8624        ("mit-krb5" ,mit-krb5)
8625        ("modem-manager" ,modem-manager)
8626        ("network-manager-applet" ,network-manager-applet)
8627        ("polkit" ,polkit)
8628        ("pulseaudio" ,pulseaudio)
8629        ("smbclient" ,samba)
8630        ("tzdata" ,tzdata)
8631        ("udisks" ,udisks)
8632        ("upower" ,upower)))
8633     (synopsis "Utilities to configure the GNOME desktop")
8634     (home-page "https://www.gnome.org/")
8635     (description
8636      "This package contains configuration applets for the GNOME desktop,
8637 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8638 properties, sound setup, desktop theme and background, user interface
8639 properties, screen resolution, and other GNOME parameters.")
8640     (license license:gpl2+)))
8641
8642 (define-public gnome-shell
8643   (package
8644     (name "gnome-shell")
8645     (version "41.0")
8646     (source (origin
8647               (method url-fetch)
8648               (uri (string-append "mirror://gnome/sources/" name "/"
8649                                   (version-major version) "/"
8650                                   name "-" version ".tar.xz"))
8651               (sha256
8652                (base32
8653                 "0ragmcln210zvzhc2br33yprbkj9drjzd7inp5sdxra0a7l73yaj"))))
8654     (build-system meson-build-system)
8655     (arguments
8656      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
8657        #:glib-or-gtk? #t
8658        #:disallowed-references ,(list (gexp-input glib "bin")
8659                                       (gexp-input libxslt)
8660                                       (gexp-input ruby-sass))
8661        #:configure-flags
8662        (list "-Dsystemd=false"
8663              ;; Otherwise, the RUNPATH will lack the final path component.
8664              (string-append "-Dc_link_args=-Wl,-rpath="
8665                             (assoc-ref %outputs "out")
8666                             "/lib/gnome-shell"))
8667
8668        #:modules ((guix build meson-build-system)
8669                   (guix build utils)
8670                   (srfi srfi-1))
8671
8672        #:phases
8673        (modify-phases %standard-phases
8674          (add-after 'unpack 'fix-keysdir
8675            (lambda* (#:key outputs #:allow-other-keys)
8676              (let* ((out     (assoc-ref outputs "out"))
8677                     (keysdir (string-append
8678                               out "/share/gnome-control-center/keybindings")))
8679                (substitute* "meson.build"
8680                  (("keysdir =.*")
8681                   (string-append "keysdir = '" keysdir "'\n"))))))
8682          (add-after 'unpack 'skip-gtk-update-icon-cache
8683            ;; Don't create 'icon-theme.cache'.
8684            (lambda _
8685              (substitute* "meson/postinstall.py"
8686                (("gtk-update-icon-cache") "true"))))
8687          (add-before 'configure 'record-absolute-file-names
8688            (lambda* (#:key inputs #:allow-other-keys)
8689              (substitute* "js/misc/ibusManager.js"
8690                (("'ibus-daemon'")
8691                 (string-append "'" (assoc-ref inputs "ibus")
8692                                "/bin/ibus-daemon'")))
8693              (substitute* "js/ui/status/keyboard.js"
8694                (("'gkbd-keyboard-display'")
8695                 (string-append "'" (assoc-ref inputs "libgnomekbd")
8696                                "/bin/gkbd-keyboard-display'")))))
8697          (add-before 'check 'pre-check
8698            (lambda* (#:key inputs #:allow-other-keys)
8699              ;; Tests require a running X server.
8700              (system "Xvfb :1 &")
8701              (setenv "DISPLAY" ":1")
8702              (setenv "HOME" "/tmp")))   ;to avoid "fatal" warnings
8703          (add-after 'install 'wrap-programs
8704            (lambda* (#:key inputs outputs #:allow-other-keys)
8705              (let ((out              (assoc-ref outputs "out"))
8706                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
8707                    (python-path      (getenv "GUIX_PYTHONPATH")))
8708                (for-each
8709                 (lambda (prog)
8710                   (wrap-program (string-append out "/bin/" prog)
8711                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8712                 '("gnome-shell" "gnome-extensions-app"))
8713                (substitute* (string-append out "/share/gnome-shell/"
8714                                            "org.gnome.Shell.Extensions")
8715                  (("imports\\.package\\.start" all)
8716                   (string-append "'" gi-typelib-path "'.split(':').forEach("
8717                                  "path => imports.gi.GIRepository.Repository."
8718                                  "prepend_search_path(path));\n"
8719                                  all)))
8720                (for-each
8721                 (lambda (prog)
8722                   (wrap-program (string-append out "/bin/" prog)
8723                     `("GUIX_PYTHONPATH"      ":" prefix (,python-path))
8724                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8725                 '("gnome-shell-perf-tool")))))
8726          (add-after 'install 'rewire
8727            (lambda* (#:key inputs outputs #:allow-other-keys)
8728              (for-each
8729               (lambda (tool)
8730                 (call-with-output-file (string-append
8731                                         (assoc-ref outputs "out")
8732                                         "/bin/" tool)
8733                   (lambda (port)
8734                     (format port "#!~a
8735 printf '~a is deprecated.  Use the \"gnome-extensions\" CLI or \
8736 \"gnome-extensions-app\" instead.\\n'"
8737                             (search-input-file inputs "bin/bash")
8738                             tool))))
8739               '("gnome-shell-extension-tool" "gnome-shell-extension-prefs"))))
8740          (replace 'glib-or-gtk-wrap
8741            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8742              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
8743                ;; By default intltool et al. would end up in the XDG_DATA_DIRS
8744                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8745                ;; phase.  Fix that since we don't need these.
8746                (wrap #:inputs (fold alist-delete inputs
8747                                     '("intltool" "glib:bin"))
8748                      #:outputs outputs)))))))
8749     (native-inputs
8750      `(("asciidoc" ,asciidoc)
8751        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8752        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8753        ("gobject-introspection" ,gobject-introspection)
8754        ("hicolor-icon-theme" ,hicolor-icon-theme)
8755        ("intltool" ,intltool)
8756        ("pkg-config" ,pkg-config)
8757        ("python" ,python)
8758        ("ruby-sass" ,ruby-sass)
8759        ("sassc" ,sassc)
8760        ("xsltproc" ,libxslt)
8761        ;; For tests
8762        ("xorg-server" ,xorg-server-for-tests)))
8763     (inputs
8764      (list accountsservice
8765            caribou
8766            docbook-xsl
8767            evolution-data-server
8768            gcr
8769            gdm
8770            librsvg
8771            gjs
8772            gtk
8773            gnome-autoar
8774            gnome-bluetooth
8775            gnome-desktop
8776            gnome-settings-daemon
8777            graphene
8778            gst-plugins-base
8779            ibus
8780            libcanberra
8781            libcroco
8782            libgnomekbd ;for gkbd-keyboard-display
8783            libgweather
8784            libnma
8785            libsoup
8786            mesa-headers
8787            mutter
8788            network-manager-applet
8789            polkit
8790            pulseaudio
8791            python-pygobject
8792            startup-notification
8793            telepathy-logger
8794            upower
8795            ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
8796            ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
8797            librsvg
8798            geoclue))
8799     (synopsis "Desktop shell for GNOME")
8800     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
8801     (description
8802      "GNOME Shell provides core user interface functions for the GNOME desktop,
8803 like switching to windows and launching applications.")
8804     (license license:gpl2+)))
8805
8806 (define-public gtk-vnc
8807   (package
8808     (name "gtk-vnc")
8809     (version "1.0.0")
8810     (source
8811      (origin
8812        (method url-fetch)
8813        (uri
8814         (string-append "mirror://gnome/sources/" name "/"
8815                        (version-major+minor version) "/"
8816                        name "-" version ".tar.xz"))
8817        (sha256
8818         (base32 "1060ws037v556rx1qhfrcg02859rscksrzr8fq11himdg4d1y6m8"))))
8819     (build-system meson-build-system)
8820     (arguments
8821      `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
8822     (native-inputs
8823      `(("gjs" ,gjs)
8824        ("glib:bin" ,glib "bin")
8825        ("gobject-introspection" ,gobject-introspection)
8826        ("intltool" ,intltool)
8827        ("node" ,node)
8828        ("perl" ,perl)
8829        ("pkg-config" ,pkg-config)
8830        ("python" ,python-wrapper)
8831        ("vala" ,vala)))
8832     (inputs
8833      `(("cairo" ,cairo)
8834        ("librsvg" ,librsvg)
8835        ("glib" ,glib)
8836        ("gnutls" ,gnutls)
8837        ("libgcrypt" ,libgcrypt)
8838        ("libsasl" ,cyrus-sasl)
8839        ("pulseaudio" ,pulseaudio)
8840        ("x11" ,libx11)
8841        ("zlib" ,zlib)))
8842     (propagated-inputs
8843      (list gtk+))
8844     (synopsis "VNC client viewer widget for GTK+")
8845     (description "GTK-VNC is a project providing client side APIs for the RFB
8846 protocol / VNC remote desktop technology.  It is built using coroutines allowing
8847 it to be completely asynchronous while remaining single threaded.  It provides a
8848 core C library, and bindings for Python (PyGTK).")
8849     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
8850     (license license:lgpl2.1+)))
8851
8852 (define-public gnome-autoar
8853   (package
8854     (name "gnome-autoar")
8855     (version "0.4.1")
8856     (source (origin
8857               (method url-fetch)
8858               (uri (string-append "mirror://gnome/sources/" name "/"
8859                                   (version-major+minor version) "/"
8860                                   name "-" version ".tar.xz"))
8861               (sha256
8862                (base32
8863                 "03hmm7cjgjvyxlflghfa89s1amj16qapl2c9pv0r2bfrp87dasv4"))))
8864     (build-system meson-build-system)
8865     (native-inputs
8866      (list gobject-introspection
8867            `(,glib "bin") pkg-config))
8868     (propagated-inputs
8869      (list libarchive))  ; Required by gnome-autoar-0.pc
8870     (inputs
8871      (list gtk+))
8872     (synopsis "Archives integration support for GNOME")
8873     (home-page "https://git.gnome.org/browse/gnome-autoar/")
8874     (description
8875      "GNOME Autoar is a library which makes creating and extracting archives
8876 easy, safe, and automatic.")
8877     (license license:lgpl2.1+)))
8878
8879 (define-public tracker
8880   (package
8881     (name "tracker")
8882     (version "3.1.2")
8883     (source (origin
8884               (method url-fetch)
8885               (uri (string-append "mirror://gnome/sources/tracker/"
8886                                   (version-major+minor version) "/"
8887                                   "tracker-" version ".tar.xz"))
8888               (sha256
8889                (base32
8890                 "13zcc07wd51sz7kglk3xbjrsq7d835cxfr7iwjr7nn2xcri8jdns"))))
8891     (build-system meson-build-system)
8892     (arguments
8893      `(#:glib-or-gtk? #t
8894        #:configure-flags
8895        ;; Otherwise, the RUNPATH will lack the final path component.
8896        (list (string-append "-Dc_link_args=-Wl,-rpath="
8897                             (assoc-ref %outputs "out") "/lib:"
8898                             (assoc-ref %outputs "out") "/lib/tracker-3.0")
8899              "-Ddocs=false"
8900              "-Dsystemd_user_services=false")
8901        #:phases
8902        (modify-phases %standard-phases
8903          (add-before 'configure 'set-shell
8904            (lambda _
8905              (setenv "SHELL" (which "bash"))))
8906          (add-before 'configure 'fix-paths
8907            (lambda* (#:key inputs #:allow-other-keys)
8908              (let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
8909                     (file (search-input-file inputs manpage)))
8910                (substitute* "docs/manpages/meson.build"
8911                  (("/etc/asciidoc[^']+")
8912                   file)))))
8913          (replace 'check
8914            (lambda* (#:key tests? #:allow-other-keys)
8915              (when tests?
8916                ;; Some tests expect to write to $HOME.
8917                (setenv "HOME" "/tmp")
8918                (invoke "dbus-run-session" "--" "meson" "test"
8919                        "--print-errorlogs")))))))
8920     (native-inputs
8921      `(("glib:bin" ,glib "bin")
8922        ("gobject-introspection" ,gobject-introspection)
8923        ("docbook-xsl" ,docbook-xsl)
8924        ("docbook-xml-4.5" ,docbook-xml)
8925        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8926        ("asciidoc" ,asciidoc)
8927        ("xsltproc" ,libxslt)
8928        ("cmake-minimal" ,cmake-minimal)
8929        ("python-pygobject" ,python-pygobject)
8930        ("gtk-doc" ,gtk-doc/stable)
8931        ("intltool" ,intltool)
8932        ("dbus" ,dbus)
8933        ("pkg-config" ,pkg-config)
8934        ("vala" ,vala)))
8935     (inputs
8936      `(("dbus" ,dbus)
8937        ("sqlite" ,sqlite)
8938        ("libxml2" ,libxml2)
8939        ("icu4c" ,icu4c)                 ; libunistring gets miner-miner-fs test to fail.
8940        ("json-glib" ,json-glib)
8941        ("libsoup" ,libsoup-minimal-2))) ; tracker-miners requires the same version.
8942     (synopsis "Metadata database, indexer and search tool")
8943     (home-page "https://wiki.gnome.org/Projects/Tracker")
8944     (description
8945      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
8946
8947 It is a middleware component aimed at desktop application developers who want
8948 their apps to browse and search user content.  It's not designed to be used
8949 directly by desktop users, but it provides a commandline tool named
8950 @command{tracker} for the adventurous.
8951
8952 Tracker allows your application to instantly perform full-text searches across
8953 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
8954 example.  This is achieved by indexing the user's home directory in the
8955 background.
8956
8957 Tracker also allows your application to query and list content that the user
8958 has stored.  For example, GNOME Music displays all the music files that are
8959 found by Tracker.  This means that GNOME Music doesn't need to maintain a
8960 database of its own.
8961
8962 If you need to go beyond simple searches, Tracker is also a linked data
8963 endpoint and it understands SPARQL.")
8964     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
8965     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8966     ;; libstemmer is bsd-3 and the rest is gpl2+.
8967     (license (list license:gpl2+
8968                    license:bsd-3
8969                    license:lgpl2.1+))))
8970
8971 (define-public tracker-miners
8972   (package
8973     (name "tracker-miners")
8974     (version "3.1.2")
8975     (source (origin
8976               (method url-fetch)
8977               (uri (string-append "mirror://gnome/sources/tracker-miners/"
8978                                   (version-major+minor version)
8979                                   "/tracker-miners-" version ".tar.xz"))
8980               (sha256
8981                (base32
8982                 "0fpd69lgm8cckbamcf9c2q57glxf0s3jcfwkq8p3s4lfsvdclmd0"))))
8983     (build-system meson-build-system)
8984     (arguments
8985      `(#:glib-or-gtk? #t
8986        #:configure-flags
8987        (list "-Dminer_rss=false" ; libgrss is required.
8988              ;; Ensure the RUNPATH contains all installed library locations.
8989              (string-append "-Dc_link_args=-Wl,-rpath="
8990                             (assoc-ref %outputs "out")
8991                             "/lib/tracker-miners-3.0")
8992              ;; TODO: Enable functional tests. Currently, the following error
8993              ;; appears:
8994              ;; Exception: The functional tests require DConf to be the default
8995              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
8996              "-Dfunctional_tests=false"
8997              "-Dsystemd_user_services=false")
8998        #:phases
8999        (modify-phases %standard-phases
9000          (add-before 'configure 'set-shell
9001            (lambda _
9002              (setenv "SHELL" (which "bash"))))
9003          (add-before 'configure 'fix-paths
9004            (lambda* (#:key inputs #:allow-other-keys)
9005              (let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
9006                     (file (search-input-file inputs manpage)))
9007                (substitute* "docs/manpages/meson.build"
9008                  (("/etc/asciidoc[^']+")
9009                   file)))))
9010          (add-before 'configure 'fix-tests
9011            (lambda* (#:key inputs #:allow-other-keys)
9012              ;; Disable those tests that require the functional_tests option
9013              ;; to be true and the UPower daemon to be started.
9014              (substitute* "examples/python/meson.build"
9015                (("foreach example_name:.*")
9016                 "foreach example_name: []"))
9017              ;; Disable this test that is failing randomly:
9018              ;; https://gitlab.gnome.org/GNOME/tracker-miners/-/issues/170.
9019             (substitute* "tests/libtracker-miner/meson.build"
9020                (("'miner-fs'.*")
9021                 ""))))
9022         (replace 'check
9023            (lambda* (#:key tests? #:allow-other-keys)
9024              (when tests?
9025                ;; Some tests expect to write to $HOME.
9026                (setenv "HOME" "/tmp")
9027                (setenv "LANG" "en_US.UTF-8")
9028                (invoke "dbus-run-session" "--" "meson" "test"
9029                        "--print-errorlogs")))))))
9030     (native-inputs
9031      `(("dbus" ,dbus)
9032        ("intltool" ,intltool)
9033        ("glib:bin" ,glib "bin")
9034        ("docbook-xsl" ,docbook-xsl)
9035        ("docbook-xml-4.5" ,docbook-xml)
9036        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9037        ("asciidoc" ,asciidoc)
9038        ("xsltproc" ,libxslt)
9039        ("gobject-introspection" ,gobject-introspection)
9040        ("pkg-config" ,pkg-config)
9041        ("python-pygobject" ,python-pygobject)))
9042     (inputs
9043      `(("exempi" ,exempi)
9044        ("ffmpeg" ,ffmpeg)
9045        ("flac" ,flac)
9046        ("giflib" ,giflib)
9047        ("glib" ,glib)
9048        ("gstreamer" ,gstreamer)
9049        ("icu4c" ,icu4c)
9050        ("json-glib" ,json-glib)
9051        ("libcue" ,libcue)
9052        ("libexif" ,libexif)
9053        ("libgsf" ,libgsf)
9054        ("libgxps" ,libgxps)
9055        ("libiptcdata" ,libiptcdata)
9056        ("libjpeg" ,libjpeg-turbo)
9057        ("libosinfo" ,libosinfo)
9058        ("libpng" ,libpng)
9059        ("libseccomp" ,libseccomp)
9060        ("libsoup" ,libsoup-minimal-2) ; because tracker requires this version.
9061        ("libtiff" ,libtiff)
9062        ("libvorbis" ,libvorbis)
9063        ("libxml2" ,libxml2)
9064        ("poppler" ,poppler)
9065        ("shared-mime-info" ,shared-mime-info)
9066        ("taglib" ,taglib)
9067        ("totem-pl-parser" ,totem-pl-parser)
9068        ("tracker" ,tracker)
9069        ("upower" ,upower)
9070        ("zlib" ,zlib)))
9071     (synopsis "Metadata database, indexer and search tool")
9072     (home-page "https://wiki.gnome.org/Projects/Tracker")
9073     (description
9074      "Tracker is an advanced framework for first class objects with associated
9075 metadata and tags.  It provides a one stop solution for all metadata, tags,
9076 shared object databases, search tools and indexing.")
9077     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
9078     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
9079     (license (list license:gpl2+
9080                    license:lgpl2.1+
9081                    license:lgpl2.0+))))
9082
9083 (define-public nautilus
9084   (package
9085     (name "nautilus")
9086     (version "41.0")
9087     (source (origin
9088               (method url-fetch)
9089               (uri (string-append "mirror://gnome/sources/" name "/"
9090                                   (version-major version) "/"
9091                                   name "-" version ".tar.xz"))
9092               (sha256
9093                (base32
9094                 "1rd1a0wjh2sc7mzw6m61rryvgxpi2lin4xj0x9khqw04q6nl3fgr"))))
9095     (build-system meson-build-system)
9096     (arguments
9097      `(#:glib-or-gtk? #t
9098        #:meson ,meson-0.59
9099        #:phases
9100        (modify-phases %standard-phases
9101          (add-after 'unpack 'make-extensible
9102            (lambda _
9103              (substitute* "src/nautilus-module.c"
9104                (("static gboolean initialized = FALSE;" all)
9105                 (string-append all "
9106 const char *extension_path;
9107 char **extension_dirs, **d;
9108 ")
9109                 )
9110                (("load_module_dir \\(NAUTILUS_EXTENSIONDIR\\);" all)
9111                 (string-append all
9112                                "
9113 extension_path = g_getenv (\"NAUTILUS_EXTENSION_PATH\");
9114 if (extension_path)
9115 {
9116     extension_dirs = g_strsplit (extension_path, \":\", -1);
9117     for (d = extension_dirs; d != NULL && *d != NULL; d++)
9118         load_module_dir(*d);
9119     g_strfreev(extension_dirs);
9120 }
9121 ")))))
9122          (add-after 'unpack 'skip-gtk-update-icon-cache
9123            ;; Don't create 'icon-theme.cache'.
9124            (lambda _
9125              (substitute* "build-aux/meson/postinstall.py"
9126                (("gtk-update-icon-cache") "true")))))
9127        ;; XXX: FAIL: check-nautilus
9128        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
9129        #:tests? #f))
9130     (native-inputs
9131      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9132        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
9133        ("gobject-introspection" ,gobject-introspection)
9134        ("intltool" ,intltool)
9135        ("pkg-config" ,pkg-config)))
9136     (inputs
9137      `(("dconf" ,dconf)
9138        ("gexiv2" ,gexiv2)
9139        ("gvfs" ,gvfs)
9140        ("exempi" ,exempi)
9141        ("gnome-desktop" ,gnome-desktop)
9142        ("gnome-autoar" ,gnome-autoar)
9143        ("gst-plugins-base" ,gst-plugins-base)
9144        ("json-glib" ,json-glib)
9145        ("libhandy" ,libhandy)
9146        ("libportal" ,libportal)
9147        ("libseccomp" ,libseccomp)
9148        ("libselinux" ,libselinux)
9149        ("libsoup" ,libsoup-minimal-2) ; to satisfy tracker dependencies
9150        ("tracker" ,tracker)
9151        ("tracker-miners" ,tracker-miners)
9152        ;; XXX: gtk+ is required by libnautilus-extension.pc
9153        ;;
9154        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
9155        ;; package.  See:
9156        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
9157        ("gtk+" ,gtk+)
9158        ("libexif" ,libexif)
9159        ("libxml2" ,libxml2)))
9160     (native-search-paths
9161      (list (search-path-specification
9162             (variable "NAUTILUS_EXTENSION_PATH")
9163             (files '("lib/nautilus/site-extensions")))))
9164     (synopsis "File manager for GNOME")
9165     (home-page "https://wiki.gnome.org/Apps/Nautilus")
9166     (description
9167      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
9168 design and behaviour, giving the user a simple way to navigate and manage its
9169 files.")
9170     (license license:gpl2+)))
9171
9172 (define-public baobab
9173   (package
9174     (name "baobab")
9175     (version "40.0")
9176     (source (origin
9177               (method url-fetch)
9178               (uri (string-append
9179                     "mirror://gnome/sources/" name "/"
9180                     (version-major version) "/"
9181                     name "-" version ".tar.xz"))
9182               (sha256
9183                (base32
9184                 "19yii3bdgivxrcka1c4g6dpbmql5nyawwhzlsph7z6bs68nambm6"))))
9185     (build-system meson-build-system)
9186     (arguments
9187      '(#:glib-or-gtk? #t))
9188     (native-inputs
9189      `(("intltool" ,intltool)
9190        ("pkg-config" ,pkg-config)
9191        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9192        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9193        ("itstool" ,itstool)
9194        ("xmllint" ,libxml2)
9195        ("glib" ,glib "bin")
9196        ("vala" ,vala)))
9197     (inputs
9198      (list gtk+ libhandy))
9199     (synopsis "Disk usage analyzer for GNOME")
9200     (description
9201      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
9202 usage in the GNOME desktop environment.  It can easily scan device volumes or
9203 a specific user-requested directory branch (local or remote).  Once the scan
9204 is complete it provides a graphical representation of each selected folder.")
9205     (home-page "https://wiki.gnome.org/Apps/Baobab")
9206     (license license:gpl2+)))
9207
9208 (define-public gnome-backgrounds
9209   (package
9210     (name "gnome-backgrounds")
9211     (version "40.1")
9212     (source
9213      (origin
9214        (method url-fetch)
9215        (uri (string-append "mirror://gnome/sources/" name "/"
9216                            (version-major version) "/"
9217                            name "-" version ".tar.xz"))
9218        (sha256
9219         (base32
9220          "03m7ldfk00cly9igrq0qizq1y0f45vijmm23f1dl5kh1lc6qmpv0"))))
9221     (build-system meson-build-system)
9222     (native-inputs
9223      `(("gettext" ,gettext-minimal)))
9224     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
9225     (synopsis "Background images for the GNOME desktop")
9226     (description
9227      "GNOME backgrounds package contains a collection of graphics files which
9228 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
9229 the package creates the proper framework and directory structure so that you
9230 can add your own files to the collection.")
9231     (license (list license:gpl2+
9232                    license:cc-by2.0
9233                    license:cc-by-sa2.0
9234                    license:cc-by-sa3.0))))
9235
9236 (define-public gnome-screenshot
9237   (package
9238     (name "gnome-screenshot")
9239     (version "40.0")
9240     (source
9241      (origin
9242        (method url-fetch)
9243        (uri (string-append "mirror://gnome/sources/" name "/"
9244                            (version-major version) "/"
9245                            name "-" version ".tar.xz"))
9246        (sha256
9247         (base32
9248          "1qm544ymwibk31s30k47vnn79xg30m18r7l4di0c57g375dak31n"))
9249        (patches
9250         (search-patches "gnome-screenshot-meson-0.60.patch"))))
9251     (build-system meson-build-system)
9252     (arguments
9253      '(#:phases
9254        (modify-phases %standard-phases
9255          (add-after 'unpack 'skip-gtk-update-icon-cache
9256            ;; Don't create 'icon-theme.cache'.
9257            (lambda _
9258              (substitute* "build-aux/postinstall.py"
9259                (("gtk-update-icon-cache") "true"))
9260              #t)))))
9261     (native-inputs
9262      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
9263        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9264        ("intltool" ,intltool)
9265        ("appstream-glib" ,appstream-glib)
9266        ("pkg-config" ,pkg-config)))
9267     (inputs
9268      (list gtk+ libcanberra libhandy libx11 libxext))
9269     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
9270     (synopsis "Take pictures of your screen")
9271     (description
9272      "GNOME Screenshot is a utility used for taking screenshots of the entire
9273 screen, a window or a user defined area of the screen, with optional
9274 beautifying border effects.")
9275     (license license:gpl2+)))
9276
9277 (define-public dconf-editor
9278   (package
9279     (name "dconf-editor")
9280     (version "3.38.3")
9281     (source
9282      (origin
9283        (method url-fetch)
9284        (uri (string-append "mirror://gnome/sources/" name "/"
9285                            (version-major+minor version) "/"
9286                            name "-" version ".tar.xz"))
9287        (sha256
9288         (base32
9289          "1qvrxrk1h8bd75xwasxbvlkqrw6xkavjimvc7sslkw6lvb3z86jp"))))
9290     (build-system meson-build-system)
9291     (native-inputs
9292      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9293        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9294        ("intltool" ,intltool)
9295        ("pkg-config" ,pkg-config)
9296        ("vala" ,vala)))
9297     (inputs
9298      (list dconf gtk+ libxml2))
9299     (arguments
9300      `(#:meson ,meson-0.59))
9301     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
9302     (synopsis "Graphical editor for GNOME's dconf configuration system")
9303     (description
9304      "Dconf-editor is a graphical tool for browsing and editing the dconf
9305 configuration system for GNOME.  It allows users to configure desktop
9306 software that do not provide their own configuration interface.")
9307     (license license:lgpl2.1+)))
9308
9309 (define-public gnome-default-applications
9310   (package
9311     (name "gnome-default-applications")
9312     (version "0")
9313     (build-system trivial-build-system)
9314     (source #f)
9315     (propagated-inputs
9316      (list nautilus evince))
9317     (arguments
9318      `(#:modules ((guix build utils))
9319        #:builder
9320        (begin
9321          (use-modules (guix build utils))
9322          (let* ((out (assoc-ref %outputs "out"))
9323                 (apps (string-append out "/share/applications")))
9324            (mkdir-p apps)
9325            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
9326              (lambda (port)
9327                (format port "[Default Applications]\n")
9328                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
9329                (format port "application/pdf=evince.desktop\n")
9330                (format port "application/postscript=evince.desktop\n")))
9331            #t))))
9332     (synopsis "Default MIME type associations for the GNOME desktop")
9333     (description
9334      "Given many installed packages which might handle a given MIME type, a
9335 user running the GNOME desktop probably has some preferences: for example,
9336 that folders be opened by default by the Nautilus file manager, not the Baobab
9337 disk usage analyzer.  This package establishes that set of default MIME type
9338 associations for GNOME.")
9339     (license license:gpl3+)
9340     (home-page #f)))
9341
9342 (define-public libgovirt
9343   (package
9344    (name "libgovirt")
9345    (version "0.3.8")
9346    (source (origin
9347             (method url-fetch)
9348             (uri (string-append "mirror://gnome/sources/" name "/"
9349                                 (version-major+minor version) "/"
9350                                 name "-" version ".tar.xz"))
9351             (sha256
9352              (base32
9353               "1y0x1wyakj3ya33hgj0w1jkbcn50q21gmn2zyalxysqp55i1ij8x"))))
9354    (build-system glib-or-gtk-build-system)
9355    (native-inputs
9356     (list gettext-minimal
9357           `(,glib "bin")
9358           gobject-introspection
9359           gsettings-desktop-schemas
9360           `(,gtk+ "bin")
9361           pkg-config))
9362    (inputs
9363     (list glib-networking ; GIO plugin--for the tests
9364           rest))
9365    (synopsis "GoVirt Library")
9366    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
9367    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
9368    (license license:gpl2+)))
9369
9370 (define-public gnome-weather
9371   (package
9372    (name "gnome-weather")
9373    (version "40.1")
9374    (source (origin
9375             (method url-fetch)
9376             (uri (string-append "mirror://gnome/sources/" name "/"
9377                                 (version-major version) "/"
9378                                 name "-" version ".tar.xz"))
9379             (sha256
9380              (base32
9381               "0k9wnyinvx6433r07kvjyahgqc605g7gbpf3d0h6vi4p8x61849x"))))
9382    (build-system meson-build-system)
9383    (native-inputs
9384     `(("gettext" ,gettext-minimal)
9385       ("glib:bin" ,glib "bin")
9386       ("gobject-introspection" ,gobject-introspection)
9387       ("gtk+:bin" ,gtk+ "bin")
9388       ("pkg-config" ,pkg-config)))
9389    (inputs
9390     (list appstream-glib
9391           geoclue
9392           gjs
9393           gnome-desktop
9394           libgweather
9395           libhandy))
9396    (arguments
9397     `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
9398       #:glib-or-gtk? #t
9399       #:phases
9400       ,#~(modify-phases %standard-phases
9401            (add-after 'unpack 'fix-service-file
9402              (lambda _
9403                (substitute* "data/org.gnome.Weather.service.in"
9404                  (("Exec=[[:graph:]]+")
9405                   (string-append "Exec=" #$output
9406                                  "/bin/gnome-weather")))))
9407            (add-after 'install 'fix-desktop-file
9408              ;; FIXME: "gapplication launch org.gnome.Weather" fails for some
9409              ;; reason.  See https://issues.guix.gnu.org/issue/39324.
9410              (lambda _
9411                (let ((applications
9412                       (string-append #$output "/share/applications")))
9413                  (substitute* (string-append applications
9414                                              "/org.gnome.Weather.desktop")
9415                    (("Exec=.*") "Exec=gnome-weather\n")))))
9416            (add-after 'install 'wrap
9417              (lambda _
9418                (let ((gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9419                  ;; GNOME Weather needs the typelib files of GTK+, Pango etc
9420                  ;; at runtime.
9421                  (wrap-program (string-append #$output "/bin/gnome-weather")
9422                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
9423    (synopsis "Weather monitoring for GNOME desktop")
9424    (description "GNOME Weather is a small application that allows you to
9425 monitor the current weather conditions for your city, or anywhere in the
9426 world.")
9427    (home-page "https://wiki.gnome.org/Apps/Weather")
9428    (license license:gpl2+)))
9429
9430 (define-public gnome
9431   (package
9432     (name "gnome")
9433     (version (package-version gnome-shell))
9434     (source #f)
9435     (build-system trivial-build-system)
9436     (arguments '(#:builder (begin (mkdir %output) #t)))
9437     (propagated-inputs
9438      `(;; GNOME-Core-OS-Services
9439        ("accountsservice" ,accountsservice)
9440        ("network-manager" ,network-manager)
9441        ("packagekit" ,packagekit)
9442        ("upower" ,upower)
9443        ;; GNOME-Core-Shell
9444        ("adwaita-icon-theme" ,adwaita-icon-theme)
9445        ("gdm" ,gdm)
9446        ("glib-networking" ,glib-networking)
9447        ("gnome-backgrounds" ,gnome-backgrounds)
9448        ("gnome-bluetooth" ,gnome-bluetooth)
9449        ("gnome-color-manager" ,gnome-color-manager)
9450        ("gnome-control-center" ,gnome-control-center)
9451        ("gnome-desktop" ,gnome-desktop)
9452        ("gnome-initial-setup" ,gnome-initial-setup)
9453        ("gnome-keyring" ,gnome-keyring)
9454        ("gnome-menus" ,gnome-menus)
9455        ("gnome-session" ,gnome-session)
9456        ("gnome-settings-daemon" ,gnome-settings-daemon)
9457        ("gnome-shell-extensions" ,gnome-shell-extensions)
9458        ("gnome-shell" ,gnome-shell)
9459        ("gnome-themes-extra" ,gnome-themes-extra)
9460        ("gnome-user-docs" ,gnome-user-docs)
9461        ("gnome-user-share" ,gnome-user-share)
9462        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9463        ("gvfs" ,gvfs)
9464        ("mutter" ,mutter)
9465        ("orca" ,orca)
9466        ("rygel" ,rygel)
9467        ("sushi" ,sushi)
9468        ;; GNOME-Core-Utilities
9469        ("baobab" ,baobab)
9470        ("cheese" ,cheese)
9471        ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9472        ;; only works on x86_64, so exclude it on other architectures.
9473        ,@(if (string-prefix? "x86_64" (%current-system))
9474              `(("eog" ,eog))
9475              '())
9476        ("epiphany" ,epiphany)
9477        ("evince" ,evince)
9478        ("file-roller" ,file-roller)
9479        ("gedit" ,gedit)
9480        ("gnome-boxes" ,gnome-boxes)
9481        ("gnome-calculator" ,gnome-calculator)
9482        ("gnome-calendar" ,gnome-calendar)
9483        ("gnome-characters" ,gnome-characters)
9484        ("gnome-clocks" ,gnome-clocks)
9485        ("gnome-contacts" ,gnome-contacts)
9486        ("gnome-disk-utility" ,gnome-disk-utility)
9487        ("gnome-font-viewer" ,gnome-font-viewer)
9488        ("gnome-maps" ,gnome-maps)
9489        ("gnome-music" ,gnome-music)
9490        ("gnome-photos" ,gnome-photos)
9491        ("gnome-screenshot" ,gnome-screenshot)
9492        ("gnome-system-monitor" ,gnome-system-monitor)
9493        ("gnome-terminal" ,gnome-terminal)
9494        ("gnome-weather" ,gnome-weather)
9495        ("nautilus" ,nautilus)
9496        ("simple-scan" ,simple-scan)
9497        ("totem" ,totem)
9498        ("tracker-miners" ,tracker-miners)
9499        ("yelp" ,yelp)
9500        ;; Others
9501        ("hicolor-icon-theme" ,hicolor-icon-theme)
9502        ("gnome-online-accounts" ,gnome-online-accounts)
9503
9504        ;; Packages not part of GNOME proper but that are needed for a good
9505        ;; experience.  See <https://bugs.gnu.org/39646>.
9506        ;; XXX: Find out exactly which ones are needed and why.
9507        ("font-abattis-cantarell"            ,font-abattis-cantarell)
9508        ("font-dejavu"               ,font-dejavu)
9509        ("at-spi2-core"              ,at-spi2-core-minimal)
9510        ("dbus"                      ,dbus)
9511        ("dconf"                     ,dconf)
9512        ("desktop-file-utils"        ,desktop-file-utils)
9513        ("gnome-default-applications" ,gnome-default-applications)
9514        ("gnome-themes-standard"     ,gnome-themes-standard)
9515        ("gst-plugins-base"          ,gst-plugins-base)
9516        ("gst-plugins-good"          ,gst-plugins-good)
9517        ("gucharmap"                 ,gucharmap)
9518        ("pinentry-gnome3"           ,pinentry-gnome3)
9519        ("pulseaudio"                ,pulseaudio)
9520        ("shared-mime-info"          ,shared-mime-info)
9521        ("system-config-printer"     ,system-config-printer)
9522        ("xdg-user-dirs"             ,xdg-user-dirs)
9523        ("yelp"                      ,yelp)
9524        ("zenity"                    ,zenity)))
9525     (synopsis "The GNU desktop environment")
9526     (home-page "https://www.gnome.org/")
9527     (description
9528      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
9529 applications for browsing the web, editing text and images, creating
9530 documents and diagrams, playing media, scanning, and much more.")
9531     (license license:gpl2+)))
9532
9533 (define-public byzanz
9534   ;; The last stable release of Byzanz was in 2011, but there have been many
9535   ;; useful commits made to the Byzanz repository since then that it would be
9536   ;; silly to use such an old release.
9537   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9538     (package
9539       (name "byzanz")
9540       (version (string-append "0.2-1." (string-take commit 7)))
9541       (source (origin
9542                 (method git-fetch)
9543                 (uri (git-reference
9544                       (url "https://git.gnome.org/browse/byzanz")
9545                       (commit commit)))
9546                 (file-name (string-append name "-" version "-checkout"))
9547                 (sha256
9548                  (base32
9549                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9550       (build-system glib-or-gtk-build-system)
9551       (arguments
9552        '(#:phases
9553          (modify-phases %standard-phases
9554            (add-before 'bootstrap 'build-without-Werror
9555              (lambda _
9556                ;; The build system cleverly detects that we're not building from
9557                ;; a release tarball and turns on -Werror for GCC.
9558                ;; Unsurprisingly, there is a warning during compilation that
9559                ;; causes the build to fail unnecessarily, so we remove the flag.
9560                (substitute* '("configure.ac")
9561                  (("-Werror") ""))
9562                #t)))))
9563       (native-inputs
9564        (list autoconf
9565              automake
9566              gnome-common
9567              intltool
9568              libtool
9569              pkg-config
9570              which))
9571       (inputs
9572        (list glib gstreamer gst-plugins-base gtk+))
9573       (synopsis "Desktop recording program")
9574       (description "Byzanz is a simple desktop recording program with a
9575 command-line interface.  It can record part or all of an X display for a
9576 specified duration and save it as a GIF encoded animated image file.")
9577       (home-page "https://git.gnome.org/browse/byzanz")
9578       (license license:gpl2+))))
9579
9580 (define-public authenticator
9581   (package
9582     (name "authenticator")
9583     (version "3.32.2")
9584     (source
9585      (origin
9586        (method git-fetch)
9587        (uri (git-reference
9588              (url "https://gitlab.gnome.org/World/Authenticator")
9589              (commit version)))
9590        (file-name (git-file-name name version))
9591        (sha256
9592         (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9593     (build-system meson-build-system)
9594     (arguments
9595      `(#:glib-or-gtk? #t
9596        #:phases
9597        (modify-phases %standard-phases
9598          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9599            (lambda* (#:key inputs outputs #:allow-other-keys)
9600              (let ((prog (string-append (assoc-ref outputs "out")
9601                                         "/bin/authenticator"))
9602                    (pylib (string-append (assoc-ref outputs "out")
9603                                          "/lib/python"
9604                                          ,(version-major+minor
9605                                            (package-version python))
9606                                          "/site-packages")))
9607                (wrap-program prog
9608                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
9609                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9610                #t))))))
9611     (native-inputs
9612      `(("desktop-file-utils" ,desktop-file-utils)
9613        ("gettext" ,gettext-minimal)
9614        ("glib:bin" ,glib "bin")
9615        ("gobject-introspection" ,gobject-introspection)
9616        ("gtk+:bin" ,gtk+ "bin")
9617        ("pkg-config" ,pkg-config)))
9618     (inputs
9619      (list gsettings-desktop-schemas
9620            gtk+
9621            libhandy-0.0
9622            libsecret
9623            python-beautifulsoup4
9624            python-pillow
9625            python-pyfavicon
9626            python-pygobject
9627            python-pyotp
9628            python-pyzbar
9629            yoyo-migrations
9630            zbar))
9631     (home-page "https://gitlab.gnome.org/World/Authenticator/")
9632     (synopsis "Two-factor authentication application built for GNOME")
9633     (description
9634      "Authenticator is a two-factor authentication (2FA) application built for
9635 the GNOME desktop environment.
9636
9637 Features:
9638
9639 @itemize
9640 @item QR code scanner
9641 @item Beautiful UI
9642 @item Huge database of more than 560 supported services
9643 @item Keep your PIN tokens secure by locking the application with a password
9644 @item Automatically fetch an image for services using their favicon
9645 @item The possibility to add new services
9646 @end itemize")
9647     (license license:gpl3+)))
9648
9649 (define-public gsound
9650   (package
9651     (name "gsound")
9652     (version "1.0.3")
9653     (source (origin
9654               (method url-fetch)
9655               (uri (string-append "mirror://gnome/sources/gsound/"
9656                                   (version-major+minor version) "/"
9657                                   "gsound-" version ".tar.xz"))
9658               (sha256
9659                (base32
9660                 "06l80xgykj7x1kqkjvcq06pwj2rmca458zvs053qc55x3sg06bfa"))))
9661     (build-system meson-build-system)
9662     (native-inputs
9663      (list pkg-config gobject-introspection vala))
9664     (propagated-inputs
9665      (list libcanberra))   ; in Requires.private of gsound.pc
9666     (home-page "https://wiki.gnome.org/Projects/GSound")
9667     (synopsis "GObject wrapper for libcanberra")
9668     (description
9669      "GSound is a small library for playing system sounds.  It's designed to be
9670 used via GObject Introspection, and is a thin wrapper around the libcanberra C
9671 library.")
9672     (license license:lgpl2.1+)))
9673
9674 (define-public libzapojit
9675   (package
9676     (name "libzapojit")
9677     (version "0.0.3")
9678     (source (origin
9679               (method url-fetch)
9680               (uri (string-append "mirror://gnome/sources/" name "/"
9681                                   (version-major+minor version) "/"
9682                                   name "-" version ".tar.xz"))
9683               (sha256
9684                (base32
9685                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9686     (build-system gnu-build-system)
9687     (native-inputs
9688      (list gobject-introspection intltool pkg-config))
9689     (inputs
9690      (list `(,gnome-online-accounts "lib") json-glib rest))
9691     (home-page "https://wiki.gnome.org/Projects/Zapojit")
9692     (synopsis "Library for accessing SkyDrive and Hotmail")
9693     (description
9694      "Libzapojit is a GLib-based library for accessing online service APIs of
9695 Microsoft SkyDrive and Hotmail, using their REST protocols.")
9696     (license license:lgpl2.1+)))
9697
9698 (define-public gnome-clocks
9699   (package
9700     (name "gnome-clocks")
9701     (version "40.0")
9702     (source (origin
9703               (method url-fetch)
9704               (uri (string-append "mirror://gnome/sources/" name "/"
9705                                   (version-major version) "/"
9706                                   name "-" version ".tar.xz"))
9707               (sha256
9708                (base32
9709                 "02d3jg46sn8d9gd4dsaly22gg5vkbz2gpq4pmwpvncb4rsqk7sn2"))))
9710     (build-system meson-build-system)
9711     (arguments
9712      '(#:glib-or-gtk? #t
9713        #:phases
9714        (modify-phases %standard-phases
9715          (add-after 'unpack 'skip-gtk-update-icon-cache
9716            ;; Don't create 'icon-theme.cache'.
9717            (lambda _
9718              (substitute* "build-aux/post-install.py"
9719                (("gtk-update-icon-cache") "true")))))))
9720     (native-inputs
9721      `(("vala" ,vala)
9722        ("pkg-config" ,pkg-config)
9723        ("glib" ,glib "bin")             ; for glib-compile-resources
9724        ("desktop-file-utils" ,desktop-file-utils)
9725        ("gettext" ,gettext-minimal)
9726        ("itstool" ,itstool)))
9727     (inputs
9728      (list glib
9729            gtk+
9730            gsound
9731            geoclue
9732            geocode-glib
9733            libgweather
9734            libhandy
9735            gnome-desktop))
9736     (home-page "https://wiki.gnome.org/Apps/Clocks")
9737     (synopsis "GNOME's clock application")
9738     (description
9739      "GNOME Clocks is a simple clocks application designed to fit the GNOME
9740 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
9741     (license license:gpl3+)))
9742
9743 (define-public gnome-calendar
9744   (package
9745     (name "gnome-calendar")
9746     (version "40.2")
9747     (source (origin
9748               (method url-fetch)
9749               (uri (string-append "mirror://gnome/sources/" name "/"
9750                                   (version-major version) "/"
9751                                   name "-" version ".tar.xz"))
9752               (sha256
9753                (base32
9754                 "0czasxnmbw2zm21lmxam8qixacagciq3f815s809hn0f9byh2dwy"))))
9755     (build-system meson-build-system)
9756     (arguments
9757      `(#:glib-or-gtk? #t
9758        #:meson ,meson-0.59
9759        ;; gnome-calendar has to be installed before the tests can be run
9760        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
9761        #:tests? #f
9762        #:phases
9763        (modify-phases %standard-phases
9764          (add-after 'unpack 'skip-gtk-update-icon-cache
9765            ;; Don't create 'icon-theme.cache'.
9766            (lambda _
9767              (substitute* "build-aux/meson/meson_post_install.py"
9768                (("gtk-update-icon-cache") "true"))
9769              #t)))))
9770     (native-inputs
9771      `(("gettext" ,gettext-minimal)
9772        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
9773        ("pkg-config" ,pkg-config)))
9774     (inputs
9775      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9776        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9777        ("libdazzle" ,libdazzle)
9778        ("libedataserverui" ,evolution-data-server)
9779        ("libgweather" ,libgweather)
9780        ("libhandy" ,libhandy)
9781        ("geoclue" ,geoclue)))
9782     (propagated-inputs
9783      (list evolution-data-server))
9784     (home-page "https://wiki.gnome.org/Apps/Calendar")
9785     (synopsis "GNOME's calendar application")
9786     (description
9787      "GNOME Calendar is a simple calendar application designed to fit the GNOME
9788 desktop.  It supports multiple calendars, month, week and year view.")
9789     (license license:gpl3+)))
9790
9791 (define-public gnome-todo
9792   (package
9793     (name "gnome-todo")
9794     (version "40.1")
9795     (source (origin
9796               (method url-fetch)
9797               (uri (string-append "mirror://gnome/sources/" name "/"
9798                                   (version-major version) "/"
9799                                   name "-" version ".tar.xz"))
9800               (sha256
9801                (base32
9802                 "1r1fb3zgjvkhx93by24j8cg1w1g3zvwr49vqkscjn261vqs44jq3"))))
9803     (build-system meson-build-system)
9804     (arguments
9805      `(#:glib-or-gtk? #t
9806        ;; XXX: Some tests fail with the following error:
9807        ;; Settings schema 'org.gnome.todo' is not installed.
9808        #:tests? #f
9809        #:phases
9810        (modify-phases %standard-phases
9811          (add-after 'unpack 'skip-gtk-update-icon-cache
9812            ;; Don't create 'icon-theme.cache'.
9813            (lambda _
9814              (substitute* "build-aux/meson/meson_post_install.py"
9815                (("gtk-update-icon-cache") "true")))))))
9816     (native-inputs
9817      `(("gettext" ,gettext-minimal)
9818        ("gobject-introspection" ,gobject-introspection)
9819        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
9820        ("gtk-bin" ,gtk "bin")           ; For gtk-update-icon-cache
9821        ("pkg-config" ,pkg-config)))
9822     (inputs
9823      `(("rest" ,rest)                   ; For Todoist plugin
9824        ("gtk" ,gtk)
9825        ("json-glib" ,json-glib)         ; For Todoist plugin
9826        ("libadwaita" ,libadwaita)
9827        ("libedataserverui" ,evolution-data-server)
9828        ("libical" ,libical)
9829        ("libpeas" ,libpeas)
9830        ("libportal" ,libportal)
9831        ("python-pygobject" ,python-pygobject)
9832        ("evolution-data-server" ,evolution-data-server)
9833        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9834        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
9835     (home-page "https://wiki.gnome.org/Apps/Todo")
9836     (synopsis "GNOME's ToDo Application")
9837     (description
9838      "GNOME To Do is a simplistic personal task manager designed to perfectly
9839 fit the GNOME desktop.")
9840     (license license:gpl3+)))
9841
9842 (define-public gnome-dictionary
9843   (package
9844     (name "gnome-dictionary")
9845     (version "40.0")
9846     (source (origin
9847               (method url-fetch)
9848               (uri (string-append "mirror://gnome/sources/" name "/"
9849                                   (version-major version) "/"
9850                                   name "-" version ".tar.xz"))
9851               (sha256
9852                (base32
9853                 "1d8dhcfys788vv27v34i3s3x3jdvdi2kqn2a5p8c937a9hm0qr9f"))))
9854     (build-system meson-build-system)
9855     (arguments
9856      `(#:glib-or-gtk? #t
9857        #:meson ,meson-0.59
9858        #:phases
9859        (modify-phases %standard-phases
9860          (add-after 'unpack 'skip-gtk-update-icon-cache
9861            ;; Don't create 'icon-theme.cache'.
9862            (lambda _
9863              (substitute* "build-aux/meson/post-install.py"
9864                (("gtk-update-icon-cache") "true")))))))
9865     (native-inputs
9866      (list `(,glib "bin")
9867            gobject-introspection
9868            intltool
9869            itstool
9870            pkg-config
9871            libxml2))
9872     (inputs
9873      (list gsettings-desktop-schemas gtk+))
9874     (home-page "https://wiki.gnome.org/Apps/Dictionary")
9875     (synopsis "Look up words in dictionary sources")
9876     (description
9877      "GNOME Dictionary can look for the definition or translation of a word in
9878 existing databases over the internet.")
9879     (license license:gpl3+)))
9880
9881 (define-public gnome-tweaks
9882   (package
9883     (name "gnome-tweaks")
9884     (version "40.0")
9885     (source (origin
9886               (method url-fetch)
9887               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
9888                                   (version-major version) "/"
9889                                   "gnome-tweaks-" version ".tar.xz"))
9890               (patches
9891                (list (search-patch "gnome-tweaks-search-paths.patch")))
9892               (sha256
9893                (base32
9894                 "0sn3xsjhnini0f2dyi1ymrr3fb8mi7w5j5lsyw11rc5h67h3ypzr"))))
9895     (build-system meson-build-system)
9896     (arguments
9897      `(#:glib-or-gtk? #t
9898        #:meson ,meson-0.59
9899        #:configure-flags '("-Dlocalstatedir=/tmp"
9900                            "-Dsysconfdir=/tmp")
9901        #:imported-modules ((guix build python-build-system)
9902                            ,@%meson-build-system-modules)
9903        #:phases
9904        (modify-phases %standard-phases
9905          (add-after 'unpack 'skip-gtk-update-icon-cache
9906            ;; Don't create 'icon-theme.cache'.
9907            (lambda _
9908              (substitute* "meson-postinstall.py"
9909                (("gtk-update-icon-cache") "true"))))
9910          (add-after 'install 'wrap
9911            (@@ (guix build python-build-system) wrap))
9912          (add-after 'wrap 'wrap-gi-typelib-and-python
9913            (lambda* (#:key inputs outputs #:allow-other-keys)
9914              (let ((out               (assoc-ref outputs "out"))
9915                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9916                (let ((python-path
9917                       (string-append out "/lib/python"
9918                                      ,(version-major+minor
9919                                        (package-version python))
9920                                      "/site-packages")))
9921                  (wrap-program (string-append out "/bin/gnome-tweaks")
9922                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
9923                    `("GUIX_PYTHONPATH" ":" prefix (,python-path))))))))))
9924     (native-inputs
9925      `(("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
9926        ("intltool" ,intltool)
9927        ("pkg-config" ,pkg-config)))
9928     (inputs
9929      (list bash-minimal ; to execute the wrapper program
9930            gnome-desktop
9931            gtk+
9932            gobject-introspection
9933            gsettings-desktop-schemas
9934            libhandy
9935            libnotify
9936            libsoup
9937            nautilus
9938            python
9939            python-pygobject))
9940     (synopsis "Customize advanced GNOME 3 options")
9941     (home-page "https://wiki.gnome.org/Apps/Tweaks")
9942     (description
9943      "GNOME Tweaks allows adjusting advanced configuration settings in
9944 GNOME 3.  This includes things like the fonts used in user interface elements,
9945 alternative user interface themes, changes in window management behavior,
9946 GNOME Shell appearance and extension, etc.")
9947     (license license:gpl3+)))
9948
9949 (define-public gnome-shell-extensions
9950   (package
9951     (name "gnome-shell-extensions")
9952     (version "41.0")
9953     (source (origin
9954               (method url-fetch)
9955               (uri (string-append "mirror://gnome/sources/" name "/"
9956                                   (version-major version)  "/"
9957                                   name "-" version ".tar.xz"))
9958               (sha256
9959                (base32
9960                 "0s7wcsa0ysdgh5zpxpa95id5rz4ajb2r1561v5szjf4b8k0slkyq"))))
9961     (build-system meson-build-system)
9962     (arguments
9963      '(#:configure-flags '("-Dextension_set=all")))
9964     (native-inputs
9965      `(("glib:bin" ,glib "bin")
9966        ("intltool" ,intltool)
9967        ("pkg-config" ,pkg-config)))
9968     (propagated-inputs
9969      (list glib))
9970     (synopsis "Extensions for GNOME Shell")
9971     (description "GNOME Shell extensions modify and extend GNOME Shell
9972 functionality and behavior.")
9973     (home-page "https://extensions.gnome.org/")
9974     (license license:gpl3+)))
9975
9976 (define-public folks
9977   (package
9978     (name "folks")
9979     (version "0.15.3")
9980     (source (origin
9981               (method url-fetch)
9982               (uri (string-append
9983                     "mirror://gnome/sources/folks/"
9984                     (version-major+minor version) "/"
9985                     "folks-" version ".tar.xz"))
9986               (sha256
9987                (base32
9988                 "19a4qp9ry8y24jx1v5456qn9lnw843571vkkah3bxx4ky3x3gmr1"))))
9989     (build-system meson-build-system)
9990     (arguments
9991      '(#:phases
9992        (modify-phases %standard-phases
9993          (add-after 'unpack 'skip-gtk-update-icon-cache
9994            ;; Don't create 'icon-theme.cache'.
9995            (lambda _
9996              (substitute* "meson_post_install.py"
9997                (("gtk-update-icon-cache") "true"))
9998              #t)))))
9999     (inputs
10000      (list bdb
10001            dbus-glib
10002            evolution-data-server
10003            glib
10004            libgee
10005            readline
10006            telepathy-glib))
10007     (native-inputs
10008      `(("glib:bin" ,glib "bin")
10009        ("gobject-introspection" ,gobject-introspection)
10010        ("python-dbusmock" ,python-dbusmock)
10011        ("intltool" ,intltool)
10012        ("pkg-config" ,pkg-config)
10013        ("vala" ,vala)))
10014     (synopsis "Library to aggregate data about people")
10015     (description "Libfolks is a library that aggregates information about people
10016 from multiple sources (e.g., Telepathy connection managers for IM contacts,
10017 Evolution Data Server for local contacts, libsocialweb for web service contacts,
10018 etc.) to create metacontacts.  It's written in Vala, which generates C code when
10019 compiled.")
10020     (home-page "https://wiki.gnome.org/Projects/Folks")
10021     (license license:lgpl2.1+)))
10022
10023 (define-public gfbgraph
10024   (package
10025     (name "gfbgraph")
10026     (version "0.2.4")
10027     (source (origin
10028               (method url-fetch)
10029               (uri (string-append
10030                     "mirror://gnome/sources/gfbgraph/"
10031                     (version-major+minor version) "/"
10032                     "gfbgraph-" version ".tar.xz"))
10033               (sha256
10034                (base32
10035                 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
10036     (build-system glib-or-gtk-build-system)
10037     (arguments
10038      `(#:tests? #f                      ; tests appear to require the network
10039        #:configure-flags '("--disable-static"
10040                            "--enable-gtk-doc"
10041                            "--enable-introspection")))
10042     (native-inputs
10043      (list gobject-introspection
10044            gtk-doc/stable
10045            pkg-config
10046            ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
10047            autoconf
10048            automake
10049            libtool
10050            which))
10051     (inputs
10052      `(("json-glib" ,json-glib)
10053        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
10054        ("rest" ,rest)))
10055     (synopsis "GLib/GObject wrapper for the Facebook API")
10056     (description "This library allows you to use the Facebook API from
10057 GLib/GObject code.")
10058     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
10059     (license license:lgpl2.1+)))
10060
10061 (define-public libgnomekbd
10062   (package
10063     (name "libgnomekbd")
10064     (version "3.26.1")
10065     (source (origin
10066               (method url-fetch)
10067               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
10068                                   (version-major+minor version)  "/"
10069                                   "libgnomekbd-" version ".tar.xz"))
10070               (sha256
10071                (base32
10072                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
10073     (build-system gnu-build-system)
10074     (native-inputs
10075      (list pkg-config
10076            `(,glib "bin") intltool))
10077     (propagated-inputs
10078      ;; Referred to in .h files and .pc.
10079      (list glib gtk+ libxklavier))
10080     (home-page "https://www.gnome.org")
10081     (synopsis "GNOME keyboard configuration library")
10082     (description
10083      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
10084 environment, which can notably display keyboard layouts.")
10085     (license license:lgpl2.0+)))
10086
10087 ;;; This package is no longer maintained:
10088 ;;; https://wiki.gnome.org/Attic/LibUnique
10089 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
10090 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
10091 (define-public libunique
10092   (package
10093     (name "libunique")
10094     (version "3.0.2")
10095     (source (origin
10096               (method url-fetch)
10097               (uri (string-append "mirror://gnome/sources/" name "/"
10098                                   (version-major+minor version)  "/"
10099                                   name "-" version ".tar.xz"))
10100               (sha256
10101                (base32
10102                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
10103     (build-system glib-or-gtk-build-system)
10104     (arguments
10105      `(#:configure-flags '("--disable-static"
10106                            "--disable-dbus" ; use gdbus
10107                            "--enable-introspection")))
10108     (native-inputs
10109      `(("pkg-config" ,pkg-config)
10110        ("gobject-introspection" ,gobject-introspection)
10111        ("glib:bin" ,glib "bin")
10112        ("gtk-doc" ,gtk-doc/stable)))
10113     (propagated-inputs
10114      ;; Referred to in .h files and .pc.
10115      (list gtk+))
10116     (home-page "https://wiki.gnome.org/Attic/LibUnique")
10117     (synopsis "Library for writing single instance applications")
10118     (description
10119      "Libunique is a library for writing single instance applications.  If you
10120 launch a single instance application twice, the second instance will either just
10121 quit or will send a message to the running instance.  Libunique makes it easy to
10122 write this kind of application, by providing a base class, taking care of all
10123 the IPC machinery needed to send messages to a running instance, and also
10124 handling the startup notification side.")
10125     (license license:lgpl2.1+)))
10126
10127 (define-public gnome-calculator
10128   (package
10129     (name "gnome-calculator")
10130     (version "40.1")
10131     (source
10132      (origin
10133        (method url-fetch)
10134        (uri (string-append "mirror://gnome/sources/" name "/"
10135                            (version-major version) "/"
10136                            name "-" version ".tar.xz"))
10137        (sha256
10138         (base32
10139          "1xkazxbkpn1z5pfphhps7fc5q4yc8lp7f6b222n8bx5iyxhwbrkz"))))
10140     (build-system meson-build-system)
10141     (arguments
10142      '(#:glib-or-gtk? #t
10143        #:phases
10144        (modify-phases %standard-phases
10145          (add-before 'check 'pre-check
10146            (lambda _
10147              ;; Tests require a writable HOME.
10148              (setenv "HOME" (getcwd)))))))
10149     (native-inputs
10150      `(("gettext" ,gettext-minimal)
10151        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
10152        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
10153        ("itstool" ,itstool)
10154        ("vala" ,vala)
10155        ("pkg-config" ,pkg-config)))
10156     (inputs
10157      `(("glib" ,glib)
10158        ("gtksourceview" ,gtksourceview)
10159        ("libgee" ,libgee)
10160        ("libhandy" ,libhandy)
10161        ("libsoup" ,libsoup-minimal-2)
10162        ("libxml2" ,libxml2)
10163        ("mpc" ,mpc)
10164        ("mpfr" ,mpfr)))
10165     (home-page "https://wiki.gnome.org/Apps/Calculator")
10166     (synopsis "Desktop calculator")
10167     (description
10168      "Calculator is an application that solves mathematical equations and
10169 is suitable as a default application in a Desktop environment.")
10170     (license license:gpl3)))
10171
10172 (define-public xpad
10173   (package
10174     (name "xpad")
10175     (version "5.1.0")
10176     (source
10177      (origin
10178        (method url-fetch)
10179        (uri (string-append "https://launchpad.net/xpad/trunk/"
10180                            version "/+download/"
10181                            name "-" version ".tar.bz2"))
10182        (sha256
10183         (base32
10184          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
10185     (build-system gnu-build-system)
10186     (native-inputs
10187      (list autoconf automake
10188            `(,gtk+ "bin") intltool pkg-config))
10189     (inputs
10190      (list gtksourceview-3 libsm))
10191     (home-page "https://wiki.gnome.org/Apps/Xpad")
10192     (synopsis "Virtual sticky note")
10193     (description
10194      "Xpad is a sticky note that strives to be simple, fault tolerant,
10195 and customizable.  Xpad consists of independent pad windows, each is
10196 basically a text box in which notes can be written.")
10197     (license license:gpl3+)))
10198
10199 (define-public gucharmap
10200   (let ((unicode-files
10201          '(("Blocks.txt"
10202             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
10203            ("DerivedAge.txt"
10204             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
10205            ("NamesList.txt"
10206             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
10207            ("Scripts.txt"
10208             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
10209            ("UnicodeData.txt"
10210             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
10211            ("Unihan.zip"
10212             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
10213     (package
10214       (name "gucharmap")
10215       (version "12.0.1")
10216       (source
10217        (origin
10218          (method url-fetch)
10219          (uri (string-append "mirror://gnome/sources/" name "/"
10220                              (version-major+minor version) "/"
10221                              name "-" version ".tar.xz"))
10222          (sha256
10223           (base32
10224            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
10225       (build-system glib-or-gtk-build-system)
10226       (arguments
10227        `(#:modules ((ice-9 match)
10228                     (guix build glib-or-gtk-build-system)
10229                     (guix build utils))
10230          #:configure-flags
10231          (list "--with-unicode-data=../unicode-data")
10232          #:phases
10233          (modify-phases %standard-phases
10234            (add-after 'unpack 'prepare-unicode-data
10235              (lambda* (#:key inputs #:allow-other-keys)
10236                (mkdir-p "../unicode-data")
10237                (with-directory-excursion "../unicode-data"
10238                  (for-each (match-lambda
10239                              ((file _)
10240                               (install-file (assoc-ref inputs file) ".")))
10241                            ',unicode-files))
10242                #t)))))
10243       (native-inputs
10244        `(("desktop-file-utils" ,desktop-file-utils)
10245          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
10246          ("gobject-introspection" ,gobject-introspection)
10247          ("intltool" ,intltool)
10248          ("itstool" ,itstool)
10249          ("pkg-config" ,pkg-config)
10250          ,@(map (match-lambda
10251                   ((file hash)
10252                    `(,file
10253                      ,(origin
10254                         (method url-fetch)
10255                         (uri (string-append
10256                               "http://www.unicode.org/Public/12.0.0/ucd/"
10257                               file))
10258                         (sha256 (base32 hash))))))
10259                 unicode-files)
10260          ("unzip" ,unzip)))
10261       (inputs
10262        `(("gtk+" ,gtk+)
10263          ("xmllint" ,libxml2)))
10264       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
10265       (synopsis "Unicode character picker and font browser")
10266       (description
10267        "This program allows you to browse through all the available Unicode
10268 characters and categories for the installed fonts, and to examine their
10269 detailed properties.  It is an easy way to find the character you might
10270 only know by its Unicode name or code point.")
10271       (license license:gpl3+))))
10272
10273 (define-public gcolor3
10274   (package
10275     (name "gcolor3")
10276     (version "2.4.0")
10277     (source
10278      (origin
10279        (method git-fetch)
10280        (uri (git-reference
10281              (url "https://gitlab.gnome.org/World/gcolor3")
10282              (commit (string-append "v" version))))
10283        (file-name (git-file-name name version))
10284        (sha256
10285         (base32 "1igqmach1vhcrvbpw346pmkbb5kabbb806ssswrvkp569n700wmc"))))
10286     (build-system meson-build-system)
10287     (arguments
10288      `(#:glib-or-gtk? #t))
10289     (native-inputs
10290      `(("desktop-file-utils" ,desktop-file-utils)
10291        ("gettext" ,gettext-minimal)
10292        ("glib:bin" ,glib "bin")
10293        ("gtk+:bin" ,gtk+ "bin")
10294        ("pkg-config" ,pkg-config)))
10295     (inputs
10296      (list gsettings-desktop-schemas gtk+ libportal))
10297     (home-page "https://www.hjdskes.nl/projects/gcolor3/")
10298     (synopsis "Simple color chooser written in GTK3")
10299     (description "Color Picker is a simple color chooser written in GTK3.  It
10300 supports both X and Wayland display servers.")
10301     (license license:gpl2+)))
10302
10303 (define-public bluefish
10304   (package
10305     (name "bluefish")
10306     (version "2.2.12")
10307     (source
10308      (origin
10309        (method url-fetch)
10310        (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
10311                            "bluefish-" version ".tar.gz"))
10312        (sha256
10313         (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
10314     (build-system gnu-build-system)
10315     (native-inputs
10316      (list desktop-file-utils intltool pkg-config))
10317     (inputs
10318      (list enchant gtk+ python-wrapper libxml2 gucharmap))
10319     (home-page "http://bluefish.openoffice.nl")
10320     (synopsis "Web development studio")
10321     (description
10322      "Bluefish is an editor aimed at programmers and web developers,
10323 with many options to write web sites, scripts and other code.
10324 Bluefish supports many programming and markup languages.")
10325     (license license:gpl3+)))
10326
10327 (define-public gnome-system-monitor
10328   (package
10329     (name "gnome-system-monitor")
10330     (version "40.1")
10331     (source
10332      (origin
10333        (method url-fetch)
10334        (uri (string-append "mirror://gnome/sources/" name "/"
10335                            (version-major version) "/"
10336                            name "-" version ".tar.xz"))
10337        (sha256
10338         (base32
10339          "06hxd4igxas2kyind5jwfq5qbfkknykpdfy2sy3anylhcx1hzczx"))))
10340     (build-system meson-build-system)
10341     (arguments
10342      '(#:glib-or-gtk? #t
10343        #:configure-flags '("-Dsystemd=false")))
10344     (native-inputs
10345      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
10346        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
10347        ("intltool" ,intltool)
10348        ("itstool" ,itstool)
10349        ("libgtop" ,libgtop)
10350        ("polkit" ,polkit)
10351        ("pkg-config" ,pkg-config)))
10352     (inputs
10353      (list gdk-pixbuf ; for loading SVG files.
10354            gtk+
10355            gtkmm-3
10356            libhandy
10357            librsvg
10358            libxml2
10359            libwnck))
10360     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
10361     (synopsis "Process viewer and system resource monitor for GNOME")
10362     (description
10363      "GNOME System Monitor is a GNOME process viewer and system monitor with
10364 an attractive, easy-to-use interface.  It has features, such as a tree view
10365 for process dependencies, icons for processes, the ability to hide processes,
10366 graphical time histories of CPU/memory/swap usage and the ability to
10367 kill/reinice processes.")
10368     (license license:gpl2+)))
10369
10370 (define-public python-pyatspi
10371   (package
10372     (name "python-pyatspi")
10373     (version "2.34.0")
10374     (source (origin
10375               (method url-fetch)
10376               (uri (string-append
10377                     "mirror://gnome/sources/pyatspi/"
10378                     (version-major+minor version)
10379                     "/pyatspi-" version ".tar.xz"))
10380               (sha256
10381                (base32
10382                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
10383     (build-system gnu-build-system)
10384     (arguments
10385      `(#:phases
10386        (modify-phases %standard-phases
10387          (add-before 'build 'fix-atk-load
10388            (lambda _
10389              (substitute* "pyatspi/__init__.py"
10390                (("from gi.repository import Atspi")
10391                 "gi.require_version('Gtk', '3.0')
10392 from gi.repository import Gtk
10393 from gi.repository import Atspi"))
10394              #t)))))
10395     (native-inputs
10396      (list pkg-config))
10397     (inputs
10398      (list python))
10399     (propagated-inputs
10400      (list python-pygobject))
10401     (synopsis "Python client bindings for D-Bus AT-SPI")
10402     (home-page "https://wiki.linuxfoundation.org/accessibility\
10403 /atk/at-spi/at-spi_on_d-bus")
10404     (description
10405      "This package includes a python client library for the AT-SPI D-Bus
10406 accessibility infrastructure.")
10407     (license license:lgpl2.0)
10408     (properties '((upstream-name . "pyatspi")))))
10409
10410 (define-public python2-pyatspi
10411   (package/inherit python-pyatspi
10412     (name "python2-pyatspi")
10413     (inputs
10414      `(("python" ,python-2)))
10415     (propagated-inputs
10416      `(("python-pygobject" ,python2-pygobject)))))
10417
10418 (define-public orca
10419   (package
10420     (name "orca")
10421     (version "40.0")
10422     (source (origin
10423               (method url-fetch)
10424               (uri (string-append
10425                     "mirror://gnome/sources/" name "/"
10426                     (version-major version) "/"
10427                     name "-" version ".tar.xz"))
10428               (sha256
10429                (base32
10430                 "0hq0zdcn80ficpcffbk667907v6m7dih3dhyc7ss01mrj3iyw000"))))
10431     (build-system glib-or-gtk-build-system)
10432     (arguments
10433      '(#:phases
10434        (modify-phases %standard-phases
10435          (add-before 'configure 'qualify-xkbcomp
10436            (lambda* (#:key inputs #:allow-other-keys)
10437              (let ((xkbcomp (string-append
10438                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10439                (substitute* "src/orca/orca.py"
10440                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
10441              #t))
10442          (add-after 'install 'wrap-orca
10443            (lambda* (#:key outputs #:allow-other-keys)
10444              (let* ((out  (assoc-ref outputs "out"))
10445                     (prog (string-append out "/bin/orca")))
10446                (wrap-program prog
10447                  `("GI_TYPELIB_PATH" ":" prefix
10448                    (,(getenv "GI_TYPELIB_PATH")))
10449                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10450                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10451                  `("GUIX_PYTHONPATH" ":" prefix
10452                    (,(getenv "GUIX_PYTHONPATH")))))
10453              #t)))))
10454     (native-inputs
10455      `(("intltool" ,intltool)
10456        ("itstool" ,itstool)
10457        ("pkg-config" ,pkg-config)
10458        ("xmllint" ,libxml2)))
10459     (inputs
10460      `(("at-spi2-atk" ,at-spi2-atk)
10461        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10462        ("gstreamer" ,gstreamer)
10463        ("gst-plugins-base" ,gst-plugins-base)
10464        ("gst-plugins-good" ,gst-plugins-good)
10465        ("gtk+" ,gtk+)
10466        ("python" ,python)
10467        ("python-pygobject" ,python-pygobject)
10468        ("python-pyatspi" ,python-pyatspi)
10469        ("python-speechd" ,speech-dispatcher)
10470        ("xkbcomp" ,xkbcomp)))
10471     (synopsis
10472      "Screen reader for individuals who are blind or visually impaired")
10473     (home-page "https://wiki.gnome.org/Projects/Orca")
10474     (description
10475      "Orca is a screen reader that provides access to the graphical desktop
10476 via speech and refreshable braille.  Orca works with applications and toolkits
10477 that support the Assistive Technology Service Provider Interface (AT-SPI).")
10478     (license license:lgpl2.1+)))
10479
10480 (define-public gspell
10481   (package
10482     (name "gspell")
10483     (version "1.8.2")
10484     (source (origin
10485               (method url-fetch)
10486               (uri (string-append "mirror://gnome/sources/" name "/"
10487                                   (version-major+minor version) "/"
10488                                   name "-" version ".tar.xz"))
10489               (sha256
10490                (base32
10491                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
10492               (patches (search-patches "gspell-dash-test.patch"))))
10493     (build-system glib-or-gtk-build-system)
10494     (arguments
10495      '(#:configure-flags (list "--enable-vala")
10496        #:phases
10497        (modify-phases %standard-phases
10498          (add-before 'check 'pre-check
10499            (lambda* (#:key inputs #:allow-other-keys)
10500              ;; Tests require a running X server.
10501              (system "Xvfb :1 &")
10502              (setenv "DISPLAY" ":1")
10503
10504              ;; For the missing /etc/machine-id.
10505              (setenv "DBUS_FATAL_WARNINGS" "0")
10506
10507              ;; Allow Enchant and its Aspell backend to find the en_US
10508              ;; dictionary.
10509              (setenv "ASPELL_DICT_DIR"
10510                      (search-input-directory inputs "/lib/aspell")))))))
10511     (inputs
10512      (list iso-codes))
10513     (native-inputs
10514      `(("glib" ,glib "bin")
10515        ("gobject-introspection" ,gobject-introspection)
10516        ("pkg-config" ,pkg-config)
10517        ("vala" ,vala)                             ;for VAPI, needed by Geary
10518        ("xmllint" ,libxml2)
10519
10520        ;; For tests.
10521        ("aspell-dict-en" ,aspell-dict-en)
10522        ("xorg-server" ,xorg-server-for-tests)))
10523     (propagated-inputs
10524      ;; Referred by .pc file.
10525      (list enchant glib gtk+))
10526     (home-page "https://wiki.gnome.org/Projects/gspell")
10527     (synopsis "GNOME's alternative spell checker")
10528     (description
10529      "gspell provides a flexible API to add spell-checking to a GTK+
10530 application.  It provides a GObject API, spell-checking to text entries and
10531 text views, and buttons to choose the language.")
10532     (license license:gpl2+)))
10533
10534 (define-public gnome-planner
10535   (package
10536     (name "gnome-planner")
10537     (version "0.14.6")
10538     (source (origin
10539               (method url-fetch)
10540               (uri (string-append "mirror://gnome/sources/planner/"
10541                                   (version-major+minor version) "/planner-"
10542                                   version ".tar.xz"))
10543               (sha256
10544                (base32
10545                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10546     (build-system glib-or-gtk-build-system)
10547     (arguments
10548      ;; Disable the Python bindings because the Planner program functions
10549      ;; without them, and (as of 2017-06-13) we have not packaged all of
10550      ;; packages that are necessary for building the Python bindings.
10551      `(#:configure-flags
10552        (list "--disable-python"
10553              ,@(if (string=? "aarch64-linux" (%current-system))
10554                    '("--build=aarch64-unknown-linux-gnu")
10555                    '()))))
10556     (inputs
10557      (list libgnomecanvas
10558            libgnomeui
10559            libglade
10560            gnome-vfs
10561            gconf
10562            libxml2
10563            libxslt
10564            gtk+
10565            glib))
10566     (native-inputs
10567      (list intltool scrollkeeper pkg-config))
10568     (home-page "https://wiki.gnome.org/Apps/Planner")
10569     (synopsis "Project management software for the GNOME desktop")
10570     (description
10571      "GNOME Planner is a project management tool based on the Work Breakdown
10572 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
10573 the resources, tasks, and constraints that you define, Planner generates
10574 various views into a project.  For example, Planner can show a Gantt chart of
10575 the project.  It can show a detailed summary of tasks including their
10576 duration, cost, and current progress.  It can also show a report of resource
10577 utilization that highlights under-utilized and over-utilized resources.  These
10578 views can be printed as PDF or PostScript files, or exported to HTML.")
10579     (license license:gpl2+)))
10580
10581 (define-public lollypop
10582   (package
10583     (name "lollypop")
10584     (version "1.4.24")
10585     (source
10586      (origin
10587        (method url-fetch)
10588        (uri (string-append "https://adishatz.org/lollypop/"
10589                            "lollypop-" version ".tar.xz"))
10590        (sha256
10591         (base32 "10cw3x75siibmnbh4zhfmf2vd08fqjs3lj3l4wpk6zj9h22ncfxw"))))
10592     (build-system meson-build-system)
10593     (arguments
10594      `(#:imported-modules
10595        (,@%meson-build-system-modules
10596         (guix build python-build-system))
10597        #:modules
10598        ((guix build meson-build-system)
10599         ((guix build python-build-system) #:prefix python:)
10600         (guix build utils))
10601        #:glib-or-gtk? #t
10602        #:tests? #f                      ; no test suite
10603        #:phases
10604        (modify-phases %standard-phases
10605          (add-after 'install 'wrap-program
10606            (lambda* (#:key outputs #:allow-other-keys)
10607              (let ((out               (assoc-ref outputs "out"))
10608                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10609                (wrap-program (string-append out "/bin/lollypop")
10610                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10611              #t))
10612          (add-after 'install 'wrap-python
10613            (assoc-ref python:%standard-phases 'wrap)))))
10614     (native-inputs
10615      `(("gettext" ,gettext-minimal)
10616        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
10617        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
10618        ("pkg-config" ,pkg-config)))
10619     (inputs
10620      `(("glib-networking" ,glib-networking)
10621        ("gobject-introspection" ,gobject-introspection)
10622        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10623        ("gst-plugins-base" ,gst-plugins-base)
10624        ("libnotify" ,libnotify)
10625        ("libsecret" ,libsecret)
10626        ("libhandy" ,libhandy)
10627        ("libsoup" ,libsoup-minimal-2)
10628        ("python" ,python)
10629        ("python-beautifulsoup4" ,python-beautifulsoup4)
10630        ("python-gst" ,python-gst)
10631        ("python-pil" ,python-pillow)
10632        ("python-pycairo" ,python-pycairo)
10633        ("python-pygobject" ,python-pygobject)
10634        ("python-pylast" ,python-pylast)
10635        ("totem-pl-parser" ,totem-pl-parser)
10636        ("webkitgtk" ,webkitgtk)))
10637     (propagated-inputs
10638      (list ;; gst-plugins-base is required to start Lollypop,
10639            ;; the others are required to play streaming.
10640            gst-plugins-good gst-plugins-ugly))
10641     (home-page "https://wiki.gnome.org/Apps/Lollypop")
10642     (synopsis "GNOME music playing application")
10643     (description
10644      "Lollypop is a music player designed to play well with GNOME desktop.
10645 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10646 from artists and tracks from the web.  It also fetches cover artworks
10647 automatically and it can stream songs from online music services and charts.")
10648     (license license:gpl3+)))
10649
10650 (define-public gnome-video-effects
10651   (package
10652     (name "gnome-video-effects")
10653     (version "0.5.0")
10654     (source (origin
10655               (method url-fetch)
10656               (uri (string-append "mirror://gnome/sources/" name "/"
10657                                   (version-major+minor version) "/" name "-"
10658                                   version ".tar.xz"))
10659               (sha256
10660                (base32
10661                 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10662     (build-system meson-build-system)
10663     (native-inputs
10664      (list gettext-minimal pkg-config))
10665     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10666     (synopsis "Video effects for Cheese and other GNOME applications")
10667     (description
10668      "A collection of GStreamer video filters and effects to be used in
10669 photo-booth-like software, such as Cheese.")
10670     (license license:gpl2+)))
10671
10672 (define-public cheese
10673   (package
10674     (name "cheese")
10675     (version "3.38.0")
10676     (source (origin
10677               (method url-fetch)
10678               (uri (string-append "mirror://gnome/sources/" name "/"
10679                                   (version-major+minor version) "/" name "-"
10680                                   version ".tar.xz"))
10681               (sha256
10682                (base32
10683                 "0vyim2avlgq3a48rgdfz5g21kqk11mfb53b2l883340v88mp7ll8"))
10684               (patches (search-patches "cheese-vala-update.patch"))))
10685     (arguments
10686      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
10687        #:glib-or-gtk? #t
10688        ;; Tests require GDK.
10689        #:tests? #f
10690        #:phases
10691        (modify-phases %standard-phases
10692          (add-after 'unpack 'skip-gtk-update-icon-cache
10693            (lambda _
10694              ;; Don't create 'icon-theme.cache'
10695              (substitute* "meson_post_install.py"
10696                (("gtk-update-icon-cache") (which "true")))
10697              #t))
10698          (add-after 'unpack 'patch-docbook-xml
10699            (lambda* (#:key inputs #:allow-other-keys)
10700              ;; Avoid a network connection attempt during the build.
10701              (substitute* '("docs/reference/cheese.xml"
10702                             "docs/reference/cheese-docs.xml")
10703                (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
10704                 (string-append (assoc-ref inputs "docbook-xml")
10705                                "/xml/dtd/docbook/docbookx.dtd")))
10706              #t))
10707          (add-after 'install 'wrap-cheese
10708            (lambda* (#:key inputs outputs #:allow-other-keys)
10709              (let ((out             (assoc-ref outputs "out"))
10710                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10711                (wrap-program (string-append out "/bin/cheese")
10712                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10713              #t)))))
10714     (build-system meson-build-system)
10715     (native-inputs
10716      `(("docbook-xsl" ,docbook-xsl)
10717        ("docbook-xml" ,docbook-xml-4.3)
10718        ("gettext" ,gettext-minimal)
10719        ("glib:bin" ,glib "bin")
10720        ("gtk-doc" ,gtk-doc/stable)
10721        ("itstool" ,itstool)
10722        ("libxml2" ,libxml2)
10723        ("libxslt" ,libxslt)
10724        ("pkg-config" ,pkg-config)
10725        ("vala" ,vala)))
10726     (propagated-inputs
10727      (list gnome-video-effects
10728            clutter
10729            clutter-gst
10730            clutter-gtk
10731            libcanberra
10732            gdk-pixbuf
10733            glib
10734            gstreamer))
10735     (inputs
10736      (list gnome-desktop
10737            gobject-introspection
10738            gst-plugins-base
10739            gst-plugins-good
10740            gst-plugins-bad
10741            gtk+
10742            libx11
10743            libxtst))
10744     (home-page "https://wiki.gnome.org/Apps/Cheese")
10745     (synopsis "Webcam photo booth software for GNOME")
10746     (description
10747      "Cheese uses your webcam to take photos and videos.  Cheese can also
10748 apply fancy special effects and lets you share the fun with others.")
10749     (license license:gpl2+)))
10750
10751 (define-public passwordsafe
10752   (package
10753     (name "passwordsafe")
10754     (version "5.0")
10755     (source
10756      (origin
10757        (method git-fetch)
10758        (uri (git-reference
10759              (url "https://gitlab.gnome.org/World/PasswordSafe")
10760              (commit version)))
10761        (file-name (git-file-name name version))
10762        (sha256
10763         (base32 "1xh64bbg10gnfzlck5jvqy2zk6hbk9cyqgv85xc9kbdvs8n4lhgh"))))
10764     (build-system meson-build-system)
10765     (arguments
10766      (list #:glib-or-gtk? #t
10767            #:meson meson-0.59
10768            #:phases
10769            #~(modify-phases %standard-phases
10770                (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
10771                  (lambda* (#:key outputs #:allow-other-keys)
10772                    (let ((prog (string-append #$output
10773                                               "/bin/gnome-passwordsafe"))
10774                          (pylib (string-append
10775                                  #$output "/lib/python"
10776                                  #$(version-major+minor
10777                                     (package-version (this-package-input "python")))
10778                                  "/site-packages")))
10779                      (wrap-program prog
10780                        `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
10781                        `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
10782     (native-inputs
10783      (list desktop-file-utils
10784            gettext-minimal
10785            `(,glib "bin")
10786            gobject-introspection
10787            `(,gtk+ "bin")
10788            pkg-config))
10789     (inputs
10790      (list glib
10791            gsettings-desktop-schemas
10792            gtk+
10793            libhandy
10794            libpwquality
10795            python
10796            python-pygobject
10797            python-pykeepass))
10798     (home-page "https://gitlab.gnome.org/World/PasswordSafe")
10799     (synopsis "Password manager for the GNOME desktop")
10800     (description
10801      "Password Safe is a password manager which makes use of the KeePass v4
10802 format.  It integrates perfectly with the GNOME desktop and provides an easy
10803 and uncluttered interface for the management of password databases.")
10804     (license license:gpl3+)))
10805
10806 (define-public sound-juicer
10807   (package
10808     (name "sound-juicer")
10809     (version "3.24.0")
10810     (source
10811      (origin
10812        (method url-fetch)
10813        (uri (string-append "mirror://gnome/sources/" name "/"
10814                            (version-major+minor version) "/"
10815                            name "-" version ".tar.xz"))
10816        (sha256
10817         (base32
10818          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
10819     (build-system glib-or-gtk-build-system)
10820     (native-inputs
10821      (list desktop-file-utils intltool itstool pkg-config libxml2))
10822     (inputs
10823      (list gtk+
10824            gsettings-desktop-schemas
10825            gstreamer
10826            gst-plugins-base
10827            gst-plugins-good
10828            iso-codes
10829            brasero
10830            libcanberra
10831            libdiscid
10832            libmusicbrainz
10833            neon))
10834     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
10835     (synopsis "Audio music cd ripper")
10836     (description "Sound Juicer extracts audio from compact discs and convert it
10837 into audio files that a personal computer or digital audio player can play.
10838 It supports ripping to any audio codec supported by a GStreamer plugin, such as
10839 mp3, Ogg Vorbis and FLAC")
10840     (license license:gpl2+)))
10841
10842 (define-public soundconverter
10843   (package
10844     (name "soundconverter")
10845     (version "3.0.2")
10846     (source
10847      (origin
10848        (method url-fetch)
10849        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
10850                            version "/+download/"
10851                            "soundconverter-" version ".tar.xz"))
10852
10853        (sha256
10854         (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
10855     (build-system glib-or-gtk-build-system)
10856     (arguments
10857      `(#:imported-modules ((guix build python-build-system)
10858                            (guix build glib-or-gtk-build-system)
10859                            ,@%gnu-build-system-modules)
10860
10861        #:modules ((guix build glib-or-gtk-build-system)
10862                   (guix build utils)
10863                   ((guix build gnu-build-system) #:prefix gnu:)
10864                   ((guix build python-build-system) #:prefix python:))
10865
10866        #:phases
10867        (modify-phases %standard-phases
10868          (add-after 'install 'wrap-soundconverter-for-python
10869            (assoc-ref python:%standard-phases 'wrap))
10870          (add-after 'install 'wrap-soundconverter
10871            (lambda* (#:key inputs outputs #:allow-other-keys)
10872              (let ((out               (assoc-ref outputs "out"))
10873                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
10874                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
10875                (wrap-program (string-append out "/bin/soundconverter")
10876                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
10877                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10878              #t)))))
10879     (native-inputs
10880      `(("intltool" ,intltool)
10881        ("pkg-config" ,pkg-config)
10882        ("glib:bin" ,glib "bin")))
10883     (inputs
10884      (list gtk+ python python-pygobject gstreamer gst-plugins-base))
10885     (home-page "https://soundconverter.org/")
10886     (synopsis "Convert between audio formats with a graphical interface")
10887     (description
10888      "SoundConverter supports converting between many audio formats including
10889 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
10890 configurable file renaming.")
10891     (license license:gpl3)))
10892
10893 (define-public workrave
10894   (package
10895     (name "workrave")
10896     (version "1.10.48")
10897     (source
10898      (origin
10899        (method git-fetch)
10900        (uri (git-reference
10901              (url "https://github.com/rcaelers/workrave")
10902              (commit (string-append "v" (string-map
10903                                          (match-lambda (#\. #\_) (chr chr))
10904                                          version)))))
10905        (file-name (git-file-name name version))
10906        (sha256
10907         (base32 "0qcknxylk9mr0xzszsd1rkgh2zpnix20m998dfclkm9x8zh9pvyr"))))
10908     (build-system glib-or-gtk-build-system)
10909     (arguments
10910      ;; The only tests are maintainer tests (in po/), which fail.
10911      `(#:tests? #f))
10912     (inputs (list glib
10913                   gtk+
10914                   gdk-pixbuf
10915                   gtkmm-3
10916                   glibmm
10917                   libx11
10918                   libxtst
10919                   dconf
10920                   libice
10921                   libsm
10922                   libxscrnsaver))
10923     (native-inputs `(("boost" ,boost)
10924                      ("pkg-config" ,pkg-config)
10925                      ("gettext" ,gettext-minimal)
10926                      ("autoconf" ,autoconf)
10927                      ("autoconf-archive" , autoconf-archive)
10928                      ("automake" ,automake)
10929                      ("libtool" ,libtool)
10930                      ("intltool" ,intltool)
10931                      ("gobject-introspection" ,gobject-introspection)
10932                      ("python3" ,python-3)
10933                      ("python-jinja2" ,python-jinja2)))
10934     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
10935     (description
10936      "Workrave is a program that assists in the recovery and prevention of
10937 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
10938 micro-pauses and rest breaks, and restricts you to your daily limit.")
10939     (home-page "http://www.workrave.org")
10940     (license license:gpl3+)))
10941
10942 (define-public ghex
10943   (package
10944     (name "ghex")
10945     (version "3.18.4")
10946     (source (origin
10947               (method url-fetch)
10948               (uri (string-append "mirror://gnome/sources/ghex/"
10949                                   (version-major+minor version) "/"
10950                                   "ghex-" version ".tar.xz"))
10951               (sha256
10952                (base32
10953                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
10954     (build-system meson-build-system)
10955     (arguments
10956      '(#:glib-or-gtk? #t
10957        #:phases
10958        (modify-phases %standard-phases
10959          (add-after 'unpack 'skip-gtk-update-icon-cache
10960            ;; Don't create 'icon-theme.cache'.
10961            (lambda _
10962              (substitute* "meson_post_install.py"
10963                (("gtk-update-icon-cache") (which "true")))
10964              #t)))))
10965     (native-inputs
10966      `(("pkg-config" ,pkg-config)
10967        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
10968        ("gnome-common" ,gnome-common)
10969        ("which" ,which)
10970        ("intltool" ,intltool)
10971        ("yelp-tools" ,yelp-tools)
10972        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
10973     (inputs
10974      `(("atk" ,atk)
10975        ("gtk" ,gtk+)))
10976     (synopsis "GNOME hexadecimal editor")
10977     (description "The GHex program can view and edit files in two ways:
10978 hexadecimal or ASCII.  It is useful for editing binary files in general.")
10979     (home-page "https://wiki.gnome.org/Apps/Ghex")
10980     (license license:gpl2)))
10981
10982 (define-public libdazzle
10983   (package
10984     (name "libdazzle")
10985     (version "3.37.1")
10986     (source (origin
10987               (method url-fetch)
10988               (uri (string-append "mirror://gnome/sources/libdazzle/"
10989                                   (version-major+minor version) "/"
10990                                   "libdazzle-" version ".tar.xz"))
10991               (sha256
10992                (base32
10993                 "03r5cr11dc031qa3694bpgm3lajrhiiln67kvl7vjj4q0scf7w7x"))))
10994     (build-system meson-build-system)
10995     (arguments
10996      `(#:phases
10997        (modify-phases %standard-phases
10998          (add-before 'check 'pre-check
10999            (lambda _
11000              ;; Tests require a running X server.
11001              (system "Xvfb :1 &")
11002              (setenv "DISPLAY" ":1")
11003              #t)))))
11004     (native-inputs
11005      (list `(,glib "bin") ; glib-compile-resources
11006            pkg-config
11007            ;; For tests.
11008            xorg-server-for-tests))
11009     (inputs
11010      (list glib gobject-introspection gtk+ vala))
11011     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
11012     (synopsis "Companion library to GObject and Gtk+")
11013     (description "The libdazzle library is a companion library to GObject and
11014 Gtk+.  It provides various features that the authors wish were in the
11015 underlying library but cannot for various reasons.  In most cases, they are
11016 wildly out of scope for those libraries.  In other cases, they are not quite
11017 generic enough to work for everyone.")
11018     (license license:gpl3+)))
11019
11020 (define-public evolution
11021   (package
11022     (name "evolution")
11023     (version "3.42.1")
11024     (source (origin
11025               (method url-fetch)
11026               (uri (string-append "mirror://gnome/sources/evolution/"
11027                                   (version-major+minor version) "/"
11028                                   "evolution-" version ".tar.xz"))
11029               (sha256
11030                (base32
11031                 "0igfzapdvgfx2gnpwfkjfkn7l5j186wk88ni39vqas1sl7ijlls6"))))
11032     (build-system cmake-build-system)
11033     (arguments
11034      `(#:imported-modules (,@%cmake-build-system-modules
11035                            (guix build glib-or-gtk-build-system))
11036        #:modules ((guix build cmake-build-system)
11037                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
11038                   (guix build utils))
11039        #:configure-flags
11040        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
11041              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
11042                                           ; in four years and cannot be built.
11043        #:phases
11044        (modify-phases %standard-phases
11045          ;; The build system attempts to install user interface modules to the
11046          ;; output directory of the "evolution-data-server" package.  This
11047          ;; change redirects that change.
11048          (add-after 'unpack 'patch-ui-module-dir
11049            (lambda* (#:key outputs #:allow-other-keys)
11050              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
11051                (("\\$\\{edsuimoduledir\\}")
11052                 (string-append (assoc-ref outputs "out")
11053                                "/lib/evolution-data-server/ui-modules")))))
11054          (add-after 'install 'glib-or-gtk-compile-schemas
11055            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
11056          (add-after 'install 'glib-or-gtk-wrap
11057            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
11058     (native-inputs
11059      (list `(,glib "bin") ; glib-mkenums
11060            pkg-config intltool itstool))
11061     (inputs
11062      `(("enchant" ,enchant)
11063        ("evolution-data-server" ,evolution-data-server) ; must be the same version
11064        ("gcr" ,gcr)
11065        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11066        ("gnome-autoar" ,gnome-autoar)
11067        ("gnome-desktop" ,gnome-desktop)
11068        ("gspell" ,gspell)
11069        ("highlight" ,highlight)
11070        ("libcanberra" ,libcanberra)
11071        ("libgweather" ,libgweather)
11072        ("libnotify" ,libnotify)
11073        ("libsoup" ,libsoup)
11074        ("nss" ,nss)
11075        ("openldap" ,openldap)
11076        ("webkitgtk" ,webkitgtk-with-libsoup2) ; because of evolution-data-server
11077        ("ytnef" ,ytnef)))
11078     (home-page "https://gitlab.gnome.org/GNOME/evolution")
11079     (synopsis "Manage your email, contacts and schedule")
11080     (description "Evolution is a personal information management application
11081 that provides integrated mail, calendaring and address book
11082 functionality.")
11083     ;; See COPYING for details.
11084     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
11085                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
11086                    license:lgpl2.1+))))  ; smime/lib/*
11087
11088 (define-public gthumb
11089   (package
11090     (name "gthumb")
11091     (version "3.12.0")
11092     (source (origin
11093               (method url-fetch)
11094               (uri (string-append "mirror://gnome/sources/gthumb/"
11095                                   (version-major+minor version) "/"
11096                                   "gthumb-" version ".tar.xz"))
11097               (sha256
11098                (base32
11099                 "0grqiq6v26z8avl7mj24xy4i9bl1niwpqhqw6rblprl40c1zrvrx"))))
11100     (build-system meson-build-system)
11101     (arguments
11102      `(#:glib-or-gtk? #t
11103
11104        ;; See
11105        ;; <https://github.com/mesonbuild/meson/issues/9492#issuecomment-973117289>.
11106        #:meson ,meson-0.59
11107
11108        #:configure-flags
11109        ;; Ensure the RUNPATH contains all installed library locations.
11110        (list (string-append "-Dc_link_args=-Wl,-rpath="
11111                             (assoc-ref %outputs "out")
11112                             "/lib/gthumb/extensions")
11113              (string-append "-Dcpp_link_args=-Wl,-rpath="
11114                             (assoc-ref %outputs "out")
11115                             "/lib/gthumb/extensions"))))
11116     (native-inputs
11117      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11118        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
11119        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
11120        ("intltool" ,intltool)
11121        ("itstool" ,itstool)
11122        ("pkg-config" ,pkg-config)))
11123     (inputs
11124      `(("clutter" ,clutter)
11125        ("clutter-gst" ,clutter-gst)
11126        ("clutter-gtk" ,clutter-gtk)
11127        ("colord" ,colord)
11128        ("exiv2" ,exiv2)
11129        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11130        ("gstreamer" ,gstreamer)
11131        ("gtk" ,gtk+)
11132        ("libheif" ,libheif)
11133        ("libjpeg" ,libjpeg-turbo)
11134        ("libraw" ,libraw)
11135        ("librsvg" ,librsvg)
11136        ("libtiff" ,libtiff)
11137        ("libwebp" ,libwebp)))
11138     (home-page "https://wiki.gnome.org/Apps/Gthumb")
11139     (synopsis "GNOME image viewer and browser")
11140     (description "GThumb is an image viewer, browser, organizer, editor and
11141 advanced image management tool")
11142     (license license:gpl2+)))
11143
11144 (define-public terminator
11145   (package
11146     (name "terminator")
11147     (version "2.1.1")
11148     (source
11149      (origin
11150        (method url-fetch)
11151        (uri (string-append "https://github.com/gnome-terminator/terminator/"
11152                            "releases/download/v" version "/"
11153                            name "-" version ".tar.gz"))
11154        (sha256
11155         (base32 "0xdgmam7ghnxw6g38a4gjw3kk3rhga8c66lns18k928jlr9fmddw"))))
11156     (build-system python-build-system)
11157     (native-inputs
11158      `(("gettext" ,gettext-minimal)
11159        ("glib:bin" ,glib "bin")         ; for glib-compile-resources
11160        ("gobject-introspection" ,gobject-introspection)
11161        ("intltool" ,intltool)
11162        ("pkg-config" ,pkg-config)
11163        ("python-psutil" ,python-psutil)
11164        ("python-pytest-runner" ,python-pytest-runner)
11165        ("python-pytest" ,python-pytest)))
11166     (inputs
11167      `(("cairo" ,cairo)
11168        ("dbus-glib" ,dbus-glib)
11169        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11170        ("gtk+" ,gtk+)
11171        ("python" ,python-wrapper)
11172        ("python-dbus" ,python-dbus)
11173        ("python-notify2" ,python-notify2)
11174        ("python-pycairo" ,python-pycairo)
11175        ("python-pygobject" ,python-pygobject)
11176        ("vte" ,vte)))
11177     (propagated-inputs
11178      (list python-configobj))
11179     (arguments
11180      ;; One test out of 28 fails due to dbus-python and python-notify; skip
11181      ;; tests.
11182      `(#:tests? #f
11183        #:imported-modules ((guix build glib-or-gtk-build-system)
11184                            ,@%python-build-system-modules)
11185        #:modules ((guix build python-build-system)
11186                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
11187                   (guix build utils))
11188        #:phases
11189        (modify-phases %standard-phases
11190          (add-after 'unpack 'handle-dbus-python
11191            (lambda _
11192              ;; python-dbus cannot be found but it's really there.  See
11193              ;; https://github.com/SpotlightKid/jack-select/issues/2
11194              (substitute* "setup.py"
11195                (("'dbus-python',") ""))))
11196          (add-after 'install 'wrap-program
11197            (lambda* (#:key outputs #:allow-other-keys)
11198              (let ((prog (string-append (assoc-ref outputs "out")
11199                                         "/bin/terminator"))
11200                    (pylib (string-append (assoc-ref outputs "out")
11201                                          "/lib/python"
11202                                          ,(version-major+minor
11203                                            (package-version python))
11204                                          "/site-packages")))
11205                (wrap-program prog
11206                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
11207                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))
11208          (add-after 'wrap-program 'glib-or-gtk-wrap
11209            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
11210     (home-page "https://gnome-terminator.org/")
11211     (synopsis "Store and run multiple GNOME terminals in one window")
11212     (description
11213      "Terminator allows you to run multiple GNOME terminals in a grid and
11214 tabs, and it supports drag and drop re-ordering of terminals.")
11215     (license license:gpl2)))
11216
11217 (define-public libhandy
11218   (package
11219     (name "libhandy")
11220     (version "1.5.0")
11221     (source
11222      (origin
11223        (method git-fetch)
11224        (uri (git-reference
11225              (url "https://gitlab.gnome.org/GNOME/libhandy")
11226              (commit version)))
11227        (file-name (git-file-name name version))
11228        (sha256
11229         (base32 "19gl0xxybraw2iyn6cdi9w7nps825lb2bhav7d2x51wla0lq3kdc"))))
11230     (build-system meson-build-system)
11231     (arguments
11232      `(#:configure-flags
11233        '("-Dglade_catalog=enabled"
11234          ;; XXX: Generating the documentation fails because the
11235          ;; libhandy.devhelp2 document cannot be created. This seems to be
11236          ;; caused by a problem during the XSL transformation.
11237          "-Dgtk_doc=false")
11238        #:phases
11239        (modify-phases %standard-phases
11240          (add-after 'unpack 'patch-docbook-xml
11241            (lambda* (#:key inputs #:allow-other-keys)
11242              (for-each
11243               (lambda (file)
11244                 (substitute* file
11245                   (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
11246                    (search-input-file inputs
11247                                       "/xml/dtd/docbook/docbookx.dtd"))))
11248               (find-files "doc" "\\.xml"))))
11249          (add-before 'check 'pre-check
11250            (lambda _
11251              ;; Tests require a running X server.
11252              (system "Xvfb :1 &")
11253              (setenv "DISPLAY" ":1")
11254              #t)))))
11255     (inputs
11256      (list gtk+ glade3))
11257     (native-inputs
11258      `(("glib:bin" ,glib "bin")
11259        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
11260        ("vala" ,vala)
11261        ("libxml2" ,libxml2)
11262        ("libxslt" ,libxslt)
11263        ("docbook-xsl" ,docbook-xsl)
11264        ("docbook-xml" ,docbook-xml-4.3)
11265        ("gtk-doc" ,gtk-doc/stable)
11266        ("pkg-config" ,pkg-config)
11267        ("gettext" ,gettext-minimal)
11268
11269        ;; Test suite dependencies.
11270        ("xorg-server" ,xorg-server-for-tests)
11271        ("hicolor-icon-theme" ,hicolor-icon-theme)))
11272     (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
11273     (synopsis "Library full of GTK+ widgets for mobile phones")
11274     (description "The aim of the handy library is to help with developing user
11275 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
11276 for usage on small and big screens.")
11277     (license license:lgpl2.1+)))
11278
11279 (define-public libhandy-0.0
11280   (package
11281     (inherit libhandy)
11282     (version "0.0.13")
11283     (source
11284      (origin
11285        (method git-fetch)
11286        (uri (git-reference
11287              (url "https://gitlab.gnome.org/GNOME/libhandy")
11288              (commit (string-append "v" version))))
11289        (file-name (git-file-name "libhandy" version))
11290        (sha256
11291         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
11292     (arguments
11293      (substitute-keyword-arguments (package-arguments libhandy)
11294        ((#:configure-flags flags)
11295         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
11296
11297 (define-public libgit2-glib
11298   (package
11299     (name "libgit2-glib")
11300     (version "0.99.0.1")
11301     (source (origin
11302               (method url-fetch)
11303               (uri (string-append "mirror://gnome/sources/" name "/"
11304                                   (version-major+minor version) "/"
11305                                   name "-" version ".tar.xz"))
11306               (sha256
11307                (base32
11308                 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
11309     (build-system meson-build-system)
11310     (native-inputs
11311      (list `(,glib "bin") ;; For glib-mkenums
11312            gobject-introspection
11313            pkg-config
11314            python-pygobject
11315            python-wrapper
11316            vala))
11317     (inputs
11318      (list glib libssh2))
11319     (propagated-inputs
11320      (list ;; In Requires of libgit2-glib.pc.
11321            libgit2))
11322     (synopsis "GLib wrapper around the libgit2 Git access library")
11323     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
11324 access library.  It only implements the core plumbing functions, not really the
11325 higher level porcelain stuff.")
11326     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
11327     (license license:gpl2+)))
11328
11329 (define-public gitg
11330   (package
11331     (name "gitg")
11332     (version "3.32.1")
11333     (source (origin
11334               (method url-fetch)
11335               (uri (string-append "mirror://gnome/sources/" name "/"
11336                                   (version-major+minor version) "/"
11337                                   name "-" version ".tar.xz"))
11338               (sha256
11339                (base32
11340                 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
11341     (build-system meson-build-system)
11342     (arguments
11343      `(#:meson ,meson-0.59
11344        #:glib-or-gtk? #t
11345        #:phases
11346        (modify-phases %standard-phases
11347          (add-after 'unpack 'disable-post-install-partially
11348            (lambda _
11349              (substitute* "meson_post_install.py"
11350                (("'python'") ; there are no python sources to compile
11351                 (string-append "'" (which "true") "'"))
11352                (("gtk-update-icon-cache") (which "true")))
11353              #t))
11354          (add-after 'unpack 'fix-test-sources
11355            (lambda _
11356              (substitute* "tests/libgitg/test-commit.vala"
11357                (("/bin/bash") (which "bash")))
11358              #t))
11359          ;; XXX: Remove upon next version bump
11360          (add-after 'unpack 'harden
11361            (lambda _
11362              ;; See <https://gitlab.gnome.org/GNOME/gitg/-/issues/337>
11363              (substitute* "libgitg/gitg-date.vala"
11364                (("(val\|tzs) == null" all val)
11365                 (string-append val " == null || " val " == \"\""))
11366                (("(val\|tzs) != null" all val)
11367                 (string-append val " != null && " val " != \"\"")))
11368              ;; See <https://gitlab.gnome.org/GNOME/gitg/-/merge_requests/159>
11369              (substitute* "gitg/gitg-action-support.vala"
11370                (("stash_if_needed\\((.*), Gitg.Ref head" all other)
11371                 (string-append "stash_if_needed(" other ", Gitg.Ref? head")))))
11372          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11373            (lambda* (#:key outputs #:allow-other-keys)
11374              (let ((prog (string-append (assoc-ref outputs "out")
11375                                         "/bin/gitg")))
11376                (wrap-program prog
11377                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11378                #t))))))
11379     (inputs
11380      (list glib
11381            gsettings-desktop-schemas
11382            gtk+
11383            gtkspell3
11384            gtksourceview-3
11385            json-glib
11386            libdazzle
11387            libgee
11388            libgit2-glib
11389            libpeas
11390            libsecret
11391            libsoup-minimal-2
11392            libxml2))
11393     (native-inputs
11394      `(("glib:bin" ,glib "bin")
11395        ("gtk+:bin" ,gtk+ "bin")
11396        ("gobject-introspection" ,gobject-introspection)
11397        ("intltool" ,intltool)
11398        ("pkg-config" ,pkg-config)
11399        ("vala" ,vala)))
11400     (synopsis "Graphical user interface for git")
11401     (description
11402      "gitg is a graphical user interface for git.  It aims at being a small,
11403 fast and convenient tool to visualize the history of git repositories.
11404 Besides visualization, gitg also provides several utilities to manage your
11405 repository and commit your work.")
11406     (home-page "https://wiki.gnome.org/Apps/Gitg")
11407     (license license:gpl2+)))
11408
11409 (define-public gamin
11410   (package
11411     (name "gamin")
11412     (version "0.1.10")
11413     (source (origin
11414               (method url-fetch)
11415               (uri (string-append "mirror://gnome/sources/" name "/"
11416                                   (version-major+minor version) "/"
11417                                   name "-" version ".tar.bz2"))
11418               (sha256
11419                (base32
11420                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
11421     (build-system gnu-build-system)
11422     (arguments
11423      `(#:phases
11424        (modify-phases %standard-phases
11425          ;; The 'config.sub' is too old to recognise aarch64.
11426          ,@(if (and=> (%current-target-system) target-aarch64?)
11427                `((add-after 'unpack 'replace-config.sub
11428                    (lambda _
11429                      (delete-file "config.sub")
11430                      (symlink (which "config.sub") "config.sub"))))
11431                '())
11432          (add-after 'unpack 'remove-deprecated-macro
11433            (lambda _
11434              (substitute* '("server/gam_node.c"
11435                             "server/gam_subscription.h"
11436                             "server/gam_node.h"
11437                             "server/gam_subscription.c")
11438                (("G_CONST_RETURN") "const"))
11439              #t))
11440          ;; The configure script runs a test program unconditionally,
11441          ;; without an option to manually set the test result.
11442          ;; Override this test anyway.
11443          ,@(if (%current-target-system)
11444                `((add-after 'bootstrap 'set-have-abstract-sockets
11445                    (lambda _
11446                      (define in-abstract-sockets-test? #f)
11447                      (substitute* "configure"
11448                        (("^#### Abstract sockets\n$")
11449                         (set! in-abstract-sockets-test? #t)
11450                         "#### Abstract sockets\n")
11451                        (("^have_abstract_sockets=no\n$")
11452                         (set! in-abstract-sockets-test? #f)
11453                         ;; ‘Abstract sockets’ appear to be Linux-only.
11454                         (string-append "have_abstract_sockets="
11455                                        ,(if (target-linux?)
11456                                             "yes"
11457                                             "no")
11458                                        "\nif false; then\nif false; then :\n"))
11459                        (("^(.*\n)$" line)
11460                         (if in-abstract-sockets-test?
11461                             "" ; delete
11462                             line))))))
11463                '()))))
11464     (inputs
11465      (list glib))
11466     (native-inputs
11467      `(("pkg-config" ,pkg-config)
11468        ,@(if (and=> (%current-target-system) target-aarch64?)
11469              `(("config" ,config))
11470              '())))
11471     (home-page "https://people.gnome.org/~veillard/gamin/")
11472     (synopsis "File alteration monitor")
11473     (description
11474      "Gamin is a file and directory monitoring system defined to be a subset
11475 of the FAM (File Alteration Monitor) system.  This is a service provided by a
11476 library which detects when a file or a directory has been modified.")
11477     (license license:gpl2+)))
11478
11479 (define-public gnome-mahjongg
11480   (package
11481     (name "gnome-mahjongg")
11482     (version "3.35.1")
11483     (source (origin
11484               (method git-fetch)
11485               (uri (git-reference
11486                     (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
11487                     (commit version)))
11488               (file-name (git-file-name name version))
11489               (sha256
11490                (base32
11491                 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
11492     (build-system meson-build-system)
11493     (arguments
11494      `(#:glib-or-gtk? #t))
11495     (native-inputs
11496      `(("appstream-glib" ,appstream-glib)
11497        ("gettext" ,gettext-minimal)
11498        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11499        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
11500        ("itstool" ,itstool)
11501        ("pkg-config" ,pkg-config)
11502        ("vala" ,vala)))
11503     (propagated-inputs
11504      (list dconf))
11505     (inputs
11506      (list glib gtk+ librsvg))
11507     (synopsis "Mahjongg tile-matching game")
11508     (description "GNOME Mahjongg is a game based on the classic Chinese
11509 tile-matching game Mahjong.  It features multiple board layouts, tile themes,
11510 and a high score table.")
11511     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11512     (license license:gpl2+)))
11513
11514 (define-public gnome-themes-extra
11515   (package
11516     (name "gnome-themes-extra")
11517     (version "3.28")
11518     (source
11519      (origin
11520        (method url-fetch)
11521        (uri (string-append "mirror://gnome/sources/" name "/"
11522                            (version-major+minor version) "/" name "-"
11523                            version ".tar.xz"))
11524        (sha256
11525         (base32
11526          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11527     (build-system gnu-build-system)
11528     (arguments
11529      '(#:configure-flags
11530        ;; Don't create 'icon-theme.cache'.
11531        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11532               (true      (string-append coreutils "/bin/true")))
11533          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
11534     (native-inputs
11535      `(("glib:bin" ,glib "bin")
11536        ("intltool" ,intltool)
11537        ("pkg-config" ,pkg-config)))
11538     (inputs
11539      `(("glib" ,glib)
11540        ("gtk+" ,gtk+)
11541        ("gtk+-2" ,gtk+-2)
11542        ("librsvg" ,librsvg)
11543        ("libxml2" ,libxml2)))
11544     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11545     (synopsis "GNOME Extra Themes")
11546     (description "This package provides themes and related elements that don't
11547 really fit in other upstream packages.  It offers legacy support for GTK+ 2
11548 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
11549 index files needed for Adwaita to be used outside of GNOME.")
11550     (license license:lgpl2.1+)))
11551
11552 (define-public gnote
11553   (package
11554     (name "gnote")
11555     (version "40.2")
11556     (source
11557      (origin
11558        (method url-fetch)
11559        (uri (string-append "mirror://gnome/sources/" name "/"
11560                            (version-major version)  "/"
11561                            "gnote-" version ".tar.xz"))
11562        (sha256
11563         (base32 "01fqdfgcl32cf40jw9q0h7f5bghl1lvf89vln1lh41ncrk0iw6vy"))))
11564     (build-system glib-or-gtk-build-system)
11565     (native-inputs
11566      (list desktop-file-utils
11567            `(,glib "bin")
11568            gobject-introspection
11569            intltool
11570            itstool
11571            pkg-config
11572            unittest-cpp)) ;FIXME: not found by pkg-config
11573     (inputs
11574      (list glibmm
11575            gsettings-desktop-schemas
11576            gspell
11577            gtk+
11578            gtkmm-3
11579            libsecret
11580            `(,util-linux "lib")
11581            libxml2
11582            libxslt))
11583     (synopsis "Note-taking application for the GNOME desktop")
11584     (description
11585      "Gnote is a note-taking application written for the GNOME desktop
11586 environment.")
11587     (home-page "https://wiki.gnome.org/Apps/Gnote")
11588     (license license:gpl3+)))
11589
11590 (define-public polari
11591   (package
11592     (name "polari")
11593     (version "40.1")
11594     (source (origin
11595               (method url-fetch)
11596               (uri (string-append "mirror://gnome/sources/polari/"
11597                                   (version-major version)
11598                                   "/polari-" version ".tar.xz"))
11599               (sha256
11600                (base32
11601                 "001h9gppn79gnj7dl61jl9gas5wmbjdx0v8xwsx7v4xsv2hwz91g"))))
11602     (build-system meson-build-system)
11603     (arguments
11604      `(#:meson ,meson-0.59
11605        #:glib-or-gtk? #t
11606        #:phases
11607        (modify-phases %standard-phases
11608          (add-after 'unpack 'skip-gtk-update-icon-cache
11609            (lambda _
11610              (substitute* "meson/meson-postinstall.sh"
11611                (("gtk-update-icon-cache") (which "true")))
11612              #t))
11613          (add-after 'install 'fix-desktop-file
11614            ;; Hardcode launcher to be on the safe side
11615            (lambda* (#:key outputs #:allow-other-keys)
11616              (let ((out (assoc-ref outputs "out")))
11617                (substitute* (string-append out "/share/applications/"
11618                                            "org.gnome.Polari.desktop")
11619                  (("Exec=.*") (string-append "Exec=" out "/bin/polari\n"))))))
11620          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11621            (lambda* (#:key outputs #:allow-other-keys)
11622              (let ((prog (string-append (assoc-ref outputs "out")
11623                                         "/bin/polari")))
11624                (wrap-program prog
11625                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11626                #t))))))
11627     (inputs
11628      (list glib
11629            gsettings-desktop-schemas
11630            gspell
11631            gtk
11632            gjs
11633            libsecret
11634            libsoup-minimal-2
11635            telepathy-glib
11636            telepathy-logger))
11637     (native-inputs
11638      (list `(,glib "bin")
11639            gobject-introspection
11640            intltool
11641            pkg-config
11642            yelp-tools))
11643     (propagated-inputs
11644      (list telepathy-idle telepathy-mission-control))
11645     (synopsis "Simple IRC Client")
11646     (description
11647      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11648 integrate seamlessly with the GNOME desktop.")
11649     (home-page "https://wiki.gnome.org/Apps/Polari")
11650     (license license:gpl2+)))
11651
11652 (define-public gnome-boxes
11653   (package
11654     (name "gnome-boxes")
11655     (version "41.1")
11656     (source
11657      (origin
11658        (method url-fetch)
11659        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11660                            (version-major version) "/"
11661                            "gnome-boxes-" version ".tar.xz"))
11662        (sha256
11663         (base32 "1wzhm8n485cqhbai4qshgrwl05ix881g8gjshilrj6vg8p1li79h"))
11664        (patches
11665         (search-patches "gnome-boxes-add-guix-logo.patch"))))
11666     (build-system meson-build-system)
11667     (arguments
11668      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
11669        #:glib-or-gtk? #t
11670        #:configure-flags (list "-Drdp=false"
11671                                (string-append "-Dc_link_args=-Wl,-rpath="
11672                                               (assoc-ref %outputs "out")
11673                                               "/lib/gnome-boxes"))))
11674     (native-inputs
11675      `(("glib:bin" ,glib "bin")                   ;for glib-compile-resources
11676        ("gtk+:bin" ,gtk+ "bin")                   ;for gtk-update-icon-cache
11677        ("desktop-file-utils" ,desktop-file-utils) ;for update-desktop-database
11678        ("itstool" ,itstool)
11679        ("intltool" ,intltool)
11680        ("vala" ,vala)
11681        ("pkg-config" ,pkg-config)))
11682     (inputs
11683      `(("libarchive" ,libarchive)
11684        ("glib-networking" ,glib-networking) ;for TLS support
11685        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11686        ("gtk" ,gtk+)
11687        ("gtk-vnc" ,gtk-vnc)
11688        ("gtksourceview" ,gtksourceview)
11689        ("json-glib" ,json-glib)
11690        ("libhandy" ,libhandy)
11691        ("libosinfo" ,libosinfo)
11692        ("libsecret" ,libsecret)
11693        ("libsoup" ,libsoup-minimal-2)
11694        ("libusb" ,libusb)
11695        ("libvirt" ,libvirt)
11696        ("libvirt-glib" ,libvirt-glib)
11697        ("libxml" ,libxml2)
11698        ("spice-gtk" ,spice-gtk)
11699        ("sparql-query" ,sparql-query)
11700        ("vte" ,vte)
11701        ("webkitgtk" ,webkitgtk-with-libsoup2) ;for webkit2gtk-4.0
11702        ("tracker" ,tracker)
11703        ("libgudev" ,libgudev)))
11704     (home-page "https://wiki.gnome.org/Apps/Boxes")
11705     (synopsis "View, access, and manage remote and virtual systems")
11706     (description "GNOME Boxes is a simple application to view, access, and
11707 manage remote and virtual systems.  Note that this application requires the
11708 @code{libvirt} and @code{virtlog} daemons to run.  Use the command
11709 @command{info '(guix) Virtualization Services'} to learn how to configure
11710 these services on the Guix System.")
11711     (license (list
11712               ;; For data/icons/empty-boxes.png.
11713               license:cc-by2.0
11714               ;; For all others.
11715               license:lgpl2.0+))))
11716
11717 (define-public geary
11718   (package
11719     (name "geary")
11720     (version "40.0")
11721     (source (origin
11722               (method git-fetch)
11723               (uri (git-reference
11724                     (url "https://gitlab.gnome.org/GNOME/geary.git")
11725                     (commit (string-append "gnome-" version))))
11726               (file-name (git-file-name name version))
11727               (sha256
11728                (base32
11729                 "04hvw86r8sczvjm1z3ls5y5y5h6nyfb648rjkfx05ib00mqq5v1x"))))
11730     (build-system meson-build-system)
11731     (arguments
11732      `(#:glib-or-gtk? #t
11733        #:configure-flags
11734        '("-Dprofile=release")
11735        #:phases (modify-phases %standard-phases
11736                   (add-after 'unpack 'disable-failing-tests
11737                     (lambda _
11738                       (substitute* "test/test-client.vala"
11739                         (("client.add_suite\\(new Application.CertificateManagerTest\\(\\).suite\\);")
11740                          ""))))
11741                   (add-after 'unpack 'generate-vapis
11742                     (lambda* (#:key inputs #:allow-other-keys)
11743                       ;; It’s not possible to generate the GMime vapi, because
11744                       ;; there’s custom metadata that gmime didn’t
11745                       ;; install. Thus, the vapi should be built and installed
11746                       ;; with gmime.
11747                       (define gmime
11748                         (assoc-ref inputs "gmime"))
11749                       (copy-file (string-append gmime "/share/vala/vapi/gmime-3.0.vapi")
11750                                  "bindings/vapi/gmime-3.0.vapi")))
11751                   (add-after 'unpack 'disable-postinstall-script
11752                     (lambda _
11753                       (substitute* "build-aux/post_install.py"
11754                         (("gtk-update-icon-cache")
11755                          "true"))))
11756                   (add-before 'check 'setup-home
11757                     (lambda _
11758                       ;; Tests require a writable HOME.
11759                       (setenv "HOME" (getcwd))))
11760                   (add-before 'check 'setup-xvfb
11761                     (lambda _
11762                       (system "Xvfb :1 &")
11763                       (setenv "DISPLAY" ":1"))))))
11764     (inputs
11765      `(("enchant" ,enchant)
11766        ("folks" ,folks)
11767        ("gcr" ,gcr)
11768        ("glib" ,glib)
11769        ("gmime" ,gmime)
11770        ("gnome-online-accounts:lib"
11771         ,gnome-online-accounts "lib")
11772        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11773        ("gspell" ,gspell)
11774        ("gsound" ,gsound)
11775        ("gtk+" ,gtk+)
11776        ("iso-codes" ,iso-codes)
11777        ("json-glib" ,json-glib)
11778        ("libcanberra" ,libcanberra)
11779        ("libgee" ,libgee)
11780        ("libhandy" ,libhandy)
11781        ("libpeas" ,libpeas)
11782        ("libsecret" ,libsecret)
11783        ("libstemmer" ,libstemmer)
11784        ("libunwind" ,libunwind)
11785        ("sqlite" ,sqlite)
11786        ("webkitgtk" ,webkitgtk-with-libsoup2)
11787        ("ytnef" ,ytnef)))
11788     (native-inputs
11789      `(("appstream-glib" ,appstream-glib)
11790        ("cmake-minimal" ,cmake-minimal)
11791        ("desktop-file-utils" ,desktop-file-utils)
11792        ("gettext" ,gettext-minimal)
11793        ("glib" ,glib)
11794        ("glib:bin" ,glib "bin")
11795        ("gmime" ,gmime)
11796        ("gobject-introspection" ,gobject-introspection)
11797        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11798        ("itstool" ,itstool)
11799        ("libarchive" ,libarchive)
11800        ("libxml2" ,libxml2)
11801        ("pkg-config" ,pkg-config)
11802        ("vala" ,vala)
11803        ("xvfb" ,xorg-server-for-tests)))
11804     (synopsis "GNOME email application built around conversations")
11805     (description
11806      "Geary collects related messages together into conversations,
11807 making it easy to find and follow your discussions.  Full-text and keyword
11808 search makes it easy to find the email you are looking for.  Geary's
11809 full-featured composer lets you send rich, styled text with images, links, and
11810 lists, but also send lightweight, easy to read text messages.  Geary
11811 automatically picks up your existing GNOME Online Accounts, and adding more is
11812 easy.  Geary has a clean, fast, modern interface that works like you want it
11813 to.")
11814     (home-page "https://wiki.gnome.org/Apps/Geary")
11815     (license (list
11816               ;; geary
11817               license:lgpl2.1+
11818               ;; icons
11819               license:cc-by3.0
11820               license:cc-by-sa3.0
11821               license:public-domain
11822               ;; snowball
11823               license:bsd-2))))
11824
11825 (define-public glabels
11826   (package
11827     (name "glabels")
11828     (version "3.4.1")
11829     (source
11830      (origin
11831        (method url-fetch)
11832        (uri (string-append "mirror://gnome/sources/" name "/"
11833                            (version-major+minor version)  "/"
11834                            "glabels-" version ".tar.xz"))
11835        (sha256
11836         (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
11837     (build-system glib-or-gtk-build-system)
11838     (native-inputs
11839      `(("gettext" ,gettext-minimal)
11840        ("glib:bin" ,glib "bin")
11841        ("intltool" ,intltool)
11842        ("itstool" ,itstool)
11843        ("pkg-config" ,pkg-config)))
11844     (inputs
11845      (list gtk+ librsvg libxml2))
11846     (arguments
11847      `(#:configure-flags '("CFLAGS=-fcommon")))
11848     (home-page "https://glabels.org/")
11849     (synopsis "Program for creating labels and business cards")
11850     (description
11851      "gLabels is a program for creating labels and business cards.  It is
11852 designed to work with various laser/ink-jet peel-off label and business
11853 card sheets that you’ll find at most office supply stores.")
11854     (license license:gpl3+)))
11855
11856 (define-public gnome-latex
11857   (package
11858     (name "gnome-latex")
11859     (version "3.38.0")
11860     (source
11861      (origin
11862        (method url-fetch)
11863        (uri (string-append "mirror://gnome/sources/" name "/"
11864                            (version-major+minor version)  "/"
11865                            "gnome-latex-" version ".tar.xz"))
11866        (sha256
11867         (base32 "0xqd49pgi82dygqnxj08i1v22b0vwwhx3zvdinhrx4jny339yam8"))))
11868     (build-system glib-or-gtk-build-system)
11869     (native-inputs
11870      (list gettext-minimal
11871            `(,glib "bin")
11872            gobject-introspection
11873            gtk-doc/stable
11874            intltool
11875            itstool
11876            pkg-config
11877            vala))
11878     (inputs
11879      (list amtk
11880            dconf
11881            glib
11882            gsettings-desktop-schemas
11883            gspell
11884            gtk+
11885            gtksourceview
11886            libgee
11887            tepl-5
11888            uchardet))
11889     (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
11890     (synopsis "LaTeX editor for the GNOME desktop")
11891     (description
11892      "GNOME LaTeX is a LaTeX editor for the GNOME desktop.  It has features
11893 such as build tools, completion of LaTeX commands, structure navigation,
11894 symbol tables, document templates, project management, spell-checking, menus
11895 and toolbars.")
11896     (license license:gpl3+)))
11897
11898 (define-public setzer
11899   (package
11900     (name "setzer")
11901     (version "0.4.1")
11902     (source
11903      (origin
11904        (method git-fetch)
11905        (uri (git-reference
11906              (url "https://github.com/cvfosammmm/Setzer")
11907              (commit (string-append "v" version))))
11908        (file-name (git-file-name name version))
11909        (sha256
11910         (base32 "1rcx2c07jg1ij81pnvg3px49hfbjmkagn68d3gp79z3gcajbp2av"))))
11911     (build-system meson-build-system)
11912     (arguments
11913      `(#:glib-or-gtk? #t
11914        #:phases
11915        (modify-phases %standard-phases
11916          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11917            (lambda* (#:key outputs #:allow-other-keys)
11918              (let ((prog (string-append (assoc-ref outputs "out")
11919                                         "/bin/setzer"))
11920                    (pylib (string-append (assoc-ref outputs "out")
11921                                          "/lib/python"
11922                                          ,(version-major+minor
11923                                            (package-version python))
11924                                          "/site-packages")))
11925                (wrap-program prog
11926                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
11927                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11928                #t))))))
11929     (native-inputs
11930      `(("desktop-file-utils" ,desktop-file-utils)
11931        ("gettext" ,gettext-minimal)
11932        ("glib:bin" ,glib "bin")
11933        ("gobject-introspection" ,gobject-introspection)
11934        ("gtk+:bin" ,gtk+ "bin")))
11935     (inputs
11936      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11937        ("gspell" ,gspell)
11938        ("gtk+" ,gtk+)
11939        ("gtksourceview" ,gtksourceview)
11940        ("pango" ,pango)
11941        ("poppler" ,poppler)
11942        ("python-pdfminer" ,python-pdfminer-six)
11943        ("python-pycairo" ,python-pycairo)
11944        ("python-pygobject" ,python-pygobject)
11945        ("python-pyxdg" ,python-pyxdg)
11946        ("webkitgtk" ,webkitgtk)
11947        ("xdg-utils" ,xdg-utils)))
11948     (home-page "https://www.cvfosammmm.org/setzer/")
11949     (synopsis "LaTeX editor written in Python with GTK+")
11950     (description
11951      "Setzer is a simple yet full-featured LaTeX editor written in Python with
11952 GTK+.  It integrates well with the GNOME desktop environment.")
11953     (license license:gpl3+)))
11954
11955 (define-public apostrophe
11956   (package
11957     (name "apostrophe")
11958     (version "2.5")
11959     (source (origin
11960               (method git-fetch)
11961               (uri (git-reference
11962                     (url "https://gitlab.gnome.org/somas/apostrophe")
11963                     (commit (string-append "v" version))))
11964               (file-name (git-file-name name version))
11965               (sha256
11966                (base32
11967                 "06yfiflmj3ip7ppcz41nb3xpgb5ggw5h74w0v87yaqqkq7qh31lp"))))
11968     (build-system meson-build-system)
11969     (arguments
11970      `(#:glib-or-gtk? #t
11971        #:meson ,meson-0.59              ;fails with 0.60
11972        #:phases
11973        (modify-phases %standard-phases
11974          (add-after 'unpack 'patch-meson
11975            (lambda _
11976              (substitute* "build-aux/meson_post_install.py"
11977                (("gtk-update-icon-cache") "true"))))
11978          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11979            (lambda* (#:key inputs outputs #:allow-other-keys)
11980              (let ((prog (string-append (assoc-ref outputs "out")
11981                                         "/bin/apostrophe"))
11982                    (pylib (string-append (assoc-ref outputs "out")
11983                                          "/lib/python"
11984                                          ,(version-major+minor
11985                                            (package-version
11986                                             (this-package-input "python")))
11987                                          "/site-packages")))
11988                (wrap-program prog
11989                  `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
11990                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
11991                  `("PATH" prefix (,(dirname
11992                                     (search-input-file inputs
11993                                                        "/bin/pandoc")))))))))))
11994     (inputs
11995      (list glib
11996            gobject-introspection
11997            gspell
11998            gtk+
11999            libhandy
12000            pandoc
12001            python
12002            python-chardet
12003            python-levenshtein
12004            python-regex
12005            python-pycairo
12006            python-pygobject
12007            python-pyenchant
12008            python-pypandoc
12009            webkitgtk))
12010     (native-inputs
12011      (list gettext-minimal
12012            `(,glib "bin")
12013            pkg-config
12014            sassc))
12015     (home-page "https://gitlab.gnome.org/somas/apostrophe")
12016     (synopsis "Markdown editor written in Python with GTK+")
12017     (description "Apostrophe is a GTK+ based distraction-free Markdown editor.
12018 It uses pandoc as back-end for parsing Markdown.")
12019     (license license:gpl3)))
12020
12021 (define-public libratbag
12022   (package
12023     (name "libratbag")
12024     (version "0.16")
12025     (source
12026      (origin
12027        (method git-fetch)
12028        (uri (git-reference
12029              (url "https://github.com/libratbag/libratbag")
12030              (commit (string-append "v" version))))
12031        (file-name (git-file-name name version))
12032        (sha256
12033         (base32 "0jjf6xc3a37icp5dvbxla3ai9is2ns31m0llbfq1bmb6dk8cd4n0"))))
12034     (build-system meson-build-system)
12035     (arguments
12036      `(#:configure-flags
12037        (list "-Dsystemd=false"
12038              "-Dlogind-provider=elogind")
12039        #:phases
12040        (modify-phases %standard-phases
12041          (add-after 'install 'wrap
12042            (lambda* (#:key inputs outputs #:allow-other-keys)
12043              (let* ((out (assoc-ref outputs "out"))
12044                     (site (string-append
12045                            "/lib/python"
12046                            ,(version-major+minor (package-version python))
12047                            "/site-packages"))
12048                     (evdev (string-append
12049                             (assoc-ref inputs "python-evdev") site))
12050                     (pygo (string-append
12051                            (assoc-ref inputs "python-pygobject") site))
12052                     (python-wrap
12053                      `("GUIX_PYTHONPATH" = (,evdev ,pygo))))
12054                (wrap-program (string-append out "/bin/" "ratbagctl")
12055                  python-wrap)
12056                #t))))))
12057     (native-inputs
12058      (list check pkg-config swig valgrind))
12059     (inputs
12060      `(("glib" ,glib)
12061        ("json-glib" ,json-glib)
12062        ("libevdev" ,libevdev)
12063        ("libsystemd" ,elogind)
12064        ("libunistring" ,libunistring)
12065        ("python-evdev" ,python-evdev)
12066        ("python-pygobject" ,python-pygobject)
12067        ("udev" ,eudev)))
12068     (home-page "https://github.com/libratbag/libratbag")
12069     (synopsis "DBus daemon and utility for configuring gaming mice")
12070     (description "libratbag provides @command{ratbagd}, a DBus daemon to
12071 configure input devices, mainly gaming mice.  The daemon provides a generic
12072 way to access the various features exposed by these mice and abstracts away
12073 hardware-specific and kernel-specific quirks.  There is also the
12074 @command{ratbagctl} command line interface for configuring devices.
12075
12076 libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
12077 Steelseries.
12078
12079 The ratbagd DBus service can be enabled by adding the following service to
12080 your operating-system definition:
12081
12082   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
12083     (license license:expat)))
12084
12085 (define-public piper
12086   (package
12087     (name "piper")
12088     (version "0.6")
12089     (source
12090      (origin
12091        (method git-fetch)
12092        (uri (git-reference
12093              (url "https://github.com/libratbag/piper")
12094              (commit version)))
12095        (sha256
12096         (base32 "02x4d4n0078slj2pl0rvgayrrxvna6y6vj8fxfamvazsh5xyfzwk"))
12097        (file-name (git-file-name name version))))
12098     (build-system meson-build-system)
12099     (native-inputs
12100      `(("gettext" ,gettext-minimal)
12101        ("glib:bin" ,glib "bin")
12102        ("gobject-introspection" ,gobject-introspection)
12103        ("pkg-config" ,pkg-config)
12104        ("python-flake8" ,python-flake8)))
12105     (inputs
12106      `(("adwaita-icon-theme" ,adwaita-icon-theme)
12107        ("gtk" ,gtk+)
12108        ("gtk:bin" ,gtk+ "bin")
12109        ("libratbag" ,libratbag)
12110        ("librsvg" ,librsvg)
12111        ("python-evdev" ,python-evdev)
12112        ("python-lxml" ,python-lxml)
12113        ("python-pycairo" ,python-pycairo)
12114        ("python-pygobject" ,python-pygobject)))
12115     (arguments
12116      `(#:imported-modules ((guix build python-build-system)
12117                            ,@%meson-build-system-modules)
12118        #:modules (((guix build python-build-system) #:prefix python:)
12119                   (guix build meson-build-system)
12120                   (guix build utils))
12121        #:tests? #f ;; The flake8 test fails trying to validate piper.in as code.
12122        #:phases
12123        (modify-phases %standard-phases
12124          (add-after 'unpack 'dont-update-gtk-icon-cache
12125            (lambda _
12126              (substitute* "meson.build"
12127                (("meson.add_install_script('meson_install.sh')") ""))
12128              #t))
12129          ;; TODO: Switch to wrap-script when it is fixed.
12130          (add-after 'install 'wrap-python
12131            (assoc-ref python:%standard-phases 'wrap))
12132          (add-after 'wrap-python 'wrap
12133            (lambda* (#:key outputs #:allow-other-keys)
12134              (wrap-program
12135                  (string-append (assoc-ref outputs "out" )"/bin/piper")
12136                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12137              #t)))))
12138     (home-page "https://github.com/libratbag/piper/")
12139     (synopsis "Configure bindings and LEDs on gaming mice")
12140     (description "Piper is a GTK+ application for configuring gaming mice with
12141 onboard configuration for key bindings via libratbag.  Piper requires
12142 a @command{ratbagd} daemon running with root privileges.  It can be run
12143 manually as root, but is preferably configured as a DBus service that can
12144 launch on demand.  This can be configured by enabling the following service,
12145 provided there is a DBus service present:
12146
12147   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
12148     (license license:gpl2)))
12149
12150 (define-public parlatype
12151   (package
12152     (name "parlatype")
12153     (version "3.1")
12154     (source
12155      (origin
12156        (method git-fetch)
12157        (uri (git-reference
12158              (url "https://github.com/gkarsay/parlatype")
12159              (commit (string-append "v" version))))
12160        (file-name (git-file-name name version))
12161        (sha256
12162         (base32 "0cqrzbkyksfsm57riirmjkwf2nf2dgl1xpps1wvqxpij475qcb9b"))))
12163     (build-system meson-build-system)
12164     (arguments
12165      `(#:glib-or-gtk? #t
12166        #:tests? #f                      ;require internet access
12167        #:phases
12168        (modify-phases %standard-phases
12169          (add-after 'unpack 'skip-gtk-update-icon-cache
12170            (lambda _
12171              (substitute* "data/meson_post_install.py"
12172                (("gtk-update-icon-cache") "true"))))
12173          (add-after 'install 'wrap-parlatype
12174            ;; Add gstreamer plugin provided in this package to system's
12175            ;; plugins.
12176            (lambda* (#:key outputs #:allow-other-keys)
12177              (let* ((out (assoc-ref outputs "out"))
12178                     (gst-plugin-path (string-append
12179                                       out "/lib/gstreamer-1.0/"
12180                                       ":"
12181                                       (getenv "GST_PLUGIN_SYSTEM_PATH"))))
12182                (wrap-program (string-append out "/bin/parlatype")
12183                  `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path)))))))))
12184     (native-inputs
12185      (list appstream-glib
12186            desktop-file-utils           ;for desktop-file-validate
12187            gettext-minimal
12188            `(,glib "bin")               ;for glib-compile-resources
12189            pkg-config
12190            yelp-tools))
12191     (inputs
12192      (list gst-plugins-base
12193            gst-plugins-good
12194            gstreamer
12195            gtk+
12196            iso-codes
12197            pocketsphinx
12198            pulseaudio
12199            sphinxbase))
12200     (home-page "https://www.parlatype.org")
12201     (synopsis "GNOME audio player for transcription")
12202     (description "Parlatype is an audio player for the GNOME desktop
12203 environment.  Its main purpose is the manual transcription of spoken
12204 audio files.")
12205     (license license:gpl3+)))
12206
12207 (define-public jsonrpc-glib
12208   (package
12209     (name "jsonrpc-glib")
12210     (version "3.34.0")
12211     (source (origin
12212               (method url-fetch)
12213               (uri (string-append "mirror://gnome/sources/" name "/"
12214                                   (version-major+minor version) "/"
12215                                    name "-" version ".tar.xz"))
12216               (sha256
12217                (base32
12218                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
12219     (build-system meson-build-system)
12220     (inputs
12221      (list json-glib glib))
12222     (native-inputs
12223      (list pkg-config
12224            `(,glib "bin") ; for glib-genmarshal, etc.
12225            gobject-introspection vala))
12226     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
12227     (synopsis "JSON-RPC library for GLib")
12228     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
12229 peers in either a synchronous or asynchronous fashion.  It also allows
12230 communicating using the GVariant serialization format instead of JSON when
12231 both peers support it.  You might want that when communicating on a single
12232 host to avoid parser overhead and memory-allocator fragmentation.")
12233     (license license:lgpl2.1+)))
12234
12235 (define-public feedbackd
12236   (package
12237     (name "feedbackd")
12238     (version "0.0.0+git20200527")
12239     (source (origin
12240               (method git-fetch)
12241               (uri (git-reference
12242                     (url "https://source.puri.sm/Librem5/feedbackd.git")
12243                     (commit (string-append "v" version))))
12244               (file-name (git-file-name name version))
12245               (sha256
12246                (base32
12247                 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
12248     (build-system meson-build-system)
12249     (native-inputs
12250      (list `(,glib "bin") gobject-introspection pkg-config vala))
12251     (inputs
12252      (list dbus gsound json-glib libgudev))
12253     (propagated-inputs
12254      (list glib)) ; in Requires of libfeedback-0.0.pc
12255     (synopsis "Haptic/visual/audio feedback via DBus")
12256     (description "Feedbackd provides a DBus daemon to act on events to provide
12257 haptic, visual and audio feedback.  It offers the libfeedbackd library and
12258 GObject introspection bindings.")
12259      (home-page "https://source.puri.sm/Librem5/feedbackd")
12260      (license (list license:lgpl2.1+   ; libfeedbackd
12261                     license:lgpl3+)))) ; the rest
12262
12263 (define-public sysprof
12264   (package
12265     (name "sysprof")
12266     (version "3.42.1")
12267     (source
12268      (origin
12269        (method url-fetch)
12270        (uri (string-append "mirror://gnome/sources/sysprof/"
12271                            (version-major+minor version) "/"
12272                            "sysprof-" version ".tar.xz"))
12273        (sha256
12274         (base32 "0090986ar3lz9m9fy7l5y9ibzzmgsx54cm6gp8ggsxgf0habi5hp"))))
12275     (build-system meson-build-system)
12276     (arguments
12277      `(#:configure-flags
12278        (list (string-append "-Dsystemdunitdir="
12279                             %output
12280                             "/share/systemd"))
12281        #:tests? #f ; 3/4 test-model-filter barfs some dbus nonsense
12282        #:phases
12283        (modify-phases %standard-phases
12284          (add-after 'unpack 'patch-install-script
12285            (lambda _
12286              (substitute* "build-aux/meson/post_install.sh"
12287                (("gtk-update-icon-cache") "true")
12288                (("update-desktop-database") "true"))
12289              #t)))))
12290     (propagated-inputs
12291      (list polkit))
12292     (inputs
12293      (list glib gtk+ json-glib libdazzle polkit))
12294     (native-inputs
12295      `(("gettext" ,gettext-minimal)
12296        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
12297        ("itstool" ,itstool)
12298        ("pkg-config" ,pkg-config)
12299        ("xmllint" ,libxml2)))
12300     ;; This home page is so woefully out of date as to be essentially useless.
12301     ;; (home-page "http://www.sysprof.com")
12302     (home-page "https://wiki.gnome.org/Apps/Sysprof")
12303     (synopsis "System-wide performance profiler for GNU/Linux")
12304     (description
12305      "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
12306 GNU/Linux system including the kernel and all user-space applications.  This
12307 helps find the function(s) in which a program spends most of its time.
12308
12309 It uses the kernel's built-in @code{ptrace} feature and handles shared
12310 libraries.  Applications do not need to be recompiled--or even restarted.")
12311     (license license:gpl3+)))
12312
12313 (define-public gnome-builder
12314   (package
12315     (name "gnome-builder")
12316     (version "41.2")
12317     (source (origin
12318               (method url-fetch)
12319               (uri (string-append "mirror://gnome/sources/" name "/"
12320                                   (version-major version) "/"
12321                                   name "-" version ".tar.xz"))
12322               (sha256
12323                (base32
12324                 "04p031i999dccbnlbysmr6f93x7dji7b559j6yhdsqbqgxb7ncan"))))
12325     (build-system meson-build-system)
12326     (arguments
12327      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
12328        #:configure-flags (list "-Dnetwork_tests=false"
12329                                ;; TODO: Enable all plugins...
12330                                ;; Flatpak plugin wants libsoup 2
12331                                "-Dplugin_flatpak=false"
12332                                ;; ... except this one.
12333                                "-Dplugin_update_manager=false")
12334        #:phases
12335        (modify-phases %standard-phases
12336          (add-after 'unpack 'patch-meson
12337            (lambda* (#:key inputs #:allow-other-keys)
12338              (substitute* "build-aux/meson/post_install.py"
12339                (("gtk-update-icon-cache") "true")
12340                (("update-desktop-database") "true"))
12341              (substitute* "src/libide/meson.build"
12342                (("/usr/lib")
12343                 (string-append (assoc-ref inputs "python-pygobject")
12344                                "/lib")))))
12345          (add-after 'configure 'fix-ninja
12346            (lambda _
12347              ;; #43296: meson(?) incorrectly assumes we want to link
12348              ;;         this PIE against a static libselinux.
12349              (substitute* "build.ninja"
12350                (("libselinux\\.a") "libselinux.so"))
12351              #t))
12352          (add-before 'check 'pre-check
12353            (lambda _
12354              (system "Xvfb :1 &")
12355              (setenv "DISPLAY" ":1")
12356              #t)))))
12357     (inputs
12358      `(("cmark" ,cmark)
12359        ("clang" ,clang)
12360        ("devhelp" ,devhelp-with-libsoup2)
12361        ("glade" ,glade3)
12362        ("gspell" ,gspell)
12363        ("gtk+" ,gtk+)
12364        ("json-glib" ,json-glib)
12365        ("jsonrpc-glib" ,jsonrpc-glib)
12366        ("libdazzle" ,libdazzle)
12367        ("libgit2-glib" ,libgit2-glib)
12368        ("libpeas" ,libpeas)
12369        ("libportal" ,libportal)
12370        ("libsoup" ,libsoup-minimal-2)
12371        ("llvm" ,llvm)
12372        ("python-pygobject" ,python-pygobject)
12373        ("sysprof" ,sysprof)
12374        ("template-glib" ,template-glib)
12375        ("vte" ,vte)
12376        ("webkitgtk" ,webkitgtk-with-libsoup2)))
12377     (propagated-inputs
12378      (list gtksourceview))         ;needed for settings
12379     (native-inputs
12380      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
12381        ("glib:bin" ,glib "bin")
12382        ("gettext" ,gettext-minimal)
12383        ("pkg-config" ,pkg-config)
12384        ("vala" ,vala)
12385        ("xorg-server" ,xorg-server-for-tests)))
12386     (home-page "https://wiki.gnome.org/Apps/Builder")
12387     (synopsis "Toolsmith for GNOME-based applications")
12388     (description "Builder aims to be an integrated development
12389 environment (IDE) for writing GNOME-based software.  It features fuzzy search,
12390 auto-completion, a mini code map, documentation browsing, Git integration, an
12391 integrated profiler via Sysprof, debugging support, and more.")
12392     (license license:gpl3+)))
12393
12394 (define-public komikku
12395   (package
12396     (name "komikku")
12397     (version "0.36.0")
12398     (source
12399      (origin
12400        (method git-fetch)
12401        (uri (git-reference
12402              (url "https://gitlab.com/valos/Komikku/")
12403              (commit (string-append "v" version))))
12404        (file-name (git-file-name name version))
12405        (sha256
12406         (base32
12407          "05gc51dphqladfv1dw680hzgvmiydggz885zhmhw501jm1f15ryj"))))
12408     (build-system meson-build-system)
12409     (arguments
12410      `(#:glib-or-gtk? #t
12411        #:phases
12412        (modify-phases %standard-phases
12413          (add-after 'unpack 'patch-sources
12414            (lambda _
12415              (substitute* "komikku/utils.py"
12416                (("from komikku\\.servers import get_servers_list")
12417                 ;; code following that line should migrate old databases
12418                 ;; but the line itself results in an import error
12419                 "return data_dir_path"))))
12420          (add-after 'unpack 'skip-gtk-update-icon-cache
12421            (lambda _
12422              (substitute* "meson_post_install.py"
12423                (("gtk-update-icon-cache") (which "true")))
12424              #t))
12425          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12426           (lambda* (#:key outputs #:allow-other-keys)
12427             (let ((prog (string-append (assoc-ref outputs "out")
12428                                        "/bin/komikku")))
12429               (wrap-program prog
12430                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
12431                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12432               #t))))))
12433     (inputs
12434      (list gtk+
12435            libhandy
12436            libnotify
12437            libsecret
12438            python-beautifulsoup4
12439            python-brotli
12440            python-cloudscraper
12441            python-dateparser
12442            python-keyring
12443            python-lxml
12444            python-magic
12445            python-natsort
12446            python-pillow
12447            python-pure-protobuf
12448            python-pycairo
12449            python-pygobject
12450            python-requests
12451            python-unidecode
12452            webkitgtk-with-libsoup2))
12453     (native-inputs
12454      (list desktop-file-utils
12455            gettext-minimal
12456            `(,glib "bin")
12457            gobject-introspection
12458            pkg-config))
12459     (home-page "https://gitlab.com/valos/Komikku")
12460     (synopsis "Manga reader for GNOME")
12461     (description "Komikku is an online/offline manga reader for GNOME,
12462 developed with the aim of being used with the Librem 5 phone.")
12463     (license license:gpl3+)))
12464
12465 (define-public libgda
12466   (package
12467     (name "libgda")
12468     (version "5.2.10")
12469     (source
12470      (origin
12471        (method git-fetch)
12472        (uri (git-reference
12473              (url "https://gitlab.gnome.org/GNOME/libgda.git/")
12474              (commit (string-append "LIBGDA_" (string-replace-substring
12475                                                version "." "_")))))
12476        (file-name (git-file-name name version))
12477        (sha256
12478         (base32 "18rg773gq9v3cdywpmrp12c5xyp97ir9yqjinccpi22sksb1kl8a"))
12479        (modules '((guix build utils)))
12480        (snippet
12481         ;; Remove the bundled sqlite, but keep its header because code relies
12482         ;; on this header variant.
12483         '(delete-file "libgda/sqlite/sqlite-src/sqlite3.c"))))
12484     (build-system gnu-build-system)
12485     (arguments
12486      `(#:configure-flags '("--enable-system-sqlite" "--enable-vala")
12487        ;; There's a race between check_cnc_lock and check_threaded_cnc
12488        ;; in tests/multi-threading.
12489        #:parallel-tests? #f
12490        #:phases
12491        (modify-phases %standard-phases
12492          (add-after 'unpack 'fix-glade-install
12493            (lambda _
12494              (substitute* "configure.ac"
12495                (("`\\$PKG_CONFIG --variable=catalogdir gladeui-2\\.0`")
12496                 "${datadir}/glade/catalogs")
12497                (("`\\$PKG_CONFIG --variable=pixmapdir gladeui-2\\.0`")
12498                 "${datadir}/glade/pixmaps"))
12499              #t))
12500          (add-before 'check 'pre-check
12501            (lambda* (#:key inputs #:allow-other-keys)
12502              ;; Tests require a running X server.
12503              (system "Xvfb :1 &")
12504              (setenv "DISPLAY" ":1")
12505              #t))
12506          (add-after 'install 'symlink-glade-module
12507            (lambda* (#:key outputs #:allow-other-keys)
12508              (let* ((shlib "libgda-ui-5.0.so")
12509                     (out (assoc-ref outputs "out"))
12510                     (out/lib (string-append out "/lib"))
12511                     (moduledir (string-append out/lib "/glade/modules")))
12512                (mkdir-p moduledir)
12513                (symlink (string-append out/lib "/" shlib)
12514                         (string-append moduledir "/" shlib))
12515                #t))))))
12516     (propagated-inputs
12517      (list libxml2))           ; required by libgda-5.0.pc
12518     (inputs
12519      (list glib
12520            glade3
12521            gtk+
12522            libsecret
12523            libxslt
12524            openssl
12525            sqlite
12526            vala))
12527     (native-inputs
12528      `(("autoconf" ,autoconf)
12529        ("autoconf-archive" ,autoconf-archive)
12530        ("automake" ,automake)
12531        ("glib:bin" ,glib "bin")
12532        ("gnome-common" ,gnome-common)
12533        ("gobject-introspection" ,gobject-introspection)
12534        ("gtk-doc" ,gtk-doc/stable)
12535        ("intltool" ,intltool)
12536        ("libtool" ,libtool)
12537        ("pkg-config" ,pkg-config)
12538        ("vala" ,vala)
12539        ("which" ,which)
12540        ("xorg-server" ,xorg-server-for-tests)
12541        ("yelp-tools" ,yelp-tools)))
12542     (home-page "https://gitlab.gnome.org/GNOME/libgda")
12543     (synopsis "Uniform data access")
12544     (description
12545      "GNU Data Access (GDA) is an attempt to provide uniform access to
12546 different kinds of data sources (databases, information servers, mail spools,
12547 etc).  It is a complete architecture that provides all you need to access
12548 your data.")
12549     (license license:lgpl2.1+)))
12550
12551 (define-public gtranslator
12552   (package
12553     (name "gtranslator")
12554     (version "40.0")
12555         (source (origin
12556               (method url-fetch)
12557               (uri (string-append "mirror://gnome/sources/" name "/"
12558                                   (version-major version) "/"
12559                                   name "-" version ".tar.xz"))
12560               (sha256
12561                (base32
12562                 "0d48nc11z0m91scy21ah56ysxns82zvswx8lglvlkig1vqvblgpc"))))
12563     (build-system meson-build-system)
12564     (inputs
12565      `(("json-glib" ,json-glib)
12566        ("jsonrpc-glib" ,jsonrpc-glib)
12567        ("gettext" ,gettext-minimal)
12568        ("glib" ,glib)
12569        ("gtk+" ,gtk+)
12570        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12571        ("gspell" ,gspell)
12572        ("libdazzle" ,libdazzle)
12573        ("libgda" ,libgda)
12574        ("libhandy" ,libhandy)
12575        ("libsoup" ,libsoup-minimal-2)))
12576     (native-inputs
12577      `(("glib:bin" ,glib "bin")
12578        ("itstool" ,itstool)
12579        ("pkg-config" ,pkg-config)))
12580     (propagated-inputs
12581      (list gtksourceview)) ; required for source view
12582     (arguments
12583      `(#:meson ,meson-0.59
12584        #:build-type "release"
12585        #:glib-or-gtk? #t
12586        #:phases
12587        (modify-phases %standard-phases
12588          (add-after 'unpack 'skip-gtk-update-icon-cache
12589            (lambda _
12590              (substitute* "build-aux/meson/meson_post_install.py"
12591                (("gtk-update-icon-cache") (which "true")))
12592              #t)))))
12593     (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12594     (synopsis "Translation making program")
12595     (description
12596      "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12597 for the GNOME 3.x platform with many features.  It aims to be a very complete
12598 editing environment for translation issues within the GNU gettext/GNOME desktop
12599 world.")
12600     (license license:gpl3+)))
12601
12602
12603 (define-public ocrfeeder
12604   (package
12605     (name "ocrfeeder")
12606     (version "0.8.3")
12607     (source (origin
12608               (method url-fetch)
12609               (uri (string-append "mirror://gnome/sources/ocrfeeder/"
12610                                   (version-major+minor version) "/"
12611                                   "ocrfeeder-" version ".tar.xz"))
12612               (sha256
12613                (base32
12614                 "12f5gnq92ffnd5zaj04df7jrnsdz1zn4zcgpbf5p9qnd21i2y529"))))
12615     (build-system gnu-build-system)
12616     (arguments
12617      `(#:phases
12618        (modify-phases %standard-phases
12619          (add-after
12620           'install 'wrap-program
12621           (lambda* (#:key outputs #:allow-other-keys)
12622             (let ((prog (string-append (assoc-ref outputs "out")
12623                                        "/bin/" "ocrfeeder"))
12624                   (pylib (string-append (assoc-ref outputs "out")
12625                                         "/lib/python"
12626                                         ,(version-major+minor
12627                                           (package-version python))
12628                                         "/site-packages")))
12629               (wrap-program prog
12630                 `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12631                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12632               #t))))))
12633     (native-inputs
12634      `(("glib:bin" ,glib "bin")                   ; for glib-compile-resources
12635        ("gobject-introspection" ,gobject-introspection)
12636        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
12637        ("intltool" ,intltool)
12638        ("itstool" ,itstool)
12639        ("pkg-config" ,pkg-config)
12640        ("xmllint" ,libxml2)))
12641     (inputs
12642      `(("enchant" ,enchant)
12643        ("glib" ,glib)
12644        ("goocanvas" ,goocanvas)
12645        ("gtk" ,gtk+)
12646        ("gtkspell3" ,gtkspell3)
12647        ("libjpeg" ,libjpeg-turbo)
12648        ("libtiff" ,libtiff)
12649        ("libraw" ,libraw)
12650        ("ocrad" ,ocrad)
12651        ("python" ,python-wrapper)
12652        ("python-pygobject" ,python-pygobject)
12653        ("python-odfpy" ,python-odfpy)
12654        ("python-pillow" ,python-pillow)
12655        ("python-pyenchant" ,python-pyenchant)
12656        ("python-reportlab" ,python-reportlab)
12657        ("python-sane" ,python-sane)
12658        ("sane-backends" ,sane-backends)
12659        ("tesseract-ocr" ,tesseract-ocr)))
12660     (home-page "https://wiki.gnome.org/Apps/OCRFeeder")
12661     (synopsis "Complete OCR Suite")
12662     (description "OCRFeeder is a complete Optical Character Recognition and
12663 Document Analysis and Recognition program.")
12664     (license license:gpl3+)))
12665
12666 (define-public libadwaita
12667   (let ((commit "8d66b987a19979d9d7b85dacc6bad5ce0c8743fe")
12668         (revision "1"))
12669     (package
12670       (name "libadwaita")
12671       (version (git-version "0.0.1" revision commit))
12672       (source (origin
12673                 (method git-fetch)
12674                 (uri (git-reference
12675                       (url "https://gitlab.gnome.org/GNOME/libadwaita.git")
12676                       (commit commit)))
12677                 (file-name (git-file-name name version))
12678                 (sha256
12679                  (base32
12680                   "0i3wav6jsyi4w4i2r1rad769m5y5s9djj4zqb7dfyh0bad24ba3q"))))
12681       (build-system meson-build-system)
12682       (arguments
12683        `(#:phases
12684          (modify-phases %standard-phases
12685            (add-before 'check 'pre-check
12686              (lambda* (#:key inputs #:allow-other-keys)
12687                ;; Tests require a running X server.
12688                (system "Xvfb :1 &")
12689                (setenv "DISPLAY" ":1"))))))
12690       (native-inputs
12691        `(("sassc" ,sassc)
12692          ("glib:bin" ,glib "bin")
12693          ("gtk-doc" ,gtk-doc/stable)
12694          ("pkg-config" ,pkg-config)
12695          ("vala" ,vala)
12696          ("xvfb" ,xorg-server-for-tests)))
12697       (inputs
12698        (list gtk gobject-introspection libportal))
12699       (home-page "https://gnome.pages.gitlab.gnome.org/libadwaita/")
12700       (synopsis "Building blocks for GNOME applications")
12701       (description
12702        "@code{libadwaita} offers widgets and objects to build GNOME
12703 applications scaling from desktop workstations to mobile phones.  It is the
12704 successor of @code{libhandy} for GTK4.")
12705       (license license:lgpl2.1+))))
12706
12707 (define-public gnome-power-manager
12708   (package
12709     (name "gnome-power-manager")
12710     (version "3.32.0")
12711     (source (origin
12712               (method url-fetch)
12713               (uri (string-append "mirror://gnome/sources/" name "/"
12714                                   (version-major+minor version) "/"
12715                                   name "-" version ".tar.xz"))
12716               (sha256
12717                (base32
12718                 "0drfn3wcc8l4n07qwv6p0rw2dwcd00hwzda282q62l6sasks2b2g"))))
12719     (build-system meson-build-system)
12720     (inputs
12721      (list upower gtk+ gsettings-desktop-schemas adwaita-icon-theme))
12722     (native-inputs
12723      (list desktop-file-utils
12724            `(,glib "bin") gettext-minimal pkg-config))
12725     (home-page "https://gitlab.gnome.org/GNOME/gnome-power-manager")
12726     (synopsis "Power management daemon for the GNOME desktop")
12727     (description "@code{gnome-power-manager} is a tool for viewing present and
12728 historical battery usage and related statistics.")
12729     (license license:gpl2)))