gnu/packages/gnome.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014-2022 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
   5 ;;; Copyright © 2014, 2016, 2020 Eric Bavier <bavier@posteo.net>
   6 ;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
   7 ;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
   8 ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
   9 ;;; Copyright © 2015, 2017 Andy Wingo <wingo@igalia.com>
  10 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
  11 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
  12 ;;; Copyright © 2015, 2016, 2017, 2018, 2021 Mark H Weaver <mhw@netris.org>
  13 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
  14 ;;; Copyright © 2015-2022 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016, 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
  16 ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
  17 ;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
  18 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  19 ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
  20 ;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
  21 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  22 ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
  23 ;;; Copyright © 2016 David Craven <david@craven.ch>
  24 ;;; Copyright © 2016–2022 Tobias Geerinckx-Rice <me@tobias.gr>
  25 ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
  26 ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
  27 ;;; Copyright © 2017, 2018 nee <nee-git@hidamari.blue>
  28 ;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
  29 ;;; Copyright © 2017 Mohammed Sadiq <sadiq@sadiqpk.org>
  30 ;;; Copyright © 2017, 2020, 2021 Brendan Tildesley <mail@brendan.scot>
  31 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
  32 ;;; Copyright © 2018 Jovany Leandro G.C <bit4bit@riseup.net>
  33 ;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com>
  34 ;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
  35 ;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
  36 ;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
  37 ;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org>
  38 ;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
  39 ;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
  40 ;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
  41 ;;; Copyright © 2019 Jonathan Frederickson <jonathan@terracrypt.net>
  42 ;;; Copyright © 2019, 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  43 ;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
  44 ;;; Copyright © 2019 David Wilson <david@daviwil.com>
  45 ;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  46 ;;; Copyright © 2019, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
  47 ;;; Copyright © 2019, 2020, 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
  48 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
  49 ;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
  50 ;;; Copyright © 2020 raingloom <raingloom@riseup.net>
  51 ;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  52 ;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
  53 ;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
  54 ;;; Copyright © 2020, 2021, 2022 Vinicius Monego <monego@posteo.net>
  55 ;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
  56 ;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
  57 ;;; Copyright © 2020, 2022 Michael Rohleder <mike@rohleder.de>
  58 ;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
  59 ;;; Copyright © 2020, 2021 Andy Tai <atai@atai.org>
  60 ;;; Copyright © 2020, 2021 Sébastien Lerique <sl@eauchat.org>
  61 ;;; Copyright © 2021 Trevor Hass <thass@okstate.edu>
  62 ;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
  63 ;;; Copyright © 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
  64 ;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
  65 ;;; Copyright © 2021, 2022 Maxime Devos <maximedevos@telenet.be>
  66 ;;; Copyright © 2021 Josselin Poiret <josselin.poiret@protonmail.ch>
  67 ;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
  68 ;;; Copyright © 2022 Daniel Meißner <daniel.meissner-i4k@ruhr-uni-bochum.de>
  69 ;;; Copyright © 2022 Pierre Langlois <pierre.langlois@gmx.com>
  70 ;;; Copyright © 2022 John Kehayias <john.kehayias@protonmail.com>
  71 ;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
  72 ;;; Copyright © 2022 Leo Nikkilä <hello@lnikki.la>
  73 ;;; Copyright © 2022 Rene Saavedra <nanuui@protonmail.com>
  74 ;;; Copyright © 2022 Alexandros Theodotou <alex@zrythm.org>
  75 ;;;
  76 ;;; This file is part of GNU Guix.
  77 ;;;
  78 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  79 ;;; under the terms of the GNU General Public License as published by
  80 ;;; the Free Software Foundation; either version 3 of the License, or (at
  81 ;;; your option) any later version.
  82 ;;;
  83 ;;; GNU Guix is distributed in the hope that it will be useful, but
  84 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  85 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  86 ;;; GNU General Public License for more details.
  87 ;;;
  88 ;;; You should have received a copy of the GNU General Public License
  89 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  90
  91 (define-module (gnu packages gnome)
  92   #:use-module (gnu packages)
  93   #:use-module (gnu packages admin)
  94   #:use-module (gnu packages aidc)
  95   #:use-module (gnu packages aspell)
  96   #:use-module (gnu packages autotools)
  97   #:use-module (gnu packages avahi)
  98   #:use-module (gnu packages backup)
  99   #:use-module (gnu packages base)
 100   #:use-module (gnu packages bash)
 101   #:use-module (gnu packages bison)
 102   #:use-module (gnu packages boost)
 103   #:use-module (gnu packages build-tools)
 104   #:use-module (gnu packages calendar)
 105   #:use-module (gnu packages cdrom)
 106   #:use-module (gnu packages check)
 107   #:use-module (gnu packages cmake)
 108   #:use-module (gnu packages compression)
 109   #:use-module (gnu packages crates-io)
 110   #:use-module (gnu packages crates-graphics)
 111   #:use-module (gnu packages crates-gtk)
 112   #:use-module (gnu packages cups)
 113   #:use-module (gnu packages curl)
 114   #:use-module (gnu packages cyrus-sasl)
 115   #:use-module (gnu packages databases)
 116   #:use-module (gnu packages dbm)
 117   #:use-module (gnu packages djvu)
 118   #:use-module (gnu packages dns)
 119   #:use-module (gnu packages docbook)
 120   #:use-module (gnu packages docker)
 121   #:use-module (gnu packages documentation)
 122   #:use-module (gnu packages enchant)
 123   #:use-module (gnu packages flex)
 124   #:use-module (gnu packages fonts)
 125   #:use-module (gnu packages file-systems)
 126   #:use-module (gnu packages fontutils)
 127   #:use-module (gnu packages freedesktop)
 128   #:use-module (gnu packages game-development)
 129   #:use-module (gnu packages gcc)
 130   #:use-module (gnu packages gettext)
 131   #:use-module (gnu packages ghostscript)
 132   #:use-module (gnu packages gimp)
 133   #:use-module (gnu packages gl)
 134   #:use-module (gnu packages glib)
 135   #:use-module (gnu packages gnupg)
 136   #:use-module (gnu packages gnuzilla)
 137   #:use-module (gnu packages geo)
 138   #:use-module (gnu packages gperf)
 139   #:use-module (gnu packages graphviz)
 140   #:use-module (gnu packages gstreamer)
 141   #:use-module (gnu packages gtk)
 142   #:use-module (gnu packages guile)
 143   #:use-module (gnu packages haskell-xyz)
 144   #:use-module (gnu packages ibus)
 145   #:use-module (gnu packages icu4c)
 146   #:use-module (gnu packages image)
 147   #:use-module (gnu packages imagemagick)
 148   #:use-module (gnu packages inkscape)
 149   #:use-module (gnu packages iso-codes)
 150   #:use-module (gnu packages kerberos)
 151   #:use-module (gnu packages language)
 152   #:use-module (gnu packages libcanberra)
 153   #:use-module (gnu packages libffi)
 154   #:use-module (gnu packages libunistring)
 155   #:use-module (gnu packages libunwind)
 156   #:use-module (gnu packages libusb)
 157   #:use-module (gnu packages linux)
 158   #:use-module (gnu packages lirc)
 159   #:use-module (gnu packages llvm)
 160   #:use-module (gnu packages lua)
 161   #:use-module (gnu packages mail)
 162   #:use-module (gnu packages man)
 163   #:use-module (gnu packages markup)
 164   #:use-module (gnu packages messaging)
 165   #:use-module (gnu packages mp3)
 166   #:use-module (gnu packages multiprecision)
 167   #:use-module (gnu packages music)
 168   #:use-module (gnu packages ncurses)
 169   #:use-module (gnu packages nettle)
 170   #:use-module (gnu packages networking)
 171   #:use-module (gnu packages ninja)
 172   #:use-module (gnu packages node)
 173   #:use-module (gnu packages nss)
 174   #:use-module (gnu packages ocr)
 175   #:use-module (gnu packages openldap)
 176   #:use-module (gnu packages package-management)
 177   #:use-module (gnu packages password-utils)
 178   #:use-module (gnu packages pcre)
 179   #:use-module (gnu packages pdf)
 180   #:use-module (gnu packages perl)
 181   #:use-module (gnu packages photo)
 182   #:use-module (gnu packages pkg-config)
 183   #:use-module (gnu packages polkit)
 184   #:use-module (gnu packages popt)
 185   #:use-module (gnu packages pretty-print)
 186   #:use-module (gnu packages protobuf)
 187   #:use-module (gnu packages pulseaudio)
 188   #:use-module (gnu packages python)
 189   #:use-module (gnu packages python-crypto)
 190   #:use-module (gnu packages python-web)
 191   #:use-module (gnu packages python-xyz)
 192   #:use-module (gnu packages rdesktop)
 193   #:use-module (gnu packages rdf)
 194   #:use-module (gnu packages readline)
 195   #:use-module (gnu packages ruby)
 196   #:use-module (gnu packages rust)
 197   #:use-module (gnu packages samba)
 198   #:use-module (gnu packages scanner)
 199   #:use-module (gnu packages sdl)
 200   #:use-module (gnu packages search)
 201   #:use-module (gnu packages selinux)
 202   #:use-module (gnu packages slang)
 203   #:use-module (gnu packages speech)
 204   #:use-module (gnu packages spice)
 205   #:use-module (gnu packages sqlite)
 206   #:use-module (gnu packages ssh)
 207   #:use-module (gnu packages swig)
 208   #:use-module (gnu packages tex)
 209   #:use-module (gnu packages time)
 210   #:use-module (gnu packages tls)
 211   #:use-module (gnu packages valgrind)
 212   #:use-module (gnu packages version-control)
 213   #:use-module (gnu packages video)
 214   #:use-module (gnu packages virtualization)
 215   #:use-module (gnu packages vpn)
 216   #:use-module (gnu packages web)
 217   #:use-module (gnu packages webkit)
 218   #:use-module (gnu packages xdisorg)
 219   #:use-module (gnu packages xiph)
 220   #:use-module (gnu packages xml)
 221   #:use-module (gnu packages xorg)
 222   #:use-module (gnu artwork)
 223   #:use-module (guix build-system cargo)
 224   #:use-module (guix build-system cmake)
 225   #:use-module (guix build-system glib-or-gtk)
 226   #:use-module (guix build-system gnu)
 227   #:use-module (guix build-system meson)
 228   #:use-module (guix build-system python)
 229   #:use-module (guix build-system trivial)
 230   #:use-module (guix download)
 231   #:use-module (guix git-download)
 232   #:use-module ((guix licenses) #:prefix license:)
 233   #:use-module (guix packages)
 234   #:use-module (guix utils)
 235   #:use-module (guix gexp)
 236   #:use-module (ice-9 match)
 237   #:use-module (srfi srfi-1))
 238
 239 (define-public gupnp-igd
 240   (package
 241     (name "gupnp-igd")
 242     (version "1.2.0")
 243     (source
 244      (origin
 245        (method url-fetch)
 246        (uri
 247         (string-append "mirror://gnome/sources/" name "/"
 248                        (version-major+minor version) "/"
 249                        name "-" version ".tar.xz"))
 250        (sha256
 251         (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
 252     (build-system meson-build-system)
 253     (outputs '("out" "doc"))
 254     (arguments
 255      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
 256        #:configure-flags (list "-Dgtk_doc=true")
 257        #:phases
 258        (modify-phases %standard-phases
 259          (add-after 'unpack 'patch-docbook-xml
 260            (lambda* (#:key inputs #:allow-other-keys)
 261              (with-directory-excursion "doc"
 262                (substitute* "gupnp-igd-docs.xml"
 263                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 264                   (string-append (assoc-ref inputs "docbook-xml-4.1.2")
 265                                  "/xml/dtd/docbook/"))))
 266              #t))
 267          (add-before 'check 'set-home
 268            (lambda _
 269              ;; A test using GIO expects ~/.config/glib-2.0/settings to be
 270              ;; writable.
 271              (setenv "HOME" (getcwd))))
 272          (add-after 'install 'move-doc
 273            (lambda* (#:key outputs #:allow-other-keys)
 274              (let* ((out (assoc-ref outputs "out"))
 275                     (doc (assoc-ref outputs "doc")))
 276                (mkdir-p (string-append doc "/share"))
 277                (rename-file
 278                 (string-append out "/share/gtk-doc")
 279                 (string-append doc "/share/gtk-doc"))
 280                #t))))))
 281     (native-inputs
 282      `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
 283        ("docbook-xsl" ,docbook-xsl)
 284        ("glib:bin" ,glib "bin")
 285        ("gobject-introspection" ,gobject-introspection)
 286        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 287        ("gtk-doc" ,gtk-doc/stable)
 288        ("pkg-config" ,pkg-config)))
 289     (propagated-inputs
 290      (list glib glib-networking gssdp gupnp libsoup))
 291     (synopsis "UPnP IGD for GNOME")
 292     (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
 293     (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
 294     (license license:lgpl2.1+)))
 295
 296 (define-public brasero
 297   (package
 298     (name "brasero")
 299     (version "3.12.3")
 300     (source (origin
 301              (method url-fetch)
 302              (uri (string-append "mirror://gnome/sources/brasero/"
 303                                  (version-major+minor version) "/"
 304                                  "brasero-" version ".tar.xz"))
 305              (sha256
 306               (base32
 307                "05gabybkl7xfinwx97i4scp9hic0dlxj7gh03dyj0hd16fp9wx47"))))
 308     (build-system glib-or-gtk-build-system)
 309     (arguments
 310      `(#:configure-flags (list
 311                           (string-append "--with-girdir="
 312                                          (assoc-ref %outputs "out")
 313                                          "/share/gir-1.0")
 314                           (string-append "--with-typelibdir="
 315                                          (assoc-ref %outputs "out")
 316                                          "/lib/girepository-1.0"))
 317        #:phases
 318        (modify-phases %standard-phases
 319          (add-before 'configure 'embed-growisofs-reference
 320            (lambda* (#:key inputs #:allow-other-keys)
 321              (let ((dvd+rw-tools (assoc-ref inputs "dvd+rw-tools")))
 322                (substitute* "plugins/growisofs/burn-growisofs.c"
 323                  (("(\")(growisofs)" _ prefix command)
 324                   (string-append prefix dvd+rw-tools "/bin/" command)))))))))
 325     (propagated-inputs
 326      (list hicolor-icon-theme))
 327     (native-inputs
 328      (list intltool
 329            itstool
 330            `(,glib "bin") ; glib-compile-schemas, etc.
 331            gobject-introspection
 332            pkg-config))
 333     (inputs
 334      (list dvd+rw-tools
 335            glib
 336            gstreamer
 337            gst-plugins-base
 338            gtk+
 339            libcanberra
 340            libice
 341            libnotify
 342            libsm
 343            libxml2
 344            totem-pl-parser))
 345     (home-page "https://wiki.gnome.org/Apps/Brasero")
 346     (synopsis "CD/DVD burning tool for Gnome")
 347     (description "Brasero is an application to burn CD/DVD for the Gnome
 348 Desktop.  It is designed to be as simple as possible and has some unique
 349 features to enable users to create their discs easily and quickly.")
 350     (license license:gpl2+)))
 351
 352 ;;; Minimal variant, used to break a cycle with Inkscape.
 353 (define-public libcloudproviders-minimal
 354   (package
 355     (name "libcloudproviders-minimal")
 356     (version "0.3.1")
 357     (source
 358      (origin
 359        (method url-fetch)
 360        (uri
 361         (string-append "mirror://gnome/sources/libcloudproviders/"
 362                        (version-major+minor version)
 363                        "/libcloudproviders-" version ".tar.xz"))
 364        (sha256
 365         (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
 366     (build-system meson-build-system)
 367     (arguments
 368      `(#:glib-or-gtk? #t             ; To wrap binaries and/or compile schemas
 369        #:configure-flags (list "-Dintrospection=false"
 370                                "-Denable-gtk-doc=false"
 371                                "-Dvapigen=false")))
 372     (native-inputs
 373      `(("glib:bin" ,glib "bin")
 374        ("pkg-config" ,pkg-config)
 375        ("vala" ,vala)))
 376     (inputs
 377      (list glib glib-networking))
 378     (synopsis "Cloudproviders Integration API")
 379     (description "Libcloudproviders is a DBus API that allows cloud storage sync
 380 clients to expose their services.  Clients such as file managers and desktop
 381 environments can then provide integrated access to the cloud providers
 382 services.")
 383     (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
 384     (license license:lgpl3+)))
 385
 386 (define-public libcloudproviders
 387   (package/inherit libcloudproviders-minimal
 388     (name "libcloudproviders")
 389     (version "0.3.1")
 390     (outputs (cons "doc" (package-outputs libcloudproviders-minimal)))
 391     (arguments
 392      (substitute-keyword-arguments (package-arguments libcloudproviders-minimal)
 393        ((#:configure-flags _)
 394         '(list "-Denable-gtk-doc=true")) ;false by default
 395        ((#:phases phases '%standard-phases)
 396         `(modify-phases %standard-phases
 397            (add-after 'install 'move-doc
 398              (lambda* (#:key outputs #:allow-other-keys)
 399                (let* ((out (assoc-ref outputs "out"))
 400                       (doc (assoc-ref outputs "doc")))
 401                  (mkdir-p (string-append doc "/share"))
 402                  (rename-file
 403                   (string-append out "/share/gtk-doc")
 404                   (string-append doc "/share/gtk-doc")))))))))
 405     (native-inputs
 406      (append
 407          `(("gobject-introspection" ,gobject-introspection)
 408            ("gtk-doc" ,gtk-doc/stable))
 409          (package-native-inputs libcloudproviders-minimal)))))
 410
 411 (define-public libgrss
 412   (package
 413     (name "libgrss")
 414     (version "0.7.0")
 415     (source
 416      (origin
 417        (method url-fetch)
 418        (uri
 419         (string-append "mirror://gnome/sources/" name "/"
 420                        (version-major+minor version) "/"
 421                        name "-" version ".tar.xz"))
 422        (sha256
 423         (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))
 424        (patches
 425         (search-patches "libgrss-CVE-2016-2001.patch"))))
 426     (build-system glib-or-gtk-build-system)
 427     (outputs '("out" "doc"))
 428     (arguments
 429      `(#:configure-flags
 430        (list
 431         "--enable-gtk-doc"
 432         (string-append "--with-html-dir="
 433                        (assoc-ref %outputs "doc")
 434                        "/share/gtk-doc/html"))
 435        #:phases
 436        (modify-phases %standard-phases
 437          (add-after 'unpack 'patch-docbook-xml
 438            (lambda* (#:key inputs #:allow-other-keys)
 439              (with-directory-excursion "doc/reference"
 440                (substitute* "libgrss-docs.sgml"
 441                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 442                   (string-append (assoc-ref inputs "docbook-xml")
 443                                  "/xml/dtd/docbook/"))))
 444              #t)))))
 445     (native-inputs
 446      (list docbook-xml-4.1.2 gobject-introspection gtk-doc/stable
 447            pkg-config))
 448     (propagated-inputs
 449      (list glib libsoup-minimal-2 libxml2))
 450     (synopsis "Glib library for feeds")
 451     (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
 452 and other formats.")
 453     (home-page "https://wiki.gnome.org/Projects/Libgrss")
 454     (license license:lgpl3+)))
 455
 456 (define-public gnome-js-common
 457   (package
 458     (name "gnome-js-common")
 459     (version "0.1.2")
 460     (source
 461      (origin
 462        (method url-fetch)
 463        (uri
 464         (string-append "mirror://gnome/sources/" name "/"
 465                        (version-major+minor version) "/"
 466                        name "-" version ".tar.gz"))
 467        (sha256
 468         (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
 469     (build-system glib-or-gtk-build-system)
 470     (arguments
 471      `(#:configure-flags
 472        (list
 473         "--disable-static")))
 474     (native-inputs
 475      `(("gettext" ,gettext-minimal)
 476        ("intltool" ,intltool)
 477        ("pkg-config" ,pkg-config)))
 478     (synopsis "Common JS Modules")
 479     (description "GNOME-JS-Common provides common modules for GNOME JavaScript
 480 bindings.")
 481     (home-page "https://wiki.gnome.org/Projects/Seed")
 482     (license license:gpl3+)))
 483
 484 (define-public seed
 485   (package
 486     (name "seed")
 487     (version "3.8.1")
 488     (source
 489      (origin
 490        (method url-fetch)
 491        (uri
 492         (string-append "mirror://gnome/sources/" name "/"
 493                        (version-major+minor version) "/"
 494                        name "-" version ".tar.xz"))
 495        (sha256
 496         (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
 497        (patches
 498         (search-patches "seed-webkit.patch"))))
 499     (build-system glib-or-gtk-build-system)
 500     (outputs '("out" "doc"))
 501     (arguments
 502      `(#:configure-flags
 503        (list
 504         "--disable-static"
 505         "--enable-xorg-module"
 506         (string-append "--with-html-dir="
 507                        (assoc-ref %outputs "doc")
 508                        "/share/gtk-doc/html")
 509         "--with-webkit=4.0")
 510        #:phases
 511        (modify-phases %standard-phases
 512          ;; The seed-webkit.patch patches configure.ac.
 513          ;; So the source files need to be re-bootstrapped.
 514          (add-after 'unpack 'trigger-bootstrap
 515            (lambda _
 516              (for-each delete-file
 517                        (list
 518                         "configure"
 519                         "Makefile.in"))
 520              #t))
 521          (add-after 'unpack 'patch-tests
 522            (lambda* (#:key outputs #:allow-other-keys)
 523              (substitute* (find-files "." "\\.js$")
 524               (("#!/usr/bin/env seed")
 525                (string-append "#!" (getcwd) "/src/seed")))
 526              #t))
 527          (add-before 'build 'patch-docbook-xml
 528            (lambda* (#:key inputs #:allow-other-keys)
 529              (with-directory-excursion "doc"
 530                (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
 531                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 532                   (string-append (assoc-ref inputs "docbook-xml")
 533                                  "/xml/dtd/docbook/"))))
 534              #t)))))
 535     (native-inputs
 536      `(("autoconf" ,autoconf)
 537        ("automake" ,automake)
 538        ("docbook-xml" ,docbook-xml-4.1.2)
 539        ("gettext" ,gettext-minimal)
 540        ("gobject-introspection" ,gobject-introspection)
 541        ("gtk-doc" ,gtk-doc/stable)
 542        ("intltool" ,intltool)
 543        ("libtool" ,libtool)
 544        ("pkg-config" ,pkg-config)))
 545     (inputs
 546      `(("cairo" ,cairo)
 547        ("dbus" ,dbus)
 548        ("dbus-glib" ,dbus-glib)
 549        ("gnome-js-common" ,gnome-js-common)
 550        ("gtk+" ,gtk+)
 551        ("gtk+-2" ,gtk+-2)
 552        ("libffi" ,libffi)
 553        ("libxml2" ,libxml2)
 554        ("mpfr" ,mpfr)
 555        ("readline" ,readline)
 556        ("sqlite" ,sqlite)
 557        ("xscrnsaver" ,libxscrnsaver)))
 558     (propagated-inputs
 559      `(("glib" ,glib)
 560        ("webkit" ,webkitgtk-with-libsoup2)))
 561     (synopsis "GObject JavaScriptCore bridge")
 562     (description "Seed is a library and interpreter, dynamically bridging
 563 (through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
 564 GNOME platform.  It serves as something which enables you to write standalone
 565 applications in JavaScript, or easily enable your application to be extensible
 566 in JavaScript.")
 567     (home-page "https://wiki.gnome.org/Projects/Seed")
 568     (license license:lgpl2.0+)))
 569
 570 (define-public libdmapsharing
 571   (package
 572     (name "libdmapsharing")
 573     (version "3.9.10")
 574     (source
 575      (origin
 576        (method url-fetch)
 577        (uri
 578         (string-append "https://www.flyn.org/projects/"
 579                        name "/" name "-" version ".tar.gz"))
 580        (sha256
 581         (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
 582     (build-system glib-or-gtk-build-system)
 583     (outputs '("out" "doc"))
 584     (arguments
 585      `(#:tests? #f                      ; Tests require networking.
 586        #:configure-flags
 587        (list
 588         "--disable-static"
 589         (string-append "--with-html-dir="
 590                        (assoc-ref %outputs "doc")
 591                        "/share/gtk-doc/html"))
 592        #:phases
 593        (modify-phases %standard-phases
 594          (add-after 'unpack 'patch-docbook-xml
 595            (lambda* (#:key inputs #:allow-other-keys)
 596              (with-directory-excursion "doc"
 597                (substitute* "libdmapsharing-4.0-docs.xml"
 598                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 599                   (string-append (assoc-ref inputs "docbook-xml")
 600                                  "/xml/dtd/docbook/"))))
 601              #t)))))
 602     (native-inputs
 603      (list check
 604            docbook-xml-4.3
 605            gobject-introspection
 606            pedansee
 607            pkg-config
 608            vala))
 609     (inputs
 610      `(("avahi" ,avahi)
 611        ("librsvg" ,librsvg)
 612        ("gee" ,libgee)
 613        ("gst-plugins-base" ,gst-plugins-base)
 614        ("gtk+" ,gtk+)))
 615     (propagated-inputs
 616      (list glib glib-networking gstreamer libsoup-minimal-2))
 617     (synopsis "Media management library")
 618     (description "Libdmapsharing is a library which allows programs to access,
 619 share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
 620 It is written in C using GObject and libsoup.")
 621     (home-page "https://launchpad.net/gtx")
 622     (license license:lgpl2.1+)))
 623
 624 (define-public gtx
 625   (package
 626     (name "gtx")
 627     (version "0.2.2")
 628     (source
 629      (origin
 630        (method url-fetch)
 631        (uri
 632         (string-append "https://launchpad.net/gtx/trunk/"
 633                        version "/+download/gtx-" version ".tar.gz"))
 634        (sha256
 635         (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
 636     (build-system glib-or-gtk-build-system)
 637     (outputs '("out" "doc"))
 638     (arguments
 639      `(#:configure-flags
 640        (list
 641         "--disable-static"
 642         "--enable-gtk-doc"
 643         (string-append "--with-html-dir="
 644                        (assoc-ref %outputs "doc")
 645                        "/share/gtk-doc/html"))))
 646     (native-inputs
 647      (list gobject-introspection gtk-doc/stable pkg-config))
 648     (propagated-inputs
 649      (list glib))
 650     (synopsis "GLib Testing Framework")
 651     (description "GTX is a small collection of convenience functions intended to
 652 enhance the GLib testing framework.  With specific emphasis on easing the pain
 653 of writing test cases for asynchronous interactions.")
 654     (home-page "https://launchpad.net/gtx")
 655     (license license:lgpl2.1+)))
 656
 657 (define-public dee
 658   (package
 659     (name "dee")
 660     (version "1.2.7")
 661     (source
 662      (origin
 663        (method url-fetch)
 664        (uri
 665         (string-append "https://launchpad.net/dee/1.0/"
 666                        version "/+download/dee-" version ".tar.gz"))
 667        (sha256
 668         (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
 669        (patches
 670         (search-patches "dee-vapi.patch"))))
 671     (build-system glib-or-gtk-build-system)
 672     (outputs '("out" "doc"))
 673     (arguments
 674      `(#:configure-flags
 675        (list
 676         "--disable-maintainer-flags"
 677         (string-append "--with-pygi-overrides-dir="
 678                        (assoc-ref %outputs "out")
 679                        "/lib/python"
 680                        ,(version-major+minor
 681                          (package-version python))
 682                        "/site-packages/gi/overrides")
 683         (string-append "--with-html-dir="
 684                        (assoc-ref %outputs "doc")
 685                        "/share/gtk-doc/html"))
 686        #:phases
 687        (modify-phases %standard-phases
 688          (add-after 'unpack 'patch-docbook-xml
 689            (lambda* (#:key inputs #:allow-other-keys)
 690              (with-directory-excursion "doc/reference/dee-1.0"
 691                (substitute* "dee-1.0-docs.sgml"
 692                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 693                   (string-append (assoc-ref inputs "docbook-xml")
 694                                  "/xml/dtd/docbook/"))))))
 695          (add-after 'patch-docbook-xml 'disable-failing-tests
 696            (lambda _
 697              (substitute* "tests/test-icu.c"
 698                (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
 699                 "")
 700                (("setup, test_ascii_folder, teardown\\);")
 701                 ""))))
 702          (add-before 'check 'pre-check
 703            (lambda _
 704              ;; Tests require a running dbus-daemon.
 705              (system "dbus-daemon &")
 706              ;; For missing '/etc/machine-id'.
 707              (setenv "DBUS_FATAL_WARNINGS" "0"))))))
 708     (native-inputs
 709      `(("dbus" ,dbus)
 710        ("dbus-test-runner" ,dbus-test-runner)
 711        ("docbook-xml" ,docbook-xml-4.3)
 712        ("gobject-introspection" ,gobject-introspection)
 713        ("gtk-doc" ,gtk-doc/stable)
 714        ;; Would only be required by configure flag "--enable-extended-tests".
 715        ;("gtx" ,gtx)
 716        ("pkg-config" ,pkg-config)
 717        ("pygobject" ,python-pygobject)
 718        ("python" ,python-wrapper)
 719        ("vala" ,vala-0.52)))
 720     (inputs
 721      `(("icu" ,icu4c)))
 722     (propagated-inputs
 723      (list glib))
 724     (synopsis "Model to synchronize multiple instances over DBus")
 725     (description "Dee is a library that uses DBus to provide objects allowing
 726 you to create Model-View-Controller type programs across DBus.  It also consists
 727 of utility objects which extend DBus allowing for peer-to-peer discoverability
 728 of known objects without needing a central registrar.")
 729     (home-page "https://launchpad.net/dee")
 730     (license
 731      ;; Dual-licensed
 732      (list
 733       license:lgpl3+
 734       license:gpl3+))))
 735
 736 (define-public zeitgeist
 737   (package
 738     (name "zeitgeist")
 739     (version "1.0.4")
 740     (source
 741      (origin
 742        (method git-fetch)
 743        (uri
 744         (git-reference
 745          (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
 746          (commit
 747           (string-append "v" version))))
 748        (file-name
 749         (git-file-name name version))
 750        (sha256
 751         (base32 "07b1ahj3vd3m8srwkrh7dl3ymr7d55xiiszny44q13g06pq4svch"))))
 752     (build-system glib-or-gtk-build-system)
 753     (arguments
 754      `(#:configure-flags
 755        (list
 756         "--enable-explain-queries"
 757         "--enable-fts"
 758         "--enable-docs")
 759        #:phases
 760        (modify-phases %standard-phases
 761          (add-after 'unpack 'patch-docbook-xml
 762            (lambda* (#:key inputs #:allow-other-keys)
 763              (with-directory-excursion "doc/libzeitgeist"
 764                (substitute* "zeitgeist-gtkdoc-index.sgml"
 765                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 766                   (string-append (assoc-ref inputs "docbook-xml")
 767                                  "/xml/dtd/docbook/"))))))
 768          (add-after 'patch-docbook-xml 'disable-failing-tests
 769            (lambda _
 770              (substitute* "test/direct/Makefile.am"
 771                (("      log-test ")
 772                 ""))
 773              (substitute* "test/c/Makefile.am"
 774                (("      test-log ")
 775                 ""))))
 776          (add-before 'bootstrap 'remove-autogen-script
 777            (lambda _
 778              ;; To honor `autoreconf -vif` by build-system.
 779              (delete-file "autogen.sh"))))))
 780     (native-inputs
 781      `(("autoconf" ,autoconf)
 782        ("automake" ,automake)
 783        ("docbook-xml" ,docbook-xml-4.3)
 784        ("gettext" ,gettext-minimal)
 785        ("gobject-introspection" ,gobject-introspection)
 786        ("gtk-doc" ,gtk-doc/stable)
 787        ("libtool" ,libtool)
 788        ("pkg-config" ,pkg-config)
 789        ("vala" ,vala)
 790        ("xorg-server-for-tests" ,xorg-server-for-tests)))
 791     (inputs
 792      `(("dee-icu" ,dee)
 793        ("gtk+" ,gtk+)
 794        ("json-glib" ,json-glib)
 795        ("sqlite" ,sqlite)
 796        ("telepathy-glib" ,telepathy-glib)
 797        ("python" ,python-wrapper)
 798        ("python-rdflib" ,python-rdflib)
 799        ("xapian-config" ,xapian)))
 800     (propagated-inputs
 801      (list glib))
 802     (synopsis "Desktop Activity Logging")
 803     (description "Zeitgeist is a service which logs the users’s activities and
 804 events, anywhere from files opened to websites visited and conversations.  It
 805 makes this information readily available for other applications to use.  It is
 806 able to establish relationships between items based on similarity and usage
 807 patterns.")
 808     (home-page "https://zeitgeist.freedesktop.org/")
 809     (license
 810      ;; Dual-licensed
 811      (list
 812       license:lgpl2.1+
 813       license:gpl2+))))
 814
 815 (define-public gnome-recipes
 816   (package
 817     (name "gnome-recipes")
 818     (version "2.0.4")
 819     (source (origin
 820               (method git-fetch)
 821               (uri (git-reference
 822                     (url "https://gitlab.gnome.org/GNOME/recipes")
 823                     (commit version)))
 824               (file-name (git-file-name name version))
 825               (sha256
 826                (base32
 827                 "1h049mzqnlcfqwrhmzbq3pzzdglvy2bn9fj1p8wql7a60pn8sr32"))))
 828     (build-system meson-build-system)
 829     (arguments
 830      (list
 831       #:glib-or-gtk? #t
 832       #:phases
 833       #~(modify-phases %standard-phases
 834           (add-after 'unpack 'skip-gtk-update-icon-cache
 835             (lambda _
 836               (substitute* "meson_post_install.py"
 837                 (("gtk-update-icon-cache") (which "true")))))
 838           (add-after 'unpack 'unpack-libgd
 839             (lambda _
 840               (copy-recursively
 841                #$(origin
 842                    (method git-fetch)
 843                    (uri (git-reference
 844                          (url "https://gitlab.gnome.org/GNOME/libgd")
 845                          (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
 846                    (file-name (git-file-name "libgd" version))
 847                    (sha256
 848                     (base32
 849                      "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs")))
 850                "subprojects/libgd"))))))
 851     (inputs (list glib
 852                   gnome-autoar
 853                   `(,gnome-online-accounts "lib")
 854                   gspell
 855                   gtk+
 856                   json-glib
 857                   libcanberra
 858                   libsoup
 859                   rest))
 860     (native-inputs (list desktop-file-utils ;for update-desktop-database
 861                          gettext-minimal
 862                          `(,glib "bin")
 863                          itstool
 864                          pkg-config
 865                          python))
 866     (home-page "https://wiki.gnome.org/Apps/Recipes")
 867     (synopsis "Discover recipes for preparing food")
 868     (description "GNOME Recipes helps you discover what to cook today,
 869 tomorrow, the rest of the week and for special occasions.")
 870     (license license:gpl3+)))
 871
 872 (define-public gnome-photos
 873   (package
 874     (name "gnome-photos")
 875     (version "40.0")
 876     (source
 877      (origin
 878        (method url-fetch)
 879        (uri
 880         (string-append "mirror://gnome/sources/" name "/"
 881                        (version-major version) "/"
 882                        name "-" version ".tar.xz"))
 883        (sha256
 884         (base32
 885          "1bzi79plw6ji6qlckhxnwfnswy6jpnhzmmyanml2i2xg73hp6bg0"))))
 886     (build-system meson-build-system)
 887     (arguments
 888      `(#:glib-or-gtk? #t
 889        #:configure-flags
 890        (list "-Ddogtail=false"     ; Not available
 891              ;; Required for RUNPATH validation.
 892              (string-append "-Dc_link_args=-Wl,-rpath="
 893                             (assoc-ref %outputs "out") "/lib/gnome-photos"))
 894        #:phases
 895        (modify-phases %standard-phases
 896          (add-after 'install 'wrap-gnome-photos
 897            (lambda* (#:key inputs outputs #:allow-other-keys)
 898              (let*
 899                  ((out (assoc-ref outputs "out")))
 900                (wrap-program (string-append out "/bin/gnome-photos")
 901                  `("GRL_PLUGIN_PATH" =
 902                    (,(getenv "GRL_PLUGIN_PATH"))))))))))
 903     (native-inputs
 904      `(("dbus" ,dbus)
 905        ("desktop-file-utils" ,desktop-file-utils)
 906        ("gettext" ,gettext-minimal)
 907        ("git" ,git-minimal)
 908        ("glib:bin" ,glib "bin")
 909        ("gobject-introspection" ,gobject-introspection)
 910        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 911        ("gtk+:bin" ,gtk+ "bin")
 912        ("itstool" ,itstool)
 913        ("pkg-config" ,pkg-config)))
 914     (inputs
 915      `(("babl" ,babl)
 916        ("cairo" ,cairo)
 917        ("librsvg" ,librsvg)
 918        ("gegl" ,gegl)
 919        ("geocode-glib" ,geocode-glib)
 920        ("gexiv2" ,gexiv2)
 921        ("gnome-online-accounts" ,gnome-online-accounts)
 922        ("gnome-online-miners" ,gnome-online-miners)
 923        ("grilo" ,grilo)
 924        ("grilo-plugins" ,grilo-plugins)
 925        ("gtk+" ,gtk+)
 926        ("libdazzle" ,libdazzle)
 927        ("libgdata" ,libgdata)
 928        ("libgfbgraph" ,gfbgraph)
 929        ("libhandy" ,libhandy)
 930        ("libjpeg" ,libjpeg-turbo)
 931        ("libpng" ,libpng)
 932        ("librest" ,rest)
 933        ("pygobject" ,python-pygobject)
 934        ("tracker" ,tracker)
 935        ("tracker-miners" ,tracker-miners)))
 936     (synopsis "Access, organize and share your photos on GNOME desktop")
 937     (description "GNOME Photos is a simple and elegant replacement for using a
 938 file manager to deal with photos.  Enhance, crop and edit in a snap.  Seamless
 939 cloud integration is offered through GNOME Online Accounts.")
 940     (home-page "https://wiki.gnome.org/Apps/Photos")
 941     (license license:gpl3+)))
 942
 943 (define-public gnome-music
 944   (package
 945     (name "gnome-music")
 946     (version "40.1.1")
 947     (source
 948      (origin
 949        (method url-fetch)
 950        (uri
 951         (string-append "mirror://gnome/sources/" name "/"
 952                        (version-major version) "/"
 953                        name "-" version ".tar.xz"))
 954        (sha256
 955         (base32
 956          "0lcdal4qdhclr8961p57xf010y92l6wwmkw86lyi9wy224z6gjr0"))))
 957     (build-system meson-build-system)
 958     (arguments
 959      `(#:glib-or-gtk? #t
 960        #:phases
 961        (modify-phases %standard-phases
 962          (add-after 'install 'wrap-gnome-music
 963            (lambda* (#:key inputs outputs #:allow-other-keys)
 964              (let*
 965                  ((out (assoc-ref outputs "out"))
 966                   (pylib (string-append out "/lib/python"
 967                                         ,(version-major+minor
 968                                           (package-version python))
 969                                         "/site-packages")))
 970                (wrap-program (string-append out "/bin/gnome-music")
 971                  `("GI_TYPELIB_PATH" =
 972                    (,(getenv "GI_TYPELIB_PATH")))
 973                  `("GST_PLUGIN_SYSTEM_PATH" =
 974                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
 975                  `("GRL_PLUGIN_PATH" =
 976                    (,(getenv "GRL_PLUGIN_PATH")))
 977                  `("GUIX_PYTHONPATH" =
 978                    (,(getenv "GUIX_PYTHONPATH") ,pylib)))))))))
 979     (native-inputs
 980      `(("desktop-file-utils" ,desktop-file-utils)
 981        ("gettext" ,gettext-minimal)
 982        ("glib:bin" ,glib "bin")
 983        ("gobject-introspection" ,gobject-introspection)
 984        ("gtk+:bin" ,gtk+ "bin")
 985        ("itstools" ,itstool)
 986        ("pkg-config" ,pkg-config)))
 987     (inputs
 988      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 989        ("grilo" ,grilo)
 990        ("grilo-plugins" ,grilo-plugins)
 991        ("gst-plugins-base" ,gst-plugins-base)
 992        ("gst-plugins-good" ,gst-plugins-good)
 993        ("gstreamer" ,gstreamer)
 994        ("gvfs" ,gvfs)
 995        ("json-glib" ,json-glib)
 996        ("libdazzle" ,libdazzle)
 997        ("libmediaart" ,libmediaart)
 998        ("libsoup" ,libsoup-minimal-2)
 999        ("pycairo" ,python-pycairo)
1000        ("pygobject" ,python-pygobject)
1001        ("python" ,python)
1002        ("tracker" ,tracker)
1003        ("tracker-miners" ,tracker-miners)))
1004     (synopsis "Simple music player for GNOME desktop")
1005     (description "GNOME Music is the new GNOME music playing application that
1006 aims to combine an elegant and immersive browsing experience with simple
1007 and straightforward controls.")
1008     (home-page "https://wiki.gnome.org/Apps/Music")
1009     (license license:gpl2+)))
1010
1011 (define-public portablexdr
1012   (package
1013     (name "portablexdr")
1014     (version "4.9.1")
1015     (source
1016      (origin
1017        (method url-fetch)
1018        (uri
1019         (string-append "https://people.redhat.com/~rjones/" name "/files/"
1020                        name "-" version ".tar.gz"))
1021        (sha256
1022         (base32
1023          "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
1024     (build-system gnu-build-system)
1025     (synopsis "External Data Representation Library")
1026     (description "PortableXDR is an implementation of External Data
1027 Representation (XDR) Library.  It is a standard data serialization format, for
1028 uses such as computer network protocols.  It allows data to be transferred
1029 between different kinds of computer systems.")
1030     (home-page "https://people.redhat.com/~rjones/portablexdr/")
1031     (license
1032      (list
1033       license:gpl2+
1034       license:lgpl2.1+))))
1035
1036 (define-public tepl
1037   (package
1038     (name "tepl")
1039     (version "6.00.0")
1040     (source
1041      (origin
1042        (method url-fetch)
1043        (uri
1044         (string-append "mirror://gnome/sources/" name "/"
1045                        (version-major+minor version) "/"
1046                        name "-" version ".tar.xz"))
1047        (sha256
1048         (base32
1049          "0qvs7s86gqyyrzi0r5fbrj8zczlgv8xhdjswgbgc1afwjnl9fqx8"))))
1050     (build-system meson-build-system)
1051     (arguments
1052      `(#:glib-or-gtk? #t
1053        #:tests? #f))                    ; FIX-ME: Requires gvfs
1054     (native-inputs
1055      (list `(,glib "bin") gobject-introspection pkg-config))
1056     (inputs
1057      (list amtk
1058            glib
1059            gtk+
1060            gtksourceview
1061            libxml2
1062            uchardet))
1063     (synopsis "Text editor product line")
1064     (description "Tepl is a library that eases the development of
1065 GtkSourceView-based text editors and IDEs.")
1066     (home-page "https://wiki.gnome.org/Projects/Tepl")
1067     (license license:lgpl2.1+)))
1068
1069 (define-public tepl-5
1070   (package
1071     (inherit tepl)
1072     (name "tepl")
1073     (version "5.0.1")
1074     (source
1075      (origin
1076        (method url-fetch)
1077        (uri
1078         (string-append "mirror://gnome/sources/" name "/"
1079                        (version-major+minor version) "/"
1080                        name "-" version ".tar.xz"))
1081        (sha256
1082         (base32
1083          "0118j64s4fb350phbgda2rk6sv19rfgglxc7nf248llzc1klj9xi"))))))
1084
1085 (define-public krb5-auth-dialog
1086   (package
1087     (name "krb5-auth-dialog")
1088     (version "3.26.1")
1089     (source
1090      (origin
1091        (method url-fetch)
1092        (uri
1093         (string-append "mirror://gnome/sources/" name "/"
1094                        (version-major+minor version) "/"
1095                        name "-" version ".tar.xz"))
1096        (sha256
1097         (base32
1098          "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1099     (build-system glib-or-gtk-build-system)
1100     (native-inputs
1101      (list intltool itstool libxml2 pkg-config python-wrapper))
1102     (inputs
1103      (list glib gtk+ libnotify mit-krb5 network-manager))
1104     (synopsis "Popup dialogs for Kerberos 5")
1105     (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1106 tickets, and pops up a dialog when they are about to expire.")
1107     (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1108     (license license:gpl2+)))
1109
1110 (define-public notification-daemon
1111   (package
1112     (name "notification-daemon")
1113     (version "3.20.0")
1114     (source
1115      (origin
1116        (method url-fetch)
1117        (uri
1118         (string-append "mirror://gnome/sources/" name "/"
1119                        (version-major+minor version) "/"
1120                        name "-" version ".tar.xz"))
1121        (sha256
1122         (base32
1123          "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1124     (build-system glib-or-gtk-build-system)
1125     (native-inputs
1126      (list intltool pkg-config))
1127     (inputs
1128      (list glib gtk+ libx11))
1129     (synopsis "Notification Daemon for GNOME Desktop")
1130     (description "Notification-Daemon is the server implementation of the
1131 freedesktop.org desktop notification specification.")
1132     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1133     (license license:gpl2+)))
1134
1135 (define-public mm-common
1136   (package
1137     (name "mm-common")
1138     (version "1.0.3")
1139     (source (origin
1140               (method url-fetch)
1141               (uri (string-append "mirror://gnome/sources/mm-common/"
1142                                   (version-major+minor version) "/"
1143                                   "mm-common-" version ".tar.xz"))
1144               (sha256
1145                (base32
1146                 "1x8yvjy0yg17qyhmqws8xh2k8dvzrhpwqz7j1cfwzalrb1i9c5g8"))))
1147     (build-system meson-build-system)
1148     (arguments
1149      `(#:phases
1150        (modify-phases %standard-phases
1151          (add-after 'unpack 'patch
1152            (lambda* (#:key inputs #:allow-other-keys)
1153              (substitute* "util/mm-common-prepare.in"
1154                (("ln") (search-input-file inputs "/bin/ln"))
1155                (("cp") (search-input-file inputs "/bin/cp"))
1156                (("sed") (search-input-file inputs "/bin/sed"))
1157                (("cat") (search-input-file inputs "/bin/cat"))))))))
1158     (native-inputs
1159      `(("coreutils" ,coreutils)
1160        ("gettext" ,gettext-minimal)
1161        ("pkg-config" ,pkg-config)
1162        ("sed" ,sed)))
1163     (inputs
1164      (list python))
1165     (synopsis "Module of GNOME C++ bindings")
1166     (description "The mm-common module provides the build infrastructure
1167 and utilities shared among the GNOME C++ binding libraries.  Release
1168 archives of mm-common include the Doxygen tag file for the GNU C++
1169 Library reference documentation.")
1170     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1171     (license license:gpl2+)))
1172
1173 (define-public phodav
1174   (package
1175    (name "phodav")
1176    (version "2.5")
1177    (source (origin
1178             (method url-fetch)
1179             (uri (string-append "mirror://gnome/sources/" name "/"
1180                                 (version-major+minor version) "/"
1181                                 name "-" version ".tar.xz"))
1182             (sha256
1183              (base32
1184               "045rdzf8isqmzix12lkz6z073b5qvcqq6ad028advm5gf36skw3i"))))
1185    (build-system meson-build-system)
1186    (arguments
1187     `(#:phases
1188       (modify-phases %standard-phases
1189         (add-after 'unpack 'fix-udev-rules-directory
1190           (lambda* (#:key outputs #:allow-other-keys)
1191             (let* ((out   (assoc-ref outputs "out"))
1192                    (rules (string-append out "/lib/udev/rules.d")))
1193               (substitute* "data/meson.build"
1194                 (("udev\\.get_pkgconfig_variable\\('udevdir'\\)")
1195                  (format #f "'~a'" rules))))))
1196         (add-before 'check 'set-temporary-home
1197           ;; Tests want to write into HOME.
1198           (lambda _
1199             (setenv "HOME" "/tmp"))))))
1200    (native-inputs
1201     `(("docbook-xml" ,docbook-xml-4.3)
1202       ("gettext" ,gettext-minimal)
1203       ("glib:bin" ,glib "bin")
1204       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1205       ("gtk-doc" ,gtk-doc/stable)
1206       ("pkg-config" ,pkg-config)))
1207    (inputs
1208     (list avahi libgudev libsoup-minimal-2))
1209    (synopsis "WebDav server implementation using libsoup")
1210    (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1211 but it is generic enough to be reused in other projects,
1212 in particular in the GNOME desktop.")
1213    (home-page "https://wiki.gnome.org/phodav")
1214    (license license:lgpl2.1+)))
1215
1216 (define-public gnome-color-manager
1217   (package
1218    (name "gnome-color-manager")
1219    (version "3.36.0")
1220    (source (origin
1221             (method url-fetch)
1222             (uri (string-append "mirror://gnome/sources/" name "/"
1223                                 (version-major+minor version) "/"
1224                                 name "-" version ".tar.xz"))
1225             (sha256
1226              (base32
1227               "0fxdng74d8hwhfx1nwl1i4jx9h9f6c2hkyc12f01kqbjcimrxnwx"))))
1228    (build-system meson-build-system)
1229    (arguments
1230     `(#:glib-or-gtk? #t
1231       #:phases
1232        (modify-phases %standard-phases
1233         (add-before
1234          'check 'pre-check
1235          (lambda _
1236            ;; Tests require a running X server.
1237            (system "Xvfb :1 &")
1238            (setenv "DISPLAY" ":1")
1239            #t)))))
1240    (native-inputs
1241     `(("desktop-file-utils" ,desktop-file-utils)
1242       ("gettext" ,gettext-minimal)
1243       ("glib:bin" ,glib "bin")
1244       ("gtk+:bin" ,gtk+ "bin")
1245       ("itstool" ,itstool)
1246       ("pkg-config" ,pkg-config)
1247       ("xorg-server" ,xorg-server-for-tests)))
1248    (inputs
1249     (list adwaita-icon-theme
1250           appstream-glib
1251           colord-gtk
1252           exiv2
1253           gnome-desktop
1254           libcanberra
1255           libexif
1256           libtiff
1257           libxrandr
1258           libxtst
1259           libxxf86vm
1260           vte
1261           xorgproto))
1262    (synopsis "Color profile manager for the GNOME desktop")
1263    (description "GNOME Color Manager is a session framework that makes
1264 it easy to manage, install and generate color profiles
1265 in the GNOME desktop.")
1266    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
1267    (license license:gpl2+)))
1268
1269 (define-public gnome-online-miners
1270   (package
1271     (name "gnome-online-miners")
1272     (version "3.34.0")
1273     (source (origin
1274               (method url-fetch)
1275               (uri (string-append "mirror://gnome/sources/" name "/"
1276                                   (version-major+minor version) "/"
1277                                   name "-" version ".tar.xz"))
1278               (sha256
1279                (base32
1280                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))
1281               (patches
1282                (search-patches
1283                 "gnome-online-miners-tracker-3.patch"))))
1284     (build-system glib-or-gtk-build-system)
1285     (arguments
1286      `(#:phases
1287        (modify-phases %standard-phases
1288          (add-after 'unpack 'fix-configure
1289            (lambda _
1290              (substitute* "configure.ac"
1291                (("AX_CHECK_ENABLE_DEBUG.*")
1292                 ""))))
1293          (add-after 'fix-configure 'autoreconf
1294            (lambda _
1295              (invoke "autoreconf" "-vif"))))))
1296     (native-inputs
1297      `(("autoconf" ,autoconf)
1298        ("automake" ,automake)
1299        ("gettext" ,gettext-minimal)
1300        ("glib:bin" ,glib "bin")
1301        ("gobject-introspection" ,gobject-introspection)
1302        ("gtk+:bin" ,gtk+ "bin")
1303        ("libtool" ,libtool)
1304        ("pkg-config" ,pkg-config)))
1305     (inputs
1306      `(("gnome-online-accounts" ,gnome-online-accounts)
1307        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1308        ("grilo" ,grilo)
1309        ("libgdata" ,libgdata)
1310        ("libgfbgraph" ,gfbgraph)
1311        ("libzapojit" ,libzapojit)
1312        ("rest" ,rest)
1313        ("tracker" ,tracker)))
1314     (synopsis "Web Crawlers for GNOME")
1315     (description "GNOME Online Miners provides a set of crawlers that
1316 go through your online content and index them locally in Tracker.
1317 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1318     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
1319     (license license:gpl2+)))
1320
1321 (define-public gssdp
1322   (package
1323    (name "gssdp")
1324    (version "1.2.3")
1325    (source (origin
1326             (method url-fetch)
1327             (uri (string-append "mirror://gnome/sources/" name "/"
1328                                 (version-major+minor version) "/"
1329                                 name "-" version ".tar.xz"))
1330             (sha256
1331              (base32
1332               "1s57i8a8wnnxnsfl27cq4503dkdlzbrhry5zpg23sfqfffvdqqx2"))))
1333    (build-system meson-build-system)
1334    (native-inputs
1335     `(("gettext" ,gettext-minimal)
1336       ("glib:bin" ,glib "bin")
1337       ("gobject-introspection" ,gobject-introspection)
1338       ("gtk-doc" ,gtk-doc/stable)
1339       ("pkg-config" ,pkg-config)
1340       ("vala" ,vala)))
1341    (inputs
1342     (list gtk+))
1343    (propagated-inputs
1344     ;; The .pc file "Requires" libsoup-2.4.
1345     `(("libsoup" ,libsoup-minimal-2)))
1346    (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1347 Protocol} for GNOME")
1348    (description "This package provides a library to handle resource discovery
1349 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1350 a debugging tool, @command{gssdp-device-sniffer}.")
1351    (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1352    (license license:lgpl2.0+)))
1353
1354 (define-public gupnp
1355   (package
1356    (name "gupnp")
1357    (version "1.2.4")
1358    (source (origin
1359             (method url-fetch)
1360             (uri (string-append "mirror://gnome/sources/" name "/"
1361                                 (version-major+minor version) "/"
1362                                 name "-" version ".tar.xz"))
1363             (sha256
1364              (base32
1365               "1ld7mrpdv9cszmfzh7i19qx4li25j3fr7x1jp38l8phzlmz3187p"))))
1366    (build-system meson-build-system)
1367    (arguments
1368     `(#:phases
1369       (modify-phases %standard-phases
1370         (add-before 'check 'pre-check
1371           (lambda _
1372             ;; Tests require a writable HOME.
1373             (setenv "HOME" (getcwd)))))))
1374    (native-inputs
1375     `(("gettext" ,gettext-minimal)
1376       ("glib:bin" ,glib "bin")
1377       ("gobject-introspection" ,gobject-introspection)
1378       ("gtk-doc" ,gtk-doc/stable)
1379       ("pkg-config" ,pkg-config)
1380       ("vala" ,vala)))
1381    (inputs
1382     (list gssdp gtk+ libsoup))
1383    (propagated-inputs
1384     (list ;; For ‘org.gnome.system.proxy’.
1385           gsettings-desktop-schemas))
1386    (synopsis "PnP API for GNOME")
1387    (description "This package provides GUPnP, an object-oriented framework
1388 for creating UPnP devices and control points, written in C using
1389 @code{GObject} and @code{libsoup}.")
1390    (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1391    (license license:lgpl2.0+)))
1392
1393 (define-public gupnp-dlna
1394   (package
1395    (name "gupnp-dlna")
1396    (version "0.10.5")
1397    (source (origin
1398             (method url-fetch)
1399             (uri (string-append "mirror://gnome/sources/" name "/"
1400                                 (version-major+minor version) "/"
1401                                 name "-" version ".tar.xz"))
1402             (sha256
1403              (base32
1404               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1405    (build-system gnu-build-system)
1406    (native-inputs
1407     (list gettext-minimal
1408           `(,glib "bin")
1409           gobject-introspection
1410           gtk-doc/stable
1411           libxml2
1412           pkg-config
1413           vala))
1414    (inputs
1415     (list gstreamer gupnp))
1416    (propagated-inputs
1417     (list gst-plugins-base gst-plugins-good))
1418    (synopsis "GUPnP DLNA for GNOME")
1419    (description "This package provides a small utility library to
1420 support DLNA-related tasks such as media profile guessing, transcoding to a
1421 given profile, etc.  DLNA is a subset of UPnP A/V.")
1422    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1423    (license license:lgpl2.0+)))
1424
1425 (define-public gupnp-av
1426   (package
1427    (name "gupnp-av")
1428    (version "0.12.11")
1429    (source (origin
1430             (method url-fetch)
1431             (uri (string-append "mirror://gnome/sources/" name "/"
1432                                 (version-major+minor version) "/"
1433                                 name "-" version ".tar.xz"))
1434             (sha256
1435              (base32
1436               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1437    (build-system gnu-build-system)
1438    (native-inputs
1439     (list gettext-minimal
1440           `(,glib "bin")
1441           gobject-introspection
1442           gtk-doc/stable
1443           libxml2
1444           pkg-config
1445           vala))
1446    (inputs
1447     (list gtk+ gupnp))
1448    (synopsis "GUPnP A/V for GNOME")
1449    (description "This package provides a small library for handling
1450 and implementation of UPnP A/V profiles.")
1451    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1452    (license license:lgpl2.0+)))
1453
1454 (define-public libmediaart
1455   (package
1456     (name "libmediaart")
1457     (version "1.9.5")
1458     (source (origin
1459               (method url-fetch)
1460               (uri (string-append "mirror://gnome/sources/" name "/"
1461                                   (version-major+minor version) "/"
1462                                   name "-" version ".tar.xz"))
1463               (sha256
1464                (base32
1465                 "1mlw1qgj8nkd9ll6b6h54r1gfdy3zp8a8xqz7qfyfaj85jjgbph7"))))
1466     (build-system meson-build-system)
1467     (native-inputs
1468      (list `(,glib "bin") pkg-config))
1469     (inputs
1470      (list gdk-pixbuf gettext-minimal gobject-introspection
1471            `(,gtk+ "doc") vala))
1472     (synopsis "Media art library for the GNOME desktop")
1473     (description
1474      "The libmediaart library is the foundation for media art caching,
1475 extraction, and lookup for applications on the desktop.")
1476     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1477     (license license:lgpl2.1+)))
1478
1479 (define-public gnome-initial-setup
1480   (package
1481    (name "gnome-initial-setup")
1482    (version "40.4")
1483    (source (origin
1484             (method url-fetch)
1485            (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1486                                 (version-major version)
1487                                 "/gnome-initial-setup-" version ".tar.xz"))
1488             (sha256
1489              (base32
1490               "06q3p4f8g9zr7a4mw3qr556mi0dg9qzrj8n46ybdz93fxs26aaj1"))))
1491    (build-system meson-build-system)
1492    (arguments
1493     `(#:configure-flags '(;; Enable camera support for user selfie.
1494                           "-Dcheese=auto"
1495                           "-Dsystemd=false")
1496       #:phases (modify-phases %standard-phases
1497                  (add-after 'unpack 'set-gkbd-file-name
1498                    (lambda* (#:key inputs #:allow-other-keys)
1499                      ;; Allow the "Preview" button in the keyboard layout
1500                      ;; selection dialog to display the layout.
1501                      (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
1502                        (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1503                          (("\"gkbd-keyboard-display")
1504                           (string-append "\"" libgnomekbd
1505                                          "/bin/gkbd-keyboard-display")))
1506                        #t))))))
1507    (native-inputs
1508     `(("gettext" ,gettext-minimal)
1509       ("glib:bin" ,glib "bin")
1510       ("gobject-introspection" ,gobject-introspection)
1511       ("gtk+:bin" ,gtk+ "bin")
1512       ("pkg-config" ,pkg-config)))
1513    (inputs
1514     `(("accountsservice" ,accountsservice)
1515       ;("adwaita-icon-theme" ,adwaita-icon-theme)
1516       ("elogind" ,elogind)
1517       ("gdm" ,gdm)
1518       ("geoclue" ,geoclue)
1519       ("gnome-desktop" ,gnome-desktop)
1520       ("gnome-online-accounts" ,gnome-online-accounts)
1521       ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1522       ("gstreamer" ,gstreamer)
1523       ("ibus" ,ibus)
1524       ("json-glib" ,json-glib)
1525       ("krb5" ,mit-krb5)
1526       ("libgweather" ,libgweather)
1527       ("libnma" ,libnma)
1528       ("libsecret" ,libsecret)
1529       ("network-manager" ,network-manager)
1530       ("packagekit" ,packagekit)
1531       ("polkit" ,polkit)
1532       ("pwquality" ,libpwquality)
1533       ("rest" ,rest)
1534       ("upower" ,upower)
1535       ("webkitgtk" ,webkitgtk-with-libsoup2)
1536       ("libgnomekbd" ,libgnomekbd)))
1537    (synopsis "Initial setup wizard for GNOME desktop")
1538    (description "This package provides a set-up wizard when a
1539 user logs into GNOME for the first time.  It typically provides a
1540 tour of all gnome components and allows the user to set them up.")
1541    (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1542    (license license:gpl2)))
1543
1544 (define-public gnome-user-share
1545   (package
1546    (name "gnome-user-share")
1547    (version "3.34.0")
1548    (source (origin
1549             (method url-fetch)
1550             (uri (string-append "mirror://gnome/sources/" name "/"
1551                                 (version-major+minor version) "/"
1552                                 name "-" version ".tar.xz"))
1553             (sha256
1554              (base32
1555               "04r9ck9v4i0d31grbli1d4slw2d6dcsfkpaybkwbzi7wnj72l30x"))))
1556    (build-system meson-build-system)
1557    (arguments
1558     `(#:glib-or-gtk? #t
1559       #:configure-flags
1560        `("-Dsystemduserunitdir=/tmp/empty"
1561          ;; Enable nautilus extension for file sharing.
1562          "-Dnautilus_extension=true")))
1563    (native-inputs
1564     `(("gettext" ,gettext-minimal)
1565       ("glib:bin" ,glib "bin")
1566       ("gobject-introspection" ,gobject-introspection)
1567       ("gtk+:bin" ,gtk+ "bin")
1568       ("pkg-config" ,pkg-config)
1569       ("yelp-tools" ,yelp-tools)))
1570    (inputs
1571     (list glib
1572           gnome-bluetooth
1573           gtk+
1574           libcanberra
1575           libnotify
1576           nautilus))      ; For nautilus extension.
1577    (synopsis "File sharing for GNOME desktop")
1578    (description "GNOME User Share is a small package that binds together
1579 various free software projects to bring easy to use user-level file
1580 sharing to the masses.")
1581    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
1582    (license license:gpl2+)))
1583
1584 (define-public sushi
1585   (package
1586     (name "sushi")
1587     (version "42.0")
1588     (source (origin
1589               (method url-fetch)
1590               (uri (string-append "mirror://gnome/sources/" name "/"
1591                                   (version-major version) "/"
1592                                   name "-" version ".tar.xz"))
1593               (sha256
1594                (base32
1595                 "0848gidl0ab8i5pa70mv8jzchmd9kqa8sn1lg977hyasyixdpn25"))))
1596     (build-system meson-build-system)
1597     (arguments
1598      `(#:glib-or-gtk? #t
1599        #:phases
1600        (modify-phases %standard-phases
1601          (add-after 'glib-or-gtk-wrap 'wrap-typelib
1602            (lambda* (#:key outputs #:allow-other-keys)
1603              (let ((prog (string-append (assoc-ref outputs "out")
1604                                         "/bin/sushi")))
1605                ;; Put existing typelibs before sushi's deps, so as to
1606                ;; correctly infer gdk-pixbuf.
1607                (wrap-program prog
1608                  `("GI_TYPELIB_PATH" suffix
1609                    (,(getenv "GI_TYPELIB_PATH"))))))))))
1610     (native-inputs
1611      (list `(,glib "bin")
1612            gettext-minimal
1613            gobject-introspection
1614            pkg-config))
1615     (inputs
1616      (list bash-minimal
1617            clutter
1618            clutter-gst
1619            clutter-gtk
1620            evince                       ; For file previewing.
1621            freetype
1622            gdk-pixbuf
1623            gjs
1624            gst-plugins-base
1625            gstreamer
1626            gtksourceview
1627            harfbuzz
1628            libepoxy
1629            libmusicbrainz
1630            libxml2
1631            neon
1632            webkitgtk))
1633     (synopsis "File previewer for the GNOME desktop")
1634     (description "Sushi is a DBus-activated service that allows applications
1635 to preview files on the GNOME desktop.")
1636     (home-page "https://gitlab.gnome.org/GNOME/sushi")
1637     (license license:gpl2+)))
1638
1639 (define-public rygel
1640   (package
1641     (name "rygel")
1642     (version "0.40.1")
1643     (source (origin
1644               (method url-fetch)
1645               (uri (string-append "mirror://gnome/sources/" name "/"
1646                                   (version-major+minor version) "/"
1647                                   name "-" version ".tar.xz"))
1648               (sha256
1649                (base32
1650                 "0bd3d2swa8lq47b9r04x8xwdr9nhjnrwqi6scygd134wb5vxfh22"))))
1651     (build-system meson-build-system)
1652     (arguments
1653      ;; Disable the tracker plugin.
1654      '(#:configure-flags
1655        (list "-Dplugins=external,gst-launch,lms,media-export,
1656 mpris,playbin,ruih,tracker3")))
1657     (native-inputs
1658      (list gettext-minimal
1659            `(,glib "bin")               ; for glib-compile-schemas, etc.
1660            gobject-introspection
1661            gtk-doc/stable
1662            pkg-config
1663            python
1664            vala
1665            docbook-xml
1666            docbook-xsl
1667            libxslt))
1668     (inputs
1669      (list gdk-pixbuf
1670            gssdp
1671            gstreamer
1672            gst-plugins-base
1673            gst-editing-services
1674            gtk+
1675            gupnp
1676            gupnp-av
1677            gupnp-dlna
1678            json-glib
1679            libgee
1680            libmediaart
1681            libsoup
1682            libxslt
1683            libunistring
1684            tracker))
1685     (synopsis "Share audio, video, and pictures with other devices")
1686     (description
1687      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1688 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1689 pictures, and to control a media player on your home network.
1690
1691 Rygel achieves interoperability with other devices by trying to conform to the
1692 strict requirements of DLNA and by converting media on-the-fly to formats that
1693 client devices can handle.")
1694     (home-page "https://wiki.gnome.org/Projects/Rygel")
1695     (license (list
1696               ;; For logo (data/icons/*).
1697               license:cc-by-sa3.0
1698               ;; For all others.
1699               license:lgpl2.1+))))
1700
1701 (define-public libnma
1702   (package
1703     (name "libnma")
1704     (version "1.8.28")
1705     (source (origin
1706               (method url-fetch)
1707               (uri (string-append "mirror://gnome/sources/" name "/"
1708                                   (version-major+minor version) "/"
1709                                   name "-" version ".tar.xz"))
1710               (sha256
1711                (base32
1712                 "09mp6k0hfam1vyyv9kcd8j4gb2r58i05ipx2nswb58ris599bxja"))))
1713     (build-system meson-build-system)
1714     (arguments
1715      `(#:phases
1716        (modify-phases %standard-phases
1717          (add-after 'unpack 'patch-docbook-xml
1718            (lambda* (#:key inputs #:allow-other-keys)
1719              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1720                                           "/xml/dtd/docbook")))
1721                (substitute* "libnma-docs.xml"
1722                  (("http://.*/docbookx\\.dtd")
1723                   (string-append xmldoc "/docbookx.dtd")))
1724                #t))))))
1725     (native-inputs
1726      `(("docbook-xml" ,docbook-xml-4.3)
1727        ("gettext" ,gettext-minimal)
1728        ("glib:bin" ,glib "bin")
1729        ("gtk-doc" ,gtk-doc/stable)
1730        ("gobject-introspection" ,gobject-introspection)
1731        ("pkg-config" ,pkg-config)
1732        ("vala" ,vala)))
1733     (inputs
1734      (list gcr gtk+ iso-codes mobile-broadband-provider-info
1735            network-manager))
1736     (synopsis "Network Manager's applet library")
1737     (description "Libnma is an applet library for Network Manager.  It was
1738 initially part of network-manager-applet and has now become a separate
1739 project.")
1740     (home-page "https://gitlab.gnome.org/GNOME/libnma")
1741     ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1742     ;; "LGPL-2.1+".
1743     (license license:gpl2+)))
1744
1745 (define-public gnome-menus
1746   (package
1747     (name "gnome-menus")
1748     (version "3.36.0")
1749     (source (origin
1750               (method url-fetch)
1751               (uri (string-append "mirror://gnome/sources/gnome-menus/"
1752                                   (version-major+minor version) "/"
1753                                   name "-" version ".tar.xz"))
1754               (sha256
1755                (base32
1756                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
1757     (build-system gnu-build-system)
1758     (native-inputs
1759      (list gettext-minimal glib pkg-config))
1760     (synopsis "Menu support for GNOME desktop")
1761     (description "GNOME Menus contains the libgnome-menu library, the layout
1762 configuration files for the GNOME menu, as well as a simple menu editor.")
1763     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
1764     (license license:lgpl2.0+)))
1765
1766 (define-public deja-dup
1767   (package
1768     (name "deja-dup")
1769     (version "43.4")
1770     (source (origin
1771               (method url-fetch)
1772               (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1773                                   version "/deja-dup-" version ".tar.bz2"))
1774               (sha256
1775                (base32
1776                 "1mr2g009w0zm5rj8dg1k77c7zdwylih2yszm8vh8wkw6al6bzfh3"))))
1777     (build-system meson-build-system)
1778     (arguments
1779      `(#:glib-or-gtk? #t
1780        #:configure-flags
1781        (list
1782         ;; Otherwise, the RUNPATH will lack the final path component.
1783         (string-append "-Dc_link_args=-Wl,-rpath="
1784                        (assoc-ref %outputs "out") "/lib/deja-dup"))
1785        #:phases
1786        (modify-phases %standard-phases
1787          (add-after 'unpack 'patch-paths
1788            (lambda* (#:key inputs #:allow-other-keys)
1789              (let ((python (assoc-ref inputs "python")))
1790                (substitute* '("libdeja/duplicity/DuplicityInstance.vala"
1791                               "libdeja/tests/scripts/instance-error.test")
1792                  (("/bin/rm")
1793                   (which "rm")))
1794                (substitute* "libdeja/tests/runner.vala"
1795                  (("/bin/sh")
1796                   (which "sh")))
1797                (substitute* "libdeja/tests/scripts/instance-error.test"
1798                  (("`which python3`")
1799                   (string-append python "/bin/python3"))))))
1800          (add-after 'unpack 'patch-libgpg-error
1801            (lambda* (#:key inputs #:allow-other-keys)
1802              (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1803                (substitute* "meson.build"
1804                  (("(gpgerror_libs = ).*" _ var)
1805                   (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))))
1806          (add-after 'install 'wrap-program
1807            (lambda* (#:key inputs outputs #:allow-other-keys)
1808              ;; Add duplicity to the search path
1809              (wrap-program (string-append (assoc-ref outputs "out")
1810                                           "/bin/deja-dup")
1811                `("PATH" ":" prefix
1812                  (,(string-append (assoc-ref inputs "duplicity") "/bin")))))))))
1813     (inputs
1814      (list bash-minimal
1815            duplicity
1816            gsettings-desktop-schemas
1817            gtk
1818            json-glib
1819            libadwaita
1820            libgpg-error
1821            libnotify
1822            libsecret
1823            libsoup
1824            libhandy
1825            packagekit
1826            python
1827            python-pygobject))
1828     (native-inputs
1829      (list appstream-glib
1830            desktop-file-utils
1831            gettext-minimal
1832            `(,glib "bin")               ;for glib-compile-schemas
1833            gobject-introspection
1834            `(,gtk "bin")                ;for gtk-update-icon-cache
1835            itstool
1836            pkg-config
1837            vala))
1838     (home-page "https://wiki.gnome.org/Apps/DejaDup")
1839     (synopsis "Simple backup tool, for regular encrypted backups")
1840     (description
1841      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
1842 uses duplicity as the backend, which supports incremental backups and storage
1843 either on a local, or remote machine via a number of methods.")
1844     (license license:gpl3+)))
1845
1846 (define-public gnome-commander
1847   (package
1848     (name "gnome-commander")
1849     (version "1.14.3")
1850     (source
1851      (origin
1852        (method url-fetch)
1853        (uri (string-append "mirror://gnome/sources/" name "/"
1854                            (version-major+minor version)  "/"
1855                            "gnome-commander-" version ".tar.xz"))
1856        (sha256
1857         (base32 "0yzx9slg632iflw9p96nlh9i50dhacq7hrzpkj8b48mr1zkxrn3q"))))
1858     (build-system glib-or-gtk-build-system)
1859     (native-inputs
1860      (list desktop-file-utils
1861            flex
1862            gettext-minimal
1863            `(,glib "bin")
1864            gobject-introspection
1865            googletest
1866            intltool
1867            itstool
1868            libtool
1869            pkg-config))
1870     (inputs
1871      (list gconf glib gtk+-2 libxml2))
1872     (home-page "https://gcmd.github.io/")
1873     (synopsis "Two-pane graphical file manager for the GNOME desktop")
1874     (description
1875      "GNOME Commander is a two-pane graphical file manager using GNOME
1876 libraries.  It aims to fulfill the demands of more advanced users who
1877 like to focus on file management, their work through special applications
1878 and running smart commands.")
1879     (license license:gpl2+)))
1880
1881 (define-public gnome-user-docs
1882   (package
1883    (name "gnome-user-docs")
1884    (version "40.5")
1885    (source
1886     (origin
1887       (method url-fetch)
1888       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1889                           (version-major version)
1890                           "/gnome-user-docs-" version ".tar.xz"))
1891       (sha256
1892        (base32 "0p6ysdqlfc7vvzsrcanl9bhsc7666sv42xxzpbgsf5j55z3yrkpr"))))
1893    (build-system gnu-build-system)
1894    (native-inputs
1895     (list gettext-minimal itstool pkg-config libxml2))
1896    (synopsis "User documentation for the GNOME desktop")
1897    (description
1898     "The GNOME User Documentation explains how to use the GNOME desktop and its
1899 components.  It covers usage and setup of the core GNOME programs by end-users
1900 and system administrators.")
1901    (home-page "https://live.gnome.org/DocumentationProject")
1902    (license license:cc-by3.0)))
1903
1904 (define-public dia
1905   ;; This version from GNOME's repository includes fixes for compiling with
1906   ;; recent versions of the build tools.  The latest activity on the
1907   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
1908   ;; fixes since.
1909   (let ((commit "0997887d97f01be28bf3886dfd3e2002de437930")
1910         (revision "3"))
1911     (package
1912       (name "dia")
1913       (version (git-version "0.97.3" revision commit))
1914       (source (origin
1915                 (method git-fetch)
1916                 (uri (git-reference
1917                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
1918                       (commit commit)))
1919                 (file-name (git-file-name name version))
1920                 (sha256
1921                  (base32
1922                   "199b4n1jydg1g9lnz0r8xx67h7s2ac2lfj89zp015lbs0qqfkmsh"))))
1923       (build-system meson-build-system)
1924       ;; XXX: Parallel builds may cause: [74/566] [...]
1925       ;; fatal error: dia-lib-enums.h: No such file or directory
1926       (arguments '(#:parallel-build? #f))
1927       (inputs
1928        (list graphene
1929              gtk+-2
1930              libxml2
1931              libxslt
1932
1933              ;; XXX: PDF plugin fails to build with poppler 21.07.0.
1934              ;; poppler
1935
1936              python))
1937       (native-inputs
1938        (list appstream-glib docbook-xsl
1939              `(,glib "bin") gettext-minimal pkg-config))
1940       (home-page "https://wiki.gnome.org/Apps/Dia")
1941       (synopsis "Diagram creation for GNOME")
1942       (description "Dia can be used to draw different types of diagrams, and
1943 includes support for UML static structure diagrams (class diagrams), entity
1944 relationship modeling, and network diagrams.  The program supports various file
1945 formats like PNG, SVG, PDF and EPS.")
1946       (license license:gpl2+))))
1947
1948 (define-public libgdata
1949   (package
1950     (name "libgdata")
1951     (version "0.18.1")
1952     (source (origin
1953               (method url-fetch)
1954               (uri (string-append "mirror://gnome/sources/" name "/"
1955                                   (version-major+minor version)  "/"
1956                                   name "-" version ".tar.xz"))
1957               (sha256
1958                (base32
1959                 "1iq4d1qy0vkmy29xvr13dgz4pxvn5v3yi2swryld0ajinvp951fx"))))
1960     (build-system meson-build-system)
1961     (arguments
1962      '(#:phases
1963        (modify-phases %standard-phases
1964          (add-before 'check 'set-home-for-tests
1965            (lambda _
1966              (setenv "HOME" "/tmp"))))))
1967     (native-inputs
1968      `(("glib:bin" ,glib "bin")
1969        ("gobject-introspection" ,gobject-introspection)
1970        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1971        ("intltool" ,intltool)
1972        ("pkg-config" ,pkg-config)
1973        ("uhttpmock" ,uhttpmock)))
1974     (inputs
1975      (list cyrus-sasl glib-networking vala))
1976     (propagated-inputs
1977      `(("gcr" ,gcr)
1978        ("glib" ,glib)
1979        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1980        ("json-glib" ,json-glib)
1981        ("liboauth" ,liboauth)
1982        ("libsoup" ,libsoup-minimal-2)
1983        ("libxml2" ,libxml2)))
1984     (home-page "https://wiki.gnome.org/Projects/libgdata")
1985     (synopsis "Library for accessing online service APIs")
1986     (description
1987      "libgdata is a GLib-based library for accessing online service APIs using
1988 the GData protocol — most notably, Google's services.  It provides APIs to
1989 access the common Google services, and has full asynchronous support.")
1990     (license license:lgpl2.1+)))
1991
1992 (define-public libgxps
1993   (package
1994     (name "libgxps")
1995     (version "0.3.2")
1996     (source (origin
1997               (method url-fetch)
1998               (uri (string-append "mirror://gnome/sources/" name "/"
1999                                   (version-major+minor version) "/"
2000                                   name "-" version ".tar.xz"))
2001               (sha256
2002                (base32
2003                 "07156nj7yrp3h9zyzx6mjwxwmfijialb4gi5d6dwyp53arr8c9vd"))))
2004     (build-system meson-build-system)
2005     (native-inputs
2006      (list gobject-introspection pkg-config))
2007     (inputs
2008      (list gtk+ libjpeg-turbo lcms libtiff))
2009     (propagated-inputs
2010      ;; In Requires of libgxps.pc.
2011      (list cairo glib libarchive))
2012     (home-page "https://wiki.gnome.org/Projects/libgxps")
2013     (synopsis "GObject-based library for handling and rendering XPS documents")
2014     (description
2015      "libgxps is a GObject-based library for handling and rendering XPS
2016 documents.  This package also contains binaries that can convert XPS documents
2017 to other formats.")
2018     (license license:lgpl2.1+)))
2019
2020 (define-public gnome-characters
2021   (package
2022     (name "gnome-characters")
2023     (version "40.0")
2024     (source
2025      (origin
2026        (method url-fetch)
2027        (uri (string-append "mirror://gnome/sources/"
2028                            "gnome-characters/" (version-major version)
2029                            "/gnome-characters-" version ".tar.xz"))
2030        (sha256
2031         (base32
2032          "0z2xa4w921bzpzj6gv88pvbrijcnnwni6jxynwz0ybaravyzaqha"))))
2033     (build-system meson-build-system)
2034     (arguments
2035      `(#:glib-or-gtk? #t
2036        #:phases (modify-phases %standard-phases
2037                   (add-after 'install 'wrap
2038                     (lambda* (#:key outputs #:allow-other-keys)
2039                       ;; GNOME Characters needs Typelib files from GTK and
2040                       ;; gnome-desktop.
2041                       (wrap-program (string-append (assoc-ref outputs "out")
2042                                                    "/bin/gnome-characters")
2043                         `("GI_TYPELIB_PATH" ":" prefix
2044                           (,(getenv "GI_TYPELIB_PATH")))))))))
2045     (native-inputs
2046      `(("gettext" ,gettext-minimal)
2047        ("glib:bin" ,glib "bin")
2048        ("gtk+:bin" ,gtk+ "bin")
2049        ("pkg-config" ,pkg-config)
2050        ("python" ,python-minimal)))
2051     (inputs
2052      (list gjs gtk+ libhandy libunistring gnome-desktop))
2053     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
2054     (synopsis "Find and insert unusual characters")
2055     (description "Characters is a simple utility application to find
2056 and insert unusual characters.  It allows you to quickly find the
2057 character you are looking for by searching for keywords.")
2058     (license license:bsd-3)))
2059
2060 (define-public gnome-common
2061   (package
2062     (name "gnome-common")
2063     (version "3.18.0")
2064     (source
2065      (origin
2066        (method url-fetch)
2067        (uri (string-append "mirror://gnome/sources/" name "/"
2068                            (version-major+minor version)  "/"
2069                            name "-" version ".tar.xz"))
2070        (sha256
2071         (base32
2072          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
2073     (build-system gnu-build-system)
2074     (home-page "https://www.gnome.org/")
2075     (synopsis "Bootstrap GNOME modules built from Git")
2076     (description "gnome-common contains various files needed to bootstrap
2077 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
2078 can be used to configure a source directory checked out from Git and some
2079 commonly used macros.")
2080     (license license:gpl2+)))
2081
2082 (define-public gnome-contacts
2083   (package
2084     (name "gnome-contacts")
2085     (version "40.0")
2086     (source (origin
2087               (method url-fetch)
2088               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2089                                   (version-major version) "/"
2090                                   name "-" version ".tar.xz"))
2091               (sha256
2092                (base32
2093                 "0w2g5xhw65adzvwzakrj5kaim4sw1w7s8qqwm3nm6inq50znzpn9"))))
2094     (build-system meson-build-system)
2095     (arguments
2096      `(#:configure-flags '("-Dcheese=disabled")
2097        #:phases
2098        (modify-phases %standard-phases
2099          (add-after 'unpack 'generate-vapis
2100            (lambda* (#:key inputs #:allow-other-keys)
2101              ;; To generate goa's missing .vapi file
2102              (define goa
2103                (assoc-ref inputs "gnome-online-accounts:lib"))
2104
2105              (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
2106                      "--library=goa-1.0"
2107                      (string-append goa "/share/gir-1.0/Goa-1.0.gir"))))
2108          (add-after 'unpack 'skip-gtk-update-icon-cache
2109            ;; Don't create 'icon-theme.cache'.
2110            (lambda _
2111              (substitute* "build-aux/meson_post_install.py"
2112                (("gtk-update-icon-cache") "true")))))))
2113     (native-inputs
2114      `(("docbook-xml" ,docbook-xml-4.2)
2115        ("docbook-xsl" ,docbook-xsl)
2116        ("glib:bin" ,glib "bin")
2117        ("pkg-config" ,pkg-config)))
2118     (inputs
2119      `(("docbook-xml" ,docbook-xml)
2120        ("dockbook-xsl" ,docbook-xsl)
2121        ("evolution-data-server" ,evolution-data-server)
2122        ("gettext" ,gettext-minimal)
2123        ("gnome-desktop" ,gnome-desktop)
2124        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2125        ("gobject-introspection" ,gobject-introspection)
2126        ("gst-plugins-base" ,gst-plugins-base)
2127        ("gtk+" ,gtk+)
2128        ("libgee" ,libgee)
2129        ("libhandy" ,libhandy)
2130        ("libxslt" ,libxslt)
2131        ("telepathy-glib" ,telepathy-glib)
2132        ("vala" ,vala)))
2133     (propagated-inputs
2134      (list folks telepathy-mission-control))
2135     (synopsis "GNOME's integrated address book")
2136     (description
2137      "GNOME Contacts organizes your contact information from online and
2138 offline sources, providing a centralized place for managing your contacts.")
2139     (home-page "https://wiki.gnome.org/Apps/Contacts")
2140     (license license:gpl2+)))
2141
2142 (define-public gnome-desktop
2143   (package
2144     (name "gnome-desktop")
2145     (version "40.4")
2146     (source
2147      (origin
2148       (method url-fetch)
2149       (uri (string-append "mirror://gnome/sources/" name "/"
2150                           (version-major version)  "/"
2151                           name "-" version ".tar.xz"))
2152       (sha256
2153        (base32
2154         "1vs5knn2yj6a449p9bn5w5407i1yvxfxg8xv844qgl70hpsrdbl8"))))
2155     (build-system meson-build-system)
2156     (arguments
2157      '(#:phases
2158        (modify-phases %standard-phases
2159          (add-before 'configure 'patch-path
2160            (lambda* (#:key inputs #:allow-other-keys)
2161              (let ((libc   (assoc-ref inputs "libc")))
2162                (substitute* "libgnome-desktop/gnome-languages.c"
2163                  (("\"locale\"")
2164                   (string-append "\"" libc "/bin/locale\"")))
2165                #t)))
2166          (add-before 'configure 'patch-bubblewrap
2167            (lambda* (#:key inputs #:allow-other-keys)
2168              (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2169                (("\"bwrap\",")
2170                 (string-append "\"" (which "bwrap") "\","))
2171                (("\"--ro-bind\", \"/usr\", \"/usr\",")
2172                 (string-append "\"--ro-bind\", \""
2173                                (%store-directory)
2174                                "\", \""
2175                                (%store-directory)
2176                                "\","))
2177                (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",") ""))
2178              #t))
2179          (add-before 'check 'pre-check
2180            (lambda* (#:key inputs #:allow-other-keys)
2181              ;; Tests require a running X server and locales.
2182              (system "Xvfb :1 &")
2183              (setenv "DISPLAY" ":1")
2184              (setenv "XDG_CACHE_HOME" "/tmp/xdg-cache")
2185              (setenv "XDG_CONFIG_HOME" "/tmp")
2186              (setenv "GUIX_LOCPATH"
2187                      (search-input-directory inputs
2188                                              "lib/locale")))))))
2189     (native-inputs
2190      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
2191        ("glibc-locales" ,glibc-locales) ; for tests
2192        ("gobject-introspection" ,gobject-introspection)
2193        ("itstool" ,itstool)
2194        ("intltool" ,intltool)
2195        ("pkg-config" ,pkg-config)
2196        ("xmllint" ,libxml2)
2197        ("xorg-server" ,xorg-server-for-tests)))
2198     (propagated-inputs
2199      ;; Required by gnome-desktop-3.0.pc.
2200      (list gsettings-desktop-schemas
2201            gtk+
2202            iso-codes
2203            libseccomp
2204            libx11
2205            xkeyboard-config))
2206     (inputs
2207      (list gdk-pixbuf
2208            glib
2209            bubblewrap
2210            libxext
2211            libxkbfile
2212            libxrandr))
2213     (home-page "https://www.gnome.org/")
2214     (synopsis
2215      "Libgnome-desktop, gnome-about, and desktop-wide documents")
2216     (description
2217      "The libgnome-desktop library provides API shared by several applications
2218 on the desktop, but that cannot live in the platform for various reasons.
2219 There is no API or ABI guarantee, although we are doing our best to provide
2220 stability.  Documentation for the API is available with gtk-doc.
2221
2222 The gnome-about program helps find which version of GNOME is installed.")
2223     ; Some bits under the LGPL.
2224     (license license:gpl2+)))
2225
2226 (define-public gnome-disk-utility
2227   (package
2228     (name "gnome-disk-utility")
2229     (version "40.2")
2230     (source (origin
2231               (method url-fetch)
2232               (uri (string-append "mirror://gnome/sources/" name "/"
2233                                   (version-major version) "/"
2234                                   name "-" version ".tar.xz"))
2235               (sha256
2236                (base32
2237                 "1rr1ypb89p51b6428yqvczmpmylwjfnhnkgx78hzm3vxm3m15lff"))))
2238     (build-system meson-build-system)
2239     (arguments
2240      `(#:configure-flags '("-Dlogind=libelogind")
2241        #:phases
2242        (modify-phases %standard-phases
2243          (add-after 'unpack 'skip-gtk-update-icon-cache
2244            ;; Don't create 'icon-theme.cache'.
2245            (lambda _
2246              (substitute* "meson_post_install.py"
2247                (("gtk-update-icon-cache") "true"))
2248              #t)))))
2249     (native-inputs
2250      `(("glib:bin" ,glib "bin")
2251        ("intltool" ,intltool)
2252        ("pkg-config" ,pkg-config)
2253        ("docbook-xml" ,docbook-xml)
2254        ("docbook-xsl" ,docbook-xsl)
2255        ("libxml2" ,libxml2)
2256        ("libxslt" ,libxslt)))
2257     (inputs
2258      (list elogind
2259            glib
2260            appstream-glib
2261            gnome-settings-daemon
2262            gtk+
2263            libcanberra
2264            libdvdread
2265            libhandy
2266            libnotify
2267            libpwquality
2268            libsecret
2269            udisks))
2270     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2271     (synopsis "Disk management utility for GNOME")
2272     (description "Disk management utility for GNOME.")
2273     (license license:gpl2+)))
2274
2275 (define-public gnome-font-viewer
2276   (package
2277     (name "gnome-font-viewer")
2278     (version "40.0")
2279     (source (origin
2280               (method url-fetch)
2281               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2282                                   (version-major version)
2283                                   "/gnome-font-viewer-" version ".tar.xz"))
2284               (sha256
2285                (base32
2286                 "0hpyi0sz3gcqqs9lkwyk8b6hr39m3n27432x98kxr436jj37dk6j"))))
2287     (build-system meson-build-system)
2288     (arguments
2289      `(#:phases
2290        (modify-phases %standard-phases
2291          (add-after 'unpack 'patch-post-install-script
2292            (lambda _
2293              (substitute* "meson-postinstall.sh"
2294                (("update-desktop-database") (which "true")))
2295              #t))
2296          (add-after 'install 'patch-thumbnailer
2297            (lambda* (#:key outputs #:allow-other-keys)
2298              (let ((out (assoc-ref outputs "out")))
2299                (substitute*
2300                    (string-append
2301                     out
2302                     "/share/thumbnailers/gnome-font-viewer.thumbnailer")
2303                  (("gnome-thumbnail-font")
2304                   (string-append out "/bin/gnome-thumbnail-font"))))
2305              #t)))))
2306     (native-inputs
2307      `(("gettext" ,gettext-minimal)
2308        ("glib:bin" ,glib "bin")
2309        ("pkg-config" ,pkg-config)))
2310     (inputs
2311      (list glib gnome-desktop gtk+ libhandy libxml2))
2312     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2313     (synopsis "GNOME Fonts")
2314     (description "Application to show you the fonts installed on your computer
2315 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
2316 the font would look under various sizes.")
2317     (license license:gpl2+)))
2318
2319 (define-public gcr
2320   (package
2321     (name "gcr")
2322     (version "3.41.0")
2323     (source (origin
2324               (method url-fetch)
2325               (uri (string-append "mirror://gnome/sources/" name "/"
2326                                   (version-major+minor version)  "/"
2327                                   name "-" version ".tar.xz"))
2328               (sha256
2329                (base32
2330                 "00fsf82ycac8qi0kkiq759p6jrn63pyz4ksn4wnq7m4ax94zq289"))))
2331     (build-system meson-build-system)
2332     (arguments
2333      '(#:phases
2334        (modify-phases %standard-phases
2335          ;; These fail because /var/lib/dbus/machine-id is not present in the
2336          ;; build environment.
2337          (add-after 'unpack 'disable-failing-tests
2338            (lambda _
2339              (substitute* "gcr/meson.build"
2340                (("[[:blank:]]+'system-prompt',")
2341                 ""))
2342              #t))
2343          (add-after 'unpack 'skip-gtk-update-icon-cache
2344            ;; Don't create 'icon-theme.cache'.
2345            (lambda _
2346              (substitute* "meson_post_install.py"
2347                (("gtk-update-icon-cache") "true"))
2348              #t))
2349          (add-after 'unpack 'fix-systemd-detection
2350            (lambda _
2351              (substitute* "gcr/gcr-ssh-agent-service.c"
2352                (("#ifdef WITH_SYSTEMD")
2353                 "#if (WITH_SYSTEMD)"))))
2354          (add-before 'check 'pre-check
2355            (lambda _
2356              ;; Some tests expect to write to $HOME.
2357              (setenv "HOME" "/tmp")
2358              #t)))))
2359     (inputs
2360      (list dbus gnupg ;called as a child process during tests
2361            libgcrypt libsecret))
2362     (native-inputs
2363      `(("python" ,python-wrapper)       ;for tests
2364        ("openssh" ,openssh)             ;for tests
2365        ("pkg-config" ,pkg-config)
2366        ("gettext" ,gettext-minimal)
2367        ("autoconf" ,autoconf)
2368        ("automake" ,automake)
2369        ("libtool" ,libtool)
2370        ("gtk-doc" ,gtk-doc)
2371        ("glib" ,glib "bin")
2372        ("gobject-introspection" ,gobject-introspection)
2373        ("libxml2" ,libxml2)
2374        ("vala" ,vala)
2375        ("xsltproc" ,libxslt)))
2376     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2377     (propagated-inputs
2378      (list p11-kit glib gtk+))
2379     (home-page "https://www.gnome.org")
2380     (synopsis "Libraries for displaying certificates and accessing key stores")
2381     (description
2382      "The GCR package contains libraries used for displaying certificates and
2383 accessing key stores.  It also provides the viewer for crypto files on the
2384 GNOME Desktop.")
2385     (license license:lgpl2.1+)))
2386
2387 (define-public gdl
2388   (package
2389     (name "gdl")
2390     (version "3.34.0")
2391     (source (origin
2392               (method git-fetch)
2393               (uri (git-reference
2394                     (url "https://gitlab.gnome.org/GNOME/gdl.git")
2395                     (commit (string-append "GDL_" (string-map (match-lambda
2396                                                                 (#\. #\_)
2397                                                                 (c c))
2398                                                               version)))))
2399               (file-name (git-file-name name version))
2400               (sha256
2401                (base32
2402                 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2403     (build-system gnu-build-system)
2404     (native-inputs
2405      (list autoconf
2406            automake
2407            `(,glib "bin") ; for glib-genmarshal, etc.
2408            gnome-common
2409            gtk-doc/stable
2410            intltool
2411            pkg-config
2412            libtool
2413            which))
2414     (inputs
2415      (list libxml2))
2416     (propagated-inputs
2417      ;; The gdl-3.0.pc file 'Requires' GTK+.
2418      (list gtk+))
2419     (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2420     (synopsis "GNOME docking library")
2421     (description "This library provides docking features for gtk+.")
2422     (license license:lgpl2.1+)))
2423
2424 ;;; A minimal variant used to break a cycle with Inkscape.
2425 (define-public gdl-minimal
2426   (package/inherit gdl
2427     (name "gdl-minimal")
2428     (arguments
2429      '(#:phases
2430        (modify-phases %standard-phases
2431          (add-after 'unpack 'disable-doc-generation
2432            ;; XXX: There is no easy way to disable generating the
2433            ;; documentation.
2434            (lambda _
2435              (substitute* "configure.in"
2436                (("GTK_DOC_CHECK.*") "")
2437                (("docs/.*") ""))
2438              (substitute* "Makefile.am"
2439                (("gdl docs po") "gdl po"))
2440              #t)))))
2441     (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2442
2443 (define-public libgnome-keyring
2444   (package
2445     (name "libgnome-keyring")
2446     (version "3.12.0")
2447     (source (origin
2448              (method url-fetch)
2449              (uri (string-append "mirror://gnome/sources/" name "/"
2450                                  (version-major+minor version)  "/"
2451                                  name "-" version ".tar.xz"))
2452              (sha256
2453               (base32
2454                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
2455     (build-system gnu-build-system)
2456     (inputs
2457      (list libgcrypt dbus))
2458     (native-inputs
2459      (list pkg-config
2460            `(,glib "bin") intltool))
2461     (propagated-inputs
2462      ;; Referred to in .h files and .pc.
2463      (list glib))
2464     (home-page "https://www.gnome.org")
2465     (synopsis "Accessing passwords from the GNOME keyring")
2466     (description
2467      "Client library to access passwords from the GNOME keyring.")
2468
2469     ;; Though a couple of files are LGPLv2.1+.
2470     (license license:lgpl2.0+)))
2471
2472 (define-public gnome-keyring
2473   (package
2474     (name "gnome-keyring")
2475     (version "40.0")
2476     (source (origin
2477               (method url-fetch)
2478               (uri (string-append "mirror://gnome/sources/" name "/"
2479                                   (version-major version)  "/"
2480                                   name "-" version ".tar.xz"))
2481               (sha256
2482                (base32
2483                 "0cdrlcw814zayhvlaxqs1sm9bqlfijlp22dzzd0g5zg2isq4vlm3"))))
2484     (build-system gnu-build-system)
2485     (arguments
2486      (list
2487       #:tests? #f  ;48 of 603 tests fail because /var/lib/dbus/machine-id does
2488                                         ;not exist
2489       #:configure-flags
2490       #~(list
2491          (string-append "--with-pkcs11-config="
2492                         #$output "/share/p11-kit/modules/")
2493          (string-append "--with-pkcs11-modules="
2494                         #$output "/share/p11-kit/modules/"))
2495       #:phases
2496       #~(modify-phases %standard-phases
2497           (add-after 'unpack 'fix-/bin/sh-reference
2498             (lambda _
2499               (substitute* "po/Makefile.in.in"
2500                 (("/bin/sh") (which "sh"))))))))
2501     (inputs
2502      (list libgcrypt linux-pam openssh dbus gcr))
2503     (native-inputs
2504      (list pkg-config
2505            `(,glib "bin")
2506            glib                         ;for m4 macros
2507            python-wrapper               ;for tests
2508            intltool
2509            autoconf
2510            automake
2511            libxml2                      ;for XML_CATALOG_FILES
2512            libxslt                      ;for documentation
2513            docbook-xml
2514            docbook-xsl))
2515     (propagated-inputs
2516      (list gcr))
2517     (home-page "https://www.gnome.org")
2518     (synopsis "Daemon to store passwords and encryption keys")
2519     (description
2520      "gnome-keyring is a program that keeps passwords and other secrets for
2521 users.  It is run as a daemon in the session, similar to ssh-agent, and other
2522 applications locate it via an environment variable or D-Bus.
2523
2524 The program can manage several keyrings, each with its own master password,
2525 and there is also a session keyring which is never stored to disk, but
2526 forgotten when the session ends.")
2527     (license license:lgpl2.1+)))
2528
2529 (define-public evince
2530   (package
2531     (name "evince")
2532     (version "40.2")
2533     (source (origin
2534               (method url-fetch)
2535               (uri "mirror://gnome/sources/evince/40/evince-40.2.tar.xz")
2536               (sha256
2537                (base32
2538                 "0xrwls1bhvny8vvd7mfjy9p26zjch0pd6x6j9jn9g2ka6xwyrxqg"))))
2539     (build-system meson-build-system)
2540     (arguments
2541      `(#:glib-or-gtk? #t
2542        #:build-type "release"
2543        #:configure-flags
2544        '("-Dnautilus=false"
2545          "-Dintrospection=true"
2546          ;; XXX: Generating the documentation fails because the
2547          ;; libevdocument.devhelp document cannot be created. This seems to be
2548          ;; caused by a problem during the XSL transformation.
2549          "-Dgtk_doc=false")
2550        #:phases
2551        (modify-phases %standard-phases
2552          (add-after 'unpack 'skip-gtk-update-icon-cache
2553            ;; Don't create 'icon-theme.cache'.
2554            (lambda _
2555              (substitute* "meson_post_install.py"
2556                (("gtk-update-icon-cache") "true"))
2557              #t)))))
2558     (inputs
2559      (list libarchive
2560            libgxps
2561            libspectre
2562            djvulibre
2563            ghostscript
2564            poppler
2565            libtiff
2566            texlive-libkpathsea ; for DVI support
2567            gnome-desktop
2568            gsettings-desktop-schemas
2569            gspell
2570            libgnome-keyring
2571            adwaita-icon-theme
2572            gdk-pixbuf
2573            atk
2574            pango
2575            gtk+
2576            glib
2577            libxml2
2578            libsm
2579            libice
2580            shared-mime-info
2581            dconf
2582            libcanberra
2583            libsecret
2584            libhandy))
2585     (native-inputs
2586      `(("itstool" ,itstool)
2587        ("intltool" ,intltool)
2588        ("glib" ,glib "bin")
2589        ("gobject-introspection" ,gobject-introspection)
2590        ("pkg-config" ,pkg-config)
2591        ("xmllint" ,libxml2)))
2592     (home-page "https://www.gnome.org/projects/evince/")
2593     (synopsis "GNOME's document viewer")
2594     (description
2595      "Evince is a document viewer for multiple document formats.  It
2596 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
2597 of Evince is to replace the multiple document viewers that exist
2598 on the GNOME Desktop with a single simple application.")
2599     (license license:gpl2+)))
2600
2601 (define-public gsettings-desktop-schemas
2602   (package
2603     (name "gsettings-desktop-schemas")
2604     (version "41.0")
2605     (source
2606      (origin
2607        (method url-fetch)
2608        (uri (string-append "mirror://gnome/sources/" name "/"
2609                            (version-major version)  "/"
2610                            name "-" version ".tar.xz"))
2611        (sha256
2612         (base32
2613          "1v9jagk679m01nji0acirynxinziv036618c7xc49l4nwmr9ja3p"))))
2614     (build-system meson-build-system)
2615     (arguments
2616      `(#:phases (modify-phases %standard-phases
2617                   (add-after 'unpack 'patch-schemas
2618                     (lambda* (#:key inputs #:allow-other-keys)
2619                       (substitute* (find-files "schemas"
2620                                                "\\.gschema\\.xml\\.in$")
2621                         ;; Provide the correct file name of the default
2622                         ;; GNOME background, 'adwaita-timed.xml'.
2623                         (("@datadir@/backgrounds/gnome")
2624                          (search-input-directory inputs
2625                                                  "/share/backgrounds/gnome"))
2626                         ;; Do not reference fonts, that may not exist.
2627                         (("'Source Code Pro 10'") "'Monospace 11'")))))))
2628     (inputs (list glib gnome-backgrounds))
2629     (native-inputs (list gettext-minimal
2630                          `(,glib "bin") ;glib-compile-schemas, etc.
2631                          gobject-introspection
2632                          pkg-config
2633                          python))  ;for build-aux/meson/post-install.py
2634     (home-page "https://launchpad.net/gsettings-desktop-schemas")
2635     (synopsis "GNOME settings for various desktop components")
2636     (description "Gsettings-desktop-schemas contains a collection of GSettings
2637 schemas for settings shared by various components of the GNOME desktop.")
2638     (license license:lgpl2.1+)))
2639
2640 (define-public python-liblarch
2641   (package
2642     (name "python-liblarch")
2643     (version "3.0.1")
2644     (source
2645      (origin
2646        (method git-fetch)
2647        (uri (git-reference
2648              (url "https://github.com/getting-things-gnome/liblarch")
2649              (commit (string-append "v" version))))
2650        (file-name (git-file-name name version))
2651        (sha256
2652         (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2653     (build-system python-build-system)
2654     (arguments
2655      `(#:phases
2656        (modify-phases %standard-phases
2657          (add-before 'check 'start-xserver
2658            (lambda* (#:key inputs #:allow-other-keys)
2659              (system (format #f "~a/bin/Xvfb :1 &"
2660                              (assoc-ref inputs "xorg-server")))
2661              (setenv "DISPLAY" ":1")
2662              #t)))))
2663     (native-inputs
2664      (list xorg-server-for-tests))
2665     (inputs
2666      (list gtk+))
2667     (propagated-inputs
2668      (list python-pygobject))
2669     (home-page "https://wiki.gnome.org/Projects/liblarch")
2670     (synopsis "Library to easily handle complex data structures")
2671     (description
2672      "Liblarch is a Python library built to easily handle data structures such
2673 as lists, trees and acyclic graphs.  There's also a GTK binding that will
2674 allow you to use your data structure in a @code{Gtk.Treeview}.
2675
2676 Liblarch support multiple views of one data structure and complex filtering.
2677 That way, you have a clear separation between your data themselves (Model)
2678 and how they are displayed (View).")
2679     (license license:lgpl3+)))
2680
2681 (define-public gtg
2682   (package
2683     (name "gtg")
2684     (version "0.5")
2685     (source
2686      (origin
2687        (method git-fetch)
2688        (uri (git-reference
2689              (url "https://github.com/getting-things-gnome/gtg")
2690              (commit (string-append "v" version))))
2691        (file-name (git-file-name name version))
2692        (sha256
2693         (base32 "0b2slm7kjq6q8c7v4m7aqc8m1ynjxn3bl7445srpv1xc0dilq403"))))
2694     (build-system meson-build-system)
2695     (arguments
2696      `(#:glib-or-gtk? #t
2697        #:phases
2698        (modify-phases %standard-phases
2699          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2700            (lambda* (#:key outputs #:allow-other-keys)
2701              (let ((prog (string-append (assoc-ref outputs "out")
2702                                         "/bin/gtg"))
2703                    (pylib (string-append (assoc-ref outputs "out")
2704                                          "/lib/python"
2705                                          ,(version-major+minor
2706                                            (package-version python))
2707                                          "/site-packages")))
2708                (wrap-program prog
2709                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
2710                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2711                #t))))))
2712     (native-inputs
2713      `(("desktop-file-utils" ,desktop-file-utils)
2714        ("gettext" ,gettext-minimal)
2715        ("glib:bin" ,glib "bin")
2716        ("gobject-introspection" ,gobject-introspection)
2717        ("gtk+:bin" ,gtk+ "bin")
2718        ("pkg-config" ,pkg-config)))
2719     (inputs
2720      (list librsvg
2721            gsettings-desktop-schemas
2722            gtk+
2723            pango
2724            python-dbus
2725            python-liblarch
2726            python-lxml
2727            python-pycairo
2728            python-pygobject
2729            python-pyxdg))
2730     (home-page "https://wiki.gnome.org/Apps/GTG")
2731     (synopsis "Personal organizer for the GNOME desktop")
2732     (description
2733      "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2734 organizer for the GNOME desktop environment inspired by the Getting Things
2735 Done (GTD) methodology.  GTG is designed with flexibility, adaptability,
2736 and ease of use in mind so it can be used as more than just GTD software.
2737 GTG is intended to help you track everything you need to do and need to
2738 know, from small tasks to large projects.")
2739     (license license:gpl3+)))
2740
2741 (define-public icon-naming-utils
2742   (package
2743     (name "icon-naming-utils")
2744     (version "0.8.90")
2745     (source
2746      (origin
2747       (method url-fetch)
2748       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
2749                           version ".tar.bz2"))
2750       (sha256
2751        (base32
2752         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2753     (build-system gnu-build-system)
2754     (inputs
2755      (list perl perl-xml-simple))
2756     (arguments
2757      '(#:phases
2758        (modify-phases %standard-phases
2759          (add-after 'install 'set-load-paths
2760            ;; Tell 'icon-name-mapping' where XML::Simple is.
2761            (lambda* (#:key outputs #:allow-other-keys)
2762              (let* ((out  (assoc-ref outputs "out"))
2763                     (prog (string-append out "/libexec/icon-name-mapping")))
2764                (wrap-program
2765                    prog
2766                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2767              #t)))))
2768     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2769     (synopsis
2770      "Utility to implement the Freedesktop Icon Naming Specification")
2771     (description
2772      "To help with the transition to the Freedesktop Icon Naming
2773 Specification, the icon naming utility maps the icon names used by the
2774 GNOME and KDE desktops to the icon names proposed in the specification.")
2775     (license license:lgpl2.1+)))
2776
2777 (define-public gnome-icon-theme
2778   (package
2779     (name "gnome-icon-theme")
2780     (version "3.12.0")
2781     (source
2782      (origin
2783       (method url-fetch)
2784       (uri (string-append "mirror://gnome/sources/" name "/"
2785                           (version-major+minor version)  "/"
2786                           name "-" version ".tar.xz"))
2787       (sha256
2788        (base32
2789         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
2790     (build-system gnu-build-system)
2791     (arguments
2792      '(#:configure-flags
2793        ;; Don't create 'icon-theme.cache'.
2794        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
2795               (true      (string-append coreutils "/bin/true")))
2796          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
2797     (native-inputs
2798      (list icon-naming-utils intltool pkg-config))
2799     (home-page "https://wiki.gnome.org/Personalization")
2800     (synopsis "GNOME icon theme")
2801     (description "Icons for the GNOME desktop.")
2802     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
2803
2804 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
2805 (define-public adwaita-icon-theme
2806   (package/inherit gnome-icon-theme
2807     (name "adwaita-icon-theme")
2808     (version "40.1.1")
2809     (source (origin
2810               (method url-fetch)
2811               (uri (string-append "mirror://gnome/sources/" name "/"
2812                                   (version-major version) "/"
2813                                   name "-" version ".tar.xz"))
2814               (sha256
2815                (base32
2816                 "1xpqa1rgmixlp953938d08xvf7kv36h747ysial8g65dsrp46v0b"))))
2817     (native-inputs
2818      ;; The following requires the SVG pixbuf loader, provided by librsvg,
2819      ;; available on x86_64 only.
2820      `(,@(if (target-64bit?)
2821              `(("gtk-encode-symbolic-svg" ,gtk+ "bin"))
2822              '())))))
2823
2824 (define-public tango-icon-theme
2825   (package
2826     (name "tango-icon-theme")
2827     (version "0.8.90")
2828     (source (origin
2829               (method url-fetch)
2830               (uri (string-append "http://tango.freedesktop.org/releases/"
2831                                   "tango-icon-theme-" version ".tar.bz2"))
2832               (sha256
2833                (base32
2834                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2835     (build-system gnu-build-system)
2836     (native-inputs
2837      (list icon-naming-utils intltool imagemagick pkg-config))
2838     (home-page "http://tango-project.org/")
2839     (synopsis "Tango icon theme")
2840     (description "This is an icon theme that follows the Tango visual
2841 guidelines.")
2842     (license license:public-domain)))
2843
2844 (define-public shared-mime-info
2845   (package
2846     (name "shared-mime-info")
2847     (version "1.15")
2848     (source (origin
2849              (method url-fetch)
2850              (uri (string-append
2851                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2852                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2853                    ".tar.xz"))
2854              (sha256
2855               (base32
2856                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
2857     (build-system gnu-build-system)
2858     (arguments
2859      ;; The build system appears not to be parallel-safe.
2860      '(#:parallel-build? #f))
2861     (inputs
2862      (list glib libxml2))
2863     (native-inputs
2864      `(("gettext" ,gettext-minimal)
2865        ("itstool" ,itstool)
2866        ("pkg-config" ,pkg-config)))
2867     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
2868     (synopsis "Database of common MIME types")
2869     (description
2870      "The shared-mime-info package contains the core database of common types
2871 and the update-mime-database command used to extend it.  It requires glib2 to
2872 be installed for building the update command.  Additionally, it uses intltool
2873 for translations, though this is only a dependency for the maintainers.  This
2874 database is translated at Transifex.")
2875     (license license:gpl2+)))
2876
2877 (define-public system-config-printer
2878   (package
2879     (name "system-config-printer")
2880     (version "1.5.16")
2881     (source
2882      (origin
2883        (method url-fetch)
2884        (uri (string-append
2885              "https://github.com/OpenPrinting/system-config-printer/releases/"
2886              "download/v" version
2887              "/system-config-printer-" version ".tar.xz"))
2888        (sha256
2889         (base32 "1z9pvgifj5c87csnqz10qybbcayh3ak9m606f63ifkvyjh4q9jnb"))))
2890     (build-system glib-or-gtk-build-system)
2891     (arguments
2892      (list
2893       #:imported-modules `((guix build python-build-system)
2894                            ,@%glib-or-gtk-build-system-modules)
2895       #:phases
2896       #~(modify-phases %standard-phases
2897           (add-after 'unpack 'patch-build-files
2898             (lambda _
2899               (substitute* "configure.ac"
2900                 (("AC_INIT.*" all)
2901                  (string-append all "\nAC_CONFIG_MACRO_DIR([m4])\n"))
2902                 ;; XXX: AX macros appear unavailable
2903                 (("AX_REQUIRE_DEFINED.*") ""))
2904               ;; The Makefile generates some scripts, so set a valid shebang
2905               (substitute* "Makefile.am"
2906                 (("/bin/bash") (which "bash")))
2907               (delete-file "configure")))
2908           (add-after 'unpack 'patch-docbook-xml
2909             (lambda* (#:key inputs #:allow-other-keys)
2910               ;; Modify the man XML otherwise xmlto tries to access the network
2911               (substitute* "man/system-config-printer.xml"
2912                 (("http://www.oasis-open.org/docbook/xml/4.1.2/")
2913                  (string-append (assoc-ref inputs "docbook-xml")
2914                                 "/xml/dtd/docbook/")))))
2915           (add-after 'install 'add-install-to-pythonpath
2916             (@@ (guix build python-build-system) add-install-to-pythonpath))
2917           (add-after 'add-install-to-pythonpath 'wrap-for-python
2918             (@@ (guix build python-build-system) wrap))
2919           (add-after 'install 'wrap
2920             (lambda* (#:key outputs #:allow-other-keys)
2921               (let ((out               (assoc-ref outputs "out"))
2922                     (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
2923                 (for-each
2924                  (lambda (program)
2925                    (wrap-program program
2926                      `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
2927                  (map (lambda (name)
2928                         (string-append out "/bin/" name))
2929                       '("system-config-printer"
2930                         "system-config-printer-applet"
2931                         "install-printerdriver"
2932                         "scp-dbus-service")))))))))
2933     (inputs
2934      (list gsettings-desktop-schemas
2935            gobject-introspection
2936            python
2937            cups
2938            gtk+
2939            python-dbus
2940            python-pygobject
2941            python-pycups
2942            python-requests
2943            python-pycairo
2944            libnotify
2945            packagekit))
2946     (native-inputs
2947      (list pkg-config
2948            desktop-file-utils
2949            glib
2950            autoconf
2951            automake
2952            gettext-minimal
2953            xmlto
2954            docbook-xml-4.1.2
2955            docbook-xsl
2956            libxml2))
2957     (home-page "https://github.com/zdohnal/system-config-printer")
2958     (synopsis "CUPS administration tool")
2959     (description
2960      "system-config-printer is a CUPS administration tool.  It's written in
2961 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
2962 configuring CUPS.")
2963     (license license:gpl2+)))
2964
2965 (define-public hicolor-icon-theme
2966   (package
2967     (name "hicolor-icon-theme")
2968     (version "0.17")
2969     (source
2970      (origin
2971       (method url-fetch)
2972       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
2973                           "hicolor-icon-theme-" version ".tar.xz"))
2974       (sha256
2975        (base32
2976         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
2977     (build-system gnu-build-system)
2978     (arguments
2979      `(#:tests? #f)) ; no check target
2980     (home-page "https://icon-theme.freedesktop.org/releases/")
2981     (synopsis
2982      "Freedesktop icon theme")
2983     (description
2984      "Freedesktop icon theme.")
2985     (license license:gpl2)))
2986
2987 (define-public libnotify
2988   (package
2989     (name "libnotify")
2990     (version "0.7.9")
2991     (source
2992      (origin
2993        (method url-fetch)
2994        (uri (string-append "mirror://gnome/sources/" name "/"
2995                            (version-major+minor version)  "/"
2996                            name "-" version ".tar.xz"))
2997        (sha256
2998         (base32
2999          "0qa7cx6ra5hwqnxw95b9svgjg5q6ynm8y843iqjszxvds5z53h36"))))
3000     (build-system meson-build-system)
3001     (arguments
3002      `(#:phases
3003        (modify-phases %standard-phases
3004          (add-after 'unpack 'fix-docbook
3005            (lambda* (#:key inputs #:allow-other-keys)
3006              ;; Don't attempt to download XSL schema.
3007              (substitute* "meson.build"
3008                (("http://docbook.sourceforge.net/release/xsl-ns/current\
3009 /manpages/docbook.xsl")
3010                 (string-append (assoc-ref inputs "docbook-xsl")
3011                                "/xml/xsl/docbook-xsl-"
3012                                ,(package-version docbook-xsl)
3013                                "/manpages/docbook.xsl")))
3014              #t)))))
3015     (propagated-inputs
3016      (list ;; In Requires of libnotify.pc.
3017            gdk-pixbuf glib))
3018     (inputs
3019      (list gtk+ libpng))
3020     (native-inputs
3021      `(("pkg-config" ,pkg-config)
3022        ("glib" ,glib "bin")
3023        ("gobject-introspection" ,gobject-introspection)
3024
3025        ;; For the documentation.
3026        ("gtk-doc" ,gtk-doc/stable)
3027        ("xsltproc" ,libxslt)
3028        ("docbook-xsl" ,docbook-xsl)))
3029     (home-page "https://developer-next.gnome.org/libnotify/")
3030     (synopsis
3031      "GNOME desktop notification library")
3032     (description
3033      "Libnotify is a library that sends desktop notifications to a
3034 notification daemon, as defined in the Desktop Notifications spec.  These
3035 notifications can be used to inform the user about an event or display
3036 some form of information without getting in the user's way.")
3037     (license license:lgpl2.1+)))
3038
3039 (define-public libpeas
3040   (package
3041     (name "libpeas")
3042     (version "1.30.0")
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         "18xrk1c1ixlhkmykcfiafrl2am470ws687xqvjlq40zwkcp5dx8b"))))
3052     (build-system meson-build-system)
3053     (arguments
3054      '(#:phases
3055        (modify-phases %standard-phases
3056          (add-before 'check 'start-xserver
3057            (lambda* (#:key inputs #:allow-other-keys)
3058              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3059                    (disp ":1"))
3060                (setenv "DISPLAY" disp)
3061                (setenv "XDG_CACHE_HOME" "/tmp/xdg-cache")
3062                (setenv "XDG_CONFIG_HOME" "/tmp")
3063                ;; Tests require a running X server.
3064                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3065                #t))))))
3066     (inputs
3067      (list gtk+ glade3 python python-pygobject))
3068     (native-inputs
3069      `(("pkg-config" ,pkg-config)
3070        ("gettext" ,gettext-minimal)
3071        ("glib:bin" ,glib "bin")
3072        ("gobject-introspection" ,gobject-introspection)
3073        ("xorg-server" ,xorg-server-for-tests)))
3074     (propagated-inputs
3075      ;; The .pc file "Requires" gobject-introspection.
3076      (list gobject-introspection))
3077     (home-page "https://wiki.gnome.org/Libpeas")
3078     (synopsis "GObject plugin system")
3079     (description
3080      "Libpeas is a gobject-based plugin engine, targeted at giving every
3081 application the chance to assume its own extensibility.  It also has a set of
3082 features including, but not limited to: multiple extension points; on-demand
3083 (lazy) programming language support for C, Python and JS; simplicity of the
3084 API.")
3085     (license license:lgpl2.0+)))
3086
3087 (define-public gtkglext
3088   (package
3089     (name "gtkglext")
3090     (version "1.2.0")
3091     (source (origin
3092               (method url-fetch)
3093               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
3094                                   version "/gtkglext-" version ".tar.gz"))
3095               (sha256
3096                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
3097               (patches (search-patches
3098                         "gtkglext-disable-disable-deprecated.patch"))))
3099     (build-system gnu-build-system)
3100     (arguments
3101      `(#:phases
3102        (modify-phases %standard-phases
3103          ;; Fix a collision between a local variable and a definition from
3104          ;; glibc's string.h.
3105          (add-after 'unpack 'fix-collision
3106            (lambda _
3107              (substitute* "gdk/gdkglshapes.c"
3108                ((" index") " triangle_index"))
3109              #t)))))
3110     (inputs (list gtk+-2 mesa glu libx11 libxt))
3111     (native-inputs (list pkg-config
3112                          `(,glib "bin")))
3113     (propagated-inputs (list pangox-compat))
3114     (home-page "https://projects.gnome.org/gtkglext")
3115     (synopsis "OpenGL extension to GTK+")
3116     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
3117 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3118 API add-ons to make GTK+ widgets OpenGL-capable.")
3119     (license license:lgpl2.1+)))
3120
3121 (define-public glade3
3122   (package
3123     (name "glade")
3124     (version "3.38.2")
3125     (source (origin
3126               (method url-fetch)
3127               (uri (string-append "mirror://gnome/sources/" name "/"
3128                                   (version-major+minor version)  "/"
3129                                   name "-" version ".tar.xz"))
3130               (sha256
3131                (base32
3132                 "1dxsiz9ahqkxg2a1dw9sbd8jg59y5pdz4c1gvnbmql48gmj8gz4q"))
3133               (patches (search-patches
3134                         "glade-gls-set-script-name.patch"
3135                         "glade-test-widget-null-icon.patch"))))
3136     (build-system meson-build-system)
3137     (arguments
3138      `(#:phases
3139        (modify-phases %standard-phases
3140          (add-after 'unpack 'skip-gtk-update-icon-cache
3141            ;; Don't create 'icon-theme.cache'.
3142            (lambda _
3143              (substitute* "meson_post_install.py"
3144                (("gtk-update-icon-cache") "true"))))
3145
3146          ,@(if (this-package-native-input "gjs")
3147                '()
3148                '((add-after 'unpack 'skip-gjs-test
3149                    (lambda _
3150                      ;; When the optional dependency on GJS is missing, skip
3151                      ;; the GJS plugin tests.
3152                      (substitute* "tests/modules.c"
3153                        (("g_test_add.*JavaScript.*" all)
3154                         (string-append "// " all "\n")))
3155                      (delete-file "tests/catalogs/gjsplugin.xml")))))
3156
3157          (add-before 'configure 'fix-docbook
3158            (lambda* (#:key inputs #:allow-other-keys)
3159              (substitute* "man/meson.build"
3160                (("http://docbook.sourceforge.net/release/xsl/\
3161 current/manpages/docbook.xsl")
3162                 (string-append (assoc-ref inputs "docbook-xsl")
3163                                "/xml/xsl/docbook-xsl-"
3164                                ,(package-version docbook-xsl)
3165                                "/manpages/docbook.xsl")))))
3166          (add-before 'check 'pre-check
3167            (lambda _
3168              (setenv "HOME" "/tmp")
3169              ;; Tests require a running X server.
3170              (system "Xvfb :1 &")
3171              (setenv "DISPLAY" ":1"))))))
3172     (inputs
3173      (list gtk+ libxml2))
3174     (native-inputs
3175      `(("hicolor-icon-theme" ,hicolor-icon-theme)
3176        ("intltool" ,intltool)
3177        ("itstool" ,itstool)
3178        ("libxslt" ,libxslt) ;for xsltproc
3179        ("docbook-xml" ,docbook-xml-4.2)
3180        ("docbook-xsl" ,docbook-xsl)
3181        ("glib:bin" ,glib "bin")
3182        ("python" ,python)
3183        ("python-pygobject" ,python-pygobject)
3184        ("gobject-introspection" ,gobject-introspection)
3185
3186        ;; GJS depends on Rust, which is x86_64-only so far, so remove the GJS
3187        ;; dependency on other platforms (FIXME).
3188        ,@(if (target-x86-64?)
3189              `(("gjs" ,gjs))
3190              '())
3191
3192        ("pkg-config" ,pkg-config)
3193        ("xorg-server" ,xorg-server-for-tests)))
3194     (home-page "https://glade.gnome.org")
3195     (synopsis "GTK+ rapid application development tool")
3196     (description "Glade is a rapid application development (RAD) tool to
3197 enable quick & easy development of user interfaces for the GTK+ toolkit and
3198 the GNOME desktop environment.")
3199     (license license:lgpl2.0+)
3200     (native-search-paths (list (search-path-specification
3201                                 (variable "GLADE_CATALOG_SEARCH_PATH")
3202                                 (files '("share/glade/catalogs")))
3203                                (search-path-specification
3204                                 (variable "GLADE_MODULE_SEARCH_PATH")
3205                                 (files '("lib/glade/modules")))))))
3206
3207 (define-public cambalache
3208   (package
3209    (name "cambalache")
3210    (version "0.10.2")
3211    (source (origin
3212             (method git-fetch)
3213             (uri (git-reference
3214                   (url "https://gitlab.gnome.org/jpu/cambalache")
3215                   (commit version)))
3216             (file-name (git-file-name name version))
3217             (sha256
3218              (base32 "1mw5gk98zx03yal3p8slaqwhwkc9p2vnh0cssnmg6ivxsjscqhgz"))))
3219    (build-system meson-build-system)
3220    (arguments
3221     (list
3222      #:glib-or-gtk? #t
3223      #:imported-modules `((guix build python-build-system)
3224                           ,@%meson-build-system-modules)
3225      #:modules '((guix build meson-build-system)
3226                  ((guix build python-build-system) #:prefix python:)
3227                  (guix build utils))
3228      #:phases
3229      #~(modify-phases %standard-phases
3230          (add-after 'unpack 'patch-source
3231            (lambda* (#:key inputs #:allow-other-keys)
3232              (substitute* "cambalache/cmb_view.py"
3233                (("GLib\\.find_program_in_path\\('(.*)'\\)" all cmd)
3234                 (string-append "'"
3235                                (search-input-file inputs
3236                                                   (string-append "/bin/" cmd))
3237                                "'")))))
3238          (add-after 'unpack 'patch-build
3239            (lambda _
3240              (substitute* "postinstall.py"
3241                (("update-desktop-database") "true"))))
3242          (add-after 'wrap 'python-wrap (assoc-ref python:%standard-phases 'wrap))
3243          (delete 'check)
3244          (add-after 'install 'add-install-to-pythonpath
3245            (assoc-ref python:%standard-phases 'add-install-to-pythonpath))
3246          (add-after 'add-install-to-pythonpath 'pre-check
3247            (lambda _
3248              (system "Xvfb :1 &")
3249              (setenv "DISPLAY" ":1")))
3250          (add-after 'pre-check 'check
3251            (lambda* (#:key tests? #:allow-other-keys)
3252              (when tests?
3253                (with-directory-excursion ".."
3254                  (invoke "python3" "-m" "pytest")))))
3255          (add-after 'glib-or-gtk-wrap 'wrap-typelib
3256            (lambda* (#:key outputs #:allow-other-keys)
3257              (let ((out (assoc-ref outputs "out")))
3258                (for-each
3259                 (lambda (prog)
3260                   (unless (wrapped-program? prog)
3261                     (wrap-program prog
3262                       `("GI_TYPELIB_PATH" suffix
3263                         (,(string-append out "/lib/girepository-1.0")
3264                          ,(getenv "GI_TYPELIB_PATH")))
3265                       ;; icons and schemas
3266                       `("XDG_DATA_DIRS" suffix
3267                         #$(map
3268                            (lambda (input)
3269                              (file-append (this-package-input input) "/share"))
3270                            '("adwaita-icon-theme" "hicolor-icon-theme"
3271                              "gsettings-desktop-schemas")))
3272                       ;; Wrapping GDK_PIXBUF_MODULE_FILE allows Cambalache to
3273                       ;; load its own icons in pure environments.
3274                       `("GDK_PIXBUF_MODULE_FILE" =
3275                         (,(getenv "GDK_PIXBUF_MODULE_FILE"))))))
3276                 (find-files (string-append out "/bin")))))))))
3277    (inputs (list bash-minimal
3278                  adwaita-icon-theme hicolor-icon-theme
3279                  gsettings-desktop-schemas
3280                  gtk
3281                  `(,gtk+ "bin")         ; broadwayd
3282                  `(,gtk "bin")
3283                  libadwaita
3284                  libhandy
3285                  (librsvg-for-system)
3286                  python python-pygobject python-lxml
3287                  webkitgtk-with-libsoup2))
3288    (native-inputs (list `(,glib "bin") gobject-introspection
3289                         gettext-minimal pkg-config
3290                         python-pytest xorg-server-for-tests))
3291    (home-page "https://gitlab.gnome.org/jpu/cambalache")
3292    (synopsis "Rapid application development tool")
3293    (description "Cambalache is a rapid application development (RAD) tool for
3294 Gtk 4 and 3 with a clear model-view-controller (MVC) design and
3295 data model first philosophy.")
3296    (license (list license:lgpl2.1
3297                   license:gpl2)))) ; tools
3298
3299 (define-public libcroco
3300   (package
3301     (name "libcroco")
3302     (version "0.6.13")
3303     (source (origin
3304               (method url-fetch)
3305               (uri (string-append "mirror://gnome/sources/" name "/"
3306                                   (version-major+minor version)  "/"
3307                                   name "-" version ".tar.xz"))
3308               (patches (search-patches "libcroco-CVE-2020-12825.patch"))
3309               (sha256
3310                (base32
3311                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
3312     (build-system gnu-build-system)
3313     (native-inputs
3314      (list pkg-config))
3315     (inputs
3316      (list glib libxml2 zlib))
3317     (home-page "https://github.com/GNOME/libcroco")
3318     (synopsis "CSS2 parsing and manipulation library")
3319     (description
3320      "Libcroco is a standalone CSS2 parsing and manipulation library.
3321 The parser provides a low level event driven SAC-like API and a CSS object
3322 model like API.  Libcroco provides a CSS2 selection engine and an experimental
3323 XML/CSS rendering engine.")
3324
3325     ;; LGPLv2.1-only.
3326     (license license:lgpl2.1)))
3327
3328 (define-public libgsf
3329   (package
3330     (name "libgsf")
3331     (version "1.14.47")
3332     (source (origin
3333               (method url-fetch)
3334               (uri (string-append "mirror://gnome/sources/" name "/"
3335                                   (version-major+minor version)  "/"
3336                                   name "-" version ".tar.xz"))
3337               (sha256
3338                (base32
3339                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
3340     (build-system glib-or-gtk-build-system)
3341     (outputs '("out" "bin" "doc"))
3342     (arguments
3343      `(#:configure-flags
3344        (list
3345         "--disable-static"
3346         "--enable-introspection"
3347         (string-append "--with-gir-dir="
3348                        (assoc-ref %outputs "out")
3349                        "/share/gir-"
3350                        ,(version-major
3351                          (package-version gobject-introspection))
3352                        ".0")
3353         (string-append "--with-typelib-dir="
3354                        (assoc-ref %outputs "out")
3355                        "/lib/girepository-"
3356                        ,(version-major
3357                          (package-version gobject-introspection))
3358                        ".0")
3359         (string-append "--with-html-dir="
3360                        (assoc-ref %outputs "doc")
3361                        "/share/gtk-doc/html")
3362         "--with-zlib"
3363         "--with-bz2")
3364        #:phases
3365        (modify-phases %standard-phases
3366          (add-after 'unpack 'patch-docbook-xml
3367            (lambda* (#:key inputs #:allow-other-keys)
3368              (with-directory-excursion "doc"
3369                (substitute* "gsf-docs.xml"
3370                  (("http://www.oasis-open.org/docbook/xml/4.5/")
3371                   (string-append (assoc-ref inputs "docbook-xml")
3372                                  "/xml/dtd/docbook/"))))
3373              #t)))))
3374     (native-inputs
3375      `(("docbook-xml" ,docbook-xml)
3376        ("gettext" ,gettext-minimal)
3377        ("gobject-introspection" ,gobject-introspection)
3378        ("perl" ,perl)
3379        ("perl-xml-parser" ,perl-xml-parser)
3380        ("pkg-config" ,pkg-config)
3381        ("python" ,python-wrapper)))
3382     (inputs
3383      (list bzip2 gdk-pixbuf zlib))
3384     (propagated-inputs
3385      (list glib libxml2))
3386     (synopsis "G Structured File Library")
3387     (description "Libgsf aims to provide an efficient extensible I/O abstraction
3388 for dealing with different structured file formats.")
3389     (home-page "https://gitlab.gnome.org/GNOME/libgsf")
3390     (license
3391      (list
3392       ;; Library
3393       license:lgpl2.1+
3394       ;; Others
3395       license:lgpl2.0+))))
3396
3397 (define-public librsvg
3398   (package
3399     (name "librsvg")
3400     (version "2.50.7")
3401     (source (origin
3402               (method url-fetch)
3403               (uri (string-append "mirror://gnome/sources/librsvg/"
3404                                   (version-major+minor version)  "/"
3405                                   "librsvg-" version ".tar.xz"))
3406               (sha256
3407                (base32
3408                 "1g3f8byg5w08fx1bka12mmpl59v6a4q2p827w6m2la6mijq63yzz"))
3409               (modules '((guix build utils)))
3410               (snippet
3411                '(begin (delete-file-recursively "vendor")))))
3412     (build-system cargo-build-system)
3413     (outputs '("out" "doc" "debug"))
3414     (arguments
3415      `(#:install-source? #f
3416        #:modules
3417        ((guix build cargo-build-system)
3418         (guix build utils)
3419         ((guix build gnu-build-system) #:prefix gnu:))
3420        #:cargo-inputs
3421        (("rust-bitflags" ,rust-bitflags-1)
3422         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3423         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
3424         ("rust-cast" ,rust-cast-0.2)
3425         ("rust-cssparser" ,rust-cssparser-0.27)
3426         ("rust-data-url" ,rust-data-url-0.1)
3427         ("rust-encoding" ,rust-encoding-0.2)
3428         ("rust-float-cmp" ,rust-float-cmp-0.8)
3429         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
3430         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
3431         ("rust-gio" ,rust-gio-0.8)
3432         ("rust-gio-sys" ,rust-gio-sys-0.9)
3433         ("rust-glib" ,rust-glib-0.9)
3434         ("rust-glib-sys" ,rust-glib-sys-0.9)
3435         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
3436         ("rust-itertools" ,rust-itertools-0.9)
3437         ("rust-language-tags" ,rust-language-tags-0.2)
3438         ("rust-libc" ,rust-libc-0.2)
3439         ("rust-locale-config" ,rust-locale-config-0.3)
3440         ("rust-markup5ever" ,rust-markup5ever-0.10)
3441         ("rust-nalgebra" ,rust-nalgebra-0.21)
3442         ("rust-num-traits" ,rust-num-traits-0.2)
3443         ("rust-once-cell" ,rust-once-cell-1)
3444         ("rust-pkg-config" ,rust-pkg-config-0.3)
3445         ("rust-pango" ,rust-pango-0.8)
3446         ("rust-pango-sys" ,rust-pango-sys-0.9)
3447         ("rust-pangocairo" ,rust-pangocairo-0.9)
3448         ("rust-rayon" ,rust-rayon-1)
3449         ("rust-rctree" ,rust-rctree-0.3)
3450         ("rust-rgb" ,rust-rgb-0.8)
3451         ("rust-regex" ,rust-regex-1)
3452         ("rust-selectors" ,rust-selectors-0.22)
3453         ("rust-string-cache" ,rust-string-cache-0.8)
3454         ("rust-tinyvec" ,rust-tinyvec-0.3)
3455         ("rust-url" ,rust-url-2)
3456         ("rust-xml5ever" ,rust-xml5ever-0.16))
3457        #:cargo-development-inputs
3458        (("rust-assert-cmd" ,rust-assert-cmd-1)
3459         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3460         ("rust-chrono" ,rust-chrono-0.4)
3461         ("rust-criterion" ,rust-criterion-0.3)
3462         ("rust-float-cmp" ,rust-float-cmp-0.8)
3463         ("rust-lopdf" ,rust-lopdf-0.26)
3464         ("rust-png" ,rust-png-0.16)
3465         ("rust-predicates" ,rust-predicates-1)
3466         ("rust-tempfile" ,rust-tempfile-3))
3467        #:phases
3468        (modify-phases %standard-phases
3469          (add-after 'unpack 'patch-docbook-xml
3470            (lambda* (#:key inputs #:allow-other-keys)
3471              (with-directory-excursion "doc"
3472                (substitute* "rsvg-docs.xml"
3473                  (("http://www.oasis-open.org/docbook/xml/4.3/")
3474                   (string-append (assoc-ref inputs "docbook-xml")
3475                                  "/xml/dtd/docbook/"))))))
3476          (add-after 'unpack 'prepare-for-build
3477            (lambda _
3478              ;; In lieu of #:make-flags
3479              (setenv "CC" ,(cc-for-target))
3480              ;; Something about the build environment resists building
3481              ;; successfully with the '--locked' flag.
3482              (substitute* '("Makefile.am" "Makefile.in")
3483                (("--locked") ""))))
3484          (add-before 'configure 'pre-configure
3485            (lambda* (#:key outputs #:allow-other-keys)
3486              (substitute* "gdk-pixbuf-loader/Makefile.in"
3487                ;; By default the gdk-pixbuf loader is installed under
3488                ;; gdk-pixbuf's prefix.  Work around that.
3489                (("gdk_pixbuf_moduledir = .*$")
3490                 (string-append "gdk_pixbuf_moduledir = "
3491                                "$(prefix)/"
3492                                ,(dirname %gdk-pixbuf-loaders-cache-file) "/"
3493                                "loaders\n")))
3494              (substitute* "configure"
3495                (("gdk_pixbuf_cache_file=.*")
3496                 (string-append "gdk_pixbuf_cache_file="
3497                                (assoc-ref outputs "out") "/"
3498                                ,%gdk-pixbuf-loaders-cache-file "\n")))))
3499          (add-after 'configure 'gnu-configure
3500            (lambda* (#:key outputs #:allow-other-keys #:rest args)
3501              (apply (assoc-ref gnu:%standard-phases 'configure)
3502                     #:configure-flags
3503                     (list "--disable-static"
3504                           "--enable-vala"
3505                           (string-append "--with-html-dir="
3506                                          (assoc-ref outputs "doc")
3507                                          "/share/gtk-doc/html"))
3508                     args)))
3509          (add-after 'configure 'dont-vendor-self
3510            (lambda* (#:key vendor-dir #:allow-other-keys)
3511              ;; Don't keep the whole tarball in the vendor directory
3512              (delete-file-recursively
3513               (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))))
3514          (replace 'build
3515            (assoc-ref gnu:%standard-phases 'build))
3516          (add-before 'check 'ignore-failing-tests
3517            ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3518            (lambda _
3519              (substitute* "tests/src/cmdline/rsvg_convert.rs"
3520                (("fn background_color_option_invalid_color_yields_error" all)
3521                 (string-append "#[ignore] " all))
3522                (("fn empty_input_yields_error" all)
3523                 (string-append "#[ignore] " all))
3524                (("fn empty_svg_yields_error" all)
3525                 (string-append "#[ignore] " all))
3526                (("fn env_source_data_epoch_empty" all)
3527                 (string-append "#[ignore] " all))
3528                (("fn env_source_data_epoch_no_digits" all)
3529                 (string-append "#[ignore] " all))
3530                (("fn env_source_data_epoch_trailing_garbage" all)
3531                 (string-append "#[ignore] " all))
3532                (("fn export_id_option_error" all)
3533                 (string-append "#[ignore] " all))
3534                (("fn huge_zoom_factor_yields_error" all)
3535                 (string-append "#[ignore] " all))
3536                (("fn multiple_input_files_not_allowed_for_png_output" all)
3537                 (string-append "#[ignore] " all))
3538                (("fn stylesheet_option_error" all)
3539                 (string-append "#[ignore] " all)))))
3540          (replace 'check
3541            (lambda* args
3542              ((assoc-ref gnu:%standard-phases 'check)
3543               #:test-target "check")))
3544          (replace 'install
3545            (assoc-ref gnu:%standard-phases 'install)))))
3546     (native-inputs
3547      (list docbook-xml-4.3
3548            `(,glib "bin")
3549            gobject-introspection
3550            pkg-config
3551            vala))
3552     (inputs
3553      (list freetype harfbuzz libxml2 pango))
3554     (propagated-inputs
3555      (list cairo gdk-pixbuf glib))
3556     (synopsis "SVG rendering library")
3557     (description "Librsvg is a library to render SVG images to Cairo surfaces.
3558 GNOME uses this to render SVG icons.  Outside of GNOME, other desktop
3559 environments use it for similar purposes.  Wikimedia uses it for Wikipedia's SVG
3560 diagrams.")
3561     (home-page "https://wiki.gnome.org/LibRsvg")
3562     (license license:lgpl2.1+)))
3563
3564 ;; This copy of librsvg uses the bundled rust libraries. It is useful for
3565 ;; packages which have too many dependencies to be rebuilt as frequently
3566 ;; as the rust inputs are updated.
3567 ;; TODO: Remove this package and use packaged rust libraries!
3568 (define-public librsvg-bootstrap
3569   (package
3570     (inherit librsvg)
3571     (name "librsvg")
3572     (version "2.50.7")
3573     (source (origin
3574               (method url-fetch)
3575               (uri (string-append "mirror://gnome/sources/librsvg/"
3576                                   (version-major+minor version)  "/"
3577                                   "librsvg-" version ".tar.xz"))
3578               (sha256
3579                (base32
3580                 "1g3f8byg5w08fx1bka12mmpl59v6a4q2p827w6m2la6mijq63yzz"))
3581               (modules '((guix build utils)))
3582               (snippet
3583                '(begin
3584                   (for-each delete-file (find-files "vendor" "\\.a$"))))))
3585     (arguments
3586      (substitute-keyword-arguments (package-arguments librsvg)
3587        ((#:vendor-dir _ "vendor") "vendor")
3588        ((#:cargo-inputs _) '())
3589        ((#:cargo-development-inputs _) '())))
3590     (properties '((hidden? . #t)))))
3591
3592 (define-public librsvg-2.40
3593   ;; This is the last version implemented in C.
3594   (package
3595     (inherit librsvg)
3596     (version "2.40.21")
3597     (source (origin
3598               (method url-fetch)
3599               (uri (string-append "mirror://gnome/sources/librsvg/"
3600                                   (version-major+minor version)
3601                                   "/librsvg-" version ".tar.xz"))
3602               (sha256
3603                (base32
3604                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
3605     (build-system gnu-build-system)
3606     (arguments
3607      `(#:configure-flags (list "--disable-static")
3608        #:phases
3609        (modify-phases %standard-phases
3610          (add-before 'configure 'pre-configure
3611            (lambda* (#:key inputs #:allow-other-keys)
3612              (substitute* "gdk-pixbuf-loader/Makefile.in"
3613                ;; By default the gdk-pixbuf loader is installed under
3614                ;; gdk-pixbuf's prefix.  Work around that.
3615                (("gdk_pixbuf_moduledir = .*$")
3616                 (string-append "gdk_pixbuf_moduledir = "
3617                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3618                                 "loaders\n"))
3619                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3620                (("gdk_pixbuf_cache_file = .*$")
3621                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3622              #t))
3623          (add-before 'check 'remove-failing-tests
3624            (lambda _
3625              (with-directory-excursion "tests/fixtures/reftests"
3626                (for-each delete-file
3627                          '(;; This test fails on i686:
3628                            "svg1.1/masking-path-04-b.svg"
3629                            ;; This test fails on armhf:
3630                            "svg1.1/masking-mask-01-b.svg"
3631                            ;; This test fails on aarch64:
3632                            "bugs/777834-empty-text-children.svg"
3633
3634                            ;; These two tests fail due to slightly different
3635                            ;; text rendering (different kerning or similar),
3636                            ;; nothing alarming.
3637                            "bugs/340047.svg"
3638                            "bugs/749415.svg"))))))))
3639     (native-inputs
3640      (list pkg-config
3641            `(,glib "bin") ; glib-mkenums, etc.
3642            gobject-introspection)) ; g-ir-compiler, etc.
3643     (inputs
3644      (list pango libcroco libxml2))
3645     (propagated-inputs
3646      ;; librsvg-2.0.pc refers to all of that.
3647      (list cairo gdk-pixbuf glib))
3648     (synopsis "Render SVG files using Cairo (ancient C version)")
3649     (properties '((hidden? . #t)))))
3650
3651 (define* (librsvg-for-system #:optional
3652                              (system (or (%current-target-system)
3653                                          (%current-system))))
3654   ;; Since librsvg 2.50 depends on Rust, and Rust is only correctly supported
3655   ;; on x86_64 so far, use the ancient C version on other platforms (FIXME).
3656   (if (string-prefix? "x86_64-" system)
3657       librsvg
3658       librsvg-2.40))
3659
3660 (export librsvg-for-system)
3661
3662 (define-public libidl
3663   (package
3664     (name "libidl")
3665     (version "0.8.14")
3666     (source (origin
3667               (method url-fetch)
3668               (uri (string-append "mirror://gnome/sources/libIDL/"
3669                                   (version-major+minor version) "/"
3670                                   "libIDL-" version ".tar.bz2"))
3671               (sha256
3672                (base32
3673                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3674     (build-system gnu-build-system)
3675     (inputs (list glib))
3676     (native-inputs
3677      (list pkg-config flex bison))
3678     (home-page "http://freecode.com/projects/libidl")
3679     (synopsis "Create trees of CORBA Interface Definition Language files")
3680     (description  "Libidl is a library for creating trees of CORBA Interface
3681 Definition Language (idl) files, which is a specification for defining
3682 portable interfaces. libidl was initially written for orbit (the orb from the
3683 GNOME project, and the primary means of libidl distribution).  However, the
3684 functionality was designed to be as reusable and portable as possible.")
3685     (properties `((upstream-name . "libIDL")))
3686     (license license:lgpl2.0+)))
3687
3688
3689 (define-public orbit2
3690   (package
3691     (name "orbit2")
3692     (version "2.14.19")
3693     (source (origin
3694               (method url-fetch)
3695               (uri (let ((upstream-name "ORBit2"))
3696                      (string-append "mirror://gnome/sources/" upstream-name "/"
3697                                     (version-major+minor version) "/"
3698                                     upstream-name "-" version ".tar.bz2")))
3699               (sha256
3700                (base32
3701                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
3702     (build-system gnu-build-system)
3703     (arguments
3704      `(;; The "timeout-server" test hangs when run in parallel.
3705        #:parallel-tests? #f
3706        #:configure-flags
3707        '(;; We don't need static libraries, plus they don't build reproducibly
3708          ;; (non-deterministic ordering of .o files in the archive.)
3709          "--disable-static"
3710
3711          ;; The programmer kindly gives us a hook to turn off deprecation
3712          ;; warnings ...
3713          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3714        ;; ... which they then completly ignore !!
3715        #:phases
3716        (modify-phases %standard-phases
3717          (add-after 'unpack 'fix-parallel-build
3718            ;; Parallel build fails because of a failed dependency,
3719            ;; https://bugzilla.gnome.org/show_bug.cgi?id=732274
3720            (lambda _
3721              (substitute* "src/services/name/Makefile.am"
3722                (("orbit_name_server_2_DEPENDENCIES = \\$(DEPS) CosNaming.h")
3723                 "orbit_name_server_2_DEPENDENCIES = \
3724 $(DEPS) CosNaming.h libname-server-2.a"))))
3725          (add-before 'configure 'ignore-deprecations
3726            (lambda _
3727              (substitute* "linc2/src/Makefile.in"
3728                (("-DG_DISABLE_DEPRECATED")
3729                 "-DGLIB_DISABLE_DEPRECATION_WARNINGS")))))))
3730     (inputs (list glib libidl))
3731     (native-inputs
3732      (list pkg-config))
3733     (home-page "https://projects.gnome.org/orbit2/")
3734     (synopsis "CORBA 2.4-compliant Object Request Broker")
3735     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
3736 featuring mature C, C++ and Python bindings.")
3737     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
3738     ;; a version.  SOME of the code files have licence notices for GPLv2+.
3739     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
3740     (license license:gpl2+)
3741     (properties `((upstream-name . "ORBit2")))))
3742
3743
3744 (define-public libbonobo
3745   (package
3746     (name "libbonobo")
3747     (version "2.32.1")
3748     (source (origin
3749               (method url-fetch)
3750               (uri (string-append "mirror://gnome/sources/" name "/"
3751                                   (version-major+minor version)
3752                                   "/" name "-" version ".tar.bz2"))
3753               (sha256
3754                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
3755               (patches (search-patches
3756                         "libbonobo-activation-test-race.patch"))))
3757     (build-system gnu-build-system)
3758     (arguments
3759      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
3760      `(#:configure-flags
3761        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3762        ;; ... which they then completly ignore !!
3763        #:phases
3764        (modify-phases %standard-phases
3765          (add-before 'configure 'ignore-deprecations
3766            (lambda _
3767              (substitute* "activation-server/Makefile.in"
3768                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3769              #t)))
3770
3771        ;; There's apparently a race condition between the server stub
3772        ;; generation and linking of the example under 'samples/echo' that can
3773        ;; lead do undefined references when building in parallel, as reported
3774        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3775        ;; Thus, disable parallel builds.
3776        #:parallel-build? #f))
3777     (inputs (list popt libxml2))
3778     ;; The following are Required by the .pc file
3779     (propagated-inputs
3780      (list glib orbit2))
3781     (native-inputs
3782      (list intltool
3783            pkg-config
3784            `(,glib "bin") ; for glib-genmarshal, etc.
3785            flex
3786            bison))
3787     (home-page "https://developer.gnome.org/libbonobo/")
3788     (synopsis "Framework for creating reusable components for use in GNOME applications")
3789     (description "Bonobo is a framework for creating reusable components for
3790 use in GNOME applications, built on top of CORBA.")
3791     ;; Licence not explicitly stated.  Source files contain no licence notices.
3792     ;; Tarball contains text of both GPLv2 and LGPLv2
3793     ;; GPLv2 covers both conditions
3794     (license license:gpl2+)))
3795
3796
3797 (define-public gconf
3798   (package
3799     (name "gconf")
3800     (version "3.2.6")
3801     (source (origin
3802               (method url-fetch)
3803               (uri
3804                (let ((upstream-name "GConf"))
3805                  (string-append "mirror://gnome/sources/" upstream-name "/"
3806                                 (version-major+minor version) "/"
3807                                 upstream-name "-" version ".tar.xz")))
3808               (sha256
3809                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3810     (build-system gnu-build-system)
3811     (inputs (list dbus-glib libxml2))
3812     (propagated-inputs (list glib ; referred to in the .pc file
3813                              orbit2))
3814     (native-inputs
3815      (list intltool
3816            `(,glib "bin") ; for glib-genmarshal, etc.
3817            pkg-config))
3818     (home-page "https://projects.gnome.org/gconf/")
3819     (synopsis "Store application preferences")
3820     (description "Gconf is a system for storing application preferences.  It
3821 is intended for user preferences; not arbitrary data storage.")
3822     (license license:lgpl2.0+)
3823     (properties '((upstream-name . "GConf")))))
3824
3825
3826 (define-public gnome-mime-data
3827   (package
3828     (name "gnome-mime-data")
3829     (version "2.18.0")
3830     (source (origin
3831               (method url-fetch)
3832               (uri (string-append "mirror://gnome/sources/" name "/"
3833                                   (version-major+minor version)  "/"
3834                                   name "-" version ".tar.bz2"))
3835               (sha256
3836                (base32
3837                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3838     (build-system gnu-build-system)
3839     (native-inputs
3840      (list perl intltool))
3841     (arguments
3842      '(#:phases (modify-phases %standard-phases
3843                   (add-after 'configure 'use-our-intltool
3844                     (lambda _
3845                       ;; Do not use the bundled intltool commands, which lack
3846                       ;; the "dotless @INC" fixes of our 'intltool' package.
3847                       (substitute* (find-files "." "^Makefile$")
3848                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3849                          (string-append "INTLTOOL_" tool " = intltool-"
3850                                         (string-downcase tool) "\n")))
3851                       #t)))))
3852     (home-page "https://www.gnome.org")
3853     (synopsis "Base MIME and Application database for GNOME")
3854     (description  "GNOME Mime Data is a module which contains the base MIME
3855 and Application database for GNOME.  The data stored by this module is
3856 designed to be accessed through the MIME functions in GnomeVFS.")
3857     (license license:gpl2+)))
3858
3859
3860 (define-public gnome-vfs
3861   (package
3862     (name "gnome-vfs")
3863     (version "2.24.4")
3864     (source (origin
3865               (method url-fetch)
3866               (uri (string-append "mirror://gnome/sources/" name "/"
3867                                   (version-major+minor version)  "/"
3868                                   name "-" version ".tar.bz2"))
3869               (sha256
3870                (base32
3871                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
3872     (build-system gnu-build-system)
3873     (arguments
3874      `(#:phases
3875        (modify-phases %standard-phases
3876          (add-before 'configure 'ignore-deprecations
3877            (lambda _
3878              (substitute* '("libgnomevfs/Makefile.in"
3879                             "daemon/Makefile.in")
3880                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3881              #t))
3882          (add-before 'configure 'patch-test-async-cancel-to-never-fail
3883            (lambda _
3884              (substitute* "test/test-async-cancel.c"
3885                (("EXIT_FAILURE") "77"))
3886              #t)))))
3887     (inputs (list libxml2 dbus-glib gconf gnome-mime-data zlib))
3888     (native-inputs
3889      (list `(,glib "bin") ; for glib-mkenums, etc.
3890            intltool pkg-config))
3891     (home-page "https://developer.gnome.org/gnome-vfs/")
3892     (synopsis "Access files and folders in GNOME applications")
3893     (description
3894      "GnomeVFS is the core library used to access files and folders in GNOME
3895 applications.  It provides a file system abstraction which allows applications
3896 to access local and remote files with a single consistent API.")
3897     (license license:lgpl2.0+)))
3898
3899
3900
3901 (define-public libgnome
3902   (package
3903     (name "libgnome")
3904     (version "2.32.1")
3905     (source (origin
3906               (method url-fetch)
3907               (uri (string-append "mirror://gnome/sources/" name "/"
3908                                   (version-major+minor version)  "/"
3909                                   name "-" version ".tar.bz2"))
3910               (sha256
3911                (base32
3912                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3913               (patches (search-patches "libgnome-encoding.patch"))))
3914     (build-system gnu-build-system)
3915     (arguments
3916      `(#:phases
3917        (modify-phases %standard-phases
3918          (add-before 'configure 'enable-deprecated
3919            (lambda _
3920              (substitute* "libgnome/Makefile.in"
3921                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3922              #t)))))
3923     (inputs (list libxml2))
3924     (native-inputs
3925      (list `(,glib "bin") ; for glib-mkenums, etc.
3926            intltool pkg-config))
3927     ;; The following are listed as Required in the .pc file
3928     ;; (except for libcanberra -- which seems to be oversight on the part
3929     ;; of the upstream developers -- anything that links against libgnome,
3930     ;; must also link against libcanberra
3931     (propagated-inputs
3932      (list libcanberra libbonobo gconf gnome-vfs popt))                       ;gnome-program.h includes popt.h
3933     (home-page "https://developer.gnome.org/libgnome/")
3934     (synopsis "Useful routines for building applications")
3935     (description  "The libgnome library provides a number of useful routines
3936 for building modern applications, including session management, activation of
3937 files and URIs, and displaying help.")
3938     (license license:lgpl2.0+)))
3939
3940
3941 (define-public libart-lgpl
3942   (package
3943     (name "libart-lgpl")
3944     (version "2.3.21")
3945     (source (origin
3946               (method url-fetch)
3947               (uri (let ((upstream-name "libart_lgpl"))
3948                      (string-append "mirror://gnome/sources/" upstream-name "/"
3949                                     (version-major+minor version) "/"
3950                                     upstream-name "-" version ".tar.bz2")))
3951               (sha256
3952                (base32
3953                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
3954     (build-system gnu-build-system)
3955     (native-inputs
3956      (list pkg-config))
3957     (home-page "https://people.gnome.org/~mathieu/libart")
3958     (synopsis "2D drawing library")
3959     (description  "Libart is a 2D drawing library intended as a
3960 high-quality vector-based 2D library with antialiasing and alpha composition.")
3961     (license license:lgpl2.0+)))
3962
3963
3964
3965 (define-public libgnomecanvas
3966   (package
3967     (name "libgnomecanvas")
3968     (version "2.30.3")
3969     (source (origin
3970               (method url-fetch)
3971               (uri (string-append "mirror://gnome/sources/" name "/"
3972                                   (version-major+minor version)  "/"
3973                                   name "-" version ".tar.gz"))
3974               (sha256
3975                (base32
3976                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
3977     (build-system gnu-build-system)
3978     ;; Mentioned as Required in the .pc file
3979     (propagated-inputs (list libart-lgpl gtk+-2))
3980     (native-inputs
3981      (list intltool
3982            `(,glib "bin") ; for glib-genmarshal, etc.
3983            pkg-config))
3984     (home-page "https://developer.gnome.org/libgnomecanvas/")
3985     (synopsis "Flexible widget for creating interactive structured graphics")
3986     (description  "The GnomeCanvas widget provides a flexible widget for
3987 creating interactive structured graphics.")
3988     (license license:lgpl2.0+)))
3989
3990 (define-public libgnomecanvasmm
3991   (package
3992     (name "libgnomecanvasmm")
3993     (version "2.26.0")
3994     (source (origin
3995               (method url-fetch)
3996               (uri (string-append "mirror://gnome/sources/" name "/"
3997                                   (version-major+minor version)  "/"
3998                                   name "-" version ".tar.bz2"))
3999               (sha256
4000                (base32
4001                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
4002     (build-system gnu-build-system)
4003     (propagated-inputs (list libgnomecanvas))
4004     (native-inputs
4005      (list gtkmm-2 pkg-config))
4006     (home-page "https://gtkmm.org")
4007     (synopsis "C++ bindings to the GNOME Canvas library")
4008     (description "C++ bindings to the GNOME Canvas library.")
4009     (license license:lgpl2.0+)))
4010
4011 (define-public libgnomeui
4012   (package
4013     (name "libgnomeui")
4014     (version "2.24.5")
4015     (source (origin
4016               (method url-fetch)
4017               (uri (string-append "mirror://gnome/sources/" name "/"
4018                                   (version-major+minor version)  "/"
4019                                   name "-" version ".tar.bz2"))
4020               (patches (search-patches "libgnomeui-utf8.patch"))
4021               (sha256
4022                (base32
4023                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
4024     (build-system gnu-build-system)
4025     ;; Mentioned as Required in the .pc file
4026     (propagated-inputs (list libbonoboui libgnome libgnomecanvas
4027                              libgnome-keyring))
4028     (inputs (list libjpeg-turbo popt libbonobo libxml2 libglade))
4029     (native-inputs
4030      (list `(,glib "bin") ; for glib-mkenums, etc.
4031            intltool pkg-config))
4032     (home-page "https://developer.gnome.org/libgnomeui/")
4033     (synopsis "Additional widgets for applications")
4034     (description "The libgnomeui library provides additional widgets for
4035 applications.  Many of the widgets from libgnomeui have already been
4036 ported to GTK+.")
4037     (license license:lgpl2.0+)))
4038
4039 (define-public libglade
4040   (package
4041     (name "libglade")
4042     (version "2.6.4")
4043     (source (origin
4044               (method url-fetch)
4045               (uri (string-append "mirror://gnome/sources/" name "/"
4046                                   (version-major+minor version)  "/"
4047                                   name "-" version ".tar.bz2"))
4048               (sha256
4049                (base32
4050                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
4051     (build-system gnu-build-system)
4052     (inputs
4053      (list python)) ;; needed for the optional libglade-convert program
4054     (propagated-inputs
4055      (list gtk+-2 libxml2)) ; required by libglade-2.0.pc
4056     (native-inputs
4057      (list pkg-config))
4058     (home-page "https://developer.gnome.org/libglade")
4059     (synopsis "Load glade interfaces and access the glade built widgets")
4060     (description "Libglade is a library that provides interfaces for loading
4061 graphical interfaces described in glade files and for accessing the
4062 widgets built in the loading process.")
4063     (license license:gpl2+))) ; This is correct.  GPL not LGPL
4064
4065 (define-public libbonoboui
4066   (package
4067     (name "libbonoboui")
4068     (version "2.24.5")
4069     (source (origin
4070               (method url-fetch)
4071               (uri (string-append "mirror://gnome/sources/" name "/"
4072                                   (version-major+minor version)  "/"
4073                                   name "-" version ".tar.bz2"))
4074               (sha256
4075                (base32
4076                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
4077     (build-system gnu-build-system)
4078     (arguments
4079      `(#:phases
4080        (modify-phases %standard-phases
4081          (add-before 'check 'start-xserver
4082            (lambda* (#:key inputs #:allow-other-keys)
4083              (let ((xorg-server (assoc-ref inputs "xorg-server"))
4084                    (disp ":1"))
4085
4086                (setenv "HOME" (getcwd))
4087                (setenv "DISPLAY" disp)
4088                ;; There must be a running X server and make check doesn't start one.
4089                ;; Therefore we must do it.
4090                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
4091     ;; Mentioned as Required by the .pc file
4092     (propagated-inputs (list libxml2))
4093     (inputs
4094      (list popt pangox-compat libgnome libgnomecanvas libglade))
4095     (native-inputs
4096      (list `(,glib "bin") ; for glib-genmarshal, etc.
4097            intltool
4098            xorg-server-for-tests ; For running the tests
4099            pkg-config))
4100     (home-page "https://developer.gnome.org/libbonoboui/")
4101     (synopsis "Some user interface controls using Bonobo")
4102     (description  "The Bonobo UI library provides a number of user interface
4103 controls using the Bonobo component framework.")
4104     (license license:lgpl2.0+)))
4105
4106 (define-public libwnck
4107   (package
4108     (name "libwnck")
4109     (version "3.32.0")
4110     (source (origin
4111               (method url-fetch)
4112               (uri (string-append "mirror://gnome/sources/" name "/"
4113                                   (version-major+minor version) "/"
4114                                   name "-" version ".tar.xz"))
4115               (sha256
4116                (base32
4117                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
4118     (build-system meson-build-system)
4119     (native-inputs
4120      (list pkg-config
4121            `(,glib "bin") ; for glib-mkenums
4122            gobject-introspection ; for g-ir-scanner
4123            intltool))
4124     (propagated-inputs
4125      (list gtk+ libxres startup-notification))
4126     (home-page "https://developer.gnome.org/libwnck/")
4127     (synopsis "Window Navigator Construction Kit")
4128     (description
4129      "Libwnck is the Window Navigator Construction Kit, a library for use in
4130 writing pagers, tasklists, and more generally applications that are dealing
4131 with window management.  It tries hard to respect the Extended Window Manager
4132 Hints specification (EWMH).")
4133     (license license:lgpl2.0+)))
4134
4135 ;; stable version for gtk2, required by xfwm4.
4136 (define-public libwnck-2
4137   (package (inherit libwnck)
4138     (name "libwnck")
4139     (version "2.30.7")
4140     (source (origin
4141               (method url-fetch)
4142               (uri (string-append "mirror://gnome/sources/" name "/"
4143                                   (version-major+minor version) "/"
4144                                   name "-" version ".tar.xz"))
4145               (sha256
4146                (base32
4147                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
4148     (build-system gnu-build-system)
4149     (native-inputs
4150      (list pkg-config intltool))
4151     (propagated-inputs
4152      (list gtk+-2 libxres startup-notification))))
4153
4154 (define-public goffice
4155   (package
4156     (name "goffice")
4157     (version "0.10.52")
4158     (source
4159      (origin
4160        (method url-fetch)
4161        (uri (string-append "mirror://gnome/sources/goffice/"
4162                            (version-major+minor version)  "/"
4163                            "goffice-" version ".tar.xz"))
4164        (sha256
4165         (base32 "0344k0ffndd79as3c4nfq3mia7mrds6aq2jg76drdw3h8gcyzfb0"))))
4166     (build-system gnu-build-system)
4167     (outputs '("out"
4168                "doc"))                  ; 4.0 MiB of gtk-doc
4169     (arguments
4170      '(#:configure-flags (list (string-append "--with-html-dir="
4171                                               (assoc-ref %outputs "doc")
4172                                               "/share/gtk-doc/html"))))
4173     (inputs
4174      (list gtk+ libgsf librsvg libxslt libxml2))
4175     (native-inputs
4176      (list intltool `(,glib "bin") pkg-config))
4177     (home-page "https://developer.gnome.org/goffice/")
4178     (synopsis "Document-centric objects and utilities")
4179     (description "A GLib/GTK+ set of document-centric objects and utilities.")
4180     (license
4181      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4182      ;; Note: NOT LGPL
4183      (list license:gpl2 license:gpl3))))
4184
4185 (define-public goffice-0.8
4186   (package (inherit goffice)
4187     (version "0.8.17")
4188     (source (origin
4189               (method url-fetch)
4190               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4191                                   (version-major+minor version)  "/"
4192                                   (package-name goffice) "-" version ".tar.xz"))
4193               (sha256
4194                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4195     (arguments
4196      `(#:phases
4197        (modify-phases %standard-phases
4198          (add-after 'unpack 'fix-pcre-check
4199            (lambda _
4200              ;; Only glib.h can be included directly.  See
4201              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4202              (substitute* "configure"
4203                (("glib/gregex\\.h") "glib.h")) #t)))
4204
4205        ,@(package-arguments goffice)))
4206     (propagated-inputs
4207      ;; libgoffice-0.8.pc mentions libgsf-1
4208      (list libgsf))
4209     (inputs
4210      `(("gtk" ,gtk+-2)
4211        ,@(alist-delete "gtk" (package-inputs goffice))))))
4212
4213 (define-public gnumeric
4214   (package
4215     (name "gnumeric")
4216     (version "1.12.52")
4217     (source (origin
4218               (method url-fetch)
4219               (uri (string-append "mirror://gnome/sources/gnumeric/"
4220                                   (version-major+minor version)  "/"
4221                                   "gnumeric-" version ".tar.xz"))
4222               (sha256
4223                (base32
4224                 "0fw201j0sks95wgvns3vydgprhwf6z4v4xb2a0ldi892k8277kvk"))))
4225     (build-system glib-or-gtk-build-system)
4226     (arguments
4227      `(;; The gnumeric developers don't worry much about failing tests.
4228        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
4229        #:tests? #f
4230        #:phases
4231        (modify-phases %standard-phases
4232          (add-before
4233           'configure 'pre-conf
4234            (lambda* (#:key outputs #:allow-other-keys)
4235              ;; Make install tries to write into the directory of goffice
4236              ;; I am informed that this only affects the possibility to embed a
4237              ;; spreadsheet inside an Abiword document.   So presumably when we
4238              ;; package Abiword we'll have to refer it to this directory.
4239              (substitute* "configure"
4240                (("^GOFFICE_PLUGINS_DIR=.*")
4241                 (string-append "GOFFICE_PLUGINS_DIR="
4242                                (assoc-ref outputs "out")
4243                                "/goffice/plugins"))))))))
4244     (inputs
4245      (list glib
4246            gtk+
4247            goffice
4248            libgsf
4249            librsvg
4250            libxml2
4251            libxslt
4252            python
4253            python-pygobject
4254            zlib))
4255     (native-inputs
4256      (list bison
4257            docbook-xml
4258            `(,glib "bin")
4259            intltool
4260            itstool
4261            pkg-config))
4262     (home-page "http://www.gnumeric.org")
4263     (synopsis "Spreadsheet application")
4264     (description
4265      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
4266 interoperable with other spreadsheet applications.  It has a vast array of
4267 features beyond typical spreadsheet functionality, such as support for linear
4268 and non-linear solvers, statistical analysis, and telecommunication
4269 engineering.")
4270     (license
4271     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4272      (list license:gpl2 license:gpl3))))
4273
4274 (define-public drawing
4275   (package
4276     (name "drawing")
4277     (version "0.8.3")
4278     (source
4279      (origin
4280        (method git-fetch)
4281        (uri (git-reference
4282              (url "https://github.com/maoschanz/drawing")
4283              (commit version)))
4284        (file-name (git-file-name name version))
4285        (sha256
4286         (base32 "0wz9p47riyy3h8b0sqsb6bx416hc6d1a1wyzlfmsxkrqrkwcjcm8"))))
4287     (build-system meson-build-system)
4288     (arguments
4289      `(#:glib-or-gtk? #t
4290        #:phases
4291        (modify-phases %standard-phases
4292          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
4293            (lambda* (#:key outputs #:allow-other-keys)
4294              (let ((prog (string-append (assoc-ref outputs "out")
4295                                         "/bin/drawing"))
4296                    (pylib (string-append (assoc-ref outputs "out")
4297                                          "/lib/python"
4298                                          ,(version-major+minor
4299                                            (package-version python))
4300                                          "/site-packages")))
4301                (wrap-program prog
4302                  `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
4303                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
4304     (native-inputs
4305      `(("desktop-file-utils" ,desktop-file-utils)
4306        ("gettext" ,gettext-minimal)
4307        ("glib:bin" ,glib "bin")
4308        ("gobject-introspection" ,gobject-introspection)
4309        ("gtk+:bin" ,gtk+ "bin")
4310        ("pkg-config" ,pkg-config)))
4311     (inputs
4312      (list librsvg
4313            gsettings-desktop-schemas
4314            gtk+
4315            pango
4316            python-pycairo
4317            python-pygobject))
4318     (home-page "https://maoschanz.github.io/drawing/")
4319     (synopsis "Basic image editor for GNOME")
4320     (description
4321      "Drawing is a basic image editor aiming at the GNOME desktop.")
4322     (license license:gpl3+)))
4323
4324 (define-public gnome-themes-standard
4325   (package
4326     (name "gnome-themes-standard")
4327     (version "3.22.3")
4328     (source
4329      (origin
4330        (method url-fetch)
4331        (uri (string-append "mirror://gnome/sources/" name "/"
4332                            (version-major+minor version) "/" name "-"
4333                            version ".tar.xz"))
4334        (sha256
4335         (base32
4336          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
4337     (build-system gnu-build-system)
4338     (arguments
4339      '(#:configure-flags
4340        ;; Don't create 'icon-theme.cache'.
4341        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
4342               (true      (string-append coreutils "/bin/true")))
4343          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
4344     (inputs
4345      `(("gtk+" ,gtk+)
4346        ("gtk+-2" ,gtk+-2)
4347        ("librsvg" ,librsvg)
4348        ("libxml2" ,libxml2)
4349        ("glib" ,glib)))
4350     (native-inputs
4351      `(("intltool" ,intltool)
4352        ("glib:bin" ,glib "bin")
4353        ("pkg-config" ,pkg-config)))
4354     (home-page "https://launchpad.net/gnome-themes-standard")
4355     (synopsis "Default GNOME 3 themes")
4356     (description
4357      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
4358     (license license:lgpl2.1+)))
4359
4360 (define-public seahorse
4361   (package
4362     (name "seahorse")
4363     (version "41.0")
4364     (source
4365      (origin
4366        (method url-fetch)
4367        (uri (string-append "mirror://gnome/sources/" name "/"
4368                            (version-major version) "/" name "-"
4369                            version ".tar.xz"))
4370        (sha256
4371         (base32 "1x99i7kdvd8hbxcs5rfrq7nw6r9bfzaw263zaigjjj04h6gc1vp6"))))
4372     (build-system meson-build-system)
4373     (arguments
4374      '(#:glib-or-gtk? #t
4375        #:phases
4376        (modify-phases %standard-phases
4377          (add-after 'unpack 'skip-gtk-update-icon-cache
4378            ;; Don't create 'icon-theme.cache'.
4379            (lambda _
4380              (substitute* "build-aux/meson_post_install.py"
4381                (("gtk-update-icon-cache") "true"))
4382              #t))
4383          (add-before 'check 'pre-check
4384            (lambda _
4385              ;; Tests require a writable HOME.
4386              (setenv "HOME" (getcwd)))))))
4387     (inputs
4388      `(("gtk+" ,gtk+)
4389        ("gcr" ,gcr)
4390        ("gnupg" ,gnupg)
4391        ("gpgme" ,gpgme)
4392        ("openldap" ,openldap)
4393        ("openssh" ,openssh)
4394        ("avahi" ,avahi)
4395        ("libhandy" ,libhandy)
4396        ("libpwquality" ,libpwquality)
4397        ("libsecret" ,libsecret)
4398        ("libsoup" ,libsoup-minimal-2)))
4399     (native-inputs
4400      `(("gettext" ,gettext-minimal)
4401        ("glib:bin" ,glib "bin")
4402        ("itstool" ,itstool)
4403        ("pkg-config" ,pkg-config)
4404        ("python" ,python)
4405        ("vala" ,vala)
4406        ("xmllint" ,libxml2)))
4407     (home-page "https://wiki.gnome.org/Apps/Seahorse")
4408     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4409     (description
4410      "Seahorse is a GNOME application for managing encryption keys and
4411 passwords in the GNOME keyring.")
4412     (license license:gpl2+)))
4413
4414 (define-public vala
4415   (package
4416     (name "vala")
4417     (version "0.54.2")
4418     (source (origin
4419               (method url-fetch)
4420               (uri (string-append "mirror://gnome/sources/vala/"
4421                                   (version-major+minor version) "/"
4422                                   "vala-" version ".tar.xz"))
4423               (sha256
4424                (base32
4425                 "048k5c6c6y7jyb961krnrb7m0kghr0yrkpnfx3j5ckbx652yfkc8"))))
4426     (build-system glib-or-gtk-build-system)
4427     (arguments
4428      '(#:configure-flags '("--enable-coverage")
4429        #:phases
4430        (modify-phases %standard-phases
4431          (add-after 'unpack 'patch-docbook-xml
4432            (lambda* (#:key inputs #:allow-other-keys)
4433              (with-directory-excursion "doc/manual"
4434                (substitute* '("manual.xml" "version.xml.in")
4435                  (("http://www.oasis-open.org/docbook/xml/4.4/")
4436                   (string-append (assoc-ref inputs "docbook-xml")
4437                                  "/xml/dtd/docbook/"))))))
4438          (add-before 'check 'pre-check
4439            (lambda _
4440              (setenv "CC" "gcc")
4441              (substitute* "valadoc/tests/libvaladoc\
4442 /tests-extra-environment.sh"
4443                (("export PKG_CONFIG_PATH=" m)
4444                 (string-append m "$PKG_CONFIG_PATH:"))))))))
4445     (native-inputs
4446      `(("bison" ,bison)
4447        ("dbus" ,dbus)                   ; for dbus tests
4448        ("docbook-xml" ,docbook-xml-4.4)
4449        ("docbook-xsl" ,docbook-xsl)
4450        ("flex" ,flex)
4451        ("gobject-introspection" ,gobject-introspection) ; for gir tests
4452        ("help2man" ,help2man)
4453        ("perl" ,perl)
4454        ("pkg-config" ,pkg-config)
4455        ("xsltproc" ,libxslt)))
4456     (propagated-inputs
4457      `(("glib" ,glib)                   ; required by libvala-0.40.pc
4458        ("libgvc" ,graphviz)))
4459     (home-page "https://wiki.gnome.org/Projects/Vala/")
4460     (synopsis "Compiler using the GObject type system")
4461     (description "Vala is a programming language using modern high level
4462 abstractions without imposing additional runtime requirements and without using
4463 a different ABI compared to applications and libraries written in C.  Vala uses
4464 the GObject type system and has additional code generation routines that make
4465 targeting the GNOME stack simple.")
4466     (license license:lgpl2.1+)))
4467
4468 (define-public vala-next
4469   (package
4470     (inherit vala)
4471     (version "0.56.2")
4472     (source (origin
4473               (method url-fetch)
4474               (uri (string-append "mirror://gnome/sources/vala/"
4475                                   (version-major+minor version) "/"
4476                                   "vala-" version ".tar.xz"))
4477               (sha256
4478                (base32
4479                 "0k0jj3xwjq222x0hbqqy5bykhgk1f1wsb85bqcdgsnbqn6dn3jb6"))))
4480     (arguments
4481      (list
4482       #:configure-flags #~(list "CC=gcc" "--enable-coverage")
4483       #:phases
4484       #~(modify-phases %standard-phases
4485           (add-after 'unpack 'use-gcc-by-default
4486             (lambda _
4487               (substitute* "codegen/valaccodecompiler.c"
4488                 (("cc_command = \"cc\"")
4489                  "cc_command = \"gcc\""))))
4490           (add-after 'unpack 'patch-docbook-xml
4491             (lambda* (#:key inputs #:allow-other-keys)
4492               (with-directory-excursion "doc/manual"
4493                 (substitute* '("manual.xml" "version.xml.in")
4494                   (("http://www.oasis-open.org/docbook/xml/4.4/")
4495                    (search-input-directory inputs "xml/dtd/docbook"))))))
4496           (add-before 'check 'pre-check
4497             (lambda _
4498               (substitute* "valadoc/tests/libvaladoc/tests-extra-environment.sh"
4499                 (("export PKG_CONFIG_PATH=" m)
4500                  (string-append m "$PKG_CONFIG_PATH:")))))
4501           ;; Wrapping the binaries breaks vala's behavior adaptations based on
4502           ;; the file name of the program executed (vala: compile and execute,
4503           ;; valac: compile into a binary).
4504           (delete 'glib-or-gtk-wrap))))))
4505
4506 ;;; An older variant kept to build libsoup-minimal-2.
4507 (define-public vala-0.52
4508   (package/inherit vala
4509     (version "0.52.0")
4510     (source (origin
4511               (method url-fetch)
4512               (uri (string-append "mirror://gnome/sources/vala/"
4513                                   (version-major+minor version) "/"
4514                                   "vala-" version ".tar.xz"))
4515               (sha256
4516                (base32
4517                 "12y6p8wdjp01vmfhxg2cgh32xnyqq6ivblvrar9clnj6vc867qhx"))))))
4518
4519 (define-public vte
4520   (package
4521     (name "vte")
4522     (version "0.68.0")
4523     (source (origin
4524               (method url-fetch)
4525               (uri (string-append "mirror://gnome/sources/vte/"
4526                                   (version-major+minor version) "/"
4527                                   "vte-" version ".tar.xz"))
4528               (sha256
4529                (base32
4530                 "0j8pvn225ybzx9p33ill838bzp8kkdn28383h0vs65m2kiwd9rqk"))))
4531     (build-system meson-build-system)
4532     (arguments
4533      (list #:configure-flags #~(list "-Dvapi=true"
4534                                      "-D_systemd=false")))
4535     (native-inputs
4536      (list pkg-config
4537            gettext-minimal
4538            vala
4539            gobject-introspection
4540            `(,glib "bin")               ; for glib-genmarshal, etc.
4541            gperf
4542            python
4543            libxml2))
4544     (propagated-inputs
4545      (list gtk+ ; required by vte-2.91.pc
4546            gnutls ; ditto
4547            pcre2))               ; ditto
4548     (home-page "https://www.gnome.org/")
4549     (synopsis "Virtual Terminal Emulator")
4550     (description
4551      "VTE is a library (libvte) implementing a terminal emulator widget for
4552 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
4553 gnome-terminal, but can also be used to embed a console/terminal in games,
4554 editors, IDEs, etc.")
4555     (license license:lgpl2.1+)))
4556
4557 (define-public vte-ng
4558   (package
4559     (inherit vte)
4560     (name "vte-ng")
4561     (version "0.58.2.a")
4562     (home-page "https://github.com/thestinger/vte-ng")
4563     (source (origin
4564               (method git-fetch)
4565               (uri (git-reference (url home-page) (commit version)))
4566               (file-name (git-file-name name version))
4567               (sha256
4568                (base32
4569                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4570     (build-system meson-build-system)
4571     (arguments
4572      (list #:configure-flags #~(list "-Ddocs=false")))
4573   (synopsis "Enhanced VTE terminal widget")
4574   (description
4575    "VTE is a library (libvte) implementing a terminal emulator widget for
4576 GTK+, this fork provides additional functions exposed for keyboard text
4577 selection and URL hints.")))
4578
4579 ;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
4580 (define-public vte/gtk+-2
4581   (package (inherit vte)
4582     (name "vte")
4583     (version "0.28.2")
4584     (source (origin
4585               (method url-fetch)
4586               (uri (string-append "mirror://gnome/sources/" name "/"
4587                                   (version-major+minor version) "/"
4588                                   name "-" version ".tar.xz"))
4589               (sha256
4590                (base32
4591                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4592               (patches (search-patches
4593                          "vte-CVE-2012-2738-pt1.patch"
4594                          "vte-CVE-2012-2738-pt2.patch"))))
4595     (build-system gnu-build-system)
4596     (arguments
4597      '(#:configure-flags '("--disable-python")))
4598     (native-inputs
4599      (list pkg-config intltool
4600            `(,glib "bin")))   ; for glib-genmarshal, etc.
4601     (propagated-inputs
4602      (list gtk+-2 ; required by libvte.pc
4603            ncurses)))) ; required by libvte.la
4604
4605 (define-public vinagre
4606   (package
4607     (name "vinagre")
4608     (version "3.22.0")
4609     (source (origin
4610               (method url-fetch)
4611               (uri (string-append "mirror://gnome/sources/" name "/"
4612                                   (version-major+minor version) "/"
4613                                   name "-" version ".tar.xz"))
4614               (patches (search-patches "vinagre-newer-freerdp.patch"
4615                                        "vinagre-newer-rdp-parameters.patch"))
4616               (sha256
4617                (base32
4618                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4619     (build-system glib-or-gtk-build-system)
4620     (arguments
4621      ;; Disable -Werror and such, to avoid build failures on compilation
4622      ;; warnings.
4623      '(#:configure-flags '("--enable-compile-warnings=minimum"
4624                            "CFLAGS=-O2 -g -fcommon")
4625        #:phases
4626        (modify-phases %standard-phases
4627          (add-before 'install 'skip-gtk-update-icon-cache
4628            (lambda _
4629              ;; Don't create 'icon-theme.cache'
4630              (substitute* (find-files "." "^Makefile$")
4631                (("gtk-update-icon-cache") (which "true")))
4632              #t))
4633          (add-after 'unpack 'patch-configure
4634            (lambda _
4635              (substitute* "configure"
4636                (("freerdp") "freerdp2"))
4637              #t)))))
4638     (native-inputs
4639      `(("pkg-config" ,pkg-config)
4640        ("intltool" ,intltool)
4641        ("itstool" ,itstool)
4642        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
4643     (inputs
4644      (list libxml2
4645            gtk-vnc
4646            gnome-keyring
4647            libsecret
4648            freerdp
4649            spice
4650            spice-gtk
4651            telepathy-glib
4652            vte))
4653     (home-page "https://wiki.gnome.org/Apps/Vinagre")
4654     (synopsis "Remote desktop viewer for GNOME")
4655     (description "Vinagre is a remote display client supporting the VNC, SPICE
4656 and RDP protocols.")
4657     (license license:gpl3+)))
4658
4659 (define-public dconf
4660   (package
4661     (name "dconf")
4662     (version "0.40.0")
4663     (source (origin
4664               (method url-fetch)
4665               (uri (string-append
4666                     "mirror://gnome/sources/" name "/"
4667                     (version-major+minor version) "/"
4668                     name "-" version ".tar.xz"))
4669               (sha256
4670                (base32
4671                 "0cs5nayg080y8pb9b7qccm1ni8wkicdmqp1jsgc22110r6j24zyg"))))
4672     (build-system meson-build-system)
4673     (propagated-inputs
4674      ;; In Requires of dconf.pc.
4675      (list glib))
4676     (inputs
4677      (list gtk+ dbus))
4678     (native-inputs
4679      `(("bash-completion" ,bash-completion)
4680        ("libxslt" ,libxslt)                     ;for xsltproc
4681        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
4682        ("docbook-xml" ,docbook-xml-4.2)
4683        ("docbook-xsl" ,docbook-xsl)
4684        ("glib:bin" ,glib "bin")
4685        ("gtk-doc" ,gtk-doc/stable)
4686        ("pkg-config" ,pkg-config)
4687        ("python" ,python)
4688        ("vala" ,vala)))
4689     (arguments
4690      `(#:glib-or-gtk? #t
4691        #:configure-flags '("-Dgtk_doc=true")
4692        #:phases (modify-phases %standard-phases
4693                   (add-after 'unpack 'increase-test-timeout
4694                     (lambda _
4695                       ;; On big-memory systems, the engine test may take
4696                       ;; much longer than the default of 30 seconds.
4697                       (substitute* "tests/meson.build"
4698                         (("test\\(unit_test\\[0\\], exe" all)
4699                          (string-append all ", timeout: 300"))))))))
4700     (home-page "https://developer.gnome.org/dconf/")
4701     (synopsis "Low-level GNOME configuration system")
4702     (description "Dconf is a low-level configuration system.  Its main purpose
4703 is to provide a backend to GSettings on platforms that don't already have
4704 configuration storage systems.")
4705     (license license:lgpl2.1+)))
4706
4707 (define-public json-glib-minimal
4708   (package
4709     (name "json-glib-minimal")
4710     (version "1.6.2")
4711     (source (origin
4712               (method url-fetch)
4713               (uri (string-append "mirror://gnome/sources/json-glib/"
4714                                   (version-major+minor version)
4715                                   "/json-glib-" version ".tar.xz"))
4716               (sha256
4717                (base32
4718                 "092g2dyy1hhl0ix9kp33wcab0pg1qicnsv0cj5ms9g9qs336cgd3"))))
4719     (build-system meson-build-system)
4720     (arguments
4721      `(#:glib-or-gtk? #t))           ; To wrap binaries and/or compile schemas
4722     (native-inputs
4723      `(("gettext" ,gettext-minimal)
4724        ("glib" ,glib "bin")             ;for glib-mkenums and glib-genmarshal
4725        ("pkg-config" ,pkg-config)))
4726     (inputs
4727      (list bash-minimal))
4728     (propagated-inputs
4729      (list glib))                 ;according to json-glib-1.0.pc
4730     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4731     (synopsis "Glib and GObject implementation of JSON")
4732     (description "JSON-GLib is a library providing serialization and
4733 described by RFC 4627.  It implements a full JSON parser and generator using
4734 GLib and GObject, and integrates JSON with GLib data types.")
4735     (license license:lgpl2.1+)))
4736
4737 (define-public json-glib
4738   (package/inherit json-glib-minimal
4739     (name "json-glib")
4740     (outputs (cons "doc" (package-outputs json-glib-minimal)))
4741     (arguments
4742      (substitute-keyword-arguments (package-arguments json-glib-minimal)
4743        ((#:configure-flags _)
4744         `(list "-Ddocs=true"
4745                "-Dman=true"
4746                ,@(if (%current-target-system)
4747                      ;; If enabled, gtkdoc-scangobj will try to execute a
4748                      ;; cross-compiled binary.
4749                      '("-Dgtk_doc=disabled"
4750                        ;; Trying to build introspection data when cross-compiling
4751                        ;; causes errors during linking.
4752                        "-Dintrospection=disabled")
4753                      '())))
4754        ((#:phases phases '%standard-phases)
4755         `(modify-phases ,phases
4756            (add-after 'unpack 'patch-docbook
4757              (lambda* (#:key native-inputs inputs #:allow-other-keys)
4758                (with-directory-excursion "doc"
4759                  (substitute* (find-files "." "\\.xml$")
4760                    (("http://www.oasis-open.org/docbook/xml/4\\.3/")
4761                     (string-append (assoc-ref (or native-inputs inputs)
4762                                               "docbook-xml")
4763                                    "/xml/dtd/docbook/")))
4764                  (substitute* "meson.build"
4765                    (("http://docbook.sourceforge.net/release/xsl/current/")
4766                     (string-append (assoc-ref (or native-inputs inputs)
4767                                               "docbook-xsl")
4768                                    "/xml/xsl/docbook-xsl-1.79.2/"))))))
4769            ;; When cross-compiling, there are no docs to move.
4770            ,(if (%current-target-system)
4771                 '(add-after 'install 'stub-docs
4772                    (lambda* (#:key outputs #:allow-other-keys)
4773                      ;; The daemon doesn't like empty output paths.
4774                      (mkdir (assoc-ref outputs "doc"))))
4775                 '(add-after 'install 'move-docs
4776                    (lambda* (#:key outputs #:allow-other-keys)
4777                      (let* ((out (assoc-ref outputs "out"))
4778                             (doc (assoc-ref outputs "doc")))
4779                        (mkdir-p (string-append doc "/share"))
4780                        (rename-file
4781                         (string-append out "/share/gtk-doc")
4782                         (string-append doc "/share/gtk-doc"))))))))))
4783     (native-inputs
4784      (append
4785          `(("docbook-xml" ,docbook-xml-4.3)
4786            ("docbook-xsl" ,docbook-xsl)
4787            ("gobject-introspection" ,gobject-introspection)
4788            ("gtk-doc" ,gtk-doc)
4789            ("xsltproc" ,libxslt))
4790          (package-native-inputs json-glib-minimal)))))
4791
4792 (define-public libxklavier
4793   (package
4794     (name "libxklavier")
4795     (version "5.4")
4796     (source (origin
4797               ;; Note: There's no tarball at ftp.gnome.org for this version.
4798               (method git-fetch)
4799               (uri (git-reference
4800                     (url "https://anongit.freedesktop.org/git/libxklavier")
4801                     (commit (string-append "libxklavier-" version))))
4802               (sha256
4803                (base32
4804                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4805               (file-name (git-file-name name version))))
4806     (build-system gnu-build-system)
4807     (arguments
4808      '(#:configure-flags
4809        (list (string-append "--with-xkb-base="
4810                             (assoc-ref %build-inputs "xkeyboard-config")
4811                             "/share/X11/xkb")
4812              "--disable-xmodmap-support")))
4813     (native-inputs
4814      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
4815        ("gobject-introspection" ,gobject-introspection)
4816        ("pkg-config"            ,pkg-config)
4817        ("gtk-doc" ,gtk-doc/stable)
4818        ("intltool" ,intltool)
4819        ("which" ,which)
4820        ("autoconf" ,autoconf)
4821        ("automake" ,automake)
4822        ("libtool" ,libtool)))
4823     (propagated-inputs
4824      ;; Required by libxklavier.pc.
4825      (list glib libxml2))
4826     (inputs
4827      (list iso-codes libxi libxkbfile xkbcomp xkeyboard-config))
4828     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
4829     (synopsis "High-level API for X Keyboard Extension")
4830     (description
4831      "LibXklavier is a library providing high-level API for X Keyboard
4832 Extension known as XKB.  This library is intended to support XFree86 and other
4833 commercial X servers.  It is useful for creating XKB-related software (layout
4834 indicators etc).")
4835     (license license:lgpl2.0+)))
4836
4837 (define-public glib-networking
4838   (package
4839     (name "glib-networking")
4840     (version "2.70.0")
4841     (source (origin
4842               (method url-fetch)
4843               (uri (string-append "mirror://gnome/sources/glib-networking/"
4844                                   (version-major+minor version) "/"
4845                                   "glib-networking-" version ".tar.xz"))
4846               (sha256
4847                (base32
4848                 "0dbg1na239mbavn4hknkax5sns9q2dbdnqw9wcpmhv58mzkhid36"))
4849               (patches
4850                (search-patches "glib-networking-gnutls-binding.patch"))))
4851     (build-system meson-build-system)
4852     (arguments
4853      (if (target-64bit?)
4854          '()
4855          (list #:phases
4856                #~(modify-phases %standard-phases
4857                    (add-after 'unpack 'work-around-32-bit-time-t
4858                      (lambda _
4859                        (invoke "patch" "--force" "-p1" "-i"
4860                                #$(local-file
4861                                   (search-patch
4862                                    "glib-networking-32-bit-time.patch")))))))))
4863     (native-inputs
4864      `(("pkg-config" ,pkg-config)
4865        ("gettext" ,gettext-minimal)))
4866     (inputs
4867      (list glib gnutls gsettings-desktop-schemas libproxy))
4868     (home-page "https://wiki.gnome.org/Projects/GLib")
4869     (synopsis "Network extensions for GLib")
4870     (description
4871      "Glib-networking contains the implementations of certain GLib networking
4872 features that cannot be implemented directly in GLib itself because of their
4873 dependencies.  Currently it contains GnuTLS and OpenSSL-based implementations of
4874 GTlsBackend, a libproxy-based implementation of GProxyResolver,
4875 GLibproxyResolver, and a GNOME GProxyResolver that uses the proxy information
4876 from the GSettings schemas in gsettings-desktop-schemas.")
4877     (license license:lgpl2.1+)))
4878
4879 (define-public rest
4880   (package
4881     (name "rest")
4882     (version "0.8.1")
4883     (source (origin
4884               (method url-fetch)
4885               (uri (string-append "mirror://gnome/sources/rest/"
4886                                   (version-major+minor version) "/"
4887                                   name "-" version ".tar.xz"))
4888               (sha256
4889                (base32
4890                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4891     (build-system gnu-build-system)
4892     (arguments
4893      '(#:tests? #f ; tests require internet connection
4894        #:configure-flags
4895        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4896     (native-inputs
4897      `(("glib-mkenums" ,glib "bin")
4898        ("gobject-introspection" ,gobject-introspection)
4899        ("pkg-config" ,pkg-config)))
4900     (propagated-inputs
4901      ;; rest-0.7.pc refers to all these.
4902      `(("glib"    ,glib)
4903        ("libsoup" ,libsoup-minimal-2)
4904        ("libxml2" ,libxml2)))
4905     (home-page "https://www.gtk.org/")
4906     (synopsis "RESTful web api query library")
4907     (description
4908      "This library was designed to make it easier to access web services that
4909 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
4910 libxml to ease remote use of the RESTful API.")
4911     (license license:lgpl2.1+)))
4912
4913 ;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4914 (define-public libsoup-minimal
4915   (package
4916     (name "libsoup-minimal")
4917     (version "3.0.4")
4918     (source (origin
4919               (method url-fetch)
4920               (uri (string-append "mirror://gnome/sources/libsoup/"
4921                                   (version-major+minor version) "/"
4922                                   "libsoup-" version ".tar.xz"))
4923               (sha256
4924                (base32
4925                 "0ysnvvfd2f6w2z6g31spqqb8wgyamixc7mryzbbpyw0z15g8plsv"))))
4926     (build-system meson-build-system)
4927     (arguments
4928      `(#:configure-flags '("-Dgtk_doc=false")
4929        #:phases
4930        (modify-phases %standard-phases
4931          (add-after 'unpack 'adjust-tests
4932            (lambda _
4933              ;; This test fails due to missing /etc/nsswitch.conf
4934              ;; in the build environment.
4935              (substitute* "tests/socket-test.c"
4936                ((".*/sockets/unconnected.*") ""))
4937
4938              ;; These fail because "subdomain.localhost" does not resolve in
4939              ;; the build environment.  Moreover, the hsts-test suite fails on
4940              ;; i686-linux because of errors from `session_get_uri' like
4941              ;; "Unexpected status 200 OK (expected 301 Moved Permanently)"
4942              ;; (see: https://gitlab.gnome.org/GNOME/libsoup/-/issues/239).
4943              (substitute* "tests/meson.build"
4944                ((".*'name': 'hsts'.*") ""))
4945              (substitute* "tests/hsts-db-test.c"
4946                ((".*/hsts-db/subdomains.*") "")))))))
4947     (native-inputs
4948      (list `(,glib "bin") ;for glib-mkenums
4949            gobject-introspection
4950            intltool
4951            pkg-config
4952            python-wrapper
4953            vala
4954            curl
4955            gnutls ;for 'certtool'
4956            httpd))
4957     (propagated-inputs
4958      ;; libsoup-3.0.pc refers to all of these (except where otherwise noted)
4959      (list brotli
4960            glib
4961            glib-networking ; for GIO runtime modules
4962            libpsl
4963            nghttp2 ;for pkg-config
4964            `(,nghttp2 "lib")
4965            libxml2
4966            sqlite
4967            zlib))
4968     (inputs
4969      (list mit-krb5 samba/fixed))     ; For ntlm_auth support
4970     (home-page "https://wiki.gnome.org/Projects/libsoup")
4971     (synopsis "GLib-based HTTP Library")
4972     (description
4973      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
4974 and the GLib main loop, to integrate well with GNOME applications.")
4975     (license license:lgpl2.0+)))
4976
4977 ;;; An older variant kept to build the 'rest' package.
4978 (define-public libsoup-minimal-2
4979   (package/inherit libsoup-minimal
4980     (version "2.72.0")
4981     (source (origin
4982               (method url-fetch)
4983               (uri (string-append "mirror://gnome/sources/libsoup/"
4984                                   (version-major+minor version) "/"
4985                                   "libsoup-" version ".tar.xz"))
4986               (sha256
4987                (base32
4988                 "11skbyw2pw32178q3h8pi7xqa41b2x4k6q4k9f75zxmh8s23y30p"))))
4989     (arguments
4990      (substitute-keyword-arguments (package-arguments libsoup-minimal)
4991        ((#:phases phases)
4992         `(modify-phases ,phases
4993            (add-after 'unpack 'disable-failing-tests
4994              (lambda _
4995                ;; Disable the SSL test, failing since 2.68 and resolved in
4996                ;; libsoup 3.
4997                (substitute* "tests/meson.build"
4998                  (("[ \t]*\\['ssl', true, \\[\\]\\],") ""))))))))
4999     (native-inputs
5000      (modify-inputs (package-native-inputs libsoup-minimal)
5001        (replace "vala" vala-0.52)))))
5002
5003 (define-public libsoup
5004   (package/inherit libsoup-minimal
5005     (name "libsoup")
5006     (outputs (cons "doc" (package-outputs libsoup-minimal)))
5007     (arguments
5008      (substitute-keyword-arguments (package-arguments libsoup-minimal)
5009        ((#:configure-flags configure-flags)
5010         `(cons "-Dgtk_doc=true"
5011                (delete "-Dgtk_doc=false" ,configure-flags)))
5012        ((#:phases phases)
5013         `(modify-phases ,phases
5014            (add-after 'unpack 'patch-docbook-xml
5015              (lambda* (#:key inputs #:allow-other-keys)
5016                (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
5017                                             "/xml/dtd/docbook")))
5018                  (substitute* (find-files "docs/reference")
5019                    (("http://.*/docbookx\\.dtd")
5020                     (string-append xmldoc "/docbookx.dtd"))))))
5021            (add-after 'install 'move-doc
5022              (lambda* (#:key outputs #:allow-other-keys)
5023                (let ((out (assoc-ref outputs "out"))
5024                      (doc (assoc-ref outputs "doc")))
5025                  (mkdir-p (string-append doc "/share"))
5026                  (copy-recursively (string-append out "/share/gtk-doc")
5027                                    (string-append doc "/share/gtk-doc"))
5028                  (delete-file-recursively
5029                   (string-append out "/share/gtk-doc")))))))))
5030     (native-inputs (modify-inputs (package-native-inputs libsoup-minimal)
5031                      (prepend docbook-xml-4.1.2 gtk-doc)))))
5032
5033 (define-public libsecret
5034   (package
5035     (name "libsecret")
5036     (version "0.20.4")
5037     (source (origin
5038               (method url-fetch)
5039               (uri (string-append
5040                     "mirror://gnome/sources/libsecret/"
5041                     (version-major+minor version) "/"
5042                     "libsecret-" version ".tar.xz"))
5043               (sha256
5044                (base32
5045                 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
5046     (build-system gnu-build-system)
5047     (outputs '("out" "doc"))
5048     (arguments
5049      `(#:tests? #f ; FIXME: Testing hangs.
5050        #:configure-flags
5051        (list (string-append "--with-html-dir="
5052                             (assoc-ref %outputs "doc")
5053                             "/share/gtk-doc/html"))))
5054     (native-inputs
5055      `(("gettext" ,gettext-minimal)
5056        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
5057        ("gobject-introspection" ,gobject-introspection)
5058        ("pkg-config" ,pkg-config)
5059        ("vala" ,vala)
5060        ("xsltproc" ,libxslt)))
5061     (propagated-inputs
5062      (list glib)) ; required by libsecret-1.pc
5063     (inputs
5064      ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
5065      ;; doesn't seem to affect the build result.
5066      (list docbook-xsl libgcrypt libxml2)) ; for XML_CATALOG_FILES
5067     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
5068     (synopsis "GObject bindings for \"Secret Service\" API")
5069     (description
5070      "Libsecret is a GObject based library for storing and retrieving passwords
5071 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
5072     (license license:lgpl2.1+)))
5073
5074 (define-public five-or-more
5075   (package
5076     (name "five-or-more")
5077     (version "3.32.3")
5078     (source
5079      (origin
5080        (method url-fetch)
5081        (uri (string-append "mirror://gnome/sources/five-or-more/"
5082                            (version-major+minor version) "/"
5083                            "five-or-more-" version ".tar.xz"))
5084        (sha256
5085         (base32 "1x4ys18rn37hsavivh532py2avj9686aycnn8ys29cyyxwpdf41d"))))
5086     (build-system meson-build-system)
5087     (arguments
5088      '(#:glib-or-gtk? #t
5089        #:phases
5090        (modify-phases %standard-phases
5091          (add-after 'unpack 'skip-gtk-update-icon-cache
5092            (lambda _
5093              (substitute* "meson_post_install.py"
5094                (("gtk-update-icon-cache") (which "true"))))))))
5095     (native-inputs
5096      (list appstream-glib
5097            desktop-file-utils
5098            `(,glib "bin")               ; for glib-compile-resources
5099            intltool
5100            itstool
5101            pkg-config
5102            vala))
5103     (inputs
5104      (list gtk+ libgnome-games-support librsvg libxml2))
5105     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
5106     (synopsis "Logic puzzle game")
5107     (description "Five or More is a game where you try to align
5108  five or more objects of the same color and shape causing them to disappear.
5109  On every turn more objects will appear, until the board is full.
5110  Try to last as long as possible.")
5111     (license license:gpl2+)))
5112
5113 (define-public gnome-mines
5114   (package
5115     (name "gnome-mines")
5116     (version "40.1")
5117     (source
5118      (origin
5119        (method url-fetch)
5120        (uri (string-append "mirror://gnome/sources/" name "/"
5121                            (version-major version) "/"
5122                            name "-" version ".tar.xz"))
5123        (sha256
5124         (base32 "0whjwdxhyw5bvibd9qvpm2yc5g7yhy8h3rn027kv5cqwyyryj0im"))))
5125     (build-system meson-build-system)
5126     (arguments
5127      `(#:glib-or-gtk? #t
5128        #:phases
5129        (modify-phases %standard-phases
5130          (add-after 'unpack 'skip-gtk-update-icon-cache
5131            (lambda _
5132              (substitute* "build-aux/meson_post_install.py"
5133                (("gtk-update-icon-cache") (which "true"))))))))
5134     (native-inputs
5135      (list appstream-glib
5136            desktop-file-utils
5137            `(,glib "bin")               ; for glib-compile-resources
5138            intltool
5139            itstool
5140            pkg-config
5141            python-wrapper               ; for meson_post_install.py
5142            vala))
5143     (inputs
5144      (list gtk+ libgnome-games-support librsvg yelp))
5145     (home-page "https://wiki.gnome.org/Apps/Mines")
5146     (synopsis "Minesweeper game")
5147     (description
5148      "Mines (previously gnomine) is a puzzle game where you locate mines
5149 floating in an ocean using only your brain and a little bit of luck.")
5150     (license license:gpl2+)))
5151
5152 (define-public gnome-multi-writer
5153   (package
5154     (name "gnome-multi-writer")
5155     (version "3.35.90")
5156     (source
5157      (origin
5158        (method url-fetch)
5159        (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
5160                            (version-major+minor version) "/"
5161                            "gnome-multi-writer-" version ".tar.xz"))
5162        (sha256
5163         (base32
5164          "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
5165     (build-system meson-build-system)
5166     (arguments
5167      '(#:glib-or-gtk? #t
5168        #:phases
5169        (modify-phases %standard-phases
5170          (add-after 'unpack 'skip-post-install
5171            (lambda _
5172              (substitute* "meson.build"
5173                (("meson.add_install_script" &) (string-append "# " &)))
5174              #t)))))
5175     (native-inputs
5176      `(("glib:bin" ,glib "bin")
5177        ("pkg-config" ,pkg-config)))
5178     (inputs
5179      (list gtk+
5180            glib ; for gio
5181            gusb
5182            udisks
5183            libgudev
5184            libcanberra
5185            polkit))
5186     (home-page "https://wiki.gnome.org/Apps/MultiWriter")
5187     (synopsis "Write to multiple USB devices at once")
5188     (description
5189      "MultiWriter can be used to write an ISO file to multiple USB devices at
5190 once.")
5191     (license license:gpl2+)))
5192
5193 (define-public gnome-sudoku
5194   (package
5195     (name "gnome-sudoku")
5196     (version "40.2")
5197     (source
5198      (origin
5199        (method url-fetch)
5200        (uri (string-append "mirror://gnome/sources/" name "/"
5201                            (version-major version) "/"
5202                            name "-" version ".tar.xz"))
5203        (sha256
5204         (base32
5205          "18slsxifad5cjz4fqi818i66jc9b7kzgn01qxa0ra4y7wcqha4in"))))
5206     (build-system meson-build-system)
5207     (arguments
5208      `(#:glib-or-gtk? #t
5209        #:phases
5210        (modify-phases %standard-phases
5211          (add-after 'unpack 'skip-gtk-update-icon-cache
5212            (lambda _
5213              (substitute* "build-aux/post_install.py"
5214                (("gtk-update-icon-cache") (which "true"))))))))
5215     (native-inputs
5216      (list pkg-config
5217            python                             ;for 'build-aux/post_install.py'
5218            desktop-file-utils
5219            `(,glib "bin")                         ;for glib-compile-resources
5220            intltool
5221            itstool
5222            vala
5223            libxml2))
5224     (inputs
5225      (list gtk+ json-glib libgee librsvg qqwing))
5226     (home-page "https://wiki.gnome.org/Apps/Sudoku")
5227     (synopsis "Japanese logic game")
5228     (description
5229      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5230 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5231 possible while still providing features that make playing difficult Sudoku
5232 more fun.")
5233     (license license:gpl2+)))
5234
5235 (define-public gnome-terminal
5236   (package
5237     (name "gnome-terminal")
5238     (version "3.40.3")
5239     (source
5240      (origin
5241        (method url-fetch)
5242        (uri (string-append "mirror://gnome/sources/" name "/"
5243                            (version-major+minor version) "/"
5244                            name "-" version ".tar.xz"))
5245        (sha256
5246         (base32
5247          "08hsic7sn32xw12i3j0ard2bhfhp8gmzqm0pa8xzl5l1jhzsmsfb"))))
5248     (build-system glib-or-gtk-build-system)
5249     (arguments
5250      '(#:configure-flags
5251        (list "--disable-migration" "--disable-search-provider"
5252              "--without-nautilus-extension")
5253        #:phases
5254        (modify-phases %standard-phases
5255          (add-before 'configure 'patch-/bin/true
5256            (lambda _
5257              (substitute* "configure"
5258                (("/bin/true") (which "true"))))))))
5259     (native-inputs
5260      `(("docbook-xsl" ,docbook-xsl)
5261        ("pkg-config" ,pkg-config)
5262        ("desktop-file-utils" ,desktop-file-utils)
5263        ("intltool" ,intltool)
5264        ("itstool" ,itstool)
5265        ("libxslt" ,libxslt)
5266        ("xmllint" ,libxml2)))
5267     (propagated-inputs
5268      (list dconf))
5269     (inputs
5270      (list gtk+
5271            vte
5272            gnutls
5273            gsettings-desktop-schemas
5274            `(,util-linux "lib")
5275            vala))
5276     (home-page "https://wiki.gnome.org/Apps/Terminal")
5277     (synopsis "Terminal emulator")
5278     (description
5279      "GNOME Terminal is a terminal emulator application for accessing a
5280 UNIX shell environment which can be used to run programs available on
5281 your system.
5282
5283 It supports several profiles, multiple tabs and implements several
5284 keyboard shortcuts.")
5285     (license license:gpl3+)))
5286
5287 (define-public colord-minimal
5288   (package
5289     (name "colord-minimal")
5290     (version "1.4.5")
5291     (source
5292      (origin
5293        (method url-fetch)
5294        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
5295                            "colord-" version ".tar.xz"))
5296        (sha256
5297         (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
5298     (build-system meson-build-system)
5299     (arguments
5300      '( ;; FIXME: One test fails:
5301        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5302        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5303        ;; application/x-zerosize
5304        #:tests? #f
5305        #:glib-or-gtk? #t
5306        #:configure-flags (list "-Dargyllcms_sensor=false" ;requires spotread
5307                                "-Dbash_completion=false"
5308                                "-Ddaemon_user=colord"
5309                                "-Ddocs=false"
5310                                "-Dlocalstatedir=/var"
5311                                "-Dman=false"
5312                                "-Dsane=true"
5313                                "-Dsystemd=false") ;no systemd
5314        #:phases
5315        (modify-phases %standard-phases
5316          (add-before 'configure 'patch-build-system
5317            (lambda* (#:key outputs #:allow-other-keys)
5318              (substitute* "rules/meson.build"
5319                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5320                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))))
5321          (add-before 'configure 'set-sqlite3-file-name
5322            (lambda* (#:key inputs #:allow-other-keys)
5323              ;; "colormgr dump" works by invoking the "sqlite3" command.
5324              ;; Record its absolute file name.
5325              (let ((sqlite (assoc-ref inputs "sqlite")))
5326                (substitute* "client/cd-util.c"
5327                  (("\"sqlite3\"")
5328                   (string-append "\"" sqlite "/bin/sqlite3\"")))))))))
5329     (native-inputs
5330      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
5331        ("gettext" ,gettext-minimal)
5332        ("pkg-config" ,pkg-config)
5333        ("vala" ,vala)))
5334     (propagated-inputs
5335      ;; colord.pc refers to all these.
5336      `(("glib" ,glib)
5337        ("lcms" ,lcms)
5338        ("udev" ,eudev)))
5339     (inputs
5340      `(("dbus-glib" ,dbus-glib)
5341        ("gobject-introspection" ,gobject-introspection)
5342        ("gusb" ,gusb-minimal)
5343        ("libgudev" ,libgudev)
5344        ("libusb" ,libusb)
5345        ("polkit" ,polkit)
5346        ("python" ,python-wrapper)
5347        ("sqlite" ,sqlite)
5348        ("sane-backends" ,sane-backends)))
5349     (home-page "https://www.freedesktop.org/software/colord/")
5350     (synopsis "Color management service")
5351     (description "Colord is a system service that makes it easy to manage,
5352 install and generate color profiles to accurately color manage input and
5353 output devices.")
5354     (license license:gpl2+)))
5355
5356 (define-public colord
5357   (package/inherit colord-minimal
5358     (name "colord")
5359     (arguments
5360      (substitute-keyword-arguments
5361          (package-arguments colord-minimal)
5362        ((#:configure-flags flags)
5363         `(begin
5364            (use-modules (srfi srfi-1))
5365            (append '("-Dbash_completion=true"
5366                      "-Ddocs=true"
5367                      "-Dman=true"
5368                      "-Dvapi=true")
5369                (fold delete ,flags '("-Dbash_completion=false"
5370                                      "-Ddocs=false"
5371                                      "-Dman=false")))))
5372        ((#:phases phases)
5373         `(modify-phases ,phases
5374            (add-after 'unpack 'fix-bash-completion-dir
5375              (lambda* (#:key outputs #:allow-other-keys)
5376                (substitute* "data/meson.build"
5377                  (("bash_completion.get_pkgconfig_variable\
5378 \\('completionsdir'\\)")
5379                   (string-append "'" (assoc-ref outputs "out")
5380                                  "/etc/bash_completion.d'")))))))))
5381     (native-inputs
5382      (append
5383          `(("bash-completion" ,bash-completion)
5384            ("docbook-xsl-ns" ,docbook-xsl-ns)
5385            ("gtk-doc" ,gtk-doc/stable)
5386            ("libxml2" ,libxml2)         ;for XML_CATALOG_FILES
5387            ("libxslt" ,libxslt)
5388            ("vala" ,vala))              ;for VAPI, needed by simple-scan
5389          (package-native-inputs colord-minimal)))))
5390
5391 (define-public geoclue
5392   (package
5393     (name "geoclue")
5394     (version "2.5.7")
5395     (source
5396      (origin
5397        (method url-fetch)
5398        (uri
5399         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5400                        version "/geoclue-" version ".tar.bz2"))
5401        (sha256
5402         (base32 "09ww26a76kanldhgwnn5sqy9ly2940k45zpp68spykkv2zjdpivc"))
5403        (patches (search-patches "geoclue-config.patch"))))
5404     (build-system meson-build-system)
5405     (arguments
5406      '(#:configure-flags (list "-Ddbus-srv-user=geoclue")))
5407     (native-inputs
5408      (list pkg-config
5409            gobject-introspection
5410            modem-manager
5411            libnotify
5412            gtk-doc/stable
5413            intltool))
5414     (inputs
5415      `(("avahi" ,avahi)
5416        ("glib:bin" ,glib "bin")
5417        ("glib-networking" ,glib-networking)
5418        ("json-glib" ,json-glib)
5419        ("libsoup" ,libsoup-minimal-2)))
5420     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
5421     (synopsis "Geolocation service")
5422     (description "Geoclue is a D-Bus service that provides location
5423 information.  The primary goal of the Geoclue project is to make creating
5424 location-aware applications as simple as possible, while the secondary goal is
5425 to ensure that no application can access location information without explicit
5426 permission from user.")
5427     (license license:gpl2+)))
5428
5429 (define-public geocode-glib
5430   (package
5431     (name "geocode-glib")
5432     (version "3.26.2")
5433     (source (origin
5434               (method url-fetch)
5435               (uri (string-append "mirror://gnome/sources/geocode-glib/"
5436                                   (version-major+minor version) "/"
5437                                   "geocode-glib-" version ".tar.xz"))
5438               (sha256
5439                (base32
5440                 "1l8g0f13xgkrk335afr9w8k46mziwb2jnyhl07jccl5yl37q9zh1"))))
5441     (build-system meson-build-system)
5442     (arguments
5443      `(#:phases
5444        (modify-phases %standard-phases
5445          ;; The tests require a bunch of locales.
5446          (add-before 'check 'set-locales
5447            (lambda* (#:key inputs #:allow-other-keys)
5448              (setenv "GUIX_LOCPATH"
5449                      (search-input-directory inputs "lib/locale")))))))
5450     (native-inputs
5451      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5452        ("glibc-locales" ,glibc-locales) ; for tests
5453        ("gettext" ,gettext-minimal)
5454        ("gobject-introspection" ,gobject-introspection)
5455        ("gtk-doc" ,gtk-doc/stable)
5456        ("pkg-config" ,pkg-config)
5457        ("json-glib" ,json-glib)))
5458     (propagated-inputs
5459      ;; geocode-glib-1.0.pc refers to GIO.
5460      (list glib))
5461     (inputs
5462      `(("libsoup" ,libsoup-minimal-2)))
5463     (home-page "https://github.com/GNOME/geocode-glib/")
5464     (synopsis "Geocoding and reverse-geocoding library")
5465     (description
5466      "geocode-glib is a convenience library for geocoding (finding longitude,
5467 and latitude from an address) and reverse geocoding (finding an address from
5468 coordinates) using the Nominatim service.  geocode-glib caches requests for
5469 faster results and to avoid unnecessary server load.")
5470     (license license:lgpl2.0+)))
5471
5472 (define-public upower
5473   (package
5474     (name "upower")
5475     (version "0.99.15")
5476     (source
5477      (origin
5478        (method git-fetch)
5479        (uri (git-reference
5480              (url "https://gitlab.freedesktop.org/upower/upower")
5481              (commit (string-append "v" version))))
5482        (file-name (git-file-name name version))
5483        (sha256
5484         (base32 "1zk7w7pw8dhlnxhxzcbk33gmxmg8f32mppd67556v9z2qgcg4lhs"))
5485        (modules '((guix build utils)))
5486        (snippet
5487          ;; Upstream commit
5488          ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
5489          ;; moved 'dbus-1/system.d' from etc/ to share/.  However,
5490          ;; 'dbus-configuration-directory' in (gnu services dbus)
5491          ;; expects it in etc/.  Thus, move it back to its previous
5492          ;; location.
5493          #~(substitute* "src/meson.build"
5494             (("dbusdir / 'system.d'")
5495               "get_option('sysconfdir') / 'dbus-1/system.d'")
5496             ;; Avoid writing to /var during the build, this is
5497             ;; not possible in Guix!
5498             (("^install_subdir\\('does-not-exist'.*$") "")))))
5499     (build-system meson-build-system)
5500     (arguments
5501       (list
5502        #:glib-or-gtk? #t
5503        #:configure-flags
5504        #~(list "-Dsystemdsystemunitdir=no"
5505                ;; If not specified, udev will try putting history information
5506                ;; in /gnu/store.
5507                "-Dhistorydir=/var/lib/upower"
5508                (string-append "-Dudevrulesdir=" #$output "/bin/udev/rules.d"))))
5509     (native-inputs
5510      (list `(,glib "bin") ; for gdbus-codegen
5511            gobject-introspection
5512            gtk-doc
5513            intltool
5514            pkg-config
5515            python
5516            ;; For tests.
5517            python-dbus
5518            python-dbusmock
5519            python-packaging
5520            python-pygobject
5521            umockdev
5522            ;; For man pages.
5523            docbook-xsl
5524            libxslt ; for 'xsltproc'
5525            libxml2))           ; for 'XML_CATALOG_FILES'
5526     (inputs
5527      (list dbus-glib libgudev libusb))
5528     (propagated-inputs
5529      ;; In Requires of upower-glib.pc.
5530      (list glib))
5531     (home-page "https://upower.freedesktop.org/")
5532     (synopsis "System daemon for managing power devices")
5533     (description
5534      "UPower is an abstraction for enumerating power devices,
5535 listening to device events and querying history and statistics.  Any
5536 application or service on the system can access the org.freedesktop.UPower
5537 service via the system message bus.")
5538     (license license:gpl2+)
5539     ;; Old versions of upower are tagged as UPOWER_0_99_13, which confuses
5540     ;; the 'generic-git' updater.  Give it a little help.
5541     (properties '((release-tag-prefix . "v")
5542                   (release-tag-version-delimiter . ".")))))
5543
5544 (define-public libgweather
5545   (package
5546     (name "libgweather")
5547     (version "40.0")
5548     (source (origin
5549               (method url-fetch)
5550               (uri (string-append "mirror://gnome/sources/" name "/"
5551                                   (version-major version) "/"
5552                                   name "-" version ".tar.xz"))
5553               (sha256
5554                (base32
5555                 "1rkf4yv43qcahyx7bismdv6z2vh5azdnm1fqfmnzrada9cm8ykna"))))
5556     (build-system meson-build-system)
5557     (arguments
5558      `(#:tests? #f ; one of two tests requires network access
5559        #:configure-flags
5560        `(,(string-append "-Dzoneinfo_dir="
5561                          (assoc-ref %build-inputs "tzdata")
5562                          "/share/zoneinfo"))))
5563     (native-inputs
5564      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5565        ("gobject-introspection" ,gobject-introspection)
5566        ("pkg-config" ,pkg-config)
5567        ("python" ,python)
5568        ("vala" ,vala)
5569        ("intltool" ,intltool)
5570        ("python-pygobject" ,python-pygobject)))
5571     (propagated-inputs
5572      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5573      ;; libsoup.
5574      `(("gtk+" ,gtk+)
5575        ("gdk-pixbuf" ,gdk-pixbuf)
5576        ("libxml2" ,libxml2)
5577        ("libsoup" ,libsoup-minimal-2)
5578        ("geocode-glib" ,geocode-glib)))
5579     (inputs
5580      (list tzdata))
5581     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5582     (synopsis "Location, time zone, and weather library for GNOME")
5583     (description
5584      "libgweather is a library to access weather information from online
5585 services for numerous locations.")
5586     (license license:gpl2+)))
5587
5588 (define-public gnome-settings-daemon
5589   (package
5590     (name "gnome-settings-daemon")
5591     (version "41.0")
5592     (source
5593      (origin
5594        (method url-fetch)
5595        (uri (string-append "mirror://gnome/sources/" name "/"
5596                            (version-major version) "/"
5597                            name "-" version ".tar.xz"))
5598        (sha256
5599         (base32
5600          "111qcvlqjpasnswdniy5n53wyrs1y7a91qx1w4nsppnizdhn7jp6"))
5601        (patches (search-patches "gnome-settings-daemon-gc.patch"))))
5602     (build-system meson-build-system)
5603     (arguments
5604      `(#:glib-or-gtk? #t
5605        #:configure-flags
5606        (list (string-append "-Dudev_dir="
5607                             (assoc-ref %outputs "out") "/lib/udev")
5608              "-Dsystemd=false"
5609              ;; Otherwise, the RUNPATH will lack the final path component.
5610              (string-append "-Dc_link_args=-Wl,-rpath="
5611                             (assoc-ref %outputs "out")
5612                             "/lib/gnome-settings-daemon-3.0"))
5613
5614        #:phases (modify-phases %standard-phases
5615                   (add-before 'configure 'set-baobab-file-name
5616                     (lambda* (#:key inputs #:allow-other-keys)
5617                       ;; Hard-code the file name of Baobab instead of looking
5618                       ;; it up in $PATH.  This ensures users get the "Examine"
5619                       ;; button in the low disk space notification of GDM even
5620                       ;; if they don't have GNOME in their main profile.
5621                       (let ((baobab (assoc-ref inputs "baobab")))
5622                         (substitute* "plugins/housekeeping/gsd-disk-space.c"
5623                           (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5624                            (string-append "g_strdup (\"" baobab
5625                                           "/bin/baobab\")")))))))
5626
5627        ;; Color management test can't reach the colord system service.
5628        #:tests? #f))
5629     (native-inputs
5630      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5631        ("pkg-config" ,pkg-config)
5632        ("intltool" ,intltool)
5633        ("xsltproc" ,libxslt)
5634        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
5635        ("docbook-xml" ,docbook-xml-4.2)
5636        ("docbook-xsl" ,docbook-xsl)))
5637     (inputs
5638      (list alsa-lib
5639            baobab
5640            colord
5641            libgudev
5642            upower
5643            polkit
5644            pulseaudio
5645            libcanberra
5646            libx11
5647            libxtst
5648            lcms
5649            libnotify
5650            geoclue
5651            geocode-glib
5652            libgweather
5653            gnome-desktop
5654            nss
5655            cups
5656            gsettings-desktop-schemas
5657            libwacom
5658            (librsvg-for-system)
5659            xf86-input-wacom
5660            wayland
5661            network-manager
5662            gcr
5663            modem-manager))
5664     (home-page "https://www.gnome.org")
5665     (synopsis "GNOME settings daemon")
5666     (description
5667      "This package contains the daemon responsible for setting the various
5668 parameters of a GNOME session and the applications that run under it.  It
5669 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5670 settings, themes, mouse settings, and startup of other daemons.")
5671     (license license:gpl2+)))
5672
5673 (define-public totem-pl-parser
5674  (package
5675    (name "totem-pl-parser")
5676    (version "3.26.6")
5677    (source (origin
5678             (method url-fetch)
5679             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5680                                 (version-major+minor version) "/"
5681                                 "totem-pl-parser-" version ".tar.xz"))
5682             (sha256
5683              (base32
5684               "075csd5x0frgf93jvhlqiwv5i0qm24zz3iw17jj7v7fgsml0zpy0"))))
5685    (build-system meson-build-system)
5686    (arguments
5687     ;; FIXME: Tests require gvfs.
5688     `(#:tests? #f))
5689    (native-inputs
5690     (list intltool
5691           `(,glib "bin") gobject-introspection pkg-config))
5692    (propagated-inputs
5693     (list glib gmime libarchive libgcrypt libxml2))
5694    (inputs
5695     (list libsoup))
5696    (home-page "https://projects.gnome.org/totem")
5697    (synopsis "Library to parse and save media playlists for GNOME")
5698    (description "Totem-pl-parser is a GObjects-based library to parse and save
5699 playlists in a variety of formats.")
5700    (license license:lgpl2.0+)))
5701
5702 (define-public aisleriot
5703   (package
5704     (name "aisleriot")
5705     (version "3.22.9")
5706     (source (origin
5707               (method url-fetch)
5708               (uri (string-append "mirror://gnome/sources/aisleriot/"
5709                                   (version-major+minor version) "/"
5710                                   "aisleriot-" version ".tar.xz"))
5711               (sha256
5712                (base32
5713                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
5714     (build-system glib-or-gtk-build-system)
5715     (arguments
5716      '(#:configure-flags
5717        '("--with-platform=gtk-only"
5718          "--with-card-theme-formats=svg")))
5719     (native-inputs
5720      `(("desktop-file-utils" ,desktop-file-utils)
5721        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5722        ("intltool" ,intltool)
5723        ("itstool" ,itstool)
5724        ("pkg-config" ,pkg-config)
5725        ("xmllint" ,libxml2)))
5726     (inputs
5727      (list gtk+ guile-2.2 libcanberra librsvg))
5728     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5729     (synopsis "Solitaire card games")
5730     (description
5731      "Aisleriot (also known as Solitaire or sol) is a collection of card games
5732 which are easy to play with the aid of a mouse.")
5733     (license license:gpl3+)))
5734
5735 (define-public amtk
5736   (package
5737     (name "amtk")
5738     (version "5.3.1")
5739     (source (origin
5740               (method url-fetch)
5741               (uri (string-append "mirror://gnome/sources/amtk/"
5742                                   (version-major+minor version) "/"
5743                                   "amtk-" version ".tar.xz"))
5744               (sha256
5745                (base32
5746                 "12v3nj1bb7507ndprjggq0hpz8k719b4bwvl8sm43p3ibmn27anm"))))
5747     (build-system meson-build-system)
5748     (native-inputs
5749      (list gobject-introspection
5750            `(,glib "bin") ; for glib-mkenums
5751            gtk-doc/stable pkg-config))
5752     (inputs
5753      (list glib gtk+))
5754     (home-page "https://wiki.gnome.org/Projects/Amtk")
5755     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5756     (description
5757      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5758 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
5759 both a traditional UI or a modern UI with a GtkHeaderBar.")
5760     (license license:lgpl2.1+)))
5761
5762 (define-public devhelp
5763   (package
5764     (name "devhelp")
5765     (version "41.2")
5766     (source (origin
5767               (method url-fetch)
5768               (uri (string-append "mirror://gnome/sources/" name "/"
5769                                   (version-major version) "/"
5770                                   name "-" version ".tar.xz"))
5771               (sha256
5772                (base32
5773                 "1lk0gycjvs6gibhy0zs3ffkrkzrkyl5nkp7n60hgpa6syjq91apc"))))
5774     (build-system meson-build-system)
5775     (arguments
5776      `(#:glib-or-gtk? #t
5777        #:phases
5778        (modify-phases %standard-phases
5779          (add-after 'unpack 'skip-gtk-update-icon-cache
5780            ;; Don't create 'icon-theme.cache'.
5781            (lambda _
5782              (substitute* "build-aux/meson/meson_post_install.py"
5783                (("gtk-update-icon-cache") "true"))))
5784          (add-after 'unpack 'fix-devhelp-gir-inputs
5785            ;; It still mentions webkitgtk 4.0
5786            (lambda _
5787              (substitute* "devhelp/meson.build"
5788                (("'WebKit2-4.0'") "'WebKit2-4.1'")))))))
5789     (propagated-inputs
5790      (list gsettings-desktop-schemas))
5791     (native-inputs
5792      `(("intltool" ,intltool)
5793        ("itstool" ,itstool)
5794        ("gobject-introspection" ,gobject-introspection)
5795        ("glib:bin" ,glib "bin") ; for glib-mkmenus
5796        ("pkg-config" ,pkg-config)))
5797     (inputs
5798      (list amtk gsettings-desktop-schemas webkitgtk))
5799     (home-page "https://wiki.gnome.org/Apps/Devhelp")
5800     (synopsis "API documentation browser for GNOME")
5801     (description
5802      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
5803 natively with GTK-Doc (the API reference system developed for GTK+ and used
5804 throughout GNOME for API documentation).")
5805     (license license:gpl2+)))
5806
5807 (define-public devhelp-with-libsoup2
5808   (package/inherit devhelp
5809     (arguments
5810      (substitute-keyword-arguments (package-arguments devhelp)
5811        ((#:phases phases '%standard-phases)
5812         `(modify-phases %standard-phases
5813            (add-after 'unpack 'skip-gtk-update-icon-cache
5814              ;; Don't create 'icon-theme.cache'.
5815              (lambda _
5816                (substitute* "build-aux/meson/meson_post_install.py"
5817                  (("gtk-update-icon-cache") "true"))))))))
5818     (inputs
5819      `(("amtk" ,amtk)
5820        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5821        ("webkitgtk" ,webkitgtk-with-libsoup2)))))
5822
5823 (define-public cogl
5824   (package
5825     (name "cogl")
5826     (version "1.22.8")
5827     (source
5828      (origin
5829        (method url-fetch)
5830        (uri (string-append "mirror://gnome/sources/cogl/"
5831                            (version-major+minor version) "/"
5832                            "cogl-" version ".tar.xz"))
5833        (sha256
5834         (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
5835     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
5836     ;; cogl, corresponding changes may be appropriate in mutter as well.
5837     (build-system gnu-build-system)
5838     (native-inputs
5839      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5840        ("gobject-introspection" ,gobject-introspection)
5841        ("xorg-server" ,xorg-server-for-tests)
5842        ("pkg-config" ,pkg-config)))
5843     (propagated-inputs
5844      (list glib
5845            gdk-pixbuf
5846            libx11
5847            libxext
5848            libxfixes
5849            libxdamage
5850            libxcomposite
5851            libxrandr))
5852     (inputs
5853      (list mesa
5854            cairo
5855            pango
5856            gstreamer
5857            gst-plugins-base
5858            wayland))
5859     (arguments
5860      `(#:disallowed-references (,xorg-server-for-tests)
5861        #:configure-flags (list "--enable-cogl-gst"
5862                                "--enable-wayland-egl-platform"
5863                                "--enable-wayland-egl-server"
5864
5865                                ;; Arrange to pass an absolute file name to
5866                                ;; dlopen for libGL.so.
5867                                (string-append "--with-gl-libname="
5868                                               (assoc-ref %build-inputs "mesa")
5869                                               "/lib/libGL.so"))
5870        #:phases
5871        (modify-phases %standard-phases
5872          (add-after 'unpack 'fix-build-with-mesa-20
5873            (lambda _
5874              ;; Work around a problem with Mesa 20 where some macros used by
5875              ;; Cogl went missing from eglext.h.  This can likely be removed
5876              ;; for newer versions of Cogl or Mesa.
5877              ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
5878              (substitute* '("configure"
5879                             "cogl/winsys/cogl-winsys-egl-kms.c")
5880                (("#include <EGL/eglext.h>" all)
5881                 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
5882              #t))
5883          (add-before 'check 'start-xorg-server
5884            (lambda* (#:key tests? inputs #:allow-other-keys)
5885              (if tests?
5886                  (begin
5887                    ;; The test suite requires a running X server.
5888                    (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
5889                                    (assoc-ref inputs "xorg-server")))
5890                    (setenv "DISPLAY" ":1")
5891                    #t)
5892                  (format #t "test suite not run~%"))
5893              #t)))))
5894     (home-page "http://www.clutter-project.org")
5895     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
5896     (description
5897      "Cogl is a small library for using 3D graphics hardware to draw pretty
5898 pictures.  The API departs from the flat state machine style of OpenGL and is
5899 designed to make it easy to write orthogonal components that can render
5900 without stepping on each others toes.")
5901     (license (list license:expat       ; most of the code
5902                    license:bsd-3       ; cogl/cogl-point-in-poly.c
5903                    license:sgifreeb2.0 ; cogl-path/tesselator/
5904                    license:asl2.0))))  ; examples/android/
5905
5906 (define-public clutter
5907   (package
5908     (name "clutter")
5909     (version "1.26.2")
5910     (source
5911      (origin
5912        (method url-fetch)
5913        (uri (string-append "mirror://gnome/sources/" name "/"
5914                            (version-major+minor version) "/"
5915                            name "-" version ".tar.xz"))
5916        (sha256
5917         (base32
5918          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
5919     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
5920     ;; to clutter, corresponding changes may be appropriate in mutter as well.
5921     (build-system gnu-build-system)
5922     (outputs '("out"
5923                "doc"))                            ;9 MiB of gtk-doc HTML pages
5924     (native-inputs
5925      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
5926        ("gobject-introspection" ,gobject-introspection)
5927        ("pkg-config" ,pkg-config)
5928        ("xsltproc" ,libxslt)))
5929     (propagated-inputs
5930      (list cogl
5931            cairo
5932            atk
5933            gtk+
5934            json-glib
5935            glib
5936            libxcomposite
5937            libxdamage
5938            libxext
5939            xinput))
5940     (inputs
5941      `(("libxkbcommon" ,libxkbcommon)
5942        ("udev" ,eudev)))
5943     (arguments
5944      `(#:configure-flags (list "--enable-x11-backend=yes"
5945
5946                                ;; This produces share/doc/{clutter,cally}.
5947                                (string-append "--with-html-dir="
5948                                               (assoc-ref %outputs "doc")
5949                                               "/share/doc"))
5950        ;; XXX FIXME: Get test suite working.  It would probably fail in the
5951        ;; same way the cogl tests fail, since clutter is based on cogl.
5952        #:tests? #f))
5953     (home-page "http://www.clutter-project.org")
5954     (synopsis "OpenGL-based interactive canvas library")
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-gtk
5962   (package
5963     (name "clutter-gtk")
5964     (version "1.8.4")
5965     (source
5966      (origin
5967        (method url-fetch)
5968        (uri (string-append "mirror://gnome/sources/" name "/"
5969                            (version-major+minor version) "/"
5970                            name "-" version ".tar.xz"))
5971        (sha256
5972         (base32
5973          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
5974     (build-system gnu-build-system)
5975     (native-inputs
5976      (list pkg-config gobject-introspection))
5977     (propagated-inputs
5978      ;; clutter-gtk.pc refers to all these.
5979      (list clutter gtk+))
5980     (home-page "http://www.clutter-project.org")
5981     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
5982     (description
5983      "Clutter is an OpenGL-based interactive canvas library, designed for
5984 creating fast, mainly 2D single window applications such as media box UIs,
5985 presentations, kiosk style applications and so on.")
5986     (license license:lgpl2.0+)))
5987
5988 (define-public clutter-gst
5989   (package
5990     (name "clutter-gst")
5991     (version "3.0.27")
5992     (source
5993      (origin
5994        (method url-fetch)
5995        (uri (string-append "mirror://gnome/sources/clutter-gst/"
5996                            (version-major+minor version) "/"
5997                            "clutter-gst-" version ".tar.xz"))
5998        (sha256
5999         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
6000     (build-system gnu-build-system)
6001     (native-inputs
6002      (list `(,glib "bin") ; for glib-mkenums
6003            pkg-config gobject-introspection))
6004     (inputs
6005      (list clutter gstreamer gst-plugins-base))
6006     (home-page "http://www.clutter-project.org")
6007     (synopsis "Integration library for using GStreamer with Clutter")
6008     (description
6009      "Clutter-Gst is an integration library for using GStreamer with Clutter.
6010 It provides a GStreamer sink to upload frames to GL and an actor that
6011 implements the ClutterGstPlayer interface using playbin.  Clutter is an
6012 OpenGL-based interactive canvas library.")
6013     (license license:lgpl2.0+)))
6014
6015 (define-public libchamplain
6016   (package
6017     (name "libchamplain")
6018     (version "0.12.20")
6019     (source (origin
6020               (method url-fetch)
6021               (uri (string-append
6022                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
6023                     version ".tar.xz"))
6024               (sha256
6025                (base32
6026                 "0rihpb0npqpihqcdz4w03rq6xl7jdckfqskvv9diq2hkrnzv8ch2"))))
6027     (build-system meson-build-system)
6028     (native-inputs
6029      (list gobject-introspection pkg-config vala))
6030     (propagated-inputs
6031      (list libsoup-minimal-2
6032            sqlite
6033            clutter
6034            clutter-gtk
6035            `(,glib "bin") ;glib-mkenums, etc.
6036            cairo
6037            gtk+
6038            glib))
6039     (home-page "https://projects.gnome.org/libchamplain/")
6040     (synopsis "C library providing a ClutterActor to display maps")
6041     (description
6042      "libchamplain is a C library providing a ClutterActor to display maps.
6043 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
6044 and Perl bindings are also available.  It supports numerous free map sources
6045 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
6046     (license license:lgpl2.1+)))
6047
6048 (define-public gom
6049   (package
6050     (name "gom")
6051     (version "0.3.2")
6052     (source
6053      (origin
6054        (method url-fetch)
6055        (uri (string-append "mirror://gnome/sources/gom/"
6056                            (version-major+minor version) "/"
6057                            "gom-" version ".tar.xz"))
6058        (sha256
6059         (base32
6060          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
6061     (build-system gnu-build-system)
6062     (native-inputs
6063      (list intltool pkg-config gobject-introspection))
6064     (inputs
6065      (list glib gdk-pixbuf sqlite))
6066     ;; XXX TODO: Figure out how to run the test suite.
6067     (arguments `(#:tests? #f))
6068     (home-page "https://wiki.gnome.org/Projects/Gom")
6069     (synopsis "Object mapper from GObjects to SQLite")
6070     (description
6071      "Gom provides an object mapper from GObjects to SQLite.  It helps you
6072 write applications that need to store structured data as well as make complex
6073 queries upon that data.")
6074     (license license:lgpl2.1+)))
6075
6076 (define-public libgnome-games-support
6077   (package
6078     (name "libgnome-games-support")
6079     (version "1.7.1")
6080     (source (origin
6081               (method url-fetch)
6082               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
6083                                   (version-major+minor version) "/"
6084                                   "libgnome-games-support-" version ".tar.xz"))
6085               (sha256
6086                (base32
6087                 "11g1r3ppb9v8m3anks9gxf7fv1x38vmjiya3lr7zjjv328pb69d6"))))
6088     (build-system meson-build-system)
6089     (arguments
6090       '(#:glib-or-gtk? #t
6091         #:phases
6092           (modify-phases %standard-phases
6093             (add-before 'check 'pre-check
6094               (lambda _
6095                 ;; Tests require a writable HOME.
6096                 (setenv "HOME" (getcwd))
6097                 #t)))))
6098     (native-inputs
6099      (list intltool pkg-config vala))
6100     (propagated-inputs
6101      ;; Required by libgnome-games-support-1.0.pc
6102      (list gtk+ libgee))
6103     (home-page "https://www.gnome.org/")
6104     (synopsis "Useful functionality shared among GNOME games")
6105     (description
6106      "libgnome-games-support is a small library intended for internal use by
6107 GNOME Games, but it may be used by others.")
6108     (license license:lgpl3+)))
6109
6110 (define-public gnome-klotski
6111   (package
6112     (name "gnome-klotski")
6113     (version "3.34.0")
6114     (source (origin
6115               (method url-fetch)
6116               (uri (string-append "mirror://gnome/sources/" name "/"
6117                                   (version-major+minor version) "/"
6118                                   name "-" version ".tar.xz"))
6119               (sha256
6120                (base32
6121                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
6122     (build-system meson-build-system)
6123     (arguments
6124      '(#:glib-or-gtk? #t
6125        #:phases
6126        (modify-phases %standard-phases
6127          (add-after 'unpack 'skip-gtk-update-icon-cache
6128            ;; Don't create 'icon-theme.cache'.
6129            (lambda _
6130              (substitute* "build-aux/meson_post_install.py"
6131                (("gtk-update-icon-cache") (which "true")))
6132              #t)))))
6133     (native-inputs
6134      `(("desktop-file-utils" ,desktop-file-utils)
6135        ("glib:bin" ,glib "bin") ; for glib-compile-resources
6136        ("intltool" ,intltool)
6137        ("itstool" ,itstool)
6138        ("pkg-config" ,pkg-config)
6139        ("vala" ,vala)
6140        ("xmllint" ,libxml2)))
6141     (inputs
6142      (list gtk+ libgnome-games-support librsvg))
6143     (home-page "https://wiki.gnome.org/Apps/Klotski")
6144     (synopsis "Sliding block puzzles")
6145     (description
6146      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
6147 the patterned block to the area bordered by green markers.  To do so, you will
6148 need to slide other blocks out of the way.  Complete each puzzle in as few moves
6149 as possible!")
6150     (license license:gpl2+)))
6151
6152 (define-public grilo
6153   (package
6154     (name "grilo")
6155     (version "0.3.13")
6156     (source
6157      (origin
6158        (method url-fetch)
6159        (uri (string-append "mirror://gnome/sources/grilo/"
6160                            (version-major+minor version) "/"
6161                            "grilo-" version ".tar.xz"))
6162        (sha256
6163         (base32 "0ywjvh7xw4ql1q4fvl0q5n06n08pga1g1nc9l7c3x5214gr3fj6i"))))
6164     (build-system meson-build-system)
6165     (native-inputs
6166      (list `(,glib "bin") ; for glib-mkenums and glib-genmarshal
6167            intltool
6168            pkg-config
6169            gobject-introspection
6170            gtk-doc/stable
6171            vala))
6172     (inputs
6173      (list cyrus-sasl
6174            glib
6175            gtk+
6176            libxml2
6177            liboauth
6178            libsoup-minimal-2
6179            totem-pl-parser))
6180     (native-search-paths
6181      (list (search-path-specification
6182             (variable "GRL_PLUGIN_PATH")
6183             (files (list (string-append "lib/grilo-"
6184                                         (version-major+minor version)))))))
6185     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
6186     (synopsis "Framework for discovering and browsing media")
6187     (description
6188      "Grilo is a framework focused on making media discovery and browsing easy
6189 for application developers.")
6190     (license license:lgpl2.1+)))
6191
6192 (define-public grilo-plugins
6193   (package
6194     (name "grilo-plugins")
6195     (version "0.3.13")
6196     (source
6197      (origin
6198        (method url-fetch)
6199        (uri (string-append "mirror://gnome/sources/" name "/"
6200                            (version-major+minor version) "/"
6201                            name "-" version ".tar.xz"))
6202        (sha256
6203         (base32 "1y10nnd711qxwgpz6spzp1rnk50fyf11kk1n71a31ab4fgb0ahqw"))))
6204     (build-system meson-build-system)
6205     (native-inputs
6206      `(("gettext" ,gettext-minimal)
6207        ("glib:bin" ,glib "bin")
6208        ("gtk+:bin" ,gtk+ "bin")
6209        ("itstool" ,itstool)
6210        ("pkg-config" ,pkg-config)))
6211     ;; TODO: ahavi, gstreamer
6212     (inputs
6213      `(("grilo" ,grilo)
6214        ;("gmime" ,gmime) ; unused
6215        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6216        ("gom" ,gom)
6217        ;("gssdp" ,gssdp) ; unused
6218        ;("gupnp" ,gupnp) ; unused
6219        ;("gupnp-av" ,gupnp-av) ; unused
6220        ("json-glib" ,json-glib)
6221        ("avahi" ,avahi)
6222        ("libgdata" ,libgdata)
6223        ("libmediaart" ,libmediaart)
6224        ;("librest" ,rest) ; unused
6225        ("libsoup" ,libsoup)
6226        ("python-pygobject" ,python-pygobject)
6227        ("totam-pl-parser" ,totem-pl-parser)
6228        ("tracker" ,tracker)
6229        ("tracker-miners" ,tracker-miners)))
6230     (arguments
6231      `(#:glib-or-gtk? #t
6232        ;;Disable lua-factory as it needs missing dependencies
6233        #:configure-flags '("-Denable-lua-factory=no")
6234        #:phases
6235        (modify-phases %standard-phases
6236          (add-before 'configure 'set-shell
6237            (lambda _
6238              (setenv "SHELL" (which "bash"))))
6239          ;; Disable the tracker test that requires the UPower daemon.
6240          (add-before 'configure 'fix-tests
6241            (lambda* (#:key inputs #:allow-other-keys)
6242              (substitute* "tests/tracker3/meson.build"
6243                (("'test_tracker3'.*") "")))))))
6244     (home-page "https://live.gnome.org/Grilo")
6245     (synopsis "Plugins for the Grilo media discovery library")
6246     (description
6247      "Grilo is a framework focused on making media discovery and browsing easy
6248 for application developers.  This package provides plugins for common media
6249 discovery protocols.")
6250     (license license:lgpl2.1+)))
6251
6252 (define-public totem
6253   (package
6254     (name "totem")
6255     (version "42.0")
6256     (source
6257      (origin
6258        (method url-fetch)
6259        (uri (string-append "mirror://gnome/sources/totem/"
6260                            (version-major version) "/"
6261                            "totem-" version ".tar.xz"))
6262        (sha256
6263         (base32 "1az6ay7zhz2naqrzcfldx1yv2ylw1yjx76g3mqrqppwmvcflkw2a"))))
6264     (build-system meson-build-system)
6265     (native-inputs
6266      (list pkg-config
6267            desktop-file-utils
6268            gettext-minimal
6269            gobject-introspection
6270            `(,glib "bin")               ;for 'glib-mkenums'
6271            itstool
6272            libxml2
6273            xorg-server-for-tests))
6274     (propagated-inputs
6275      (list dconf))
6276     (inputs
6277      (list gtk+
6278            gdk-pixbuf
6279            atk
6280            cairo
6281            dbus-glib
6282            xorgproto
6283            libxxf86vm
6284            libxtst
6285            libxrandr
6286            libxml2
6287            libsoup
6288            libpeas
6289            librsvg
6290            libhandy
6291            gnome-desktop
6292            gstreamer
6293            gst-plugins-base
6294            gst-plugins-good
6295            gsettings-desktop-schemas
6296            adwaita-icon-theme
6297            python
6298            python-pygobject
6299            totem-pl-parser
6300            grilo
6301            grilo-plugins
6302            vala))
6303     (arguments
6304      (list
6305       #:glib-or-gtk? #t
6306       ;; Disable automatic GStreamer plugin installation via PackageKit and
6307       ;; all that.
6308       #:configure-flags #~(list "-Denable-easy-codec-installation=no"
6309                                 ;; Do not build .a files for the plugins, it's
6310                                 ;; completely useless.  This saves 2 MiB.
6311                                 "--default-library" "shared")
6312       #:phases
6313       #~(modify-phases %standard-phases
6314           (add-after 'unpack 'skip-gtk-update-icon-cache
6315             ;; Don't create 'icon-theme.cache'.
6316             (lambda _
6317               (substitute* "meson_post_install.py"
6318                 (("gtk-update-icon-cache") "true"))))
6319          (add-before 'install 'disable-cache-generation
6320            (lambda _
6321              (setenv "DESTDIR" "/")))
6322          (add-before 'check 'pre-check
6323            (lambda _
6324              ;; Tests require a running X server.
6325              (system "Xvfb :1 &")
6326              (setenv "DISPLAY" ":1")))
6327          (add-after 'install 'wrap-totem
6328            (lambda* (#:key inputs outputs #:allow-other-keys)
6329              (let ((out             (assoc-ref outputs "out"))
6330                    (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
6331                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6332                    (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6333                (wrap-program (string-append out "/bin/totem")
6334                  `("GI_TYPELIB_PATH"        ":" suffix (,gi-typelib-path))
6335                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6336                  `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
6337                (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6338                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))))))))
6339     (home-page "https://wiki.gnome.org/Apps/Videos")
6340     (synopsis "Simple media player for GNOME based on GStreamer")
6341     (description "Totem is a simple yet featureful media player for GNOME
6342 which can read a large number of file formats.")
6343     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6344     ;; to be used and distributed together with GStreamer and Totem.  See
6345     ;; file://COPYING in the source distribution for details.
6346     (license license:gpl2+)))
6347
6348 (define-public rhythmbox
6349  (package
6350    (name "rhythmbox")
6351    (version "3.4.4")
6352    (source (origin
6353             (method url-fetch)
6354             (uri (string-append "mirror://gnome/sources/rhythmbox/"
6355                                 (version-major+minor version) "/"
6356                                 "rhythmbox-" version ".tar.xz"))
6357             (sha256
6358              (base32
6359               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
6360    (build-system glib-or-gtk-build-system)
6361    (arguments
6362     `(#:configure-flags
6363       (list "--enable-lirc"
6364             "--enable-python"
6365             "--enable-vala"
6366             "--with-brasero"
6367             "--with-gudev"
6368             "--with-libsecret")
6369       #:phases
6370       (modify-phases %standard-phases
6371         (add-after
6372          'install 'wrap-rhythmbox
6373          (lambda* (#:key inputs outputs #:allow-other-keys)
6374            (let ((out               (assoc-ref outputs "out"))
6375                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6376                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
6377                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
6378                  (python-path       (getenv "GUIX_PYTHONPATH")))
6379              (wrap-program (string-append out "/bin/rhythmbox")
6380                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
6381                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6382                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
6383                `("GUIX_PYTHONPATH"             ":" prefix (,python-path))))
6384            #t)))))
6385    (propagated-inputs
6386     (list dconf))
6387    (native-inputs
6388     `(("itstool" ,itstool)
6389       ("intltool" ,intltool)
6390       ("glib" ,glib "bin")
6391       ("gobject-introspection" ,gobject-introspection)
6392       ("desktop-file-utils" ,desktop-file-utils)
6393       ("pkg-config" ,pkg-config)
6394       ("xmllint" ,libxml2)))
6395    (inputs
6396     `(("json-glib" ,json-glib)
6397       ("tdb" ,tdb)
6398       ("gnome-desktop" ,gnome-desktop)
6399       ("python" ,python)
6400       ("python-pygobject" ,python-pygobject)
6401       ("vala" ,vala)
6402       ("gmime" ,gmime)
6403       ("adwaita-icon-theme" ,adwaita-icon-theme)
6404       ("grilo" ,grilo)
6405       ("grilo-plugins" ,grilo-plugins)
6406       ("gstreamer" ,gstreamer)
6407       ("gst-plugins-base" ,gst-plugins-base)
6408       ("gst-plugins-good" ,gst-plugins-good)
6409       ("totem-pl-parser" ,totem-pl-parser)
6410       ("libgudev" ,libgudev)
6411       ;;("libmtp" ,libmtp) FIXME: Not detected
6412       ("libsecret" ,libsecret)
6413       ("libsoup" ,libsoup)
6414       ("libnotify" ,libnotify)
6415       ("libpeas" ,libpeas)
6416       ("libsoup" ,libsoup-minimal-2)
6417       ("lirc" ,lirc)
6418       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6419       ;;("clutter" ,clutter)
6420       ;;("clutter-gtk" ,clutter-gtk)
6421       ;;("clutter-gst" ,clutter-gst)
6422       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6423       ("atk" ,atk)
6424       ("pango" ,pango)
6425       ("gtk+" ,gtk+)
6426       ;; TODO:
6427       ;;  * libgpod
6428       ;;  * mx
6429       ("brasero" ,brasero)))
6430    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6431    (synopsis "Music player for GNOME")
6432    (description "Rhythmbox is a music playing application for GNOME.  It
6433 supports playlists, song ratings, and any codecs installed through gstreamer.")
6434    (license license:gpl2+)))
6435
6436 (define-public eog
6437  (package
6438    (name "eog")
6439    (version "40.3")
6440    (source (origin
6441             (method url-fetch)
6442             (uri (string-append "mirror://gnome/sources/" name "/"
6443                                 (version-major version) "/"
6444                                 name "-" version ".tar.xz"))
6445             (sha256
6446              (base32
6447               "0ddjwcd77nw0rxb5x5bz5hd671m8gya9827p8rsnb58x103kpai8"))
6448             ;; XXX: Remove when upgrading to 42.0
6449             (patches (search-patches "eog-update-libportal-usage.patch"))))
6450    (build-system meson-build-system)
6451    (arguments
6452     `(#:glib-or-gtk? #t
6453       #:configure-flags
6454       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6455       (list (string-append "-Dc_link_args=-Wl,-rpath="
6456                            (assoc-ref %outputs "out") "/lib/eog"))
6457       #:phases
6458       (modify-phases %standard-phases
6459          (add-after 'unpack 'skip-gtk-update-icon-cache
6460            ;; Don't create 'icon-theme.cache'.
6461            (lambda _
6462              (substitute* "meson_post_install.py"
6463                (("gtk-update-icon-cache") "true"))))
6464         (add-after 'install 'wrap-eog
6465           (lambda* (#:key outputs #:allow-other-keys)
6466             (let ((out               (assoc-ref outputs "out"))
6467                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6468               (wrap-program (string-append out "/bin/eog")
6469                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
6470    (propagated-inputs
6471     (list dconf))
6472    (native-inputs
6473     `(("intltool" ,intltool)
6474       ("itstool" ,itstool)
6475       ("glib" ,glib "bin")
6476       ("gobject-introspection" ,gobject-introspection)
6477       ("pkg-config" ,pkg-config)
6478       ("xmllint" ,libxml2)))
6479    (inputs
6480     `(("gnome-desktop" ,gnome-desktop)
6481       ("shared-mime-info" ,shared-mime-info)
6482       ("adwaita-icon-theme" ,adwaita-icon-theme)
6483       ("exempi" ,exempi)
6484       ("lcms" ,lcms)
6485       ("libexif" ,libexif)
6486       ("libpeas" ,libpeas)
6487       ("libportal" ,libportal)
6488       ("libjpeg" ,libjpeg-turbo)
6489       ("librsvg" ,librsvg)
6490       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6491       ("gtk+" ,gtk+)))
6492    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6493    (synopsis "GNOME image viewer")
6494    (description "Eye of GNOME is the GNOME image viewer.  It
6495 supports image conversion, rotation, and slideshows.")
6496    (license license:gpl2+)))
6497
6498 (define-public eog-plugins
6499   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6500   ;; $DATA/eog/plugins, where DATA is one of the entries in
6501   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
6502   ;; 'XDG_DATA_DIRS' appropriately set.
6503   (package
6504     (name "eog-plugins")
6505     (version "3.26.8")
6506     (source (origin
6507               (method url-fetch)
6508               (uri (string-append "mirror://gnome/sources/eog-plugins/"
6509                                   (version-major+minor version) "/"
6510                                   "eog-plugins-" version ".tar.xz"))
6511               (sha256
6512                (base32
6513                 "1dcxdjp7x092wn0iq7975f9b05ksb5kl5mxmyiqmydrja91ryw40"))))
6514     (build-system gnu-build-system)
6515     (arguments
6516      '(#:phases
6517        (modify-phases %standard-phases
6518          (add-after 'install 'fix-plugins-path
6519            ;; XXX: EOG looks its plugins in "share/eog/plugins", not in
6520            ;; "lib/eog/plugins".
6521            (lambda* (#:key outputs #:allow-other-keys)
6522              (let* ((out (assoc-ref outputs "out"))
6523                     (plugins (string-append out "/share/eog/plugins")))
6524                (mkdir (dirname plugins))
6525                (symlink (string-append out "/lib/eog/plugins") plugins)))))))
6526     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6527     (synopsis "Extensions for the Eye of GNOME image viewer")
6528     (native-inputs
6529      (list pkg-config gettext-minimal))
6530     (inputs
6531      (list eog
6532            glib
6533            gtk+
6534            libpeas
6535            libexif
6536            libchamplain))
6537     (description
6538      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6539 notably:
6540
6541 @itemize
6542 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
6543 @item @dfn{Map}, which displays a map of where the picture was taken on the
6544 side panel;
6545 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6546 @end itemize\n")
6547
6548     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6549     ;; long suspicious byte stream that goes to a
6550     ;; ".gresource.eog_postasa_plugin" ELF section.
6551     (license license:gpl2+)))
6552
6553 (define-public libgudev
6554   (package
6555     (name "libgudev")
6556     (version "236")
6557     (source (origin
6558               (method url-fetch)
6559               (uri (string-append "mirror://gnome/sources/" name "/"
6560                                   version "/" name "-" version ".tar.xz"))
6561               (sha256
6562                (base32
6563                 "094mgjmwgsgqrr1i0vd20ynvlkihvs3vgbmpbrhswjsrdp86j0z5"))))
6564     (build-system meson-build-system)
6565     (native-inputs
6566      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6567        ("gobject-introspection" ,gobject-introspection)
6568        ("pkg-config" ,pkg-config)))
6569     (propagated-inputs
6570      (list glib ; in Requires of gudev-1.0.pc
6571            eudev))               ; in Requires.private of gudev-1.0.pc
6572     (inputs
6573      `(("udev" ,eudev)))
6574     (home-page "https://wiki.gnome.org/Projects/libgudev")
6575     (synopsis "GObject bindings for libudev")
6576     (description
6577      "This library provides GObject bindings for libudev.  It was originally
6578 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
6579     (license license:lgpl2.1+)))
6580
6581 (define-public gvfs
6582   (package
6583     (name "gvfs")
6584     (version "1.50.2")
6585     (source (origin
6586               (method url-fetch)
6587               (uri (string-append "mirror://gnome/sources/gvfs/"
6588                                   (version-major+minor version) "/"
6589                                   "gvfs-" version ".tar.xz"))
6590               (sha256
6591                (base32
6592                 "0pmc0vda1ksm9l7v64h4bm8qnv16amb7nifgy0882hzg2n62pmq3"))))
6593     (build-system meson-build-system)
6594     (arguments
6595      (list #:glib-or-gtk? #t
6596            #:configure-flags
6597            #~(list "-Dsystemduserunitdir=no"
6598                    "-Dtmpfilesdir=no"
6599                    ;; Otherwise, the RUNPATH will lack the final path component.
6600                    (string-append "-Dc_link_args=-Wl,-rpath="
6601                                   #$output "/lib/gvfs"))))
6602     (native-inputs
6603      (list `(,glib "bin")               ;for glib-genmarshal, etc.
6604            gettext-minimal
6605            gtk-doc/stable
6606            pkg-config
6607            libxslt))
6608     (inputs
6609      (list avahi
6610            docbook-xml-4.2
6611            docbook-xsl
6612            dbus
6613            elogind
6614            fuse-3
6615            gcr
6616            glib
6617            gnome-online-accounts
6618            gsettings-desktop-schemas
6619            libarchive
6620            libbluray
6621            libcap
6622            libcdio-paranoia
6623            libgcrypt
6624            libgdata
6625            libgphoto2
6626            libgudev
6627            libimobiledevice
6628            libmtp
6629            libnfs
6630            libsecret
6631            samba
6632            libsoup
6633            libxml2
6634            openssh
6635            polkit
6636            udisks))
6637     (home-page "https://wiki.gnome.org/gvfs/")
6638     (synopsis "Userspace virtual file system for GIO")
6639     (description
6640      "GVFS is a userspace virtual file system designed to work with the I/O
6641 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS
6642 support to all applications using the GIO API.  It also supports exposing the
6643 GVFS mounts to non-GIO applications using FUSE.
6644
6645 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6646 DAV, and others.")
6647     (license license:lgpl2.0+)))
6648
6649 (define-public gusb-minimal
6650   (package
6651     (name "gusb-minimal")
6652     (version "0.3.5")
6653     (source (origin
6654               (method git-fetch)
6655               (uri (git-reference
6656                     (url "https://github.com/hughsie/libgusb")
6657                     (commit version)))
6658               (file-name (git-file-name name version))
6659               (sha256
6660                (base32
6661                 "0ifhdqhpyxwsg0z9s1anj7cf5pya5qsqyp5ksh9n7mqwa4lrjkl8"))))
6662     (build-system meson-build-system)
6663     (arguments
6664      `(#:tests? #f          ;libusb fails to initialize.  Wonder what that is.
6665        #:configure-flags
6666        (cons "-Ddocs=false"
6667              (if ,(%current-target-system)
6668                  ;; Introspection data cannot currently be cross-compiled.
6669                  '("-Dintrospection=false"
6670                    ;; Requires introspection data.
6671                    "-Dvapi=false")
6672                  '()))))
6673     (native-inputs
6674      (list gobject-introspection pkg-config python vala))
6675     (propagated-inputs
6676      ;; Both of these are required by gusb.pc.
6677      (list glib libusb))
6678     (home-page "https://github.com/hughsie/libgusb")
6679     (synopsis "GLib binding for libusb1")
6680     (description
6681      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6682 asynchronous control, bulk and interrupt transfers with proper cancellation
6683 and integration into a mainloop.  This makes it easy to integrate low level
6684 USB transfers with your high-level application or system daemon.")
6685     (license license:lgpl2.1+)))
6686
6687 (define-public gusb
6688   (package/inherit gusb-minimal
6689     (name "gusb")
6690     (arguments
6691      (substitute-keyword-arguments (package-arguments gusb-minimal)
6692        ((#:configure-flags flags)
6693         `(cons "-Ddocs=true"
6694                (delete "-Ddocs=false" ,flags)))))
6695     (native-inputs
6696      (cons `("gtk-doc" ,gtk-doc/stable)
6697            (package-native-inputs gusb-minimal)))))
6698
6699 (define-public simple-scan
6700   (package
6701     (name "simple-scan")
6702     (version "40.7")
6703     (source
6704      (origin
6705        (method url-fetch)
6706        (uri (string-append "mirror://gnome/sources/simple-scan/"
6707                            (version-major version) "/"
6708                            "simple-scan-" version ".tar.xz"))
6709        (sha256
6710         (base32 "0lrxmk8xqvrb5gn5mpgqij133giwvrgavy49m55d7xssrd91hmbw"))))
6711     (build-system meson-build-system)
6712     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6713     (arguments
6714      `(#:glib-or-gtk? #t))
6715     (native-inputs
6716      (list gettext-minimal
6717            itstool
6718            `(,glib "bin")               ; glib-compile-schemas, etc.
6719            pkg-config
6720            python
6721            vala
6722            libxml2))
6723     (inputs
6724      (list gtk+
6725            zlib
6726            cairo
6727            colord
6728            gdk-pixbuf
6729            gusb
6730            libhandy
6731            sane-backends))
6732     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
6733     (synopsis "Document and image scanner")
6734     (description
6735      "Document Scanner is an easy-to-use application that lets you connect your
6736 scanner and quickly capture images and documents in an appropriate format.  It
6737 supports any scanner for which a suitable SANE driver is available, which is
6738 almost all of them.")
6739     (license license:gpl3+)))
6740
6741 (define-public eolie
6742   (package
6743     (name "eolie")
6744     (version "0.9.101")
6745     (source (origin
6746               (method url-fetch)
6747               (uri (string-append "https://adishatz.org/eolie/eolie-"
6748                                   version ".tar.xz"))
6749               (sha256
6750                (base32
6751                 "1v8n21y75abdzsnx5idyd0q6yfb6cd0sqbknlbkwh5fdgvjzyvwn"))))
6752     (build-system meson-build-system)
6753     (arguments
6754      `(#:glib-or-gtk? #t
6755        #:phases
6756        (modify-phases %standard-phases
6757          (add-after 'unpack 'skip-gtk-update-icon-cache
6758            ;; Don't create 'icon-theme.cache'.
6759            (lambda _
6760              (substitute* "meson_post_install.py"
6761                (("gtk-update-icon-cache") "true"))
6762              #t))
6763          (add-after 'wrap 'wrap-more
6764            (lambda* (#:key inputs outputs #:allow-other-keys)
6765              (let* ((out  (assoc-ref outputs "out"))
6766                     ;; These libraries must be on LD_LIBRARY_PATH.
6767                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6768                             "atk" "gtk+" "gsettings-desktop-schemas"
6769                             "gobject-introspection"))
6770                     (path (string-join
6771                            (map (lambda (lib)
6772                                   (string-append (assoc-ref inputs lib) "/lib"))
6773                                 libs)
6774                            ":")))
6775                (wrap-program (string-append out "/bin/eolie")
6776                  `("LD_LIBRARY_PATH" ":" prefix (,path))
6777                  `("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))
6778                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6779              #t)))))
6780     (native-inputs
6781      `(("intltool" ,intltool)
6782        ("itstool" ,itstool)
6783        ("pkg-config" ,pkg-config)
6784        ("python" ,python)
6785        ("glib:bin" ,glib "bin")))
6786     (inputs
6787      `(("gobject-introspection" ,gobject-introspection)
6788        ("glib-networking" ,glib-networking)
6789        ("cairo" ,cairo)
6790        ("gtk+" ,gtk+)
6791        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6792        ("python" ,python-wrapper)
6793        ("python-dateutil" ,python-dateutil)
6794        ("python-pyfxa" ,python-pyfxa)
6795        ("python-pygobject" ,python-pygobject)
6796        ("python-pycairo" ,python-pycairo)
6797        ("python-pycrypto" ,python-pycrypto)
6798        ("libhandy" ,libhandy)
6799        ("libsecret" ,libsecret)
6800        ("gtkspell3" ,gtkspell3)
6801        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6802        ("gnome-settings-daemon" ,gnome-settings-daemon) ; desktop-schemas are not enough
6803        ("webkitgtk" ,webkitgtk)))
6804     (home-page "https://wiki.gnome.org/Apps/Eolie")
6805     (synopsis "Web browser for GNOME")
6806     (description
6807      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
6808 a secret password store, an adblocker, and a modern UI.")
6809     (license license:gpl3+)))
6810
6811 (define-public epiphany
6812   (package
6813     (name "epiphany")
6814     (version "42.2")
6815     (source (origin
6816               (method url-fetch)
6817               (uri (string-append "mirror://gnome/sources/epiphany/"
6818                                   (version-major version) "/"
6819                                   "epiphany-" version ".tar.xz"))
6820               (sha256
6821                (base32
6822                 "0b8rhns3b58f8dnp83mm1g933aqf88d8wrfyyp7jq3fihvw2rh4j"))))
6823     (build-system meson-build-system)
6824     (arguments
6825      (list
6826       #:glib-or-gtk? #t
6827       #:phases
6828       #~(modify-phases %standard-phases
6829           (add-after 'unpack 'skip-gtk-update-icon-cache
6830             ;; Don't create 'icon-theme.cache'.
6831             (lambda _
6832               (substitute* "post_install.py"
6833                 (("gtk-update-icon-cache") "true"))))
6834           (add-after 'unpack 'disable-failing-tests
6835             (lambda _
6836               (substitute* "tests/meson.build"
6837                 ;; embed_shell fails, because webkitgtk apparently no longer
6838                 ;; supports overriding the ftp schema web_app_utils fails due
6839                 ;; to missing network access.
6840                 (("(embed_shell|web_app_utils)_test,")
6841                  "find_program('sh'), args: ['-c', 'exit 77'],"))))
6842           (add-before 'check 'pre-check
6843             (lambda _
6844               ;; Tests require a running X server.
6845               (system "Xvfb :1 &")
6846               (setenv "DISPLAY" ":1"))))
6847       #:configure-flags
6848       ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
6849       #~(list (string-append "-Dc_link_args=-Wl,-rpath="
6850                              #$output "/lib/epiphany"))))
6851     (propagated-inputs (list dconf))
6852     (native-inputs (list desktop-file-utils ; for update-desktop-database
6853                          `(,glib "bin") ; for glib-mkenums
6854                          intltool
6855                          itstool
6856                          pkg-config
6857                          libxml2
6858                          xorg-server-for-tests))
6859     (inputs (list avahi
6860                   gcr
6861                   librsvg ; for loading SVG files
6862                   glib-networking
6863                   gnome-desktop
6864                   gsettings-desktop-schemas
6865                   json-glib
6866                   iso-codes
6867                   libarchive
6868                   libdazzle
6869                   libhandy
6870                   libnotify
6871                   libportal
6872                   libsecret
6873                   libxslt
6874                   nettle ; for hogweed
6875                   sqlite
6876                   webkitgtk-with-libsoup2))
6877     (home-page "https://wiki.gnome.org/Apps/Web")
6878     (synopsis "GNOME web browser")
6879     (description
6880      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
6881 principles are simplicity and standards compliance.")
6882     (license license:gpl2+)))
6883
6884 (define-public d-feet
6885   (package
6886     (name "d-feet")
6887     (version "0.3.14")
6888     (source (origin
6889               (method url-fetch)
6890               (uri (string-append "mirror://gnome/sources/" name "/"
6891                                   (version-major+minor version) "/"
6892                                   name "-" version ".tar.xz"))
6893               (sha256
6894                (base32
6895                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
6896     (build-system glib-or-gtk-build-system)
6897     (arguments
6898      '(#:out-of-source? #f ; tests need to run in the source directory.
6899        #:phases
6900        (modify-phases %standard-phases
6901          (add-before
6902           'check 'pre-check
6903           (lambda _
6904             ;; The test suite requires a running X server.
6905             (system "Xvfb :1 &")
6906             (setenv "DISPLAY" ":1")
6907             ;; Don't fail on missing '/etc/machine-id'.
6908             (setenv "DBUS_FATAL_WARNINGS" "0")
6909             ;; tests.py and window.py don't meet E402:
6910             ;;   E402 module level import not at top of file
6911             (substitute* "src/tests/Makefile"
6912               (("--ignore=E123") "--ignore=E123,E402"))
6913             #t))
6914          (add-after
6915           'install 'wrap-program
6916           (lambda* (#:key outputs #:allow-other-keys)
6917             (let ((prog (string-append (assoc-ref outputs "out")
6918                                        "/bin/d-feet")))
6919               (wrap-program prog
6920                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
6921                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
6922               #t))))))
6923     (native-inputs
6924      `(("intltool" ,intltool)
6925        ("itstool" ,itstool)
6926        ("pkg-config" ,pkg-config)
6927        ("python-pep8" ,python-pep8)
6928        ("xmllint" ,libxml2)
6929        ("xorg-server" ,xorg-server-for-tests)))
6930     (inputs
6931      `(("gobject-introspection" ,gobject-introspection)
6932        ("gtk+" ,gtk+)
6933        ("python" ,python-wrapper)
6934        ("hicolor-icon-theme" ,hicolor-icon-theme)
6935        ("python-pygobject" ,python-pygobject)))
6936     (home-page "https://wiki.gnome.org/Apps/DFeet")
6937     (synopsis "D-Bus debugger")
6938     (description
6939      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
6940 of running programs and invoke methods on those interfaces.")
6941     (license license:gpl2+)))
6942
6943 (define-public yelp-xsl
6944   (package
6945     (name "yelp-xsl")
6946     (version "41.0")
6947     (source
6948      (origin
6949        (method url-fetch)
6950        (uri
6951         (string-append "mirror://gnome/sources/" name "/"
6952                        (version-major version) "/"
6953                        name "-" version ".tar.xz"))
6954        (sha256
6955         (base32 "19d46rkajvr0f04560vlrzwvac88x5j8ilvzwkawbn5vjg069kf8"))))
6956     (build-system gnu-build-system)
6957     (arguments
6958      `(#:configure-flags
6959        (list
6960         "--enable-doc")))
6961     (native-inputs
6962      `(("ducktype" ,mallard-ducktype)
6963        ("gettext" ,gettext-minimal)
6964        ("intltool" ,intltool)
6965        ("itstool" ,itstool)
6966        ("xmllint" ,libxml2)
6967        ("xsltproc" ,libxslt)))
6968     (synopsis "XSL stylesheets for Yelp")
6969     (description "Yelp-XSL is a collection of programs and data files to help
6970 you build, maintain, and distribute documentation.  It provides XSLT stylesheets
6971 that can be built upon for help viewers and publishing systems.  These
6972 stylesheets output JavaScript and CSS content, and reference images
6973 provided by yelp-xsl. It also redistributes copies of the jQuery and
6974 jQuery.Syntax JavaScript libraries.")
6975     (home-page "https://wiki.gnome.org/Apps/Yelp")
6976     (license
6977      (list
6978       ;; XSLT
6979       license:gpl2+
6980       ;; Images
6981       license:lgpl2.1+
6982       ;; JavaScript
6983       license:expat))))
6984
6985 (define-public yelp
6986   (package
6987     (name "yelp")
6988     (version "41.0")
6989     (source (origin
6990               (method url-fetch)
6991               (uri (string-append "mirror://gnome/sources/" name "/"
6992                                   (version-major version) "/"
6993                                   name "-" version ".tar.xz"))
6994               (sha256
6995                (base32
6996                 "11shrqass8ak8m10nayqssa6sbrrxa13ffpamvqi1c0yzkxdk9r5"))))
6997     (build-system glib-or-gtk-build-system)
6998     (native-inputs
6999      (list `(,glib "bin") ; for glib-genmarshal, etc.
7000            intltool itstool pkg-config))
7001     (propagated-inputs
7002      (list dconf))
7003     (inputs
7004      (list gsettings-desktop-schemas libxslt sqlite webkitgtk yelp-xsl))
7005     (home-page "https://wiki.gnome.org/Apps/Yelp")
7006     (synopsis "GNOME help browser")
7007     (description
7008      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
7009 man, info, and HTML documents.  It can locate documents according to the
7010 freedesktop.org help system specification.")
7011     (license license:gpl2+)))
7012
7013 (define-public yelp-tools
7014   (package
7015     (name "yelp-tools")
7016     (version "3.32.2")
7017     (source
7018      (origin
7019        (method url-fetch)
7020        (uri
7021         (string-append "mirror://gnome/sources/" name "/"
7022                        (version-major+minor version) "/"
7023                        name "-" version ".tar.xz"))
7024        (sha256
7025         (base32 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
7026     (build-system gnu-build-system)
7027     (native-inputs
7028      (list pkg-config))
7029     (inputs
7030      (list yelp-xsl))
7031     (propagated-inputs
7032      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
7033      `(("itstool" ,itstool)
7034        ("xmllint" ,libxml2)
7035        ("xsltproc" ,libxslt)))
7036     (synopsis "Yelp documentation tools")
7037     (description
7038      "Yelp-tools is a collection of scripts and build utilities to help create,
7039 manage, and publish documentation for Yelp and the web.  Most of the heavy
7040 lifting is done by packages like yelp-xsl and itstool.  This package just
7041 wraps things up in a developer-friendly way.")
7042     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
7043     (license license:gpl2+)))
7044
7045 (define-public libgee
7046   (package
7047     (name "libgee")
7048     (version "0.20.3")
7049     (source (origin
7050               (method url-fetch)
7051               (uri (string-append "mirror://gnome/sources/libgee/"
7052                                   (version-major+minor version) "/"
7053                                   "libgee-" version ".tar.xz"))
7054               (sha256
7055                (base32
7056                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
7057     (build-system gnu-build-system)
7058     (arguments
7059      `(#:phases
7060        (modify-phases %standard-phases
7061          (add-after 'unpack 'fix-introspection-install-dir
7062           (lambda* (#:key outputs #:allow-other-keys)
7063             (let ((out (assoc-ref outputs "out")))
7064               (substitute* "gee/Makefile.in"
7065                 (("@INTROSPECTION_GIRDIR@")
7066                  (string-append out "/share/gir-1.0/"))
7067                 (("@INTROSPECTION_TYPELIBDIR@")
7068                  (string-append out "/lib/girepository-1.0/")))))))))
7069     (native-inputs
7070      (list `(,glib "bin") pkg-config))
7071     (inputs
7072      (list glib gobject-introspection))
7073     (home-page "https://wiki.gnome.org/Projects/Libgee")
7074     (synopsis "GObject collection library")
7075     (description
7076      "Libgee is a utility library providing GObject-based interfaces and
7077 classes for commonly used data structures.")
7078     (license license:lgpl2.1+)))
7079
7080 (define-public gexiv2
7081   (package
7082     (name "gexiv2")
7083     (version "0.12.2")
7084     (source (origin
7085               (method url-fetch)
7086               (uri (string-append "mirror://gnome/sources/" name "/"
7087                                   (version-major+minor version) "/"
7088                                   name "-" version ".tar.xz"))
7089               (sha256
7090                (base32
7091                 "0k4ljzzz5dwqndw8awvlw3ala8rh3b2rk9i4jzvywc53mi9ba8i3"))))
7092     (build-system meson-build-system)
7093     (native-inputs
7094      (list gcr
7095            `(,glib "bin") pkg-config vala))
7096     (propagated-inputs
7097      ;; Listed in "Requires" section of gexiv2.pc
7098      (list exiv2))
7099     (inputs
7100      (list glib gobject-introspection))
7101     (home-page "https://wiki.gnome.org/Projects/gexiv2")
7102     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
7103     (description
7104      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
7105 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
7106 metadata in photo and video files of various formats.")
7107     (license license:gpl2+)))
7108
7109 (define-public shotwell
7110   (package
7111     (name "shotwell")
7112     (version "0.30.12")
7113     (source (origin
7114               (method url-fetch)
7115               (uri (string-append "mirror://gnome/sources/shotwell/"
7116                                   (version-major+minor version) "/"
7117                                   "shotwell-" version ".tar.xz"))
7118               (sha256
7119                (base32
7120                 "1h5crjq59lqi8f8mdkadzi8pc3i9i2ik4lsx2nrhzq486fzdfhw6"))))
7121     (build-system meson-build-system)
7122     (arguments
7123      '(#:glib-or-gtk? #t
7124        #:phases
7125        (modify-phases %standard-phases
7126          (add-after 'unpack 'skip-gtk-update-icon-cache
7127            (lambda _
7128              (substitute* "build-aux/meson/postinstall.py"
7129                (("gtk-update-icon-cache") (which "true"))
7130                (("update-desktop-database") (which "true")))
7131              #t)))))
7132     (propagated-inputs
7133      (list dconf))
7134     (native-inputs
7135      `(("gettext" ,gettext-minimal)
7136        ("glib:bin" ,glib "bin")
7137        ("itstool" ,itstool)
7138        ("pkg-config" ,pkg-config)
7139        ("python" ,python)
7140        ("vala" ,vala)))
7141     (inputs
7142      `(("gcr" ,gcr)
7143        ("gexiv2" ,gexiv2)
7144        ("gst-plugins-base" ,gst-plugins-base)
7145        ("gstreamer" ,gstreamer)
7146        ("json-glib" ,json-glib)
7147        ("libgdata" ,libgdata)
7148        ("libgee" ,libgee)
7149        ("libgphoto2" ,libgphoto2)
7150        ("libgudev" ,libgudev)
7151        ("libraw" ,libraw)
7152        ("libxml2" ,libxml2)
7153        ("sqlite" ,sqlite)
7154        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7155     (home-page "https://wiki.gnome.org/Apps/Shotwell")
7156     (synopsis "Photo manager for GNOME 3")
7157     (description
7158      "Shotwell is a digital photo manager designed for the GNOME desktop
7159 environment.  It allows you to import photos from disk or camera, organize
7160 them by keywords and events, view them in full-window or fullscreen mode, and
7161 share them with others via social networking and more.")
7162     (license license:lgpl2.1+)))
7163
7164 (define-public file-roller
7165   (package
7166     (name "file-roller")
7167     (version "3.40.0")
7168     (source (origin
7169               (method url-fetch)
7170               (uri (string-append "mirror://gnome/sources/file-roller/"
7171                                   (version-major+minor version) "/"
7172                                   "file-roller-" version ".tar.xz"))
7173               (sha256
7174                (base32
7175                 "039w1dcpa5ypmv6sm634alk9vbcdkyvy595vkh5gn032jsiqca2a"))))
7176     (build-system meson-build-system)
7177     (native-inputs
7178      (list desktop-file-utils ; for update-desktop-database
7179            intltool
7180            itstool
7181            pkg-config
7182            python
7183            `(,gtk+ "bin") ; gtk-update-icon-cache
7184            `(,glib "bin")))
7185     ;; TODO: Add libnautilus.
7186     (inputs
7187      (list gtk+
7188            gdk-pixbuf
7189            json-glib
7190            libarchive
7191            libnotify
7192            nettle
7193            libxml2))
7194     (synopsis "Graphical archive manager for GNOME")
7195     (description "File Roller is an archive manager for the GNOME desktop
7196 environment that allows users to view, unpack, and create compressed archives
7197 such as gzip tarballs.")
7198     (home-page "http://fileroller.sourceforge.net/")
7199     (license license:gpl2+)))
7200
7201 (define-public gnome-session
7202   (package
7203     (name "gnome-session")
7204     (version "40.1")
7205     (source (origin
7206               (method url-fetch)
7207               (uri (string-append "mirror://gnome/sources/" name "/"
7208                                   (version-major version) "/"
7209                                   name "-" version ".tar.xz"))
7210               (patches (search-patches "gnome-session-support-elogind.patch"))
7211               (sha256
7212                (base32
7213                 "02z0xr6sv9ibl7awbw9j4y05hf4jk1zgvsbbmh7n27hhjvsvc8pl"))))
7214     (arguments
7215      `(#:glib-or-gtk? #t
7216        #:phases
7217        (modify-phases %standard-phases
7218          (add-after 'install 'wrap-gnome-session
7219            (lambda* (#:key inputs outputs #:allow-other-keys)
7220              ;; Make sure 'gnome-session' finds the 'gsettings' program.
7221              (let ((glib (assoc-ref inputs "glib:bin"))
7222                    (out  (assoc-ref outputs "out")))
7223                (wrap-program (string-append out "/bin/gnome-session")
7224                  `("PATH" ":" prefix (,(string-append glib "/bin"))))))))
7225
7226        #:configure-flags
7227        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
7228          "-Dman=false" ; FIXME: disabled because of docbook validation error
7229          "-Delogind=true"
7230          "-Dsystemd=false"
7231          "-Dsystemd_session=disable"
7232          "-Dsystemd_journal=false")))
7233     (build-system meson-build-system)
7234     (native-inputs
7235      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7236        ("pkg-config" ,pkg-config)
7237        ("intltool" ,intltool)
7238        ("xsltproc" ,libxslt)
7239        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
7240        ("docbook-xsl" ,docbook-xsl)
7241        ("docbook-xml" ,docbook-xml)
7242        ("xmlto" ,xmlto)))
7243     (inputs
7244      (list elogind
7245            gnome-desktop
7246            gsettings-desktop-schemas
7247            gtk+
7248            json-glib
7249            libsm
7250            libxcomposite
7251            libxtst
7252            mesa
7253            upower
7254            xtrans))
7255     (synopsis "Session manager for GNOME")
7256     (description
7257      "This package contains the GNOME session manager, as well as a
7258 configuration program to choose applications starting on login.")
7259     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7260     (license license:gpl2+)))
7261
7262 (define-public gjs
7263   (package
7264     (name "gjs")
7265     (version "1.70.0")
7266     (source (origin
7267               (method url-fetch)
7268               (uri (string-append "mirror://gnome/sources/" name "/"
7269                                   (version-major+minor version) "/"
7270                                   name "-" version ".tar.xz"))
7271               (sha256
7272                (base32
7273                 "0pqwhq0znprs0h5ixz396912acwzk9zvjfhi9qvh52ii38s2j1jb"))
7274               (modules '((guix build utils)))
7275               (snippet
7276                '(begin
7277                   (substitute* "installed-tests/scripts/testCommandLine.sh"
7278                     (("Valentín") "")
7279                     (("☭") ""))))))
7280     (build-system meson-build-system)
7281     (arguments
7282      ;; Use meson-0.59, otherwise we'd get "ERROR: "install_dir" must be
7283      ;; specified when installing a target".
7284      `(#:meson ,meson-0.59
7285        #:configure-flags '("-Dinstalled_tests=false")
7286        #:phases
7287        (modify-phases %standard-phases
7288          (add-before 'check 'pre-check
7289            (lambda _
7290              ;; The test suite requires a running X server.
7291              (system "Xvfb :1 &")
7292              (setenv "DISPLAY" ":1")
7293
7294              ;; For the missing /etc/machine-id.
7295              (setenv "DBUS_FATAL_WARNINGS" "0"))))))
7296     (native-inputs
7297      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
7298        ("pkg-config" ,pkg-config)
7299        ("xmllint" ,libxml2)
7300        ;; For testing
7301        ("dbus-launch" ,dbus)
7302        ("dconf" ,dconf) ; required to properly store settings
7303        ("uuidgen" ,util-linux)
7304        ("xvfb" ,xorg-server-for-tests)))
7305     (propagated-inputs
7306      ;; These are all in the Requires.private field of gjs-1.0.pc.
7307      (list cairo gobject-introspection mozjs))
7308     (inputs
7309      (list gtk+ readline))
7310     (synopsis "Javascript bindings for GNOME")
7311     (home-page "https://live.gnome.org/Gjs")
7312     (description
7313      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
7314 javascript engine and the GObject introspection framework.")
7315     (license license:gpl2+)))
7316
7317 (define-public gedit
7318   (package
7319     (name "gedit")
7320     (version "40.1")
7321     (source (origin
7322               (method url-fetch)
7323               (uri (string-append "mirror://gnome/sources/" name "/"
7324                                   (version-major version) "/"
7325                                   name "-" version ".tar.xz"))
7326               (sha256
7327                (base32
7328                 "149ngl9qw6h59546lir1pa7hvw23ppsnqlj9mfqphmmn5jl99qsm"))))
7329     (build-system meson-build-system)
7330     (arguments
7331      `(#:glib-or-gtk? #t
7332        #:configure-flags
7333        ;; Otherwise, the RUNPATH will lack the final path component.
7334        (list (string-append "-Dc_link_args=-Wl,-rpath="
7335                             (assoc-ref %outputs "out") "/lib/gedit"))
7336
7337        ;; XXX: Generated .h files are sometimes used before being built.
7338        #:parallel-build? #f
7339
7340        #:phases
7341        (modify-phases %standard-phases
7342          (add-after 'unpack 'skip-gtk-update-icon-cache
7343            ;; Don't create 'icon-theme.cache'.
7344            (lambda _
7345              (substitute* "build-aux/meson/post_install.py"
7346                (("gtk-update-icon-cache") (which "true")))
7347              #t))
7348          (add-after 'unpack 'patch-libgd-fetch
7349            (lambda* (#:key inputs #:allow-other-keys)
7350              (let ((libgd (assoc-ref inputs "libgd")))
7351                ;; Calling git is unnecessary because libgd is fetched as a
7352                ;; native input to this package.
7353                (substitute* "meson.build"
7354                  ((".*git.*") ""))
7355                (copy-recursively libgd "subprojects/libgd")
7356                #t)))
7357          (add-after 'install 'wrap-gedit
7358            (lambda* (#:key inputs outputs #:allow-other-keys)
7359              (let ((out               (assoc-ref outputs "out"))
7360                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
7361                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
7362                    (python-path       (getenv "GUIX_PYTHONPATH")))
7363                (wrap-program (string-append out "/bin/gedit")
7364                  ;; For plugins.
7365                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7366                  `("GUIX_PYTHONPATH" ":" prefix (,python-path))
7367                  ;; For language-specs.
7368                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
7369                                                                "/share")))))
7370              #t)))))
7371     (propagated-inputs
7372      (list dconf))
7373     (native-inputs
7374      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7375        ("intltool" ,intltool)
7376        ("itstool" ,itstool)
7377        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7378        ("gobject-introspection" ,gobject-introspection)
7379        ("libgd"
7380         ,(origin
7381            (method git-fetch)
7382            (uri (git-reference
7383                  (url "https://gitlab.gnome.org/GNOME/libgd")
7384                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
7385            (file-name (git-file-name "libgd" version))
7386            (sha256
7387             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
7388        ("pkg-config" ,pkg-config)))
7389     (inputs
7390      (list amtk
7391            glib
7392            gspell
7393            gtk+
7394            gtksourceview
7395            libpeas
7396            libxml2
7397            iso-codes
7398            python-pygobject
7399            python
7400            tepl
7401            gsettings-desktop-schemas
7402            libx11
7403            vala
7404            adwaita-icon-theme
7405            libsoup
7406            gnome-desktop))
7407     (home-page "https://wiki.gnome.org/Apps/Gedit")
7408     (synopsis "GNOME text editor")
7409     (description "While aiming at simplicity and ease of use, gedit is a
7410 powerful general purpose text editor.")
7411     (license license:gpl2+)))
7412
7413 (define-public zenity
7414   (package
7415     (name "zenity")
7416     (version "3.32.0")
7417     (source (origin
7418               (method url-fetch)
7419               (uri (string-append "mirror://gnome/sources/zenity/"
7420                                   (version-major+minor version) "/"
7421                                   "zenity-" version ".tar.xz"))
7422               (sha256
7423                (base32
7424                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
7425     (build-system gnu-build-system)
7426     (native-inputs
7427      (list gettext-minimal itstool pkg-config))
7428     (inputs
7429      (list libnotify webkitgtk))
7430     (synopsis "Display graphical dialog boxes from shell scripts")
7431     (home-page "https://www.gnome.org")
7432     (description
7433      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7434 to display dialog boxes from the commandline and shell scripts.")
7435     (license license:lgpl2.0+)))
7436
7437 (define-public mutter
7438   (package
7439     (name "mutter")
7440     (version "41.0")
7441     (source (origin
7442               (method url-fetch)
7443               (uri (string-append "mirror://gnome/sources/" name "/"
7444                                   (version-major version) "/"
7445                                   name "-" version ".tar.xz"))
7446               (sha256
7447                (base32
7448                 "17pqrm48kddqrc3fl96n5knhaxyn0crg0zv7zpmqhk848jks307s"))))
7449     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7450     ;; versions of cogl and clutter.  As a result, many of the inputs,
7451     ;; propagated-inputs, and configure flags used in cogl and clutter are
7452     ;; needed here as well.
7453     (build-system meson-build-system)
7454     (arguments
7455      `(#:imported-modules (,@%meson-build-system-modules
7456                            (guix build syscalls))
7457        #:modules ((guix build meson-build-system)
7458                   (guix build syscalls)
7459                   (guix build utils)
7460                   (ice-9 match))
7461        #:glib-or-gtk? #t
7462        #:configure-flags
7463        (list
7464         ;; Otherwise, the RUNPATH will lack the final path component.
7465         (string-append "-Dc_link_args=-Wl,-rpath="
7466                        (assoc-ref %outputs "out") "/lib:"
7467                        (assoc-ref %outputs "out") "/lib/mutter-9")
7468         ;; Disable systemd support.
7469         "-Dsystemd=false"
7470         ;; The following flags are needed for the bundled clutter
7471         (string-append "-Dxwayland_path="
7472                        (assoc-ref %build-inputs "xorg-server-xwayland")
7473                        "/bin/Xwayland")
7474         ;; the remaining flags are needed for the bundled cogl
7475         (string-append "-Dopengl_libname="
7476                        (assoc-ref %build-inputs "mesa")
7477                        "/lib/libGL.so")
7478         (string-append "-Dgles2_libname="
7479                        (assoc-ref %build-inputs "mesa")
7480                        "/lib/libGLESv2.so")
7481         "-Degl_device=true"              ;false by default
7482         "-Dwayland_eglstream=true")      ;false by default
7483        #:test-options
7484        (list "--verbose")
7485        #:phases
7486        (modify-phases %standard-phases
7487          (add-after 'unpack 'patch-dlopen-calls
7488            (lambda* (#:key inputs #:allow-other-keys)
7489              (substitute* "src/wayland/meta-wayland-egl-stream.c"
7490                (("libnvidia-egl-wayland.so.1")
7491                 (string-append (assoc-ref inputs "egl-wayland")
7492                                "/lib/libnvidia-egl-wayland.so.1")))))
7493          (add-before 'configure 'set-udev-dir
7494            (lambda* (#:key inputs outputs #:allow-other-keys)
7495              (setenv "PKG_CONFIG_UDEV_UDEVDIR"
7496                      (string-append (assoc-ref outputs "out")
7497                                     "/lib/udev"))))
7498          (add-after 'unpack 'disable-problematic-tests
7499            (lambda _
7500              ;; The native-headless test hangs due to attempting to use audio,
7501              ;; unavailable in the container.
7502              ;; Note: the following sed expression deletes the whole test(...)
7503              ;; expression paragraph.  For an explanation, see: info '(sed)
7504              ;; Multiline techniques'.
7505              (invoke "sed" "/./{H;$!d} ; x ; s/^.*native-headless.*$//"
7506                      "-i" "src/tests/meson.build")
7507              ;; Timeline tests may unexpectedly fail on missed frames, so
7508              ;; let's disable them as well.
7509              ;; See <https://gitlab.gnome.org/GNOME/mutter/-/issues/2125>
7510              (substitute* "src/tests/clutter/conform/meson.build"
7511                (("'timeline.*',") ""))))
7512          (replace 'check
7513            (lambda* (#:key tests? test-options parallel-tests?
7514                      #:allow-other-keys)
7515              (when tests?
7516                ;; Setup (see the 'test-mutter' CI target at
7517                ;; https://gitlab.gnome.org/GNOME/mutter/-/raw/main/.gitlab-ci.yml).
7518                (setenv "XDG_RUNTIME_DIR" "runtime-dir")
7519                (setenv "GSETTINGS_SCHEMA_DIR" "data")
7520                (setenv "MUTTER_DEBUG_DUMMY_MODE_SPECS" "800x600@10.0")
7521                (setenv "PIPEWIRE_DEBUG" "2")
7522                (setenv "PIPEWIRE_LOG" "meson-logs/pipewire.log")
7523                (setenv "XVFB_SERVER_ARGS" "+iglx -noreset")
7524                (setenv "G_SLICE" "always-malloc")
7525                (setenv "MALLOC_CHECK" "3")
7526                (setenv "NO_AT_BRIDGE" "1")
7527                ;; This is needed, otherwise the "mutter:core+mutter/unit /
7528                ;; anonymous-file" test would fail (see:
7529                ;; https://gitlab.gnome.org/GNOME/mutter/-/issues/2017).
7530                (setenv "CI_JOB_ID" "1")
7531
7532                (invoke "glib-compile-schemas" (getenv "GSETTINGS_SCHEMA_DIR"))
7533                (mkdir-p (getenv "XDG_RUNTIME_DIR"))
7534                (chmod (getenv "XDG_RUNTIME_DIR") #o755)
7535                (invoke "pipewire" "--version") ;check for pipewire
7536                (system "pipewire &")    ;always returns 0 due to forking
7537
7538                (setenv "MESON_TESTTHREADS"
7539                        (if parallel-tests?
7540                            (number->string (parallel-job-count))
7541                            "1"))
7542                (match (primitive-fork)
7543                  (0                     ;child process
7544                   (set-child-subreaper!)
7545                   ;; Use tini so that signals are properly handled and
7546                   ;; doubly-forked processes get reaped; otherwise,
7547                   ;; python-dbusmock would waste time polling for the dbus
7548                   ;; processes it spawns to be reaped, in vain.
7549                   (apply execlp "tini" "--"
7550                          "dbus-run-session" "--"
7551                          "xvfb-run" "-a" "-s" (getenv "XVFB_SERVER_ARGS")
7552                          "meson" "test" "-t" "0" "--print-errorlogs"
7553                          test-options))
7554                  (pid
7555                   (match (waitpid pid)
7556                     ((_ . status)
7557                      (unless (zero? status)
7558                        (error "`meson test' exited with status"
7559                               status))))))))))))
7560     (native-inputs
7561      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7562        ("glib:bin" ,glib "bin")         ; for glib-compile-schemas, etc.
7563        ("gobject-introspection" ,gobject-introspection)
7564        ("intltool" ,intltool)
7565        ("pkg-config" ,pkg-config)
7566        ("xvfb-run" ,xvfb-run)
7567        ;; For git build
7568        ("autoconf" ,autoconf)
7569        ("automake" ,automake)
7570        ("libtool" ,libtool)
7571        ;; For tests.
7572        ;; Warnings are configured to be fatal during the tests; add an icon
7573        ;; theme to please libxcursor.
7574        ("adwaita-icon-theme" ,adwaita-icon-theme)
7575        ("libxcursor" ,libxcursor)       ;for XCURSOR_PATH
7576        ("pipewire" ,pipewire-0.3)
7577        ("python" ,python)
7578        ("python-dbus" ,python-dbus)
7579        ("python-dbusmock" ,python-dbusmock)
7580        ("tini" ,tini)))                 ;acting as init (zombie reaper)
7581     (propagated-inputs
7582      `( ;; libmutter.pc refers to these:
7583        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7584        ("gtk+" ,gtk+)
7585        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7586        ("atk" ,atk)
7587        ("cairo" ,cairo)
7588        ("gdk-pixbuf" ,gdk-pixbuf)
7589        ("glib" ,glib)
7590        ("json-glib" ,json-glib)
7591        ("libinput" ,libinput)
7592        ("libx11" ,libx11)
7593        ("libxcomposite" ,libxcomposite)
7594        ("libxcvt" ,libxcvt)
7595        ("libxdamage" ,libxdamage)
7596        ("libxext" ,libxext)
7597        ("libxfixes" ,libxfixes)
7598        ("libxkbcommon" ,libxkbcommon)
7599        ("libxml2" ,libxml2)
7600        ("libxrandr" ,libxrandr)
7601        ("mesa" ,mesa)
7602        ("pango" ,pango)
7603        ("udev" ,eudev)
7604        ("xinput" ,xinput)))
7605     (inputs
7606      `(("egl-wayland" ,egl-wayland)     ;for wayland-eglstream-protocols
7607        ("elogind" ,elogind)
7608        ("gnome-desktop" ,gnome-desktop)
7609        ("gnome-settings-daemon" ,gnome-settings-daemon)
7610        ("graphene" ,graphene)
7611        ("libcanberra-gtk" ,libcanberra)
7612        ("libgudev" ,libgudev)
7613        ("libice" ,libice)
7614        ("libsm" ,libsm)
7615        ("libwacom" ,libwacom)
7616        ("libxkbfile" ,libxkbfile)
7617        ("libxrandr" ,libxrandr)
7618        ("libxtst" ,libxtst)
7619        ("pipewire" ,pipewire-0.3)
7620        ("startup-notification" ,startup-notification)
7621        ("sysprof" ,sysprof)
7622        ("upower-glib" ,upower)
7623        ("xkeyboard-config" ,xkeyboard-config)
7624        ("xorg-server-xwayland" ,xorg-server-xwayland)
7625        ("zenity" ,zenity)))
7626     (synopsis "Window and compositing manager")
7627     (home-page "https://www.gnome.org")
7628     (description
7629      "Mutter is a window and compositing manager that displays and manages your
7630 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
7631 Clutter toolkit with solid window-management logic inherited from the Metacity
7632 window manager.")
7633     (license license:gpl2+)))
7634
7635 (define-public gnome-online-accounts
7636   (package
7637     (name "gnome-online-accounts")
7638     (version "3.43.1")
7639     (source (origin
7640               (method url-fetch)
7641               (uri (string-append "mirror://gnome/sources/" name "/"
7642                                   (version-major+minor version) "/"
7643                                   name "-" version ".tar.xz"))
7644               (sha256
7645                (base32
7646                 "1s5pmy3hx6hhnyi40r7b773py9kn2qbkxnpxv6149z9fl5ikdjrv"))))
7647     (outputs '("out" "lib"))
7648     (build-system glib-or-gtk-build-system)
7649     (arguments
7650      `(#:configure-flags
7651        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
7652        #:phases
7653        (modify-phases %standard-phases
7654          (add-before 'configure 'patch-libgoa-output
7655            (lambda* (#:key outputs #:allow-other-keys)
7656              (let ((lib (assoc-ref outputs "lib")))
7657                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
7658                  (("@prefix@") lib)
7659                  (("@exec_prefix@") lib)
7660                  (("@libdir@") (string-append lib "/lib"))
7661                  (("@includedir@") (string-append lib "/include"))
7662                  (("@datadir@") (string-append lib "/share")))
7663                ;; Make sure gobject-introspection knows about the output
7664                ;; too (see <https://bugs.gnu.org/36535>).
7665                (setenv "outputs" "out lib")))))))
7666     (native-inputs
7667      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7668        ("gobject-introspection" ,gobject-introspection)
7669        ("intltool" ,intltool)
7670        ("pkg-config" ,pkg-config)
7671        ("vala" ,vala)
7672        ("xsltproc" ,libxslt)))
7673     (propagated-inputs
7674      (list glib ; required by goa-1.0.pc
7675            gtk+))         ; required by goa-backend-1.0.pc
7676     (inputs
7677      `(("docbook-xsl" ,docbook-xsl)
7678        ("json-glib" ,json-glib)
7679        ("libsecret" ,libsecret)
7680        ("rest" ,rest)
7681        ;; WebKitGtk propagates libsoup 3, which causes the build to fail; so
7682        ;; use a special variant.
7683        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7684     (synopsis "Single sign-on framework for GNOME")
7685     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7686     (description
7687      "GNOME Online Accounts provides interfaces so that applications and
7688 libraries in GNOME can access the user's online accounts.  It has providers
7689 for Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare,
7690 Microsoft Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7691     (license license:lgpl2.0+)))
7692
7693 (define-public evolution-data-server
7694   (package
7695     (name "evolution-data-server")
7696     (version "3.42.1")
7697     (source
7698      (origin
7699        (method url-fetch)
7700        (uri (string-append "mirror://gnome/sources/" name "/"
7701                            (version-major+minor version) "/"
7702                            name "-" version ".tar.xz"))
7703        (sha256
7704         (base32 "0a7my8spwcaf2i2fz8ndddi1drv6l9gxq0qblmnkxzyhfwm7zrp6"))))
7705     (build-system cmake-build-system)
7706     (arguments
7707      '(#:configure-flags
7708        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
7709               (runpaths (map (lambda (s)
7710                                (string-append lib "/evolution-data-server/" s))
7711                              '("addressbook-backends" "calendar-backends"
7712                                "camel-providers" "credential-modules"
7713                                "registry-modules"))))
7714          (list "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
7715                "-DENABLE_VALA_BINDINGS=ON"
7716                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7717                               (string-append lib "/evolution-data-server;")
7718                               (string-join runpaths ";"))
7719                "-DENABLE_INTROSPECTION=ON" ;required for Vala bindings
7720                "-DWITH_PHONENUMBER=ON"))
7721        #:phases
7722        (modify-phases %standard-phases
7723          (add-after 'unpack 'disable-failing-tests
7724            (lambda _
7725              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7726              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7727              (delete-file-recursively "tests/book-migration")
7728              (substitute* "tests/CMakeLists.txt"
7729                (("add_subdirectory\\(book-migration\\)") ""))))
7730          (add-after 'unpack 'patch-paths
7731           (lambda _
7732             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7733                            "tests/libedata-book/data-test-utils.c"
7734                            "tests/libedata-book/test-book-cache-utils.c"
7735                            "tests/libedata-cal/test-cal-cache-utils.c")
7736               (("/bin/rm") (which "rm")))))
7737          (add-before 'configure 'dont-override-rpath
7738            (lambda _
7739              (substitute* "CMakeLists.txt"
7740                ;; CMakeLists.txt hard-codes runpath to just the libdir.
7741                ;; Remove it so the configure flag is respected.
7742                (("SET\\(CMAKE_INSTALL_RPATH .*") "")))))))
7743     (native-inputs
7744      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7745        ("gobject-introspection" ,gobject-introspection)
7746        ("gperf" ,gperf)
7747        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7748        ("intltool" ,intltool)
7749        ("pkg-config" ,pkg-config)
7750        ("protobuf" ,protobuf)
7751        ("vala" ,vala)
7752        ("python" ,python-wrapper)))
7753     (propagated-inputs
7754      ;; These are all in the Requires field of .pc files.
7755      `(("gtk+" ,gtk+)
7756        ("libical" ,libical)
7757        ("libsecret" ,libsecret)
7758        ("libsoup" ,libsoup-minimal-2)
7759        ("nss" ,nss)
7760        ("sqlite" ,sqlite)))
7761     (inputs
7762      `(("bdb" ,bdb)
7763        ("boost" ,boost)
7764        ("gcr" ,gcr)
7765        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7766        ("json-glib" ,json-glib)
7767        ("libcanberra" ,libcanberra)
7768        ("libgweather" ,libgweather)
7769        ("libphonenumber" ,libphonenumber)
7770        ("mit-krb5" ,mit-krb5)
7771        ("openldap" ,openldap)
7772        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7773     (synopsis "Store address books and calendars")
7774     (home-page "https://wiki.gnome.org/Apps/Evolution")
7775     (description
7776      "This package provides a unified backend for programs that work with
7777 contacts, tasks, and calendar information.  It was originally developed for
7778 Evolution (hence the name), but is now used by other packages as well.")
7779     (license license:lgpl2.0)))
7780
7781 (define-public caribou
7782   (package
7783     (name "caribou")
7784     (version "0.4.21")
7785     (source (origin
7786               (method url-fetch)
7787               (uri (string-append "mirror://gnome/sources/" name "/"
7788                                   (version-major+minor version) "/"
7789                                   name "-" version ".tar.xz"))
7790               (sha256
7791                (base32
7792                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
7793     (build-system glib-or-gtk-build-system)
7794     (arguments
7795      '(#:phases
7796        (modify-phases %standard-phases
7797          (add-before
7798           'build 'pre-build
7799           (lambda* (#:key outputs #:allow-other-keys)
7800             (let ((out (assoc-ref outputs "out")))
7801               ;; Use absolute shared library path in Caribou-1.0.typelib.
7802               (substitute* "libcaribou/Makefile"
7803                 (("--shared-library=libcaribou.so")
7804                  (string-append "--shared-library="
7805                                 out "/lib/libcaribou.so")))
7806               #t)))
7807          (add-after 'install 'wrap-programs
7808           (lambda* (#:key outputs #:allow-other-keys)
7809             (let* ((out (assoc-ref outputs "out"))
7810                    (python-path (getenv "GUIX_PYTHONPATH"))
7811                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7812               (for-each
7813                (lambda (prog)
7814                  (wrap-program prog
7815                    `("GUIX_PYTHONPATH"      ":" prefix (,python-path))
7816                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7817                (list (string-append out "/bin/caribou-preferences")
7818                      (string-append out "/libexec/antler-keyboard"))))
7819             #t)))))
7820     (native-inputs
7821      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7822        ("gobject-introspection" ,gobject-introspection)
7823        ("intltool" ,intltool)
7824        ("pkg-config" ,pkg-config)
7825        ("python" ,python)
7826        ("vala" ,vala)
7827        ("xsltproc" ,libxslt)))
7828     (propagated-inputs
7829      ;; caribou-1.0.pc refers to all these.
7830      (list libgee libxklavier libxtst gtk+))
7831     (inputs
7832      `(("clutter" ,clutter)
7833        ("dconf" ,dconf)
7834        ("gtk+-2" ,gtk+-2)
7835        ("python-pygobject" ,python-pygobject)))
7836     (synopsis "Text entry and UI navigation application")
7837     (home-page "https://wiki.gnome.org/Projects/Caribou")
7838     (description
7839      "Caribou is an input assistive technology intended for switch and pointer
7840 users.")
7841     (license license:lgpl2.1)))
7842
7843 (define-public network-manager
7844   (package
7845     (name "network-manager")
7846     (version "1.32.12")
7847     (source (origin
7848               (method url-fetch)
7849               (uri (string-append "mirror://gnome/sources/NetworkManager/"
7850                                   (version-major+minor version) "/"
7851                                   "NetworkManager-" version ".tar.xz"))
7852               (patches (search-patches "network-manager-plugin-path.patch"
7853                                        "network-manager-meson.patch"))
7854               (sha256
7855                (base32
7856                 "0jzmz0zw64dgvdn2g7pppr7bkywpbxcbdb1viv6p7zh2lnh3dax8"))))
7857     (build-system meson-build-system)
7858     (outputs '("out"
7859                "doc"))                  ; 8 MiB of gtk-doc HTML
7860     (arguments
7861      `(#:configure-flags
7862        (let ((out      (assoc-ref %outputs "out"))
7863              (dhclient (search-input-file %build-inputs "/sbin/dhclient")))
7864          (list
7865           ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
7866           ;; component.
7867           (string-append "-Dc_link_args=-Wl,-rpath="
7868                          out "/lib:"
7869                          out "/lib/NetworkManager/" ,version)
7870           "-Dsystemd_journal=false"
7871           "-Dsession_tracking=elogind"
7872           "-Dsuspend_resume=elogind"
7873           "-Dsystemdsystemunitdir=no"
7874           "-Dsession_tracking_consolekit=false"
7875           "-Ddhcpcd=no"
7876           "-Ddhcpcanon=no"
7877           "-Dcrypto=gnutls"
7878           "-Diwd=true"
7879           "-Dlibaudit=yes"
7880           "-Dqt=false"
7881           "-Ddocs=true"
7882           "--sysconfdir=/etc"
7883           "--localstatedir=/var"
7884           (string-append "-Dudev_dir="
7885                          out "/lib/udev")
7886           (string-append "-Ddbus_conf_dir="
7887                          out "/etc/dbus-1/system.d")
7888
7889           (string-append "-Ddhclient=" dhclient)))
7890        #:phases
7891        (modify-phases %standard-phases
7892          (add-after 'unpack 'patch-dlopen-call-to-libjansson.so
7893            (lambda* (#:key inputs #:allow-other-keys)
7894              (substitute* "src/libnm-glib-aux/nm-json-aux.c"
7895                (("(handle = dlopen\\()soname" _ head)
7896                 (string-append
7897                  head "\"" (search-input-file inputs
7898                                               "lib/libjansson.so") "\"")))))
7899          (add-before 'configure 'pre-configure
7900            (lambda _
7901              ;; These tests try to test aspects of network-manager's
7902              ;; functionality within restricted containers, but they don't
7903              ;; cope with being already in the Guix build jail as that jail
7904              ;; lacks some features that they would like to proxy over (like
7905              ;; a /sys mount).
7906              (substitute* "src/core/tests/meson.build"
7907                ((".*test-l3cfg.*") ""))
7908              (substitute* "src/core/devices/tests/meson.build"
7909                ((".*test-acd.*") "")
7910                ((".*test-lldp.*") ""))
7911              (substitute* "src/core/platform/tests/meson.build"
7912                ((".*test-address-linux.*") "")
7913                ((".*test-cleanup-linux.*") "")
7914                ((".*test-link-linux.*") "")
7915                ((".*test-lldp.*") "")
7916                ((".*test-route-linux.*") "")
7917                ((".*test-tc-linux.*") ""))))
7918          (add-after 'unpack 'patch-docbook-xml
7919            (lambda* (#:key inputs #:allow-other-keys)
7920              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
7921                                           "/xml/dtd/docbook")))
7922                (substitute* (find-files "." ".*\\.(xsl|xml)")
7923                  (("http://.*/docbookx\\.dtd")
7924                   (string-append xmldoc "/docbookx.dtd"))))))
7925          (add-before 'check 'pre-check
7926            (lambda _
7927              ;; For the missing /etc/machine-id.
7928              (setenv "DBUS_FATAL_WARNINGS" "0")))
7929          (add-before 'install 'no-polkit-magic
7930            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
7931            (lambda _
7932              (setenv "PKEXEC_UID" "something")))
7933          (add-after 'install 'move-doc
7934            (lambda* (#:key outputs #:allow-other-keys)
7935              (let ((out (assoc-ref outputs "out"))
7936                    (doc (assoc-ref outputs "doc")))
7937                (mkdir-p (string-append doc "/share"))
7938                (for-each (lambda (directory)
7939                            (copy-recursively (string-append out directory)
7940                                              (string-append doc directory))
7941                            (delete-file-recursively
7942                             (string-append out directory)))
7943                          '("/share/doc" "/share/gtk-doc"))))))))
7944     (propagated-inputs
7945      (list glib))
7946     (native-inputs
7947      `(("glib:bin" ,glib "bin")         ; for gdbus-codegen
7948        ("gtk-doc" ,gtk-doc/stable)
7949        ("gobject-introspection" ,gobject-introspection)
7950        ("docbook-xml" ,docbook-xml)
7951        ("docbook-xsl" ,docbook-xsl)
7952        ("intltool" ,intltool)
7953        ("libxslt" ,libxslt)
7954        ("libxml2" ,libxml2)
7955        ("pkg-config" ,pkg-config)
7956        ("vala" ,vala)
7957        ;; For testing.
7958        ("python" ,python-wrapper)
7959        ("python-dbus" ,python-dbus)
7960        ("python-pygobject" ,python-pygobject)))
7961     (inputs
7962      `(("curl" ,curl)
7963        ("cyrus-sasl" ,cyrus-sasl)
7964        ("dbus-glib" ,dbus-glib)
7965        ("dnsmasq" ,dnsmasq)
7966        ("eudev" ,eudev)
7967        ("gnutls" ,gnutls)
7968        ("iptables" ,iptables)
7969        ("isc-dhcp" ,isc-dhcp)
7970        ("iwd" ,iwd)                     ; wpa_supplicant alternative
7971        ("jansson" ,jansson)
7972        ("libaudit" ,audit)
7973        ("libgcrypt" ,libgcrypt)
7974        ("libgudev" ,libgudev)
7975        ("libndp" ,libndp)
7976        ("libnl" ,libnl)
7977        ("libselinux" ,libselinux)
7978        ("libsoup" ,libsoup)
7979        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
7980        ("modem-manager" ,modem-manager)
7981        ("newt" ,newt)                   ;for the 'nmtui' console interface
7982        ("openresolv" ,openresolv)       ; alternative resolv.conf manager
7983        ("polkit" ,polkit)
7984        ("ppp" ,ppp)
7985        ("readline" ,readline)
7986        ("util-linux" ,util-linux)
7987        ("elogind" ,elogind)))
7988     (synopsis "Network connection manager")
7989     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7990     (description
7991      "NetworkManager is a system network service that manages your network
7992 devices and connections, attempting to keep active network connectivity when
7993 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
7994 devices, and provides VPN integration with a variety of different VPN
7995 services.")
7996     ;; “This NetworkManager project consists of the daemon, client tools, and
7997     ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
7998     ;; GPL-2.0+.”
7999     (license (list license:gpl2+
8000                    license:lgpl2.1+))
8001     (properties '((upstream-name . "NetworkManager")))))
8002
8003 (define-public network-manager-openvpn
8004   (package
8005     (name "network-manager-openvpn")
8006     (version "1.8.12")
8007     (source (origin
8008               (method url-fetch)
8009               (uri (string-append
8010                     "mirror://gnome/sources/NetworkManager-openvpn/"
8011                     (version-major+minor version)
8012                     "/NetworkManager-openvpn-" version ".tar.xz"))
8013               (sha256
8014                (base32
8015                 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
8016     (build-system gnu-build-system)
8017     (arguments
8018      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
8019        #:phases
8020        (modify-phases %standard-phases
8021          (add-after 'configure 'patch-path
8022            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8023              (let* ((ovpn (search-input-file inputs "/sbin/openvpn"))
8024                     (modprobe (search-input-file inputs "/bin/modprobe"))
8025                     (pretty-ovpn (string-append "\"" ovpn "\"")))
8026                (for-each
8027                 (lambda (file)
8028                   (substitute* file
8029                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
8030                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
8031                     (("\"/sbin/openvpn\"") pretty-ovpn)
8032                     (("/sbin/modprobe") modprobe)))
8033                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
8034              #t)))))
8035     (native-inputs
8036      (list pkg-config intltool))
8037     (inputs
8038      (list gtk+
8039            kmod
8040            openvpn
8041            network-manager
8042            libnma
8043            libsecret))
8044     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8045     (synopsis "OpenVPN plug-in for NetworkManager")
8046     (description
8047      "This extension of NetworkManager allows it to take care of connections
8048 to virtual private networks (VPNs) via OpenVPN.")
8049     (license license:gpl2+)
8050     (properties `((upstream-name . "NetworkManager-openvpn")))))
8051
8052 (define-public network-manager-vpnc
8053   (package
8054     (name "network-manager-vpnc")
8055     (version "1.2.6")
8056     (source (origin
8057               (method url-fetch)
8058               (uri (string-append
8059                     "mirror://gnome/sources/NetworkManager-vpnc/"
8060                     (version-major+minor version)
8061                     "/NetworkManager-vpnc-" version ".tar.xz"))
8062               (sha256
8063                (base32
8064                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
8065     (build-system gnu-build-system)
8066     (arguments
8067      `(#:configure-flags '("--enable-absolute-paths"
8068                            "--localstatedir=/var"
8069                            ;; libnm-glib has been removed from network-manager
8070                            ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
8071                            "--with-libnm-glib=no")
8072        #:phases
8073        (modify-phases %standard-phases
8074          (add-after 'configure 'patch-path
8075            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8076              (let* ((vpnc (search-input-file inputs "/sbin/vpnc"))
8077                     (modprobe (search-input-file inputs "/bin/modprobe"))
8078                     (pretty-ovpn (string-append "\"" vpnc "\"")))
8079                (substitute* "src/nm-vpnc-service.c"
8080                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
8081                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
8082                     (("\"/sbin/vpnc\"") pretty-ovpn)
8083                     (("/sbin/modprobe") modprobe)))
8084              #t)))))
8085     (native-inputs
8086      (list pkg-config intltool))
8087     (inputs
8088      (list gtk+
8089            kmod
8090            vpnc
8091            network-manager
8092            libnma
8093            libsecret))
8094     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8095     (synopsis "VPNC plug-in for NetworkManager")
8096     (description
8097      "Support for configuring virtual private networks based on VPNC.
8098 Compatible with Cisco VPN concentrators configured to use IPsec.")
8099     (license license:gpl2+)
8100     (properties `((upstream-name . "NetworkManager-vpnc")))))
8101
8102 (define-public network-manager-openconnect
8103   (package
8104     (name "network-manager-openconnect")
8105     (version "1.2.6")
8106     (source (origin
8107               (method url-fetch)
8108               (uri (string-append
8109                     "mirror://gnome/sources/NetworkManager-openconnect/"
8110                     (version-major+minor version)
8111                     "/NetworkManager-openconnect-" version ".tar.xz"))
8112               (sha256
8113                (base32
8114                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
8115     (build-system gnu-build-system)
8116     (arguments
8117      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
8118        #:phases
8119        (modify-phases %standard-phases
8120          (add-after 'configure 'patch-path
8121            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8122              (let* ((openconnect (search-input-file inputs
8123                                                     "/sbin/openconnect"))
8124                     (modprobe (search-input-file inputs "/bin/modprobe"))
8125                     (pretty-ovpn (string-append "\"" openconnect "\"")))
8126                (substitute* "src/nm-openconnect-service.c"
8127                  (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
8128                  (("/sbin/modprobe") modprobe)))
8129              #t)))))
8130     (native-inputs
8131      (list intltool libnma pkg-config))
8132     (inputs
8133      (list gcr
8134            gtk+
8135            kmod
8136            libsecret
8137            libxml2
8138            lz4
8139            network-manager
8140            openconnect))
8141     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8142     (synopsis "OpenConnect plug-in for NetworkManager")
8143     (description
8144      "This extension of NetworkManager allows it to take care of connections
8145 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
8146 Cisco's AnyConnect SSL VPN.")
8147     (license license:gpl2+)
8148     (properties `((upstream-name . "NetworkManager-openconnect")
8149
8150                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
8151                   ;; file refers to account "nm-openconnect".  Specify it here
8152                   ;; so that 'network-manager-service-type' creates it.
8153                   (user-accounts . ("nm-openconnect"))))))
8154
8155 (define-public mobile-broadband-provider-info
8156   (package
8157     (name "mobile-broadband-provider-info")
8158     (version "20190116")
8159     (source (origin
8160               (method url-fetch)
8161               (uri (string-append
8162                     "mirror://gnome/sources/"
8163                     "mobile-broadband-provider-info/" version "/"
8164                     "mobile-broadband-provider-info-" version ".tar.xz"))
8165               (sha256
8166                (base32
8167                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
8168     (build-system gnu-build-system)
8169     (arguments
8170      `(#:tests? #f))                    ; no tests
8171     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8172     (synopsis "Database of broadband connection configuration")
8173     (description "Database of broadband connection configuration.")
8174     (license license:public-domain)))
8175
8176 (define-public network-manager-applet
8177   (package
8178     (name "network-manager-applet")
8179     (version "1.22.0")
8180     (source (origin
8181               (method url-fetch)
8182               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
8183                                   (version-major+minor version) "/"
8184                                   "network-manager-applet-" version ".tar.xz"))
8185               (sha256
8186                (base32
8187                 "1gj6lqqi613j2m49v9i82lqg1rv7kwwc8z4nxjcwpaa0ins803f7"))))
8188     (build-system meson-build-system)
8189     (arguments
8190      `(#:glib-or-gtk? #t
8191        #:configure-flags
8192        '("-Dappindicator=yes")))
8193     (native-inputs
8194      `(("intltool" ,intltool)
8195        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
8196        ("gobject-introspection" ,gobject-introspection)
8197        ("gtk-doc" ,gtk-doc/stable)
8198        ("pkg-config" ,pkg-config)))
8199     (propagated-inputs
8200      ;; libnm-gtk.pc refers to all these.
8201      (list dbus-glib gtk+ network-manager
8202            ;; nm-applet need by org.gnome.nm-applet.gschema.xml
8203            libnma))
8204     (inputs
8205      (list gcr
8206            libappindicator
8207            libgudev
8208            libnotify
8209            libsecret
8210            libselinux
8211            jansson ; for team support
8212            modem-manager))
8213     (synopsis "Applet for managing network connections")
8214     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8215     (description
8216      "This package contains a systray applet for NetworkManager.  It displays
8217 the available networks and allows users to easily switch between them.")
8218     (license license:gpl2+)))
8219
8220 (define-public libxml++
8221   (package
8222     (name "libxml++")
8223     (version "3.2.0")
8224     (source
8225      (origin
8226        (method git-fetch)
8227        (uri (git-reference
8228              (url "https://github.com/libxmlplusplus/libxmlplusplus")
8229              (commit version)))
8230        (file-name (git-file-name name version))
8231        (sha256
8232         (base32 "0wjz591rjlgbah7dcq8i0yn0zw9d62b7g6r0pppx81ic0cx8n8ga"))))
8233     (build-system gnu-build-system)
8234     (arguments
8235      `(#:phases
8236        (modify-phases %standard-phases
8237          (add-after 'unpack 'fix-documentation
8238            (lambda* (#:key inputs #:allow-other-keys)
8239              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
8240                                           "/xml/dtd/docbook"))
8241                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
8242                                           "/xml/xsl/docbook-xsl-"
8243                                           ,(package-version docbook-xsl))))
8244                (substitute* '("examples/dom_xpath/example.xml"
8245                               "docs/manual/libxml++_without_code.xml")
8246                  (("http://.*/docbookx\\.dtd")
8247                   (string-append xmldoc "/docbookx.dtd")))
8248                (setenv "SGML_CATALOG_FILES"
8249                        (string-append xmldoc "/catalog.xml"))
8250                (substitute* "docs/manual/docbook-customisation.xsl"
8251                  (("http://docbook.sourceforge.net/release/xsl/current/html/chunk.xsl")
8252                   (string-append xsldoc "/html/chunk.xsl")))))))))
8253     (propagated-inputs
8254      ;; libxml++-3.0.pc refers to all these.
8255      (list glibmm-2.64 libxml2))
8256     (native-inputs
8257      (list autoconf
8258            automake
8259            doxygen
8260            docbook-xml
8261            docbook-xsl
8262            graphviz ; for dot
8263            libtool
8264            libxslt
8265            mm-common
8266            perl
8267            pkg-config))
8268     (home-page "https://github.com/libxmlplusplus/libxmlplusplus/")
8269     (synopsis "C++ bindings to the libxml2 XML parser library")
8270     (description
8271      "This package provides a C++ interface to the libxml2 XML parser
8272 library.")
8273     (license license:lgpl2.1+)))
8274
8275 ;; This is the last release providing the 2.6 API, hence the name.
8276 ;; This is needed by tascam-gtk
8277 (define-public libxml++-2
8278   (package
8279     (inherit libxml++)
8280     (name "libxml++")
8281     (version "2.40.1")
8282     (source
8283      (origin
8284        (method git-fetch)
8285        (uri (git-reference
8286              (url "https://github.com/libxmlplusplus/libxmlplusplus")
8287              (commit version)))
8288        (file-name (git-file-name name version))
8289        (sha256
8290         (base32 "0gbfi4l88w828gmyc9br11l003ylyi4vigp5d1kfgsn0k4cig3y9"))))))
8291
8292 (define-public gdm
8293   (package
8294     (name "gdm")
8295     (version "40.1")
8296     (source (origin
8297               (method url-fetch)
8298               (uri (string-append "mirror://gnome/sources/" name "/"
8299                                   (version-major version) "/"
8300                                   name "-" version ".tar.xz"))
8301               (sha256
8302                (base32
8303                 "1zbks7bwbys1pn7sk0aq0dbn09adx51amb441z4z4j28cvma3f5b"))
8304               (patches
8305                (search-patches
8306                 "gdm-default-session.patch"
8307                 "gdm-elogind-support.patch"
8308                 "gdm-remove-hardcoded-xwayland-path.patch"
8309                 "gdm-wayland-session-wrapper-from-env.patch"
8310                 "gdm-pass-gdk-pixbuf-loader-env.patch"))))
8311     (build-system meson-build-system)
8312     (arguments
8313      `(#:glib-or-gtk? #t
8314        #:configure-flags
8315        ,#~(list
8316            "-Dplymouth=disabled"
8317            "-Dsystemd-journal=false"
8318
8319            ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
8320            ;; instead of having to replace it (i.e., stopping the mingetty
8321            ;; service for TTY 1 before starting GDM).
8322            "-Dinitial-vt=7"
8323
8324            ;; Use elogind instead of systemd.
8325            "-Dlogind-provider=elogind"
8326            "-Dsystemdsystemunitdir=no"
8327            "-Dsystemduserunitdir=no"
8328
8329            ;; Use '/etc/environment' for locale settings instead of the
8330            ;; systemd-specific '/etc/locale.conf'.
8331            "-Dlang-file=/etc/environment"
8332
8333            (string-append "-Dudev-dir=" #$output "/lib/udev")
8334
8335            "--localstatedir=/var"
8336            (string-append "-Ddefault-path="
8337                           (string-join '("/run/setuid-programs"
8338                                          "/run/current-system/profile/bin"
8339                                          "/run/current-system/profile/sbin")
8340                                        ":"))
8341            ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
8342            ;; XDG_DATA_DIRS so that it finds its schemas.
8343            "--sbindir" (string-append #$output "/bin"))
8344        #:phases
8345        (modify-phases %standard-phases
8346          (add-before
8347              'configure 'pre-configure
8348            (lambda* (#:key inputs outputs #:allow-other-keys)
8349              ;; We don't have <systemd/sd-daemon.h>.
8350              (substitute* '("common/gdm-log.c"
8351                             "daemon/gdm-server.c"
8352                             "daemon/gdm-session-worker.c"
8353                             "daemon/gdm-session-worker-job.c")
8354                (("#include <systemd/sd-daemon\\.h>") ""))
8355              ;; Use elogind for sd-login.
8356              (substitute* '("common/gdm-common.c"
8357                             "daemon/gdm-local-display-factory.c"
8358                             "daemon/gdm-manager.c"
8359                             "libgdm/gdm-user-switching.c")
8360                (("#include <systemd/sd-login\\.h>")
8361                 "#include <elogind/sd-login.h>"))
8362              ;; Look for system-installed sessions in
8363              ;; /run/current-system/profile/share.
8364              (substitute* '("libgdm/gdm-sessions.c"
8365                             "daemon/gdm-session.c"
8366                             "daemon/gdm-display.c"
8367                             "daemon/gdm-launch-environment.c")
8368                (("DATADIR \"/x")
8369                 "\"/run/current-system/profile/share/x")
8370                (("DATADIR \"/wayland")
8371                 "\"/run/current-system/profile/share/wayland")
8372                (("DATADIR \"/gnome")
8373                 "\"/run/current-system/profile/share/gnome"))
8374              (let ((propagate '("GDM_CUSTOM_CONF"
8375                                 "GDM_DBUS_DAEMON"
8376                                 "GDM_X_SERVER"
8377                                 "GDM_X_SESSION"
8378                                 ;; XXX: Remove this once GNOME Shell is
8379                                 ;; a dependency of GDM.
8380                                 "XDG_DATA_DIRS")))
8381                (substitute* "daemon/gdm-session.c"
8382                  (("set_up_session_environment \\(self\\);")
8383                   (apply string-append
8384                          "set_up_session_environment (self);\n"
8385                          (map (lambda (name)
8386                                 (string-append
8387                                  "gdm_session_set_environment_variable "
8388                                  "(self, \"" name "\","
8389                                  "g_getenv (\"" name "\"));\n"))
8390                               propagate)))))
8391              ;; Find the configuration file using an environment variable.
8392              (substitute* '("common/gdm-settings.c")
8393                (("GDM_CUSTOM_CONF")
8394                 (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8395                                " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8396                                " : GDM_CUSTOM_CONF)")))
8397              ;; Use service-supplied path to X.
8398              (substitute* '("daemon/gdm-server.c")
8399                (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8400                 "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
8401              (substitute* '("daemon/gdm-wayland-session.c"
8402                             "daemon/gdm-x-session.c")
8403                (("\"dbus-daemon\"")
8404                 "g_getenv (\"GDM_DBUS_DAEMON\")")
8405                (("X_SERVER")
8406                 "g_getenv (\"GDM_X_SERVER\")")
8407                (("GDMCONFDIR \"/Xsession\"")
8408                 "g_getenv (\"GDM_X_SESSION\")"))
8409              ;; Use an absolute path for GNOME Session.
8410              (substitute* "daemon/gdm-launch-environment.c"
8411                (("\"gnome-session\"")
8412                 (string-append "\"" (assoc-ref inputs "gnome-session")
8413                                "/bin/gnome-session\"")))
8414              ;; Do not automatically select the placeholder session.
8415              (substitute* "daemon/gdm-session.c"
8416                (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8417                 (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8418                                "(g_strcmp0(search_dirs[i], \""
8419                                (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
8420                                "\") == 0 && "
8421                                "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8422                (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
8423                 "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))))
8424          (add-before 'install 'install-logo
8425            (lambda* (#:key inputs outputs #:allow-other-keys)
8426              (let* ((out (assoc-ref outputs "out"))
8427                     (guix-icons (assoc-ref inputs "guix-icons"))
8428                     (icon
8429                      (string-append guix-icons "/share/icons/hicolor/\
8430 scalable/apps/guix-white-icon.svg"))
8431                     (schema
8432                      (string-append out "/share/glib-2.0/schemas/\
8433 org.gnome.login-screen.gschema.override")))
8434                (mkdir-p (dirname schema))
8435                (with-output-to-file schema
8436                  (lambda ()
8437                    (format #t "\
8438 [org.gnome.login-screen]
8439 logo='~a'~%" icon))))))
8440          ;; GDM requires that there be at least one desktop entry
8441          ;; file.  This phase installs a hidden one that simply
8442          ;; fails.  This enables users to use GDM with a
8443          ;; '~/.xsession' script with no other desktop entry files.
8444          ;; See <https://bugs.gnu.org/35068>.
8445          (add-after 'install 'install-placeholder-desktop-entry
8446            (lambda* (#:key inputs outputs #:allow-other-keys)
8447              (let* ((out (assoc-ref outputs "out"))
8448                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
8449                     (fail (string-append sessions "/fail.desktop")))
8450                (mkdir-p sessions)
8451                (with-output-to-file fail
8452                  (lambda ()
8453                    (for-each
8454                     display
8455                     '("[Desktop Entry]\n"
8456                       "Encoding=UTF-8\n"
8457                       "Type=Application\n"
8458                       "Name=Fail\n"
8459                       "Comment=This session fails immediately.\n"
8460                       "NoDisplay=true\n"
8461                       "Exec=false\n")))))))
8462          ;; GDM needs GNOME Session to run these applications.  We link
8463          ;; their autostart files in `share/gdm/greeter/autostart'
8464          ;; because GDM explicitly tells GNOME Session to look there.
8465          ;;
8466          ;; XXX: GNOME Shell should be linked here too, but currently
8467          ;; GNOME Shell depends on GDM.
8468          (add-after 'install 'link-autostart-files
8469            (lambda* (#:key inputs outputs #:allow-other-keys)
8470              (let* ((out (assoc-ref outputs "out"))
8471                     (autostart (string-append out "/share/gdm/"
8472                                               "greeter/autostart"))
8473                     (settings (assoc-ref inputs "gnome-settings-daemon")))
8474                (mkdir-p autostart)
8475                (with-directory-excursion autostart
8476                  (for-each (lambda (desktop)
8477                              (symlink desktop (basename desktop)))
8478                            (find-files
8479                             (string-append settings "/etc/xdg"))))))))))
8480     (native-inputs
8481      `(("dconf" ,dconf)
8482        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8483        ("gobject-introspection" ,gobject-introspection)
8484        ("guix-icons" ,guix-icons)
8485        ("intltool" ,intltool)
8486        ("itstool" ,itstool)
8487        ("pkg-config" ,pkg-config)
8488        ("xmllint" ,libxml2)))
8489     (inputs
8490      (list accountsservice
8491            check ;for testing
8492            elogind
8493            eudev
8494            gnome-session
8495            gnome-settings-daemon
8496            gtk+
8497            iso-codes
8498            libcanberra
8499            linux-pam))
8500     (synopsis "Display manager for GNOME")
8501     (home-page "https://wiki.gnome.org/Projects/GDM/")
8502     (description
8503      "GNOME Display Manager is a system service that is responsible for
8504 providing graphical log-ins and managing local and remote displays.")
8505     (license license:gpl2+)))
8506
8507 (define-public libgtop
8508   (package
8509     (name "libgtop")
8510     (version "2.40.0")
8511     (source (origin
8512               (method url-fetch)
8513               (uri (string-append "mirror://gnome/sources/libgtop/"
8514                                   (version-major+minor version) "/"
8515                                   "libgtop-" version ".tar.xz"))
8516               (sha256
8517                (base32
8518                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8519     (build-system gnu-build-system)
8520     (native-inputs
8521      (list gobject-introspection intltool perl pkg-config))
8522     (propagated-inputs
8523      (list glib)) ; required by libgtop-2.0.pc
8524     (synopsis "Portable system access library")
8525     (home-page "https://www.gnome.org/")
8526     (description
8527      "LibGTop is a library to get system specific data such as CPU and memory
8528 usage and information about running processes.")
8529     (license license:gpl2+)))
8530
8531 (define-public gnome-bluetooth
8532   (package
8533     (name "gnome-bluetooth")
8534     (version "3.34.5")
8535     (source (origin
8536               (method url-fetch)
8537               (uri (string-append "mirror://gnome/sources/gnome-bluetooth/"
8538                                   (version-major+minor version) "/"
8539                                   "gnome-bluetooth-" version ".tar.xz"))
8540               (sha256
8541                (base32
8542                 "1a9ynlwwkb3wpg293ym517vmrkk63y809mmcv9a21k5yr199x53c"))))
8543     (build-system meson-build-system)
8544     (native-inputs
8545      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
8546        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8547        ("gobject-introspection" ,gobject-introspection)
8548        ("intltool" ,intltool)
8549        ("pkg-config" ,pkg-config)
8550        ("python" ,python)
8551        ("python-dbus" ,python-dbus)
8552        ("xmllint" ,libxml2)))
8553     (propagated-inputs
8554      ;; gnome-bluetooth-1.0.pc refers to all these.
8555      (list glib gtk+))
8556     (inputs
8557      (list eudev libcanberra libnotify python-dbus))
8558     (synopsis "GNOME Bluetooth subsystem")
8559     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8560     (description
8561      "This package contains tools for managing and manipulating Bluetooth
8562 devices using the GNOME desktop.")
8563     (license license:lgpl2.1+)))
8564
8565 (define-public gnome-control-center
8566   (package
8567     (name "gnome-control-center")
8568     (version "41.2")
8569     (source (origin
8570               (method url-fetch)
8571               (uri (string-append "mirror://gnome/sources/" name "/"
8572                                   (version-major version) "/"
8573                                   name "-" version ".tar.xz"))
8574               (sha256
8575                (base32
8576                 "0j72ixhli621psbrma86qxy0spv6gpjx6k9hg2jih97c6dmzqwc2"))
8577               (patches (search-patches
8578                         "gnome-control-center-libexecdir.patch"))))
8579     (build-system meson-build-system)
8580     (arguments
8581      `(#:glib-or-gtk? #t
8582        #:configure-flags
8583        (list "-Dcheese=false"
8584              (string-append "-Dgnome_session_libexecdir="
8585                             (assoc-ref %build-inputs "gnome-session")
8586                             "/libexec"))
8587        #:phases
8588        (modify-phases %standard-phases
8589          (add-before 'configure 'patch-paths
8590            (lambda* (#:key inputs #:allow-other-keys)
8591              (let ((libc   (assoc-ref inputs "libc"))
8592                    (tzdata (assoc-ref inputs "tzdata"))
8593                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
8594                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
8595                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
8596                (substitute* "panels/datetime/tz.h"
8597                  (("/usr/share/zoneinfo/zone.tab")
8598                   (string-append tzdata "/share/zoneinfo/zone.tab")))
8599                (substitute* "tests/datetime/test-endianess.c"
8600                  (("/usr/share/locale")
8601                   (string-append libc "/share/locale")))
8602                (substitute* "panels/region/cc-region-panel.c"
8603                  (("\"gkbd-keyboard-display")
8604                   (string-append "\"" libgnomekbd
8605                                  "/bin/gkbd-keyboard-display")))
8606                (substitute* '("panels/network/net-device-bluetooth.c"
8607                               "panels/network/net-device-mobile.c"
8608                               "panels/network/connection-editor/net-connection-editor.c")
8609                  (("\"nm-connection-editor")
8610                   (string-append "\"" nm-applet
8611                                  "/bin/nm-connection-editor")))
8612                (substitute* '("panels/user-accounts/run-passwd.c")
8613                  (("/usr/bin/passwd")
8614                   "/run/setuid-programs/passwd"))
8615                (substitute* "panels/info-overview/cc-info-overview-panel.c"
8616                  (("DATADIR \"/gnome/gnome-version.xml\"")
8617                   (string-append "\"" gnome-desktop
8618                                  "/share/gnome/gnome-version.xml\""))))))
8619          (add-after 'unpack 'skip-gtk-update-icon-cache
8620            ;; Don't create 'icon-theme.cache'.
8621            (lambda _
8622              (substitute* "build-aux/meson/meson_post_install.py"
8623                (("gtk-update-icon-cache") (which "true")))))
8624          (add-before 'install 'no-polkit-magic
8625            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
8626            (lambda _
8627              (setenv "PKEXEC_UID" "something"))))))
8628     (native-inputs
8629      (list `(,glib "bin")               ;for glib-mkenums, etc.
8630            intltool
8631            pkg-config
8632            python
8633            libxslt
8634            ;; For tests
8635            hicolor-icon-theme
8636            python-dbusmock
8637            xorg-server-for-tests))
8638     (inputs
8639      (list accountsservice
8640            clutter-gtk
8641            colord-gtk
8642            cups
8643            dconf
8644            docbook-xsl
8645            gcr
8646            gnome-bluetooth
8647            gnome-desktop
8648            gnome-online-accounts
8649            `(,gnome-online-accounts "lib")
8650            gnome-session
8651            gnome-settings-daemon
8652            grilo
8653            gsound
8654            ibus
8655            libcanberra
8656            libgnomekbd
8657            libgudev
8658            libgtop
8659            libnma
8660            libpwquality
8661            librsvg                      ;for loading SVG files
8662            libsecret
8663            libsoup-minimal-2
8664            libxml2
8665            libwacom
8666            mesa
8667            mit-krb5
8668            modem-manager
8669            network-manager-applet
8670            polkit
8671            pulseaudio
8672            samba
8673            tzdata
8674            udisks
8675            upower))
8676     (synopsis "Utilities to configure the GNOME desktop")
8677     (home-page "https://www.gnome.org/")
8678     (description
8679      "This package contains configuration applets for the GNOME desktop,
8680 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8681 properties, sound setup, desktop theme and background, user interface
8682 properties, screen resolution, and other GNOME parameters.")
8683     (license license:gpl2+)))
8684
8685 (define-public gnome-shell
8686   (package
8687     (name "gnome-shell")
8688     (version "41.0")
8689     (source (origin
8690               (method url-fetch)
8691               (uri (string-append "mirror://gnome/sources/" name "/"
8692                                   (version-major version) "/"
8693                                   name "-" version ".tar.xz"))
8694               (sha256
8695                (base32
8696                 "0ragmcln210zvzhc2br33yprbkj9drjzd7inp5sdxra0a7l73yaj"))))
8697     (build-system meson-build-system)
8698     (arguments
8699      `(#:glib-or-gtk? #t
8700        #:disallowed-references ,(list (gexp-input glib "bin")
8701                                       (gexp-input libxslt)
8702                                       (gexp-input ruby-sass))
8703        #:configure-flags
8704        (list "-Dsystemd=false"
8705              ;; Otherwise, the RUNPATH will lack the final path component.
8706              (string-append "-Dc_link_args=-Wl,-rpath="
8707                             (assoc-ref %outputs "out")
8708                             "/lib/gnome-shell"))
8709
8710        #:modules ((guix build meson-build-system)
8711                   (guix build utils)
8712                   (srfi srfi-1))
8713
8714        #:phases
8715        (modify-phases %standard-phases
8716          (add-after 'unpack 'fix-keysdir
8717            (lambda* (#:key outputs #:allow-other-keys)
8718              (let* ((out     (assoc-ref outputs "out"))
8719                     (keysdir (string-append
8720                               out "/share/gnome-control-center/keybindings")))
8721                (substitute* "meson.build"
8722                  (("keysdir =.*")
8723                   (string-append "keysdir = '" keysdir "'\n"))))))
8724          (add-after 'unpack 'skip-gtk-update-icon-cache
8725            ;; Don't create 'icon-theme.cache'.
8726            (lambda _
8727              (substitute* "meson/postinstall.py"
8728                (("gtk-update-icon-cache") "true"))))
8729          (add-before 'configure 'record-absolute-file-names
8730            (lambda* (#:key inputs #:allow-other-keys)
8731              (substitute* "js/misc/ibusManager.js"
8732                (("'ibus-daemon'")
8733                 (string-append "'" (assoc-ref inputs "ibus")
8734                                "/bin/ibus-daemon'")))
8735              (substitute* "js/ui/status/keyboard.js"
8736                (("'gkbd-keyboard-display'")
8737                 (string-append "'" (assoc-ref inputs "libgnomekbd")
8738                                "/bin/gkbd-keyboard-display'")))))
8739          (add-before 'check 'pre-check
8740            (lambda* (#:key inputs #:allow-other-keys)
8741              ;; Tests require a running X server.
8742              (system "Xvfb :1 &")
8743              (setenv "DISPLAY" ":1")
8744              (setenv "HOME" "/tmp")))   ;to avoid "fatal" warnings
8745          (add-after 'install 'wrap-programs
8746            (lambda* (#:key inputs outputs #:allow-other-keys)
8747              (let ((out              (assoc-ref outputs "out"))
8748                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
8749                    (python-path      (getenv "GUIX_PYTHONPATH")))
8750                (for-each
8751                 (lambda (prog)
8752                   (wrap-program (string-append out "/bin/" prog)
8753                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8754                 '("gnome-shell" "gnome-extensions-app"))
8755                (substitute* (string-append out "/share/gnome-shell/"
8756                                            "org.gnome.Shell.Extensions")
8757                  (("imports\\.package\\.start" all)
8758                   (string-append "'" gi-typelib-path "'.split(':').forEach("
8759                                  "path => imports.gi.GIRepository.Repository."
8760                                  "prepend_search_path(path));\n"
8761                                  all)))
8762                (for-each
8763                 (lambda (prog)
8764                   (wrap-program (string-append out "/bin/" prog)
8765                     `("GUIX_PYTHONPATH"      ":" prefix (,python-path))
8766                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8767                 '("gnome-shell-perf-tool")))))
8768          (add-after 'install 'rewire
8769            (lambda* (#:key inputs outputs #:allow-other-keys)
8770              (for-each
8771               (lambda (tool)
8772                 (call-with-output-file (string-append
8773                                         (assoc-ref outputs "out")
8774                                         "/bin/" tool)
8775                   (lambda (port)
8776                     (format port "#!~a
8777 printf '~a is deprecated.  Use the \"gnome-extensions\" CLI or \
8778 \"gnome-extensions-app\" instead.\\n'"
8779                             (search-input-file inputs "bin/bash")
8780                             tool))))
8781               '("gnome-shell-extension-tool" "gnome-shell-extension-prefs"))))
8782          (replace 'glib-or-gtk-wrap
8783            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8784              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
8785                ;; By default intltool et al. would end up in the XDG_DATA_DIRS
8786                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8787                ;; phase.  Fix that since we don't need these.
8788                (wrap #:inputs (fold alist-delete inputs
8789                                     '("intltool" "glib:bin"))
8790                      #:outputs outputs)))))))
8791     (native-inputs
8792      `(("asciidoc" ,asciidoc)
8793        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8794        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8795        ("gobject-introspection" ,gobject-introspection)
8796        ("hicolor-icon-theme" ,hicolor-icon-theme)
8797        ("intltool" ,intltool)
8798        ("pkg-config" ,pkg-config)
8799        ("python" ,python)
8800        ("ruby-sass" ,ruby-sass)
8801        ("sassc" ,sassc)
8802        ("xsltproc" ,libxslt)
8803        ;; For tests
8804        ("xorg-server" ,xorg-server-for-tests)))
8805     (inputs
8806      (list accountsservice
8807            caribou
8808            docbook-xsl
8809            evolution-data-server
8810            gcr
8811            gdm
8812            librsvg
8813            gjs
8814            gtk
8815            gnome-autoar
8816            gnome-bluetooth
8817            gnome-desktop
8818            gnome-settings-daemon
8819            graphene
8820            gst-plugins-base
8821            ibus
8822            libcanberra
8823            libcroco
8824            libgnomekbd ;for gkbd-keyboard-display
8825            libgweather
8826            libnma
8827            libsoup
8828            mesa-headers
8829            mutter
8830            network-manager-applet
8831            polkit
8832            pulseaudio
8833            python-pygobject
8834            startup-notification
8835            telepathy-logger
8836            upower
8837            ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
8838            ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
8839            librsvg
8840            geoclue))
8841     (synopsis "Desktop shell for GNOME")
8842     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
8843     (description
8844      "GNOME Shell provides core user interface functions for the GNOME desktop,
8845 like switching to windows and launching applications.")
8846     (license license:gpl2+)))
8847
8848 (define-public gtk-vnc
8849   (package
8850     (name "gtk-vnc")
8851     (version "1.0.0")
8852     (source
8853      (origin
8854        (method url-fetch)
8855        (uri
8856         (string-append "mirror://gnome/sources/" name "/"
8857                        (version-major+minor version) "/"
8858                        name "-" version ".tar.xz"))
8859        (sha256
8860         (base32 "1060ws037v556rx1qhfrcg02859rscksrzr8fq11himdg4d1y6m8"))))
8861     (build-system meson-build-system)
8862     (arguments
8863      `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
8864     (native-inputs
8865      `(;; GJS depends on Rust, which is x86_64-only so far, so remove the GJS
8866        ;; dependency on other platforms (FIXME).
8867        ,@(if (target-x86-64?)
8868              `(("gjs" ,gjs))
8869              '())
8870        ("glib:bin" ,glib "bin")
8871        ("gobject-introspection" ,gobject-introspection)
8872        ("intltool" ,intltool)
8873        ("node" ,node)
8874        ("perl" ,perl)
8875        ("pkg-config" ,pkg-config)
8876        ("python" ,python-wrapper)
8877        ("vala" ,vala)))
8878     (inputs
8879      `(("cairo" ,cairo)
8880        ("librsvg" ,(librsvg-for-system))
8881        ("glib" ,glib)
8882        ("gnutls" ,gnutls)
8883        ("libgcrypt" ,libgcrypt)
8884        ("libsasl" ,cyrus-sasl)
8885        ("pulseaudio" ,pulseaudio)
8886        ("x11" ,libx11)
8887        ("zlib" ,zlib)))
8888     (propagated-inputs
8889      (list gtk+))
8890     (synopsis "VNC client viewer widget for GTK+")
8891     (description "GTK-VNC is a project providing client side APIs for the RFB
8892 protocol / VNC remote desktop technology.  It is built using coroutines allowing
8893 it to be completely asynchronous while remaining single threaded.  It provides a
8894 core C library, and bindings for Python (PyGTK).")
8895     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
8896     (license license:lgpl2.1+)))
8897
8898 (define-public gnome-autoar
8899   (package
8900     (name "gnome-autoar")
8901     (version "0.4.3")
8902     (source (origin
8903               (method url-fetch)
8904               (uri (string-append "mirror://gnome/sources/" name "/"
8905                                   (version-major+minor version) "/"
8906                                   name "-" version ".tar.xz"))
8907               (sha256
8908                (base32
8909                 "124y4j3wgb6axgfzw9f00865r033fg7b0qy9qgfsp5ilan4hgpvv"))))
8910     (build-system meson-build-system)
8911     (native-inputs
8912      (list gobject-introspection `(,glib "bin") pkg-config))
8913     (propagated-inputs
8914      (list libarchive))  ; Required by gnome-autoar-0.pc
8915     (inputs
8916      (list gtk+))
8917     (synopsis "Archives integration support for GNOME")
8918     (home-page "https://git.gnome.org/browse/gnome-autoar/")
8919     (description
8920      "GNOME Autoar is a library which makes creating and extracting archives
8921 easy, safe, and automatic.")
8922     (license license:lgpl2.1+)))
8923
8924 (define-public tracker
8925   (package
8926     (name "tracker")
8927     (version "3.3.1")
8928     (source (origin
8929               (method url-fetch)
8930               (uri (string-append "mirror://gnome/sources/tracker/"
8931                                   (version-major+minor version) "/"
8932                                   "tracker-" version ".tar.xz"))
8933               (sha256
8934                (base32
8935                 "1lkf353xvwc0hfyi03aq2qjikx3zmva7r56nxiavy7kqjyygbmjs"))))
8936     (build-system meson-build-system)
8937     (arguments
8938      `(#:glib-or-gtk? #t
8939        #:configure-flags
8940        ;; Otherwise, the RUNPATH will lack the final path component.
8941        (list (string-append "-Dc_link_args=-Wl,-rpath="
8942                             (assoc-ref %outputs "out") "/lib:"
8943                             (assoc-ref %outputs "out") "/lib/tracker-3.0")
8944              "-Ddocs=false"
8945              "-Dsystemd_user_services=false")
8946        #:phases
8947        (modify-phases %standard-phases
8948          (add-before 'configure 'set-shell
8949            (lambda _
8950              (setenv "SHELL" (which "bash"))))
8951          (add-before 'configure 'fix-paths
8952            (lambda* (#:key inputs #:allow-other-keys)
8953              (let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
8954                     (file (search-input-file inputs manpage)))
8955                (substitute* "docs/manpages/meson.build"
8956                  (("/etc/asciidoc[^']+")
8957                   file)))))
8958          (replace 'check
8959            (lambda* (#:key tests? #:allow-other-keys)
8960              (when tests?
8961                ;; Some tests expect to write to $HOME.
8962                (setenv "HOME" "/tmp")
8963                (invoke "dbus-run-session" "--" "meson" "test"
8964                        "--print-errorlogs")))))))
8965     (native-inputs
8966      (list `(,glib "bin")
8967            gobject-introspection
8968            docbook-xsl
8969            docbook-xml
8970            gsettings-desktop-schemas
8971            asciidoc
8972            libxslt
8973            cmake-minimal
8974            python-pygobject
8975            gtk-doc/stable
8976            intltool
8977            dbus
8978            pkg-config
8979            python
8980            vala))
8981     (inputs
8982      (list dbus
8983            libsoup))
8984     (propagated-inputs
8985      ;; These are in Requires or Requires.private of tracker-sparql-3.0.pc.
8986      (list glib
8987            icu4c                ;libunistring gets miner-miner-fs test to fail
8988            json-glib
8989            libxml2
8990            sqlite))
8991     (synopsis "Metadata database, indexer and search tool")
8992     (home-page "https://wiki.gnome.org/Projects/Tracker")
8993     (description
8994      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
8995
8996 It is a middleware component aimed at desktop application developers who want
8997 their apps to browse and search user content.  It's not designed to be used
8998 directly by desktop users, but it provides a commandline tool named
8999 @command{tracker} for the adventurous.
9000
9001 Tracker allows your application to instantly perform full-text searches across
9002 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
9003 example.  This is achieved by indexing the user's home directory in the
9004 background.
9005
9006 Tracker also allows your application to query and list content that the user
9007 has stored.  For example, GNOME Music displays all the music files that are
9008 found by Tracker.  This means that GNOME Music doesn't need to maintain a
9009 database of its own.
9010
9011 If you need to go beyond simple searches, Tracker is also a linked data
9012 endpoint and it understands SPARQL.")
9013     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
9014     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
9015     ;; libstemmer is bsd-3 and the rest is gpl2+.
9016     (license (list license:gpl2+
9017                    license:bsd-3
9018                    license:lgpl2.1+))))
9019
9020 (define-public tracker-miners
9021   (package
9022     (name "tracker-miners")
9023     (version "3.3.1")
9024     (source (origin
9025               (method url-fetch)
9026               (uri (string-append "mirror://gnome/sources/tracker-miners/"
9027                                   (version-major+minor version)
9028                                   "/tracker-miners-" version ".tar.xz"))
9029               (sha256
9030                (base32
9031                 "151w6ljq1gk9idqfq9qs3w16vms91jnxy59c9kx6jaf0fb9cdp9y"))))
9032     (build-system meson-build-system)
9033     (arguments
9034      `(#:glib-or-gtk? #t
9035        #:configure-flags
9036        (list "-Dminer_rss=false"        ; libgrss is required.
9037              ;; Ensure the RUNPATH contains all installed library locations.
9038              (string-append "-Dc_link_args=-Wl,-rpath="
9039                             (assoc-ref %outputs "out")
9040                             "/lib/tracker-miners-3.0")
9041              ;; TODO: Enable functional tests. Currently, the following error
9042              ;; appears:
9043              ;; Exception: The functional tests require DConf to be the default
9044              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
9045              "-Dfunctional_tests=false"
9046              "-Dsystemd_user_services=false")
9047        #:phases
9048        (modify-phases %standard-phases
9049          (add-before 'configure 'set-shell
9050            (lambda _
9051              (setenv "SHELL" (which "bash"))))
9052          (add-before 'configure 'fix-paths
9053            (lambda* (#:key inputs #:allow-other-keys)
9054              (let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
9055                     (file (search-input-file inputs manpage)))
9056                (substitute* "docs/manpages/meson.build"
9057                  (("/etc/asciidoc[^']+")
9058                   file)))))
9059          (add-before 'configure 'fix-tests
9060            (lambda* (#:key inputs #:allow-other-keys)
9061              ;; Disable those tests that require the functional_tests option
9062              ;; to be true and the UPower daemon to be started.
9063              (substitute* "examples/python/meson.build"
9064                (("foreach example_name:.*")
9065                 "foreach example_name: []"))
9066              ;; Disable this test that is failing randomly:
9067              ;; https://gitlab.gnome.org/GNOME/tracker-miners/-/issues/170.
9068              (substitute* "tests/libtracker-miner/meson.build"
9069                (("'miner-fs'.*")
9070                 ""))))
9071          (replace 'check
9072            (lambda* (#:key tests? #:allow-other-keys)
9073              (when tests?
9074                ;; Some tests expect to write to $HOME.
9075                (setenv "HOME" "/tmp")
9076                (setenv "LANG" "en_US.UTF-8")
9077                (invoke "dbus-run-session" "--" "meson" "test"
9078                        "--print-errorlogs"
9079                        ;; Do not run the slow test, which fail (see:
9080                        ;; https://gitlab.gnome.org/GNOME/tracker-miners
9081                        ;; /-/issues/226).
9082                        "--no-suite" "slow")))))))
9083     (native-inputs
9084      (list dbus
9085            intltool
9086            `(,glib "bin")
9087            docbook-xsl
9088            docbook-xml
9089            gsettings-desktop-schemas
9090            asciidoc
9091            libxslt
9092            gobject-introspection
9093            pkg-config
9094            python-pygobject))
9095     (inputs
9096      (list exempi
9097            ffmpeg
9098            flac
9099            giflib
9100            glib
9101            gstreamer
9102            icu4c
9103            json-glib
9104            libcue
9105            libexif
9106            libgsf
9107            libgxps
9108            libiptcdata
9109            libjpeg-turbo
9110            libosinfo
9111            libpng
9112            libseccomp
9113            libsoup
9114            libtiff
9115            libvorbis
9116            libxml2
9117            poppler
9118            shared-mime-info
9119            taglib
9120            totem-pl-parser
9121            tracker
9122            upower
9123            zlib))
9124     (synopsis "Metadata database, indexer and search tool")
9125     (home-page "https://wiki.gnome.org/Projects/Tracker")
9126     (description
9127      "Tracker is an advanced framework for first class objects with associated
9128 metadata and tags.  It provides a one stop solution for all metadata, tags,
9129 shared object databases, search tools and indexing.")
9130     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
9131     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
9132     (license (list license:gpl2+
9133                    license:lgpl2.1+
9134                    license:lgpl2.0+))))
9135
9136 (define-public nautilus
9137   (package
9138     (name "nautilus")
9139     (version "41.1")
9140     (source (origin
9141               (method url-fetch)
9142               (uri (string-append "mirror://gnome/sources/" name "/"
9143                                   (version-major version) "/"
9144                                   name "-" version ".tar.xz"))
9145               (sha256
9146                (base32
9147                 "0bsqh241m43x3qb3z0mjakjic610ncl95zhjdgls649phnc30qry"))
9148               (patches
9149                ;; This patch is already upstream and can be removed next
9150                ;; release.
9151                (search-patches "nautilus-add-libportal-gtk3.patch"))))
9152     (build-system meson-build-system)
9153     (arguments
9154      `(#:glib-or-gtk? #t
9155        #:phases
9156        (modify-phases %standard-phases
9157          (add-after 'unpack 'make-extensible
9158            (lambda _
9159              (substitute* "src/nautilus-module.c"
9160                (("static gboolean initialized = FALSE;" all)
9161                 (string-append all "
9162 const char *extension_path;
9163 char **extension_dirs, **d;
9164 ")
9165                 )
9166                (("load_module_dir \\(NAUTILUS_EXTENSIONDIR\\);" all)
9167                 (string-append all
9168                                "
9169 extension_path = g_getenv (\"NAUTILUS_EXTENSION_PATH\");
9170 if (extension_path)
9171 {
9172     extension_dirs = g_strsplit (extension_path, \":\", -1);
9173     for (d = extension_dirs; d != NULL && *d != NULL; d++)
9174         load_module_dir(*d);
9175     g_strfreev(extension_dirs);
9176 }
9177 ")))))
9178          (add-after 'unpack 'skip-gtk-update-icon-cache
9179            ;; Don't create 'icon-theme.cache'.
9180            (lambda _
9181              (substitute* "build-aux/meson/postinstall.py"
9182                (("gtk-update-icon-cache") "true")))))
9183        ;; XXX: FAIL: check-nautilus
9184        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
9185        #:tests? #f))
9186     (native-inputs
9187      (list desktop-file-utils     ; for update-desktop-database
9188            `(,glib "bin")         ; for glib-mkenums, etc.
9189            gobject-introspection
9190            intltool
9191            pkg-config
9192            python))
9193     (inputs
9194      (list dconf
9195            gexiv2
9196            gvfs
9197            exempi
9198            gnome-desktop
9199            gnome-autoar
9200            gst-plugins-base
9201            json-glib
9202            libhandy
9203            libportal
9204            libseccomp
9205            libselinux
9206            libsoup-minimal-2 ; to satisfy tracker dependencies
9207            tracker
9208            tracker-miners
9209            ;; XXX: gtk+ is required by libnautilus-extension.pc
9210            ;;
9211            ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
9212            ;; package.  See:
9213            ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
9214            gtk+
9215            libexif
9216            libxml2))
9217     (native-search-paths
9218      (list (search-path-specification
9219             (variable "NAUTILUS_EXTENSION_PATH")
9220             (files '("lib/nautilus/site-extensions")))))
9221     (synopsis "File manager for GNOME")
9222     (home-page "https://wiki.gnome.org/Apps/Nautilus")
9223     (description
9224      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
9225 design and behaviour, giving the user a simple way to navigate and manage its
9226 files.")
9227     (license license:gpl2+)))
9228
9229 (define-public baobab
9230   (package
9231     (name "baobab")
9232     (version "40.0")
9233     (source (origin
9234               (method url-fetch)
9235               (uri (string-append
9236                     "mirror://gnome/sources/" name "/"
9237                     (version-major version) "/"
9238                     name "-" version ".tar.xz"))
9239               (sha256
9240                (base32
9241                 "19yii3bdgivxrcka1c4g6dpbmql5nyawwhzlsph7z6bs68nambm6"))))
9242     (build-system meson-build-system)
9243     (arguments
9244      '(#:glib-or-gtk? #t))
9245     (native-inputs
9246      `(("intltool" ,intltool)
9247        ("pkg-config" ,pkg-config)
9248        ("python" ,python)
9249        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9250        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9251        ("itstool" ,itstool)
9252        ("xmllint" ,libxml2)
9253        ("glib" ,glib "bin")
9254        ("vala" ,vala)))
9255     (inputs
9256      (list gtk+ libhandy))
9257     (synopsis "Disk usage analyzer for GNOME")
9258     (description
9259      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
9260 usage in the GNOME desktop environment.  It can easily scan device volumes or
9261 a specific user-requested directory branch (local or remote).  Once the scan
9262 is complete it provides a graphical representation of each selected folder.")
9263     (home-page "https://wiki.gnome.org/Apps/Baobab")
9264     (license license:gpl2+)))
9265
9266 (define-public gnome-backgrounds
9267   (package
9268     (name "gnome-backgrounds")
9269     (version "41.0")
9270     (source
9271      (origin
9272        (method url-fetch)
9273        (uri (string-append "mirror://gnome/sources/" name "/"
9274                            (version-major version) "/"
9275                            name "-" version ".tar.xz"))
9276        (sha256
9277         (base32
9278          "0i9id5z72dqddh94648zylyf41amqq5lhny8sbyg1v8v4q6sr88x"))))
9279     (build-system meson-build-system)
9280     (native-inputs (list gettext-minimal))
9281     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
9282     (synopsis "Background images for the GNOME desktop")
9283     (description
9284      "GNOME backgrounds package contains a collection of graphics files which
9285 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
9286 the package creates the proper framework and directory structure so that you
9287 can add your own files to the collection.")
9288     (license (list license:gpl2+
9289                    license:cc-by2.0
9290                    license:cc-by-sa2.0
9291                    license:cc-by-sa3.0))))
9292
9293 (define-public gnome-screenshot
9294   (package
9295     (name "gnome-screenshot")
9296     (version "40.0")
9297     (source
9298      (origin
9299        (method url-fetch)
9300        (uri (string-append "mirror://gnome/sources/" name "/"
9301                            (version-major version) "/"
9302                            name "-" version ".tar.xz"))
9303        (sha256
9304         (base32
9305          "1qm544ymwibk31s30k47vnn79xg30m18r7l4di0c57g375dak31n"))
9306        (patches
9307         (search-patches "gnome-screenshot-meson-0.60.patch"))))
9308     (build-system meson-build-system)
9309     (arguments
9310      '(#:phases
9311        (modify-phases %standard-phases
9312          (add-after 'unpack 'skip-gtk-update-icon-cache
9313            ;; Don't create 'icon-theme.cache'.
9314            (lambda _
9315              (substitute* "build-aux/postinstall.py"
9316                (("gtk-update-icon-cache") "true")))))))
9317     (native-inputs
9318      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
9319        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9320        ("intltool" ,intltool)
9321        ("appstream-glib" ,appstream-glib)
9322        ("pkg-config" ,pkg-config)
9323        ("python" ,python)))
9324     (inputs
9325      (list gtk+ libcanberra libhandy libx11 libxext))
9326     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
9327     (synopsis "Take pictures of your screen")
9328     (description
9329      "GNOME Screenshot is a utility used for taking screenshots of the entire
9330 screen, a window or a user defined area of the screen, with optional
9331 beautifying border effects.")
9332     (license license:gpl2+)))
9333
9334 (define-public dconf-editor
9335   (package
9336     (name "dconf-editor")
9337     (version "3.38.3")
9338     (source
9339      (origin
9340        (method url-fetch)
9341        (uri (string-append "mirror://gnome/sources/" name "/"
9342                            (version-major+minor version) "/"
9343                            name "-" version ".tar.xz"))
9344        (sha256
9345         (base32
9346          "1qvrxrk1h8bd75xwasxbvlkqrw6xkavjimvc7sslkw6lvb3z86jp"))))
9347     (build-system meson-build-system)
9348     (native-inputs
9349      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9350        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9351        ("intltool" ,intltool)
9352        ("pkg-config" ,pkg-config)
9353        ("vala" ,vala)))
9354     (inputs
9355      (list dconf gtk+ libxml2))
9356     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
9357     (synopsis "Graphical editor for GNOME's dconf configuration system")
9358     (description
9359      "Dconf-editor is a graphical tool for browsing and editing the dconf
9360 configuration system for GNOME.  It allows users to configure desktop
9361 software that do not provide their own configuration interface.")
9362     (license license:lgpl2.1+)))
9363
9364 (define-public gnome-default-applications
9365   (package
9366     (name "gnome-default-applications")
9367     (version "0")
9368     (build-system trivial-build-system)
9369     (source #f)
9370     (propagated-inputs
9371      (list nautilus evince))
9372     (arguments
9373      `(#:modules ((guix build utils))
9374        #:builder
9375        (begin
9376          (use-modules (guix build utils))
9377          (let* ((out (assoc-ref %outputs "out"))
9378                 (apps (string-append out "/share/applications")))
9379            (mkdir-p apps)
9380            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
9381              (lambda (port)
9382                (format port "[Default Applications]\n")
9383                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
9384                (format port "application/pdf=evince.desktop\n")
9385                (format port "application/postscript=evince.desktop\n")))
9386            #t))))
9387     (synopsis "Default MIME type associations for the GNOME desktop")
9388     (description
9389      "Given many installed packages which might handle a given MIME type, a
9390 user running the GNOME desktop probably has some preferences: for example,
9391 that folders be opened by default by the Nautilus file manager, not the Baobab
9392 disk usage analyzer.  This package establishes that set of default MIME type
9393 associations for GNOME.")
9394     (license license:gpl3+)
9395     (home-page #f)))
9396
9397 (define-public libgovirt
9398   (package
9399    (name "libgovirt")
9400    (version "0.3.8")
9401    (source (origin
9402             (method url-fetch)
9403             (uri (string-append "mirror://gnome/sources/" name "/"
9404                                 (version-major+minor version) "/"
9405                                 name "-" version ".tar.xz"))
9406             (sha256
9407              (base32
9408               "1y0x1wyakj3ya33hgj0w1jkbcn50q21gmn2zyalxysqp55i1ij8x"))))
9409    (build-system glib-or-gtk-build-system)
9410    (native-inputs
9411     (list gettext-minimal
9412           `(,glib "bin")
9413           gobject-introspection
9414           gsettings-desktop-schemas
9415           `(,gtk+ "bin")
9416           pkg-config))
9417    (inputs
9418     (list glib-networking ; GIO plugin--for the tests
9419           rest))
9420    (synopsis "GoVirt Library")
9421    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
9422    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
9423    (license license:gpl2+)))
9424
9425 (define-public gnome-weather
9426   (package
9427    (name "gnome-weather")
9428    (version "40.1")
9429    (source (origin
9430             (method url-fetch)
9431             (uri (string-append "mirror://gnome/sources/" name "/"
9432                                 (version-major version) "/"
9433                                 name "-" version ".tar.xz"))
9434             (sha256
9435              (base32
9436               "0k9wnyinvx6433r07kvjyahgqc605g7gbpf3d0h6vi4p8x61849x"))))
9437    (build-system meson-build-system)
9438    (native-inputs
9439     `(("gettext" ,gettext-minimal)
9440       ("glib:bin" ,glib "bin")
9441       ("gobject-introspection" ,gobject-introspection)
9442       ("gtk+:bin" ,gtk+ "bin")
9443       ("pkg-config" ,pkg-config)))
9444    (inputs
9445     (list appstream-glib
9446           geoclue
9447           gjs
9448           gnome-desktop
9449           libgweather
9450           libhandy))
9451    (arguments
9452     `(#:glib-or-gtk? #t
9453       #:phases
9454       ,#~(modify-phases %standard-phases
9455            (add-after 'unpack 'fix-service-file
9456              (lambda _
9457                (substitute* "data/org.gnome.Weather.service.in"
9458                  (("Exec=[[:graph:]]+")
9459                   (string-append "Exec=" #$output
9460                                  "/bin/gnome-weather")))))
9461            (add-after 'install 'fix-desktop-file
9462              ;; FIXME: "gapplication launch org.gnome.Weather" fails for some
9463              ;; reason.  See https://issues.guix.gnu.org/issue/39324.
9464              (lambda _
9465                (let ((applications
9466                       (string-append #$output "/share/applications")))
9467                  (substitute* (string-append applications
9468                                              "/org.gnome.Weather.desktop")
9469                    (("Exec=.*") "Exec=gnome-weather\n")))))
9470            (add-after 'install 'wrap
9471              (lambda _
9472                (let ((gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9473                  ;; GNOME Weather needs the typelib files of GTK+, Pango etc
9474                  ;; at runtime.
9475                  (wrap-program (string-append #$output "/bin/gnome-weather")
9476                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
9477    (synopsis "Weather monitoring for GNOME desktop")
9478    (description "GNOME Weather is a small application that allows you to
9479 monitor the current weather conditions for your city, or anywhere in the
9480 world.")
9481    (home-page "https://wiki.gnome.org/Apps/Weather")
9482    (license license:gpl2+)))
9483
9484 (define-public gnome
9485   (package
9486     (name "gnome")
9487     (version (package-version gnome-shell))
9488     (source #f)
9489     (build-system trivial-build-system)
9490     (arguments '(#:builder (begin (mkdir %output) #t)))
9491     (propagated-inputs
9492      `(;; GNOME-Core-OS-Services
9493        ("accountsservice" ,accountsservice)
9494        ("network-manager" ,network-manager)
9495        ("packagekit" ,packagekit)
9496        ("upower" ,upower)
9497        ;; GNOME-Core-Shell
9498        ("adwaita-icon-theme" ,adwaita-icon-theme)
9499        ("gdm" ,gdm)
9500        ("glib-networking" ,glib-networking)
9501        ("gnome-backgrounds" ,gnome-backgrounds)
9502        ("gnome-bluetooth" ,gnome-bluetooth)
9503        ("gnome-color-manager" ,gnome-color-manager)
9504        ("gnome-control-center" ,gnome-control-center)
9505        ("gnome-desktop" ,gnome-desktop)
9506        ("gnome-initial-setup" ,gnome-initial-setup)
9507        ("gnome-keyring" ,gnome-keyring)
9508        ("gnome-menus" ,gnome-menus)
9509        ("gnome-session" ,gnome-session)
9510        ("gnome-settings-daemon" ,gnome-settings-daemon)
9511        ("gnome-shell-extensions" ,gnome-shell-extensions)
9512        ("gnome-shell" ,gnome-shell)
9513        ("gnome-themes-extra" ,gnome-themes-extra)
9514        ("gnome-user-docs" ,gnome-user-docs)
9515        ("gnome-user-share" ,gnome-user-share)
9516        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9517        ("gvfs" ,gvfs)
9518        ("mutter" ,mutter)
9519        ("orca" ,orca)
9520        ("rygel" ,rygel)
9521        ("sushi" ,sushi)
9522        ;; GNOME-Core-Utilities
9523        ("baobab" ,baobab)
9524        ("cheese" ,cheese)
9525        ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9526        ;; only works on x86_64, so exclude it on other architectures.
9527        ,@(if (string-prefix? "x86_64" (%current-system))
9528              `(("eog" ,eog))
9529              '())
9530        ("epiphany" ,epiphany)
9531        ("evince" ,evince)
9532        ("file-roller" ,file-roller)
9533        ("gedit" ,gedit)
9534        ("gnome-boxes" ,gnome-boxes)
9535        ("gnome-calculator" ,gnome-calculator)
9536        ("gnome-calendar" ,gnome-calendar)
9537        ("gnome-characters" ,gnome-characters)
9538        ("gnome-clocks" ,gnome-clocks)
9539        ("gnome-contacts" ,gnome-contacts)
9540        ("gnome-disk-utility" ,gnome-disk-utility)
9541        ("gnome-font-viewer" ,gnome-font-viewer)
9542        ("gnome-maps" ,gnome-maps)
9543        ("gnome-music" ,gnome-music)
9544        ("gnome-photos" ,gnome-photos)
9545        ("gnome-screenshot" ,gnome-screenshot)
9546        ("gnome-system-monitor" ,gnome-system-monitor)
9547        ("gnome-terminal" ,gnome-terminal)
9548        ("gnome-weather" ,gnome-weather)
9549        ("nautilus" ,nautilus)
9550        ("simple-scan" ,simple-scan)
9551        ("totem" ,totem)
9552        ("tracker-miners" ,tracker-miners)
9553        ("yelp" ,yelp)
9554        ;; Others
9555        ("hicolor-icon-theme" ,hicolor-icon-theme)
9556        ("gnome-online-accounts" ,gnome-online-accounts)
9557
9558        ;; Packages not part of GNOME proper but that are needed for a good
9559        ;; experience.  See <https://bugs.gnu.org/39646>.
9560        ;; XXX: Find out exactly which ones are needed and why.
9561        ("font-abattis-cantarell"            ,font-abattis-cantarell)
9562        ("font-dejavu"               ,font-dejavu)
9563        ("at-spi2-core"              ,at-spi2-core-minimal)
9564        ("dbus"                      ,dbus)
9565        ("dconf"                     ,dconf)
9566        ("desktop-file-utils"        ,desktop-file-utils)
9567        ("gnome-default-applications" ,gnome-default-applications)
9568        ("gnome-themes-standard"     ,gnome-themes-standard)
9569        ("gst-plugins-base"          ,gst-plugins-base)
9570        ("gst-plugins-good"          ,gst-plugins-good)
9571        ("gucharmap"                 ,gucharmap)
9572        ("pinentry-gnome3"           ,pinentry-gnome3)
9573        ("pulseaudio"                ,pulseaudio)
9574        ("shared-mime-info"          ,shared-mime-info)
9575        ("system-config-printer"     ,system-config-printer)
9576        ("xdg-user-dirs"             ,xdg-user-dirs)
9577        ("yelp"                      ,yelp)
9578        ("zenity"                    ,zenity)))
9579     (synopsis "The GNU desktop environment")
9580     (home-page "https://www.gnome.org/")
9581     (description
9582      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
9583 applications for browsing the web, editing text and images, creating
9584 documents and diagrams, playing media, scanning, and much more.")
9585     (license license:gpl2+)))
9586
9587 (define-public byzanz
9588   ;; The last stable release of Byzanz was in 2011, but there have been many
9589   ;; useful commits made to the Byzanz repository since then that it would be
9590   ;; silly to use such an old release.
9591   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9592     (package
9593       (name "byzanz")
9594       (version (string-append "0.2-1." (string-take commit 7)))
9595       (source (origin
9596                 (method git-fetch)
9597                 (uri (git-reference
9598                       (url "https://git.gnome.org/browse/byzanz")
9599                       (commit commit)))
9600                 (file-name (string-append name "-" version "-checkout"))
9601                 (sha256
9602                  (base32
9603                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9604       (build-system glib-or-gtk-build-system)
9605       (arguments
9606        '(#:phases
9607          (modify-phases %standard-phases
9608            (add-before 'bootstrap 'build-without-Werror
9609              (lambda _
9610                ;; The build system cleverly detects that we're not building from
9611                ;; a release tarball and turns on -Werror for GCC.
9612                ;; Unsurprisingly, there is a warning during compilation that
9613                ;; causes the build to fail unnecessarily, so we remove the flag.
9614                (substitute* '("configure.ac")
9615                  (("-Werror") ""))
9616                #t)))))
9617       (native-inputs
9618        (list autoconf
9619              automake
9620              gnome-common
9621              intltool
9622              libtool
9623              pkg-config
9624              which))
9625       (inputs
9626        (list glib gstreamer gst-plugins-base gtk+))
9627       (synopsis "Desktop recording program")
9628       (description "Byzanz is a simple desktop recording program with a
9629 command-line interface.  It can record part or all of an X display for a
9630 specified duration and save it as a GIF encoded animated image file.")
9631       (home-page "https://git.gnome.org/browse/byzanz")
9632       (license license:gpl2+))))
9633
9634 (define-public authenticator
9635   (package
9636     (name "authenticator")
9637     (version "3.32.2")
9638     (source
9639      (origin
9640        (method git-fetch)
9641        (uri (git-reference
9642              (url "https://gitlab.gnome.org/World/Authenticator")
9643              (commit version)))
9644        (file-name (git-file-name name version))
9645        (sha256
9646         (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9647     (build-system meson-build-system)
9648     (arguments
9649      `(#:meson ,meson-0.59
9650        #:glib-or-gtk? #t
9651        #:phases
9652        (modify-phases %standard-phases
9653          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9654            (lambda* (#:key inputs outputs #:allow-other-keys)
9655              (let ((prog (string-append (assoc-ref outputs "out")
9656                                         "/bin/authenticator"))
9657                    (pylib (string-append (assoc-ref outputs "out")
9658                                          "/lib/python"
9659                                          ,(version-major+minor
9660                                            (package-version
9661                                             (this-package-input "python")))
9662                                          "/site-packages")))
9663                (wrap-program prog
9664                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
9665                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
9666     (native-inputs
9667      (list desktop-file-utils
9668            gettext-minimal
9669            `(,glib "bin")
9670            gobject-introspection
9671            `(,gtk+ "bin")
9672            pkg-config))
9673     (inputs
9674      (list gsettings-desktop-schemas
9675            gtk+
9676            libhandy-0.0
9677            libsecret
9678            python
9679            python-beautifulsoup4
9680            python-pillow
9681            python-pyfavicon
9682            python-pygobject
9683            python-pyotp
9684            python-pyzbar
9685            yoyo-migrations
9686            zbar))
9687     (home-page "https://gitlab.gnome.org/World/Authenticator/")
9688     (synopsis "Two-factor authentication application built for GNOME")
9689     (description
9690      "Authenticator is a two-factor authentication (2FA) application built for
9691 the GNOME desktop environment.
9692
9693 Features:
9694
9695 @itemize
9696 @item QR code scanner
9697 @item Beautiful UI
9698 @item Huge database of more than 560 supported services
9699 @item Keep your PIN tokens secure by locking the application with a password
9700 @item Automatically fetch an image for services using their favicon
9701 @item The possibility to add new services
9702 @end itemize")
9703     (license license:gpl3+)))
9704
9705 (define-public gsound
9706   (package
9707     (name "gsound")
9708     (version "1.0.3")
9709     (source (origin
9710               (method url-fetch)
9711               (uri (string-append "mirror://gnome/sources/gsound/"
9712                                   (version-major+minor version) "/"
9713                                   "gsound-" version ".tar.xz"))
9714               (sha256
9715                (base32
9716                 "06l80xgykj7x1kqkjvcq06pwj2rmca458zvs053qc55x3sg06bfa"))))
9717     (build-system meson-build-system)
9718     (native-inputs
9719      (list pkg-config gobject-introspection vala))
9720     (propagated-inputs
9721      (list libcanberra))   ; in Requires.private of gsound.pc
9722     (home-page "https://wiki.gnome.org/Projects/GSound")
9723     (synopsis "GObject wrapper for libcanberra")
9724     (description
9725      "GSound is a small library for playing system sounds.  It's designed to be
9726 used via GObject Introspection, and is a thin wrapper around the libcanberra C
9727 library.")
9728     (license license:lgpl2.1+)))
9729
9730 (define-public libzapojit
9731   (package
9732     (name "libzapojit")
9733     (version "0.0.3")
9734     (source (origin
9735               (method url-fetch)
9736               (uri (string-append "mirror://gnome/sources/" name "/"
9737                                   (version-major+minor version) "/"
9738                                   name "-" version ".tar.xz"))
9739               (sha256
9740                (base32
9741                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9742     (build-system gnu-build-system)
9743     (native-inputs
9744      (list gobject-introspection intltool pkg-config))
9745     (inputs
9746      (list `(,gnome-online-accounts "lib") json-glib rest))
9747     (home-page "https://wiki.gnome.org/Projects/Zapojit")
9748     (synopsis "Library for accessing SkyDrive and Hotmail")
9749     (description
9750      "Libzapojit is a GLib-based library for accessing online service APIs of
9751 Microsoft SkyDrive and Hotmail, using their REST protocols.")
9752     (license license:lgpl2.1+)))
9753
9754 (define-public gnome-clocks
9755   (package
9756     (name "gnome-clocks")
9757     (version "40.0")
9758     (source (origin
9759               (method url-fetch)
9760               (uri (string-append "mirror://gnome/sources/" name "/"
9761                                   (version-major version) "/"
9762                                   name "-" version ".tar.xz"))
9763               (sha256
9764                (base32
9765                 "02d3jg46sn8d9gd4dsaly22gg5vkbz2gpq4pmwpvncb4rsqk7sn2"))))
9766     (build-system meson-build-system)
9767     (arguments
9768      '(#:glib-or-gtk? #t
9769        #:phases
9770        (modify-phases %standard-phases
9771          (add-after 'unpack 'skip-gtk-update-icon-cache
9772            ;; Don't create 'icon-theme.cache'.
9773            (lambda _
9774              (substitute* "build-aux/post-install.py"
9775                (("gtk-update-icon-cache") "true")))))))
9776     (native-inputs
9777      `(("vala" ,vala)
9778        ("pkg-config" ,pkg-config)
9779        ("glib" ,glib "bin")             ; for glib-compile-resources
9780        ("desktop-file-utils" ,desktop-file-utils)
9781        ("gettext" ,gettext-minimal)
9782        ("itstool" ,itstool)))
9783     (inputs
9784      (list glib
9785            gtk+
9786            gsound
9787            geoclue
9788            geocode-glib
9789            libgweather
9790            libhandy
9791            gnome-desktop))
9792     (home-page "https://wiki.gnome.org/Apps/Clocks")
9793     (synopsis "GNOME's clock application")
9794     (description
9795      "GNOME Clocks is a simple clocks application designed to fit the GNOME
9796 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
9797     (license license:gpl3+)))
9798
9799 (define-public gnome-calendar
9800   (package
9801     (name "gnome-calendar")
9802     (version "40.2")
9803     (source (origin
9804               (method url-fetch)
9805               (uri (string-append "mirror://gnome/sources/" name "/"
9806                                   (version-major version) "/"
9807                                   name "-" version ".tar.xz"))
9808               (sha256
9809                (base32
9810                 "0czasxnmbw2zm21lmxam8qixacagciq3f815s809hn0f9byh2dwy"))))
9811     (build-system meson-build-system)
9812     (arguments
9813      `(#:glib-or-gtk? #t
9814        ;; gnome-calendar has to be installed before the tests can be run
9815        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
9816        #:tests? #f
9817        #:phases
9818        (modify-phases %standard-phases
9819          (add-after 'unpack 'skip-gtk-update-icon-cache
9820            ;; Don't create 'icon-theme.cache'.
9821            (lambda _
9822              (substitute* "build-aux/meson/meson_post_install.py"
9823                (("gtk-update-icon-cache") "true"))
9824              #t)))))
9825     (native-inputs
9826      `(("gettext" ,gettext-minimal)
9827        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
9828        ("pkg-config" ,pkg-config)))
9829     (inputs
9830      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9831        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9832        ("libdazzle" ,libdazzle)
9833        ("libedataserverui" ,evolution-data-server)
9834        ("libgweather" ,libgweather)
9835        ("libhandy" ,libhandy)
9836        ("geoclue" ,geoclue)))
9837     (propagated-inputs
9838      (list evolution-data-server))
9839     (home-page "https://wiki.gnome.org/Apps/Calendar")
9840     (synopsis "GNOME's calendar application")
9841     (description
9842      "GNOME Calendar is a simple calendar application designed to fit the GNOME
9843 desktop.  It supports multiple calendars, month, week and year view.")
9844     (license license:gpl3+)))
9845
9846 (define-public gnome-todo
9847   (package
9848     (name "gnome-todo")
9849     (version "41.0")
9850     (source (origin
9851               (method url-fetch)
9852               (uri (string-append "mirror://gnome/sources/" name "/"
9853                                   (version-major version) "/"
9854                                   name "-" version ".tar.xz"))
9855               (sha256
9856                (base32
9857                 "1r94880d4khbjhhfnhaba3y3d4hv2bri82rzfzxn27s5iybpqras"))
9858               (patches (search-patches "gnome-todo-libportal.patch"))))
9859     (build-system meson-build-system)
9860     (arguments
9861      (list
9862       #:glib-or-gtk? #t
9863       #:phases
9864       #~(modify-phases %standard-phases
9865           (add-after 'unpack 'skip-gtk-update-icon-cache
9866             (lambda _
9867               (substitute* "build-aux/meson/meson_post_install.py"
9868                 (("gtk-update-icon-cache") "true"))))
9869           (delete 'check)
9870           (add-after 'install 'check
9871             (assoc-ref %standard-phases
9872                        'check))
9873           (add-before 'check 'pre-check
9874             (lambda _
9875               (setenv "GSETTINGS_SCHEMA_DIR"
9876                       (string-append #$output "/share/glib-2.0/schemas")))))))
9877     (native-inputs
9878      (list gettext-minimal
9879            gobject-introspection
9880            `(,glib "bin")               ;for glib-compile-resources
9881            `(,gtk "bin")                ;for gtk-update-icon-cache
9882            itstool
9883            pkg-config))
9884     (inputs
9885      (list rest                         ;for Todoist plugin
9886            gtk
9887            json-glib                    ;for Todoist plugin
9888            libadwaita
9889            evolution-data-server
9890            libical
9891            libpeas
9892            libportal
9893            python-pygobject
9894            evolution-data-server
9895            `(,gnome-online-accounts "lib")
9896            gsettings-desktop-schemas))
9897     (home-page "https://wiki.gnome.org/Apps/Todo")
9898     (synopsis "GNOME's ToDo Application")
9899     (description "GNOME To Do is a simplistic personal task manager designed
9900 to perfectly fit the GNOME desktop.")
9901     (license license:gpl3+)))
9902
9903 (define-public gnome-dictionary
9904   (package
9905     (name "gnome-dictionary")
9906     (version "40.0")
9907     (source (origin
9908               (method url-fetch)
9909               (uri (string-append "mirror://gnome/sources/" name "/"
9910                                   (version-major version) "/"
9911                                   name "-" version ".tar.xz"))
9912               (sha256
9913                (base32
9914                 "1d8dhcfys788vv27v34i3s3x3jdvdi2kqn2a5p8c937a9hm0qr9f"))))
9915     (build-system meson-build-system)
9916     (arguments
9917      `(#:glib-or-gtk? #t
9918        #:meson ,meson-0.59
9919        #:phases
9920        (modify-phases %standard-phases
9921          (add-after 'unpack 'skip-gtk-update-icon-cache
9922            ;; Don't create 'icon-theme.cache'.
9923            (lambda _
9924              (substitute* "build-aux/meson/post-install.py"
9925                (("gtk-update-icon-cache") "true")))))))
9926     (native-inputs
9927      (list `(,glib "bin")
9928            gobject-introspection
9929            intltool
9930            itstool
9931            pkg-config
9932            libxml2))
9933     (inputs
9934      (list gsettings-desktop-schemas gtk+))
9935     (home-page "https://wiki.gnome.org/Apps/Dictionary")
9936     (synopsis "Look up words in dictionary sources")
9937     (description
9938      "GNOME Dictionary can look for the definition or translation of a word in
9939 existing databases over the internet.")
9940     (license license:gpl3+)))
9941
9942 (define-public gnome-tweaks
9943   (package
9944     (name "gnome-tweaks")
9945     (version "40.0")
9946     (source (origin
9947               (method url-fetch)
9948               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
9949                                   (version-major version) "/"
9950                                   "gnome-tweaks-" version ".tar.xz"))
9951               (patches
9952                (list (search-patch "gnome-tweaks-search-paths.patch")))
9953               (sha256
9954                (base32
9955                 "0sn3xsjhnini0f2dyi1ymrr3fb8mi7w5j5lsyw11rc5h67h3ypzr"))))
9956     (build-system meson-build-system)
9957     (arguments
9958      `(#:glib-or-gtk? #t
9959        #:configure-flags '("-Dlocalstatedir=/tmp"
9960                            "-Dsysconfdir=/tmp")
9961        #:imported-modules ((guix build python-build-system)
9962                            ,@%meson-build-system-modules)
9963        #:phases
9964        (modify-phases %standard-phases
9965          (add-after 'unpack 'skip-gtk-update-icon-cache
9966            ;; Don't create 'icon-theme.cache'.
9967            (lambda _
9968              (substitute* "meson-postinstall.py"
9969                (("gtk-update-icon-cache") "true"))))
9970          (add-after 'install 'wrap
9971            (@@ (guix build python-build-system) wrap))
9972          (add-after 'wrap 'wrap-gi-typelib-and-python
9973            (lambda* (#:key inputs outputs #:allow-other-keys)
9974              (let ((out               (assoc-ref outputs "out"))
9975                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9976                (let ((python-path
9977                       (string-append out "/lib/python"
9978                                      ,(version-major+minor
9979                                        (package-version python))
9980                                      "/site-packages")))
9981                  (wrap-program (string-append out "/bin/gnome-tweaks")
9982                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
9983                    `("GUIX_PYTHONPATH" ":" prefix (,python-path))))))))))
9984     (native-inputs
9985      `(("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
9986        ("intltool" ,intltool)
9987        ("pkg-config" ,pkg-config)))
9988     (inputs
9989      (list bash-minimal ; to execute the wrapper program
9990            gnome-desktop
9991            gtk+
9992            gobject-introspection
9993            gsettings-desktop-schemas
9994            libhandy
9995            libnotify
9996            libsoup
9997            nautilus
9998            python
9999            python-pygobject))
10000     (synopsis "Customize advanced GNOME 3 options")
10001     (home-page "https://wiki.gnome.org/Apps/Tweaks")
10002     (description
10003      "GNOME Tweaks allows adjusting advanced configuration settings in
10004 GNOME 3.  This includes things like the fonts used in user interface elements,
10005 alternative user interface themes, changes in window management behavior,
10006 GNOME Shell appearance and extension, etc.")
10007     (license license:gpl3+)))
10008
10009 (define-public gnome-shell-extensions
10010   (package
10011     (name "gnome-shell-extensions")
10012     (version "41.0")
10013     (source (origin
10014               (method url-fetch)
10015               (uri (string-append "mirror://gnome/sources/" name "/"
10016                                   (version-major version)  "/"
10017                                   name "-" version ".tar.xz"))
10018               (sha256
10019                (base32
10020                 "0s7wcsa0ysdgh5zpxpa95id5rz4ajb2r1561v5szjf4b8k0slkyq"))))
10021     (build-system meson-build-system)
10022     (arguments
10023      '(#:configure-flags '("-Dextension_set=all")))
10024     (native-inputs
10025      `(("glib:bin" ,glib "bin")
10026        ("intltool" ,intltool)
10027        ("pkg-config" ,pkg-config)))
10028     (propagated-inputs
10029      (list glib))
10030     (synopsis "Extensions for GNOME Shell")
10031     (description "GNOME Shell extensions modify and extend GNOME Shell
10032 functionality and behavior.")
10033     (home-page "https://extensions.gnome.org/")
10034     (license license:gpl3+)))
10035
10036 (define-public folks
10037   (package
10038     (name "folks")
10039     (version "0.15.3")
10040     (source (origin
10041               (method url-fetch)
10042               (uri (string-append
10043                     "mirror://gnome/sources/folks/"
10044                     (version-major+minor version) "/"
10045                     "folks-" version ".tar.xz"))
10046               (sha256
10047                (base32
10048                 "19a4qp9ry8y24jx1v5456qn9lnw843571vkkah3bxx4ky3x3gmr1"))))
10049     (build-system meson-build-system)
10050     (arguments
10051      '(#:phases
10052        (modify-phases %standard-phases
10053          (add-after 'unpack 'skip-gtk-update-icon-cache
10054            ;; Don't create 'icon-theme.cache'.
10055            (lambda _
10056              (substitute* "meson_post_install.py"
10057                (("gtk-update-icon-cache") "true")))))))
10058     (inputs
10059      (list bdb
10060            dbus-glib
10061            evolution-data-server
10062            glib
10063            libgee
10064            readline
10065            telepathy-glib))
10066     (native-inputs
10067      (list `(,glib "bin")
10068            gobject-introspection
10069            python-dbusmock
10070            intltool
10071            pkg-config
10072            python
10073            vala))
10074     (synopsis "Library to aggregate data about people")
10075     (description "Libfolks is a library that aggregates information about people
10076 from multiple sources (e.g., Telepathy connection managers for IM contacts,
10077 Evolution Data Server for local contacts, libsocialweb for web service contacts,
10078 etc.) to create metacontacts.  It's written in Vala, which generates C code when
10079 compiled.")
10080     (home-page "https://wiki.gnome.org/Projects/Folks")
10081     (license license:lgpl2.1+)))
10082
10083 (define-public gfbgraph
10084   (package
10085     (name "gfbgraph")
10086     (version "0.2.4")
10087     (source (origin
10088               (method url-fetch)
10089               (uri (string-append
10090                     "mirror://gnome/sources/gfbgraph/"
10091                     (version-major+minor version) "/"
10092                     "gfbgraph-" version ".tar.xz"))
10093               (sha256
10094                (base32
10095                 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
10096     (build-system glib-or-gtk-build-system)
10097     (arguments
10098      `(#:tests? #f                      ; tests appear to require the network
10099        #:configure-flags '("--disable-static"
10100                            "--enable-gtk-doc"
10101                            "--enable-introspection")))
10102     (native-inputs
10103      (list gobject-introspection
10104            gtk-doc/stable
10105            pkg-config
10106            ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
10107            autoconf
10108            automake
10109            libtool
10110            which))
10111     (inputs
10112      `(("json-glib" ,json-glib)
10113        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
10114        ("rest" ,rest)))
10115     (synopsis "GLib/GObject wrapper for the Facebook API")
10116     (description "This library allows you to use the Facebook API from
10117 GLib/GObject code.")
10118     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
10119     (license license:lgpl2.1+)))
10120
10121 (define-public libgnomekbd
10122   (package
10123     (name "libgnomekbd")
10124     (version "3.26.1")
10125     (source (origin
10126               (method url-fetch)
10127               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
10128                                   (version-major+minor version)  "/"
10129                                   "libgnomekbd-" version ".tar.xz"))
10130               (sha256
10131                (base32
10132                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
10133     (build-system gnu-build-system)
10134     (native-inputs
10135      (list pkg-config
10136            `(,glib "bin") intltool))
10137     (propagated-inputs
10138      ;; Referred to in .h files and .pc.
10139      (list glib gtk+ libxklavier))
10140     (home-page "https://www.gnome.org")
10141     (synopsis "GNOME keyboard configuration library")
10142     (description
10143      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
10144 environment, which can notably display keyboard layouts.")
10145     (license license:lgpl2.0+)))
10146
10147 ;;; This package is no longer maintained:
10148 ;;; https://wiki.gnome.org/Attic/LibUnique
10149 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
10150 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
10151 (define-public libunique
10152   (package
10153     (name "libunique")
10154     (version "3.0.2")
10155     (source (origin
10156               (method url-fetch)
10157               (uri (string-append "mirror://gnome/sources/" name "/"
10158                                   (version-major+minor version)  "/"
10159                                   name "-" version ".tar.xz"))
10160               (sha256
10161                (base32
10162                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
10163     (build-system glib-or-gtk-build-system)
10164     (arguments
10165      `(#:configure-flags '("--disable-static"
10166                            "--disable-dbus" ; use gdbus
10167                            "--enable-introspection")))
10168     (native-inputs
10169      `(("pkg-config" ,pkg-config)
10170        ("gobject-introspection" ,gobject-introspection)
10171        ("glib:bin" ,glib "bin")
10172        ("gtk-doc" ,gtk-doc/stable)))
10173     (propagated-inputs
10174      ;; Referred to in .h files and .pc.
10175      (list gtk+))
10176     (home-page "https://wiki.gnome.org/Attic/LibUnique")
10177     (synopsis "Library for writing single instance applications")
10178     (description
10179      "Libunique is a library for writing single instance applications.  If you
10180 launch a single instance application twice, the second instance will either just
10181 quit or will send a message to the running instance.  Libunique makes it easy to
10182 write this kind of application, by providing a base class, taking care of all
10183 the IPC machinery needed to send messages to a running instance, and also
10184 handling the startup notification side.")
10185     (license license:lgpl2.1+)))
10186
10187 (define-public gnome-calculator
10188   (package
10189     (name "gnome-calculator")
10190     (version "41.0")
10191     (source
10192      (origin
10193        (method url-fetch)
10194        (uri (string-append "mirror://gnome/sources/" name "/"
10195                            (version-major version) "/"
10196                            name "-" version ".tar.xz"))
10197        (sha256
10198         (base32
10199          "16fwwfnw1w8p53ffny6zkff5cfsmg7xax9kmfgb7czjqv15w0vd6"))))
10200     (build-system meson-build-system)
10201     (arguments
10202      '(#:glib-or-gtk? #t
10203        #:phases
10204        (modify-phases %standard-phases
10205          (add-before 'check 'pre-check
10206            (lambda _
10207              ;; Tests require a writable HOME.
10208              (setenv "HOME" (getcwd)))))))
10209     (native-inputs
10210      (list gettext-minimal
10211            `(,glib "bin")               ;for glib-compile-schemas, gio-2.0.
10212            `(,gtk+ "bin")               ;for gtk-update-icon-cache
10213            itstool
10214            vala
10215            pkg-config
10216            python))
10217     (inputs
10218      (list `(,glib "bin")
10219            gtksourceview
10220            libgee
10221            libhandy
10222            libsoup-minimal-2
10223            libxml2
10224            mpc
10225            mpfr))
10226     (home-page "https://wiki.gnome.org/Apps/Calculator")
10227     (synopsis "Desktop calculator")
10228     (description
10229      "Calculator is an application that solves mathematical equations and
10230 is suitable as a default application in a Desktop environment.")
10231     (license license:gpl3)))
10232
10233 (define-public xpad
10234   (package
10235     (name "xpad")
10236     (version "5.8.0")
10237     (source
10238      (origin
10239        (method url-fetch)
10240        (uri (string-append "https://launchpad.net/xpad/trunk/"
10241                            version "/+download/"
10242                            name "-" version ".tar.bz2"))
10243        (sha256
10244         (base32
10245          "1sc2dz4yxx6glnqpnhiby85g2blnsfn8d3fvbaqhdi2hi0q54q7j"))))
10246     (build-system gnu-build-system)
10247     (native-inputs
10248      (list autoconf automake
10249            `(,gtk+ "bin") intltool pkg-config))
10250     (inputs
10251      (list gtksourceview libsm))
10252     (home-page "https://wiki.gnome.org/Apps/Xpad")
10253     (synopsis "Virtual sticky note")
10254     (description
10255      "Xpad is a sticky note that strives to be simple, fault tolerant,
10256 and customizable.  Xpad consists of independent pad windows, each is
10257 basically a text box in which notes can be written.")
10258     (license license:gpl3+)))
10259
10260 (define-public gucharmap
10261   (let ((unicode-files
10262          '(("Blocks.txt"
10263             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
10264            ("DerivedAge.txt"
10265             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
10266            ("NamesList.txt"
10267             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
10268            ("Scripts.txt"
10269             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
10270            ("UnicodeData.txt"
10271             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
10272            ("Unihan.zip"
10273             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
10274     (package
10275       (name "gucharmap")
10276       (version "12.0.1")
10277       (source
10278        (origin
10279          (method url-fetch)
10280          (uri (string-append "mirror://gnome/sources/" name "/"
10281                              (version-major+minor version) "/"
10282                              name "-" version ".tar.xz"))
10283          (sha256
10284           (base32
10285            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
10286       (build-system glib-or-gtk-build-system)
10287       (arguments
10288        `(#:modules ((ice-9 match)
10289                     (guix build glib-or-gtk-build-system)
10290                     (guix build utils))
10291          #:configure-flags
10292          (list "--with-unicode-data=../unicode-data")
10293          #:phases
10294          (modify-phases %standard-phases
10295            (add-after 'unpack 'prepare-unicode-data
10296              (lambda* (#:key inputs #:allow-other-keys)
10297                (mkdir-p "../unicode-data")
10298                (with-directory-excursion "../unicode-data"
10299                  (for-each (match-lambda
10300                              ((file _)
10301                               (install-file (assoc-ref inputs file) ".")))
10302                            ',unicode-files))
10303                #t)))))
10304       (native-inputs
10305        `(("desktop-file-utils" ,desktop-file-utils)
10306          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
10307          ("gobject-introspection" ,gobject-introspection)
10308          ("intltool" ,intltool)
10309          ("itstool" ,itstool)
10310          ("pkg-config" ,pkg-config)
10311          ,@(map (match-lambda
10312                   ((file hash)
10313                    `(,file
10314                      ,(origin
10315                         (method url-fetch)
10316                         (uri (string-append
10317                               "http://www.unicode.org/Public/12.0.0/ucd/"
10318                               file))
10319                         (sha256 (base32 hash))))))
10320                 unicode-files)
10321          ("unzip" ,unzip)))
10322       (inputs
10323        `(("gtk+" ,gtk+)
10324          ("xmllint" ,libxml2)))
10325       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
10326       (synopsis "Unicode character picker and font browser")
10327       (description
10328        "This program allows you to browse through all the available Unicode
10329 characters and categories for the installed fonts, and to examine their
10330 detailed properties.  It is an easy way to find the character you might
10331 only know by its Unicode name or code point.")
10332       (license license:gpl3+))))
10333
10334 (define-public gcolor3
10335   (package
10336     (name "gcolor3")
10337     (version "2.4.0")
10338     (source
10339      (origin
10340        (method git-fetch)
10341        (uri (git-reference
10342              (url "https://gitlab.gnome.org/World/gcolor3")
10343              (commit (string-append "v" version))))
10344        (file-name (git-file-name name version))
10345        (sha256
10346         (base32 "1igqmach1vhcrvbpw346pmkbb5kabbb806ssswrvkp569n700wmc"))
10347        ;; XXX: Remove when upgrading
10348        (patches (search-patches "gcolor3-update-libportal-usage.patch"))))
10349     (build-system meson-build-system)
10350     (arguments
10351      `(#:glib-or-gtk? #t))
10352     (native-inputs
10353      (list desktop-file-utils gettext-minimal
10354            `(,glib "bin")
10355            `(,gtk+ "bin") pkg-config))
10356     (inputs
10357      (list gsettings-desktop-schemas gtk+ libportal))
10358     (home-page "https://www.hjdskes.nl/projects/gcolor3/")
10359     (synopsis "Simple color chooser written in GTK3")
10360     (description "Color Picker is a simple color chooser written in GTK3.  It
10361 supports both X and Wayland display servers.")
10362     (license license:gpl2+)))
10363
10364 (define-public bluefish
10365   (package
10366     (name "bluefish")
10367     (version "2.2.12")
10368     (source
10369      (origin
10370        (method url-fetch)
10371        (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
10372                            "bluefish-" version ".tar.gz"))
10373        (sha256
10374         (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
10375     (build-system gnu-build-system)
10376     (native-inputs
10377      (list desktop-file-utils intltool pkg-config))
10378     (inputs
10379      (list enchant gtk+ python-wrapper libxml2 gucharmap))
10380     (home-page "http://bluefish.openoffice.nl")
10381     (synopsis "Web development studio")
10382     (description
10383      "Bluefish is an editor aimed at programmers and web developers,
10384 with many options to write web sites, scripts and other code.
10385 Bluefish supports many programming and markup languages.")
10386     (license license:gpl3+)))
10387
10388 (define-public gnome-system-monitor
10389   (package
10390     (name "gnome-system-monitor")
10391     (version "41.0")
10392     (source
10393      (origin
10394        (method url-fetch)
10395        (uri (string-append "mirror://gnome/sources/" name "/"
10396                            (version-major version) "/"
10397                            name "-" version ".tar.xz"))
10398        (sha256
10399         (base32
10400          "0pwy2c95rm0ym3x5pr6rqg7zh58crjxyns4r52q99ds937349z67"))))
10401     (build-system meson-build-system)
10402     (arguments
10403      '(#:glib-or-gtk? #t
10404        #:configure-flags '("-Dsystemd=false")))
10405     (native-inputs
10406      (list `(,glib "bin")               ;for glib-mkenums.
10407            `(,gtk+ "bin")               ;gtk-update-icon-cache
10408            intltool
10409            itstool
10410            libgtop
10411            polkit
10412            pkg-config))
10413     (inputs
10414      (list gdk-pixbuf                   ;for loading SVG files.
10415            gtk+
10416            gtkmm-3
10417            libhandy
10418            librsvg
10419            libxml2
10420            libwnck))
10421     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
10422     (synopsis "Process viewer and system resource monitor for GNOME")
10423     (description
10424      "GNOME System Monitor is a GNOME process viewer and system monitor with
10425 an attractive, easy-to-use interface.  It has features, such as a tree view
10426 for process dependencies, icons for processes, the ability to hide processes,
10427 graphical time histories of CPU/memory/swap usage and the ability to
10428 kill/reinice processes.")
10429     (license license:gpl2+)))
10430
10431 (define-public python-pyatspi
10432   (package
10433     (name "python-pyatspi")
10434     (version "2.34.0")
10435     (source (origin
10436               (method url-fetch)
10437               (uri (string-append
10438                     "mirror://gnome/sources/pyatspi/"
10439                     (version-major+minor version)
10440                     "/pyatspi-" version ".tar.xz"))
10441               (sha256
10442                (base32
10443                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
10444     (build-system gnu-build-system)
10445     (arguments
10446      `(#:phases
10447        (modify-phases %standard-phases
10448          (add-before 'build 'fix-atk-load
10449            (lambda _
10450              (substitute* "pyatspi/__init__.py"
10451                (("from gi.repository import Atspi")
10452                 "gi.require_version('Gtk', '3.0')
10453 from gi.repository import Gtk
10454 from gi.repository import Atspi"))
10455              #t)))))
10456     (native-inputs
10457      (list pkg-config))
10458     (inputs
10459      (list python))
10460     (propagated-inputs
10461      (list python-pygobject))
10462     (synopsis "Python client bindings for D-Bus AT-SPI")
10463     (home-page "https://wiki.linuxfoundation.org/accessibility\
10464 /atk/at-spi/at-spi_on_d-bus")
10465     (description
10466      "This package includes a python client library for the AT-SPI D-Bus
10467 accessibility infrastructure.")
10468     (license license:lgpl2.0)
10469     (properties '((upstream-name . "pyatspi")))))
10470
10471 (define-public orca
10472   (package
10473     (name "orca")
10474     (version "41.0")
10475     (source (origin
10476               (method url-fetch)
10477               (uri (string-append
10478                     "mirror://gnome/sources/" name "/"
10479                     (version-major version) "/"
10480                     name "-" version ".tar.xz"))
10481               (sha256
10482                (base32
10483                 "1gflnsv6d5qn5rh1f16yfa0q0yv8yvd0l5lbwrsdg7z18lafb5vn"))))
10484     (build-system glib-or-gtk-build-system)
10485     (arguments
10486      '(#:phases
10487        (modify-phases %standard-phases
10488          (add-before 'configure 'qualify-xkbcomp
10489            (lambda* (#:key inputs #:allow-other-keys)
10490              (let ((xkbcomp (string-append
10491                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10492                (substitute* "src/orca/orca.py"
10493                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))))
10494          (add-after 'install 'wrap-orca
10495            (lambda* (#:key outputs #:allow-other-keys)
10496              (let* ((out  (assoc-ref outputs "out"))
10497                     (prog (string-append out "/bin/orca")))
10498                (wrap-program prog
10499                  `("GI_TYPELIB_PATH" ":" prefix
10500                    (,(getenv "GI_TYPELIB_PATH")))
10501                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10502                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10503                  `("GUIX_PYTHONPATH" ":" prefix
10504                    (,(getenv "GUIX_PYTHONPATH"))))))))))
10505     (native-inputs
10506      (list intltool
10507            itstool
10508            pkg-config
10509            libxml2))
10510     (inputs
10511      (list at-spi2-atk
10512            gsettings-desktop-schemas
10513            gstreamer
10514            gst-plugins-base
10515            gst-plugins-good
10516            gtk+
10517            python
10518            python-pygobject
10519            python-pyatspi
10520            speech-dispatcher
10521            xkbcomp))
10522     (synopsis
10523      "Screen reader for individuals who are blind or visually impaired")
10524     (home-page "https://wiki.gnome.org/Projects/Orca")
10525     (description
10526      "Orca is a screen reader that provides access to the graphical desktop
10527 via speech and refreshable braille.  Orca works with applications and toolkits
10528 that support the Assistive Technology Service Provider Interface (AT-SPI).")
10529     (license license:lgpl2.1+)))
10530
10531 (define-public gspell
10532   (package
10533     (name "gspell")
10534     (version "1.8.2")
10535     (source (origin
10536               (method url-fetch)
10537               (uri (string-append "mirror://gnome/sources/" name "/"
10538                                   (version-major+minor version) "/"
10539                                   name "-" version ".tar.xz"))
10540               (sha256
10541                (base32
10542                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
10543               (patches (search-patches "gspell-dash-test.patch"))))
10544     (build-system glib-or-gtk-build-system)
10545     (arguments
10546      '(#:configure-flags (list "--enable-vala")
10547        #:phases
10548        (modify-phases %standard-phases
10549          (add-before 'check 'pre-check
10550            (lambda* (#:key inputs #:allow-other-keys)
10551              ;; Tests require a running X server.
10552              (system "Xvfb :1 &")
10553              (setenv "DISPLAY" ":1")
10554
10555              ;; For the missing /etc/machine-id.
10556              (setenv "DBUS_FATAL_WARNINGS" "0")
10557
10558              ;; Allow Enchant and its Aspell backend to find the en_US
10559              ;; dictionary.
10560              (setenv "ASPELL_DICT_DIR"
10561                      (search-input-directory inputs "/lib/aspell")))))))
10562     (inputs
10563      (list iso-codes))
10564     (native-inputs
10565      `(("glib" ,glib "bin")
10566        ("gobject-introspection" ,gobject-introspection)
10567        ("pkg-config" ,pkg-config)
10568        ("vala" ,vala)                             ;for VAPI, needed by Geary
10569        ("xmllint" ,libxml2)
10570
10571        ;; For tests.
10572        ("aspell-dict-en" ,aspell-dict-en)
10573        ("xorg-server" ,xorg-server-for-tests)))
10574     (propagated-inputs
10575      ;; Referred by .pc file.
10576      (list enchant glib gtk+))
10577     (home-page "https://wiki.gnome.org/Projects/gspell")
10578     (synopsis "GNOME's alternative spell checker")
10579     (description
10580      "gspell provides a flexible API to add spell-checking to a GTK+
10581 application.  It provides a GObject API, spell-checking to text entries and
10582 text views, and buttons to choose the language.")
10583     (license license:gpl2+)))
10584
10585 (define-public gnome-planner
10586   (package
10587     (name "gnome-planner")
10588     (version "0.14.6")
10589     (source (origin
10590               (method url-fetch)
10591               (uri (string-append "mirror://gnome/sources/planner/"
10592                                   (version-major+minor version) "/planner-"
10593                                   version ".tar.xz"))
10594               (sha256
10595                (base32
10596                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10597     (build-system glib-or-gtk-build-system)
10598     (arguments
10599      ;; Disable the Python bindings because the Planner program functions
10600      ;; without them, and (as of 2017-06-13) we have not packaged all of
10601      ;; packages that are necessary for building the Python bindings.
10602      `(#:configure-flags
10603        (list "--disable-python"
10604              ,@(if (string=? "aarch64-linux" (%current-system))
10605                    '("--build=aarch64-unknown-linux-gnu")
10606                    '()))))
10607     (inputs
10608      (list libgnomecanvas
10609            libgnomeui
10610            libglade
10611            gnome-vfs
10612            gconf
10613            libxml2
10614            libxslt
10615            gtk+
10616            glib))
10617     (native-inputs
10618      (list intltool scrollkeeper pkg-config))
10619     (home-page "https://wiki.gnome.org/Apps/Planner")
10620     (synopsis "Project management software for the GNOME desktop")
10621     (description
10622      "GNOME Planner is a project management tool based on the Work Breakdown
10623 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
10624 the resources, tasks, and constraints that you define, Planner generates
10625 various views into a project.  For example, Planner can show a Gantt chart of
10626 the project.  It can show a detailed summary of tasks including their
10627 duration, cost, and current progress.  It can also show a report of resource
10628 utilization that highlights under-utilized and over-utilized resources.  These
10629 views can be printed as PDF or PostScript files, or exported to HTML.")
10630     (license license:gpl2+)))
10631
10632 (define-public lollypop
10633   (package
10634     (name "lollypop")
10635     (version "1.4.24")
10636     (source
10637      (origin
10638        (method url-fetch)
10639        (uri (string-append "https://adishatz.org/lollypop/"
10640                            "lollypop-" version ".tar.xz"))
10641        (sha256
10642         (base32 "10cw3x75siibmnbh4zhfmf2vd08fqjs3lj3l4wpk6zj9h22ncfxw"))))
10643     (build-system meson-build-system)
10644     (arguments
10645      `(#:imported-modules
10646        (,@%meson-build-system-modules
10647         (guix build python-build-system))
10648        #:modules
10649        ((guix build meson-build-system)
10650         ((guix build python-build-system) #:prefix python:)
10651         (guix build utils))
10652        #:glib-or-gtk? #t
10653        #:tests? #f                      ; no test suite
10654        #:phases
10655        (modify-phases %standard-phases
10656          (add-after 'install 'wrap-program
10657            (lambda* (#:key outputs #:allow-other-keys)
10658              (let ((out               (assoc-ref outputs "out"))
10659                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10660                (wrap-program (string-append out "/bin/lollypop")
10661                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10662              #t))
10663          (add-after 'install 'wrap-python
10664            (assoc-ref python:%standard-phases 'wrap)))))
10665     (native-inputs
10666      `(("gettext" ,gettext-minimal)
10667        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
10668        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
10669        ("pkg-config" ,pkg-config)))
10670     (inputs
10671      `(("glib-networking" ,glib-networking)
10672        ("gobject-introspection" ,gobject-introspection)
10673        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10674        ("gst-plugins-base" ,gst-plugins-base)
10675        ("libnotify" ,libnotify)
10676        ("libsecret" ,libsecret)
10677        ("libhandy" ,libhandy)
10678        ("libsoup" ,libsoup-minimal-2)
10679        ("python" ,python)
10680        ("python-beautifulsoup4" ,python-beautifulsoup4)
10681        ("python-gst" ,python-gst)
10682        ("python-pil" ,python-pillow)
10683        ("python-pycairo" ,python-pycairo)
10684        ("python-pygobject" ,python-pygobject)
10685        ("python-pylast" ,python-pylast)
10686        ("totem-pl-parser" ,totem-pl-parser)
10687        ("webkitgtk" ,webkitgtk)))
10688     (propagated-inputs
10689      (list ;; gst-plugins-base is required to start Lollypop,
10690            ;; the others are required to play streaming.
10691            gst-plugins-good gst-plugins-ugly))
10692     (home-page "https://wiki.gnome.org/Apps/Lollypop")
10693     (synopsis "GNOME music playing application")
10694     (description
10695      "Lollypop is a music player designed to play well with GNOME desktop.
10696 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10697 from artists and tracks from the web.  It also fetches cover artworks
10698 automatically and it can stream songs from online music services and charts.")
10699     (license license:gpl3+)))
10700
10701 (define-public gnome-video-effects
10702   (package
10703     (name "gnome-video-effects")
10704     (version "0.5.0")
10705     (source (origin
10706               (method url-fetch)
10707               (uri (string-append "mirror://gnome/sources/" name "/"
10708                                   (version-major+minor version) "/" name "-"
10709                                   version ".tar.xz"))
10710               (sha256
10711                (base32
10712                 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10713     (build-system meson-build-system)
10714     (native-inputs
10715      (list gettext-minimal pkg-config))
10716     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10717     (synopsis "Video effects for Cheese and other GNOME applications")
10718     (description
10719      "A collection of GStreamer video filters and effects to be used in
10720 photo-booth-like software, such as Cheese.")
10721     (license license:gpl2+)))
10722
10723 (define-public cheese
10724   (package
10725     (name "cheese")
10726     (version "3.38.0")
10727     (source (origin
10728               (method url-fetch)
10729               (uri (string-append "mirror://gnome/sources/" name "/"
10730                                   (version-major+minor version) "/" name "-"
10731                                   version ".tar.xz"))
10732               (sha256
10733                (base32
10734                 "0vyim2avlgq3a48rgdfz5g21kqk11mfb53b2l883340v88mp7ll8"))
10735               (patches (search-patches "cheese-vala-update.patch"))))
10736     (arguments
10737      `(#:glib-or-gtk? #t
10738        ;; Tests require GDK.
10739        #:tests? #f
10740        #:phases
10741        (modify-phases %standard-phases
10742          (add-after 'unpack 'skip-gtk-update-icon-cache
10743            (lambda _
10744              ;; Don't create 'icon-theme.cache'
10745              (substitute* "meson_post_install.py"
10746                (("gtk-update-icon-cache") (which "true")))
10747              #t))
10748          (add-after 'unpack 'patch-docbook-xml
10749            (lambda* (#:key inputs #:allow-other-keys)
10750              ;; Avoid a network connection attempt during the build.
10751              (substitute* '("docs/reference/cheese.xml"
10752                             "docs/reference/cheese-docs.xml")
10753                (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
10754                 (string-append (assoc-ref inputs "docbook-xml")
10755                                "/xml/dtd/docbook/docbookx.dtd")))
10756              #t))
10757          (add-after 'install 'wrap-cheese
10758            (lambda* (#:key inputs outputs #:allow-other-keys)
10759              (let ((out             (assoc-ref outputs "out"))
10760                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10761                (wrap-program (string-append out "/bin/cheese")
10762                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10763              #t)))))
10764     (build-system meson-build-system)
10765     (native-inputs
10766      `(("docbook-xsl" ,docbook-xsl)
10767        ("docbook-xml" ,docbook-xml-4.3)
10768        ("gettext" ,gettext-minimal)
10769        ("glib:bin" ,glib "bin")
10770        ("gtk-doc" ,gtk-doc/stable)
10771        ("itstool" ,itstool)
10772        ("libxml2" ,libxml2)
10773        ("libxslt" ,libxslt)
10774        ("pkg-config" ,pkg-config)
10775        ("vala" ,vala)))
10776     (propagated-inputs
10777      (list gnome-video-effects
10778            clutter
10779            clutter-gst
10780            clutter-gtk
10781            libcanberra
10782            gdk-pixbuf
10783            glib
10784            gstreamer))
10785     (inputs
10786      (list gnome-desktop
10787            gobject-introspection
10788            gst-plugins-base
10789            gst-plugins-good
10790            gst-plugins-bad
10791            gtk+
10792            libx11
10793            libxtst))
10794     (home-page "https://wiki.gnome.org/Apps/Cheese")
10795     (synopsis "Webcam photo booth software for GNOME")
10796     (description
10797      "Cheese uses your webcam to take photos and videos.  Cheese can also
10798 apply fancy special effects and lets you share the fun with others.")
10799     (license license:gpl2+)))
10800
10801 (define-public passwordsafe
10802   (package
10803     (name "passwordsafe")
10804     (version "5.1")
10805     (source
10806      (origin
10807        (method git-fetch)
10808        (uri (git-reference
10809              (url "https://gitlab.gnome.org/World/secrets")
10810              (commit version)))
10811        (file-name (git-file-name name version))
10812        (sha256
10813         (base32 "0kd43j6i017wdsqj6d5gnxhfv4ijnh3xahlw7md2gh51i8p682j6"))))
10814     (build-system meson-build-system)
10815     (arguments
10816      (list #:glib-or-gtk? #t
10817            #:meson meson-0.59
10818            #:phases
10819            #~(modify-phases %standard-phases
10820                (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
10821                  (lambda* (#:key outputs #:allow-other-keys)
10822                    (let ((prog (string-append #$output
10823                                               "/bin/gnome-passwordsafe"))
10824                          (pylib (string-append
10825                                  #$output "/lib/python"
10826                                  #$(version-major+minor
10827                                     (package-version (this-package-input "python")))
10828                                  "/site-packages")))
10829                      (wrap-program prog
10830                        `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
10831                        `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
10832     (native-inputs
10833      (list desktop-file-utils
10834            gettext-minimal
10835            `(,glib "bin")
10836            gobject-introspection
10837            `(,gtk+ "bin")
10838            pkg-config))
10839     (inputs
10840      (list glib
10841            gsettings-desktop-schemas
10842            gtk+
10843            libhandy
10844            libpwquality
10845            python
10846            python-pygobject
10847            python-pykeepass))
10848     (home-page "https://gitlab.gnome.org/World/PasswordSafe")
10849     (synopsis "Password manager for the GNOME desktop")
10850     (description
10851      "Password Safe is a password manager which makes use of the KeePass v4
10852 format.  It integrates perfectly with the GNOME desktop and provides an easy
10853 and uncluttered interface for the management of password databases.")
10854     (license license:gpl3+)))
10855
10856 (define-public sound-juicer
10857   (package
10858     (name "sound-juicer")
10859     (version "3.24.0")
10860     (source
10861      (origin
10862        (method url-fetch)
10863        (uri (string-append "mirror://gnome/sources/" name "/"
10864                            (version-major+minor version) "/"
10865                            name "-" version ".tar.xz"))
10866        (sha256
10867         (base32
10868          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
10869     (build-system glib-or-gtk-build-system)
10870     (native-inputs
10871      (list desktop-file-utils intltool itstool pkg-config libxml2))
10872     (inputs
10873      (list gtk+
10874            gsettings-desktop-schemas
10875            gstreamer
10876            gst-plugins-base
10877            gst-plugins-good
10878            iso-codes
10879            brasero
10880            libcanberra
10881            libdiscid
10882            libmusicbrainz
10883            neon))
10884     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
10885     (synopsis "Audio music cd ripper")
10886     (description "Sound Juicer extracts audio from compact discs and convert it
10887 into audio files that a personal computer or digital audio player can play.
10888 It supports ripping to any audio codec supported by a GStreamer plugin, such as
10889 mp3, Ogg Vorbis and FLAC")
10890     (license license:gpl2+)))
10891
10892 (define-public soundconverter
10893   (package
10894     (name "soundconverter")
10895     (version "3.0.2")
10896     (source
10897      (origin
10898        (method url-fetch)
10899        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
10900                            version "/+download/"
10901                            "soundconverter-" version ".tar.xz"))
10902
10903        (sha256
10904         (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
10905     (build-system glib-or-gtk-build-system)
10906     (arguments
10907      `(#:imported-modules ((guix build python-build-system)
10908                            (guix build glib-or-gtk-build-system)
10909                            ,@%gnu-build-system-modules)
10910
10911        #:modules ((guix build glib-or-gtk-build-system)
10912                   (guix build utils)
10913                   ((guix build gnu-build-system) #:prefix gnu:)
10914                   ((guix build python-build-system) #:prefix python:))
10915
10916        #:phases
10917        (modify-phases %standard-phases
10918          (add-after 'install 'wrap-soundconverter-for-python
10919            (assoc-ref python:%standard-phases 'wrap))
10920          (add-after 'install 'wrap-soundconverter
10921            (lambda* (#:key inputs outputs #:allow-other-keys)
10922              (let ((out               (assoc-ref outputs "out"))
10923                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
10924                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
10925                (wrap-program (string-append out "/bin/soundconverter")
10926                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
10927                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10928              #t)))))
10929     (native-inputs
10930      `(("intltool" ,intltool)
10931        ("pkg-config" ,pkg-config)
10932        ("glib:bin" ,glib "bin")))
10933     (inputs
10934      (list gtk+ python python-pygobject gstreamer gst-plugins-base))
10935     (home-page "https://soundconverter.org/")
10936     (synopsis "Convert between audio formats with a graphical interface")
10937     (description
10938      "SoundConverter supports converting between many audio formats including
10939 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
10940 configurable file renaming.")
10941     (license license:gpl3)))
10942
10943 (define-public workrave
10944   (package
10945     (name "workrave")
10946     (version "1.10.50")
10947     (source
10948      (origin
10949        (method git-fetch)
10950        (uri (git-reference
10951              (url "https://github.com/rcaelers/workrave")
10952              (commit (string-append "v" (string-map
10953                                          (match-lambda (#\. #\_) (chr chr))
10954                                          version)))))
10955        (file-name (git-file-name name version))
10956        (sha256
10957         (base32 "0fj3fqmdn4nsjgvbbvzpxw2mgiihcr1zpb08amg2p6hg9n11y9bx"))))
10958     (build-system glib-or-gtk-build-system)
10959     (arguments
10960      ;; The only tests are maintainer tests (in po/), which fail.
10961      `(#:tests? #f))
10962     (inputs (list glib
10963                   gtk+
10964                   gdk-pixbuf
10965                   gtkmm-3
10966                   glibmm
10967                   libx11
10968                   libxtst
10969                   dconf
10970                   libice
10971                   libsm
10972                   libxscrnsaver))
10973     (native-inputs `(("boost" ,boost)
10974                      ("pkg-config" ,pkg-config)
10975                      ("gettext" ,gettext-minimal)
10976                      ("autoconf" ,autoconf)
10977                      ("autoconf-archive" , autoconf-archive)
10978                      ("automake" ,automake)
10979                      ("libtool" ,libtool)
10980                      ("intltool" ,intltool)
10981                      ("gobject-introspection" ,gobject-introspection)
10982                      ("python3" ,python-3)
10983                      ("python-jinja2" ,python-jinja2)))
10984     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
10985     (description
10986      "Workrave is a program that assists in the recovery and prevention of
10987 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
10988 micro-pauses and rest breaks, and restricts you to your daily limit.")
10989     (home-page "http://www.workrave.org")
10990     (license license:gpl3+)))
10991
10992 (define-public ghex
10993   (package
10994     (name "ghex")
10995     (version "3.18.4")
10996     (source (origin
10997               (method url-fetch)
10998               (uri (string-append "mirror://gnome/sources/ghex/"
10999                                   (version-major+minor version) "/"
11000                                   "ghex-" version ".tar.xz"))
11001               (sha256
11002                (base32
11003                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
11004     (build-system meson-build-system)
11005     (arguments
11006      '(#:glib-or-gtk? #t
11007        #:phases
11008        (modify-phases %standard-phases
11009          (add-after 'unpack 'skip-gtk-update-icon-cache
11010            ;; Don't create 'icon-theme.cache'.
11011            (lambda _
11012              (substitute* "meson_post_install.py"
11013                (("gtk-update-icon-cache") (which "true")))
11014              #t)))))
11015     (native-inputs
11016      `(("pkg-config" ,pkg-config)
11017        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
11018        ("gnome-common" ,gnome-common)
11019        ("which" ,which)
11020        ("intltool" ,intltool)
11021        ("yelp-tools" ,yelp-tools)
11022        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
11023     (inputs
11024      `(("atk" ,atk)
11025        ("gtk" ,gtk+)))
11026     (synopsis "GNOME hexadecimal editor")
11027     (description "The GHex program can view and edit files in two ways:
11028 hexadecimal or ASCII.  It is useful for editing binary files in general.")
11029     (home-page "https://wiki.gnome.org/Apps/Ghex")
11030     (license license:gpl2)))
11031
11032 (define-public libdazzle
11033   (package
11034     (name "libdazzle")
11035     (version "3.37.1")
11036     (source (origin
11037               (method url-fetch)
11038               (uri (string-append "mirror://gnome/sources/libdazzle/"
11039                                   (version-major+minor version) "/"
11040                                   "libdazzle-" version ".tar.xz"))
11041               (sha256
11042                (base32
11043                 "03r5cr11dc031qa3694bpgm3lajrhiiln67kvl7vjj4q0scf7w7x"))))
11044     (build-system meson-build-system)
11045     (arguments
11046      `(#:phases
11047        (modify-phases %standard-phases
11048          (add-before 'check 'pre-check
11049            (lambda _
11050              ;; Tests require a running X server.
11051              (system "Xvfb :1 &")
11052              (setenv "DISPLAY" ":1")
11053              #t)))))
11054     (native-inputs
11055      (list `(,glib "bin") ; glib-compile-resources
11056            pkg-config
11057            ;; For tests.
11058            xorg-server-for-tests))
11059     (inputs
11060      (list glib gobject-introspection gtk+ vala))
11061     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
11062     (synopsis "Companion library to GObject and Gtk+")
11063     (description "The libdazzle library is a companion library to GObject and
11064 Gtk+.  It provides various features that the authors wish were in the
11065 underlying library but cannot for various reasons.  In most cases, they are
11066 wildly out of scope for those libraries.  In other cases, they are not quite
11067 generic enough to work for everyone.")
11068     (license license:gpl3+)))
11069
11070 (define-public evolution
11071   (package
11072     (name "evolution")
11073     (version "3.42.1")
11074     (source (origin
11075               (method url-fetch)
11076               (uri (string-append "mirror://gnome/sources/evolution/"
11077                                   (version-major+minor version) "/"
11078                                   "evolution-" version ".tar.xz"))
11079               (sha256
11080                (base32
11081                 "0igfzapdvgfx2gnpwfkjfkn7l5j186wk88ni39vqas1sl7ijlls6"))))
11082     (build-system cmake-build-system)
11083     (arguments
11084      `(#:imported-modules (,@%cmake-build-system-modules
11085                            (guix build glib-or-gtk-build-system))
11086        #:modules ((guix build cmake-build-system)
11087                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
11088                   (guix build utils))
11089        #:configure-flags
11090        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
11091              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
11092                                           ; in four years and cannot be built.
11093        #:phases
11094        (modify-phases %standard-phases
11095          ;; The build system attempts to install user interface modules to the
11096          ;; output directory of the "evolution-data-server" package.  This
11097          ;; change redirects that change.
11098          (add-after 'unpack 'patch-ui-module-dir
11099            (lambda* (#:key outputs #:allow-other-keys)
11100              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
11101                (("\\$\\{edsuimoduledir\\}")
11102                 (string-append (assoc-ref outputs "out")
11103                                "/lib/evolution-data-server/ui-modules")))))
11104          (add-after 'install 'glib-or-gtk-compile-schemas
11105            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
11106          (add-after 'install 'glib-or-gtk-wrap
11107            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
11108     (native-inputs
11109      (list `(,glib "bin") ; glib-mkenums
11110            pkg-config intltool itstool))
11111     (inputs
11112      `(("enchant" ,enchant)
11113        ("evolution-data-server" ,evolution-data-server) ; must be the same version
11114        ("gcr" ,gcr)
11115        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11116        ("gnome-autoar" ,gnome-autoar)
11117        ("gnome-desktop" ,gnome-desktop)
11118        ("gspell" ,gspell)
11119        ("highlight" ,highlight)
11120        ("libcanberra" ,libcanberra)
11121        ("libgweather" ,libgweather)
11122        ("libnotify" ,libnotify)
11123        ("libsoup" ,libsoup)
11124        ("nss" ,nss)
11125        ("openldap" ,openldap)
11126        ("webkitgtk" ,webkitgtk-with-libsoup2) ; because of evolution-data-server
11127        ("ytnef" ,ytnef)))
11128     (home-page "https://gitlab.gnome.org/GNOME/evolution")
11129     (synopsis "Manage your email, contacts and schedule")
11130     (description "Evolution is a personal information management application
11131 that provides integrated mail, calendaring and address book
11132 functionality.")
11133     ;; See COPYING for details.
11134     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
11135                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
11136                    license:lgpl2.1+))))  ; smime/lib/*
11137
11138 (define-public gthumb
11139   (package
11140     (name "gthumb")
11141     (version "3.12.2")
11142     (source (origin
11143               (method url-fetch)
11144               (uri (string-append "mirror://gnome/sources/gthumb/"
11145                                   (version-major+minor version) "/"
11146                                   "gthumb-" version ".tar.xz"))
11147               (sha256
11148                (base32
11149                 "09flm8s6jrvfya2ypw5873mnnani8ssy7wdv3ra1cljk4bjszy4p"))))
11150     (build-system meson-build-system)
11151     (arguments
11152      `(#:glib-or-gtk? #t
11153        #:configure-flags
11154        ;; Ensure the RUNPATH contains all installed library locations.
11155        (list (string-append "-Dc_link_args=-Wl,-rpath="
11156                             (assoc-ref %outputs "out")
11157                             "/lib/gthumb/extensions")
11158              (string-append "-Dcpp_link_args=-Wl,-rpath="
11159                             (assoc-ref %outputs "out")
11160                             "/lib/gthumb/extensions"))))
11161     (native-inputs
11162      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11163        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
11164        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
11165        ("intltool" ,intltool)
11166        ("itstool" ,itstool)
11167        ("pkg-config" ,pkg-config)
11168        ("python" ,python)))
11169     (inputs
11170      `(("clutter" ,clutter)
11171        ("clutter-gst" ,clutter-gst)
11172        ("clutter-gtk" ,clutter-gtk)
11173        ("colord" ,colord)
11174        ("exiv2" ,exiv2)
11175        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11176        ("gstreamer" ,gstreamer)
11177        ("gtk" ,gtk+)
11178        ("libheif" ,libheif)
11179        ("libjpeg" ,libjpeg-turbo)
11180        ("libraw" ,libraw)
11181        ("librsvg" ,librsvg)
11182        ("libtiff" ,libtiff)
11183        ("libwebp" ,libwebp)))
11184     (home-page "https://wiki.gnome.org/Apps/Gthumb")
11185     (synopsis "GNOME image viewer and browser")
11186     (description "GThumb is an image viewer, browser, organizer, editor and
11187 advanced image management tool")
11188     (license license:gpl2+)))
11189
11190 (define-public terminator
11191   (package
11192     (name "terminator")
11193     (version "2.1.1")
11194     (source
11195      (origin
11196        (method url-fetch)
11197        (uri (string-append "https://github.com/gnome-terminator/terminator/"
11198                            "releases/download/v" version "/"
11199                            name "-" version ".tar.gz"))
11200        (sha256
11201         (base32 "0xdgmam7ghnxw6g38a4gjw3kk3rhga8c66lns18k928jlr9fmddw"))))
11202     (build-system python-build-system)
11203     (native-inputs
11204      `(("gettext" ,gettext-minimal)
11205        ("glib:bin" ,glib "bin")         ; for glib-compile-resources
11206        ("gobject-introspection" ,gobject-introspection)
11207        ("intltool" ,intltool)
11208        ("pkg-config" ,pkg-config)
11209        ("python-psutil" ,python-psutil)
11210        ("python-pytest-runner" ,python-pytest-runner)
11211        ("python-pytest" ,python-pytest)))
11212     (inputs
11213      `(("cairo" ,cairo)
11214        ("dbus-glib" ,dbus-glib)
11215        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11216        ("gtk+" ,gtk+)
11217        ("python" ,python-wrapper)
11218        ("python-dbus" ,python-dbus)
11219        ("python-notify2" ,python-notify2)
11220        ("python-pycairo" ,python-pycairo)
11221        ("python-pygobject" ,python-pygobject)
11222        ("vte" ,vte)))
11223     (propagated-inputs
11224      (list python-configobj))
11225     (arguments
11226      ;; One test out of 28 fails due to dbus-python and python-notify; skip
11227      ;; tests.
11228      `(#:tests? #f
11229        #:imported-modules ((guix build glib-or-gtk-build-system)
11230                            ,@%python-build-system-modules)
11231        #:modules ((guix build python-build-system)
11232                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
11233                   (guix build utils))
11234        #:phases
11235        (modify-phases %standard-phases
11236          (add-after 'unpack 'handle-dbus-python
11237            (lambda _
11238              ;; python-dbus cannot be found but it's really there.  See
11239              ;; https://github.com/SpotlightKid/jack-select/issues/2
11240              (substitute* "setup.py"
11241                (("'dbus-python',") ""))))
11242          (add-after 'install 'wrap-program
11243            (lambda* (#:key outputs #:allow-other-keys)
11244              (let ((prog (string-append (assoc-ref outputs "out")
11245                                         "/bin/terminator"))
11246                    (pylib (string-append (assoc-ref outputs "out")
11247                                          "/lib/python"
11248                                          ,(version-major+minor
11249                                            (package-version python))
11250                                          "/site-packages")))
11251                (wrap-program prog
11252                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
11253                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))
11254          (add-after 'wrap-program 'glib-or-gtk-wrap
11255            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
11256     (home-page "https://gnome-terminator.org/")
11257     (synopsis "Store and run multiple GNOME terminals in one window")
11258     (description
11259      "Terminator allows you to run multiple GNOME terminals in a grid and
11260 tabs, and it supports drag and drop re-ordering of terminals.")
11261     (license license:gpl2)))
11262
11263 (define-public libhandy
11264   (package
11265     (name "libhandy")
11266     (version "1.5.0")
11267     (source
11268      (origin
11269        (method git-fetch)
11270        (uri (git-reference
11271              (url "https://gitlab.gnome.org/GNOME/libhandy")
11272              (commit version)))
11273        (file-name (git-file-name name version))
11274        (sha256
11275         (base32 "19gl0xxybraw2iyn6cdi9w7nps825lb2bhav7d2x51wla0lq3kdc"))))
11276     (build-system meson-build-system)
11277     (arguments
11278      `(#:configure-flags
11279        '("-Dglade_catalog=enabled"
11280          ;; XXX: Generating the documentation fails because the
11281          ;; libhandy.devhelp2 document cannot be created. This seems to be
11282          ;; caused by a problem during the XSL transformation.
11283          "-Dgtk_doc=false")
11284        #:phases
11285        (modify-phases %standard-phases
11286          (add-after 'unpack 'patch-docbook-xml
11287            (lambda* (#:key inputs #:allow-other-keys)
11288              (for-each
11289               (lambda (file)
11290                 (substitute* file
11291                   (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
11292                    (search-input-file inputs
11293                                       "/xml/dtd/docbook/docbookx.dtd"))))
11294               (find-files "doc" "\\.xml"))))
11295          (add-before 'check 'pre-check
11296            (lambda _
11297              ;; Tests require a running X server.
11298              (system "Xvfb :1 &")
11299              (setenv "DISPLAY" ":1")
11300              #t)))))
11301     (inputs
11302      (list gtk+ glade3))
11303     (native-inputs
11304      `(("glib:bin" ,glib "bin")
11305        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
11306        ("vala" ,vala)
11307        ("libxml2" ,libxml2)
11308        ("libxslt" ,libxslt)
11309        ("docbook-xsl" ,docbook-xsl)
11310        ("docbook-xml" ,docbook-xml-4.3)
11311        ("gtk-doc" ,gtk-doc/stable)
11312        ("pkg-config" ,pkg-config)
11313        ("gettext" ,gettext-minimal)
11314
11315        ;; Test suite dependencies.
11316        ("xorg-server" ,xorg-server-for-tests)
11317        ("hicolor-icon-theme" ,hicolor-icon-theme)))
11318     (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
11319     (synopsis "Library full of GTK+ widgets for mobile phones")
11320     (description "The aim of the handy library is to help with developing user
11321 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
11322 for usage on small and big screens.")
11323     (license license:lgpl2.1+)))
11324
11325 (define-public libhandy-0.0
11326   (package
11327     (inherit libhandy)
11328     (version "0.0.13")
11329     (source
11330      (origin
11331        (method git-fetch)
11332        (uri (git-reference
11333              (url "https://gitlab.gnome.org/GNOME/libhandy")
11334              (commit (string-append "v" version))))
11335        (file-name (git-file-name "libhandy" version))
11336        (sha256
11337         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
11338     (arguments
11339      (substitute-keyword-arguments (package-arguments libhandy)
11340        ((#:configure-flags flags)
11341         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
11342
11343 (define-public libgit2-glib
11344   (package
11345     (name "libgit2-glib")
11346     (version "1.0.0.1")
11347     (source (origin
11348               (method url-fetch)
11349               (uri (string-append "mirror://gnome/sources/" name "/"
11350                                   (version-major+minor version) "/"
11351                                   name "-" version ".tar.xz"))
11352               (sha256
11353                (base32
11354                 "0mrb21cgqmbhbxqxwx76yry1ifqj1k4vy6455n6s034m6rlms2j6"))))
11355     (build-system meson-build-system)
11356     (native-inputs
11357      (list `(,glib "bin") ;; For glib-mkenums
11358            gobject-introspection
11359            pkg-config
11360            python-pygobject
11361            python-wrapper
11362            vala))
11363     (inputs
11364      (list glib libssh2))
11365     (propagated-inputs
11366      (list ;; In Requires of libgit2-glib.pc.
11367            libgit2))
11368     (synopsis "GLib wrapper around the libgit2 Git access library")
11369     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
11370 access library.  It only implements the core plumbing functions, not really the
11371 higher level porcelain stuff.")
11372     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
11373     (license license:gpl2+)))
11374
11375 (define-public gitg
11376   (package
11377     (name "gitg")
11378     (version "41")
11379     (source (origin
11380               (method url-fetch)
11381               (uri (string-append "mirror://gnome/sources/" name "/"
11382                                   (version-major version) "/"
11383                                   name "-" version ".tar.xz"))
11384               (sha256
11385                (base32
11386                 "0aa6djcf7rjw0q688mfy47k67bbjpnx6aw1xs94abfhgn6gipdkz"))))
11387     (build-system meson-build-system)
11388     (arguments
11389      (list
11390       #:glib-or-gtk? #t
11391       #:phases
11392       #~(modify-phases %standard-phases
11393           (add-after 'unpack 'disable-post-install-partially
11394             (lambda _
11395               (substitute* "meson_post_install.py"
11396                 (("'python'") ; there are no python sources to compile
11397                  (string-append "'" (which "true") "'"))
11398                 (("gtk-update-icon-cache") (which "true")))))
11399           (add-after 'unpack 'fix-test-sources
11400             (lambda _
11401               (substitute* "tests/libgitg/test-commit.vala"
11402                 (("/bin/bash") (which "bash")))))
11403           (add-after 'glib-or-gtk-wrap 'wrap-typelib
11404             (lambda* (#:key outputs #:allow-other-keys)
11405               (let ((prog (string-append #$output "/bin/gitg")))
11406                 (wrap-program prog
11407                   `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
11408     (inputs
11409      (list glib
11410            gsettings-desktop-schemas
11411            gspell
11412            gtk+
11413            gtksourceview
11414            json-glib
11415            libdazzle
11416            libgee
11417            libgit2-glib
11418            libpeas
11419            libsecret
11420            libsoup-minimal-2
11421            libxml2))
11422     (native-inputs
11423      (list `(,glib "bin")
11424            `(,gtk+ "bin")
11425            gobject-introspection
11426            intltool
11427            pkg-config
11428            python
11429            vala))
11430     (synopsis "Graphical user interface for git")
11431     (description
11432      "gitg is a graphical user interface for git.  It aims at being a small,
11433 fast and convenient tool to visualize the history of git repositories.
11434 Besides visualization, gitg also provides several utilities to manage your
11435 repository and commit your work.")
11436     (home-page "https://wiki.gnome.org/Apps/Gitg")
11437     (license license:gpl2+)))
11438
11439 (define-public gamin
11440   (package
11441     (name "gamin")
11442     (version "0.1.10")
11443     (source (origin
11444               (method url-fetch)
11445               (uri (string-append "mirror://gnome/sources/" name "/"
11446                                   (version-major+minor version) "/"
11447                                   name "-" version ".tar.bz2"))
11448               (sha256
11449                (base32
11450                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
11451     (build-system gnu-build-system)
11452     (arguments
11453      `(#:phases
11454        (modify-phases %standard-phases
11455          ;; The 'config.sub' is too old to recognise aarch64.
11456          ,@(if (and=> (%current-target-system) target-aarch64?)
11457                `((add-after 'unpack 'replace-config.sub
11458                    (lambda _
11459                      (delete-file "config.sub")
11460                      (symlink (which "config.sub") "config.sub"))))
11461                '())
11462          (add-after 'unpack 'remove-deprecated-macro
11463            (lambda _
11464              (substitute* '("server/gam_node.c"
11465                             "server/gam_subscription.h"
11466                             "server/gam_node.h"
11467                             "server/gam_subscription.c")
11468                (("G_CONST_RETURN") "const"))
11469              #t))
11470          ;; The configure script runs a test program unconditionally,
11471          ;; without an option to manually set the test result.
11472          ;; Override this test anyway.
11473          ,@(if (%current-target-system)
11474                `((add-after 'bootstrap 'set-have-abstract-sockets
11475                    (lambda _
11476                      (define in-abstract-sockets-test? #f)
11477                      (substitute* "configure"
11478                        (("^#### Abstract sockets\n$")
11479                         (set! in-abstract-sockets-test? #t)
11480                         "#### Abstract sockets\n")
11481                        (("^have_abstract_sockets=no\n$")
11482                         (set! in-abstract-sockets-test? #f)
11483                         ;; ‘Abstract sockets’ appear to be Linux-only.
11484                         (string-append "have_abstract_sockets="
11485                                        ,(if (target-linux?)
11486                                             "yes"
11487                                             "no")
11488                                        "\nif false; then\nif false; then :\n"))
11489                        (("^(.*\n)$" line)
11490                         (if in-abstract-sockets-test?
11491                             "" ; delete
11492                             line))))))
11493                '()))))
11494     (inputs
11495      (list glib))
11496     (native-inputs
11497      `(("pkg-config" ,pkg-config)
11498        ,@(if (and=> (%current-target-system) target-aarch64?)
11499              `(("config" ,config))
11500              '())))
11501     (home-page "https://people.gnome.org/~veillard/gamin/")
11502     (synopsis "File alteration monitor")
11503     (description
11504      "Gamin is a file and directory monitoring system defined to be a subset
11505 of the FAM (File Alteration Monitor) system.  This is a service provided by a
11506 library which detects when a file or a directory has been modified.")
11507     (license license:gpl2+)))
11508
11509 (define-public gnome-mahjongg
11510   (package
11511     (name "gnome-mahjongg")
11512     (version "3.38.3")
11513     (source (origin
11514               (method url-fetch)
11515               (uri (string-append "mirror://gnome/sources/" name "/"
11516                                   (version-major+minor version) "/" name "-"
11517                                   version ".tar.xz"))
11518               (sha256
11519                (base32
11520                 "144ia3zn9rhwa1xbdkvsz6m0dsysl6mxvqw9bnrlh845hmyy9cfj"))))
11521     (build-system meson-build-system)
11522     (arguments
11523      `(#:meson ,meson-0.59
11524        #:glib-or-gtk? #t))
11525     (native-inputs
11526      `(("appstream-glib" ,appstream-glib)
11527        ("gettext" ,gettext-minimal)
11528        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11529        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
11530        ("itstool" ,itstool)
11531        ("pkg-config" ,pkg-config)
11532        ("vala" ,vala)))
11533     (propagated-inputs
11534      (list dconf))
11535     (inputs
11536      (list glib gtk+))
11537     (synopsis "Mahjongg tile-matching game")
11538     (description "GNOME Mahjongg is a game based on the classic Chinese
11539 tile-matching game Mahjongg.  It features multiple board layouts, tile themes,
11540 and a high score table.")
11541     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11542     (license license:gpl2+)))
11543
11544 (define-public gnome-themes-extra
11545   (package
11546     (name "gnome-themes-extra")
11547     (version "3.28")
11548     (source
11549      (origin
11550        (method url-fetch)
11551        (uri (string-append "mirror://gnome/sources/" name "/"
11552                            (version-major+minor version) "/" name "-"
11553                            version ".tar.xz"))
11554        (sha256
11555         (base32
11556          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11557     (build-system gnu-build-system)
11558     (arguments
11559      '(#:configure-flags
11560        ;; Don't create 'icon-theme.cache'.
11561        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11562               (true      (string-append coreutils "/bin/true")))
11563          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
11564     (native-inputs
11565      `(("glib:bin" ,glib "bin")
11566        ("intltool" ,intltool)
11567        ("pkg-config" ,pkg-config)))
11568     (inputs
11569      `(("glib" ,glib)
11570        ("gtk+" ,gtk+)
11571        ("gtk+-2" ,gtk+-2)
11572        ("librsvg" ,librsvg)
11573        ("libxml2" ,libxml2)))
11574     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11575     (synopsis "GNOME Extra Themes")
11576     (description "This package provides themes and related elements that don't
11577 really fit in other upstream packages.  It offers legacy support for GTK+ 2
11578 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
11579 index files needed for Adwaita to be used outside of GNOME.")
11580     (license license:lgpl2.1+)))
11581
11582 (define-public gnote
11583   (package
11584     (name "gnote")
11585     (version "41.2")
11586     (source
11587      (origin
11588        (method url-fetch)
11589        (uri (string-append "mirror://gnome/sources/" name "/"
11590                            (version-major version)  "/"
11591                            "gnote-" version ".tar.xz"))
11592        (sha256
11593         (base32 "0gs2j988rwfrxckb8qxlkyxnvqsv30q32myqish6hssfa51yzc11"))))
11594     (build-system meson-build-system)
11595     (arguments
11596      `(#:glib-or-gtk? #t
11597        #:phases (modify-phases %standard-phases
11598                   (add-after 'unpack 'skip-gtk-update-icon-cache
11599                     ;; Don't create 'icon-theme.cache'.
11600                     (lambda _
11601                       (substitute* "post-install.py"
11602                         (("gtk-update-icon-cache") "true")))))))
11603     (native-inputs
11604      (list desktop-file-utils
11605            `(,glib "bin")
11606            gobject-introspection
11607            intltool
11608            itstool
11609            pkg-config
11610            python))
11611     (inputs
11612      (list glibmm
11613            gsettings-desktop-schemas
11614            gspell
11615            gtk+
11616            gtkmm-3
11617            libsecret
11618            `(,util-linux "lib")
11619            libxml2
11620            libxslt))
11621     (synopsis "Note-taking application for the GNOME desktop")
11622     (description "Gnote is a note-taking application written for the GNOME
11623 desktop environment.")
11624     (home-page "https://wiki.gnome.org/Apps/Gnote")
11625     (license license:gpl3+)))
11626
11627 (define-public polari
11628   (package
11629     (name "polari")
11630     (version "41.0")
11631     (source (origin
11632               (method url-fetch)
11633               (uri (string-append "mirror://gnome/sources/polari/"
11634                                   (version-major version)
11635                                   "/polari-" version ".tar.xz"))
11636               (sha256
11637                (base32
11638                 "1ss0x8idwar1q9p9535kzqb8idy7k2r48vrbjiyccw03cs0mzc53"))))
11639     (build-system meson-build-system)
11640     (arguments
11641      `(#:glib-or-gtk? #t
11642        #:phases
11643        (modify-phases %standard-phases
11644          (add-after 'unpack 'skip-gtk-update-icon-cache
11645            (lambda _
11646              (substitute* "meson/meson-postinstall.sh"
11647                (("gtk-update-icon-cache") (which "true")))))
11648          (add-after 'install 'fix-desktop-file
11649            ;; Hardcode launcher to be on the safe side
11650            (lambda* (#:key outputs #:allow-other-keys)
11651              (let ((out (assoc-ref outputs "out")))
11652                (substitute* (string-append out "/share/applications/"
11653                                            "org.gnome.Polari.desktop")
11654                  (("Exec=.*") (string-append "Exec=" out "/bin/polari\n"))))))
11655          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11656            (lambda* (#:key outputs #:allow-other-keys)
11657              (let ((prog (string-append (assoc-ref outputs "out")
11658                                         "/bin/polari")))
11659                (wrap-program prog
11660                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
11661     (inputs
11662      (list glib
11663            gsettings-desktop-schemas
11664            gspell
11665            gtk
11666            gjs
11667            libsecret
11668            libsoup-minimal-2
11669            telepathy-glib
11670            telepathy-logger))
11671     (native-inputs
11672      (list `(,glib "bin")
11673            gobject-introspection
11674            intltool
11675            pkg-config
11676            yelp-tools))
11677     (propagated-inputs
11678      (list telepathy-idle telepathy-mission-control))
11679     (synopsis "Simple IRC Client")
11680     (description
11681      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11682 integrate seamlessly with the GNOME desktop.")
11683     (home-page "https://wiki.gnome.org/Apps/Polari")
11684     (license license:gpl2+)))
11685
11686 (define-public gnome-boxes
11687   (package
11688     (name "gnome-boxes")
11689     (version "41.1")
11690     (source
11691      (origin
11692        (method url-fetch)
11693        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11694                            (version-major version) "/"
11695                            "gnome-boxes-" version ".tar.xz"))
11696        (sha256
11697         (base32 "1wzhm8n485cqhbai4qshgrwl05ix881g8gjshilrj6vg8p1li79h"))
11698        (patches
11699         (search-patches "gnome-boxes-add-guix-logo.patch"))))
11700     (build-system meson-build-system)
11701     (arguments
11702      `(#:glib-or-gtk? #t
11703        #:configure-flags (list "-Drdp=false"
11704                                (string-append "-Dc_link_args=-Wl,-rpath="
11705                                               (assoc-ref %outputs "out")
11706                                               "/lib/gnome-boxes"))))
11707     (native-inputs
11708      (list `(,glib "bin")               ;for glib-compile-resources
11709            `(,gtk+ "bin")               ;for gtk-update-icon-cache
11710            desktop-file-utils           ;for update-desktop-database
11711            itstool
11712            intltool
11713            vala
11714            pkg-config
11715            python))
11716     (inputs
11717      (list libarchive
11718            glib-networking              ;for TLS support
11719            gsettings-desktop-schemas
11720            gtk+
11721            gtk-vnc
11722            gtksourceview
11723            json-glib
11724            libhandy
11725            libosinfo
11726            libsecret
11727            libsoup-minimal-2
11728            libusb
11729            libvirt
11730            libvirt-glib
11731            libxml2
11732            spice-gtk
11733            sparql-query
11734            vte
11735            webkitgtk-with-libsoup2      ;for webkit2gtk-4.0
11736            tracker
11737            libgudev))
11738     (home-page "https://wiki.gnome.org/Apps/Boxes")
11739     (synopsis "View, access, and manage remote and virtual systems")
11740     (description "GNOME Boxes is a simple application to view, access, and
11741 manage remote and virtual systems.  Note that this application requires the
11742 @code{libvirt} and @code{virtlog} daemons to run.  Use the command
11743 @command{info '(guix) Virtualization Services'} to learn how to configure
11744 these services on the Guix System.")
11745     (license (list
11746               ;; For data/icons/empty-boxes.png.
11747               license:cc-by2.0
11748               ;; For all others.
11749               license:lgpl2.0+))))
11750
11751 (define-public geary
11752   (package
11753     (name "geary")
11754     (version "40.0")
11755     (source (origin
11756               (method git-fetch)
11757               (uri (git-reference
11758                     (url "https://gitlab.gnome.org/GNOME/geary.git")
11759                     (commit (string-append "gnome-" version))))
11760               (file-name (git-file-name name version))
11761               (sha256
11762                (base32
11763                 "04hvw86r8sczvjm1z3ls5y5y5h6nyfb648rjkfx05ib00mqq5v1x"))))
11764     (build-system meson-build-system)
11765     (arguments
11766      `(#:glib-or-gtk? #t
11767        #:configure-flags
11768        '("-Dprofile=release")
11769        #:phases (modify-phases %standard-phases
11770                   (add-after 'unpack 'disable-failing-tests
11771                     (lambda _
11772                       (substitute* "test/test-client.vala"
11773                         (("client.add_suite\\(new Application.CertificateManagerTest\\(\\).suite\\);")
11774                          ""))))
11775                   (add-after 'unpack 'generate-vapis
11776                     (lambda* (#:key inputs #:allow-other-keys)
11777                       ;; It’s not possible to generate the GMime vapi, because
11778                       ;; there’s custom metadata that gmime didn’t
11779                       ;; install. Thus, the vapi should be built and installed
11780                       ;; with gmime.
11781                       (define gmime
11782                         (assoc-ref inputs "gmime"))
11783                       (copy-file (string-append gmime "/share/vala/vapi/gmime-3.0.vapi")
11784                                  "bindings/vapi/gmime-3.0.vapi")))
11785                   (add-after 'unpack 'disable-postinstall-script
11786                     (lambda _
11787                       (substitute* "build-aux/post_install.py"
11788                         (("gtk-update-icon-cache")
11789                          "true"))))
11790                   (add-before 'check 'setup-home
11791                     (lambda _
11792                       ;; Tests require a writable HOME.
11793                       (setenv "HOME" (getcwd))))
11794                   (add-before 'check 'setup-xvfb
11795                     (lambda _
11796                       (system "Xvfb :1 &")
11797                       (setenv "DISPLAY" ":1"))))))
11798     (inputs
11799      (list enchant
11800            folks
11801            gcr
11802            glib
11803            gmime
11804            `(,gnome-online-accounts "lib")
11805            gsettings-desktop-schemas
11806            gspell
11807            gsound
11808            gtk+
11809            iso-codes
11810            json-glib
11811            libcanberra
11812            libgee
11813            libhandy
11814            libpeas
11815            libsecret
11816            libstemmer
11817            libunwind
11818            sqlite
11819            webkitgtk-with-libsoup2
11820            ytnef))
11821     (native-inputs
11822      (list appstream-glib
11823            cmake-minimal
11824            desktop-file-utils
11825            gettext-minimal
11826            glib
11827            `(,glib "bin")
11828            gmime
11829            gobject-introspection
11830            gsettings-desktop-schemas
11831            itstool
11832            libarchive
11833            libxml2
11834            pkg-config
11835            python-minimal
11836            vala
11837            xorg-server-for-tests))
11838     (synopsis "GNOME email application built around conversations")
11839     (description
11840      "Geary collects related messages together into conversations,
11841 making it easy to find and follow your discussions.  Full-text and keyword
11842 search makes it easy to find the email you are looking for.  Geary's
11843 full-featured composer lets you send rich, styled text with images, links, and
11844 lists, but also send lightweight, easy to read text messages.  Geary
11845 automatically picks up your existing GNOME Online Accounts, and adding more is
11846 easy.  Geary has a clean, fast, modern interface that works like you want it
11847 to.")
11848     (home-page "https://wiki.gnome.org/Apps/Geary")
11849     (license (list
11850               ;; geary
11851               license:lgpl2.1+
11852               ;; icons
11853               license:cc-by3.0
11854               license:cc-by-sa3.0
11855               license:public-domain
11856               ;; snowball
11857               license:bsd-2))))
11858
11859 (define-public glabels
11860   (package
11861     (name "glabels")
11862     (version "3.4.1")
11863     (source
11864      (origin
11865        (method url-fetch)
11866        (uri (string-append "mirror://gnome/sources/" name "/"
11867                            (version-major+minor version)  "/"
11868                            "glabels-" version ".tar.xz"))
11869        (sha256
11870         (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
11871     (build-system glib-or-gtk-build-system)
11872     (native-inputs
11873      `(("gettext" ,gettext-minimal)
11874        ("glib:bin" ,glib "bin")
11875        ("intltool" ,intltool)
11876        ("itstool" ,itstool)
11877        ("pkg-config" ,pkg-config)))
11878     (inputs
11879      (list gtk+ librsvg libxml2))
11880     (arguments
11881      `(#:configure-flags '("CFLAGS=-fcommon")))
11882     (home-page "https://glabels.org/")
11883     (synopsis "Program for creating labels and business cards")
11884     (description
11885      "gLabels is a program for creating labels and business cards.  It is
11886 designed to work with various laser/ink-jet peel-off label and business
11887 card sheets that you’ll find at most office supply stores.")
11888     (license license:gpl3+)))
11889
11890 (define-public gnome-latex
11891   (package
11892     (name "gnome-latex")
11893     (version "3.38.0")
11894     (source
11895      (origin
11896        (method url-fetch)
11897        (uri (string-append "mirror://gnome/sources/" name "/"
11898                            (version-major+minor version)  "/"
11899                            "gnome-latex-" version ".tar.xz"))
11900        (sha256
11901         (base32 "0xqd49pgi82dygqnxj08i1v22b0vwwhx3zvdinhrx4jny339yam8"))))
11902     (build-system glib-or-gtk-build-system)
11903     (native-inputs
11904      (list gettext-minimal
11905            `(,glib "bin")
11906            gobject-introspection
11907            gtk-doc/stable
11908            intltool
11909            itstool
11910            pkg-config
11911            vala))
11912     (inputs
11913      (list amtk
11914            dconf
11915            glib
11916            gsettings-desktop-schemas
11917            gspell
11918            gtk+
11919            gtksourceview
11920            libgee
11921            tepl-5
11922            uchardet))
11923     (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
11924     (synopsis "LaTeX editor for the GNOME desktop")
11925     (description
11926      "GNOME LaTeX is a LaTeX editor for the GNOME desktop.  It has features
11927 such as build tools, completion of LaTeX commands, structure navigation,
11928 symbol tables, document templates, project management, spell-checking, menus
11929 and toolbars.")
11930     (license license:gpl3+)))
11931
11932 (define-public setzer
11933   (package
11934     (name "setzer")
11935     (version "0.4.1")
11936     (source
11937      (origin
11938        (method git-fetch)
11939        (uri (git-reference
11940              (url "https://github.com/cvfosammmm/Setzer")
11941              (commit (string-append "v" version))))
11942        (file-name (git-file-name name version))
11943        (sha256
11944         (base32 "1rcx2c07jg1ij81pnvg3px49hfbjmkagn68d3gp79z3gcajbp2av"))))
11945     (build-system meson-build-system)
11946     (arguments
11947      `(#:glib-or-gtk? #t
11948        #:phases
11949        (modify-phases %standard-phases
11950          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11951            (lambda* (#:key outputs #:allow-other-keys)
11952              (let ((prog (string-append (assoc-ref outputs "out")
11953                                         "/bin/setzer"))
11954                    (pylib (string-append (assoc-ref outputs "out")
11955                                          "/lib/python"
11956                                          ,(version-major+minor
11957                                            (package-version python))
11958                                          "/site-packages")))
11959                (wrap-program prog
11960                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
11961                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11962                #t))))))
11963     (native-inputs
11964      `(("desktop-file-utils" ,desktop-file-utils)
11965        ("gettext" ,gettext-minimal)
11966        ("glib:bin" ,glib "bin")
11967        ("gobject-introspection" ,gobject-introspection)
11968        ("gtk+:bin" ,gtk+ "bin")
11969        ("python-wrapper" ,python-wrapper)))
11970     (inputs
11971      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11972        ("gspell" ,gspell)
11973        ("gtk+" ,gtk+)
11974        ("gtksourceview" ,gtksourceview)
11975        ("pango" ,pango)
11976        ("poppler" ,poppler)
11977        ("python-pdfminer" ,python-pdfminer-six)
11978        ("python-pycairo" ,python-pycairo)
11979        ("python-pygobject" ,python-pygobject)
11980        ("python-pyxdg" ,python-pyxdg)
11981        ("webkitgtk" ,webkitgtk)
11982        ("xdg-utils" ,xdg-utils)))
11983     (home-page "https://www.cvfosammmm.org/setzer/")
11984     (synopsis "LaTeX editor written in Python with GTK+")
11985     (description
11986      "Setzer is a simple yet full-featured LaTeX editor written in Python with
11987 GTK+.  It integrates well with the GNOME desktop environment.")
11988     (license license:gpl3+)))
11989
11990 (define-public apostrophe
11991   (package
11992     (name "apostrophe")
11993     (version "2.5")
11994     (source (origin
11995               (method git-fetch)
11996               (uri (git-reference
11997                     (url "https://gitlab.gnome.org/somas/apostrophe")
11998                     (commit (string-append "v" version))))
11999               (file-name (git-file-name name version))
12000               (sha256
12001                (base32
12002                 "06yfiflmj3ip7ppcz41nb3xpgb5ggw5h74w0v87yaqqkq7qh31lp"))))
12003     (build-system meson-build-system)
12004     (arguments
12005      `(#:glib-or-gtk? #t
12006        #:meson ,meson-0.59              ;fails with 0.60
12007        #:phases
12008        (modify-phases %standard-phases
12009          (add-after 'unpack 'patch-meson
12010            (lambda _
12011              (substitute* "build-aux/meson_post_install.py"
12012                (("gtk-update-icon-cache") "true"))))
12013          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12014            (lambda* (#:key inputs outputs #:allow-other-keys)
12015              (let ((prog (string-append (assoc-ref outputs "out")
12016                                         "/bin/apostrophe"))
12017                    (pylib (string-append (assoc-ref outputs "out")
12018                                          "/lib/python"
12019                                          ,(version-major+minor
12020                                            (package-version
12021                                             (this-package-input "python")))
12022                                          "/site-packages")))
12023                (wrap-program prog
12024                  `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12025                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
12026                  `("PATH" prefix (,(dirname
12027                                     (search-input-file inputs
12028                                                        "/bin/pandoc")))))))))))
12029     (inputs
12030      (list glib
12031            gobject-introspection
12032            gspell
12033            gtk+
12034            libhandy
12035            pandoc
12036            python
12037            python-chardet
12038            python-levenshtein
12039            python-regex
12040            python-pycairo
12041            python-pygobject
12042            python-pyenchant
12043            python-pypandoc
12044            webkitgtk-with-libsoup2))
12045     (native-inputs
12046      (list gettext-minimal
12047            `(,glib "bin")
12048            pkg-config
12049            sassc))
12050     (home-page "https://gitlab.gnome.org/somas/apostrophe")
12051     (synopsis "Markdown editor written in Python with GTK+")
12052     (description "Apostrophe is a GTK+ based distraction-free Markdown editor.
12053 It uses pandoc as back-end for parsing Markdown.")
12054     (license license:gpl3)))
12055
12056 (define-public libratbag
12057   (package
12058     (name "libratbag")
12059     (version "0.16")
12060     (source
12061      (origin
12062        (method git-fetch)
12063        (uri (git-reference
12064              (url "https://github.com/libratbag/libratbag")
12065              (commit (string-append "v" version))))
12066        (file-name (git-file-name name version))
12067        (sha256
12068         (base32 "0jjf6xc3a37icp5dvbxla3ai9is2ns31m0llbfq1bmb6dk8cd4n0"))))
12069     (build-system meson-build-system)
12070     (arguments
12071      `(#:configure-flags
12072        (list "-Dsystemd=false"
12073              "-Dlogind-provider=elogind"
12074              ,@(if (not (package? (this-package-native-input "valgrind")))
12075                  `("-Dtests=false")     ; Some tests still run.
12076                  `()))
12077        #:phases
12078        (modify-phases %standard-phases
12079          (add-after 'install 'wrap
12080            (lambda* (#:key inputs outputs #:allow-other-keys)
12081              (let* ((out (assoc-ref outputs "out"))
12082                     (site (string-append
12083                            "/lib/python"
12084                            ,(version-major+minor (package-version python))
12085                            "/site-packages"))
12086                     (evdev (string-append
12087                             (assoc-ref inputs "python-evdev") site))
12088                     (pygo (string-append
12089                            (assoc-ref inputs "python-pygobject") site))
12090                     (python-wrap
12091                      `("GUIX_PYTHONPATH" = (,evdev ,pygo))))
12092                (wrap-program (string-append out "/bin/" "ratbagctl")
12093                  python-wrap)
12094                #t))))))
12095     (native-inputs
12096      (append
12097        (list check pkg-config swig)
12098        (if (member (%current-system) (package-supported-systems valgrind))
12099          (list valgrind)
12100          '())))
12101     (inputs
12102      `(("glib" ,glib)
12103        ("json-glib" ,json-glib)
12104        ("libevdev" ,libevdev)
12105        ("libsystemd" ,elogind)
12106        ("libunistring" ,libunistring)
12107        ("python" ,python)
12108        ("python-evdev" ,python-evdev)
12109        ("python-pygobject" ,python-pygobject)
12110        ("udev" ,eudev)))
12111     (home-page "https://github.com/libratbag/libratbag")
12112     (synopsis "DBus daemon and utility for configuring gaming mice")
12113     (description "libratbag provides @command{ratbagd}, a DBus daemon to
12114 configure input devices, mainly gaming mice.  The daemon provides a generic
12115 way to access the various features exposed by these mice and abstracts away
12116 hardware-specific and kernel-specific quirks.  There is also the
12117 @command{ratbagctl} command line interface for configuring devices.
12118
12119 libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
12120 Steelseries.
12121
12122 The ratbagd DBus service can be enabled by adding the following service to
12123 your operating-system definition:
12124
12125   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
12126     (license license:expat)))
12127
12128 (define-public piper
12129   (package
12130     (name "piper")
12131     (version "0.6")
12132     (source
12133      (origin
12134        (method git-fetch)
12135        (uri (git-reference
12136              (url "https://github.com/libratbag/piper")
12137              (commit version)))
12138        (sha256
12139         (base32 "02x4d4n0078slj2pl0rvgayrrxvna6y6vj8fxfamvazsh5xyfzwk"))
12140        (file-name (git-file-name name version))))
12141     (build-system meson-build-system)
12142     (native-inputs
12143      (list gettext-minimal
12144            `(,glib "bin")
12145            gobject-introspection
12146            pkg-config
12147            python-flake8))
12148     (inputs
12149      (list adwaita-icon-theme
12150            gtk+
12151            `(,gtk+ "bin")
12152            libratbag
12153            python
12154            python-evdev
12155            python-lxml
12156            python-pycairo
12157            python-pygobject))
12158     (arguments
12159      `(#:imported-modules ((guix build python-build-system)
12160                            ,@%meson-build-system-modules)
12161        #:modules (((guix build python-build-system) #:prefix python:)
12162                   (guix build meson-build-system)
12163                   (guix build utils))
12164        #:tests? #f ;; The flake8 test fails trying to validate piper.in as code.
12165        #:phases
12166        (modify-phases %standard-phases
12167          (add-after 'unpack 'dont-update-gtk-icon-cache
12168            (lambda _
12169              (substitute* "meson.build"
12170                (("meson.add_install_script('meson_install.sh')") ""))))
12171          ;; TODO: Switch to wrap-script when it is fixed.
12172          (add-after 'install 'wrap-python
12173            (assoc-ref python:%standard-phases 'wrap))
12174          (add-after 'wrap-python 'wrap
12175            (lambda* (#:key outputs #:allow-other-keys)
12176              (wrap-program
12177                  (string-append (assoc-ref outputs "out" )"/bin/piper")
12178                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))))
12179     (home-page "https://github.com/libratbag/piper/")
12180     (synopsis "Configure bindings and LEDs on gaming mice")
12181     (description "Piper is a GTK+ application for configuring gaming mice with
12182 onboard configuration for key bindings via libratbag.  Piper requires
12183 a @command{ratbagd} daemon running with root privileges.  It can be run
12184 manually as root, but is preferably configured as a DBus service that can
12185 launch on demand.  This can be configured by enabling the following service,
12186 provided there is a DBus service present:
12187
12188   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
12189     (license license:gpl2)))
12190
12191 (define-public parlatype
12192   (package
12193     (name "parlatype")
12194     (version "3.1")
12195     (source
12196      (origin
12197        (method git-fetch)
12198        (uri (git-reference
12199              (url "https://github.com/gkarsay/parlatype")
12200              (commit (string-append "v" version))))
12201        (file-name (git-file-name name version))
12202        (sha256
12203         (base32 "0cqrzbkyksfsm57riirmjkwf2nf2dgl1xpps1wvqxpij475qcb9b"))))
12204     (build-system meson-build-system)
12205     (arguments
12206      `(#:glib-or-gtk? #t
12207        #:tests? #f                      ;require internet access
12208        #:phases
12209        (modify-phases %standard-phases
12210          (add-after 'unpack 'skip-gtk-update-icon-cache
12211            (lambda _
12212              (substitute* "data/meson_post_install.py"
12213                (("gtk-update-icon-cache") "true"))))
12214          (add-after 'install 'wrap-parlatype
12215            ;; Add gstreamer plugin provided in this package to system's
12216            ;; plugins.
12217            (lambda* (#:key outputs #:allow-other-keys)
12218              (let* ((out (assoc-ref outputs "out"))
12219                     (gst-plugin-path (string-append
12220                                       out "/lib/gstreamer-1.0/"
12221                                       ":"
12222                                       (getenv "GST_PLUGIN_SYSTEM_PATH"))))
12223                (wrap-program (string-append out "/bin/parlatype")
12224                  `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path)))))))))
12225     (native-inputs
12226      (list appstream-glib
12227            desktop-file-utils           ;for desktop-file-validate
12228            gettext-minimal
12229            `(,glib "bin")               ;for glib-compile-resources
12230            pkg-config
12231            yelp-tools))
12232     (inputs
12233      (list gst-plugins-base
12234            gst-plugins-good
12235            gstreamer
12236            gtk+
12237            iso-codes
12238            pocketsphinx
12239            pulseaudio
12240            sphinxbase))
12241     (home-page "https://www.parlatype.org")
12242     (synopsis "GNOME audio player for transcription")
12243     (description "Parlatype is an audio player for the GNOME desktop
12244 environment.  Its main purpose is the manual transcription of spoken
12245 audio files.")
12246     (license license:gpl3+)))
12247
12248 (define-public jsonrpc-glib
12249   (package
12250     (name "jsonrpc-glib")
12251     (version "3.34.0")
12252     (source (origin
12253               (method url-fetch)
12254               (uri (string-append "mirror://gnome/sources/" name "/"
12255                                   (version-major+minor version) "/"
12256                                    name "-" version ".tar.xz"))
12257               (sha256
12258                (base32
12259                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
12260     (build-system meson-build-system)
12261     (inputs
12262      (list json-glib glib))
12263     (native-inputs
12264      (list pkg-config
12265            `(,glib "bin") ; for glib-genmarshal, etc.
12266            gobject-introspection vala))
12267     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
12268     (synopsis "JSON-RPC library for GLib")
12269     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
12270 peers in either a synchronous or asynchronous fashion.  It also allows
12271 communicating using the GVariant serialization format instead of JSON when
12272 both peers support it.  You might want that when communicating on a single
12273 host to avoid parser overhead and memory-allocator fragmentation.")
12274     (license license:lgpl2.1+)))
12275
12276 (define-public feedbackd
12277   (package
12278     (name "feedbackd")
12279     (version "0.0.0+git20200527")
12280     (source (origin
12281               (method git-fetch)
12282               (uri (git-reference
12283                     (url "https://source.puri.sm/Librem5/feedbackd.git")
12284                     (commit (string-append "v" version))))
12285               (file-name (git-file-name name version))
12286               (sha256
12287                (base32
12288                 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
12289     (build-system meson-build-system)
12290     (native-inputs
12291      (list `(,glib "bin") gobject-introspection pkg-config vala))
12292     (inputs
12293      (list dbus gsound json-glib libgudev))
12294     (propagated-inputs
12295      (list glib)) ; in Requires of libfeedback-0.0.pc
12296     (synopsis "Haptic/visual/audio feedback via DBus")
12297     (description "Feedbackd provides a DBus daemon to act on events to provide
12298 haptic, visual and audio feedback.  It offers the libfeedbackd library and
12299 GObject introspection bindings.")
12300      (home-page "https://source.puri.sm/Librem5/feedbackd")
12301      (license (list license:lgpl2.1+   ; libfeedbackd
12302                     license:lgpl3+)))) ; the rest
12303
12304 (define-public sysprof
12305   (package
12306     (name "sysprof")
12307     (version "3.42.1")
12308     (source
12309      (origin
12310        (method url-fetch)
12311        (uri (string-append "mirror://gnome/sources/sysprof/"
12312                            (version-major+minor version) "/"
12313                            "sysprof-" version ".tar.xz"))
12314        (sha256
12315         (base32 "0090986ar3lz9m9fy7l5y9ibzzmgsx54cm6gp8ggsxgf0habi5hp"))))
12316     (build-system meson-build-system)
12317     (arguments
12318      `(#:configure-flags
12319        (list (string-append "-Dsystemdunitdir="
12320                             %output
12321                             "/share/systemd"))
12322        #:tests? #f ; 3/4 test-model-filter barfs some dbus nonsense
12323        #:phases
12324        (modify-phases %standard-phases
12325          (add-after 'unpack 'patch-install-script
12326            (lambda _
12327              (substitute* "build-aux/meson/post_install.sh"
12328                (("gtk-update-icon-cache") "true")
12329                (("update-desktop-database") "true"))
12330              #t)))))
12331     (propagated-inputs
12332      (list polkit))
12333     (inputs
12334      (list glib gtk+ json-glib libdazzle polkit))
12335     (native-inputs
12336      `(("gettext" ,gettext-minimal)
12337        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
12338        ("itstool" ,itstool)
12339        ("pkg-config" ,pkg-config)
12340        ("xmllint" ,libxml2)))
12341     ;; This home page is so woefully out of date as to be essentially useless.
12342     ;; (home-page "http://www.sysprof.com")
12343     (home-page "https://wiki.gnome.org/Apps/Sysprof")
12344     (synopsis "System-wide performance profiler for GNU/Linux")
12345     (description
12346      "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
12347 GNU/Linux system including the kernel and all user-space applications.  This
12348 helps find the function(s) in which a program spends most of its time.
12349
12350 It uses the kernel's built-in @code{ptrace} feature and handles shared
12351 libraries.  Applications do not need to be recompiled--or even restarted.")
12352     (license license:gpl3+)))
12353
12354 (define-public gnome-builder
12355   (package
12356     (name "gnome-builder")
12357     (version "41.2")
12358     (source (origin
12359               (method url-fetch)
12360               (uri (string-append "mirror://gnome/sources/" name "/"
12361                                   (version-major version) "/"
12362                                   name "-" version ".tar.xz"))
12363               (sha256
12364                (base32
12365                 "04p031i999dccbnlbysmr6f93x7dji7b559j6yhdsqbqgxb7ncan"))
12366               (patches
12367                (search-patches "gnome-builder-update-libportal.patch"))))
12368     (build-system meson-build-system)
12369     (arguments
12370      (list
12371       #:glib-or-gtk? #t ;To wrap binaries and compile schemas
12372       #:configure-flags
12373       #~(list "-Dnetwork_tests=false"
12374               ;; TODO: Enable all plugins...
12375               ;; Flatpak plugin wants libsoup 2
12376               "-Dplugin_flatpak=false"
12377               ;; ... except this one.
12378               "-Dplugin_update_manager=false")
12379       #:phases
12380       #~(modify-phases %standard-phases
12381           (add-after 'unpack 'patch-meson
12382             (lambda* (#:key inputs #:allow-other-keys)
12383               (substitute* "build-aux/meson/post_install.py"
12384                 (("gtk-update-icon-cache") "true")
12385                 (("update-desktop-database") "true"))
12386               (substitute* "src/libide/meson.build"
12387                 (("/usr/lib") (string-append (assoc-ref inputs
12388                                                         "python-pygobject")
12389                                              "/lib")))))
12390           (add-after 'configure 'fix-ninja
12391             (lambda _
12392               ;; #43296: meson(?) incorrectly assumes we want to link
12393               ;; this PIE against a static libselinux.
12394               (substitute* "build.ninja"
12395                 (("libselinux\\.a") "libselinux.so"))))
12396           (add-before 'check 'pre-check
12397             (lambda _
12398               (system "Xvfb :1 &")
12399               (setenv "DISPLAY" ":1"))))))
12400     (inputs (list cmark
12401                   clang
12402                   devhelp-with-libsoup2
12403                   glade3
12404                   gspell
12405                   gtk+
12406                   json-glib
12407                   jsonrpc-glib
12408                   libdazzle
12409                   libgit2-glib
12410                   libpeas
12411                   libportal
12412                   libsoup-minimal-2
12413                   llvm
12414                   python
12415                   python-pygobject
12416                   sysprof
12417                   template-glib
12418                   vte
12419                   webkitgtk-with-libsoup2))
12420     (propagated-inputs (list gtksourceview)) ; needed for settings
12421     (native-inputs (list desktop-file-utils  ; for desktop-file-validate
12422                          `(,glib "bin")
12423                          gettext-minimal
12424                          pkg-config
12425                          python              ; for meson scripts
12426                          vala
12427                          xorg-server-for-tests))
12428     (home-page "https://wiki.gnome.org/Apps/Builder")
12429     (synopsis "Toolsmith for GNOME-based applications")
12430     (description
12431      "Builder aims to be an integrated development environment (IDE) for
12432 writing GNOME-based software.  It features fuzzy search, auto-completion,
12433 a mini code map, documentation browsing, Git integration, an integrated
12434 profiler via Sysprof, debugging support, and more.")
12435     (license license:gpl3+)))
12436
12437 (define-public komikku
12438   (package
12439     (name "komikku")
12440     (version "0.39.0")
12441     (source
12442      (origin
12443        (method git-fetch)
12444        (uri (git-reference
12445              (url "https://gitlab.com/valos/Komikku/")
12446              (commit (string-append "v" version))))
12447        (file-name (git-file-name name version))
12448        (sha256
12449         (base32
12450          "1g765kbgimfpvma67j1gscj046n2q9a9nr2pczlw65qwlm0418c5"))))
12451     (build-system meson-build-system)
12452     (arguments
12453      `(#:glib-or-gtk? #t
12454        #:phases
12455        (modify-phases %standard-phases
12456          (add-after 'unpack 'patch-sources
12457            (lambda _
12458              (substitute* "komikku/utils.py"
12459                (("from komikku\\.servers import get_servers_list")
12460                 ;; code following that line should migrate old databases
12461                 ;; but the line itself results in an import error
12462                 "return data_dir_path"))))
12463          (add-after 'unpack 'skip-gtk-update-icon-cache
12464            (lambda _
12465              (substitute* "meson_post_install.py"
12466                (("gtk-update-icon-cache") (which "true")))
12467              #t))
12468          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12469           (lambda* (#:key outputs #:allow-other-keys)
12470             (let ((prog (string-append (assoc-ref outputs "out")
12471                                        "/bin/komikku")))
12472               (wrap-program prog
12473                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
12474                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12475               #t))))))
12476     (inputs
12477      (list gtk+
12478            libhandy
12479            libnotify
12480            libsecret
12481            python
12482            python-beautifulsoup4
12483            python-brotli
12484            python-cloudscraper
12485            python-dateparser
12486            python-keyring
12487            python-lxml
12488            python-magic
12489            python-natsort
12490            python-pillow
12491            python-pure-protobuf
12492            python-pycairo
12493            python-pygobject
12494            python-requests
12495            python-unidecode
12496            webkitgtk-with-libsoup2))
12497     (native-inputs
12498      (list desktop-file-utils
12499            gettext-minimal
12500            `(,glib "bin")
12501            gobject-introspection
12502            pkg-config))
12503     (home-page "https://gitlab.com/valos/Komikku")
12504     (synopsis "Manga reader for GNOME")
12505     (description "Komikku is an online/offline manga reader for GNOME,
12506 developed with the aim of being used with the Librem 5 phone.")
12507     (license license:gpl3+)))
12508
12509 (define-public libgda
12510   (package
12511     (name "libgda")
12512     (version "5.2.10")
12513     (source
12514      (origin
12515        (method git-fetch)
12516        (uri (git-reference
12517              (url "https://gitlab.gnome.org/GNOME/libgda.git/")
12518              (commit (string-append "LIBGDA_" (string-replace-substring
12519                                                version "." "_")))))
12520        (file-name (git-file-name name version))
12521        (sha256
12522         (base32 "18rg773gq9v3cdywpmrp12c5xyp97ir9yqjinccpi22sksb1kl8a"))
12523        (modules '((guix build utils)))
12524        (snippet
12525         ;; Remove the bundled sqlite, but keep its header because code relies
12526         ;; on this header variant.
12527         '(delete-file "libgda/sqlite/sqlite-src/sqlite3.c"))))
12528     (build-system gnu-build-system)
12529     (arguments
12530      `(#:configure-flags '("--enable-system-sqlite" "--enable-vala")
12531        ;; There's a race between check_cnc_lock and check_threaded_cnc
12532        ;; in tests/multi-threading.
12533        #:parallel-tests? #f
12534        #:phases
12535        (modify-phases %standard-phases
12536          (add-after 'unpack 'fix-glade-install
12537            (lambda _
12538              (substitute* "configure.ac"
12539                (("`\\$PKG_CONFIG --variable=catalogdir gladeui-2\\.0`")
12540                 "${datadir}/glade/catalogs")
12541                (("`\\$PKG_CONFIG --variable=pixmapdir gladeui-2\\.0`")
12542                 "${datadir}/glade/pixmaps"))
12543              #t))
12544          (add-before 'check 'pre-check
12545            (lambda* (#:key inputs #:allow-other-keys)
12546              ;; Tests require a running X server.
12547              (system "Xvfb :1 &")
12548              (setenv "DISPLAY" ":1")
12549              #t))
12550          (add-after 'install 'symlink-glade-module
12551            (lambda* (#:key outputs #:allow-other-keys)
12552              (let* ((shlib "libgda-ui-5.0.so")
12553                     (out (assoc-ref outputs "out"))
12554                     (out/lib (string-append out "/lib"))
12555                     (moduledir (string-append out/lib "/glade/modules")))
12556                (mkdir-p moduledir)
12557                (symlink (string-append out/lib "/" shlib)
12558                         (string-append moduledir "/" shlib))
12559                #t))))))
12560     (propagated-inputs
12561      (list libxml2))           ; required by libgda-5.0.pc
12562     (inputs
12563      (list glib
12564            glade3
12565            gtk+
12566            libsecret
12567            libxslt
12568            openssl
12569            sqlite
12570            vala))
12571     (native-inputs
12572      `(("autoconf" ,autoconf)
12573        ("autoconf-archive" ,autoconf-archive)
12574        ("automake" ,automake)
12575        ("glib:bin" ,glib "bin")
12576        ("gnome-common" ,gnome-common)
12577        ("gobject-introspection" ,gobject-introspection)
12578        ("gtk-doc" ,gtk-doc/stable)
12579        ("intltool" ,intltool)
12580        ("libtool" ,libtool)
12581        ("pkg-config" ,pkg-config)
12582        ("vala" ,vala)
12583        ("which" ,which)
12584        ("xorg-server" ,xorg-server-for-tests)
12585        ("yelp-tools" ,yelp-tools)))
12586     (home-page "https://gitlab.gnome.org/GNOME/libgda")
12587     (synopsis "Uniform data access")
12588     (description
12589      "GNU Data Access (GDA) is an attempt to provide uniform access to
12590 different kinds of data sources (databases, information servers, mail spools,
12591 etc).  It is a complete architecture that provides all you need to access
12592 your data.")
12593     (license license:lgpl2.1+)))
12594
12595 (define-public gtranslator
12596   (package
12597     (name "gtranslator")
12598     (version "40.0")
12599         (source (origin
12600               (method url-fetch)
12601               (uri (string-append "mirror://gnome/sources/" name "/"
12602                                   (version-major version) "/"
12603                                   name "-" version ".tar.xz"))
12604               (sha256
12605                (base32
12606                 "0d48nc11z0m91scy21ah56ysxns82zvswx8lglvlkig1vqvblgpc"))))
12607     (build-system meson-build-system)
12608     (inputs
12609      `(("json-glib" ,json-glib)
12610        ("jsonrpc-glib" ,jsonrpc-glib)
12611        ("gettext" ,gettext-minimal)
12612        ("glib" ,glib)
12613        ("gtk+" ,gtk+)
12614        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12615        ("gspell" ,gspell)
12616        ("libdazzle" ,libdazzle)
12617        ("libgda" ,libgda)
12618        ("libhandy" ,libhandy)
12619        ("libsoup" ,libsoup-minimal-2)))
12620     (native-inputs
12621      `(("glib:bin" ,glib "bin")
12622        ("itstool" ,itstool)
12623        ("pkg-config" ,pkg-config)))
12624     (propagated-inputs
12625      (list gtksourceview)) ; required for source view
12626     (arguments
12627      `(#:build-type "release"
12628        #:glib-or-gtk? #t
12629        #:phases
12630        (modify-phases %standard-phases
12631          (add-after 'unpack 'skip-gtk-update-icon-cache
12632            (lambda _
12633              (substitute* "build-aux/meson/meson_post_install.py"
12634                (("gtk-update-icon-cache") (which "true")))
12635              #t)))))
12636     (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12637     (synopsis "Translation making program")
12638     (description
12639      "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12640 for the GNOME 3.x platform with many features.  It aims to be a very complete
12641 editing environment for translation issues within the GNU gettext/GNOME desktop
12642 world.")
12643     (license license:gpl3+)))
12644
12645
12646 (define-public ocrfeeder
12647   (package
12648     (name "ocrfeeder")
12649     (version "0.8.5")
12650     (source (origin
12651               (method url-fetch)
12652               (uri (string-append "mirror://gnome/sources/ocrfeeder/"
12653                                   (version-major+minor version) "/"
12654                                   "ocrfeeder-" version ".tar.xz"))
12655               (sha256
12656                (base32
12657                 "1vaaphzk6zn7pp2x9scphdzlbsma910wnbhd9xry50nx95cjlgdh"))))
12658     (build-system gnu-build-system)
12659     (arguments
12660      `(#:phases
12661        (modify-phases %standard-phases
12662          (add-after
12663           'install 'wrap-program
12664           (lambda* (#:key outputs #:allow-other-keys)
12665             (let ((prog (string-append (assoc-ref outputs "out")
12666                                        "/bin/" "ocrfeeder"))
12667                   (pylib (string-append (assoc-ref outputs "out")
12668                                         "/lib/python"
12669                                         ,(version-major+minor
12670                                           (package-version python))
12671                                         "/site-packages")))
12672               (wrap-program prog
12673                 `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12674                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
12675     (native-inputs
12676      `(("glib:bin" ,glib "bin")                   ; for glib-compile-resources
12677        ("gobject-introspection" ,gobject-introspection)
12678        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
12679        ("intltool" ,intltool)
12680        ("itstool" ,itstool)
12681        ("pkg-config" ,pkg-config)
12682        ("xmllint" ,libxml2)))
12683     (inputs
12684      `(("enchant" ,enchant)
12685        ("glib" ,glib)
12686        ("goocanvas" ,goocanvas)
12687        ("gtk" ,gtk+)
12688        ("gtkspell3" ,gtkspell3)
12689        ("libjpeg" ,libjpeg-turbo)
12690        ("libtiff" ,libtiff)
12691        ("libraw" ,libraw)
12692        ("ocrad" ,ocrad)
12693        ("python" ,python-wrapper)
12694        ("python-pygobject" ,python-pygobject)
12695        ("python-odfpy" ,python-odfpy)
12696        ("python-pillow" ,python-pillow)
12697        ("python-pyenchant" ,python-pyenchant)
12698        ("python-reportlab" ,python-reportlab)
12699        ("python-sane" ,python-sane)
12700        ("sane-backends" ,sane-backends)
12701        ("tesseract-ocr" ,tesseract-ocr)))
12702     (home-page "https://wiki.gnome.org/Apps/OCRFeeder")
12703     (synopsis "Complete OCR Suite")
12704     (description "OCRFeeder is a complete Optical Character Recognition and
12705 Document Analysis and Recognition program.")
12706     (license license:gpl3+)))
12707
12708 (define-public libadwaita
12709   (package
12710     (name "libadwaita")
12711     (version "1.1.0")
12712     (source (origin
12713               (method url-fetch)
12714               (uri (string-append "mirror://gnome/sources/libadwaita/"
12715                                   (version-major+minor version) "/"
12716                                   "libadwaita-" version ".tar.xz"))
12717               (sha256
12718                (base32
12719                 "03h14mrm453bn03f48rmpf85pvg5cnzzab27cs1c43417s09ixdg"))))
12720     (build-system meson-build-system)
12721     (arguments
12722      `(#:phases
12723        (modify-phases %standard-phases
12724          (add-before 'check 'pre-check
12725            (lambda* (#:key inputs #:allow-other-keys)
12726              ;; Tests require a running X server.
12727              (system "Xvfb :1 &")
12728              (setenv "DISPLAY" ":1"))))))
12729     (native-inputs
12730      `(("sassc" ,sassc)
12731        ("glib:bin" ,glib "bin")
12732        ("gtk-doc" ,gtk-doc/stable)
12733        ("pkg-config" ,pkg-config)
12734        ("vala" ,vala)
12735        ("xvfb" ,xorg-server-for-tests)
12736        ("gettext" ,gettext-minimal)))
12737     (inputs
12738      (list gobject-introspection libportal))
12739     (propagated-inputs
12740      (list gtk))                        ;libadwaita-1.pc 'Requires' it
12741     (home-page "https://gnome.pages.gitlab.gnome.org/libadwaita/")
12742     (synopsis "Building blocks for GNOME applications")
12743     (description
12744      "@code{libadwaita} offers widgets and objects to build GNOME
12745 applications scaling from desktop workstations to mobile phones.  It is the
12746 successor of @code{libhandy} for GTK4.")
12747     (license license:lgpl2.1+)))
12748
12749 (define-public gnome-power-manager
12750   (package
12751     (name "gnome-power-manager")
12752     (version "3.32.0")
12753     (source (origin
12754               (method url-fetch)
12755               (uri (string-append "mirror://gnome/sources/" name "/"
12756                                   (version-major+minor version) "/"
12757                                   name "-" version ".tar.xz"))
12758               (sha256
12759                (base32
12760                 "0drfn3wcc8l4n07qwv6p0rw2dwcd00hwzda282q62l6sasks2b2g"))))
12761     (build-system meson-build-system)
12762     (inputs
12763      (list upower gtk+ gsettings-desktop-schemas adwaita-icon-theme))
12764     (native-inputs
12765      (list desktop-file-utils
12766            `(,glib "bin") gettext-minimal pkg-config))
12767     (home-page "https://gitlab.gnome.org/GNOME/gnome-power-manager")
12768     (synopsis "Power management daemon for the GNOME desktop")
12769     (description "@code{gnome-power-manager} is a tool for viewing present and
12770 historical battery usage and related statistics.")
12771     (license license:gpl2)))
12772
12773 (define-public xffm+
12774   (package
12775     (name "xffm+")
12776     (version "0.94")
12777     (source (origin
12778               (method url-fetch)
12779               (uri (string-append "mirror://sourceforge/xffm/xffm+/xffm+-"
12780                                   version ".tar.bz2"))
12781               (sha256
12782                (base32
12783                 "0gwbgmjzlgv9ba95cgaigjnc9njzi7qznhvzp0qrnnlq3nbcm1k1"))))
12784     (build-system cmake-build-system)
12785     (arguments
12786      `(#:tests? #f ; No tests exist
12787        #:configure-flags
12788        (let ((shared-mime-info (assoc-ref %build-inputs "shared-mime-info"))
12789              (out (assoc-ref %outputs "out")))
12790          (list (string-append "-DFREEDESKTOP_GLOBS=" shared-mime-info
12791                               "/share/mime/globs")
12792                (string-append "-DFREEDESKTOP_ALIAS=" shared-mime-info
12793                               "/share/mime/aliases")
12794                (string-append "-DFREEDESKTOP_ICONS=" shared-mime-info
12795                               "/share/mime/generic-icons")
12796                (string-append "-DCMAKE_INSTALL_PREFIX=" out)
12797                (string-append "-DPREFIX_BIN=" out "/bin")))
12798        #:phases
12799        (modify-phases %standard-phases
12800          (add-after 'unpack 'patch-installation-destination
12801            (lambda* (#:key outputs #:allow-other-keys)
12802              (substitute* "CMakeLists.txt"
12803               ;; This is done so we can override.
12804               (("^set.CMAKE_INSTALL_PREFIX") "set(QCMAKE_INSTALL_PREFIX")
12805               ;; This is done so we can override.
12806               (("`set.PREFIX_BIN") "set(QPREFIX_BIN")))))))
12807     (native-inputs
12808      (list cmake pkg-config intltool gnu-gettext))
12809     (inputs
12810      (list glib gtk+ libx11 libsm libxv libxaw libxcb libxkbfile
12811            shared-mime-info))
12812     (synopsis "File manager")
12813     (description "This package provides a graphical file manager.")
12814     (home-page "http://xffm.org/")
12815     (license license:gpl3+)
12816     (properties '((upstream-name . "xffm")))))