gnu/packages/gnome.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
   5 ;;; Copyright © 2014, 2016, 2020 Eric Bavier <bavier@posteo.net>
   6 ;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
   7 ;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
   8 ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
   9 ;;; Copyright © 2015, 2017 Andy Wingo <wingo@igalia.com>
  10 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
  11 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
  12 ;;; Copyright © 2015, 2016, 2017, 2018, 2021 Mark H Weaver <mhw@netris.org>
  13 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
  14 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016, 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
  16 ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
  17 ;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
  18 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  19 ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
  20 ;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
  21 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  22 ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
  23 ;;; Copyright © 2016 David Craven <david@craven.ch>
  24 ;;; Copyright © 2016–2021 Tobias Geerinckx-Rice <me@tobias.gr>
  25 ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
  26 ;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
  27 ;;; Copyright © 2017, 2018 nee <nee-git@hidamari.blue>
  28 ;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
  29 ;;; Copyright © 2017 Mohammed Sadiq <sadiq@sadiqpk.org>
  30 ;;; Copyright © 2017, 2020, 2021 Brendan Tildesley <mail@brendan.scot>
  31 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
  32 ;;; Copyright © 2018 Jovany Leandro G.C <bit4bit@riseup.net>
  33 ;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com>
  34 ;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
  35 ;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
  36 ;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
  37 ;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
  38 ;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
  39 ;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
  40 ;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
  41 ;;; Copyright © 2019 Jonathan Frederickson <jonathan@terracrypt.net>
  42 ;;; Copyright © 2019, 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  43 ;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
  44 ;;; Copyright © 2019 David Wilson <david@daviwil.com>
  45 ;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org>
  46 ;;; Copyright © 2019, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
  47 ;;; Copyright © 2019, 2020, 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
  48 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
  49 ;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
  50 ;;; Copyright © 2020 raingloom <raingloom@riseup.net>
  51 ;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  52 ;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
  53 ;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
  54 ;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
  55 ;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
  56 ;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
  57 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
  58 ;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
  59 ;;; Copyright © 2020, 2021 Andy Tai <atai@atai.org>
  60 ;;; Copyright © 2020, 2021 Sébastien Lerique <sl@eauchat.org>
  61 ;;; Copyright © 2021 Trevor Hass <thass@okstate.edu>
  62 ;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
  63 ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
  64 ;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
  65 ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
  66 ;;; Copyright © 2021 Josselin Poiret <josselin.poiret@protonmail.ch>
  67 ;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
  68 ;;;
  69 ;;; This file is part of GNU Guix.
  70 ;;;
  71 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  72 ;;; under the terms of the GNU General Public License as published by
  73 ;;; the Free Software Foundation; either version 3 of the License, or (at
  74 ;;; your option) any later version.
  75 ;;;
  76 ;;; GNU Guix is distributed in the hope that it will be useful, but
  77 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  78 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  79 ;;; GNU General Public License for more details.
  80 ;;;
  81 ;;; You should have received a copy of the GNU General Public License
  82 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  83
  84 (define-module (gnu packages gnome)
  85   #:use-module (gnu packages)
  86   #:use-module (gnu packages admin)
  87   #:use-module (gnu packages aidc)
  88   #:use-module (gnu packages aspell)
  89   #:use-module (gnu packages autotools)
  90   #:use-module (gnu packages avahi)
  91   #:use-module (gnu packages backup)
  92   #:use-module (gnu packages base)
  93   #:use-module (gnu packages bash)
  94   #:use-module (gnu packages bison)
  95   #:use-module (gnu packages boost)
  96   #:use-module (gnu packages build-tools)
  97   #:use-module (gnu packages calendar)
  98   #:use-module (gnu packages cdrom)
  99   #:use-module (gnu packages check)
 100   #:use-module (gnu packages cmake)
 101   #:use-module (gnu packages compression)
 102   #:use-module (gnu packages crates-io)
 103   #:use-module (gnu packages crates-graphics)
 104   #:use-module (gnu packages crates-gtk)
 105   #:use-module (gnu packages cups)
 106   #:use-module (gnu packages curl)
 107   #:use-module (gnu packages cyrus-sasl)
 108   #:use-module (gnu packages databases)
 109   #:use-module (gnu packages dbm)
 110   #:use-module (gnu packages djvu)
 111   #:use-module (gnu packages dns)
 112   #:use-module (gnu packages docbook)
 113   #:use-module (gnu packages docker)
 114   #:use-module (gnu packages documentation)
 115   #:use-module (gnu packages enchant)
 116   #:use-module (gnu packages flex)
 117   #:use-module (gnu packages fonts)
 118   #:use-module (gnu packages file-systems)
 119   #:use-module (gnu packages fontutils)
 120   #:use-module (gnu packages freedesktop)
 121   #:use-module (gnu packages game-development)
 122   #:use-module (gnu packages gcc)
 123   #:use-module (gnu packages gettext)
 124   #:use-module (gnu packages ghostscript)
 125   #:use-module (gnu packages gimp)
 126   #:use-module (gnu packages gl)
 127   #:use-module (gnu packages glib)
 128   #:use-module (gnu packages gnupg)
 129   #:use-module (gnu packages gnuzilla)
 130   #:use-module (gnu packages geo)
 131   #:use-module (gnu packages gperf)
 132   #:use-module (gnu packages graphviz)
 133   #:use-module (gnu packages gstreamer)
 134   #:use-module (gnu packages gtk)
 135   #:use-module (gnu packages guile)
 136   #:use-module (gnu packages haskell-xyz)
 137   #:use-module (gnu packages ibus)
 138   #:use-module (gnu packages icu4c)
 139   #:use-module (gnu packages image)
 140   #:use-module (gnu packages imagemagick)
 141   #:use-module (gnu packages inkscape)
 142   #:use-module (gnu packages iso-codes)
 143   #:use-module (gnu packages kerberos)
 144   #:use-module (gnu packages language)
 145   #:use-module (gnu packages libcanberra)
 146   #:use-module (gnu packages libffi)
 147   #:use-module (gnu packages libunistring)
 148   #:use-module (gnu packages libunwind)
 149   #:use-module (gnu packages libusb)
 150   #:use-module (gnu packages linux)
 151   #:use-module (gnu packages lirc)
 152   #:use-module (gnu packages llvm)
 153   #:use-module (gnu packages lua)
 154   #:use-module (gnu packages mail)
 155   #:use-module (gnu packages man)
 156   #:use-module (gnu packages markup)
 157   #:use-module (gnu packages mp3)
 158   #:use-module (gnu packages multiprecision)
 159   #:use-module (gnu packages music)
 160   #:use-module (gnu packages ncurses)
 161   #:use-module (gnu packages nettle)
 162   #:use-module (gnu packages networking)
 163   #:use-module (gnu packages ninja)
 164   #:use-module (gnu packages node)
 165   #:use-module (gnu packages nss)
 166   #:use-module (gnu packages ocr)
 167   #:use-module (gnu packages openldap)
 168   #:use-module (gnu packages package-management)
 169   #:use-module (gnu packages password-utils)
 170   #:use-module (gnu packages pcre)
 171   #:use-module (gnu packages pdf)
 172   #:use-module (gnu packages perl)
 173   #:use-module (gnu packages photo)
 174   #:use-module (gnu packages php)
 175   #:use-module (gnu packages pkg-config)
 176   #:use-module (gnu packages polkit)
 177   #:use-module (gnu packages popt)
 178   #:use-module (gnu packages pretty-print)
 179   #:use-module (gnu packages protobuf)
 180   #:use-module (gnu packages pulseaudio)
 181   #:use-module (gnu packages python)
 182   #:use-module (gnu packages python-crypto)
 183   #:use-module (gnu packages python-web)
 184   #:use-module (gnu packages python-xyz)
 185   #:use-module (gnu packages rdesktop)
 186   #:use-module (gnu packages rdf)
 187   #:use-module (gnu packages readline)
 188   #:use-module (gnu packages ruby)
 189   #:use-module (gnu packages rust)
 190   #:use-module (gnu packages samba)
 191   #:use-module (gnu packages scanner)
 192   #:use-module (gnu packages sdl)
 193   #:use-module (gnu packages search)
 194   #:use-module (gnu packages selinux)
 195   #:use-module (gnu packages slang)
 196   #:use-module (gnu packages speech)
 197   #:use-module (gnu packages spice)
 198   #:use-module (gnu packages sqlite)
 199   #:use-module (gnu packages ssh)
 200   #:use-module (gnu packages swig)
 201   #:use-module (gnu packages tex)
 202   #:use-module (gnu packages time)
 203   #:use-module (gnu packages tls)
 204   #:use-module (gnu packages valgrind)
 205   #:use-module (gnu packages version-control)
 206   #:use-module (gnu packages video)
 207   #:use-module (gnu packages virtualization)
 208   #:use-module (gnu packages vpn)
 209   #:use-module (gnu packages web)
 210   #:use-module (gnu packages webkit)
 211   #:use-module (gnu packages xdisorg)
 212   #:use-module (gnu packages xiph)
 213   #:use-module (gnu packages xml)
 214   #:use-module (gnu packages xorg)
 215   #:use-module (gnu artwork)
 216   #:use-module (guix build-system cargo)
 217   #:use-module (guix build-system cmake)
 218   #:use-module (guix build-system glib-or-gtk)
 219   #:use-module (guix build-system gnu)
 220   #:use-module (guix build-system meson)
 221   #:use-module (guix build-system python)
 222   #:use-module (guix build-system trivial)
 223   #:use-module (guix download)
 224   #:use-module (guix git-download)
 225   #:use-module ((guix licenses) #:prefix license:)
 226   #:use-module (guix packages)
 227   #:use-module (guix utils)
 228   #:use-module (guix gexp)
 229   #:use-module (ice-9 match)
 230   #:use-module (srfi srfi-1))
 231
 232 (define-public gupnp-igd
 233   (package
 234     (name "gupnp-igd")
 235     (version "1.2.0")
 236     (source
 237      (origin
 238        (method url-fetch)
 239        (uri
 240         (string-append "mirror://gnome/sources/" name "/"
 241                        (version-major+minor version) "/"
 242                        name "-" version ".tar.xz"))
 243        (sha256
 244         (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
 245     (build-system meson-build-system)
 246     (outputs '("out" "doc"))
 247     (arguments
 248      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
 249        #:configure-flags (list "-Dgtk_doc=true")
 250        #:phases
 251        (modify-phases %standard-phases
 252          (add-after 'unpack 'patch-docbook-xml
 253            (lambda* (#:key inputs #:allow-other-keys)
 254              (with-directory-excursion "doc"
 255                (substitute* "gupnp-igd-docs.xml"
 256                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 257                   (string-append (assoc-ref inputs "docbook-xml-4.1.2")
 258                                  "/xml/dtd/docbook/"))))
 259              #t))
 260          (add-before 'check 'set-home
 261            (lambda _
 262              ;; A test using GIO expects ~/.config/glib-2.0/settings to be
 263              ;; writable.
 264              (setenv "HOME" (getcwd))))
 265          (add-after 'install 'move-doc
 266            (lambda* (#:key outputs #:allow-other-keys)
 267              (let* ((out (assoc-ref outputs "out"))
 268                     (doc (assoc-ref outputs "doc")))
 269                (mkdir-p (string-append doc "/share"))
 270                (rename-file
 271                 (string-append out "/share/gtk-doc")
 272                 (string-append doc "/share/gtk-doc"))
 273                #t))))))
 274     (native-inputs
 275      `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
 276        ("docbook-xsl" ,docbook-xsl)
 277        ("glib:bin" ,glib "bin")
 278        ("gobject-introspection" ,gobject-introspection)
 279        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 280        ("gtk-doc" ,gtk-doc/stable)
 281        ("pkg-config" ,pkg-config)))
 282     (propagated-inputs
 283      `(("glib" ,glib)
 284        ("glib-networking" ,glib-networking)
 285        ("gssdp" ,gssdp)
 286        ("gupnp" ,gupnp)
 287        ("libsoup" ,libsoup)))
 288     (synopsis "UPnP IGD for GNOME")
 289     (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
 290     (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
 291     (license license:lgpl2.1+)))
 292
 293 (define-public brasero
 294   (package
 295     (name "brasero")
 296     (version "3.12.3")
 297     (source (origin
 298              (method url-fetch)
 299              (uri (string-append "mirror://gnome/sources/brasero/"
 300                                  (version-major+minor version) "/"
 301                                  "brasero-" version ".tar.xz"))
 302              (sha256
 303               (base32
 304                "05gabybkl7xfinwx97i4scp9hic0dlxj7gh03dyj0hd16fp9wx47"))))
 305     (build-system glib-or-gtk-build-system)
 306     (arguments
 307      `(#:configure-flags (list
 308                           (string-append "--with-girdir="
 309                                          (assoc-ref %outputs "out")
 310                                          "/share/gir-1.0")
 311                           (string-append "--with-typelibdir="
 312                                          (assoc-ref %outputs "out")
 313                                          "/lib/girepository-1.0"))
 314        #:phases
 315        (modify-phases %standard-phases
 316          (add-before 'configure 'embed-growisofs-reference
 317            (lambda* (#:key inputs #:allow-other-keys)
 318              (let ((dvd+rw-tools (assoc-ref inputs "dvd+rw-tools")))
 319                (substitute* "plugins/growisofs/burn-growisofs.c"
 320                  (("(\")(growisofs)" _ prefix command)
 321                   (string-append prefix dvd+rw-tools "/bin/" command)))))))))
 322     (propagated-inputs
 323      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 324     (native-inputs
 325      `(("intltool" ,intltool)
 326        ("itstool" ,itstool)
 327        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 328        ("gobject-introspection" ,gobject-introspection)
 329        ("pkg-config" ,pkg-config)))
 330     (inputs
 331      `(("dvd+rw-tools" ,dvd+rw-tools)
 332        ("glib" ,glib)
 333        ("gnome-doc-utils" ,gnome-doc-utils)
 334        ("gstreamer" ,gstreamer)
 335        ("gst-plugins-base" ,gst-plugins-base)
 336        ("gtk+" ,gtk+)
 337        ("libcanberra" ,libcanberra)
 338        ("libice" ,libice)
 339        ("libnotify" ,libnotify)
 340        ("libsm" ,libsm)
 341        ("libxml2" ,libxml2)
 342        ("totem-pl-parser" ,totem-pl-parser)))
 343     (home-page "https://wiki.gnome.org/Apps/Brasero")
 344     (synopsis "CD/DVD burning tool for Gnome")
 345     (description "Brasero is an application to burn CD/DVD for the Gnome
 346 Desktop.  It is designed to be as simple as possible and has some unique
 347 features to enable users to create their discs easily and quickly.")
 348     (license license:gpl2+)))
 349
 350 ;;; Minimal variant, used to break a cycle with Inkscape.
 351 (define-public libcloudproviders-minimal
 352   (package
 353     (name "libcloudproviders-minimal")
 354     (version "0.3.1")
 355     (source
 356      (origin
 357        (method url-fetch)
 358        (uri
 359         (string-append "mirror://gnome/sources/libcloudproviders/"
 360                        (version-major+minor version)
 361                        "/libcloudproviders-" version ".tar.xz"))
 362        (sha256
 363         (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
 364     (build-system meson-build-system)
 365     (arguments
 366      `(#:glib-or-gtk? #t             ; To wrap binaries and/or compile schemas
 367        #:configure-flags (list "-Dintrospection=false"
 368                                "-Denable-gtk-doc=false"
 369                                "-Dvapigen=false")))
 370     (native-inputs
 371      `(("glib:bin" ,glib "bin")
 372        ("pkg-config" ,pkg-config)
 373        ("vala" ,vala)))
 374     (inputs
 375      `(("glib" ,glib)
 376        ("glib-networking" ,glib-networking)))
 377     (synopsis "Cloudproviders Integration API")
 378     (description "Libcloudproviders is a DBus API that allows cloud storage sync
 379 clients to expose their services.  Clients such as file managers and desktop
 380 environments can then provide integrated access to the cloud providers
 381 services.")
 382     (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
 383     (license license:lgpl3+)))
 384
 385 (define-public libcloudproviders
 386   (package/inherit libcloudproviders-minimal
 387     (name "libcloudproviders")
 388     (version "0.3.1")
 389     (outputs (cons "doc" (package-outputs libcloudproviders-minimal)))
 390     (arguments
 391      (substitute-keyword-arguments (package-arguments libcloudproviders-minimal)
 392        ((#:configure-flags _)
 393         '(list "-Denable-gtk-doc=true")) ;false by default
 394        ((#:phases phases '%standard-phases)
 395         `(modify-phases %standard-phases
 396            (add-after 'install 'move-doc
 397              (lambda* (#:key outputs #:allow-other-keys)
 398                (let* ((out (assoc-ref outputs "out"))
 399                       (doc (assoc-ref outputs "doc")))
 400                  (mkdir-p (string-append doc "/share"))
 401                  (rename-file
 402                   (string-append out "/share/gtk-doc")
 403                   (string-append doc "/share/gtk-doc")))))))))
 404     (native-inputs
 405      (append
 406          `(("gobject-introspection" ,gobject-introspection)
 407            ("gtk-doc" ,gtk-doc/stable))
 408          (package-native-inputs libcloudproviders-minimal)))))
 409
 410 (define-public libgrss
 411   (package
 412     (name "libgrss")
 413     (version "0.7.0")
 414     (source
 415      (origin
 416        (method url-fetch)
 417        (uri
 418         (string-append "mirror://gnome/sources/" name "/"
 419                        (version-major+minor version) "/"
 420                        name "-" version ".tar.xz"))
 421        (sha256
 422         (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))
 423        (patches
 424         (search-patches "libgrss-CVE-2016-2001.patch"))))
 425     (build-system glib-or-gtk-build-system)
 426     (outputs '("out" "doc"))
 427     (arguments
 428      `(#:configure-flags
 429        (list
 430         "--enable-gtk-doc"
 431         (string-append "--with-html-dir="
 432                        (assoc-ref %outputs "doc")
 433                        "/share/gtk-doc/html"))
 434        #:phases
 435        (modify-phases %standard-phases
 436          (add-after 'unpack 'patch-docbook-xml
 437            (lambda* (#:key inputs #:allow-other-keys)
 438              (with-directory-excursion "doc/reference"
 439                (substitute* "libgrss-docs.sgml"
 440                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 441                   (string-append (assoc-ref inputs "docbook-xml")
 442                                  "/xml/dtd/docbook/"))))
 443              #t)))))
 444     (native-inputs
 445      `(("docbook-xml" ,docbook-xml-4.1.2)
 446        ("gobject-introspection" ,gobject-introspection)
 447        ("gtk-doc" ,gtk-doc/stable)
 448        ("pkg-config" ,pkg-config)))
 449     (propagated-inputs
 450      `(("glib" ,glib)
 451        ("libsoup" ,libsoup)
 452        ("libxml2" ,libxml2)))
 453     (synopsis "Glib library for feeds")
 454     (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
 455 and other formats.")
 456     (home-page "https://wiki.gnome.org/Projects/Libgrss")
 457     (license license:lgpl3+)))
 458
 459 (define-public gnome-js-common
 460   (package
 461     (name "gnome-js-common")
 462     (version "0.1.2")
 463     (source
 464      (origin
 465        (method url-fetch)
 466        (uri
 467         (string-append "mirror://gnome/sources/" name "/"
 468                        (version-major+minor version) "/"
 469                        name "-" version ".tar.gz"))
 470        (sha256
 471         (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
 472     (build-system glib-or-gtk-build-system)
 473     (arguments
 474      `(#:configure-flags
 475        (list
 476         "--disable-static")))
 477     (native-inputs
 478      `(("gettext" ,gettext-minimal)
 479        ("intltool" ,intltool)
 480        ("pkg-config" ,pkg-config)))
 481     (synopsis "Common JS Modules")
 482     (description "GNOME-JS-Common provides common modules for GNOME JavaScript
 483 bindings.")
 484     (home-page "https://wiki.gnome.org/Projects/Seed")
 485     (license license:gpl3+)))
 486
 487 (define-public seed
 488   (package
 489     (name "seed")
 490     (version "3.8.1")
 491     (source
 492      (origin
 493        (method url-fetch)
 494        (uri
 495         (string-append "mirror://gnome/sources/" name "/"
 496                        (version-major+minor version) "/"
 497                        name "-" version ".tar.xz"))
 498        (sha256
 499         (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
 500        (patches
 501         (search-patches "seed-webkit.patch"))))
 502     (build-system glib-or-gtk-build-system)
 503     (outputs '("out" "doc"))
 504     (arguments
 505      `(#:configure-flags
 506        (list
 507         "--disable-static"
 508         "--enable-xorg-module"
 509         (string-append "--with-html-dir="
 510                        (assoc-ref %outputs "doc")
 511                        "/share/gtk-doc/html")
 512         "--with-webkit=4.0")
 513        #:phases
 514        (modify-phases %standard-phases
 515          ;; The seed-webkit.patch patches configure.ac.
 516          ;; So the source files need to be re-bootstrapped.
 517          (add-after 'unpack 'trigger-bootstrap
 518            (lambda _
 519              (for-each delete-file
 520                        (list
 521                         "configure"
 522                         "Makefile.in"))
 523              #t))
 524          (add-after 'unpack 'patch-tests
 525            (lambda* (#:key outputs #:allow-other-keys)
 526              (substitute* (find-files "." "\\.js$")
 527               (("#!/usr/bin/env seed")
 528                (string-append "#!" (getcwd) "/src/seed")))
 529              #t))
 530          (add-before 'build 'patch-docbook-xml
 531            (lambda* (#:key inputs #:allow-other-keys)
 532              (with-directory-excursion "doc"
 533                (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
 534                  (("http://www.oasis-open.org/docbook/xml/4.1.2/")
 535                   (string-append (assoc-ref inputs "docbook-xml")
 536                                  "/xml/dtd/docbook/"))))
 537              #t)))))
 538     (native-inputs
 539      `(("autoconf" ,autoconf)
 540        ("automake" ,automake)
 541        ("docbook-xml" ,docbook-xml-4.1.2)
 542        ("gettext" ,gettext-minimal)
 543        ("gobject-introspection" ,gobject-introspection)
 544        ("gtk-doc" ,gtk-doc/stable)
 545        ("intltool" ,intltool)
 546        ("libtool" ,libtool)
 547        ("pkg-config" ,pkg-config)))
 548     (inputs
 549      `(("cairo" ,cairo)
 550        ("dbus" ,dbus)
 551        ("dbus-glib" ,dbus-glib)
 552        ("gnome-js-common" ,gnome-js-common)
 553        ("gtk+" ,gtk+)
 554        ("gtk+-2" ,gtk+-2)
 555        ("libffi" ,libffi)
 556        ("libxml2" ,libxml2)
 557        ("mpfr" ,mpfr)
 558        ("readline" ,readline)
 559        ("sqlite" ,sqlite)
 560        ("xscrnsaver" ,libxscrnsaver)))
 561     (propagated-inputs
 562      `(("glib" ,glib)
 563        ("webkit" ,webkitgtk)))
 564     (synopsis "GObject JavaScriptCore bridge")
 565     (description "Seed is a library and interpreter, dynamically bridging
 566 (through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
 567 GNOME platform.  It serves as something which enables you to write standalone
 568 applications in JavaScript, or easily enable your application to be extensible
 569 in JavaScript.")
 570     (home-page "https://wiki.gnome.org/Projects/Seed")
 571     (license license:lgpl2.0+)))
 572
 573 (define-public libdmapsharing
 574   (package
 575     (name "libdmapsharing")
 576     (version "3.9.10")
 577     (source
 578      (origin
 579        (method url-fetch)
 580        (uri
 581         (string-append "https://www.flyn.org/projects/"
 582                        name "/" name "-" version ".tar.gz"))
 583        (sha256
 584         (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
 585     (build-system glib-or-gtk-build-system)
 586     (outputs '("out" "doc"))
 587     (arguments
 588      `(#:tests? #f                      ; Tests require networking.
 589        #:configure-flags
 590        (list
 591         "--disable-static"
 592         (string-append "--with-html-dir="
 593                        (assoc-ref %outputs "doc")
 594                        "/share/gtk-doc/html"))
 595        #:phases
 596        (modify-phases %standard-phases
 597          (add-after 'unpack 'patch-docbook-xml
 598            (lambda* (#:key inputs #:allow-other-keys)
 599              (with-directory-excursion "doc"
 600                (substitute* "libdmapsharing-4.0-docs.xml"
 601                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 602                   (string-append (assoc-ref inputs "docbook-xml")
 603                                  "/xml/dtd/docbook/"))))
 604              #t)))))
 605     (native-inputs
 606      `(("check" ,check)
 607        ("docbook-xml" ,docbook-xml-4.3)
 608        ("gobject-introspection" ,gobject-introspection)
 609        ("pedansee" ,pedansee)
 610        ("pkg-config" ,pkg-config)
 611        ("vala" ,vala)))
 612     (inputs
 613      `(("avahi" ,avahi)
 614        ("librsvg" ,librsvg)
 615        ("gee" ,libgee)
 616        ("gst-plugins-base" ,gst-plugins-base)
 617        ("gtk+" ,gtk+)))
 618     (propagated-inputs
 619      `(("glib" ,glib)
 620        ("glib-networking" ,glib-networking)
 621        ("gstreamer" ,gstreamer)
 622        ("libsoup-minimal" ,libsoup-minimal-2)))
 623     (synopsis "Media management library")
 624     (description "Libdmapsharing is a library which allows programs to access,
 625 share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
 626 It is written in C using GObject and libsoup.")
 627     (home-page "https://launchpad.net/gtx")
 628     (license license:lgpl2.1+)))
 629
 630 (define-public gtx
 631   (package
 632     (name "gtx")
 633     (version "0.2.2")
 634     (source
 635      (origin
 636        (method url-fetch)
 637        (uri
 638         (string-append "https://launchpad.net/gtx/trunk/"
 639                        version "/+download/gtx-" version ".tar.gz"))
 640        (sha256
 641         (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
 642     (build-system glib-or-gtk-build-system)
 643     (outputs '("out" "doc"))
 644     (arguments
 645      `(#:configure-flags
 646        (list
 647         "--disable-static"
 648         "--enable-gtk-doc"
 649         (string-append "--with-html-dir="
 650                        (assoc-ref %outputs "doc")
 651                        "/share/gtk-doc/html"))))
 652     (native-inputs
 653      `(("gobject-introspection" ,gobject-introspection)
 654        ("gtk-doc" ,gtk-doc/stable)
 655        ("pkg-config" ,pkg-config)))
 656     (propagated-inputs
 657      `(("glib" ,glib)))
 658     (synopsis "GLib Testing Framework")
 659     (description "GTX is a small collection of convenience functions intended to
 660 enhance the GLib testing framework.  With specific emphasis on easing the pain
 661 of writing test cases for asynchronous interactions.")
 662     (home-page "https://launchpad.net/gtx")
 663     (license license:lgpl2.1+)))
 664
 665 (define-public dee
 666   (package
 667     (name "dee")
 668     (version "1.2.7")
 669     (source
 670      (origin
 671        (method url-fetch)
 672        (uri
 673         (string-append "https://launchpad.net/dee/1.0/"
 674                        version "/+download/dee-" version ".tar.gz"))
 675        (sha256
 676         (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
 677        (patches
 678         (search-patches "dee-vapi.patch"))))
 679     (build-system glib-or-gtk-build-system)
 680     (outputs '("out" "doc"))
 681     (arguments
 682      `(#:configure-flags
 683        (list
 684         "--disable-maintainer-flags"
 685         (string-append "--with-pygi-overrides-dir="
 686                        (assoc-ref %outputs "out")
 687                        "/lib/python"
 688                        ,(version-major+minor
 689                          (package-version python))
 690                        "/site-packages/gi/overrides")
 691         (string-append "--with-html-dir="
 692                        (assoc-ref %outputs "doc")
 693                        "/share/gtk-doc/html"))
 694        #:phases
 695        (modify-phases %standard-phases
 696          (add-after 'unpack 'patch-docbook-xml
 697            (lambda* (#:key inputs #:allow-other-keys)
 698              (with-directory-excursion "doc/reference/dee-1.0"
 699                (substitute* "dee-1.0-docs.sgml"
 700                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 701                   (string-append (assoc-ref inputs "docbook-xml")
 702                                  "/xml/dtd/docbook/"))))
 703              #t))
 704          (add-after 'patch-docbook-xml 'disable-failing-tests
 705            (lambda _
 706              (substitute* "tests/test-icu.c"
 707                (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
 708                 "")
 709                (("setup, test_ascii_folder, teardown\\);")
 710                 ""))
 711              #t))
 712          (add-before 'check 'pre-check
 713            (lambda _
 714              ;; Tests require a running dbus-daemon.
 715              (system "dbus-daemon &")
 716              ;; For missing '/etc/machine-id'.
 717              (setenv "DBUS_FATAL_WARNINGS" "0")
 718              #t)))))
 719     (native-inputs
 720      `(("dbus" ,dbus)
 721        ("dbus-test-runner" ,dbus-test-runner)
 722        ("docbook-xml" ,docbook-xml-4.3)
 723        ("gobject-introspection" ,gobject-introspection)
 724        ("gtk-doc" ,gtk-doc/stable)
 725        ;; Would only be required by configure flag "--enable-extended-tests".
 726        ;("gtx" ,gtx)
 727        ("pkg-config" ,pkg-config)
 728        ("pygobject" ,python-pygobject)
 729        ("python" ,python-wrapper)
 730        ("vala" ,vala)))
 731     (inputs
 732      `(("icu" ,icu4c)))
 733     (propagated-inputs
 734      `(("glib" ,glib)))
 735     (synopsis "Model to synchronize multiple instances over DBus")
 736     (description "Dee is a library that uses DBus to provide objects allowing
 737 you to create Model-View-Controller type programs across DBus.  It also consists
 738 of utility objects which extend DBus allowing for peer-to-peer discoverability
 739 of known objects without needing a central registrar.")
 740     (home-page "https://launchpad.net/dee")
 741     (license
 742      ;; Dual-licensed
 743      (list
 744       license:lgpl3+
 745       license:gpl3+))))
 746
 747 (define-public zeitgeist
 748   (package
 749     (name "zeitgeist")
 750     (version "1.0.3")
 751     (source
 752      (origin
 753        (method git-fetch)
 754        (uri
 755         (git-reference
 756          (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
 757          (commit
 758           (string-append "v" version))))
 759        (file-name
 760         (git-file-name name version))
 761        (sha256
 762         (base32 "0y6fyzxl5np4yskcxibd0p03h619w9ir907nhf40h02y0pk1kgkp"))))
 763     (build-system glib-or-gtk-build-system)
 764     (arguments
 765      `(#:configure-flags
 766        (list
 767         "--enable-explain-queries"
 768         "--enable-fts"
 769         "--enable-docs")
 770        #:phases
 771        (modify-phases %standard-phases
 772          (add-after 'unpack 'patch-docbook-xml
 773            (lambda* (#:key inputs #:allow-other-keys)
 774              (with-directory-excursion "doc/libzeitgeist"
 775                (substitute* "zeitgeist-gtkdoc-index.sgml"
 776                  (("http://www.oasis-open.org/docbook/xml/4.3/")
 777                   (string-append (assoc-ref inputs "docbook-xml")
 778                                  "/xml/dtd/docbook/"))))
 779              #t))
 780          (add-after 'patch-docbook-xml 'disable-failing-tests
 781            (lambda _
 782              (substitute* "test/direct/Makefile.am"
 783                (("      log-test ")
 784                 ""))
 785              (substitute* "test/c/Makefile.am"
 786                (("      test-log ")
 787                 ""))
 788              #t))
 789          (add-before 'bootstrap 'remove-autogen-script
 790            (lambda _
 791              ;; To honor `autoreconf -vif` by build-system.
 792              (delete-file "autogen.sh")
 793              #t)))))
 794     (native-inputs
 795      `(("autoconf" ,autoconf)
 796        ("automake" ,automake)
 797        ("docbook-xml" ,docbook-xml-4.3)
 798        ("gettext" ,gettext-minimal)
 799        ("gobject-introspection" ,gobject-introspection)
 800        ("gtk-doc" ,gtk-doc/stable)
 801        ("libtool" ,libtool)
 802        ("pkg-config" ,pkg-config)
 803        ("vala" ,vala)
 804        ("xorg-server-for-tests" ,xorg-server-for-tests)))
 805     (inputs
 806      `(("dee-icu" ,dee)
 807        ("gtk+" ,gtk+)
 808        ("json-glib" ,json-glib)
 809        ("sqlite" ,sqlite)
 810        ("telepathy-glib" ,telepathy-glib)
 811        ("python" ,python-wrapper)
 812        ("python-rdflib" ,python-rdflib)
 813        ("xapian-config" ,xapian)))
 814     (propagated-inputs
 815      `(("glib" ,glib)))
 816     (synopsis "Desktop Activity Logging")
 817     (description "Zeitgeist is a service which logs the users’s activities and
 818 events, anywhere from files opened to websites visited and conversations.  It
 819 makes this information readily available for other applications to use.  It is
 820 able to establish relationships between items based on similarity and usage
 821 patterns.")
 822     (home-page "https://zeitgeist.freedesktop.org/")
 823     (license
 824      ;; Dual-licensed
 825      (list
 826       license:lgpl2.1+
 827       license:gpl2+))))
 828
 829 (define-public gnome-recipes
 830   (package
 831     (name "gnome-recipes")
 832     (version "2.0.4")
 833     (source (origin
 834               (method git-fetch)
 835               (uri (git-reference
 836                     (url "https://gitlab.gnome.org/GNOME/recipes")
 837                     (commit version)))
 838               (file-name (git-file-name name version))
 839               (sha256
 840                (base32
 841                 "1h049mzqnlcfqwrhmzbq3pzzdglvy2bn9fj1p8wql7a60pn8sr32"))))
 842     (build-system meson-build-system)
 843     (arguments
 844      `(#:glib-or-gtk? #t
 845        #:phases
 846        (modify-phases %standard-phases
 847          (add-after 'unpack 'skip-gtk-update-icon-cache
 848            (lambda _
 849              (substitute* "meson_post_install.py"
 850                (("gtk-update-icon-cache") (which "true")))
 851              #t))
 852          (add-after 'unpack 'unpack-libgd
 853            (lambda* (#:key inputs #:allow-other-keys)
 854              (let ((libgd (assoc-ref inputs "libgd")))
 855                (copy-recursively libgd "subprojects/libgd")
 856                #t))))))
 857     (inputs
 858      `(("glib" ,glib)
 859        ("gnome-autoar" ,gnome-autoar)
 860        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 861        ("gspell" ,gspell)
 862        ("gtk+" ,gtk+)
 863        ("json-glib" ,json-glib)
 864        ("libcanberra" ,libcanberra)
 865        ("libsoup" ,libsoup)
 866        ("rest" ,rest)))
 867     (native-inputs
 868      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
 869        ("gettext" ,gettext-minimal)
 870        ("glib:bin" ,glib "bin")
 871        ("itstool" ,itstool)
 872        ("libgd"
 873         ,(origin
 874            (method git-fetch)
 875            (uri (git-reference
 876                  (url "https://gitlab.gnome.org/GNOME/libgd")
 877                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
 878            (file-name (git-file-name "libgd" version))
 879            (sha256
 880             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
 881        ("pkg-config" ,pkg-config)))
 882     (home-page "https://wiki.gnome.org/Apps/Recipes")
 883     (synopsis "Discover recipes for preparing food")
 884     (description "GNOME Recipes helps you discover what to cook today,
 885 tomorrow, the rest of the week and for special occasions.")
 886     (license license:gpl3+)))
 887
 888 (define-public gnome-photos
 889   (package
 890     (name "gnome-photos")
 891     (version "40.0")
 892     (source
 893      (origin
 894        (method url-fetch)
 895        (uri
 896         (string-append "mirror://gnome/sources/" name "/"
 897                        (version-major version) "/"
 898                        name "-" version ".tar.xz"))
 899        (sha256
 900         (base32
 901          "1bzi79plw6ji6qlckhxnwfnswy6jpnhzmmyanml2i2xg73hp6bg0"))))
 902     (build-system meson-build-system)
 903     (arguments
 904      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
 905        #:glib-or-gtk? #t
 906        #:configure-flags
 907        (list "-Ddogtail=false"     ; Not available
 908              ;; Required for RUNPATH validation.
 909              (string-append "-Dc_link_args=-Wl,-rpath="
 910                             (assoc-ref %outputs "out") "/lib/gnome-photos"))
 911        #:phases
 912        (modify-phases %standard-phases
 913          (add-after 'install 'wrap-gnome-photos
 914            (lambda* (#:key inputs outputs #:allow-other-keys)
 915              (let*
 916                  ((out (assoc-ref outputs "out")))
 917                (wrap-program (string-append out "/bin/gnome-photos")
 918                  `("GRL_PLUGIN_PATH" =
 919                    (,(getenv "GRL_PLUGIN_PATH"))))))))))
 920     (native-inputs
 921      `(("dbus" ,dbus)
 922        ("desktop-file-utils" ,desktop-file-utils)
 923        ("gettext" ,gettext-minimal)
 924        ("git" ,git-minimal)
 925        ("glib:bin" ,glib "bin")
 926        ("gobject-introspection" ,gobject-introspection)
 927        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 928        ("gtk+:bin" ,gtk+ "bin")
 929        ("itstool" ,itstool)
 930        ("pkg-config" ,pkg-config)))
 931     (inputs
 932      `(("babl" ,babl)
 933        ("cairo" ,cairo)
 934        ("librsvg" ,librsvg)
 935        ("gegl" ,gegl)
 936        ("geocode-glib" ,geocode-glib)
 937        ("gexiv2" ,gexiv2)
 938        ("gnome-online-accounts" ,gnome-online-accounts)
 939        ("gnome-online-miners" ,gnome-online-miners)
 940        ("grilo" ,grilo)
 941        ("grilo-plugins" ,grilo-plugins)
 942        ("gtk+" ,gtk+)
 943        ("libdazzle" ,libdazzle)
 944        ("libgdata" ,libgdata)
 945        ("libgfbgraph" ,gfbgraph)
 946        ("libhandy" ,libhandy)
 947        ("libjpeg" ,libjpeg-turbo)
 948        ("libpng" ,libpng)
 949        ("librest" ,rest)
 950        ("pygobject" ,python-pygobject)
 951        ("tracker" ,tracker)
 952        ("tracker-miners" ,tracker-miners)))
 953     (synopsis "Access, organize and share your photos on GNOME desktop")
 954     (description "GNOME Photos is a simple and elegant replacement for using a
 955 file manager to deal with photos.  Enhance, crop and edit in a snap.  Seamless
 956 cloud integration is offered through GNOME Online Accounts.")
 957     (home-page "https://wiki.gnome.org/Apps/Photos")
 958     (license license:gpl3+)))
 959
 960 (define-public gnome-music
 961   (package
 962     (name "gnome-music")
 963     (version "40.1.1")
 964     (source
 965      (origin
 966        (method url-fetch)
 967        (uri
 968         (string-append "mirror://gnome/sources/" name "/"
 969                        (version-major version) "/"
 970                        name "-" version ".tar.xz"))
 971        (sha256
 972         (base32
 973          "0lcdal4qdhclr8961p57xf010y92l6wwmkw86lyi9wy224z6gjr0"))))
 974     (build-system meson-build-system)
 975     (arguments
 976      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
 977        #:glib-or-gtk? #t
 978        #:phases
 979        (modify-phases %standard-phases
 980          (add-after 'install 'wrap-gnome-music
 981            (lambda* (#:key inputs outputs #:allow-other-keys)
 982              (let*
 983                  ((out (assoc-ref outputs "out"))
 984                   (pylib (string-append out "/lib/python"
 985                                         ,(version-major+minor
 986                                           (package-version python))
 987                                         "/site-packages")))
 988                (wrap-program (string-append out "/bin/gnome-music")
 989                  `("GI_TYPELIB_PATH" =
 990                    (,(getenv "GI_TYPELIB_PATH")))
 991                  `("GST_PLUGIN_SYSTEM_PATH" =
 992                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
 993                  `("GRL_PLUGIN_PATH" =
 994                    (,(getenv "GRL_PLUGIN_PATH")))
 995                  `("GUIX_PYTHONPATH" =
 996                    (,(getenv "GUIX_PYTHONPATH") ,pylib)))))))))
 997     (native-inputs
 998      `(("desktop-file-utils" ,desktop-file-utils)
 999        ("gettext" ,gettext-minimal)
1000        ("glib:bin" ,glib "bin")
1001        ("gobject-introspection" ,gobject-introspection)
1002        ("gtk+:bin" ,gtk+ "bin")
1003        ("itstools" ,itstool)
1004        ("pkg-config" ,pkg-config)))
1005     (inputs
1006      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1007        ("grilo" ,grilo)
1008        ("grilo-plugins" ,grilo-plugins)
1009        ("gst-plugins-base" ,gst-plugins-base)
1010        ("gst-plugins-good" ,gst-plugins-good)
1011        ("gstreamer" ,gstreamer)
1012        ("gvfs" ,gvfs)
1013        ("json-glib" ,json-glib)
1014        ("libdazzle" ,libdazzle)
1015        ("libmediaart" ,libmediaart)
1016        ("libsoup" ,libsoup-minimal-2)
1017        ("pycairo" ,python-pycairo)
1018        ("pygobject" ,python-pygobject)
1019        ("tracker" ,tracker)
1020        ("tracker-miners" ,tracker-miners)))
1021     (synopsis "Simple music player for GNOME desktop")
1022     (description "GNOME Music is the new GNOME music playing application that
1023 aims to combine an elegant and immersive browsing experience with simple
1024 and straightforward controls.")
1025     (home-page "https://wiki.gnome.org/Apps/Music")
1026     (license license:gpl2+)))
1027
1028 (define-public portablexdr
1029   (package
1030     (name "portablexdr")
1031     (version "4.9.1")
1032     (source
1033      (origin
1034        (method url-fetch)
1035        (uri
1036         (string-append "https://people.redhat.com/~rjones/" name "/files/"
1037                        name "-" version ".tar.gz"))
1038        (sha256
1039         (base32
1040          "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
1041     (build-system gnu-build-system)
1042     (synopsis "External Data Representation Library")
1043     (description "PortableXDR is an implementation of External Data
1044 Representation (XDR) Library.  It is a standard data serialization format, for
1045 uses such as computer network protocols.  It allows data to be transferred
1046 between different kinds of computer systems.")
1047     (home-page "https://people.redhat.com/~rjones/portablexdr/")
1048     (license
1049      (list
1050       license:gpl2+
1051       license:lgpl2.1+))))
1052
1053 (define-public tepl
1054   (package
1055     (name "tepl")
1056     (version "6.00.0")
1057     (source
1058      (origin
1059        (method url-fetch)
1060        (uri
1061         (string-append "mirror://gnome/sources/" name "/"
1062                        (version-major+minor version) "/"
1063                        name "-" version ".tar.xz"))
1064        (sha256
1065         (base32
1066          "0qvs7s86gqyyrzi0r5fbrj8zczlgv8xhdjswgbgc1afwjnl9fqx8"))))
1067     (build-system meson-build-system)
1068     (arguments
1069      `(#:glib-or-gtk? #t
1070        #:tests? #f))                    ; FIX-ME: Requires gvfs
1071     (native-inputs
1072      `(("glib" ,glib "bin")
1073        ("gobject-introspection" ,gobject-introspection)
1074        ("pkg-config" ,pkg-config)))
1075     (inputs
1076      `(("amtk" ,amtk)
1077        ("glib" ,glib)
1078        ("gtk+" ,gtk+)
1079        ("gtksourceview" ,gtksourceview)
1080        ("libxml2" ,libxml2)
1081        ("uchardet" ,uchardet)))
1082     (synopsis "Text editor product line")
1083     (description "Tepl is a library that eases the development of
1084 GtkSourceView-based text editors and IDEs.")
1085     (home-page "https://wiki.gnome.org/Projects/Tepl")
1086     (license license:lgpl2.1+)))
1087
1088 (define-public tepl-5
1089   (package
1090     (inherit tepl)
1091     (name "tepl")
1092     (version "5.0.1")
1093     (source
1094      (origin
1095        (method url-fetch)
1096        (uri
1097         (string-append "mirror://gnome/sources/" name "/"
1098                        (version-major+minor version) "/"
1099                        name "-" version ".tar.xz"))
1100        (sha256
1101         (base32
1102          "0118j64s4fb350phbgda2rk6sv19rfgglxc7nf248llzc1klj9xi"))))))
1103
1104 (define-public krb5-auth-dialog
1105   (package
1106     (name "krb5-auth-dialog")
1107     (version "3.26.1")
1108     (source
1109      (origin
1110        (method url-fetch)
1111        (uri
1112         (string-append "mirror://gnome/sources/" name "/"
1113                        (version-major+minor version) "/"
1114                        name "-" version ".tar.xz"))
1115        (sha256
1116         (base32
1117          "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1118     (build-system glib-or-gtk-build-system)
1119     (native-inputs
1120      `(("intltool" ,intltool)
1121        ("itstool" ,itstool)
1122        ("libxml2" ,libxml2)
1123        ("pkg-config" ,pkg-config)
1124        ("python-wrapper" ,python-wrapper)))
1125     (inputs
1126      `(("glib" ,glib)
1127        ("gtk+" ,gtk+)
1128        ("libnotify" ,libnotify)
1129        ("mit-krb5" ,mit-krb5)
1130        ("network-manager" ,network-manager)))
1131     (synopsis "Popup dialogs for Kerberos 5")
1132     (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1133 tickets, and pops up a dialog when they are about to expire.")
1134     (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1135     (license license:gpl2+)))
1136
1137 (define-public notification-daemon
1138   (package
1139     (name "notification-daemon")
1140     (version "3.20.0")
1141     (source
1142      (origin
1143        (method url-fetch)
1144        (uri
1145         (string-append "mirror://gnome/sources/" name "/"
1146                        (version-major+minor version) "/"
1147                        name "-" version ".tar.xz"))
1148        (sha256
1149         (base32
1150          "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1151     (build-system glib-or-gtk-build-system)
1152     (native-inputs
1153      `(("intltool" ,intltool)
1154        ("pkg-config" ,pkg-config)))
1155     (inputs
1156      `(("glib" ,glib)
1157        ("gtk+" ,gtk+)
1158        ("x11" ,libx11)))
1159     (synopsis "Notification Daemon for GNOME Desktop")
1160     (description "Notification-Daemon is the server implementation of the
1161 freedesktop.org desktop notification specification.")
1162     (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1163     (license license:gpl2+)))
1164
1165 (define-public mm-common
1166   (package
1167     (name "mm-common")
1168     (version "1.0.3")
1169     (source (origin
1170               (method url-fetch)
1171               (uri (string-append "mirror://gnome/sources/mm-common/"
1172                                   (version-major+minor version) "/"
1173                                   "mm-common-" version ".tar.xz"))
1174               (sha256
1175                (base32
1176                 "1x8yvjy0yg17qyhmqws8xh2k8dvzrhpwqz7j1cfwzalrb1i9c5g8"))))
1177     (build-system meson-build-system)
1178     (arguments
1179      `(#:phases
1180        (modify-phases %standard-phases
1181          (add-after 'unpack 'patch
1182            (lambda* (#:key inputs #:allow-other-keys)
1183              (substitute* "util/mm-common-prepare.in"
1184                (("ln") (search-input-file inputs "/bin/ln"))
1185                (("cp") (search-input-file inputs "/bin/cp"))
1186                (("sed") (search-input-file inputs "/bin/sed"))
1187                (("cat") (search-input-file inputs "/bin/cat"))))))))
1188     (native-inputs
1189      `(("coreutils" ,coreutils)
1190        ("gettext" ,gettext-minimal)
1191        ("pkg-config" ,pkg-config)
1192        ("sed" ,sed)))
1193     (inputs
1194      `(("python" ,python)))
1195     (synopsis "Module of GNOME C++ bindings")
1196     (description "The mm-common module provides the build infrastructure
1197 and utilities shared among the GNOME C++ binding libraries.  Release
1198 archives of mm-common include the Doxygen tag file for the GNU C++
1199 Library reference documentation.")
1200     (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1201     (license license:gpl2+)))
1202
1203 (define-public phodav
1204   (package
1205    (name "phodav")
1206    (version "2.5")
1207    (source (origin
1208             (method url-fetch)
1209             (uri (string-append "mirror://gnome/sources/" name "/"
1210                                 (version-major+minor version) "/"
1211                                 name "-" version ".tar.xz"))
1212             (sha256
1213              (base32
1214               "045rdzf8isqmzix12lkz6z073b5qvcqq6ad028advm5gf36skw3i"))))
1215    (build-system meson-build-system)
1216    (arguments
1217     `(#:phases
1218       (modify-phases %standard-phases
1219         (add-after 'unpack 'fix-udev-rules-directory
1220           (lambda* (#:key outputs #:allow-other-keys)
1221             (let* ((out   (assoc-ref outputs "out"))
1222                    (rules (string-append out "/lib/udev/rules.d")))
1223               (substitute* "data/meson.build"
1224                 (("udev\\.get_pkgconfig_variable\\('udevdir'\\)")
1225                  (format #f "'~a'" rules))))))
1226         (add-before 'check 'start-virtual-dir-server
1227           ;; The same server when started by tests/virtual-dir returns an
1228           ;; unexpected status (4 instead of 200) and fails a test.  It is
1229           ;; unclear why starting it manually here makes it pass.
1230           (lambda _
1231             (system "tests/virtual-dir-server &"))))))
1232    (native-inputs
1233     `(("docbook-xml" ,docbook-xml-4.3)
1234       ("gettext" ,gettext-minimal)
1235       ("glib:bin" ,glib "bin")
1236       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1237       ("gtk-doc" ,gtk-doc/stable)
1238       ("pkg-config" ,pkg-config)))
1239    (inputs
1240     `(("avahi" ,avahi)
1241       ("libgudev" ,libgudev)
1242       ("libsoup" ,libsoup)))
1243    (synopsis "WebDav server implementation using libsoup")
1244    (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1245 but it is generic enough to be reused in other projects,
1246 in particular in the GNOME desktop.")
1247    (home-page "https://wiki.gnome.org/phodav")
1248    (license license:lgpl2.1+)))
1249
1250 (define-public gnome-color-manager
1251   (package
1252    (name "gnome-color-manager")
1253    (version "3.36.0")
1254    (source (origin
1255             (method url-fetch)
1256             (uri (string-append "mirror://gnome/sources/" name "/"
1257                                 (version-major+minor version) "/"
1258                                 name "-" version ".tar.xz"))
1259             (sha256
1260              (base32
1261               "0fxdng74d8hwhfx1nwl1i4jx9h9f6c2hkyc12f01kqbjcimrxnwx"))))
1262    (build-system meson-build-system)
1263    (arguments
1264     `(#:glib-or-gtk? #t
1265       #:phases
1266        (modify-phases %standard-phases
1267         (add-before
1268          'check 'pre-check
1269          (lambda _
1270            ;; Tests require a running X server.
1271            (system "Xvfb :1 &")
1272            (setenv "DISPLAY" ":1")
1273            #t)))))
1274    (native-inputs
1275     `(("desktop-file-utils" ,desktop-file-utils)
1276       ("gettext" ,gettext-minimal)
1277       ("glib:bin" ,glib "bin")
1278       ("gtk+:bin" ,gtk+ "bin")
1279       ("itstool" ,itstool)
1280       ("pkg-config" ,pkg-config)
1281       ("xorg-server" ,xorg-server-for-tests)))
1282    (inputs
1283     `(("adwaita-icon-theme" ,adwaita-icon-theme)
1284       ("appstream-glib" ,appstream-glib)
1285       ("colord-gtk" ,colord-gtk)
1286       ("exiv2" ,exiv2)
1287       ("gnome-desktop" ,gnome-desktop)
1288       ("libcanberra" ,libcanberra)
1289       ("libexif" ,libexif)
1290       ("libtiff" ,libtiff)
1291       ("libxrandr" ,libxrandr)
1292       ("libxtst" ,libxtst)
1293       ("libxxf86vm" ,libxxf86vm)
1294       ("vte" ,vte)
1295       ("xorgproto" ,xorgproto)))
1296    (synopsis "Color profile manager for the GNOME desktop")
1297    (description "GNOME Color Manager is a session framework that makes
1298 it easy to manage, install and generate color profiles
1299 in the GNOME desktop.")
1300    (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
1301    (license license:gpl2+)))
1302
1303 (define-public gnome-online-miners
1304   (package
1305     (name "gnome-online-miners")
1306     (version "3.34.0")
1307     (source (origin
1308               (method url-fetch)
1309               (uri (string-append "mirror://gnome/sources/" name "/"
1310                                   (version-major+minor version) "/"
1311                                   name "-" version ".tar.xz"))
1312               (sha256
1313                (base32
1314                 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))
1315               (patches
1316                (search-patches
1317                 "gnome-online-miners-tracker-3.patch"))))
1318     (build-system glib-or-gtk-build-system)
1319     (arguments
1320      `(#:phases
1321        (modify-phases %standard-phases
1322          (add-after 'unpack 'fix-configure
1323            (lambda _
1324              (substitute* "configure.ac"
1325                (("AX_CHECK_ENABLE_DEBUG.*")
1326                 ""))))
1327          (add-after 'fix-configure 'autoreconf
1328            (lambda _
1329              (invoke "autoreconf" "-vif"))))))
1330     (native-inputs
1331      `(("autoconf" ,autoconf)
1332        ("automake" ,automake)
1333        ("gettext" ,gettext-minimal)
1334        ("glib:bin" ,glib "bin")
1335        ("gobject-introspection" ,gobject-introspection)
1336        ("gtk+:bin" ,gtk+ "bin")
1337        ("libtool" ,libtool)
1338        ("pkg-config" ,pkg-config)))
1339     (inputs
1340      `(("gnome-online-accounts" ,gnome-online-accounts)
1341        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1342        ("grilo" ,grilo)
1343        ("libgdata" ,libgdata)
1344        ("libgfbgraph" ,gfbgraph)
1345        ("libzapojit" ,libzapojit)
1346        ("rest" ,rest)
1347        ("tracker" ,tracker)))
1348     (synopsis "Web Crawlers for GNOME")
1349     (description "GNOME Online Miners provides a set of crawlers that
1350 go through your online content and index them locally in Tracker.
1351 It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1352     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
1353     (license license:gpl2+)))
1354
1355 (define-public gssdp
1356   (package
1357    (name "gssdp")
1358    (version "1.2.3")
1359    (source (origin
1360             (method url-fetch)
1361             (uri (string-append "mirror://gnome/sources/" name "/"
1362                                 (version-major+minor version) "/"
1363                                 name "-" version ".tar.xz"))
1364             (sha256
1365              (base32
1366               "1s57i8a8wnnxnsfl27cq4503dkdlzbrhry5zpg23sfqfffvdqqx2"))))
1367    (build-system meson-build-system)
1368    (native-inputs
1369     `(("gettext" ,gettext-minimal)
1370       ("glib:bin" ,glib "bin")
1371       ("gobject-introspection" ,gobject-introspection)
1372       ("gtk-doc" ,gtk-doc/stable)
1373       ("pkg-config" ,pkg-config)
1374       ("vala" ,vala)))
1375    (inputs
1376     `(("gtk+" ,gtk+)))
1377    (propagated-inputs
1378     ;; The .pc file "Requires" libsoup-2.4.
1379     `(("libsoup" ,libsoup-minimal-2)))
1380    (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1381 Protocol} for GNOME")
1382    (description "This package provides a library to handle resource discovery
1383 and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1384 a debugging tool, @command{gssdp-device-sniffer}.")
1385    (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1386    (license license:lgpl2.0+)))
1387
1388 (define-public gupnp
1389   (package
1390    (name "gupnp")
1391    (version "1.2.4")
1392    (source (origin
1393             (method url-fetch)
1394             (uri (string-append "mirror://gnome/sources/" name "/"
1395                                 (version-major+minor version) "/"
1396                                 name "-" version ".tar.xz"))
1397             (sha256
1398              (base32
1399               "1ld7mrpdv9cszmfzh7i19qx4li25j3fr7x1jp38l8phzlmz3187p"))))
1400    (build-system meson-build-system)
1401    (arguments
1402     `(#:phases
1403       (modify-phases %standard-phases
1404         (add-before 'check 'pre-check
1405           (lambda _
1406             ;; Tests require a writable HOME.
1407             (setenv "HOME" (getcwd)))))))
1408    (native-inputs
1409     `(("gettext" ,gettext-minimal)
1410       ("glib:bin" ,glib "bin")
1411       ("gobject-introspection" ,gobject-introspection)
1412       ("gtk-doc" ,gtk-doc/stable)
1413       ("pkg-config" ,pkg-config)
1414       ("vala" ,vala)))
1415    (inputs
1416     `(("gssdp" ,gssdp)
1417       ("gtk+" ,gtk+)
1418       ("libsoup" ,libsoup)))
1419    (propagated-inputs
1420     `(;; For ‘org.gnome.system.proxy’.
1421       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
1422    (synopsis "PnP API for GNOME")
1423    (description "This package provides GUPnP, an object-oriented framework
1424 for creating UPnP devices and control points, written in C using
1425 @code{GObject} and @code{libsoup}.")
1426    (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1427    (license license:lgpl2.0+)))
1428
1429 (define-public gupnp-dlna
1430   (package
1431    (name "gupnp-dlna")
1432    (version "0.10.5")
1433    (source (origin
1434             (method url-fetch)
1435             (uri (string-append "mirror://gnome/sources/" name "/"
1436                                 (version-major+minor version) "/"
1437                                 name "-" version ".tar.xz"))
1438             (sha256
1439              (base32
1440               "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1441    (build-system gnu-build-system)
1442    (native-inputs
1443     `(("gettext" ,gettext-minimal)
1444       ("glib:bin" ,glib "bin")
1445       ("gobject-introspection" ,gobject-introspection)
1446       ("gtk-doc" ,gtk-doc/stable)
1447       ("libxml" ,libxml2)
1448       ("pkg-config" ,pkg-config)
1449       ("vala" ,vala)))
1450    (inputs
1451     `(("gstreamer" ,gstreamer)
1452       ("gupnp" ,gupnp)))
1453    (propagated-inputs
1454     `(("gst-plugins-base" ,gst-plugins-base)
1455       ("gst-plugins-good" ,gst-plugins-good)))
1456    (synopsis "GUPnP DLNA for GNOME")
1457    (description "This package provides a small utility library to
1458 support DLNA-related tasks such as media profile guessing, transcoding to a
1459 given profile, etc.  DLNA is a subset of UPnP A/V.")
1460    (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1461    (license license:lgpl2.0+)))
1462
1463 (define-public gupnp-av
1464   (package
1465    (name "gupnp-av")
1466    (version "0.12.11")
1467    (source (origin
1468             (method url-fetch)
1469             (uri (string-append "mirror://gnome/sources/" name "/"
1470                                 (version-major+minor version) "/"
1471                                 name "-" version ".tar.xz"))
1472             (sha256
1473              (base32
1474               "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1475    (build-system gnu-build-system)
1476    (native-inputs
1477     `(("gettext" ,gettext-minimal)
1478       ("glib:bin" ,glib "bin")
1479       ("gobject-introspection" ,gobject-introspection)
1480       ("gtk-doc" ,gtk-doc/stable)
1481       ("libxml" ,libxml2)
1482       ("pkg-config" ,pkg-config)
1483       ("vala" ,vala)))
1484    (inputs
1485     `(("gtk+" ,gtk+)
1486       ("gupnp" ,gupnp)))
1487    (synopsis "GUPnP A/V for GNOME")
1488    (description "This package provides a small library for handling
1489 and implementation of UPnP A/V profiles.")
1490    (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1491    (license license:lgpl2.0+)))
1492
1493 (define-public libmediaart
1494   (package
1495     (name "libmediaart")
1496     (version "1.9.5")
1497     (source (origin
1498               (method url-fetch)
1499               (uri (string-append "mirror://gnome/sources/" name "/"
1500                                   (version-major+minor version) "/"
1501                                   name "-" version ".tar.xz"))
1502               (sha256
1503                (base32
1504                 "1mlw1qgj8nkd9ll6b6h54r1gfdy3zp8a8xqz7qfyfaj85jjgbph7"))))
1505     (build-system meson-build-system)
1506     (native-inputs
1507      `(("glib:bin" ,glib "bin")
1508        ("pkg-config" ,pkg-config)))
1509     (inputs
1510      `(("gdk-pixbuf" ,gdk-pixbuf)
1511        ("gettext" ,gettext-minimal)
1512        ("gobject-introspection" ,gobject-introspection)
1513        ("gtk+:doc" ,gtk+ "doc")
1514        ("vala" ,vala)))
1515     (synopsis "Media art library for the GNOME desktop")
1516     (description
1517      "The libmediaart library is the foundation for media art caching,
1518 extraction, and lookup for applications on the desktop.")
1519     (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1520     (license license:lgpl2.1+)))
1521
1522 (define-public gnome-initial-setup
1523   (package
1524    (name "gnome-initial-setup")
1525    (version "40.4")
1526    (source (origin
1527             (method url-fetch)
1528            (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1529                                 (version-major version)
1530                                 "/gnome-initial-setup-" version ".tar.xz"))
1531             (sha256
1532              (base32
1533               "06q3p4f8g9zr7a4mw3qr556mi0dg9qzrj8n46ybdz93fxs26aaj1"))))
1534    (build-system meson-build-system)
1535    (arguments
1536     `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
1537       #:configure-flags '(;; Enable camera support for user selfie.
1538                           "-Dcheese=auto"
1539                           "-Dsystemd=false")
1540       #:phases (modify-phases %standard-phases
1541                  (add-after 'unpack 'set-gkbd-file-name
1542                    (lambda* (#:key inputs #:allow-other-keys)
1543                      ;; Allow the "Preview" button in the keyboard layout
1544                      ;; selection dialog to display the layout.
1545                      (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
1546                        (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1547                          (("\"gkbd-keyboard-display")
1548                           (string-append "\"" libgnomekbd
1549                                          "/bin/gkbd-keyboard-display")))
1550                        #t))))))
1551    (native-inputs
1552     `(("gettext" ,gettext-minimal)
1553       ("glib:bin" ,glib "bin")
1554       ("gobject-introspection" ,gobject-introspection)
1555       ("gtk+:bin" ,gtk+ "bin")
1556       ("pkg-config" ,pkg-config)))
1557    (inputs
1558     `(("accountsservice" ,accountsservice)
1559       ;("adwaita-icon-theme" ,adwaita-icon-theme)
1560       ("elogind" ,elogind)
1561       ("gdm" ,gdm)
1562       ("geoclue" ,geoclue)
1563       ("gnome-desktop" ,gnome-desktop)
1564       ("gnome-online-accounts" ,gnome-online-accounts)
1565       ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1566       ("gstreamer" ,gstreamer)
1567       ("ibus" ,ibus)
1568       ("json-glib" ,json-glib)
1569       ("krb5" ,mit-krb5)
1570       ("libgweather" ,libgweather)
1571       ("libnma" ,libnma)
1572       ("libsecret" ,libsecret)
1573       ("network-manager" ,network-manager)
1574       ("packagekit" ,packagekit)
1575       ("polkit" ,polkit)
1576       ("pwquality" ,libpwquality)
1577       ("rest" ,rest)
1578       ("upower" ,upower)
1579       ("webkitgtk" ,webkitgtk-with-libsoup2)
1580       ("libgnomekbd" ,libgnomekbd)))
1581    (synopsis "Initial setup wizard for GNOME desktop")
1582    (description "This package provides a set-up wizard when a
1583 user logs into GNOME for the first time.  It typically provides a
1584 tour of all gnome components and allows the user to set them up.")
1585    (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1586    (license license:gpl2)))
1587
1588 (define-public gnome-user-share
1589   (package
1590    (name "gnome-user-share")
1591    (version "3.34.0")
1592    (source (origin
1593             (method url-fetch)
1594             (uri (string-append "mirror://gnome/sources/" name "/"
1595                                 (version-major+minor version) "/"
1596                                 name "-" version ".tar.xz"))
1597             (sha256
1598              (base32
1599               "04r9ck9v4i0d31grbli1d4slw2d6dcsfkpaybkwbzi7wnj72l30x"))))
1600    (build-system meson-build-system)
1601    (arguments
1602     `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
1603       #:glib-or-gtk? #t
1604       #:configure-flags
1605        `("-Dsystemduserunitdir=/tmp/empty"
1606          ;; Enable nautilus extension for file sharing.
1607          "-Dnautilus_extension=true")))
1608    (native-inputs
1609     `(("gettext" ,gettext-minimal)
1610       ("glib:bin" ,glib "bin")
1611       ("gobject-introspection" ,gobject-introspection)
1612       ("gtk+:bin" ,gtk+ "bin")
1613       ("pkg-config" ,pkg-config)
1614       ("yelp-tools" ,yelp-tools)))
1615    (inputs
1616     `(("glib" ,glib)
1617       ("gnome-bluetooth" ,gnome-bluetooth)
1618       ("gtk+" ,gtk+)
1619       ("libcanberra" ,libcanberra)
1620       ("libnotify" ,libnotify)
1621       ("nautilus" ,nautilus)))      ; For nautilus extension.
1622    (synopsis "File sharing for GNOME desktop")
1623    (description "GNOME User Share is a small package that binds together
1624 various free software projects to bring easy to use user-level file
1625 sharing to the masses.")
1626    (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
1627    (license license:gpl2+)))
1628
1629 (define-public sushi
1630   (package
1631     (name "sushi")
1632     (version "3.38.1")
1633     (source (origin
1634               (method url-fetch)
1635               (uri (string-append "mirror://gnome/sources/" name "/"
1636                                   (version-major+minor version) "/"
1637                                   name "-" version ".tar.xz"))
1638               (sha256
1639                (base32
1640                 "1sc8i0vrw6bn43rklnwp2fl1gq0r0xfd3bszcqxd0a2mh46d3rpk"))))
1641     (build-system meson-build-system)
1642     (arguments
1643      `(#:glib-or-gtk? #t
1644        #:phases
1645        (modify-phases %standard-phases
1646          (add-after 'glib-or-gtk-wrap 'wrap-typelib
1647            (lambda* (#:key outputs #:allow-other-keys)
1648              (let ((prog (string-append (assoc-ref outputs "out")
1649                                         "/bin/sushi")))
1650                ;; Put existing typelibs before sushi's deps, so as to
1651                ;; correctly infer gdk-pixbuf.
1652                (wrap-program prog
1653                  `("GI_TYPELIB_PATH" suffix
1654                    (,(getenv "GI_TYPELIB_PATH"))))))))))
1655     (native-inputs
1656      `(("glib:bin" ,glib "bin")
1657        ("gettext" ,gettext-minimal)
1658        ("gobject-introspection" ,gobject-introspection)
1659        ("pkg-config" ,pkg-config)))
1660     (inputs
1661      `(("clutter" ,clutter)
1662        ("clutter-gst" ,clutter-gst)
1663        ("clutter-gtk" ,clutter-gtk)
1664        ("evince" ,evince)                         ; For file previewing.
1665        ("freetype" ,freetype)
1666        ("gdk-pixbuf" ,gdk-pixbuf)
1667        ("gjs" ,gjs)
1668        ("gst-plugins-base" ,gst-plugins-base)
1669        ("gstreamer" ,gstreamer)
1670        ("gtksourceview" ,gtksourceview)
1671        ("harfbuzz" ,harfbuzz)
1672        ("libepoxy" ,libepoxy)
1673        ("libmusicbrainz" ,libmusicbrainz)
1674        ("libxml2" ,libxml2)
1675        ("neon" ,neon)
1676        ("webkitgtk" ,webkitgtk-with-libsoup2)))
1677     (synopsis "File previewer for the GNOME desktop")
1678     (description "Sushi is a DBus-activated service that allows applications
1679 to preview files on the GNOME desktop.")
1680     (home-page "https://gitlab.gnome.org/GNOME/sushi")
1681     (license license:gpl2+)))
1682
1683 (define-public rygel
1684   (package
1685     (name "rygel")
1686     (version "0.40.1")
1687     (source (origin
1688               (method url-fetch)
1689               (uri (string-append "mirror://gnome/sources/" name "/"
1690                                   (version-major+minor version) "/"
1691                                   name "-" version ".tar.xz"))
1692               (sha256
1693                (base32
1694                 "0bd3d2swa8lq47b9r04x8xwdr9nhjnrwqi6scygd134wb5vxfh22"))))
1695     (build-system meson-build-system)
1696     (arguments
1697      ;; Disable the tracker plugin.
1698      '(#:configure-flags
1699        (list "-Dplugins=external,gst-launch,lms,media-export,
1700 mpris,playbin,ruih,tracker3")))
1701     (native-inputs
1702      `(("gettext" ,gettext-minimal)
1703        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
1704        ("gobject-introspection" ,gobject-introspection)
1705        ("gtk-doc" ,gtk-doc/stable)
1706        ("pkg-config" ,pkg-config)
1707        ("vala" ,vala)
1708        ("docbook-xml" ,docbook-xml)
1709        ("dockbook-xsl" ,docbook-xsl)
1710        ("xsltproc" ,libxslt)))
1711     (inputs
1712      `(("gdk-pixbuf" ,gdk-pixbuf)
1713        ("gssdp" ,gssdp)
1714        ("gstreamer" ,gstreamer)
1715        ("gst-plugins-base" ,gst-plugins-base)
1716        ("gst-editing-services" ,gst-editing-services)
1717        ("gtk+" ,gtk+)
1718        ("gupnp" ,gupnp)
1719        ("gupnp-av" ,gupnp-av)
1720        ("gupnp-dlna" ,gupnp-dlna)
1721        ("json-glib" ,json-glib)
1722        ("libgee" ,libgee)
1723        ("libmediaart" ,libmediaart)
1724        ("libsoup" ,libsoup)
1725        ("libxslt" ,libxslt)
1726        ("libunistring" ,libunistring)
1727        ("tracker" ,tracker)))
1728     (synopsis "Share audio, video, and pictures with other devices")
1729     (description
1730      "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1731 MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1732 pictures, and to control a media player on your home network.
1733
1734 Rygel achieves interoperability with other devices by trying to conform to the
1735 strict requirements of DLNA and by converting media on-the-fly to formats that
1736 client devices can handle.")
1737     (home-page "https://wiki.gnome.org/Projects/Rygel")
1738     (license (list
1739               ;; For logo (data/icons/*).
1740               license:cc-by-sa3.0
1741               ;; For all others.
1742               license:lgpl2.1+))))
1743
1744 (define-public libnma
1745   (package
1746     (name "libnma")
1747     (version "1.8.28")
1748     (source (origin
1749               (method url-fetch)
1750               (uri (string-append "mirror://gnome/sources/" name "/"
1751                                   (version-major+minor version) "/"
1752                                   name "-" version ".tar.xz"))
1753               (sha256
1754                (base32
1755                 "09mp6k0hfam1vyyv9kcd8j4gb2r58i05ipx2nswb58ris599bxja"))))
1756     (build-system meson-build-system)
1757     (arguments
1758      `(#:phases
1759        (modify-phases %standard-phases
1760          (add-after 'unpack 'patch-docbook-xml
1761            (lambda* (#:key inputs #:allow-other-keys)
1762              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1763                                           "/xml/dtd/docbook")))
1764                (substitute* "libnma-docs.xml"
1765                  (("http://.*/docbookx\\.dtd")
1766                   (string-append xmldoc "/docbookx.dtd")))
1767                #t))))))
1768     (native-inputs
1769      `(("docbook-xml" ,docbook-xml-4.3)
1770        ("gettext" ,gettext-minimal)
1771        ("glib:bin" ,glib "bin")
1772        ("gtk-doc" ,gtk-doc/stable)
1773        ("gobject-introspection" ,gobject-introspection)
1774        ("pkg-config" ,pkg-config)
1775        ("vala" ,vala)))
1776     (inputs
1777      `(("gcr" ,gcr)
1778        ("gtk+" ,gtk+)
1779        ("iso-codes" ,iso-codes)
1780        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
1781        ("network-manager" ,network-manager)))
1782     (synopsis "Network Manager's applet library")
1783     (description "Libnma is an applet library for Network Manager.  It was
1784 initially part of network-manager-applet and has now become a separate
1785 project.")
1786     (home-page "https://gitlab.gnome.org/GNOME/libnma")
1787     ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1788     ;; "LGPL-2.1+".
1789     (license license:gpl2+)))
1790
1791 (define-public gnome-menus
1792   (package
1793     (name "gnome-menus")
1794     (version "3.36.0")
1795     (source (origin
1796               (method url-fetch)
1797               (uri (string-append "mirror://gnome/sources/gnome-menus/"
1798                                   (version-major+minor version) "/"
1799                                   name "-" version ".tar.xz"))
1800               (sha256
1801                (base32
1802                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
1803     (build-system gnu-build-system)
1804     (native-inputs
1805      `(("gettext" ,gettext-minimal)
1806        ("glib" ,glib)
1807        ("pkg-config" ,pkg-config)))
1808     (synopsis "Menu support for GNOME desktop")
1809     (description "GNOME Menus contains the libgnome-menu library, the layout
1810 configuration files for the GNOME menu, as well as a simple menu editor.")
1811     (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
1812     (license license:lgpl2.0+)))
1813
1814 (define-public deja-dup
1815   (package
1816     (name "deja-dup")
1817     (version "42.8")
1818     (source (origin
1819               (method url-fetch)
1820               (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1821                                   version "/deja-dup-" version ".tar.bz2"))
1822               (sha256
1823                (base32
1824                 "0d1jnlxpk52x56aqxz1g2xb4y4sm24h08p2di8mc1k8n8b52rpi4"))))
1825     (build-system meson-build-system)
1826     (arguments
1827      `(#:glib-or-gtk? #t
1828        #:configure-flags
1829        (list
1830         ;; Otherwise, the RUNPATH will lack the final path component.
1831         (string-append "-Dc_link_args=-Wl,-rpath="
1832                        (assoc-ref %outputs "out") "/lib/deja-dup"))
1833        #:phases
1834        (modify-phases %standard-phases
1835          (add-after 'unpack 'patch-paths
1836            (lambda* (#:key inputs #:allow-other-keys)
1837              (let ((python (assoc-ref inputs "python")))
1838                (substitute* '("libdeja/tools/duplicity/DuplicityInstance.vala"
1839                               "libdeja/tests/scripts/instance-error.test")
1840                  (("/bin/rm")
1841                   (which "rm")))
1842                (substitute* "libdeja/tests/runner.vala"
1843                  (("/bin/sh")
1844                   (which "sh")))
1845                (substitute* "libdeja/tests/scripts/instance-error.test"
1846                  (("`which python3`")
1847                   (string-append python "/bin/python3"))))))
1848          (add-after 'unpack 'patch-libgpg-error
1849            (lambda* (#:key inputs #:allow-other-keys)
1850              (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1851                (substitute* "meson.build"
1852                  (("(gpgerror_libs = ).*" _ var)
1853                   (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))
1854              #t))
1855          (add-after 'unpack 'skip-gtk-update-icon-cache
1856            ;; Don't create 'icon-theme.cache'.
1857            (lambda _
1858              (substitute* "data/post-install.sh"
1859                (("gtk-update-icon-cache") "true"))
1860              #t))
1861          (add-after 'install 'wrap-program
1862            (lambda* (#:key inputs outputs #:allow-other-keys)
1863              ;; Add duplicity to the search path
1864              (wrap-program (string-append (assoc-ref outputs "out")
1865                                           "/bin/deja-dup")
1866                `("PATH" ":" prefix
1867                  (,(string-append (assoc-ref inputs "duplicity") "/bin")))))))))
1868     (inputs
1869      `(("bash-minimal" ,bash-minimal)
1870        ("duplicity" ,duplicity)
1871        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1872        ("gtk+" ,gtk+)
1873        ("json-glib" ,json-glib)
1874        ("libgpg-error" ,libgpg-error)
1875        ("libnotify" ,libnotify)
1876        ("libsecret" ,libsecret)
1877        ("libsoup" ,libsoup-minimal-2)
1878        ("libhandy" ,libhandy)
1879        ("packagekit" ,packagekit)
1880        ("python" ,python)
1881        ("python-pygobject" ,python-pygobject)))
1882     (native-inputs
1883      `(("appstream-glib" ,appstream-glib)
1884        ("desktop-file-utils" ,desktop-file-utils)
1885        ("gettext" ,gettext-minimal)
1886        ("glib" ,glib "bin")             ; for glib-compile-schemas.
1887        ("gobject-introspection" ,gobject-introspection)
1888        ("itstool" ,itstool)
1889        ("pkg-config" ,pkg-config)
1890        ("vala" ,vala)))
1891     (home-page "https://wiki.gnome.org/Apps/DejaDup")
1892     (synopsis "Simple backup tool, for regular encrypted backups")
1893     (description
1894      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
1895 uses duplicity as the backend, which supports incremental backups and storage
1896 either on a local, or remote machine via a number of methods.")
1897     (license license:gpl3+)))
1898
1899 (define-public gnome-commander
1900   (package
1901     (name "gnome-commander")
1902     (version "1.12.2")
1903     (source
1904      (origin
1905        (method url-fetch)
1906        (uri (string-append "mirror://gnome/sources/" name "/"
1907                            (version-major+minor version)  "/"
1908                            "gnome-commander-" version ".tar.xz"))
1909        (sha256
1910         (base32 "0f7l2pkyh3r1qk4hhavl7387l3bq5my3snpdppiavcpnji28dpa5"))))
1911     (build-system glib-or-gtk-build-system)
1912     (native-inputs
1913      `(("desktop-file-utils" ,desktop-file-utils)
1914        ("gettext" ,gettext-minimal)
1915        ("glib:bin" ,glib "bin")
1916        ("gobject-introspection" ,gobject-introspection)
1917        ("googletest" ,googletest)
1918        ("intltool" ,intltool)
1919        ("itstool" ,itstool)
1920        ("libtool" ,libtool)
1921        ("pkg-config" ,pkg-config)))
1922     (inputs
1923      `(("gconf" ,gconf)
1924        ("gnome-vfs" ,gnome-vfs)
1925        ("gtk+" ,gtk+-2)
1926        ("libxml2" ,libxml2)))
1927     (home-page "https://gcmd.github.io/")
1928     (synopsis "Two-pane graphical file manager for the GNOME desktop")
1929     (description
1930      "GNOME Commander is a two-pane graphical file manager using GNOME
1931 libraries.  It aims to fulfill the demands of more advanced users who
1932 like to focus on file management, their work through special applications
1933 and running smart commands.")
1934     (license license:gpl2+)))
1935
1936 (define-public gnome-user-docs
1937   (package
1938    (name "gnome-user-docs")
1939    (version "40.5")
1940    (source
1941     (origin
1942       (method url-fetch)
1943       (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1944                           (version-major version)
1945                           "/gnome-user-docs-" version ".tar.xz"))
1946       (sha256
1947        (base32 "0p6ysdqlfc7vvzsrcanl9bhsc7666sv42xxzpbgsf5j55z3yrkpr"))))
1948    (build-system gnu-build-system)
1949    (native-inputs
1950     `(("gettext" ,gettext-minimal)
1951       ("itstool" ,itstool)
1952       ("pkg-config" ,pkg-config)
1953       ("xmllint" ,libxml2)))
1954    (synopsis "User documentation for the GNOME desktop")
1955    (description
1956     "The GNOME User Documentation explains how to use the GNOME desktop and its
1957 components.  It covers usage and setup of the core GNOME programs by end-users
1958 and system administrators.")
1959    (home-page "https://live.gnome.org/DocumentationProject")
1960    (license license:cc-by3.0)))
1961
1962 (define-public dia
1963   ;; This version from GNOME's repository includes fixes for compiling with
1964   ;; recent versions of the build tools.  The latest activity on the
1965   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
1966   ;; fixes since.
1967   (let ((commit "3cf7ec4c2e5bca139a7f3e17f9fc9009c237fcc5")
1968         (revision "2"))
1969     (package
1970       (name "dia")
1971       (version (git-version "0.97.3" revision commit))
1972       (source (origin
1973                 (method git-fetch)
1974                 (uri (git-reference
1975                       (url "https://gitlab.gnome.org/GNOME/dia.git/")
1976                       (commit commit)))
1977                 (file-name (git-file-name name version))
1978                 (sha256
1979                  (base32
1980                   "04r8dspa6nmicrifhi3sh46hqvyy88hzq37xx99q3q1mwsrpmwy8"))))
1981       (build-system meson-build-system)
1982       (inputs
1983        `(("graphene" ,graphene)
1984          ("gtk+" ,gtk+-2)
1985          ("libxml2" ,libxml2)
1986          ("libxslt" ,libxslt)
1987          ("poppler" ,poppler)
1988          ;; Without Python 2, build fails: plug-ins/python/meson.build:4:0:
1989          ;; ERROR: Unknown method "dependency" in object.
1990          ("python-2" ,python-2)))
1991       (native-inputs
1992        `(("appstream-glib" ,appstream-glib)
1993          ("docbook-xsl" ,docbook-xsl)
1994          ("glib" ,glib "bin")
1995          ("intltool" ,intltool)
1996          ("pkg-config" ,pkg-config)))
1997       (home-page "https://wiki.gnome.org/Apps/Dia")
1998       (synopsis "Diagram creation for GNOME")
1999       (description "Dia can be used to draw different types of diagrams, and
2000 includes support for UML static structure diagrams (class diagrams), entity
2001 relationship modeling, and network diagrams.  The program supports various file
2002 formats like PNG, SVG, PDF and EPS.")
2003       (license license:gpl2+))))
2004
2005 (define-public libgdata
2006   (package
2007     (name "libgdata")
2008     (version "0.18.1")
2009     (source (origin
2010               (method url-fetch)
2011               (uri (string-append "mirror://gnome/sources/" name "/"
2012                                   (version-major+minor version)  "/"
2013                                   name "-" version ".tar.xz"))
2014               (sha256
2015                (base32
2016                 "1iq4d1qy0vkmy29xvr13dgz4pxvn5v3yi2swryld0ajinvp951fx"))))
2017     (build-system meson-build-system)
2018     (arguments
2019      '(#:phases
2020        (modify-phases %standard-phases
2021          (add-before 'check 'set-home-for-tests
2022            (lambda _
2023              (setenv "HOME" "/tmp"))))))
2024     (native-inputs
2025      `(("glib:bin" ,glib "bin")
2026        ("gobject-introspection" ,gobject-introspection)
2027        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2028        ("intltool" ,intltool)
2029        ("pkg-config" ,pkg-config)
2030        ("uhttpmock" ,uhttpmock)))
2031     (inputs
2032      `(("cyrus-sasl" ,cyrus-sasl)
2033        ("glib-networking" ,glib-networking)
2034        ("vala" ,vala)))
2035     (propagated-inputs
2036      `(("gcr" ,gcr)
2037        ("glib" ,glib)
2038        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2039        ("json-glib" ,json-glib)
2040        ("liboauth" ,liboauth)
2041        ("libsoup" ,libsoup-minimal-2)
2042        ("libxml2" ,libxml2)))
2043     (home-page "https://wiki.gnome.org/Projects/libgdata")
2044     (synopsis "Library for accessing online service APIs")
2045     (description
2046      "libgdata is a GLib-based library for accessing online service APIs using
2047 the GData protocol — most notably, Google's services.  It provides APIs to
2048 access the common Google services, and has full asynchronous support.")
2049     (license license:lgpl2.1+)))
2050
2051 (define-public libgxps
2052   (package
2053     (name "libgxps")
2054     (version "0.3.2")
2055     (source (origin
2056               (method url-fetch)
2057               (uri (string-append "mirror://gnome/sources/" name "/"
2058                                   (version-major+minor version) "/"
2059                                   name "-" version ".tar.xz"))
2060               (sha256
2061                (base32
2062                 "07156nj7yrp3h9zyzx6mjwxwmfijialb4gi5d6dwyp53arr8c9vd"))))
2063     (build-system meson-build-system)
2064     (native-inputs
2065      `(("gobject-introspection" ,gobject-introspection)
2066        ("pkg-config" ,pkg-config)))
2067     (inputs
2068      `(("gtk+" ,gtk+)
2069        ("libjpeg" ,libjpeg-turbo)
2070        ("lcms" ,lcms)
2071        ("libtiff" ,libtiff)))
2072     (propagated-inputs
2073      ;; In Requires of libgxps.pc.
2074      `(("cairo" ,cairo)
2075        ("glib" ,glib)
2076        ("libarchive" ,libarchive)))
2077     (home-page "https://wiki.gnome.org/Projects/libgxps")
2078     (synopsis "GObject-based library for handling and rendering XPS documents")
2079     (description
2080      "libgxps is a GObject-based library for handling and rendering XPS
2081 documents.  This package also contains binaries that can convert XPS documents
2082 to other formats.")
2083     (license license:lgpl2.1+)))
2084
2085 (define-public gnome-characters
2086   (package
2087     (name "gnome-characters")
2088     (version "40.0")
2089     (source
2090      (origin
2091        (method url-fetch)
2092        (uri (string-append "mirror://gnome/sources/"
2093                            "gnome-characters/" (version-major version)
2094                            "/gnome-characters-" version ".tar.xz"))
2095        (sha256
2096         (base32
2097          "0z2xa4w921bzpzj6gv88pvbrijcnnwni6jxynwz0ybaravyzaqha"))))
2098     (build-system meson-build-system)
2099     (arguments
2100      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
2101        #:glib-or-gtk? #t
2102        #:phases (modify-phases %standard-phases
2103                   (add-after 'install 'wrap
2104                     (lambda* (#:key outputs #:allow-other-keys)
2105                       ;; GNOME Characters needs Typelib files from GTK and
2106                       ;; gnome-desktop.
2107                       (wrap-program (string-append (assoc-ref outputs "out")
2108                                                    "/bin/gnome-characters")
2109                         `("GI_TYPELIB_PATH" ":" prefix
2110                           (,(getenv "GI_TYPELIB_PATH")))))))))
2111     (native-inputs
2112      `(("gettext" ,gettext-minimal)
2113        ("glib:bin" ,glib "bin")
2114        ("gtk+:bin" ,gtk+ "bin")
2115        ("pkg-config" ,pkg-config)
2116        ("python" ,python-minimal)))
2117     (inputs
2118      `(("gjs" ,gjs)
2119        ("gtk+" ,gtk+)
2120        ("libhandy" ,libhandy)
2121        ("libunistring" ,libunistring)
2122        ("gnome-desktop" ,gnome-desktop)))
2123     (home-page "https://wiki.gnome.org/Apps/CharacterMap")
2124     (synopsis "Find and insert unusual characters")
2125     (description "Characters is a simple utility application to find
2126 and insert unusual characters.  It allows you to quickly find the
2127 character you are looking for by searching for keywords.")
2128     (license license:bsd-3)))
2129
2130 (define-public gnome-common
2131   (package
2132     (name "gnome-common")
2133     (version "3.18.0")
2134     (source
2135      (origin
2136        (method url-fetch)
2137        (uri (string-append "mirror://gnome/sources/" name "/"
2138                            (version-major+minor version)  "/"
2139                            name "-" version ".tar.xz"))
2140        (sha256
2141         (base32
2142          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
2143     (build-system gnu-build-system)
2144     (home-page "https://www.gnome.org/")
2145     (synopsis "Bootstrap GNOME modules built from Git")
2146     (description "gnome-common contains various files needed to bootstrap
2147 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
2148 can be used to configure a source directory checked out from Git and some
2149 commonly used macros.")
2150     (license license:gpl2+)))
2151
2152 (define-public gnome-contacts
2153   (package
2154     (name "gnome-contacts")
2155     (version "40.0")
2156     (source (origin
2157               (method url-fetch)
2158               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2159                                   (version-major version) "/"
2160                                   name "-" version ".tar.xz"))
2161               (sha256
2162                (base32
2163                 "0w2g5xhw65adzvwzakrj5kaim4sw1w7s8qqwm3nm6inq50znzpn9"))))
2164     (build-system meson-build-system)
2165     (arguments
2166      `(#:configure-flags '("-Dcheese=disabled")
2167        #:phases
2168        (modify-phases %standard-phases
2169          (add-after 'unpack 'generate-vapis
2170            (lambda* (#:key inputs #:allow-other-keys)
2171              ;; To generate goa's missing .vapi file
2172              (define goa
2173                (assoc-ref inputs "gnome-online-accounts:lib"))
2174
2175              (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
2176                      "--library=goa-1.0"
2177                      (string-append goa "/share/gir-1.0/Goa-1.0.gir"))))
2178          (add-after 'unpack 'skip-gtk-update-icon-cache
2179            ;; Don't create 'icon-theme.cache'.
2180            (lambda _
2181              (substitute* "build-aux/meson_post_install.py"
2182                (("gtk-update-icon-cache") "true")))))))
2183     (native-inputs
2184      `(("docbook-xml" ,docbook-xml-4.2)
2185        ("docbook-xsl" ,docbook-xsl)
2186        ("glib:bin" ,glib "bin")
2187        ("pkg-config" ,pkg-config)))
2188     (inputs
2189      `(("docbook-xml" ,docbook-xml)
2190        ("dockbook-xsl" ,docbook-xsl)
2191        ("evolution-data-server" ,evolution-data-server)
2192        ("gettext" ,gettext-minimal)
2193        ("gnome-desktop" ,gnome-desktop)
2194        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2195        ("gobject-introspection" ,gobject-introspection)
2196        ("gst-plugins-base" ,gst-plugins-base)
2197        ("gtk+" ,gtk+)
2198        ("libgee" ,libgee)
2199        ("libhandy" ,libhandy)
2200        ("libxslt" ,libxslt)
2201        ("telepathy-glib" ,telepathy-glib)
2202        ("vala" ,vala)))
2203     (propagated-inputs
2204      `(("folks" ,folks)
2205        ("telepathy-mission-control" ,telepathy-mission-control)))
2206     (synopsis "GNOME's integrated address book")
2207     (description
2208      "GNOME Contacts organizes your contact information from online and
2209 offline sources, providing a centralized place for managing your contacts.")
2210     (home-page "https://wiki.gnome.org/Apps/Contacts")
2211     (license license:gpl2+)))
2212
2213 (define-public gnome-desktop
2214   (package
2215     (name "gnome-desktop")
2216     (version "40.4")
2217     (source
2218      (origin
2219       (method url-fetch)
2220       (uri (string-append "mirror://gnome/sources/" name "/"
2221                           (version-major version)  "/"
2222                           name "-" version ".tar.xz"))
2223       (sha256
2224        (base32
2225         "1vs5knn2yj6a449p9bn5w5407i1yvxfxg8xv844qgl70hpsrdbl8"))))
2226     (build-system meson-build-system)
2227     (arguments
2228      '(#:phases
2229        (modify-phases %standard-phases
2230          (add-before 'configure 'patch-path
2231            (lambda* (#:key inputs #:allow-other-keys)
2232              (let ((libc   (assoc-ref inputs "libc")))
2233                (substitute* "libgnome-desktop/gnome-languages.c"
2234                  (("\"locale\"")
2235                   (string-append "\"" libc "/bin/locale\"")))
2236                #t)))
2237          (add-before 'configure 'patch-bubblewrap
2238            (lambda* (#:key inputs #:allow-other-keys)
2239              (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2240                (("\"bwrap\",")
2241                 (string-append "\"" (which "bwrap") "\","))
2242                (("\"--ro-bind\", \"/usr\", \"/usr\",")
2243                 (string-append "\"--ro-bind\", \""
2244                                (%store-directory)
2245                                "\", \""
2246                                (%store-directory)
2247                                "\","))
2248                (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",") ""))
2249              #t))
2250          (add-before 'check 'pre-check
2251            (lambda* (#:key inputs #:allow-other-keys)
2252              ;; Tests require a running X server and locales.
2253              (system "Xvfb :1 &")
2254              (setenv "DISPLAY" ":1")
2255              (setenv "XDG_CACHE_HOME" "/tmp/xdg-cache")
2256              (setenv "XDG_CONFIG_HOME" "/tmp")
2257              (setenv "GUIX_LOCPATH"
2258                      (search-input-directory inputs
2259                                              "lib/locale")))))))
2260     (native-inputs
2261      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
2262        ("glibc-locales" ,glibc-locales) ; for tests
2263        ("gobject-introspection" ,gobject-introspection)
2264        ("itstool" ,itstool)
2265        ("intltool" ,intltool)
2266        ("pkg-config" ,pkg-config)
2267        ("xmllint" ,libxml2)
2268        ("xorg-server" ,xorg-server-for-tests)))
2269     (propagated-inputs
2270      ;; Required by gnome-desktop-3.0.pc.
2271      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2272        ("gtk+" ,gtk+)
2273        ("iso-codes" ,iso-codes)
2274        ("libseccomp" ,libseccomp)
2275        ("libx11" ,libx11)
2276        ("xkeyboard-config" ,xkeyboard-config)))
2277     (inputs
2278      `(("gdk-pixbuf" ,gdk-pixbuf)
2279        ("glib" ,glib)
2280        ("bubblewrap" ,bubblewrap)
2281        ("libxext" ,libxext)
2282        ("libxkbfile" ,libxkbfile)
2283        ("libxrandr" ,libxrandr)))
2284     (home-page "https://www.gnome.org/")
2285     (synopsis
2286      "Libgnome-desktop, gnome-about, and desktop-wide documents")
2287     (description
2288      "The libgnome-desktop library provides API shared by several applications
2289 on the desktop, but that cannot live in the platform for various reasons.
2290 There is no API or ABI guarantee, although we are doing our best to provide
2291 stability.  Documentation for the API is available with gtk-doc.
2292
2293 The gnome-about program helps find which version of GNOME is installed.")
2294     ; Some bits under the LGPL.
2295     (license license:gpl2+)))
2296
2297 (define-public gnome-doc-utils
2298   (package
2299     (name "gnome-doc-utils")
2300     (version "0.20.10")
2301     (source
2302      (origin
2303       (method url-fetch)
2304       (uri (string-append "mirror://gnome/sources/" name "/"
2305                           (version-major+minor version)  "/"
2306                           name "-" version ".tar.xz"))
2307       (sha256
2308        (base32
2309         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
2310     (build-system gnu-build-system)
2311     (native-inputs
2312      `(("intltool" ,intltool)
2313        ("docbook-xml" ,docbook-xml-4.4)
2314        ("python2-libxml2" ,python2-libxml2)
2315        ("libxml2" ,libxml2)
2316        ("libxslt" ,libxslt)
2317        ("pkg-config" ,pkg-config)
2318        ("python-2" ,python-2)))
2319     (home-page "https://wiki.gnome.org/GnomeDocUtils")
2320     (synopsis
2321      "Documentation utilities for the Gnome project")
2322     (description
2323      "Gnome-doc-utils is a collection of documentation utilities for the
2324 Gnome project.  It includes xml2po tool which makes it easier to translate
2325 and keep up to date translations of documentation.")
2326     (license license:gpl2+))) ; xslt under lgpl
2327
2328 (define-public gnome-disk-utility
2329   (package
2330     (name "gnome-disk-utility")
2331     (version "40.2")
2332     (source (origin
2333               (method url-fetch)
2334               (uri (string-append "mirror://gnome/sources/" name "/"
2335                                   (version-major version) "/"
2336                                   name "-" version ".tar.xz"))
2337               (sha256
2338                (base32
2339                 "1rr1ypb89p51b6428yqvczmpmylwjfnhnkgx78hzm3vxm3m15lff"))))
2340     (build-system meson-build-system)
2341     (arguments
2342      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
2343        #:configure-flags '("-Dlogind=libelogind")
2344        #:phases
2345        (modify-phases %standard-phases
2346          (add-after 'unpack 'skip-gtk-update-icon-cache
2347            ;; Don't create 'icon-theme.cache'.
2348            (lambda _
2349              (substitute* "meson_post_install.py"
2350                (("gtk-update-icon-cache") "true"))
2351              #t)))))
2352     (native-inputs
2353      `(("glib:bin" ,glib "bin")
2354        ("intltool" ,intltool)
2355        ("pkg-config" ,pkg-config)
2356        ("docbook-xml" ,docbook-xml)
2357        ("docbook-xsl" ,docbook-xsl)
2358        ("libxml2" ,libxml2)
2359        ("libxslt" ,libxslt)))
2360     (inputs
2361      `(("elogind" ,elogind)
2362        ("glib" ,glib)
2363        ("appstream-glib" ,appstream-glib)
2364        ("gnome-settings-daemon" ,gnome-settings-daemon)
2365        ("gtk+" ,gtk+)
2366        ("libcanberra" ,libcanberra)
2367        ("libdvdread" ,libdvdread)
2368        ("libhandy" ,libhandy)
2369        ("libnotify" ,libnotify)
2370        ("libpwquality" ,libpwquality)
2371        ("libsecret" ,libsecret)
2372        ("udisks" ,udisks)))
2373     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2374     (synopsis "Disk management utility for GNOME")
2375     (description "Disk management utility for GNOME.")
2376     (license license:gpl2+)))
2377
2378 (define-public gnome-font-viewer
2379   (package
2380     (name "gnome-font-viewer")
2381     (version "40.0")
2382     (source (origin
2383               (method url-fetch)
2384               (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2385                                   (version-major version)
2386                                   "/gnome-font-viewer-" version ".tar.xz"))
2387               (sha256
2388                (base32
2389                 "0hpyi0sz3gcqqs9lkwyk8b6hr39m3n27432x98kxr436jj37dk6j"))))
2390     (build-system meson-build-system)
2391     (arguments
2392      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
2393        #:phases
2394        (modify-phases %standard-phases
2395          (add-after 'unpack 'patch-post-install-script
2396            (lambda _
2397              (substitute* "meson-postinstall.sh"
2398                (("update-desktop-database") (which "true")))
2399              #t))
2400          (add-after 'install 'patch-thumbnailer
2401            (lambda* (#:key outputs #:allow-other-keys)
2402              (let ((out (assoc-ref outputs "out")))
2403                (substitute*
2404                    (string-append
2405                     out
2406                     "/share/thumbnailers/gnome-font-viewer.thumbnailer")
2407                  (("gnome-thumbnail-font")
2408                   (string-append out "/bin/gnome-thumbnail-font"))))
2409              #t)))))
2410     (native-inputs
2411      `(("gettext" ,gettext-minimal)
2412        ("glib:bin" ,glib "bin")
2413        ("pkg-config" ,pkg-config)))
2414     (inputs
2415      `(("glib" ,glib)
2416        ("gnome-desktop" ,gnome-desktop)
2417        ("gtk+" ,gtk+)
2418        ("libhandy" ,libhandy)
2419        ("libxml2" ,libxml2)))
2420     (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2421     (synopsis "GNOME Fonts")
2422     (description "Application to show you the fonts installed on your computer
2423 for your use as thumbnails.  Selecting any thumbnails shows the full view of how
2424 the font would look under various sizes.")
2425     (license license:gpl2+)))
2426
2427 (define-public gcr
2428   (package
2429     (name "gcr")
2430     (version "3.41.0")
2431     (source (origin
2432               (method url-fetch)
2433               (uri (string-append "mirror://gnome/sources/" name "/"
2434                                   (version-major+minor version)  "/"
2435                                   name "-" version ".tar.xz"))
2436               (sha256
2437                (base32
2438                 "00fsf82ycac8qi0kkiq759p6jrn63pyz4ksn4wnq7m4ax94zq289"))))
2439     (build-system meson-build-system)
2440     (arguments
2441      '(#:phases
2442        (modify-phases %standard-phases
2443          ;; These fail because /var/lib/dbus/machine-id is not present in the
2444          ;; build environment.
2445          (add-after 'unpack 'disable-failing-tests
2446            (lambda _
2447              (substitute* "gcr/meson.build"
2448                (("[[:blank:]]+'system-prompt',")
2449                 ""))
2450              #t))
2451          (add-after 'unpack 'skip-gtk-update-icon-cache
2452            ;; Don't create 'icon-theme.cache'.
2453            (lambda _
2454              (substitute* "meson_post_install.py"
2455                (("gtk-update-icon-cache") "true"))
2456              #t))
2457          (add-after 'unpack 'fix-systemd-detection
2458            (lambda _
2459              (substitute* "gcr/gcr-ssh-agent-service.c"
2460                (("#ifdef WITH_SYSTEMD")
2461                 "#if (WITH_SYSTEMD)"))))
2462          (add-before 'check 'pre-check
2463            (lambda _
2464              ;; Some tests expect to write to $HOME.
2465              (setenv "HOME" "/tmp")
2466              #t)))))
2467     (inputs
2468      `(("dbus" ,dbus)
2469        ("gnupg" ,gnupg)                ;called as a child process during tests
2470        ("libgcrypt" ,libgcrypt)
2471        ("libsecret" ,libsecret)))
2472     (native-inputs
2473      `(("python" ,python-wrapper)       ;for tests
2474        ("openssh" ,openssh)             ;for tests
2475        ("pkg-config" ,pkg-config)
2476        ("gettext" ,gettext-minimal)
2477        ("autoconf" ,autoconf)
2478        ("automake" ,automake)
2479        ("libtool" ,libtool)
2480        ("gtk-doc" ,gtk-doc)
2481        ("glib" ,glib "bin")
2482        ("gobject-introspection" ,gobject-introspection)
2483        ("libxml2" ,libxml2)
2484        ("vala" ,vala)
2485        ("xsltproc" ,libxslt)))
2486     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2487     (propagated-inputs
2488      `(("p11-kit" ,p11-kit)
2489        ("glib" ,glib)
2490        ("gtk+" ,gtk+)))
2491     (home-page "https://www.gnome.org")
2492     (synopsis "Libraries for displaying certificates and accessing key stores")
2493     (description
2494      "The GCR package contains libraries used for displaying certificates and
2495 accessing key stores.  It also provides the viewer for crypto files on the
2496 GNOME Desktop.")
2497     (license license:lgpl2.1+)))
2498
2499 (define-public gdl
2500   (package
2501     (name "gdl")
2502     (version "3.34.0")
2503     (source (origin
2504               (method git-fetch)
2505               (uri (git-reference
2506                     (url "https://gitlab.gnome.org/GNOME/gdl.git")
2507                     (commit (string-append "GDL_" (string-map (match-lambda
2508                                                                 (#\. #\_)
2509                                                                 (c c))
2510                                                               version)))))
2511               (file-name (git-file-name name version))
2512               (sha256
2513                (base32
2514                 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2515     (build-system gnu-build-system)
2516     (native-inputs
2517      `(("autoconf" ,autoconf)
2518        ("automake" ,automake)
2519        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
2520        ("gnome-common" ,gnome-common)
2521        ("gtk-doc" ,gtk-doc/stable)
2522        ("intltool" ,intltool)
2523        ("pkg-config" ,pkg-config)
2524        ("libtool" ,libtool)
2525        ("which" ,which)))
2526     (inputs
2527      `(("libxml2" ,libxml2)))
2528     (propagated-inputs
2529      ;; The gdl-3.0.pc file 'Requires' GTK+.
2530      `(("gtk+" ,gtk+)))
2531     (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2532     (synopsis "GNOME docking library")
2533     (description "This library provides docking features for gtk+.")
2534     (license license:lgpl2.1+)))
2535
2536 ;;; A minimal variant used to break a cycle with Inkscape.
2537 (define-public gdl-minimal
2538   (package/inherit gdl
2539     (name "gdl-minimal")
2540     (arguments
2541      '(#:phases
2542        (modify-phases %standard-phases
2543          (add-after 'unpack 'disable-doc-generation
2544            ;; XXX: There is no easy way to disable generating the
2545            ;; documentation.
2546            (lambda _
2547              (substitute* "configure.in"
2548                (("GTK_DOC_CHECK.*") "")
2549                (("docs/.*") ""))
2550              (substitute* "Makefile.am"
2551                (("gdl docs po") "gdl po"))
2552              #t)))))
2553     (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2554
2555 (define-public libgnome-keyring
2556   (package
2557     (name "libgnome-keyring")
2558     (version "3.12.0")
2559     (source (origin
2560              (method url-fetch)
2561              (uri (string-append "mirror://gnome/sources/" name "/"
2562                                  (version-major+minor version)  "/"
2563                                  name "-" version ".tar.xz"))
2564              (sha256
2565               (base32
2566                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
2567     (build-system gnu-build-system)
2568     (inputs
2569      `(("libgcrypt" ,libgcrypt)
2570        ("dbus" ,dbus)))
2571     (native-inputs
2572      `(("pkg-config" ,pkg-config)
2573        ("glib" ,glib "bin")
2574        ("intltool" ,intltool)))
2575     (propagated-inputs
2576      ;; Referred to in .h files and .pc.
2577      `(("glib" ,glib)))
2578     (home-page "https://www.gnome.org")
2579     (synopsis "Accessing passwords from the GNOME keyring")
2580     (description
2581      "Client library to access passwords from the GNOME keyring.")
2582
2583     ;; Though a couple of files are LGPLv2.1+.
2584     (license license:lgpl2.0+)))
2585
2586 (define-public gnome-keyring
2587   (package
2588     (name "gnome-keyring")
2589     (version "40.0")
2590     (source (origin
2591              (method url-fetch)
2592              (uri (string-append "mirror://gnome/sources/" name "/"
2593                                  (version-major version)  "/"
2594                                  name "-" version ".tar.xz"))
2595              (sha256
2596               (base32
2597                "0cdrlcw814zayhvlaxqs1sm9bqlfijlp22dzzd0g5zg2isq4vlm3"))))
2598     (build-system gnu-build-system)
2599     (arguments
2600      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
2601                    ;not exist
2602        #:configure-flags
2603        (list
2604         (string-append "--with-pkcs11-config="
2605                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
2606         (string-append "--with-pkcs11-modules="
2607                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
2608        #:phases
2609        (modify-phases %standard-phases
2610          (add-after 'unpack 'fix-/bin/sh-reference
2611            (lambda _
2612              (substitute* "po/Makefile.in.in"
2613                (("/bin/sh") (which "sh")))
2614              #t))
2615          (add-after 'unpack 'fix-docbook
2616            (lambda* (#:key inputs #:allow-other-keys)
2617              (substitute* "docs/Makefile.am"
2618                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2619                 (string-append (assoc-ref inputs "docbook-xsl")
2620                                "/xml/xsl/docbook-xsl-"
2621                                ,(package-version docbook-xsl)
2622                                "/manpages/docbook.xsl")))
2623              (setenv "XML_CATALOG_FILES"
2624                      (string-append (assoc-ref inputs "docbook-xml")
2625                                     "/xml/dtd/docbook/catalog.xml"))
2626              ;; Rerun the whole thing to avoid version mismatch ("This is
2627              ;; Automake 1.15.1, but the definition used by this
2628              ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
2629              ;; use 'autoreconf' because it insists on running 'libtoolize'.
2630              (invoke "autoconf")
2631              (invoke "aclocal")
2632              (invoke "automake" "-ac"))))))
2633     (inputs
2634      `(("libgcrypt" ,libgcrypt)
2635        ("linux-pam" ,linux-pam)
2636        ("openssh" ,openssh)
2637        ("dbus" ,dbus)
2638        ("gcr" ,gcr)))
2639     (native-inputs
2640      `(("pkg-config" ,pkg-config)
2641        ("glib" ,glib "bin")
2642        ("glib" ,glib) ; for m4 macros
2643        ("python" ,python-2) ;for tests
2644        ("intltool" ,intltool)
2645        ("autoconf" ,autoconf)
2646        ("automake" ,automake)
2647        ("libxslt" ,libxslt) ;for documentation
2648        ("docbook-xml" ,docbook-xml-4.3)
2649        ("docbook-xsl" ,docbook-xsl)))
2650     (propagated-inputs
2651      `(("gcr" ,gcr)))
2652     (home-page "https://www.gnome.org")
2653     (synopsis "Daemon to store passwords and encryption keys")
2654     (description
2655      "gnome-keyring is a program that keeps passwords and other secrets for
2656 users.  It is run as a daemon in the session, similar to ssh-agent, and other
2657 applications locate it via an environment variable or D-Bus.
2658
2659 The program can manage several keyrings, each with its own master password,
2660 and there is also a session keyring which is never stored to disk, but
2661 forgotten when the session ends.")
2662     (license license:lgpl2.1+)))
2663
2664 (define-public evince
2665   (package
2666     (name "evince")
2667     (version "40.2")
2668     (source (origin
2669               (method url-fetch)
2670               (uri "mirror://gnome/sources/evince/40/evince-40.2.tar.xz")
2671               (sha256
2672                (base32
2673                 "0xrwls1bhvny8vvd7mfjy9p26zjch0pd6x6j9jn9g2ka6xwyrxqg"))))
2674     (build-system meson-build-system)
2675     (arguments
2676      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
2677        #:glib-or-gtk? #t
2678        #:build-type "release"
2679        #:configure-flags
2680        '("-Dnautilus=false"
2681          "-Dintrospection=true"
2682          ;; XXX: Generating the documentation fails because the
2683          ;; libevdocument.devhelp document cannot be created. This seems to be
2684          ;; caused by a problem during the XSL transformation.
2685          "-Dgtk_doc=false")
2686        #:phases
2687        (modify-phases %standard-phases
2688          (add-after 'unpack 'skip-gtk-update-icon-cache
2689            ;; Don't create 'icon-theme.cache'.
2690            (lambda _
2691              (substitute* "meson_post_install.py"
2692                (("gtk-update-icon-cache") "true"))
2693              #t)))))
2694     (inputs
2695      `(("libarchive" ,libarchive)
2696        ("libgxps" ,libgxps)
2697        ("libspectre" ,libspectre)
2698        ("djvulibre" ,djvulibre)
2699        ("ghostscript" ,ghostscript)
2700        ("poppler" ,poppler)
2701        ("libtiff" ,libtiff)
2702        ("texlive-libkpathsea" ,texlive-libkpathsea) ; for DVI support
2703        ("gnome-desktop" ,gnome-desktop)
2704        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2705        ("gspell" ,gspell)
2706        ("libgnome-keyring" ,libgnome-keyring)
2707        ("adwaita-icon-theme" ,adwaita-icon-theme)
2708        ("gdk-pixbuf" ,gdk-pixbuf)
2709        ("atk" ,atk)
2710        ("pango" ,pango)
2711        ("gtk+" ,gtk+)
2712        ("glib" ,glib)
2713        ("libxml2" ,libxml2)
2714        ("libsm" ,libsm)
2715        ("libice" ,libice)
2716        ("shared-mime-info" ,shared-mime-info)
2717        ("dconf" ,dconf)
2718        ("libcanberra" ,libcanberra)
2719        ("libsecret" ,libsecret)
2720        ("libhandy" ,libhandy)))
2721     (native-inputs
2722      `(("itstool" ,itstool)
2723        ("intltool" ,intltool)
2724        ("glib" ,glib "bin")
2725        ("gobject-introspection" ,gobject-introspection)
2726        ("pkg-config" ,pkg-config)
2727        ("xmllint" ,libxml2)))
2728     (home-page "https://www.gnome.org/projects/evince/")
2729     (synopsis "GNOME's document viewer")
2730     (description
2731      "Evince is a document viewer for multiple document formats.  It
2732 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
2733 of Evince is to replace the multiple document viewers that exist
2734 on the GNOME Desktop with a single simple application.")
2735     (license license:gpl2+)))
2736
2737 (define-public gsettings-desktop-schemas
2738   (package
2739     (name "gsettings-desktop-schemas")
2740     (version "41.0")
2741     (source
2742      (origin
2743        (method url-fetch)
2744        (uri (string-append "mirror://gnome/sources/" name "/"
2745                            (version-major version)  "/"
2746                            name "-" version ".tar.xz"))
2747        (sha256
2748         (base32
2749          "1v9jagk679m01nji0acirynxinziv036618c7xc49l4nwmr9ja3p"))))
2750     (build-system meson-build-system)
2751     (arguments
2752      '(#:phases (modify-phases %standard-phases
2753                   (add-after 'unpack 'patch-schemas
2754                     (lambda* (#:key inputs #:allow-other-keys)
2755                       (let ((theme (assoc-ref inputs "gnome-backgrounds")))
2756                         (substitute* (find-files "schemas"
2757                                                  "\\.gschema\\.xml\\.in$")
2758                           ;; Provide the correct file name of the default
2759                           ;; GNOME background, 'adwaita-timed.xml'.
2760                           (("@datadir@/backgrounds/gnome")
2761                            (string-append theme "/share/backgrounds/gnome"))
2762                           ;; Do not reference fonts, that may not exist.
2763                           (("'Source Code Pro 10'") "'Monospace 11'"))))))))
2764     (inputs
2765      `(("glib" ,glib)
2766        ("gnome-backgrounds" ,gnome-backgrounds)))
2767     (native-inputs
2768      `(("gettext" ,gettext-minimal)
2769        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
2770        ("gobject-introspection" ,gobject-introspection)
2771        ("pkg-config" ,pkg-config)))
2772     (home-page "https://launchpad.net/gsettings-desktop-schemas")
2773     (synopsis "GNOME settings for various desktop components")
2774     (description "Gsettings-desktop-schemas contains a collection of GSettings
2775 schemas for settings shared by various components of the GNOME desktop.")
2776     (license license:lgpl2.1+)))
2777
2778 (define-public python-liblarch
2779   (package
2780     (name "python-liblarch")
2781     (version "3.0.1")
2782     (source
2783      (origin
2784        (method git-fetch)
2785        (uri (git-reference
2786              (url "https://github.com/getting-things-gnome/liblarch")
2787              (commit (string-append "v" version))))
2788        (file-name (git-file-name name version))
2789        (sha256
2790         (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2791     (build-system python-build-system)
2792     (arguments
2793      `(#:phases
2794        (modify-phases %standard-phases
2795          (add-before 'check 'start-xserver
2796            (lambda* (#:key inputs #:allow-other-keys)
2797              (system (format #f "~a/bin/Xvfb :1 &"
2798                              (assoc-ref inputs "xorg-server")))
2799              (setenv "DISPLAY" ":1")
2800              #t)))))
2801     (native-inputs
2802      `(("xorg-server" ,xorg-server-for-tests)))
2803     (inputs
2804      `(("gtk+" ,gtk+)))
2805     (propagated-inputs
2806      `(("python-pygobject" ,python-pygobject)))
2807     (home-page "https://wiki.gnome.org/Projects/liblarch")
2808     (synopsis "Library to easily handle complex data structures")
2809     (description
2810      "Liblarch is a Python library built to easily handle data structures such
2811 as lists, trees and acyclic graphs.  There's also a GTK binding that will
2812 allow you to use your data structure in a @code{Gtk.Treeview}.
2813
2814 Liblarch support multiple views of one data structure and complex filtering.
2815 That way, you have a clear separation between your data themselves (Model)
2816 and how they are displayed (View).")
2817     (license license:lgpl3+)))
2818
2819 (define-public gtg
2820   (package
2821     (name "gtg")
2822     (version "0.5")
2823     (source
2824      (origin
2825        (method git-fetch)
2826        (uri (git-reference
2827              (url "https://github.com/getting-things-gnome/gtg")
2828              (commit (string-append "v" version))))
2829        (file-name (git-file-name name version))
2830        (sha256
2831         (base32 "0b2slm7kjq6q8c7v4m7aqc8m1ynjxn3bl7445srpv1xc0dilq403"))))
2832     (build-system meson-build-system)
2833     (arguments
2834      `(#:glib-or-gtk? #t
2835        #:phases
2836        (modify-phases %standard-phases
2837          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2838            (lambda* (#:key outputs #:allow-other-keys)
2839              (let ((prog (string-append (assoc-ref outputs "out")
2840                                         "/bin/gtg"))
2841                    (pylib (string-append (assoc-ref outputs "out")
2842                                          "/lib/python"
2843                                          ,(version-major+minor
2844                                            (package-version python))
2845                                          "/site-packages")))
2846                (wrap-program prog
2847                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
2848                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2849                #t))))))
2850     (native-inputs
2851      `(("desktop-file-utils" ,desktop-file-utils)
2852        ("gettext" ,gettext-minimal)
2853        ("glib:bin" ,glib "bin")
2854        ("gobject-introspection" ,gobject-introspection)
2855        ("gtk+:bin" ,gtk+ "bin")
2856        ("pkg-config" ,pkg-config)))
2857     (inputs
2858      `(("librsvg" ,librsvg)
2859        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2860        ("gtk+" ,gtk+)
2861        ("pango" ,pango)
2862        ("python-dbus" ,python-dbus)
2863        ("python-liblarch" ,python-liblarch)
2864        ("python-lxml" ,python-lxml)
2865        ("python-pycairo" ,python-pycairo)
2866        ("python-pygobject" ,python-pygobject)
2867        ("python-pyxdg" ,python-pyxdg)))
2868     (home-page "https://wiki.gnome.org/Apps/GTG")
2869     (synopsis "Personal organizer for the GNOME desktop")
2870     (description
2871      "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2872 organizer for the GNOME desktop environment inspired by the Getting Things
2873 Done (GTD) methodology.  GTG is designed with flexibility, adaptability,
2874 and ease of use in mind so it can be used as more than just GTD software.
2875 GTG is intended to help you track everything you need to do and need to
2876 know, from small tasks to large projects.")
2877     (license license:gpl3+)))
2878
2879 (define-public icon-naming-utils
2880   (package
2881     (name "icon-naming-utils")
2882     (version "0.8.90")
2883     (source
2884      (origin
2885       (method url-fetch)
2886       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
2887                           version ".tar.bz2"))
2888       (sha256
2889        (base32
2890         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2891     (build-system gnu-build-system)
2892     (inputs
2893      `(("perl" ,perl)
2894        ("perl-xml-simple" ,perl-xml-simple)))
2895     (arguments
2896      '(#:phases
2897        (modify-phases %standard-phases
2898          (add-after 'install 'set-load-paths
2899            ;; Tell 'icon-name-mapping' where XML::Simple is.
2900            (lambda* (#:key outputs #:allow-other-keys)
2901              (let* ((out  (assoc-ref outputs "out"))
2902                     (prog (string-append out "/libexec/icon-name-mapping")))
2903                (wrap-program
2904                    prog
2905                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2906              #t)))))
2907     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2908     (synopsis
2909      "Utility to implement the Freedesktop Icon Naming Specification")
2910     (description
2911      "To help with the transition to the Freedesktop Icon Naming
2912 Specification, the icon naming utility maps the icon names used by the
2913 GNOME and KDE desktops to the icon names proposed in the specification.")
2914     (license license:lgpl2.1+)))
2915
2916 (define-public gnome-icon-theme
2917   (package
2918     (name "gnome-icon-theme")
2919     (version "3.12.0")
2920     (source
2921      (origin
2922       (method url-fetch)
2923       (uri (string-append "mirror://gnome/sources/" name "/"
2924                           (version-major+minor version)  "/"
2925                           name "-" version ".tar.xz"))
2926       (sha256
2927        (base32
2928         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
2929     (build-system gnu-build-system)
2930     (arguments
2931      '(#:configure-flags
2932        ;; Don't create 'icon-theme.cache'.
2933        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
2934               (true      (string-append coreutils "/bin/true")))
2935          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
2936     (native-inputs
2937      `(("icon-naming-utils" ,icon-naming-utils)
2938        ("intltool" ,intltool)
2939        ("pkg-config" ,pkg-config)))
2940     (home-page "https://wiki.gnome.org/Personalization")
2941     (synopsis "GNOME icon theme")
2942     (description "Icons for the GNOME desktop.")
2943     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
2944
2945 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
2946 (define-public adwaita-icon-theme
2947   (package/inherit gnome-icon-theme
2948     (name "adwaita-icon-theme")
2949     (version "40.1.1")
2950     (source (origin
2951               (method url-fetch)
2952               (uri (string-append "mirror://gnome/sources/" name "/"
2953                                   (version-major version) "/"
2954                                   name "-" version ".tar.xz"))
2955               (sha256
2956                (base32
2957                 "1xpqa1rgmixlp953938d08xvf7kv36h747ysial8g65dsrp46v0b"))))
2958     (native-inputs
2959      ;; The following requires the SVG pixbuf loader, provided by librsvg,
2960      ;; available on x86_64 only.
2961      `(,@(if (target-64bit?)
2962              `(("gtk-encode-symbolic-svg" ,gtk+ "bin"))
2963              '())))))
2964
2965 (define-public tango-icon-theme
2966   (package
2967     (name "tango-icon-theme")
2968     (version "0.8.90")
2969     (source (origin
2970               (method url-fetch)
2971               (uri (string-append "http://tango.freedesktop.org/releases/"
2972                                   "tango-icon-theme-" version ".tar.bz2"))
2973               (sha256
2974                (base32
2975                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2976     (build-system gnu-build-system)
2977     (native-inputs
2978      `(("icon-naming-utils" ,icon-naming-utils)
2979        ("intltool" ,intltool)
2980        ("imagemagick" ,imagemagick)
2981        ("pkg-config" ,pkg-config)))
2982     (home-page "http://tango-project.org/")
2983     (synopsis "Tango icon theme")
2984     (description "This is an icon theme that follows the Tango visual
2985 guidelines.")
2986     (license license:public-domain)))
2987
2988 (define-public shared-mime-info
2989   (package
2990     (name "shared-mime-info")
2991     (version "1.15")
2992     (source (origin
2993              (method url-fetch)
2994              (uri (string-append
2995                    "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2996                    "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2997                    ".tar.xz"))
2998              (sha256
2999               (base32
3000                "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
3001     (build-system gnu-build-system)
3002     (arguments
3003      ;; The build system appears not to be parallel-safe.
3004      '(#:parallel-build? #f))
3005     (inputs
3006      `(("glib" ,glib)
3007        ("libxml2" ,libxml2)))
3008     (native-inputs
3009      `(("gettext" ,gettext-minimal)
3010        ("itstool" ,itstool)
3011        ("pkg-config" ,pkg-config)))
3012     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
3013     (synopsis "Database of common MIME types")
3014     (description
3015      "The shared-mime-info package contains the core database of common types
3016 and the update-mime-database command used to extend it.  It requires glib2 to
3017 be installed for building the update command.  Additionally, it uses intltool
3018 for translations, though this is only a dependency for the maintainers.  This
3019 database is translated at Transifex.")
3020     (license license:gpl2+)))
3021
3022 (define-public system-config-printer
3023   (package
3024     (name "system-config-printer")
3025     (version "1.5.15")
3026     (source
3027      (origin
3028        (method url-fetch)
3029        (uri (string-append
3030              "https://github.com/OpenPrinting/system-config-printer/releases/"
3031              "download/v" version
3032              "/system-config-printer-" version ".tar.xz"))
3033        (sha256
3034         (base32 "12d6xx51vizc476zfnsga9q09nflp51ipn6y7lhi9w2v4772dlpv"))))
3035     (build-system glib-or-gtk-build-system)
3036     (arguments
3037      `(#:imported-modules ((guix build python-build-system)
3038                            ,@%glib-or-gtk-build-system-modules)
3039        #:phases
3040        (modify-phases %standard-phases
3041          (add-after 'unpack 'patch-Makefile.am
3042            (lambda _
3043              ;; The Makefile generates some scripts, so set a valid shebang
3044              (substitute* "Makefile.am"
3045                (("/bin/bash") (which "bash")))
3046              (delete-file "configure")
3047              #t))
3048          (add-after 'unpack 'patch-docbook-xml
3049            (lambda* (#:key inputs #:allow-other-keys)
3050              ;; Modify the man XML otherwise xmlto tries to access the network
3051              (substitute* "man/system-config-printer.xml"
3052                (("http://www.oasis-open.org/docbook/xml/4.1.2/")
3053                 (string-append (assoc-ref inputs "docbook-xml")
3054                                "/xml/dtd/docbook/")))
3055              #t))
3056          (add-after 'install 'wrap-for-python
3057            (@@ (guix build python-build-system) wrap))
3058          (add-after 'install 'wrap
3059            (lambda* (#:key outputs #:allow-other-keys)
3060              (let ((out               (assoc-ref outputs "out"))
3061                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
3062                (for-each
3063                 (lambda (program)
3064                   (wrap-program program
3065                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
3066                 (map (lambda (name)
3067                        (string-append out "/bin/" name))
3068                      '("system-config-printer"
3069                        "system-config-printer-applet"
3070                        "install-printerdriver"
3071                        "scp-dbus-service"))))
3072              #t)))))
3073     (inputs
3074      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3075        ("gobject-introspection" ,gobject-introspection)
3076        ("python" ,python)
3077        ("cups" ,cups)
3078        ("gtk+" ,gtk+)
3079        ("python-dbus" ,python-dbus)
3080        ("python-pygobject" ,python-pygobject)
3081        ("python-pycups" ,python-pycups)
3082        ("python-requests" ,python-requests)
3083        ("python-pycairo" ,python-pycairo)
3084        ("libnotify" ,libnotify)
3085        ("packagekit" ,packagekit)))
3086     (native-inputs
3087      `(("pkg-config" ,pkg-config)
3088        ("desktop-file-utils" ,desktop-file-utils)
3089        ("glib" ,glib)
3090        ("autoconf" ,autoconf)
3091        ("automake" ,automake)
3092        ("intltool" ,intltool)
3093        ("xmlto" ,xmlto)
3094        ("docbook-xml" ,docbook-xml-4.1.2)
3095        ("docbook-xsl" ,docbook-xsl)
3096        ("libxml2" ,libxml2)))
3097     (home-page "https://github.com/zdohnal/system-config-printer")
3098     (synopsis "CUPS administration tool")
3099     (description
3100      "system-config-printer is a CUPS administration tool.  It's written in
3101 Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
3102 configuring CUPS.")
3103     (license license:gpl2+)))
3104
3105 (define-public hicolor-icon-theme
3106   (package
3107     (name "hicolor-icon-theme")
3108     (version "0.17")
3109     (source
3110      (origin
3111       (method url-fetch)
3112       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
3113                           "hicolor-icon-theme-" version ".tar.xz"))
3114       (sha256
3115        (base32
3116         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
3117     (build-system gnu-build-system)
3118     (arguments
3119      `(#:tests? #f)) ; no check target
3120     (home-page "https://icon-theme.freedesktop.org/releases/")
3121     (synopsis
3122      "Freedesktop icon theme")
3123     (description
3124      "Freedesktop icon theme.")
3125     (license license:gpl2)))
3126
3127 (define-public libnotify
3128   (package
3129     (name "libnotify")
3130     (version "0.7.9")
3131     (source
3132      (origin
3133        (method url-fetch)
3134        (uri (string-append "mirror://gnome/sources/" name "/"
3135                            (version-major+minor version)  "/"
3136                            name "-" version ".tar.xz"))
3137        (sha256
3138         (base32
3139          "0qa7cx6ra5hwqnxw95b9svgjg5q6ynm8y843iqjszxvds5z53h36"))))
3140     (build-system meson-build-system)
3141     (arguments
3142      `(#:phases
3143        (modify-phases %standard-phases
3144          (add-after 'unpack 'fix-docbook
3145            (lambda* (#:key inputs #:allow-other-keys)
3146              ;; Don't attempt to download XSL schema.
3147              (substitute* "meson.build"
3148                (("http://docbook.sourceforge.net/release/xsl-ns/current\
3149 /manpages/docbook.xsl")
3150                 (string-append (assoc-ref inputs "docbook-xsl")
3151                                "/xml/xsl/docbook-xsl-"
3152                                ,(package-version docbook-xsl)
3153                                "/manpages/docbook.xsl")))
3154              #t)))))
3155     (propagated-inputs
3156      `(;; In Requires of libnotify.pc.
3157        ("gdk-pixbuf" ,gdk-pixbuf)
3158        ("glib" ,glib)))
3159     (inputs
3160      `(("gtk+" ,gtk+)
3161        ("libpng" ,libpng)))
3162     (native-inputs
3163      `(("pkg-config" ,pkg-config)
3164        ("glib" ,glib "bin")
3165        ("gobject-introspection" ,gobject-introspection)
3166
3167        ;; For the documentation.
3168        ("gtk-doc" ,gtk-doc/stable)
3169        ("xsltproc" ,libxslt)
3170        ("docbook-xsl" ,docbook-xsl)))
3171     (home-page "https://developer-next.gnome.org/libnotify/")
3172     (synopsis
3173      "GNOME desktop notification library")
3174     (description
3175      "Libnotify is a library that sends desktop notifications to a
3176 notification daemon, as defined in the Desktop Notifications spec.  These
3177 notifications can be used to inform the user about an event or display
3178 some form of information without getting in the user's way.")
3179     (license license:lgpl2.1+)))
3180
3181 (define-public libpeas
3182   (package
3183     (name "libpeas")
3184     (version "1.30.0")
3185     (source
3186      (origin
3187       (method url-fetch)
3188       (uri (string-append "mirror://gnome/sources/" name "/"
3189                           (version-major+minor version)  "/"
3190                           name "-" version ".tar.xz"))
3191       (sha256
3192        (base32
3193         "18xrk1c1ixlhkmykcfiafrl2am470ws687xqvjlq40zwkcp5dx8b"))))
3194     (build-system meson-build-system)
3195     (arguments
3196      '(#:phases
3197        (modify-phases %standard-phases
3198          (add-before 'check 'start-xserver
3199            (lambda* (#:key inputs #:allow-other-keys)
3200              (let ((xorg-server (assoc-ref inputs "xorg-server"))
3201                    (disp ":1"))
3202                (setenv "DISPLAY" disp)
3203                (setenv "XDG_CACHE_HOME" "/tmp/xdg-cache")
3204                (setenv "XDG_CONFIG_HOME" "/tmp")
3205                ;; Tests require a running X server.
3206                (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3207                #t))))))
3208     (inputs
3209      `(("gtk+" ,gtk+)
3210        ("glade" ,glade3)
3211        ("python" ,python)
3212        ("python-pygobject" ,python-pygobject)))
3213     (native-inputs
3214      `(("pkg-config" ,pkg-config)
3215        ("gettext" ,gettext-minimal)
3216        ("glib:bin" ,glib "bin")
3217        ("gobject-introspection" ,gobject-introspection)
3218        ("xorg-server" ,xorg-server-for-tests)))
3219     (propagated-inputs
3220      ;; The .pc file "Requires" gobject-introspection.
3221      `(("gobject-introspection" ,gobject-introspection)))
3222     (home-page "https://wiki.gnome.org/Libpeas")
3223     (synopsis "GObject plugin system")
3224     (description
3225      "Libpeas is a gobject-based plugin engine, targeted at giving every
3226 application the chance to assume its own extensibility.  It also has a set of
3227 features including, but not limited to: multiple extension points; on-demand
3228 (lazy) programming language support for C, Python and JS; simplicity of the
3229 API.")
3230     (license license:lgpl2.0+)))
3231
3232 (define-public gtkglext
3233   (package
3234     (name "gtkglext")
3235     (version "1.2.0")
3236     (source (origin
3237               (method url-fetch)
3238               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
3239                                   version "/gtkglext-" version ".tar.gz"))
3240               (sha256
3241                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
3242               (patches (search-patches
3243                         "gtkglext-disable-disable-deprecated.patch"))))
3244     (build-system gnu-build-system)
3245     (arguments
3246      `(#:phases
3247        (modify-phases %standard-phases
3248          ;; Fix a collision between a local variable and a definition from
3249          ;; glibc's string.h.
3250          (add-after 'unpack 'fix-collision
3251            (lambda _
3252              (substitute* "gdk/gdkglshapes.c"
3253                ((" index") " triangle_index"))
3254              #t)))))
3255     (inputs `(("gtk+" ,gtk+-2)
3256               ("mesa" ,mesa)
3257               ("glu" ,glu)
3258               ("libx11" ,libx11)
3259               ("libxt" ,libxt)))
3260     (native-inputs `(("pkg-config" ,pkg-config)
3261                      ("glib" ,glib "bin")))
3262     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
3263     (home-page "https://projects.gnome.org/gtkglext")
3264     (synopsis "OpenGL extension to GTK+")
3265     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
3266 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3267 API add-ons to make GTK+ widgets OpenGL-capable.")
3268     (license license:lgpl2.1+)))
3269
3270 (define-public glade3
3271   (package
3272     (name "glade")
3273     (version "3.38.2")
3274     (source (origin
3275               (method url-fetch)
3276               (uri (string-append "mirror://gnome/sources/" name "/"
3277                                   (version-major+minor version)  "/"
3278                                   name "-" version ".tar.xz"))
3279               (sha256
3280                (base32
3281                 "1dxsiz9ahqkxg2a1dw9sbd8jg59y5pdz4c1gvnbmql48gmj8gz4q"))
3282               (patches (search-patches
3283                         "glade-gls-set-script-name.patch"
3284                         "glade-test-widget-null-icon.patch"))))
3285     (build-system meson-build-system)
3286     (arguments
3287      `(#:meson ,meson-0.59
3288        #:phases
3289        (modify-phases %standard-phases
3290          (add-after 'unpack 'skip-gtk-update-icon-cache
3291            ;; Don't create 'icon-theme.cache'.
3292            (lambda _
3293              (substitute* "meson_post_install.py"
3294                (("gtk-update-icon-cache") "true"))))
3295          (add-before 'configure 'fix-docbook
3296            (lambda* (#:key inputs #:allow-other-keys)
3297              (substitute* "man/meson.build"
3298                (("http://docbook.sourceforge.net/release/xsl/\
3299 current/manpages/docbook.xsl")
3300                 (string-append (assoc-ref inputs "docbook-xsl")
3301                                "/xml/xsl/docbook-xsl-"
3302                                ,(package-version docbook-xsl)
3303                                "/manpages/docbook.xsl")))))
3304          (add-before 'check 'pre-check
3305            (lambda _
3306              (setenv "HOME" "/tmp")
3307              ;; Tests require a running X server.
3308              (system "Xvfb :1 &")
3309              (setenv "DISPLAY" ":1"))))))
3310     (inputs
3311      `(("gtk+" ,gtk+)
3312        ("libxml2" ,libxml2)))
3313     (native-inputs
3314      `(("hicolor-icon-theme" ,hicolor-icon-theme)
3315        ("intltool" ,intltool)
3316        ("itstool" ,itstool)
3317        ("libxslt" ,libxslt) ;for xsltproc
3318        ("docbook-xml" ,docbook-xml-4.2)
3319        ("docbook-xsl" ,docbook-xsl)
3320        ("glib:bin" ,glib "bin")
3321        ("python-pygobject" ,python-pygobject)
3322        ("gobject-introspection" ,gobject-introspection)
3323        ("gjs" ,gjs)
3324        ("pkg-config" ,pkg-config)
3325        ("xorg-server" ,xorg-server-for-tests)))
3326     (home-page "https://glade.gnome.org")
3327     (synopsis "GTK+ rapid application development tool")
3328     (description "Glade is a rapid application development (RAD) tool to
3329 enable quick & easy development of user interfaces for the GTK+ toolkit and
3330 the GNOME desktop environment.")
3331     (license license:lgpl2.0+)
3332     (native-search-paths (list (search-path-specification
3333                                 (variable "GLADE_CATALOG_SEARCH_PATH")
3334                                 (files '("share/glade/catalogs")))
3335                                (search-path-specification
3336                                 (variable "GLADE_MODULE_SEARCH_PATH")
3337                                 (files '("lib/glade/modules")))))))
3338
3339 (define-public libcroco
3340   (package
3341     (name "libcroco")
3342     (version "0.6.13")
3343     (source (origin
3344               (method url-fetch)
3345               (uri (string-append "mirror://gnome/sources/" name "/"
3346                                   (version-major+minor version)  "/"
3347                                   name "-" version ".tar.xz"))
3348               (patches (search-patches "libcroco-CVE-2020-12825.patch"))
3349               (sha256
3350                (base32
3351                 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
3352     (build-system gnu-build-system)
3353     (native-inputs
3354      `(("pkg-config" ,pkg-config)))
3355     (inputs
3356      `(("glib" ,glib)
3357        ("libxml2" ,libxml2)
3358        ("zlib" ,zlib)))
3359     (home-page "https://github.com/GNOME/libcroco")
3360     (synopsis "CSS2 parsing and manipulation library")
3361     (description
3362      "Libcroco is a standalone CSS2 parsing and manipulation library.
3363 The parser provides a low level event driven SAC-like API and a CSS object
3364 model like API.  Libcroco provides a CSS2 selection engine and an experimental
3365 XML/CSS rendering engine.")
3366
3367     ;; LGPLv2.1-only.
3368     (license license:lgpl2.1)))
3369
3370 (define-public libgsf
3371   (package
3372     (name "libgsf")
3373     (version "1.14.47")
3374     (source (origin
3375               (method url-fetch)
3376               (uri (string-append "mirror://gnome/sources/" name "/"
3377                                   (version-major+minor version)  "/"
3378                                   name "-" version ".tar.xz"))
3379               (sha256
3380                (base32
3381                 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
3382     (build-system glib-or-gtk-build-system)
3383     (outputs '("out" "bin" "doc"))
3384     (arguments
3385      `(#:configure-flags
3386        (list
3387         "--disable-static"
3388         "--enable-introspection"
3389         (string-append "--with-gir-dir="
3390                        (assoc-ref %outputs "out")
3391                        "/share/gir-"
3392                        ,(version-major
3393                          (package-version gobject-introspection))
3394                        ".0")
3395         (string-append "--with-typelib-dir="
3396                        (assoc-ref %outputs "out")
3397                        "/lib/girepository-"
3398                        ,(version-major
3399                          (package-version gobject-introspection))
3400                        ".0")
3401         (string-append "--with-html-dir="
3402                        (assoc-ref %outputs "doc")
3403                        "/share/gtk-doc/html")
3404         "--with-zlib"
3405         "--with-bz2")
3406        #:phases
3407        (modify-phases %standard-phases
3408          (add-after 'unpack 'patch-docbook-xml
3409            (lambda* (#:key inputs #:allow-other-keys)
3410              (with-directory-excursion "doc"
3411                (substitute* "gsf-docs.xml"
3412                  (("http://www.oasis-open.org/docbook/xml/4.5/")
3413                   (string-append (assoc-ref inputs "docbook-xml")
3414                                  "/xml/dtd/docbook/"))))
3415              #t)))))
3416     (native-inputs
3417      `(("docbook-xml" ,docbook-xml)
3418        ("gettext" ,gettext-minimal)
3419        ("gobject-introspection" ,gobject-introspection)
3420        ("perl" ,perl)
3421        ("perl-xml-parser" ,perl-xml-parser)
3422        ("pkg-config" ,pkg-config)
3423        ("python" ,python-wrapper)))
3424     (inputs
3425      `(("bzip2" ,bzip2)
3426        ("gdk-pixbuf" ,gdk-pixbuf)
3427        ("zlib" ,zlib)))
3428     (propagated-inputs
3429      `(("glib" ,glib)
3430        ("libxml2" ,libxml2)))
3431     (synopsis "G Structured File Library")
3432     (description "Libgsf aims to provide an efficient extensible I/O abstraction
3433 for dealing with different structured file formats.")
3434     (home-page "https://gitlab.gnome.org/GNOME/libgsf")
3435     (license
3436      (list
3437       ;; Library
3438       license:lgpl2.1+
3439       ;; Others
3440       license:lgpl2.0+))))
3441
3442 (define-public librsvg
3443   (package
3444     (name "librsvg")
3445     (version "2.50.7")
3446     (source (origin
3447               (method url-fetch)
3448               (uri (string-append "mirror://gnome/sources/librsvg/"
3449                                   (version-major+minor version)  "/"
3450                                   "librsvg-" version ".tar.xz"))
3451               (sha256
3452                (base32
3453                 "1g3f8byg5w08fx1bka12mmpl59v6a4q2p827w6m2la6mijq63yzz"))
3454               (modules '((guix build utils)))
3455               (snippet
3456                '(begin (delete-file-recursively "vendor")))))
3457     (build-system cargo-build-system)
3458     (outputs '("out" "doc" "debug"))
3459     (arguments
3460      `(#:install-source? #f
3461        #:modules
3462        ((guix build cargo-build-system)
3463         (guix build utils)
3464         ((guix build gnu-build-system) #:prefix gnu:))
3465        #:cargo-inputs
3466        (("rust-bitflags" ,rust-bitflags-1)
3467         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3468         ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
3469         ("rust-cast" ,rust-cast-0.2)
3470         ("rust-cssparser" ,rust-cssparser-0.27)
3471         ("rust-data-url" ,rust-data-url-0.1)
3472         ("rust-encoding" ,rust-encoding-0.2)
3473         ("rust-float-cmp" ,rust-float-cmp-0.8)
3474         ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
3475         ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
3476         ("rust-gio" ,rust-gio-0.8)
3477         ("rust-gio-sys" ,rust-gio-sys-0.9)
3478         ("rust-glib" ,rust-glib-0.9)
3479         ("rust-glib-sys" ,rust-glib-sys-0.9)
3480         ("rust-gobject-sys" ,rust-gobject-sys-0.9)
3481         ("rust-itertools" ,rust-itertools-0.9)
3482         ("rust-language-tags" ,rust-language-tags-0.2)
3483         ("rust-libc" ,rust-libc-0.2)
3484         ("rust-locale-config" ,rust-locale-config-0.3)
3485         ("rust-markup5ever" ,rust-markup5ever-0.10)
3486         ("rust-nalgebra" ,rust-nalgebra-0.21)
3487         ("rust-num-traits" ,rust-num-traits-0.2)
3488         ("rust-once-cell" ,rust-once-cell-1)
3489         ("rust-pkg-config" ,rust-pkg-config-0.3)
3490         ("rust-pango" ,rust-pango-0.8)
3491         ("rust-pango-sys" ,rust-pango-sys-0.9)
3492         ("rust-pangocairo" ,rust-pangocairo-0.9)
3493         ("rust-rayon" ,rust-rayon-1)
3494         ("rust-rctree" ,rust-rctree-0.3)
3495         ("rust-rgb" ,rust-rgb-0.8)
3496         ("rust-regex" ,rust-regex-1)
3497         ("rust-selectors" ,rust-selectors-0.22)
3498         ("rust-string-cache" ,rust-string-cache-0.8)
3499         ("rust-tinyvec" ,rust-tinyvec-0.3)
3500         ("rust-url" ,rust-url-2)
3501         ("rust-xml5ever" ,rust-xml5ever-0.16))
3502        #:cargo-development-inputs
3503        (("rust-assert-cmd" ,rust-assert-cmd-1)
3504         ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3505         ("rust-chrono" ,rust-chrono-0.4)
3506         ("rust-criterion" ,rust-criterion-0.3)
3507         ("rust-float-cmp" ,rust-float-cmp-0.8)
3508         ("rust-lopdf" ,rust-lopdf-0.26)
3509         ("rust-png" ,rust-png-0.16)
3510         ("rust-predicates" ,rust-predicates-1)
3511         ("rust-tempfile" ,rust-tempfile-3))
3512        #:phases
3513        (modify-phases %standard-phases
3514          (add-after 'unpack 'patch-docbook-xml
3515            (lambda* (#:key inputs #:allow-other-keys)
3516              (with-directory-excursion "doc"
3517                (substitute* "rsvg-docs.xml"
3518                  (("http://www.oasis-open.org/docbook/xml/4.3/")
3519                   (string-append (assoc-ref inputs "docbook-xml")
3520                                  "/xml/dtd/docbook/"))))))
3521          (add-after 'unpack 'prepare-for-build
3522            (lambda _
3523              ;; In lieu of #:make-flags
3524              (setenv "CC" ,(cc-for-target))
3525              ;; Something about the build environment resists building
3526              ;; successfully with the '--locked' flag.
3527              (substitute* '("Makefile.am" "Makefile.in")
3528                (("--locked") ""))))
3529          (add-before 'configure 'pre-configure
3530            (lambda* (#:key outputs #:allow-other-keys)
3531              (substitute* "gdk-pixbuf-loader/Makefile.in"
3532                ;; By default the gdk-pixbuf loader is installed under
3533                ;; gdk-pixbuf's prefix.  Work around that.
3534                (("gdk_pixbuf_moduledir = .*$")
3535                 (string-append "gdk_pixbuf_moduledir = "
3536                                "$(prefix)/"
3537                                ,(dirname %gdk-pixbuf-loaders-cache-file) "/"
3538                                "loaders\n")))
3539              (substitute* "configure"
3540                (("gdk_pixbuf_cache_file=.*")
3541                 (string-append "gdk_pixbuf_cache_file="
3542                                (assoc-ref outputs "out") "/"
3543                                ,%gdk-pixbuf-loaders-cache-file "\n")))))
3544          (add-after 'configure 'gnu-configure
3545            (lambda* (#:key outputs #:allow-other-keys #:rest args)
3546              (apply (assoc-ref gnu:%standard-phases 'configure)
3547                     #:configure-flags
3548                     (list "--disable-static"
3549                           "--enable-vala"
3550                           (string-append "--with-html-dir="
3551                                          (assoc-ref outputs "doc")
3552                                          "/share/gtk-doc/html"))
3553                     args)))
3554          (add-after 'configure 'dont-vendor-self
3555            (lambda* (#:key vendor-dir #:allow-other-keys)
3556              ;; Don't keep the whole tarball in the vendor directory
3557              (delete-file-recursively
3558               (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))))
3559          (replace 'build
3560            (assoc-ref gnu:%standard-phases 'build))
3561          (add-before 'check 'ignore-failing-tests
3562            ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3563            (lambda _
3564              (substitute* "tests/src/cmdline/rsvg_convert.rs"
3565                (("fn background_color_option_invalid_color_yields_error" all)
3566                 (string-append "#[ignore] " all))
3567                (("fn empty_input_yields_error" all)
3568                 (string-append "#[ignore] " all))
3569                (("fn empty_svg_yields_error" all)
3570                 (string-append "#[ignore] " all))
3571                (("fn env_source_data_epoch_empty" all)
3572                 (string-append "#[ignore] " all))
3573                (("fn env_source_data_epoch_no_digits" all)
3574                 (string-append "#[ignore] " all))
3575                (("fn env_source_data_epoch_trailing_garbage" all)
3576                 (string-append "#[ignore] " all))
3577                (("fn export_id_option_error" all)
3578                 (string-append "#[ignore] " all))
3579                (("fn huge_zoom_factor_yields_error" all)
3580                 (string-append "#[ignore] " all))
3581                (("fn multiple_input_files_not_allowed_for_png_output" all)
3582                 (string-append "#[ignore] " all))
3583                (("fn stylesheet_option_error" all)
3584                 (string-append "#[ignore] " all)))))
3585          (replace 'check
3586            (lambda* args
3587              ((assoc-ref gnu:%standard-phases 'check)
3588               #:test-target "check")))
3589          (replace 'install
3590            (assoc-ref gnu:%standard-phases 'install)))))
3591     (native-inputs
3592      `(("docbook-xml" ,docbook-xml-4.3)
3593        ("glib" ,glib "bin")
3594        ("gobject-introspection" ,gobject-introspection)
3595        ("pkg-config" ,pkg-config)
3596        ("python" ,python-wrapper)
3597        ("ruby" ,ruby)
3598        ("vala" ,vala)))
3599     (inputs
3600      `(("bzip2" ,bzip2)
3601        ("fontconfig" ,fontconfig)
3602        ("freetype" ,freetype)
3603        ("harfbuzz" ,harfbuzz)
3604        ("libcroco" ,libcroco)
3605        ("libgsf" ,libgsf)
3606        ("libxml2" ,libxml2)
3607        ("pango" ,pango)))
3608     (propagated-inputs
3609      `(("cairo" ,cairo)
3610        ("gdk-pixbuf" ,gdk-pixbuf)
3611        ("glib" ,glib)))
3612     (synopsis "SVG rendering library")
3613     (description "Librsvg is a library to render SVG images to Cairo surfaces.
3614 GNOME uses this to render SVG icons.  Outside of GNOME, other desktop
3615 environments use it for similar purposes.  Wikimedia uses it for Wikipedia's SVG
3616 diagrams.")
3617     (home-page "https://wiki.gnome.org/LibRsvg")
3618     (license license:lgpl2.1+)))
3619
3620 (define-public librsvg-2.40
3621   ;; This is the last version implemented in C.
3622   (package
3623     (inherit librsvg)
3624     (version "2.40.21")
3625     (source (origin
3626               (method url-fetch)
3627               (uri (string-append "mirror://gnome/sources/librsvg/"
3628                                   (version-major+minor version)
3629                                   "/librsvg-" version ".tar.xz"))
3630               (sha256
3631                (base32
3632                 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
3633     (build-system gnu-build-system)
3634     (arguments
3635      `(#:configure-flags (list "--disable-static")
3636        #:phases
3637        (modify-phases %standard-phases
3638          (add-before 'configure 'pre-configure
3639            (lambda* (#:key inputs #:allow-other-keys)
3640              (substitute* "gdk-pixbuf-loader/Makefile.in"
3641                ;; By default the gdk-pixbuf loader is installed under
3642                ;; gdk-pixbuf's prefix.  Work around that.
3643                (("gdk_pixbuf_moduledir = .*$")
3644                 (string-append "gdk_pixbuf_moduledir = "
3645                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3646                                 "loaders\n"))
3647                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3648                (("gdk_pixbuf_cache_file = .*$")
3649                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3650              #t))
3651          (add-before 'check 'remove-failing-tests
3652            (lambda _
3653              (with-directory-excursion "tests/fixtures/reftests"
3654                (for-each delete-file
3655                          '(;; This test fails on i686:
3656                            "svg1.1/masking-path-04-b.svg"
3657                            ;; This test fails on armhf:
3658                            "svg1.1/masking-mask-01-b.svg"
3659                            ;; This test fails on aarch64:
3660                            "bugs/777834-empty-text-children.svg")))
3661              #t)))))
3662     (native-inputs
3663      `(("pkg-config" ,pkg-config)
3664        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
3665        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
3666     (inputs
3667      `(;; XXX: 1.44 causes some test failures, so we stick with 1.42 for
3668        ;; this ancient version of librsvg.
3669        ("pango" ,pango-1.42)
3670        ("libcroco" ,libcroco)
3671        ("bzip2" ,bzip2)
3672        ("libgsf" ,libgsf)
3673        ("libxml2" ,libxml2)))
3674     (propagated-inputs
3675      ;; librsvg-2.0.pc refers to all of that.
3676      `(("cairo" ,cairo)
3677        ("gdk-pixbuf" ,gdk-pixbuf)
3678        ("glib" ,glib)))
3679     (synopsis "Render SVG files using Cairo (ancient C version)")
3680     (properties '((hidden? . #t)))))
3681
3682 (define* (librsvg-for-system #:optional
3683                              (system (or (%current-target-system)
3684                                          (%current-system))))
3685   ;; Since librsvg 2.50 depends on Rust, and Rust is only correctly supported
3686   ;; on x86_64 so far, use the ancient C version on other platforms (FIXME).
3687   (if (string-prefix? "x86_64-" system)
3688       librsvg
3689       librsvg-2.40))
3690
3691 (export librsvg-for-system)
3692
3693 (define-public libidl
3694   (package
3695     (name "libidl")
3696     (version "0.8.14")
3697     (source (origin
3698               (method url-fetch)
3699               (uri (string-append "mirror://gnome/sources/libIDL/"
3700                                   (version-major+minor version) "/"
3701                                   "libIDL-" version ".tar.bz2"))
3702               (sha256
3703                (base32
3704                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3705     (build-system gnu-build-system)
3706     (inputs `(("glib" ,glib)))
3707     (native-inputs
3708      `(("pkg-config" ,pkg-config)
3709        ("flex" ,flex)
3710        ("bison" ,bison)))
3711     (home-page "http://freecode.com/projects/libidl")
3712     (synopsis "Create trees of CORBA Interface Definition Language files")
3713     (description  "Libidl is a library for creating trees of CORBA Interface
3714 Definition Language (idl) files, which is a specification for defining
3715 portable interfaces. libidl was initially written for orbit (the orb from the
3716 GNOME project, and the primary means of libidl distribution).  However, the
3717 functionality was designed to be as reusable and portable as possible.")
3718     (properties `((upstream-name . "libIDL")))
3719     (license license:lgpl2.0+)))
3720
3721
3722 (define-public orbit2
3723   (package
3724     (name "orbit2")
3725     (version "2.14.19")
3726     (source (origin
3727               (method url-fetch)
3728               (uri (let ((upstream-name "ORBit2"))
3729                      (string-append "mirror://gnome/sources/" upstream-name "/"
3730                                     (version-major+minor version) "/"
3731                                     upstream-name "-" version ".tar.bz2")))
3732               (sha256
3733                (base32
3734                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
3735     (build-system gnu-build-system)
3736     (arguments
3737      `(;; The "timeout-server" test hangs when run in parallel.
3738        #:parallel-tests? #f
3739        #:configure-flags
3740        '(;; We don't need static libraries, plus they don't build reproducibly
3741          ;; (non-deterministic ordering of .o files in the archive.)
3742          "--disable-static"
3743
3744          ;; The programmer kindly gives us a hook to turn off deprecation
3745          ;; warnings ...
3746          "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3747        ;; ... which they then completly ignore !!
3748        #:phases
3749        (modify-phases %standard-phases
3750          (add-after 'unpack 'fix-parallel-build
3751            ;; Parallel build fails because of a failed dependency,
3752            ;; https://bugzilla.gnome.org/show_bug.cgi?id=732274
3753            (lambda _
3754              (substitute* "src/services/name/Makefile.am"
3755                (("orbit_name_server_2_DEPENDENCIES = \\$(DEPS) CosNaming.h")
3756                 "orbit_name_server_2_DEPENDENCIES = \
3757 $(DEPS) CosNaming.h libname-server-2.a"))))
3758          (add-before 'configure 'ignore-deprecations
3759            (lambda _
3760              (substitute* "linc2/src/Makefile.in"
3761                (("-DG_DISABLE_DEPRECATED")
3762                 "-DGLIB_DISABLE_DEPRECATION_WARNINGS")))))))
3763     (inputs `(("glib" ,glib)
3764               ("libidl" ,libidl)))
3765     (native-inputs
3766      `(("pkg-config" ,pkg-config)))
3767     (home-page "https://projects.gnome.org/orbit2/")
3768     (synopsis "CORBA 2.4-compliant Object Request Broker")
3769     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
3770 featuring mature C, C++ and Python bindings.")
3771     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
3772     ;; a version.  SOME of the code files have licence notices for GPLv2+.
3773     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
3774     (license license:gpl2+)
3775     (properties `((upstream-name . "ORBit2")))))
3776
3777
3778 (define-public libbonobo
3779   (package
3780     (name "libbonobo")
3781     (version "2.32.1")
3782     (source (origin
3783               (method url-fetch)
3784               (uri (string-append "mirror://gnome/sources/" name "/"
3785                                   (version-major+minor version)
3786                                   "/" name "-" version ".tar.bz2"))
3787               (sha256
3788                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
3789               (patches (search-patches
3790                         "libbonobo-activation-test-race.patch"))))
3791     (build-system gnu-build-system)
3792     (arguments
3793      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
3794      `(#:configure-flags
3795        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3796        ;; ... which they then completly ignore !!
3797        #:phases
3798        (modify-phases %standard-phases
3799          (add-before 'configure 'ignore-deprecations
3800            (lambda _
3801              (substitute* "activation-server/Makefile.in"
3802                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3803              #t)))
3804
3805        ;; There's apparently a race condition between the server stub
3806        ;; generation and linking of the example under 'samples/echo' that can
3807        ;; lead do undefined references when building in parallel, as reported
3808        ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3809        ;; Thus, disable parallel builds.
3810        #:parallel-build? #f))
3811     (inputs `(("popt" ,popt)
3812               ("libxml2" ,libxml2)))
3813     ;; The following are Required by the .pc file
3814     (propagated-inputs
3815      `(("glib" ,glib)
3816        ("orbit2" ,orbit2)))
3817     (native-inputs
3818      `(("intltool" ,intltool)
3819        ("pkg-config" ,pkg-config)
3820        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3821        ("flex" ,flex)
3822        ("bison" ,bison)))
3823     (home-page "https://developer.gnome.org/libbonobo/")
3824     (synopsis "Framework for creating reusable components for use in GNOME applications")
3825     (description "Bonobo is a framework for creating reusable components for
3826 use in GNOME applications, built on top of CORBA.")
3827     ;; Licence not explicitly stated.  Source files contain no licence notices.
3828     ;; Tarball contains text of both GPLv2 and LGPLv2
3829     ;; GPLv2 covers both conditions
3830     (license license:gpl2+)))
3831
3832
3833 (define-public gconf
3834   (package
3835     (name "gconf")
3836     (version "3.2.6")
3837     (source (origin
3838               (method url-fetch)
3839               (uri
3840                (let ((upstream-name "GConf"))
3841                  (string-append "mirror://gnome/sources/" upstream-name "/"
3842                                 (version-major+minor version) "/"
3843                                 upstream-name "-" version ".tar.xz")))
3844               (sha256
3845                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3846     (build-system gnu-build-system)
3847     (inputs `(("dbus-glib" ,dbus-glib)
3848               ("libxml2" ,libxml2)))
3849     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
3850                          ("orbit2" ,orbit2)))
3851     (native-inputs
3852      `(("intltool" ,intltool)
3853        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
3854        ("pkg-config" ,pkg-config)))
3855     (home-page "https://projects.gnome.org/gconf/")
3856     (synopsis "Store application preferences")
3857     (description "Gconf is a system for storing application preferences.  It
3858 is intended for user preferences; not arbitrary data storage.")
3859     (license license:lgpl2.0+)
3860     (properties '((upstream-name . "GConf")))))
3861
3862
3863 (define-public gnome-mime-data
3864   (package
3865     (name "gnome-mime-data")
3866     (version "2.18.0")
3867     (source (origin
3868               (method url-fetch)
3869               (uri (string-append "mirror://gnome/sources/" name "/"
3870                                   (version-major+minor version)  "/"
3871                                   name "-" version ".tar.bz2"))
3872               (sha256
3873                (base32
3874                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3875     (build-system gnu-build-system)
3876     (native-inputs
3877      `(("perl" ,perl)
3878        ("intltool" ,intltool)))
3879     (arguments
3880      '(#:phases (modify-phases %standard-phases
3881                   (add-after 'configure 'use-our-intltool
3882                     (lambda _
3883                       ;; Do not use the bundled intltool commands, which lack
3884                       ;; the "dotless @INC" fixes of our 'intltool' package.
3885                       (substitute* (find-files "." "^Makefile$")
3886                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3887                          (string-append "INTLTOOL_" tool " = intltool-"
3888                                         (string-downcase tool) "\n")))
3889                       #t)))))
3890     (home-page "https://www.gnome.org")
3891     (synopsis "Base MIME and Application database for GNOME")
3892     (description  "GNOME Mime Data is a module which contains the base MIME
3893 and Application database for GNOME.  The data stored by this module is
3894 designed to be accessed through the MIME functions in GnomeVFS.")
3895     (license license:gpl2+)))
3896
3897
3898 (define-public gnome-vfs
3899   (package
3900     (name "gnome-vfs")
3901     (version "2.24.4")
3902     (source (origin
3903               (method url-fetch)
3904               (uri (string-append "mirror://gnome/sources/" name "/"
3905                                   (version-major+minor version)  "/"
3906                                   name "-" version ".tar.bz2"))
3907               (sha256
3908                (base32
3909                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
3910     (build-system gnu-build-system)
3911     (arguments
3912      `(#:phases
3913        (modify-phases %standard-phases
3914          (add-before 'configure 'ignore-deprecations
3915            (lambda _
3916              (substitute* '("libgnomevfs/Makefile.in"
3917                             "daemon/Makefile.in")
3918                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3919              #t))
3920          (add-before 'configure 'patch-test-async-cancel-to-never-fail
3921            (lambda _
3922              (substitute* "test/test-async-cancel.c"
3923                (("EXIT_FAILURE") "77"))
3924              #t)))))
3925     (inputs `(("libxml2" ,libxml2)
3926               ("dbus-glib" ,dbus-glib)
3927               ("gconf" ,gconf)
3928               ("gnome-mime-data" ,gnome-mime-data)
3929               ("zlib" ,zlib)))
3930     (native-inputs
3931      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3932        ("intltool" ,intltool)
3933        ("pkg-config" ,pkg-config)))
3934     (home-page "https://developer.gnome.org/gnome-vfs/")
3935     (synopsis "Access files and folders in GNOME applications")
3936     (description
3937      "GnomeVFS is the core library used to access files and folders in GNOME
3938 applications.  It provides a file system abstraction which allows applications
3939 to access local and remote files with a single consistent API.")
3940     (license license:lgpl2.0+)))
3941
3942
3943
3944 (define-public libgnome
3945   (package
3946     (name "libgnome")
3947     (version "2.32.1")
3948     (source (origin
3949               (method url-fetch)
3950               (uri (string-append "mirror://gnome/sources/" name "/"
3951                                   (version-major+minor version)  "/"
3952                                   name "-" version ".tar.bz2"))
3953               (sha256
3954                (base32
3955                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3956               (patches (search-patches "libgnome-encoding.patch"))))
3957     (build-system gnu-build-system)
3958     (arguments
3959      `(#:phases
3960        (modify-phases %standard-phases
3961          (add-before 'configure 'enable-deprecated
3962            (lambda _
3963              (substitute* "libgnome/Makefile.in"
3964                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3965              #t)))))
3966     (inputs `(("libxml2" ,libxml2)))
3967     (native-inputs
3968      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
3969        ("intltool" ,intltool)
3970        ("pkg-config" ,pkg-config)))
3971     ;; The following are listed as Required in the .pc file
3972     ;; (except for libcanberra -- which seems to be oversight on the part
3973     ;; of the upstream developers -- anything that links against libgnome,
3974     ;; must also link against libcanberra
3975     (propagated-inputs
3976      `(("libcanberra" ,libcanberra)
3977        ("libbonobo" ,libbonobo)
3978        ("gconf" ,gconf)
3979        ("gnome-vfs" ,gnome-vfs)
3980        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
3981     (home-page "https://developer.gnome.org/libgnome/")
3982     (synopsis "Useful routines for building applications")
3983     (description  "The libgnome library provides a number of useful routines
3984 for building modern applications, including session management, activation of
3985 files and URIs, and displaying help.")
3986     (license license:lgpl2.0+)))
3987
3988
3989 (define-public libart-lgpl
3990   (package
3991     (name "libart-lgpl")
3992     (version "2.3.21")
3993     (source (origin
3994               (method url-fetch)
3995               (uri (let ((upstream-name "libart_lgpl"))
3996                      (string-append "mirror://gnome/sources/" upstream-name "/"
3997                                     (version-major+minor version) "/"
3998                                     upstream-name "-" version ".tar.bz2")))
3999               (sha256
4000                (base32
4001                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
4002     (build-system gnu-build-system)
4003     (native-inputs
4004      `(("pkg-config" ,pkg-config)))
4005     (home-page "https://people.gnome.org/~mathieu/libart")
4006     (synopsis "2D drawing library")
4007     (description  "Libart is a 2D drawing library intended as a
4008 high-quality vector-based 2D library with antialiasing and alpha composition.")
4009     (license license:lgpl2.0+)))
4010
4011
4012
4013 (define-public libgnomecanvas
4014   (package
4015     (name "libgnomecanvas")
4016     (version "2.30.3")
4017     (source (origin
4018               (method url-fetch)
4019               (uri (string-append "mirror://gnome/sources/" name "/"
4020                                   (version-major+minor version)  "/"
4021                                   name "-" version ".tar.gz"))
4022               (sha256
4023                (base32
4024                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
4025     (build-system gnu-build-system)
4026     ;; Mentioned as Required in the .pc file
4027     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
4028                          ("gtk+" ,gtk+-2)))
4029     (native-inputs
4030      `(("intltool" ,intltool)
4031        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4032        ("pkg-config" ,pkg-config)))
4033     (home-page "https://developer.gnome.org/libgnomecanvas/")
4034     (synopsis "Flexible widget for creating interactive structured graphics")
4035     (description  "The GnomeCanvas widget provides a flexible widget for
4036 creating interactive structured graphics.")
4037     (license license:lgpl2.0+)))
4038
4039 (define-public libgnomecanvasmm
4040   (package
4041     (name "libgnomecanvasmm")
4042     (version "2.26.0")
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                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
4051     (build-system gnu-build-system)
4052     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
4053     (native-inputs
4054      `(("gtkmm-2" ,gtkmm-2)
4055        ("pkg-config" ,pkg-config)))
4056     (home-page "https://gtkmm.org")
4057     (synopsis "C++ bindings to the GNOME Canvas library")
4058     (description "C++ bindings to the GNOME Canvas library.")
4059     (license license:lgpl2.0+)))
4060
4061 (define-public libgnomeui
4062   (package
4063     (name "libgnomeui")
4064     (version "2.24.5")
4065     (source (origin
4066               (method url-fetch)
4067               (uri (string-append "mirror://gnome/sources/" name "/"
4068                                   (version-major+minor version)  "/"
4069                                   name "-" version ".tar.bz2"))
4070               (patches (search-patches "libgnomeui-utf8.patch"))
4071               (sha256
4072                (base32
4073                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
4074     (build-system gnu-build-system)
4075     ;; Mentioned as Required in the .pc file
4076     (propagated-inputs `(("libbonoboui" ,libbonoboui)
4077                          ("libgnome" ,libgnome)
4078                          ("libgnomecanvas" ,libgnomecanvas)
4079                          ("libgnome-keyring" ,libgnome-keyring)))
4080     (inputs `(("libjpeg" ,libjpeg-turbo)
4081               ("popt" ,popt)
4082               ("libbonobo" ,libbonobo)
4083               ("libxml2" ,libxml2)
4084               ("libglade" ,libglade)))
4085     (native-inputs
4086      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
4087        ("intltool" ,intltool)
4088        ("pkg-config" ,pkg-config)))
4089     (home-page "https://developer.gnome.org/libgnomeui/")
4090     (synopsis "Additional widgets for applications")
4091     (description "The libgnomeui library provides additional widgets for
4092 applications.  Many of the widgets from libgnomeui have already been
4093 ported to GTK+.")
4094     (license license:lgpl2.0+)))
4095
4096 (define-public libglade
4097   (package
4098     (name "libglade")
4099     (version "2.6.4")
4100     (source (origin
4101               (method url-fetch)
4102               (uri (string-append "mirror://gnome/sources/" name "/"
4103                                   (version-major+minor version)  "/"
4104                                   name "-" version ".tar.bz2"))
4105               (sha256
4106                (base32
4107                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
4108     (build-system gnu-build-system)
4109     (inputs
4110      `(("python" ,python))) ;; needed for the optional libglade-convert program
4111     (propagated-inputs
4112      `(("gtk+-2" ,gtk+-2)
4113        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
4114     (native-inputs
4115      `(("pkg-config" ,pkg-config)))
4116     (home-page "https://developer.gnome.org/libglade")
4117     (synopsis "Load glade interfaces and access the glade built widgets")
4118     (description "Libglade is a library that provides interfaces for loading
4119 graphical interfaces described in glade files and for accessing the
4120 widgets built in the loading process.")
4121     (license license:gpl2+))) ; This is correct.  GPL not LGPL
4122
4123 (define-public libbonoboui
4124   (package
4125     (name "libbonoboui")
4126     (version "2.24.5")
4127     (source (origin
4128               (method url-fetch)
4129               (uri (string-append "mirror://gnome/sources/" name "/"
4130                                   (version-major+minor version)  "/"
4131                                   name "-" version ".tar.bz2"))
4132               (sha256
4133                (base32
4134                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
4135     (build-system gnu-build-system)
4136     (arguments
4137      `(#:phases
4138        (modify-phases %standard-phases
4139          (add-before 'check 'start-xserver
4140            (lambda* (#:key inputs #:allow-other-keys)
4141              (let ((xorg-server (assoc-ref inputs "xorg-server"))
4142                    (disp ":1"))
4143
4144                (setenv "HOME" (getcwd))
4145                (setenv "DISPLAY" disp)
4146                ;; There must be a running X server and make check doesn't start one.
4147                ;; Therefore we must do it.
4148                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
4149     ;; Mentioned as Required by the .pc file
4150     (propagated-inputs `(("libxml2" ,libxml2)))
4151     (inputs
4152      `(("popt" ,popt)
4153        ("pangox-compat" ,pangox-compat)
4154        ("libgnome" ,libgnome)
4155        ("libgnomecanvas" ,libgnomecanvas)
4156        ("libglade" ,libglade)))
4157     (native-inputs
4158      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4159        ("intltool" ,intltool)
4160        ("xorg-server" ,xorg-server-for-tests) ; For running the tests
4161        ("pkg-config" ,pkg-config)))
4162     (home-page "https://developer.gnome.org/libbonoboui/")
4163     (synopsis "Some user interface controls using Bonobo")
4164     (description  "The Bonobo UI library provides a number of user interface
4165 controls using the Bonobo component framework.")
4166     (license license:lgpl2.0+)))
4167
4168 (define-public libwnck
4169   (package
4170     (name "libwnck")
4171     (version "3.32.0")
4172     (source (origin
4173               (method url-fetch)
4174               (uri (string-append "mirror://gnome/sources/" name "/"
4175                                   (version-major+minor version) "/"
4176                                   name "-" version ".tar.xz"))
4177               (sha256
4178                (base32
4179                 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
4180     (build-system meson-build-system)
4181     (native-inputs
4182      `(("pkg-config" ,pkg-config)
4183        ("glib" ,glib "bin") ; for glib-mkenums
4184        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
4185        ("intltool" ,intltool)))
4186     (propagated-inputs
4187      `(("gtk+" ,gtk+)
4188        ("libxres" ,libxres)
4189        ("startup-notification" ,startup-notification)))
4190     (home-page "https://developer.gnome.org/libwnck/")
4191     (synopsis "Window Navigator Construction Kit")
4192     (description
4193      "Libwnck is the Window Navigator Construction Kit, a library for use in
4194 writing pagers, tasklists, and more generally applications that are dealing
4195 with window management.  It tries hard to respect the Extended Window Manager
4196 Hints specification (EWMH).")
4197     (license license:lgpl2.0+)))
4198
4199 ;; stable version for gtk2, required by xfwm4.
4200 (define-public libwnck-2
4201   (package (inherit libwnck)
4202     (name "libwnck")
4203     (version "2.30.7")
4204     (source (origin
4205               (method url-fetch)
4206               (uri (string-append "mirror://gnome/sources/" name "/"
4207                                   (version-major+minor version) "/"
4208                                   name "-" version ".tar.xz"))
4209               (sha256
4210                (base32
4211                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
4212     (build-system gnu-build-system)
4213     (native-inputs
4214      `(("pkg-config" ,pkg-config)
4215        ("intltool" ,intltool)))
4216     (propagated-inputs
4217      `(("gtk+" ,gtk+-2)
4218        ("libxres" ,libxres)
4219        ("startup-notification" ,startup-notification)))))
4220
4221 (define-public goffice
4222   (package
4223     (name "goffice")
4224     (version "0.10.50")
4225     (source (origin
4226               (method url-fetch)
4227               (uri (string-append "mirror://gnome/sources/goffice/"
4228                                   (version-major+minor version)  "/"
4229                                   "goffice-" version ".tar.xz"))
4230               (sha256
4231                (base32 "1p5zbj7cbcfcxd6l8pnph54p6ah1bwf146y810j4bcq8ggf3sp1c"))))
4232     (build-system gnu-build-system)
4233     (outputs '("out"
4234                "doc"))                  ; 4.0 MiB of gtk-doc
4235     (arguments
4236      '(#:configure-flags (list (string-append "--with-html-dir="
4237                                               (assoc-ref %outputs "doc")
4238                                               "/share/gtk-doc/html"))))
4239     (inputs
4240      `(("gtk+" ,gtk+)
4241        ("libgsf" ,libgsf)
4242        ("librsvg" ,librsvg)
4243        ("libxslt" ,libxslt)
4244        ("libxml2" ,libxml2)))
4245     (native-inputs
4246      `(("intltool" ,intltool)
4247        ("glib" ,glib "bin")
4248        ("pkg-config" ,pkg-config)))
4249     (home-page "https://developer.gnome.org/goffice/")
4250     (synopsis "Document-centric objects and utilities")
4251     (description "A GLib/GTK+ set of document-centric objects and utilities.")
4252     (license
4253      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4254      ;; Note: NOT LGPL
4255      (list license:gpl2 license:gpl3))))
4256
4257 (define-public goffice-0.8
4258   (package (inherit goffice)
4259     (version "0.8.17")
4260     (source (origin
4261               (method url-fetch)
4262               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4263                                   (version-major+minor version)  "/"
4264                                   (package-name goffice) "-" version ".tar.xz"))
4265               (sha256
4266                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4267     (arguments
4268      `(#:phases
4269        (modify-phases %standard-phases
4270          (add-after 'unpack 'fix-pcre-check
4271            (lambda _
4272              ;; Only glib.h can be included directly.  See
4273              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4274              (substitute* "configure"
4275                (("glib/gregex\\.h") "glib.h")) #t)))
4276
4277        ,@(package-arguments goffice)))
4278     (propagated-inputs
4279      ;; libgoffice-0.8.pc mentions libgsf-1
4280      `(("libgsf" ,libgsf)))
4281     (inputs
4282      `(("gtk" ,gtk+-2)
4283        ,@(alist-delete "gtk" (package-inputs goffice))))))
4284
4285 (define-public gnumeric
4286   (package
4287     (name "gnumeric")
4288     (version "1.12.50")
4289     (source (origin
4290               (method url-fetch)
4291               (uri (string-append "mirror://gnome/sources/gnumeric/"
4292                                   (version-major+minor version)  "/"
4293                                   "gnumeric-" version ".tar.xz"))
4294               (sha256
4295                (base32
4296                 "1f0lrj5msg80pgjp38jj6rddf352gwddgip7z4lki66n3fx1k23m"))))
4297     (build-system glib-or-gtk-build-system)
4298     (arguments
4299      `(;; The gnumeric developers don't worry much about failing tests.
4300        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
4301        #:tests? #f
4302        #:phases
4303        (modify-phases %standard-phases
4304          (add-before
4305           'configure 'pre-conf
4306            (lambda* (#:key outputs #:allow-other-keys)
4307              ;; Make install tries to write into the directory of goffice
4308              ;; I am informed that this only affects the possibility to embed a
4309              ;; spreadsheet inside an Abiword document.   So presumably when we
4310              ;; package Abiword we'll have to refer it to this directory.
4311              (substitute* "configure"
4312                (("^GOFFICE_PLUGINS_DIR=.*")
4313                 (string-append "GOFFICE_PLUGINS_DIR="
4314                                (assoc-ref outputs "out")
4315                                "/goffice/plugins"))))))))
4316     (inputs
4317      `(("glib" ,glib)
4318        ("gtk+" ,gtk+)
4319        ("goffice" ,goffice)
4320        ("libgsf" ,libgsf)
4321        ("librsvg" ,librsvg)
4322        ("libxml2" ,libxml2)
4323        ("libxslt" ,libxslt)
4324        ("python" ,python)
4325        ("python-pygobject" ,python-pygobject)
4326        ("zlib" ,zlib)))
4327     (native-inputs
4328      `(("bison" ,bison)
4329        ("docbook-xml" ,docbook-xml)
4330        ("intltool" ,intltool)
4331        ("itstool" ,itstool)
4332        ("glib:bin" ,glib "bin")
4333        ("pkg-config" ,pkg-config)))
4334     (home-page "http://www.gnumeric.org")
4335     (synopsis "Spreadsheet application")
4336     (description
4337      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
4338 interoperable with other spreadsheet applications.  It has a vast array of
4339 features beyond typical spreadsheet functionality, such as support for linear
4340 and non-linear solvers, statistical analysis, and telecommunication
4341 engineering.")
4342     (license
4343     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4344      (list license:gpl2 license:gpl3))))
4345
4346 (define-public drawing
4347   (package
4348     (name "drawing")
4349     (version "0.8.3")
4350     (source
4351      (origin
4352        (method git-fetch)
4353        (uri (git-reference
4354              (url "https://github.com/maoschanz/drawing")
4355              (commit version)))
4356        (file-name (git-file-name name version))
4357        (sha256
4358         (base32 "0wz9p47riyy3h8b0sqsb6bx416hc6d1a1wyzlfmsxkrqrkwcjcm8"))))
4359     (build-system meson-build-system)
4360     (arguments
4361      `(#:glib-or-gtk? #t
4362        #:phases
4363        (modify-phases %standard-phases
4364          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
4365            (lambda* (#:key outputs #:allow-other-keys)
4366              (let ((prog (string-append (assoc-ref outputs "out")
4367                                         "/bin/drawing"))
4368                    (pylib (string-append (assoc-ref outputs "out")
4369                                          "/lib/python"
4370                                          ,(version-major+minor
4371                                            (package-version python))
4372                                          "/site-packages")))
4373                (wrap-program prog
4374                  `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
4375                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))))
4376     (native-inputs
4377      `(("desktop-file-utils" ,desktop-file-utils)
4378        ("gettext" ,gettext-minimal)
4379        ("glib:bin" ,glib "bin")
4380        ("gobject-introspection" ,gobject-introspection)
4381        ("gtk+:bin" ,gtk+ "bin")
4382        ("pkg-config" ,pkg-config)))
4383     (inputs
4384      `(("librsvg" ,librsvg)
4385        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4386        ("gtk+" ,gtk+)
4387        ("pango" ,pango)
4388        ("python-pycairo" ,python-pycairo)
4389        ("python-pygobject" ,python-pygobject)))
4390     (home-page "https://maoschanz.github.io/drawing/")
4391     (synopsis "Basic image editor for GNOME")
4392     (description
4393      "Drawing is a basic image editor aiming at the GNOME desktop.")
4394     (license license:gpl3+)))
4395
4396 (define-public gnome-themes-standard
4397   (package
4398     (name "gnome-themes-standard")
4399     (version "3.22.3")
4400     (source
4401      (origin
4402        (method url-fetch)
4403        (uri (string-append "mirror://gnome/sources/" name "/"
4404                            (version-major+minor version) "/" name "-"
4405                            version ".tar.xz"))
4406        (sha256
4407         (base32
4408          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
4409     (build-system gnu-build-system)
4410     (arguments
4411      '(#:configure-flags
4412        ;; Don't create 'icon-theme.cache'.
4413        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
4414               (true      (string-append coreutils "/bin/true")))
4415          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
4416     (inputs
4417      `(("gtk+" ,gtk+)
4418        ("gtk+-2" ,gtk+-2)
4419        ("librsvg" ,librsvg)
4420        ("libxml2" ,libxml2)
4421        ("glib" ,glib)))
4422     (native-inputs
4423      `(("intltool" ,intltool)
4424        ("glib:bin" ,glib "bin")
4425        ("pkg-config" ,pkg-config)))
4426     (home-page "https://launchpad.net/gnome-themes-standard")
4427     (synopsis "Default GNOME 3 themes")
4428     (description
4429      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
4430     (license license:lgpl2.1+)))
4431
4432 (define-public seahorse
4433   (package
4434     (name "seahorse")
4435     (version "41.0")
4436     (source
4437      (origin
4438        (method url-fetch)
4439        (uri (string-append "mirror://gnome/sources/" name "/"
4440                            (version-major version) "/" name "-"
4441                            version ".tar.xz"))
4442        (sha256
4443         (base32 "1x99i7kdvd8hbxcs5rfrq7nw6r9bfzaw263zaigjjj04h6gc1vp6"))))
4444     (build-system meson-build-system)
4445     (arguments
4446      '(#:glib-or-gtk? #t
4447        #:phases
4448        (modify-phases %standard-phases
4449          (add-after 'unpack 'skip-gtk-update-icon-cache
4450            ;; Don't create 'icon-theme.cache'.
4451            (lambda _
4452              (substitute* "build-aux/meson_post_install.py"
4453                (("gtk-update-icon-cache") "true"))
4454              #t))
4455          (add-before 'check 'pre-check
4456            (lambda _
4457              ;; Tests require a writable HOME.
4458              (setenv "HOME" (getcwd)))))))
4459     (inputs
4460      `(("gtk+" ,gtk+)
4461        ("gcr" ,gcr)
4462        ("gnupg" ,gnupg)
4463        ("gpgme" ,gpgme)
4464        ("openldap" ,openldap)
4465        ("openssh" ,openssh)
4466        ("avahi" ,avahi)
4467        ("libhandy" ,libhandy)
4468        ("libpwquality" ,libpwquality)
4469        ("libsecret" ,libsecret)
4470        ("libsoup" ,libsoup-minimal-2)))
4471     (native-inputs
4472      `(("gettext" ,gettext-minimal)
4473        ("glib:bin" ,glib "bin")
4474        ("itstool" ,itstool)
4475        ("pkg-config" ,pkg-config)
4476        ("vala" ,vala)
4477        ("xmllint" ,libxml2)))
4478     (home-page "https://wiki.gnome.org/Apps/Seahorse")
4479     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4480     (description
4481      "Seahorse is a GNOME application for managing encryption keys and
4482 passwords in the GNOME keyring.")
4483     (license license:gpl2+)))
4484
4485 (define-public vala
4486   (package
4487     (name "vala")
4488     (version "0.54.2")
4489     (source (origin
4490               (method url-fetch)
4491               (uri (string-append "mirror://gnome/sources/vala/"
4492                                   (version-major+minor version) "/"
4493                                   "vala-" version ".tar.xz"))
4494               (sha256
4495                (base32
4496                 "048k5c6c6y7jyb961krnrb7m0kghr0yrkpnfx3j5ckbx652yfkc8"))))
4497     (build-system glib-or-gtk-build-system)
4498     (arguments
4499      '(#:configure-flags '("--enable-coverage")
4500        #:phases
4501        (modify-phases %standard-phases
4502          (add-after 'unpack 'patch-docbook-xml
4503            (lambda* (#:key inputs #:allow-other-keys)
4504              (with-directory-excursion "doc/manual"
4505                (substitute* '("manual.xml" "version.xml.in")
4506                  (("http://www.oasis-open.org/docbook/xml/4.4/")
4507                   (string-append (assoc-ref inputs "docbook-xml")
4508                                  "/xml/dtd/docbook/"))))))
4509          (add-before 'check 'pre-check
4510            (lambda _
4511              (setenv "CC" "gcc")
4512              (substitute* "valadoc/tests/libvaladoc\
4513 /tests-extra-environment.sh"
4514                (("export PKG_CONFIG_PATH=" m)
4515                 (string-append m "$PKG_CONFIG_PATH:"))))))))
4516     (native-inputs
4517      `(("bison" ,bison)
4518        ("dbus" ,dbus)                   ; for dbus tests
4519        ("docbook-xml" ,docbook-xml-4.4)
4520        ("docbook-xsl" ,docbook-xsl)
4521        ("flex" ,flex)
4522        ("gobject-introspection" ,gobject-introspection) ; for gir tests
4523        ("help2man" ,help2man)
4524        ("perl" ,perl)
4525        ("pkg-config" ,pkg-config)
4526        ("xsltproc" ,libxslt)))
4527     (propagated-inputs
4528      `(("glib" ,glib)                   ; required by libvala-0.40.pc
4529        ("libgvc" ,graphviz)))
4530     (home-page "https://wiki.gnome.org/Projects/Vala/")
4531     (synopsis "Compiler using the GObject type system")
4532     (description "Vala is a programming language using modern high level
4533 abstractions without imposing additional runtime requirements and without using
4534 a different ABI compared to applications and libraries written in C.  Vala uses
4535 the GObject type system and has additional code generation routines that make
4536 targeting the GNOME stack simple.")
4537     (license license:lgpl2.1+)))
4538
4539 ;;; An older variant kept to build libsoup-minimal-2.
4540 (define-public vala-0.52
4541   (package/inherit vala
4542     (version "0.52.0")
4543     (source (origin
4544               (method url-fetch)
4545               (uri (string-append "mirror://gnome/sources/vala/"
4546                                   (version-major+minor version) "/"
4547                                   "vala-" version ".tar.xz"))
4548               (sha256
4549                (base32
4550                 "12y6p8wdjp01vmfhxg2cgh32xnyqq6ivblvrar9clnj6vc867qhx"))))))
4551
4552 (define-public vte
4553   (package
4554     (name "vte")
4555     (version "0.64.2")
4556     (source (origin
4557               (method url-fetch)
4558               (uri (string-append "mirror://gnome/sources/vte/"
4559                                   (version-major+minor version) "/"
4560                                   "vte-" version ".tar.xz"))
4561               (sha256
4562                (base32
4563                 "063ys3330cvhbz1dln9irhciavb2prw098lvhpcc2rx6cl5q4g1b"))))
4564     (build-system meson-build-system)
4565     (arguments
4566      `(#:configure-flags
4567        '("-Dvapi=true"
4568          "-D_systemd=false")))
4569     (native-inputs
4570      `(("pkg-config" ,pkg-config)
4571        ("gettext" ,gettext-minimal)
4572        ("vala" ,vala)
4573        ("gobject-introspection" ,gobject-introspection)
4574        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
4575        ("gperf" ,gperf)
4576        ("xmllint" ,libxml2)))
4577     (propagated-inputs
4578      `(("gtk+" ,gtk+)                   ; required by vte-2.91.pc
4579        ("gnutls" ,gnutls)               ; ditto
4580        ("pcre2" ,pcre2)))               ; ditto
4581     (home-page "https://www.gnome.org/")
4582     (synopsis "Virtual Terminal Emulator")
4583     (description
4584      "VTE is a library (libvte) implementing a terminal emulator widget for
4585 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
4586 gnome-terminal, but can also be used to embed a console/terminal in games,
4587 editors, IDEs, etc.")
4588     (license license:lgpl2.1+)))
4589
4590 (define-public vte-ng
4591   (package
4592     (inherit vte)
4593     (name "vte-ng")
4594     (version "0.58.2.a")
4595     (home-page "https://github.com/thestinger/vte-ng")
4596     (source (origin
4597               (method git-fetch)
4598               (uri (git-reference (url home-page) (commit version)))
4599               (file-name (git-file-name name version))
4600               (sha256
4601                (base32
4602                 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4603     (build-system meson-build-system)
4604     (native-inputs
4605      `(("gtk-doc" ,gtk-doc/stable)
4606        ,@(package-native-inputs vte)))
4607     (arguments
4608      `(#:configure-flags '("-Ddocs=true")))
4609   (synopsis "Enhanced VTE terminal widget")
4610   (description
4611    "VTE is a library (libvte) implementing a terminal emulator widget for
4612 GTK+, this fork provides additional functions exposed for keyboard text
4613 selection and URL hints.")))
4614
4615 ;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
4616 (define-public vte/gtk+-2
4617   (package (inherit vte)
4618     (name "vte")
4619     (version "0.28.2")
4620     (source (origin
4621               (method url-fetch)
4622               (uri (string-append "mirror://gnome/sources/" name "/"
4623                                   (version-major+minor version) "/"
4624                                   name "-" version ".tar.xz"))
4625               (sha256
4626                (base32
4627                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4628               (patches (search-patches
4629                          "vte-CVE-2012-2738-pt1.patch"
4630                          "vte-CVE-2012-2738-pt2.patch"))))
4631     (build-system gnu-build-system)
4632     (arguments
4633      '(#:configure-flags '("--disable-python")))
4634     (native-inputs
4635      `(("pkg-config" ,pkg-config)
4636        ("intltool" ,intltool)
4637        ("glib" ,glib "bin")))   ; for glib-genmarshal, etc.
4638     (propagated-inputs
4639      `(("gtk+" ,gtk+-2)         ; required by libvte.pc
4640        ("ncurses" ,ncurses))))) ; required by libvte.la
4641
4642 (define-public vinagre
4643   (package
4644     (name "vinagre")
4645     (version "3.22.0")
4646     (source (origin
4647               (method url-fetch)
4648               (uri (string-append "mirror://gnome/sources/" name "/"
4649                                   (version-major+minor version) "/"
4650                                   name "-" version ".tar.xz"))
4651               (patches (search-patches "vinagre-newer-freerdp.patch"
4652                                        "vinagre-newer-rdp-parameters.patch"))
4653               (sha256
4654                (base32
4655                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4656     (build-system glib-or-gtk-build-system)
4657     (arguments
4658      ;; Disable -Werror and such, to avoid build failures on compilation
4659      ;; warnings.
4660      '(#:configure-flags '("--enable-compile-warnings=minimum"
4661                            "CFLAGS=-O2 -g -fcommon")
4662        #:phases
4663        (modify-phases %standard-phases
4664          (add-before 'install 'skip-gtk-update-icon-cache
4665            (lambda _
4666              ;; Don't create 'icon-theme.cache'
4667              (substitute* (find-files "." "^Makefile$")
4668                (("gtk-update-icon-cache") (which "true")))
4669              #t))
4670          (add-after 'unpack 'patch-configure
4671            (lambda _
4672              (substitute* "configure"
4673                (("freerdp") "freerdp2"))
4674              #t)))))
4675     (native-inputs
4676      `(("pkg-config" ,pkg-config)
4677        ("intltool" ,intltool)
4678        ("itstool" ,itstool)
4679        ("glib-bin" ,glib "bin")))                 ;for glib-compile-schemas
4680     (inputs
4681      `(("libxml2" ,libxml2)
4682        ("gtk-vnc" ,gtk-vnc)
4683        ("gnome-keyring" ,gnome-keyring)
4684        ("libsecret" ,libsecret)
4685        ("freerdp" ,freerdp)
4686        ("spice" ,spice)
4687        ("spice-gtk" ,spice-gtk)
4688        ("telepathy-glib" ,telepathy-glib)
4689        ("vte" ,vte)))
4690     (home-page "https://wiki.gnome.org/Apps/Vinagre")
4691     (synopsis "Remote desktop viewer for GNOME")
4692     (description "Vinagre is a remote display client supporting the VNC, SPICE
4693 and RDP protocols.")
4694     (license license:gpl3+)))
4695
4696 (define-public dconf
4697   (package
4698     (name "dconf")
4699     (version "0.40.0")
4700     (source (origin
4701               (method url-fetch)
4702               (uri (string-append
4703                     "mirror://gnome/sources/" name "/"
4704                     (version-major+minor version) "/"
4705                     name "-" version ".tar.xz"))
4706               (sha256
4707                (base32
4708                 "0cs5nayg080y8pb9b7qccm1ni8wkicdmqp1jsgc22110r6j24zyg"))))
4709     (build-system meson-build-system)
4710     (propagated-inputs
4711      ;; In Requires of dconf.pc.
4712      `(("glib" ,glib)))
4713     (inputs
4714      `(("gtk+" ,gtk+)
4715        ("dbus" ,dbus)))
4716     (native-inputs
4717      `(("bash-completion" ,bash-completion)
4718        ("libxslt" ,libxslt)                     ;for xsltproc
4719        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
4720        ("docbook-xml" ,docbook-xml-4.2)
4721        ("docbook-xsl" ,docbook-xsl)
4722        ("glib:bin" ,glib "bin")
4723        ("gtk-doc" ,gtk-doc/stable)
4724        ("pkg-config" ,pkg-config)
4725        ("vala" ,vala)))
4726     (arguments
4727      `(#:glib-or-gtk? #t
4728        #:configure-flags '("-Dgtk_doc=true")
4729        #:phases (modify-phases %standard-phases
4730                   (add-after 'unpack 'increase-test-timeout
4731                     (lambda _
4732                       ;; On big-memory systems, the engine test may take
4733                       ;; much longer than the default of 30 seconds.
4734                       (substitute* "tests/meson.build"
4735                         (("test\\(unit_test\\[0\\], exe" all)
4736                          (string-append all ", timeout: 300"))))))))
4737     (home-page "https://developer.gnome.org/dconf/")
4738     (synopsis "Low-level GNOME configuration system")
4739     (description "Dconf is a low-level configuration system.  Its main purpose
4740 is to provide a backend to GSettings on platforms that don't already have
4741 configuration storage systems.")
4742     (license license:lgpl2.1+)))
4743
4744 (define-public json-glib-minimal
4745   (package
4746     (name "json-glib-minimal")
4747     (version "1.6.2")
4748     (source (origin
4749               (method url-fetch)
4750               (uri (string-append "mirror://gnome/sources/json-glib/"
4751                                   (version-major+minor version)
4752                                   "/json-glib-" version ".tar.xz"))
4753               (sha256
4754                (base32
4755                 "092g2dyy1hhl0ix9kp33wcab0pg1qicnsv0cj5ms9g9qs336cgd3"))))
4756     (build-system meson-build-system)
4757     (arguments
4758      `(#:glib-or-gtk? #t))           ; To wrap binaries and/or compile schemas
4759     (native-inputs
4760      `(("gettext" ,gettext-minimal)
4761        ("glib" ,glib "bin")             ;for glib-mkenums and glib-genmarshal
4762        ("pkg-config" ,pkg-config)))
4763     (inputs
4764      `(("bash-minimal" ,bash-minimal)))
4765     (propagated-inputs
4766      `(("glib" ,glib)))                 ;according to json-glib-1.0.pc
4767     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4768     (synopsis "Glib and GObject implementation of JSON")
4769     (description "JSON-GLib is a library providing serialization and
4770 described by RFC 4627.  It implements a full JSON parser and generator using
4771 GLib and GObject, and integrates JSON with GLib data types.")
4772     (license license:lgpl2.1+)))
4773
4774 (define-public json-glib
4775   (package/inherit json-glib-minimal
4776     (name "json-glib")
4777     (outputs (cons "doc" (package-outputs json-glib-minimal)))
4778     (arguments
4779      (substitute-keyword-arguments (package-arguments json-glib-minimal)
4780        ((#:configure-flags _)
4781         `(list "-Ddocs=true"
4782                "-Dman=true"
4783                ,@(if (%current-target-system)
4784                      ;; If enabled, gtkdoc-scangobj will try to execute a
4785                      ;; cross-compiled binary.
4786                      '("-Dgtk_doc=disabled"
4787                        ;; Trying to build introspection data when cross-compiling
4788                        ;; causes errors during linking.
4789                        "-Dintrospection=disabled")
4790                      '())))
4791        ((#:phases phases '%standard-phases)
4792         `(modify-phases ,phases
4793            (add-after 'unpack 'patch-docbook
4794              (lambda* (#:key native-inputs inputs #:allow-other-keys)
4795                (with-directory-excursion "doc"
4796                  (substitute* (find-files "." "\\.xml$")
4797                    (("http://www.oasis-open.org/docbook/xml/4\\.3/")
4798                     (string-append (assoc-ref (or native-inputs inputs)
4799                                               "docbook-xml")
4800                                    "/xml/dtd/docbook/")))
4801                  (substitute* "meson.build"
4802                    (("http://docbook.sourceforge.net/release/xsl/current/")
4803                     (string-append (assoc-ref (or native-inputs inputs)
4804                                               "docbook-xsl")
4805                                    "/xml/xsl/docbook-xsl-1.79.2/"))))))
4806            ;; When cross-compiling, there are no docs to move.
4807            ,(if (%current-target-system)
4808                 '(add-after 'install 'stub-docs
4809                    (lambda* (#:key outputs #:allow-other-keys)
4810                      ;; The daemon doesn't like empty output paths.
4811                      (mkdir (assoc-ref outputs "doc"))))
4812                 '(add-after 'install 'move-docs
4813                    (lambda* (#:key outputs #:allow-other-keys)
4814                      (let* ((out (assoc-ref outputs "out"))
4815                             (doc (assoc-ref outputs "doc")))
4816                        (mkdir-p (string-append doc "/share"))
4817                        (rename-file
4818                         (string-append out "/share/gtk-doc")
4819                         (string-append doc "/share/gtk-doc"))))))))))
4820     (native-inputs
4821      (append
4822          `(("docbook-xml" ,docbook-xml-4.3)
4823            ("docbook-xsl" ,docbook-xsl)
4824            ("gobject-introspection" ,gobject-introspection)
4825            ("gtk-doc" ,gtk-doc)
4826            ("xsltproc" ,libxslt))
4827          (package-native-inputs json-glib-minimal)))))
4828
4829 (define-public libxklavier
4830   (package
4831     (name "libxklavier")
4832     (version "5.4")
4833     (source (origin
4834               ;; Note: There's no tarball at ftp.gnome.org for this version.
4835               (method git-fetch)
4836               (uri (git-reference
4837                     (url "https://anongit.freedesktop.org/git/libxklavier")
4838                     (commit (string-append "libxklavier-" version))))
4839               (sha256
4840                (base32
4841                 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4842               (file-name (git-file-name name version))))
4843     (build-system gnu-build-system)
4844     (arguments
4845      '(#:configure-flags
4846        (list (string-append "--with-xkb-base="
4847                             (assoc-ref %build-inputs "xkeyboard-config")
4848                             "/share/X11/xkb")
4849              "--disable-xmodmap-support")))
4850     (native-inputs
4851      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
4852        ("gobject-introspection" ,gobject-introspection)
4853        ("pkg-config"            ,pkg-config)
4854        ("gtk-doc" ,gtk-doc/stable)
4855        ("intltool" ,intltool)
4856        ("which" ,which)
4857        ("autoconf" ,autoconf)
4858        ("automake" ,automake)
4859        ("libtool" ,libtool)))
4860     (propagated-inputs
4861      ;; Required by libxklavier.pc.
4862      `(("glib"    ,glib)
4863        ("libxml2" ,libxml2)))
4864     (inputs
4865      `(("iso-codes"        ,iso-codes)
4866        ("libxi"            ,libxi)
4867        ("libxkbfile"       ,libxkbfile)
4868        ("xkbcomp"          ,xkbcomp)
4869        ("xkeyboard-config" ,xkeyboard-config)))
4870     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
4871     (synopsis "High-level API for X Keyboard Extension")
4872     (description
4873      "LibXklavier is a library providing high-level API for X Keyboard
4874 Extension known as XKB.  This library is intended to support XFree86 and other
4875 commercial X servers.  It is useful for creating XKB-related software (layout
4876 indicators etc).")
4877     (license license:lgpl2.0+)))
4878
4879 (define-public python2-rsvg
4880   ;; XXX: This is actually a subset of gnome-python-desktop.
4881   (package
4882     (name "python2-rsvg")
4883     (version "2.32.0")
4884     (source
4885      (origin
4886        (method url-fetch)
4887        (uri (string-append
4888              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
4889              version ".tar.bz2"))
4890        (sha256
4891         (base32
4892          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
4893     (build-system gnu-build-system)
4894     (native-inputs
4895      `(("pkg-config" ,pkg-config)))
4896     (inputs
4897      `(("python" ,python-2)
4898        ("python2-pygtk" ,python2-pygtk)
4899        ("librsvg" ,librsvg)))
4900     (home-page "https://www.gnome.org")
4901     (synopsis "Python bindings to librsvg")
4902     (description
4903      "This package provides Python bindings to librsvg, the SVG rendering
4904 library.")
4905
4906     ;; This is the license of the rsvg bindings.  The license of each module
4907     ;; of gnome-python-desktop is given in 'COPYING'.
4908     (license license:lgpl2.1+)))
4909
4910 (define-public glib-networking
4911   (package
4912     (name "glib-networking")
4913     (version "2.70.0")
4914     (source (origin
4915               (method url-fetch)
4916               (uri (string-append "mirror://gnome/sources/glib-networking/"
4917                                   (version-major+minor version) "/"
4918                                   "glib-networking-" version ".tar.xz"))
4919               (sha256
4920                (base32
4921                 "0dbg1na239mbavn4hknkax5sns9q2dbdnqw9wcpmhv58mzkhid36"))
4922               (patches
4923                (search-patches "glib-networking-gnutls-binding.patch"))))
4924     (build-system meson-build-system)
4925     (arguments
4926      (if (target-64bit?)
4927          '()
4928          (list #:phases
4929                #~(modify-phases %standard-phases
4930                    (add-after 'unpack 'work-around-32-bit-time-t
4931                      (lambda _
4932                        (invoke "patch" "--force" "-p1" "-i"
4933                                #$(local-file
4934                                   (search-patch
4935                                    "glib-networking-32-bit-time.patch")))))))))
4936     (native-inputs
4937      `(("pkg-config" ,pkg-config)
4938        ("gettext" ,gettext-minimal)))
4939     (inputs
4940      `(("glib" ,glib)
4941        ("gnutls" ,gnutls)
4942        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4943        ("libproxy" ,libproxy)))
4944     (home-page "https://wiki.gnome.org/Projects/GLib")
4945     (synopsis "Network extensions for GLib")
4946     (description
4947      "Glib-networking contains the implementations of certain GLib networking
4948 features that cannot be implemented directly in GLib itself because of their
4949 dependencies.  Currently it contains GnuTLS and OpenSSL-based implementations of
4950 GTlsBackend, a libproxy-based implementation of GProxyResolver,
4951 GLibproxyResolver, and a GNOME GProxyResolver that uses the proxy information
4952 from the GSettings schemas in gsettings-desktop-schemas.")
4953     (license license:lgpl2.1+)))
4954
4955 (define-public rest
4956   (package
4957     (name "rest")
4958     (version "0.8.1")
4959     (source (origin
4960               (method url-fetch)
4961               (uri (string-append "mirror://gnome/sources/rest/"
4962                                   (version-major+minor version) "/"
4963                                   name "-" version ".tar.xz"))
4964               (sha256
4965                (base32
4966                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4967     (build-system gnu-build-system)
4968     (arguments
4969      '(#:tests? #f ; tests require internet connection
4970        #:configure-flags
4971        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4972     (native-inputs
4973      `(("glib-mkenums" ,glib "bin")
4974        ("gobject-introspection" ,gobject-introspection)
4975        ("pkg-config" ,pkg-config)))
4976     (propagated-inputs
4977      ;; rest-0.7.pc refers to all these.
4978      `(("glib"    ,glib)
4979        ("libsoup" ,libsoup-minimal-2)
4980        ("libxml2" ,libxml2)))
4981     (home-page "https://www.gtk.org/")
4982     (synopsis "RESTful web api query library")
4983     (description
4984      "This library was designed to make it easier to access web services that
4985 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
4986 libxml to ease remote use of the RESTful API.")
4987     (license license:lgpl2.1+)))
4988
4989 ;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4990 (define-public libsoup-minimal
4991   (package
4992     (name "libsoup-minimal")
4993     (version "3.0.3")
4994     (source (origin
4995               (method url-fetch)
4996               (uri (string-append "mirror://gnome/sources/libsoup/"
4997                                   (version-major+minor version) "/"
4998                                   "libsoup-" version ".tar.xz"))
4999               (sha256
5000                (base32
5001                 "0pp2s9rj7pp45ac99hbqszznln5ljj38cbc8lbljfc5fmm6v0rai"))))
5002     (build-system meson-build-system)
5003     (arguments
5004      `(#:configure-flags '("-Dgtk_doc=false")
5005        #:phases
5006        (modify-phases %standard-phases
5007          (add-after 'unpack 'adjust-tests
5008            (lambda _
5009              ;; This test fails due to missing /etc/nsswitch.conf
5010              ;; in the build environment.
5011              (substitute* "tests/socket-test.c"
5012                ((".*/sockets/unconnected.*") ""))
5013
5014              ;; These fail because "subdomain.localhost" does not resolve in
5015              ;; the build environment.  Moreover, the hsts-test suite fails on
5016              ;; i686-linux because of errors from `session_get_uri' like
5017              ;; "Unexpected status 200 OK (expected 301 Moved Permanently)"
5018              ;; (see: https://gitlab.gnome.org/GNOME/libsoup/-/issues/239).
5019              (substitute* "tests/meson.build"
5020                ((".*'name': 'hsts'.*") ""))
5021              (substitute* "tests/hsts-db-test.c"
5022                ((".*/hsts-db/subdomains.*") "")))))))
5023     (native-inputs
5024      `(("glib:bin" ,glib "bin")         ;for glib-mkenums
5025        ("gobject-introspection" ,gobject-introspection)
5026        ("intltool" ,intltool)
5027        ("pkg-config" ,pkg-config)
5028        ("python" ,python-wrapper)
5029        ("vala" ,vala)
5030        ("php" ,php)
5031        ("curl" ,curl)
5032        ("gnutls" ,gnutls)               ;for 'certtool'
5033        ("httpd" ,httpd)))
5034     (propagated-inputs
5035      ;; libsoup-3.0.pc refers to all of these (except where otherwise noted)
5036      `(("brotli" ,brotli)
5037        ("glib" ,glib)
5038        ("glib-networking" ,glib-networking) ; for GIO runtime modules
5039        ("libpsl" ,libpsl)
5040        ("nghttp2" ,nghttp2)             ;for pkg-config
5041        ("nghttp2:lib" ,nghttp2 "lib")
5042        ("libxml2" ,libxml2)
5043        ("sqlite" ,sqlite)
5044        ("zlib" ,zlib)))
5045     (inputs
5046      `(("mit-krb5" ,mit-krb5)
5047        ("ntlm_auth" ,samba/fixed)))     ; For ntlm_auth support
5048     (home-page "https://wiki.gnome.org/Projects/libsoup")
5049     (synopsis "GLib-based HTTP Library")
5050     (description
5051      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
5052 and the GLib main loop, to integrate well with GNOME applications.")
5053     (license license:lgpl2.0+)))
5054
5055 ;;; An older variant kept to build the 'rest' package.
5056 (define-public libsoup-minimal-2
5057   (package/inherit libsoup-minimal
5058     (version "2.72.0")
5059     (source (origin
5060               (method url-fetch)
5061               (uri (string-append "mirror://gnome/sources/libsoup/"
5062                                   (version-major+minor version) "/"
5063                                   "libsoup-" version ".tar.xz"))
5064               (sha256
5065                (base32
5066                 "11skbyw2pw32178q3h8pi7xqa41b2x4k6q4k9f75zxmh8s23y30p"))))
5067     (arguments
5068      (substitute-keyword-arguments (package-arguments libsoup-minimal)
5069        ((#:phases phases)
5070         `(modify-phases ,phases
5071            (add-after 'unpack 'disable-failing-tests
5072              (lambda _
5073                ;; Disable the SSL test, failing since 2.68 and resolved in
5074                ;; libsoup 3.
5075                (substitute* "tests/meson.build"
5076                  (("[ \t]*\\['ssl', true, \\[\\]\\],") ""))))))))
5077     (native-inputs
5078      (cons `("vala" ,vala-0.52)
5079            (delete "vala" (package-native-inputs libsoup-minimal))))))
5080
5081 (define-public libsoup
5082   (package/inherit libsoup-minimal
5083     (name "libsoup")
5084     (outputs (cons "doc" (package-outputs libsoup-minimal)))
5085     (arguments
5086      (substitute-keyword-arguments (package-arguments libsoup-minimal)
5087        ((#:configure-flags configure-flags)
5088         `(cons "-Dgtk_doc=true"
5089                (delete "-Dgtk_doc=false" ,configure-flags)))
5090        ((#:phases phases)
5091         `(modify-phases ,phases
5092            (add-after 'unpack 'patch-docbook-xml
5093              (lambda* (#:key inputs #:allow-other-keys)
5094                (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
5095                                             "/xml/dtd/docbook")))
5096                  (substitute* (find-files "docs/reference")
5097                    (("http://.*/docbookx\\.dtd")
5098                     (string-append xmldoc "/docbookx.dtd"))))))
5099            (add-after 'install 'move-doc
5100              (lambda* (#:key outputs #:allow-other-keys)
5101                (let ((out (assoc-ref outputs "out"))
5102                      (doc (assoc-ref outputs "doc")))
5103                  (mkdir-p (string-append doc "/share"))
5104                  (copy-recursively (string-append out "/share/gtk-doc")
5105                                    (string-append doc "/share/gtk-doc"))
5106                  (delete-file-recursively
5107                   (string-append out "/share/gtk-doc")))))))))
5108     (native-inputs (append `(("docbook-xml" ,docbook-xml-4.1.2)
5109                              ("gtk-doc" ,gtk-doc))
5110                        (package-native-inputs libsoup-minimal)))))
5111
5112 (define-public libsecret
5113   (package
5114     (name "libsecret")
5115     (version "0.20.4")
5116     (source (origin
5117               (method url-fetch)
5118               (uri (string-append
5119                     "mirror://gnome/sources/libsecret/"
5120                     (version-major+minor version) "/"
5121                     "libsecret-" version ".tar.xz"))
5122               (sha256
5123                (base32
5124                 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
5125     (build-system gnu-build-system)
5126     (outputs '("out" "doc"))
5127     (arguments
5128      `(#:tests? #f ; FIXME: Testing hangs.
5129        #:configure-flags
5130        (list (string-append "--with-html-dir="
5131                             (assoc-ref %outputs "doc")
5132                             "/share/gtk-doc/html"))))
5133     (native-inputs
5134      `(("gettext" ,gettext-minimal)
5135        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
5136        ("gobject-introspection" ,gobject-introspection)
5137        ("pkg-config" ,pkg-config)
5138        ("vala" ,vala)
5139        ("xsltproc" ,libxslt)))
5140        ;; These are needed for the tests.
5141        ;; FIXME: Add gjs once available.
5142        ;("dbus" ,dbus)
5143        ;("python2" ,python-2)
5144        ;("python2-dbus" ,python2-dbus)
5145        ;("python2-pygobject" ,python2-pygobject)
5146        ;("python2-pygobject-2" ,python2-pygobject-2)))
5147     (propagated-inputs
5148      `(("glib" ,glib))) ; required by libsecret-1.pc
5149     (inputs
5150      ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
5151      ;; doesn't seem to affect the build result.
5152      `(("docbook-xsl" ,docbook-xsl)
5153        ("libgcrypt" ,libgcrypt)
5154        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
5155     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
5156     (synopsis "GObject bindings for \"Secret Service\" API")
5157     (description
5158      "Libsecret is a GObject based library for storing and retrieving passwords
5159 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
5160     (license license:lgpl2.1+)))
5161
5162 (define-public five-or-more
5163   (package
5164     (name "five-or-more")
5165     (version "3.32.2")
5166     (source
5167      (origin
5168        (method url-fetch)
5169        (uri (string-append "mirror://gnome/sources/five-or-more/"
5170                            (version-major+minor version) "/"
5171                            "five-or-more-" version ".tar.xz"))
5172        (sha256
5173         (base32 "19pf8wzbf3ciqf2k4bj9sddvyhckfd62x86pnqr6s8h4vn9jc6ii"))))
5174     (build-system meson-build-system)
5175     (arguments
5176      '(#:glib-or-gtk? #t
5177        #:phases
5178        (modify-phases %standard-phases
5179          (add-after 'unpack 'skip-gtk-update-icon-cache
5180            (lambda _
5181              (substitute* "meson_post_install.py"
5182                (("gtk-update-icon-cache") (which "true")))
5183              #t)))))
5184     (native-inputs
5185      `(("pkg-config" ,pkg-config)
5186        ("appstream-glib" ,appstream-glib)
5187        ("desktop-file-utils" ,desktop-file-utils)
5188        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5189        ("intltool" ,intltool)
5190        ("itstool" ,itstool)
5191        ("vala" ,vala)
5192        ("xmllint" ,libxml2)))
5193     (inputs
5194      `(("gtk+" ,gtk+)
5195        ("libgnome-games-support" ,libgnome-games-support)
5196        ("librsvg" ,librsvg)))
5197     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
5198     (synopsis "Logic puzzle game")
5199     (description "Five or More is a game where you try to align
5200  five or more objects of the same color and shape causing them to disappear.
5201  On every turn more objects will appear, until the board is full.
5202  Try to last as long as possible.")
5203     (license license:gpl2+)))
5204
5205 (define-public gnome-mines
5206   (package
5207     (name "gnome-mines")
5208     (version "40.0")
5209     (source
5210      (origin
5211        (method url-fetch)
5212        (uri (string-append "mirror://gnome/sources/" name "/"
5213                            (version-major version) "/"
5214                            name "-" version ".tar.xz"))
5215        (sha256
5216         (base32 "0sf6kdvhr4pr3hddnj6ql9larz2wy108sri31id6x9g459nbly8z"))))
5217     (build-system meson-build-system)
5218     (arguments
5219      `(#:glib-or-gtk? #t
5220        #:meson ,meson-0.59
5221        #:phases
5222        (modify-phases %standard-phases
5223          (add-after 'unpack 'skip-gtk-update-icon-cache
5224            (lambda _
5225              (substitute* "build-aux/meson_post_install.py"
5226                (("gtk-update-icon-cache") (which "true"))))))))
5227     (native-inputs
5228      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
5229        ("pkg-config" ,pkg-config)
5230        ("desktop-file-utils" ,desktop-file-utils)
5231        ("intltool" ,intltool)
5232        ("itstool" ,itstool)
5233        ("vala" ,vala)
5234        ("yelp" ,yelp)
5235        ("appstream-glib" ,appstream-glib)))
5236     (inputs
5237      `(("gtk+" ,gtk+)
5238        ("libgnome-games-support" ,libgnome-games-support)
5239        ("librsvg" ,librsvg)))
5240     (home-page "https://wiki.gnome.org/Apps/Mines")
5241     (synopsis "Minesweeper game")
5242     (description
5243      "Mines (previously gnomine) is a puzzle game where you locate mines
5244 floating in an ocean using only your brain and a little bit of luck.")
5245     (license license:gpl2+)))
5246
5247 (define-public gnome-multi-writer
5248   (package
5249     (name "gnome-multi-writer")
5250     (version "3.35.90")
5251     (source
5252      (origin
5253        (method url-fetch)
5254        (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
5255                            (version-major+minor version) "/"
5256                            "gnome-multi-writer-" version ".tar.xz"))
5257        (sha256
5258         (base32
5259          "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
5260     (build-system meson-build-system)
5261     (arguments
5262      '(#:glib-or-gtk? #t
5263        #:phases
5264        (modify-phases %standard-phases
5265          (add-after 'unpack 'skip-post-install
5266            (lambda _
5267              (substitute* "meson.build"
5268                (("meson.add_install_script" &) (string-append "# " &)))
5269              #t)))))
5270     (native-inputs
5271      `(("glib:bin" ,glib "bin")
5272        ("pkg-config" ,pkg-config)))
5273     (inputs
5274      `(("gtk+" ,gtk+)
5275        ("glib" ,glib)                   ; for gio
5276        ("gusb" ,gusb)
5277        ("udisks" ,udisks)
5278        ("libgudev" ,libgudev)
5279        ("libcanberra" ,libcanberra)
5280        ("polkit" ,polkit)))
5281     (home-page "https://wiki.gnome.org/Apps/MultiWriter")
5282     (synopsis "Write to multiple USB devices at once")
5283     (description
5284      "MultiWriter can be used to write an ISO file to multiple USB devices at
5285 once.")
5286     (license license:gpl2+)))
5287
5288 (define-public gnome-sudoku
5289   (package
5290     (name "gnome-sudoku")
5291     (version "40.2")
5292     (source
5293      (origin
5294        (method url-fetch)
5295        (uri (string-append "mirror://gnome/sources/" name "/"
5296                            (version-major version) "/"
5297                            name "-" version ".tar.xz"))
5298        (sha256
5299         (base32
5300          "18slsxifad5cjz4fqi818i66jc9b7kzgn01qxa0ra4y7wcqha4in"))))
5301     (build-system meson-build-system)
5302     (arguments
5303      `(#:glib-or-gtk? #t
5304        #:meson ,meson-0.59
5305        #:phases
5306        (modify-phases %standard-phases
5307          (add-after 'unpack 'skip-gtk-update-icon-cache
5308            (lambda _
5309              (substitute* "build-aux/post_install.py"
5310                (("gtk-update-icon-cache") (which "true"))))))))
5311     (native-inputs
5312      `(("pkg-config" ,pkg-config)
5313        ("desktop-file-utils" ,desktop-file-utils)
5314        ("glib:bin" ,glib "bin") ; for glib-compile-resources
5315        ("intltool" ,intltool)
5316        ("itstool" ,itstool)
5317        ("vala" ,vala)
5318        ("xmllint" ,libxml2)))
5319     (inputs
5320      `(("gtk+" ,gtk+)
5321        ("json-glib" ,json-glib)
5322        ("libgee" ,libgee)
5323        ("librsvg" ,librsvg)
5324        ("qqwing" ,qqwing)))
5325     (home-page "https://wiki.gnome.org/Apps/Sudoku")
5326     (synopsis "Japanese logic game")
5327     (description
5328      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5329 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5330 possible while still providing features that make playing difficult Sudoku
5331 more fun.")
5332     (license license:gpl2+)))
5333
5334 (define-public gnome-terminal
5335   (package
5336     (name "gnome-terminal")
5337     (version "3.40.3")
5338     (source
5339      (origin
5340        (method url-fetch)
5341        (uri (string-append "mirror://gnome/sources/" name "/"
5342                            (version-major+minor version) "/"
5343                            name "-" version ".tar.xz"))
5344        (sha256
5345         (base32
5346          "08hsic7sn32xw12i3j0ard2bhfhp8gmzqm0pa8xzl5l1jhzsmsfb"))))
5347     (build-system glib-or-gtk-build-system)
5348     (arguments
5349      '(#:configure-flags
5350        (list "--disable-migration" "--disable-search-provider"
5351              "--without-nautilus-extension")
5352        #:phases
5353        (modify-phases %standard-phases
5354          (add-before 'configure 'patch-/bin/true
5355            (lambda _
5356              (substitute* "configure"
5357                (("/bin/true") (which "true"))))))))
5358     (native-inputs
5359      `(("docbook-xsl" ,docbook-xsl)
5360        ("pkg-config" ,pkg-config)
5361        ("desktop-file-utils" ,desktop-file-utils)
5362        ("intltool" ,intltool)
5363        ("itstool" ,itstool)
5364        ("libxslt" ,libxslt)
5365        ("xmllint" ,libxml2)))
5366     (propagated-inputs
5367      `(("dconf" ,dconf)))
5368     (inputs
5369      `(("gtk+" ,gtk+)
5370        ("vte" ,vte)
5371        ("gnutls" ,gnutls)
5372        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5373        ("util-linux" ,util-linux "lib")
5374        ("vala" ,vala)))
5375     (home-page "https://wiki.gnome.org/Apps/Terminal")
5376     (synopsis "Terminal emulator")
5377     (description
5378      "GNOME Terminal is a terminal emulator application for accessing a
5379 UNIX shell environment which can be used to run programs available on
5380 your system.
5381
5382 It supports several profiles, multiple tabs and implements several
5383 keyboard shortcuts.")
5384     (license license:gpl3+)))
5385
5386 (define-public colord-minimal
5387   (package
5388     (name "colord-minimal")
5389     (version "1.4.5")
5390     (source
5391      (origin
5392        (method url-fetch)
5393        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
5394                            "colord-" version ".tar.xz"))
5395        (sha256
5396         (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
5397     (build-system meson-build-system)
5398     (arguments
5399      '( ;; FIXME: One test fails:
5400        ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5401        ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5402        ;; application/x-zerosize
5403        #:tests? #f
5404        #:glib-or-gtk? #t
5405        #:configure-flags (list "-Dargyllcms_sensor=false" ;requires spotread
5406                                "-Dbash_completion=false"
5407                                "-Ddaemon_user=colord"
5408                                "-Ddocs=false"
5409                                "-Dlocalstatedir=/var"
5410                                "-Dman=false"
5411                                "-Dsane=true"
5412                                "-Dsystemd=false") ;no systemd
5413        #:phases
5414        (modify-phases %standard-phases
5415          (add-before 'configure 'patch-build-system
5416            (lambda* (#:key outputs #:allow-other-keys)
5417              (substitute* "rules/meson.build"
5418                (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5419                 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))))
5420          (add-before 'configure 'set-sqlite3-file-name
5421            (lambda* (#:key inputs #:allow-other-keys)
5422              ;; "colormgr dump" works by invoking the "sqlite3" command.
5423              ;; Record its absolute file name.
5424              (let ((sqlite (assoc-ref inputs "sqlite")))
5425                (substitute* "client/cd-util.c"
5426                  (("\"sqlite3\"")
5427                   (string-append "\"" sqlite "/bin/sqlite3\"")))))))))
5428     (native-inputs
5429      `(("glib:bin" ,glib "bin")         ; for glib-compile-resources, etc.
5430        ("gettext" ,gettext-minimal)
5431        ("pkg-config" ,pkg-config)
5432        ("vala" ,vala)))
5433     (propagated-inputs
5434      ;; colord.pc refers to all these.
5435      `(("glib" ,glib)
5436        ("lcms" ,lcms)
5437        ("udev" ,eudev)))
5438     (inputs
5439      `(("dbus-glib" ,dbus-glib)
5440        ("gobject-introspection" ,gobject-introspection)
5441        ("gusb" ,gusb-minimal)
5442        ("libgudev" ,libgudev)
5443        ("libusb" ,libusb)
5444        ("polkit" ,polkit)
5445        ("python" ,python-wrapper)
5446        ("sqlite" ,sqlite)
5447        ("sane-backends" ,sane-backends)))
5448     (home-page "https://www.freedesktop.org/software/colord/")
5449     (synopsis "Color management service")
5450     (description "Colord is a system service that makes it easy to manage,
5451 install and generate color profiles to accurately color manage input and
5452 output devices.")
5453     (license license:gpl2+)))
5454
5455 (define-public colord
5456   (package/inherit colord-minimal
5457     (name "colord")
5458     (arguments
5459      (substitute-keyword-arguments
5460          (package-arguments colord-minimal)
5461        ((#:configure-flags flags)
5462         `(begin
5463            (use-modules (srfi srfi-1))
5464            (append '("-Dbash_completion=true"
5465                      "-Ddocs=true"
5466                      "-Dman=true"
5467                      "-Dvapi=true")
5468                (fold delete ,flags '("-Dbash_completion=false"
5469                                      "-Ddocs=false"
5470                                      "-Dman=false")))))
5471        ((#:phases phases)
5472         `(modify-phases ,phases
5473            (add-after 'unpack 'fix-bash-completion-dir
5474              (lambda* (#:key outputs #:allow-other-keys)
5475                (substitute* "data/meson.build"
5476                  (("bash_completion.get_pkgconfig_variable\
5477 \\('completionsdir'\\)")
5478                   (string-append "'" (assoc-ref outputs "out")
5479                                  "/etc/bash_completion.d'")))))))))
5480     (native-inputs
5481      (append
5482          `(("bash-completion" ,bash-completion)
5483            ("docbook-xsl-ns" ,docbook-xsl-ns)
5484            ("gtk-doc" ,gtk-doc/stable)
5485            ("libxml2" ,libxml2)         ;for XML_CATALOG_FILES
5486            ("libxslt" ,libxslt)
5487            ("vala" ,vala))              ;for VAPI, needed by simple-scan
5488          (package-native-inputs colord-minimal)))))
5489
5490 (define-public geoclue
5491   (package
5492     (name "geoclue")
5493     (version "2.5.7")
5494     (source
5495      (origin
5496        (method url-fetch)
5497        (uri
5498         (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5499                        version "/geoclue-" version ".tar.bz2"))
5500        (sha256
5501         (base32 "09ww26a76kanldhgwnn5sqy9ly2940k45zpp68spykkv2zjdpivc"))
5502        (patches (search-patches "geoclue-config.patch"))))
5503     (build-system meson-build-system)
5504     (arguments
5505      '(#:configure-flags (list "-Ddbus-srv-user=geoclue")))
5506     (native-inputs
5507      `(("pkg-config" ,pkg-config)
5508        ("gobject-introspection" ,gobject-introspection)
5509        ("modem-manager" ,modem-manager)
5510        ("libnotify" ,libnotify)
5511        ("gtk-doc" ,gtk-doc/stable)
5512        ("intltool" ,intltool)))
5513     (inputs
5514      `(("avahi" ,avahi)
5515        ("glib:bin" ,glib "bin")
5516        ("glib-networking" ,glib-networking)
5517        ("json-glib" ,json-glib)
5518        ("libsoup" ,libsoup-minimal-2)))
5519     (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
5520     (synopsis "Geolocation service")
5521     (description "Geoclue is a D-Bus service that provides location
5522 information.  The primary goal of the Geoclue project is to make creating
5523 location-aware applications as simple as possible, while the secondary goal is
5524 to ensure that no application can access location information without explicit
5525 permission from user.")
5526     (license license:gpl2+)))
5527
5528 (define-public geocode-glib
5529   (package
5530     (name "geocode-glib")
5531     (version "3.26.2")
5532     (source (origin
5533               (method url-fetch)
5534               (uri (string-append "mirror://gnome/sources/geocode-glib/"
5535                                   (version-major+minor version) "/"
5536                                   "geocode-glib-" version ".tar.xz"))
5537               (sha256
5538                (base32
5539                 "1l8g0f13xgkrk335afr9w8k46mziwb2jnyhl07jccl5yl37q9zh1"))))
5540     (build-system meson-build-system)
5541     (arguments
5542      `(#:phases
5543        (modify-phases %standard-phases
5544          ;; The tests require a bunch of locales.
5545          (add-before 'check 'set-locales
5546            (lambda* (#:key inputs #:allow-other-keys)
5547              (setenv "GUIX_LOCPATH"
5548                      (search-input-directory inputs "lib/locale")))))))
5549     (native-inputs
5550      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5551        ("glibc-locales" ,glibc-locales) ; for tests
5552        ("gettext" ,gettext-minimal)
5553        ("gobject-introspection" ,gobject-introspection)
5554        ("gtk-doc" ,gtk-doc/stable)
5555        ("pkg-config" ,pkg-config)
5556        ("json-glib" ,json-glib)))
5557     (propagated-inputs
5558      ;; geocode-glib-1.0.pc refers to GIO.
5559      `(("glib" ,glib)))
5560     (inputs
5561      `(("libsoup" ,libsoup-minimal-2)))
5562     (home-page "https://github.com/GNOME/geocode-glib/")
5563     (synopsis "Geocoding and reverse-geocoding library")
5564     (description
5565      "geocode-glib is a convenience library for geocoding (finding longitude,
5566 and latitude from an address) and reverse geocoding (finding an address from
5567 coordinates) using the Nominatim service.  geocode-glib caches requests for
5568 faster results and to avoid unnecessary server load.")
5569     (license license:lgpl2.0+)))
5570
5571 (define-public upower
5572   (package
5573     (name "upower")
5574     (version "0.99.12")
5575     (source
5576      (origin
5577        (method git-fetch)
5578        (uri (git-reference
5579              (url "https://gitlab.freedesktop.org/upower/upower")
5580              (commit (string-append "UPOWER_"
5581                                     (string-map (match-lambda (#\. #\_)
5582                                                               (chr chr))
5583                                                 version)))))
5584        (file-name (git-file-name name version))
5585        (sha256
5586         (base32 "00q63yc8vp5cq05vhpwq3qglapdm8hg0lrqkzdwkphk30qzb6hv6"))
5587        (patches (search-patches "upower-builddir.patch"))
5588        (modules '((guix build utils)))
5589        (snippet
5590         '(begin
5591            ;; Upstream commit
5592            ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
5593            ;; moved 'dbus-1/system.d' from etc/ to share/.  However,
5594            ;; 'dbus-configuration-directory' in (gnu services dbus)
5595            ;; expects it in etc/.  Thus, move it back to its previous
5596            ;; location.
5597            (substitute* "src/Makefile.am"
5598              (("^dbusconfdir =.*$")
5599               "dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
5600            #t))))
5601     (build-system glib-or-gtk-build-system)
5602     (arguments
5603      '(#:phases
5604        (modify-phases %standard-phases
5605          (add-before 'check 'pre-check
5606            (lambda* (#:key inputs #:allow-other-keys)
5607              (let ((umockdev (string-append (assoc-ref inputs "umockdev")
5608                                             "/lib")))
5609                (setenv "LD_LIBRARY_PATH" umockdev))
5610              #t)))
5611        #:configure-flags (list "--localstatedir=/var"
5612                                (string-append "--with-udevrulesdir="
5613                                               (assoc-ref %outputs "out")
5614                                               "/lib/udev/rules.d"))))
5615     (native-inputs
5616      `(("autoconf" ,autoconf)
5617        ("automake" ,automake)
5618        ("gobject-introspection" ,gobject-introspection)
5619        ("gtk-doc" ,gtk-doc)
5620        ("intltool" ,intltool)
5621        ("libtool" ,libtool)
5622        ("pkg-config" ,pkg-config)
5623        ("python" ,python)
5624        ("which" ,which)                 ; for ./autogen.sh
5625
5626        ;; For tests.
5627        ("python-dbus" ,python-dbus)
5628        ("python-dbusmock" ,python-dbusmock)
5629        ("python-pygobject" ,python-pygobject)
5630        ("umockdev" ,umockdev)
5631
5632        ;; For man pages.
5633        ("docbook-xsl" ,docbook-xsl)
5634        ("libxslt" ,libxslt)             ; for 'xsltproc'
5635        ("libxml2" ,libxml2)))           ; for 'XML_CATALOG_FILES'
5636     (inputs
5637      `(("dbus-glib" ,dbus-glib)
5638        ("libgudev" ,libgudev)
5639        ("libusb" ,libusb)))
5640     (propagated-inputs
5641      ;; In Requires of upower-glib.pc.
5642      `(("glib" ,glib)))
5643     (home-page "https://upower.freedesktop.org/")
5644     (synopsis "System daemon for managing power devices")
5645     (description
5646      "UPower is an abstraction for enumerating power devices,
5647 listening to device events and querying history and statistics.  Any
5648 application or service on the system can access the org.freedesktop.UPower
5649 service via the system message bus.")
5650     (license license:gpl2+)))
5651
5652 (define-public libgweather
5653   (package
5654     (name "libgweather")
5655     (version "40.0")
5656     (source (origin
5657               (method url-fetch)
5658               (uri (string-append "mirror://gnome/sources/" name "/"
5659                                   (version-major version) "/"
5660                                   name "-" version ".tar.xz"))
5661               (sha256
5662                (base32
5663                 "1rkf4yv43qcahyx7bismdv6z2vh5azdnm1fqfmnzrada9cm8ykna"))))
5664     (build-system meson-build-system)
5665     (arguments
5666      `(#:tests? #f ; one of two tests requires network access
5667        #:configure-flags
5668        `(,(string-append "-Dzoneinfo_dir="
5669                          (assoc-ref %build-inputs "tzdata")
5670                          "/share/zoneinfo"))))
5671     (native-inputs
5672      `(("glib:bin" ,glib "bin") ; for glib-mkenums
5673        ("gobject-introspection" ,gobject-introspection)
5674        ("pkg-config" ,pkg-config)
5675        ("vala" ,vala)
5676        ("intltool" ,intltool)
5677        ("python-pygobject" ,python-pygobject)))
5678     (propagated-inputs
5679      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5680      ;; libsoup.
5681      `(("gtk+" ,gtk+)
5682        ("gdk-pixbuf" ,gdk-pixbuf)
5683        ("libxml2" ,libxml2)
5684        ("libsoup" ,libsoup-minimal-2)
5685        ("geocode-glib" ,geocode-glib)))
5686     (inputs
5687      `(("tzdata" ,tzdata)))
5688     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5689     (synopsis "Location, time zone, and weather library for GNOME")
5690     (description
5691      "libgweather is a library to access weather information from online
5692 services for numerous locations.")
5693     (license license:gpl2+)))
5694
5695 (define-public gnome-settings-daemon
5696   (package
5697     (name "gnome-settings-daemon")
5698     (version "41.0")
5699     (source
5700      (origin
5701        (method url-fetch)
5702        (uri (string-append "mirror://gnome/sources/" name "/"
5703                            (version-major version) "/"
5704                            name "-" version ".tar.xz"))
5705        (sha256
5706         (base32
5707          "111qcvlqjpasnswdniy5n53wyrs1y7a91qx1w4nsppnizdhn7jp6"))
5708        (patches (search-patches "gnome-settings-daemon-gc.patch"))))
5709     (build-system meson-build-system)
5710     (arguments
5711      `(#:meson ,meson-0.59
5712        #:glib-or-gtk? #t
5713        #:configure-flags
5714        (list (string-append "-Dudev_dir="
5715                             (assoc-ref %outputs "out")
5716                             "/lib/udev/rules.d/")
5717              "-Dsystemd=false"
5718              ;; Otherwise, the RUNPATH will lack the final path component.
5719              (string-append "-Dc_link_args=-Wl,-rpath="
5720                             (assoc-ref %outputs "out")
5721                             "/lib/gnome-settings-daemon-3.0"))
5722
5723        #:phases (modify-phases %standard-phases
5724                   (add-before 'configure 'set-baobab-file-name
5725                     (lambda* (#:key inputs #:allow-other-keys)
5726                       ;; Hard-code the file name of Baobab instead of looking
5727                       ;; it up in $PATH.  This ensures users get the "Examine"
5728                       ;; button in the low disk space notification of GDM even
5729                       ;; if they don't have GNOME in their main profile.
5730                       (let ((baobab (assoc-ref inputs "baobab")))
5731                         (substitute* "plugins/housekeeping/gsd-disk-space.c"
5732                           (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5733                            (string-append "g_strdup (\"" baobab
5734                                           "/bin/baobab\")")))))))
5735
5736        ;; Color management test can't reach the colord system service.
5737        #:tests? #f))
5738     (native-inputs
5739      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5740        ("pkg-config" ,pkg-config)
5741        ("intltool" ,intltool)
5742        ("xsltproc" ,libxslt)
5743        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
5744        ("docbook-xml" ,docbook-xml-4.2)
5745        ("docbook-xsl" ,docbook-xsl)))
5746     (inputs
5747      `(("alsa-lib" ,alsa-lib)
5748        ("baobab" ,baobab)
5749        ("colord" ,colord)
5750        ("libgudev" ,libgudev)
5751        ("upower" ,upower)
5752        ("polkit" ,polkit)
5753        ("pulseaudio" ,pulseaudio)
5754        ("libcanberra" ,libcanberra)
5755        ("libx11" ,libx11)
5756        ("libxtst" ,libxtst)
5757        ("lcms" ,lcms)
5758        ("libnotify" ,libnotify)
5759        ("geoclue" ,geoclue)
5760        ("geocode-glib" ,geocode-glib)
5761        ("libgweather" ,libgweather)
5762        ("gnome-desktop" ,gnome-desktop)
5763        ("nss" ,nss)
5764        ("cups" ,cups)
5765        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5766        ("libwacom" ,libwacom)
5767        ("librsvg" ,librsvg)
5768        ("xf86-input-wacom" ,xf86-input-wacom)
5769        ("wayland" ,wayland)
5770        ("network-manager" ,network-manager)
5771        ("gcr" ,gcr)
5772        ("modem-manager" ,modem-manager)))
5773     (home-page "https://www.gnome.org")
5774     (synopsis "GNOME settings daemon")
5775     (description
5776      "This package contains the daemon responsible for setting the various
5777 parameters of a GNOME session and the applications that run under it.  It
5778 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5779 settings, themes, mouse settings, and startup of other daemons.")
5780     (license license:gpl2+)))
5781
5782 (define-public totem-pl-parser
5783  (package
5784    (name "totem-pl-parser")
5785    (version "3.26.6")
5786    (source (origin
5787             (method url-fetch)
5788             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5789                                 (version-major+minor version) "/"
5790                                 "totem-pl-parser-" version ".tar.xz"))
5791             (sha256
5792              (base32
5793               "075csd5x0frgf93jvhlqiwv5i0qm24zz3iw17jj7v7fgsml0zpy0"))))
5794    (build-system meson-build-system)
5795    (arguments
5796     ;; FIXME: Tests require gvfs.
5797     `(#:tests? #f))
5798    (native-inputs
5799     `(("intltool" ,intltool)
5800       ("glib" ,glib "bin")
5801       ("gobject-introspection" ,gobject-introspection)
5802       ("pkg-config" ,pkg-config)))
5803    (propagated-inputs
5804     `(("glib" ,glib)
5805       ("gmime" ,gmime)
5806       ("libarchive" ,libarchive)
5807       ("libgcrypt" ,libgcrypt)
5808       ("libxml2" ,libxml2)))
5809    (inputs
5810     `(("libsoup" ,libsoup)))
5811    (home-page "https://projects.gnome.org/totem")
5812    (synopsis "Library to parse and save media playlists for GNOME")
5813    (description "Totem-pl-parser is a GObjects-based library to parse and save
5814 playlists in a variety of formats.")
5815    (license license:lgpl2.0+)))
5816
5817 (define-public aisleriot
5818   (package
5819     (name "aisleriot")
5820     (version "3.22.9")
5821     (source (origin
5822               (method url-fetch)
5823               (uri (string-append "mirror://gnome/sources/aisleriot/"
5824                                   (version-major+minor version) "/"
5825                                   "aisleriot-" version ".tar.xz"))
5826               (sha256
5827                (base32
5828                 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
5829     (build-system glib-or-gtk-build-system)
5830     (arguments
5831      '(#:configure-flags
5832        '("--with-platform=gtk-only"
5833          "--with-card-theme-formats=svg")))
5834     (native-inputs
5835      `(("desktop-file-utils" ,desktop-file-utils)
5836        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5837        ("intltool" ,intltool)
5838        ("itstool" ,itstool)
5839        ("pkg-config" ,pkg-config)
5840        ("xmllint" ,libxml2)))
5841     (inputs
5842      `(("gtk+" ,gtk+)
5843        ("guile" ,guile-2.2)
5844        ("libcanberra" ,libcanberra)
5845        ("librsvg" ,librsvg)))
5846     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5847     (synopsis "Solitaire card games")
5848     (description
5849      "Aisleriot (also known as Solitaire or sol) is a collection of card games
5850 which are easy to play with the aid of a mouse.")
5851     (license license:gpl3+)))
5852
5853 (define-public amtk
5854   (package
5855     (name "amtk")
5856     (version "5.3.1")
5857     (source (origin
5858               (method url-fetch)
5859               (uri (string-append "mirror://gnome/sources/amtk/"
5860                                   (version-major+minor version) "/"
5861                                   "amtk-" version ".tar.xz"))
5862               (sha256
5863                (base32
5864                 "12v3nj1bb7507ndprjggq0hpz8k719b4bwvl8sm43p3ibmn27anm"))))
5865     (build-system meson-build-system)
5866     (native-inputs
5867      `(("gobject-introspection" ,gobject-introspection)
5868        ("glib:bin" ,glib "bin")         ; for glib-mkenums
5869        ("gtk-doc" ,gtk-doc/stable)
5870        ("pkg-config" ,pkg-config)))
5871     (inputs
5872      `(("glib" ,glib)
5873        ("gtk+" ,gtk+)))
5874     (home-page "https://wiki.gnome.org/Projects/Amtk")
5875     (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5876     (description
5877      "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5878 It is a basic GtkUIManager replacement based on GAction.  It is suitable for
5879 both a traditional UI or a modern UI with a GtkHeaderBar.")
5880     (license license:lgpl2.1+)))
5881
5882 (define-public devhelp
5883   (package
5884     (name "devhelp")
5885     (version "41.2")
5886     (source (origin
5887               (method url-fetch)
5888               (uri (string-append "mirror://gnome/sources/" name "/"
5889                                   (version-major version) "/"
5890                                   name "-" version ".tar.xz"))
5891               (sha256
5892                (base32
5893                 "1lk0gycjvs6gibhy0zs3ffkrkzrkyl5nkp7n60hgpa6syjq91apc"))))
5894     (build-system meson-build-system)
5895     (arguments
5896      `(#:glib-or-gtk? #t
5897        #:meson ,meson-0.59
5898        #:phases
5899        (modify-phases %standard-phases
5900          (add-after 'unpack 'skip-gtk-update-icon-cache
5901            ;; Don't create 'icon-theme.cache'.
5902            (lambda _
5903              (substitute* "build-aux/meson/meson_post_install.py"
5904                (("gtk-update-icon-cache") "true"))))
5905          (add-after 'unpack 'fix-devhelp-gir-inputs
5906            ;; It still mentions webkitgtk 4.0
5907            (lambda _
5908              (substitute* "devhelp/meson.build"
5909                (("'WebKit2-4.0'") "'WebKit2-4.1'")))))))
5910     (propagated-inputs
5911      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
5912     (native-inputs
5913      `(("intltool" ,intltool)
5914        ("itstool" ,itstool)
5915        ("gobject-introspection" ,gobject-introspection)
5916        ("glib:bin" ,glib "bin") ; for glib-mkmenus
5917        ("pkg-config" ,pkg-config)))
5918     (inputs
5919      `(("amtk" ,amtk)
5920        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5921        ("webkitgtk" ,webkitgtk)))
5922     (home-page "https://wiki.gnome.org/Apps/Devhelp")
5923     (synopsis "API documentation browser for GNOME")
5924     (description
5925      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
5926 natively with GTK-Doc (the API reference system developed for GTK+ and used
5927 throughout GNOME for API documentation).")
5928     (license license:gpl2+)))
5929
5930 (define-public devhelp-with-libsoup2
5931   (package/inherit devhelp
5932     (arguments
5933      (substitute-keyword-arguments (package-arguments devhelp)
5934        ((#:phases phases '%standard-phases)
5935         `(modify-phases %standard-phases
5936            (add-after 'unpack 'skip-gtk-update-icon-cache
5937              ;; Don't create 'icon-theme.cache'.
5938              (lambda _
5939                (substitute* "build-aux/meson/meson_post_install.py"
5940                  (("gtk-update-icon-cache") "true"))))))))
5941     (inputs
5942      `(("amtk" ,amtk)
5943        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5944        ("webkitgtk" ,webkitgtk-with-libsoup2)))))
5945
5946 (define-public cogl
5947   (package
5948     (name "cogl")
5949     (version "1.22.8")
5950     (source
5951      (origin
5952        (method url-fetch)
5953        (uri (string-append "mirror://gnome/sources/cogl/"
5954                            (version-major+minor version) "/"
5955                            "cogl-" version ".tar.xz"))
5956        (sha256
5957         (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
5958     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
5959     ;; cogl, corresponding changes may be appropriate in mutter as well.
5960     (build-system gnu-build-system)
5961     (native-inputs
5962      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
5963        ("gobject-introspection" ,gobject-introspection)
5964        ("xorg-server" ,xorg-server-for-tests)
5965        ("pkg-config" ,pkg-config)))
5966     (propagated-inputs
5967      `(("glib" ,glib)
5968        ("gdk-pixbuf" ,gdk-pixbuf)
5969        ("libx11" ,libx11)
5970        ("libxext" ,libxext)
5971        ("libxfixes" ,libxfixes)
5972        ("libxdamage" ,libxdamage)
5973        ("libxcomposite" ,libxcomposite)
5974        ("libxrandr" ,libxrandr)))
5975     (inputs
5976      `(("mesa" ,mesa)
5977        ("cairo" ,cairo)
5978        ("pango" ,pango)
5979        ("gstreamer" ,gstreamer)
5980        ("gst-plugins-base" ,gst-plugins-base)
5981        ("wayland" ,wayland)))
5982     (arguments
5983      `(#:disallowed-references (,xorg-server-for-tests)
5984        #:configure-flags (list "--enable-cogl-gst"
5985                                "--enable-wayland-egl-platform"
5986                                "--enable-wayland-egl-server"
5987
5988                                ;; Arrange to pass an absolute file name to
5989                                ;; dlopen for libGL.so.
5990                                (string-append "--with-gl-libname="
5991                                               (assoc-ref %build-inputs "mesa")
5992                                               "/lib/libGL.so"))
5993        #:phases
5994        (modify-phases %standard-phases
5995          (add-after 'unpack 'fix-build-with-mesa-20
5996            (lambda _
5997              ;; Work around a problem with Mesa 20 where some macros used by
5998              ;; Cogl went missing from eglext.h.  This can likely be removed
5999              ;; for newer versions of Cogl or Mesa.
6000              ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
6001              (substitute* '("configure"
6002                             "cogl/winsys/cogl-winsys-egl-kms.c")
6003                (("#include <EGL/eglext.h>" all)
6004                 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
6005              #t))
6006          (add-before 'check 'start-xorg-server
6007                      (lambda* (#:key tests? inputs #:allow-other-keys)
6008                        (if tests?
6009                            (begin
6010                              ;; The test suite requires a running X server.
6011                              (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
6012                                              (assoc-ref inputs "xorg-server")))
6013                              (setenv "DISPLAY" ":1")
6014                              #t)
6015                            (format #t "test suite not run~%"))
6016                        #t)))))
6017     (home-page "https://www.cogl3d.org")
6018     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
6019     (description
6020      "Cogl is a small library for using 3D graphics hardware to draw pretty
6021 pictures.  The API departs from the flat state machine style of OpenGL and is
6022 designed to make it easy to write orthogonal components that can render
6023 without stepping on each others toes.")
6024     (license (list license:expat       ; most of the code
6025                    license:bsd-3       ; cogl/cogl-point-in-poly.c
6026                    license:sgifreeb2.0 ; cogl-path/tesselator/
6027                    license:asl2.0))))  ; examples/android/
6028
6029 (define-public clutter
6030   (package
6031     (name "clutter")
6032     (version "1.26.2")
6033     (source
6034      (origin
6035        (method url-fetch)
6036        (uri (string-append "mirror://gnome/sources/" name "/"
6037                            (version-major+minor version) "/"
6038                            name "-" version ".tar.xz"))
6039        (sha256
6040         (base32
6041          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
6042     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
6043     ;; to clutter, corresponding changes may be appropriate in mutter as well.
6044     (build-system gnu-build-system)
6045     (outputs '("out"
6046                "doc"))                            ;9 MiB of gtk-doc HTML pages
6047     (native-inputs
6048      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
6049        ("gobject-introspection" ,gobject-introspection)
6050        ("pkg-config" ,pkg-config)
6051        ("xsltproc" ,libxslt)))
6052     (propagated-inputs
6053      `(("cogl" ,cogl)
6054        ("cairo" ,cairo)
6055        ("atk" ,atk)
6056        ("gtk+" ,gtk+)
6057        ("json-glib" ,json-glib)
6058        ("glib" ,glib)
6059        ("libxcomposite" ,libxcomposite)
6060        ("libxdamage" ,libxdamage)
6061        ("libxext" ,libxext)
6062        ("xinput" ,xinput)))
6063     (inputs
6064      `(("libxkbcommon" ,libxkbcommon)
6065        ("udev" ,eudev)))
6066     (arguments
6067      `(#:configure-flags (list "--enable-x11-backend=yes"
6068
6069                                ;; This produces share/doc/{clutter,cally}.
6070                                (string-append "--with-html-dir="
6071                                               (assoc-ref %outputs "doc")
6072                                               "/share/doc"))
6073        ;; XXX FIXME: Get test suite working.  It would probably fail in the
6074        ;; same way the cogl tests fail, since clutter is based on cogl.
6075        #:tests? #f))
6076     (home-page "http://www.clutter-project.org")
6077     (synopsis "OpenGL-based interactive canvas library")
6078     (description
6079      "Clutter is an OpenGL-based interactive canvas library, designed for
6080 creating fast, mainly 2D single window applications such as media box UIs,
6081 presentations, kiosk style applications and so on.")
6082     (license license:lgpl2.0+)))
6083
6084 (define-public clutter-gtk
6085   (package
6086     (name "clutter-gtk")
6087     (version "1.8.4")
6088     (source
6089      (origin
6090        (method url-fetch)
6091        (uri (string-append "mirror://gnome/sources/" name "/"
6092                            (version-major+minor version) "/"
6093                            name "-" version ".tar.xz"))
6094        (sha256
6095         (base32
6096          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
6097     (build-system gnu-build-system)
6098     (native-inputs
6099      `(("pkg-config" ,pkg-config)
6100        ("gobject-introspection" ,gobject-introspection)))
6101     (propagated-inputs
6102      ;; clutter-gtk.pc refers to all these.
6103      `(("clutter" ,clutter)
6104        ("gtk+" ,gtk+)))
6105     (home-page "http://www.clutter-project.org")
6106     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
6107     (description
6108      "Clutter is an OpenGL-based interactive canvas library, designed for
6109 creating fast, mainly 2D single window applications such as media box UIs,
6110 presentations, kiosk style applications and so on.")
6111     (license license:lgpl2.0+)))
6112
6113 (define-public clutter-gst
6114   (package
6115     (name "clutter-gst")
6116     (version "3.0.27")
6117     (source
6118      (origin
6119        (method url-fetch)
6120        (uri (string-append "mirror://gnome/sources/clutter-gst/"
6121                            (version-major+minor version) "/"
6122                            "clutter-gst-" version ".tar.xz"))
6123        (sha256
6124         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
6125     (build-system gnu-build-system)
6126     (native-inputs
6127      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
6128        ("pkg-config" ,pkg-config)
6129        ("gobject-introspection" ,gobject-introspection)))
6130     (inputs
6131      `(("clutter" ,clutter)
6132        ("gstreamer" ,gstreamer)
6133        ("gst-plugins-base" ,gst-plugins-base)))
6134     (home-page "http://www.clutter-project.org")
6135     (synopsis "Integration library for using GStreamer with Clutter")
6136     (description
6137      "Clutter-Gst is an integration library for using GStreamer with Clutter.
6138 It provides a GStreamer sink to upload frames to GL and an actor that
6139 implements the ClutterGstPlayer interface using playbin.  Clutter is an
6140 OpenGL-based interactive canvas library.")
6141     (license license:lgpl2.0+)))
6142
6143 (define-public libchamplain
6144   (package
6145     (name "libchamplain")
6146     (version "0.12.20")
6147     (source (origin
6148               (method url-fetch)
6149               (uri (string-append
6150                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
6151                     version ".tar.xz"))
6152               (sha256
6153                (base32
6154                 "0rihpb0npqpihqcdz4w03rq6xl7jdckfqskvv9diq2hkrnzv8ch2"))))
6155     (build-system meson-build-system)
6156     (native-inputs
6157      `(("gobject-introspection" ,gobject-introspection)
6158        ("pkg-config" ,pkg-config)
6159        ("vala" ,vala)))
6160     (propagated-inputs
6161      `(("libsoup" ,libsoup-minimal-2)
6162        ("sqlite" ,sqlite)
6163        ("clutter" ,clutter)
6164        ("clutter-gtk" ,clutter-gtk)
6165        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
6166        ("cairo" ,cairo)
6167        ("gtk+3" ,gtk+)
6168        ("glib" ,glib)))
6169     (home-page "https://projects.gnome.org/libchamplain/")
6170     (synopsis "C library providing a ClutterActor to display maps")
6171     (description
6172      "libchamplain is a C library providing a ClutterActor to display maps.
6173 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
6174 and Perl bindings are also available.  It supports numerous free map sources
6175 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
6176     (license license:lgpl2.1+)))
6177
6178 (define-public gom
6179   (package
6180     (name "gom")
6181     (version "0.3.2")
6182     (source
6183      (origin
6184        (method url-fetch)
6185        (uri (string-append "mirror://gnome/sources/gom/"
6186                            (version-major+minor version) "/"
6187                            "gom-" version ".tar.xz"))
6188        (sha256
6189         (base32
6190          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
6191     (build-system gnu-build-system)
6192     (native-inputs
6193      `(("intltool" ,intltool)
6194        ("pkg-config" ,pkg-config)
6195        ("gobject-introspection" ,gobject-introspection)))
6196     (inputs
6197      `(("glib" ,glib)
6198        ("gdk-pixbuf" ,gdk-pixbuf)
6199        ("sqlite" ,sqlite)))
6200     ;; XXX TODO: Figure out how to run the test suite.
6201     (arguments `(#:tests? #f))
6202     (home-page "https://wiki.gnome.org/Projects/Gom")
6203     (synopsis "Object mapper from GObjects to SQLite")
6204     (description
6205      "Gom provides an object mapper from GObjects to SQLite.  It helps you
6206 write applications that need to store structured data as well as make complex
6207 queries upon that data.")
6208     (license license:lgpl2.1+)))
6209
6210 (define-public libgnome-games-support
6211   (package
6212     (name "libgnome-games-support")
6213     (version "1.7.1")
6214     (source (origin
6215               (method url-fetch)
6216               (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
6217                                   (version-major+minor version) "/"
6218                                   "libgnome-games-support-" version ".tar.xz"))
6219               (sha256
6220                (base32
6221                 "11g1r3ppb9v8m3anks9gxf7fv1x38vmjiya3lr7zjjv328pb69d6"))))
6222     (build-system meson-build-system)
6223     (arguments
6224       '(#:glib-or-gtk? #t
6225         #:phases
6226           (modify-phases %standard-phases
6227             (add-before 'check 'pre-check
6228               (lambda _
6229                 ;; Tests require a writable HOME.
6230                 (setenv "HOME" (getcwd))
6231                 #t)))))
6232     (native-inputs
6233      `(("intltool" ,intltool)
6234        ("pkg-config" ,pkg-config)
6235        ("vala" ,vala)))
6236     (propagated-inputs
6237      ;; Required by libgnome-games-support-1.0.pc
6238      `(("gtk+" ,gtk+)
6239        ("libgee" ,libgee)))
6240     (home-page "https://www.gnome.org/")
6241     (synopsis "Useful functionality shared among GNOME games")
6242     (description
6243      "libgnome-games-support is a small library intended for internal use by
6244 GNOME Games, but it may be used by others.")
6245     (license license:lgpl3+)))
6246
6247 (define-public gnome-klotski
6248   (package
6249     (name "gnome-klotski")
6250     (version "3.34.0")
6251     (source (origin
6252               (method url-fetch)
6253               (uri (string-append "mirror://gnome/sources/" name "/"
6254                                   (version-major+minor version) "/"
6255                                   name "-" version ".tar.xz"))
6256               (sha256
6257                (base32
6258                 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
6259     (build-system meson-build-system)
6260     (arguments
6261      '(#:glib-or-gtk? #t
6262        #:phases
6263        (modify-phases %standard-phases
6264          (add-after 'unpack 'skip-gtk-update-icon-cache
6265            ;; Don't create 'icon-theme.cache'.
6266            (lambda _
6267              (substitute* "build-aux/meson_post_install.py"
6268                (("gtk-update-icon-cache") (which "true")))
6269              #t)))))
6270     (native-inputs
6271      `(("desktop-file-utils" ,desktop-file-utils)
6272        ("glib:bin" ,glib "bin") ; for glib-compile-resources
6273        ("intltool" ,intltool)
6274        ("itstool" ,itstool)
6275        ("pkg-config" ,pkg-config)
6276        ("vala" ,vala)
6277        ("xmllint" ,libxml2)))
6278     (inputs
6279      `(("gtk+" ,gtk+)
6280        ("libgnome-games-support" ,libgnome-games-support)
6281        ("librsvg" ,librsvg)))
6282     (home-page "https://wiki.gnome.org/Apps/Klotski")
6283     (synopsis "Sliding block puzzles")
6284     (description
6285      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
6286 the patterned block to the area bordered by green markers.  To do so, you will
6287 need to slide other blocks out of the way.  Complete each puzzle in as few moves
6288 as possible!")
6289     (license license:gpl2+)))
6290
6291 (define-public grilo
6292   (package
6293     (name "grilo")
6294     (version "0.3.13")
6295     (source
6296      (origin
6297        (method url-fetch)
6298        (uri (string-append "mirror://gnome/sources/grilo/"
6299                            (version-major+minor version) "/"
6300                            "grilo-" version ".tar.xz"))
6301        (sha256
6302         (base32 "0ywjvh7xw4ql1q4fvl0q5n06n08pga1g1nc9l7c3x5214gr3fj6i"))))
6303     (build-system meson-build-system)
6304     (native-inputs
6305      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
6306        ("intltool" ,intltool)
6307        ("pkg-config" ,pkg-config)
6308        ("gobject-introspection" ,gobject-introspection)
6309        ("gtk-doc" ,gtk-doc/stable)
6310        ("vala" ,vala)))
6311     (inputs
6312      `(("cyrus-sasl" ,cyrus-sasl)
6313        ("glib" ,glib)
6314        ("gtk+" ,gtk+)
6315        ("libxml2" ,libxml2)
6316        ("liboauth" ,liboauth)
6317        ("libsoup" ,libsoup-minimal-2)
6318        ("totem-pl-parser" ,totem-pl-parser)))
6319     (native-search-paths
6320      (list (search-path-specification
6321             (variable "GRL_PLUGIN_PATH")
6322             (files (list (string-append "lib/grilo-"
6323                                         (version-major+minor version)))))))
6324     (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
6325     (synopsis "Framework for discovering and browsing media")
6326     (description
6327      "Grilo is a framework focused on making media discovery and browsing easy
6328 for application developers.")
6329     (license license:lgpl2.1+)))
6330
6331 (define-public grilo-plugins
6332   (package
6333     (name "grilo-plugins")
6334     (version "0.3.13")
6335     (source
6336      (origin
6337        (method url-fetch)
6338        (uri (string-append "mirror://gnome/sources/" name "/"
6339                            (version-major+minor version) "/"
6340                            name "-" version ".tar.xz"))
6341        (sha256
6342         (base32 "1y10nnd711qxwgpz6spzp1rnk50fyf11kk1n71a31ab4fgb0ahqw"))))
6343     (build-system meson-build-system)
6344     (native-inputs
6345      `(("gettext" ,gettext-minimal)
6346        ("glib:bin" ,glib "bin")
6347        ("gtk+:bin" ,gtk+ "bin")
6348        ("itstool" ,itstool)
6349        ("pkg-config" ,pkg-config)))
6350     ;; TODO: ahavi, gstreamer
6351     (inputs
6352      `(("grilo" ,grilo)
6353        ;("gmime" ,gmime) ; unused
6354        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6355        ("gom" ,gom)
6356        ;("gssdp" ,gssdp) ; unused
6357        ;("gupnp" ,gupnp) ; unused
6358        ;("gupnp-av" ,gupnp-av) ; unused
6359        ("json-glib" ,json-glib)
6360        ("avahi" ,avahi)
6361        ("libgdata" ,libgdata)
6362        ("libmediaart" ,libmediaart)
6363        ;("librest" ,rest) ; unused
6364        ("libsoup" ,libsoup)
6365        ("python-pygobject" ,python-pygobject)
6366        ("totam-pl-parser" ,totem-pl-parser)
6367        ("tracker" ,tracker)
6368        ("tracker-miners" ,tracker-miners)))
6369     (arguments
6370      `(#:glib-or-gtk? #t
6371        ;;Disable lua-factory as it needs missing dependencies
6372        #:configure-flags '("-Denable-lua-factory=no")
6373        #:phases
6374        (modify-phases %standard-phases
6375          (add-before 'configure 'set-shell
6376            (lambda _
6377              (setenv "SHELL" (which "bash"))))
6378          ;; Disable the tracker test that requires the UPower daemon.
6379          (add-before 'configure 'fix-tests
6380            (lambda* (#:key inputs #:allow-other-keys)
6381              (substitute* "tests/tracker3/meson.build"
6382                (("'test_tracker3'.*") "")))))))
6383     (home-page "https://live.gnome.org/Grilo")
6384     (synopsis "Plugins for the Grilo media discovery library")
6385     (description
6386      "Grilo is a framework focused on making media discovery and browsing easy
6387 for application developers.  This package provides plugins for common media
6388 discovery protocols.")
6389     (license license:lgpl2.1+)))
6390
6391 (define-public totem
6392   (package
6393     (name "totem")
6394     (version "3.38.1")
6395     (source
6396      (origin
6397        (method url-fetch)
6398        (uri (string-append "mirror://gnome/sources/totem/"
6399                            (version-major+minor version) "/"
6400                            "totem-" version ".tar.xz"))
6401        (sha256
6402         (base32 "02510lvzvxvmpcs64k6sqix8ysl7sihhhwvp0vmfv7521ryczylg"))))
6403     (build-system meson-build-system)
6404     (native-inputs
6405      `(("pkg-config" ,pkg-config)
6406        ("desktop-file-utils" ,desktop-file-utils)
6407        ("gettext" ,gettext-minimal)
6408        ("gobject-introspection" ,gobject-introspection)
6409        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
6410        ("itstool" ,itstool)
6411        ("xmllint" ,libxml2)
6412        ("xorg-server" ,xorg-server-for-tests)))
6413     (propagated-inputs
6414      `(("dconf" ,dconf)))
6415     (inputs
6416      `(("gtk+" ,gtk+)
6417        ("gdk-pixbuf" ,gdk-pixbuf)
6418        ("atk" ,atk)
6419        ("cairo" ,cairo)
6420        ("dbus-glib" ,dbus-glib)
6421        ("clutter" ,clutter)
6422        ("clutter-gtk" ,clutter-gtk)
6423        ("clutter-gst" ,clutter-gst)
6424        ("xorgproto" ,xorgproto)
6425        ("libxxf86vm" ,libxxf86vm)
6426        ("libxtst" ,libxtst)
6427        ("libxrandr" ,libxrandr)
6428        ("libxml2" ,libxml2)
6429        ("libsoup" ,libsoup)
6430        ("libpeas" ,libpeas)
6431        ("librsvg" ,librsvg)
6432        ("lirc" ,lirc)
6433        ("gnome-desktop" ,gnome-desktop)
6434        ("gstreamer" ,gstreamer)
6435        ("gst-plugins-base" ,gst-plugins-base)
6436        ("gst-plugins-good" ,gst-plugins-good)
6437        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6438        ("adwaita-icon-theme" ,adwaita-icon-theme)
6439        ("python" ,python)
6440        ("python-pygobject" ,python-pygobject)
6441        ("totem-pl-parser" ,totem-pl-parser)
6442        ("grilo" ,grilo)
6443        ("grilo-plugins" ,grilo-plugins)
6444        ("vala" ,vala)))
6445     (arguments
6446      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
6447        #:glib-or-gtk? #t
6448
6449        ;; Disable automatic GStreamer plugin installation via PackageKit and
6450        ;; all that.
6451        #:configure-flags '("-D" "enable-easy-codec-installation=no"
6452
6453                            ;; Do not build .a files for the plugins, it's
6454                            ;; completely useless.  This saves 2 MiB.
6455                            "--default-library" "shared")
6456        #:phases
6457        (modify-phases %standard-phases
6458          (add-after 'unpack 'skip-gtk-update-icon-cache
6459            ;; Don't create 'icon-theme.cache'.
6460            (lambda _
6461              (substitute* "meson_post_install.py"
6462                (("gtk-update-icon-cache") "true"))
6463              #t))
6464          (add-before
6465           'install 'disable-cache-generation
6466           (lambda _
6467             (setenv "DESTDIR" "/")
6468             #t))
6469          (add-before
6470           'check 'pre-check
6471           (lambda _
6472             ;; Tests require a running X server.
6473             (system "Xvfb :1 &")
6474             (setenv "DISPLAY" ":1")
6475             #t))
6476          (add-after
6477           'install 'wrap-totem
6478           (lambda* (#:key inputs outputs #:allow-other-keys)
6479             (let ((out             (assoc-ref outputs "out"))
6480                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6481                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6482               (wrap-program (string-append out "/bin/totem")
6483                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6484                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
6485               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6486                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
6487             #t)))))
6488     (home-page "https://wiki.gnome.org/Apps/Videos")
6489     (synopsis "Simple media player for GNOME based on GStreamer")
6490     (description "Totem is a simple yet featureful media player for GNOME
6491 which can read a large number of file formats.")
6492     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6493     ;; to be used and distributed together with GStreamer and Totem.  See
6494     ;; file://COPYING in the source distribution for details.
6495     (license license:gpl2+)))
6496
6497 (define-public rhythmbox
6498  (package
6499    (name "rhythmbox")
6500    (version "3.4.4")
6501    (source (origin
6502             (method url-fetch)
6503             (uri (string-append "mirror://gnome/sources/rhythmbox/"
6504                                 (version-major+minor version) "/"
6505                                 "rhythmbox-" version ".tar.xz"))
6506             (sha256
6507              (base32
6508               "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
6509    (build-system glib-or-gtk-build-system)
6510    (arguments
6511     `(#:configure-flags
6512       (list "--enable-lirc"
6513             "--enable-python"
6514             "--enable-vala"
6515             "--with-brasero"
6516             "--with-gudev"
6517             "--with-libsecret")
6518       #:phases
6519       (modify-phases %standard-phases
6520         (add-after
6521          'install 'wrap-rhythmbox
6522          (lambda* (#:key inputs outputs #:allow-other-keys)
6523            (let ((out               (assoc-ref outputs "out"))
6524                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6525                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
6526                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
6527                  (python-path       (getenv "GUIX_PYTHONPATH")))
6528              (wrap-program (string-append out "/bin/rhythmbox")
6529                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
6530                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
6531                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
6532                `("GUIX_PYTHONPATH"             ":" prefix (,python-path))))
6533            #t)))))
6534    (propagated-inputs
6535     `(("dconf" ,dconf)))
6536    (native-inputs
6537     `(("itstool" ,itstool)
6538       ("intltool" ,intltool)
6539       ("glib" ,glib "bin")
6540       ("gobject-introspection" ,gobject-introspection)
6541       ("desktop-file-utils" ,desktop-file-utils)
6542       ("pkg-config" ,pkg-config)
6543       ("xmllint" ,libxml2)))
6544    (inputs
6545     `(("json-glib" ,json-glib)
6546       ("tdb" ,tdb)
6547       ("gnome-desktop" ,gnome-desktop)
6548       ("python" ,python)
6549       ("python-pygobject" ,python2-pygobject)
6550       ("vala" ,vala)
6551       ("gmime" ,gmime)
6552       ("adwaita-icon-theme" ,adwaita-icon-theme)
6553       ("grilo" ,grilo)
6554       ("grilo-plugins" ,grilo-plugins)
6555       ("gstreamer" ,gstreamer)
6556       ("gst-plugins-base" ,gst-plugins-base)
6557       ("gst-plugins-good" ,gst-plugins-good)
6558       ("totem-pl-parser" ,totem-pl-parser)
6559       ("libgudev" ,libgudev)
6560       ;;("libmtp" ,libmtp) FIXME: Not detected
6561       ("libsecret" ,libsecret)
6562       ("libsoup" ,libsoup)
6563       ("libnotify" ,libnotify)
6564       ("libpeas" ,libpeas)
6565       ("lirc" ,lirc)
6566       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6567       ;;("clutter" ,clutter)
6568       ;;("clutter-gtk" ,clutter-gtk)
6569       ;;("clutter-gst" ,clutter-gst)
6570       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6571       ("atk" ,atk)
6572       ("pango" ,pango)
6573       ("gtk+" ,gtk+)
6574       ;; TODO:
6575       ;;  * libgpod
6576       ;;  * mx
6577       ("brasero" ,brasero)))
6578    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6579    (synopsis "Music player for GNOME")
6580    (description "Rhythmbox is a music playing application for GNOME.  It
6581 supports playlists, song ratings, and any codecs installed through gstreamer.")
6582    (license license:gpl2+)))
6583
6584 (define-public eog
6585  (package
6586    (name "eog")
6587    (version "40.3")
6588    (source (origin
6589             (method url-fetch)
6590             (uri (string-append "mirror://gnome/sources/" name "/"
6591                                 (version-major version) "/"
6592                                 name "-" version ".tar.xz"))
6593             (sha256
6594              (base32
6595               "0ddjwcd77nw0rxb5x5bz5hd671m8gya9827p8rsnb58x103kpai8"))))
6596    (build-system meson-build-system)
6597    (arguments
6598     `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
6599       #:configure-flags
6600       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6601       (list (string-append "-Dc_link_args=-Wl,-rpath="
6602                            (assoc-ref %outputs "out") "/lib/eog"))
6603       #:phases
6604       (modify-phases %standard-phases
6605          (add-after 'unpack 'skip-gtk-update-icon-cache
6606            ;; Don't create 'icon-theme.cache'.
6607            (lambda _
6608              (substitute* "meson_post_install.py"
6609                (("gtk-update-icon-cache") "true"))))
6610         (add-after 'install 'wrap-eog
6611           (lambda* (#:key outputs #:allow-other-keys)
6612             (let ((out               (assoc-ref outputs "out"))
6613                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6614               (wrap-program (string-append out "/bin/eog")
6615                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
6616    (propagated-inputs
6617     `(("dconf" ,dconf)))
6618    (native-inputs
6619     `(("intltool" ,intltool)
6620       ("itstool" ,itstool)
6621       ("glib" ,glib "bin")
6622       ("gobject-introspection" ,gobject-introspection)
6623       ("pkg-config" ,pkg-config)
6624       ("xmllint" ,libxml2)))
6625    (inputs
6626     `(("gnome-desktop" ,gnome-desktop)
6627       ("shared-mime-info" ,shared-mime-info)
6628       ("adwaita-icon-theme" ,adwaita-icon-theme)
6629       ("exempi" ,exempi)
6630       ("lcms" ,lcms)
6631       ("libexif" ,libexif)
6632       ("libpeas" ,libpeas)
6633       ("libportal" ,libportal)
6634       ("libjpeg" ,libjpeg-turbo)
6635       ("librsvg" ,librsvg)
6636       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6637       ("gtk+" ,gtk+)))
6638    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6639    (synopsis "GNOME image viewer")
6640    (description "Eye of GNOME is the GNOME image viewer.  It
6641 supports image conversion, rotation, and slideshows.")
6642    (license license:gpl2+)))
6643
6644 (define-public eog-plugins
6645   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6646   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
6647   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
6648   ;; 'XDG_DATA_DIRS' appropriately set.
6649   (package
6650     (name "eog-plugins")
6651     (version "3.26.7")
6652     (source (origin
6653               (method url-fetch)
6654               (uri (string-append "mirror://gnome/sources/eog-plugins/"
6655                                   (version-major+minor version) "/"
6656                                   "eog-plugins-" version ".tar.xz"))
6657               (sha256
6658                (base32
6659                 "0gbvl54hjawcrj2cbkvsw5jx11p6jv1xkc58c8ikwwpb56gc3ric"))))
6660     (build-system gnu-build-system)
6661     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6662     (synopsis "Extensions for the Eye of GNOME image viewer")
6663     (native-inputs
6664      `(("pkg-config" ,pkg-config)
6665        ("gettext" ,gettext-minimal)))
6666     (inputs
6667      `(("eog" ,eog)
6668        ("glib" ,glib)
6669        ("gtk+" ,gtk+)
6670        ("libpeas" ,libpeas)
6671        ("libexif" ,libexif)
6672        ("libchamplain" ,libchamplain)))
6673     (description
6674      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6675 notably:
6676
6677 @itemize
6678 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
6679 @item @dfn{Map}, which displays a map of where the picture was taken on the
6680 side panel;
6681 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6682 @end itemize\n")
6683
6684     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6685     ;; long suspicious byte stream that goes to a
6686     ;; ".gresource.eog_postasa_plugin" ELF section.
6687     (license license:gpl2+)))
6688
6689 (define-public libgudev
6690   (package
6691     (name "libgudev")
6692     (version "236")
6693     (source (origin
6694               (method url-fetch)
6695               (uri (string-append "mirror://gnome/sources/" name "/"
6696                                   version "/" name "-" version ".tar.xz"))
6697               (sha256
6698                (base32
6699                 "094mgjmwgsgqrr1i0vd20ynvlkihvs3vgbmpbrhswjsrdp86j0z5"))))
6700     (build-system meson-build-system)
6701     (native-inputs
6702      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6703        ("gobject-introspection" ,gobject-introspection)
6704        ("pkg-config" ,pkg-config)))
6705     (propagated-inputs
6706      `(("glib" ,glib)                   ; in Requires of gudev-1.0.pc
6707        ("eudev" ,eudev)))               ; in Requires.private of gudev-1.0.pc
6708     (inputs
6709      `(("udev" ,eudev)))
6710     (home-page "https://wiki.gnome.org/Projects/libgudev")
6711     (synopsis "GObject bindings for libudev")
6712     (description
6713      "This library provides GObject bindings for libudev.  It was originally
6714 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
6715     (license license:lgpl2.1+)))
6716
6717 (define-public gvfs
6718   (package
6719     (name "gvfs")
6720     (version "1.48.1")
6721     (source (origin
6722               (method url-fetch)
6723               (uri (string-append "mirror://gnome/sources/gvfs/"
6724                                   (version-major+minor version) "/"
6725                                   "gvfs-" version ".tar.xz"))
6726               (sha256
6727                (base32
6728                 "1hlxl6368h6nyqp1888szxs9hnpcw98k3h23dgqi29xd38klzsmj"))))
6729     (build-system meson-build-system)
6730     (arguments
6731      `(#:meson ,meson-0.59
6732        #:glib-or-gtk? #t
6733        #:configure-flags
6734        (list "-Dsystemduserunitdir=no"
6735              "-Dtmpfilesdir=no"
6736              ;; Otherwise, the RUNPATH will lack the final path component.
6737              (string-append "-Dc_link_args=-Wl,-rpath="
6738                             (assoc-ref %outputs "out") "/lib/gvfs"))))
6739     (native-inputs
6740      `(("glib:bin" ,glib "bin")         ;for glib-genmarshal, etc.
6741        ("gettext" ,gettext-minimal)
6742        ("gtk-doc" ,gtk-doc/stable)
6743        ("pkg-config" ,pkg-config)
6744        ("xsltproc" ,libxslt)))
6745     (inputs
6746      `(("avahi" ,avahi)
6747        ("docbook-xml" ,docbook-xml-4.2)
6748        ("docbook-xsl" ,docbook-xsl)
6749        ("dbus" ,dbus)
6750        ("elogind" ,elogind)
6751        ("fuse" ,fuse-3)
6752        ("gcr" ,gcr)
6753        ("glib" ,glib)
6754        ("gnome-online-accounts" ,gnome-online-accounts)
6755        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6756        ("libarchive" ,libarchive)
6757        ("libbluray" ,libbluray)
6758        ("libcap" ,libcap)
6759        ("libcdio-paranoia" ,libcdio-paranoia)
6760        ("libgcrypt" ,libgcrypt)
6761        ("libgdata" ,libgdata)
6762        ("libgphoto2" ,libgphoto2)
6763        ("libgudev" ,libgudev)
6764        ("libimobiledevice" ,libimobiledevice)
6765        ("libmtp" ,libmtp)
6766        ("libnfs" ,libnfs)
6767        ("libsecret" ,libsecret)
6768        ("libsmbclient" ,samba)
6769        ("libsoup" ,libsoup)
6770        ("libxml2" ,libxml2)
6771        ("openssh" ,openssh)
6772        ("polkit" ,polkit)
6773        ("udisks" ,udisks)))
6774     (home-page "https://wiki.gnome.org/gvfs/")
6775     (synopsis "Userspace virtual file system for GIO")
6776     (description
6777      "GVFS is a userspace virtual file system designed to work with the I/O
6778 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS
6779 support to all applications using the GIO API.  It also supports exposing the
6780 GVFS mounts to non-GIO applications using FUSE.
6781
6782 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6783 DAV, and others.")
6784     (license license:lgpl2.0+)))
6785
6786 (define-public gusb-minimal
6787   (package
6788     (name "gusb-minimal")
6789     (version "0.3.5")
6790     (source (origin
6791               (method git-fetch)
6792               (uri (git-reference
6793                     (url "https://github.com/hughsie/libgusb")
6794                     (commit version)))
6795               (file-name (git-file-name name version))
6796               (sha256
6797                (base32
6798                 "0ifhdqhpyxwsg0z9s1anj7cf5pya5qsqyp5ksh9n7mqwa4lrjkl8"))))
6799     (build-system meson-build-system)
6800     (arguments
6801      `(#:tests? #f          ;libusb fails to initialize.  Wonder what that is.
6802        #:configure-flags
6803        (cons "-Ddocs=false"
6804              (if ,(%current-target-system)
6805                  ;; Introspection data cannot currently be cross-compiled.
6806                  '("-Dintrospection=false"
6807                    ;; Requires introspection data.
6808                    "-Dvapi=false")
6809                  '()))))
6810     (native-inputs
6811      `(("gobject-introspection" ,gobject-introspection)
6812        ("pkg-config" ,pkg-config)
6813        ("vala" ,vala)))
6814     (propagated-inputs
6815      ;; Both of these are required by gusb.pc.
6816      `(("glib" ,glib)
6817        ("libusb" ,libusb)))
6818     (home-page "https://github.com/hughsie/libgusb")
6819     (synopsis "GLib binding for libusb1")
6820     (description
6821      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6822 asynchronous control, bulk and interrupt transfers with proper cancellation
6823 and integration into a mainloop.  This makes it easy to integrate low level
6824 USB transfers with your high-level application or system daemon.")
6825     (license license:lgpl2.1+)))
6826
6827 (define-public gusb
6828   (package/inherit gusb-minimal
6829     (name "gusb")
6830     (arguments
6831      (substitute-keyword-arguments (package-arguments gusb-minimal)
6832        ((#:configure-flags flags)
6833         `(cons "-Ddocs=true"
6834                (delete "-Ddocs=false" ,flags)))))
6835     (native-inputs
6836      (cons `("gtk-doc" ,gtk-doc/stable)
6837            (package-native-inputs gusb-minimal)))))
6838
6839 (define-public simple-scan
6840   (package
6841     (name "simple-scan")
6842     (version "40.5")
6843     (source
6844      (origin
6845        (method url-fetch)
6846        (uri (string-append "mirror://gnome/sources/simple-scan/"
6847                            (version-major version) "/"
6848                            "simple-scan-" version ".tar.xz"))
6849        (sha256
6850         (base32 "195rh8zj5n497gj42rd77mvkdl15hk0i08ll5h4hb9kcrgj7jlzb"))))
6851     (build-system meson-build-system)
6852     ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6853     (arguments
6854      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
6855        #:glib-or-gtk? #t))
6856     (inputs
6857      `(("gtk" ,gtk+)
6858        ("zlib" ,zlib)
6859        ("cairo" ,cairo)
6860        ("colord" ,colord)
6861        ("gdk-pixbuf" ,gdk-pixbuf)
6862        ("gusb" ,gusb)
6863        ("libhandy" ,libhandy)
6864        ("libsane" ,sane-backends)))
6865     (native-inputs
6866      `(("gettext" ,gettext-minimal)
6867        ("itstool" ,itstool)
6868        ("glib" ,glib "bin")             ; glib-compile-schemas, etc.
6869        ("pkg-config" ,pkg-config)
6870        ("vala" ,vala)
6871        ("xmllint" ,libxml2)))
6872     (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
6873     (synopsis "Document and image scanner")
6874     (description
6875      "Document Scanner is an easy-to-use application that lets you connect your
6876 scanner and quickly capture images and documents in an appropriate format.  It
6877 supports any scanner for which a suitable SANE driver is available, which is
6878 almost all of them.")
6879     (license license:gpl3+)))
6880
6881 (define-public eolie
6882   (package
6883     (name "eolie")
6884     (version "0.9.101")
6885     (source (origin
6886               (method url-fetch)
6887               (uri (string-append "https://adishatz.org/eolie/eolie-"
6888                                   version ".tar.xz"))
6889               (sha256
6890                (base32
6891                 "1v8n21y75abdzsnx5idyd0q6yfb6cd0sqbknlbkwh5fdgvjzyvwn"))))
6892     (build-system meson-build-system)
6893     (arguments
6894      `(#:glib-or-gtk? #t
6895        #:phases
6896        (modify-phases %standard-phases
6897          (add-after 'unpack 'skip-gtk-update-icon-cache
6898            ;; Don't create 'icon-theme.cache'.
6899            (lambda _
6900              (substitute* "meson_post_install.py"
6901                (("gtk-update-icon-cache") "true"))
6902              #t))
6903          (add-after 'wrap 'wrap-more
6904            (lambda* (#:key inputs outputs #:allow-other-keys)
6905              (let* ((out  (assoc-ref outputs "out"))
6906                     ;; These libraries must be on LD_LIBRARY_PATH.
6907                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6908                             "atk" "gtk+" "gsettings-desktop-schemas"
6909                             "gobject-introspection"))
6910                     (path (string-join
6911                            (map (lambda (lib)
6912                                   (string-append (assoc-ref inputs lib) "/lib"))
6913                                 libs)
6914                            ":")))
6915                (wrap-program (string-append out "/bin/eolie")
6916                  `("LD_LIBRARY_PATH" ":" prefix (,path))
6917                  `("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))
6918                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6919              #t)))))
6920     (native-inputs
6921      `(("intltool" ,intltool)
6922        ("itstool" ,itstool)
6923        ("pkg-config" ,pkg-config)
6924        ("python" ,python)
6925        ("glib:bin" ,glib "bin")))
6926     (inputs
6927      `(("gobject-introspection" ,gobject-introspection)
6928        ("glib-networking" ,glib-networking)
6929        ("cairo" ,cairo)
6930        ("gtk+" ,gtk+)
6931        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6932        ("python" ,python-wrapper)
6933        ("python-dateutil" ,python-dateutil)
6934        ("python-pyfxa" ,python-pyfxa)
6935        ("python-pygobject" ,python-pygobject)
6936        ("python-pycairo" ,python-pycairo)
6937        ("python-pycrypto" ,python-pycrypto)
6938        ("libhandy" ,libhandy)
6939        ("libsecret" ,libsecret)
6940        ("gtkspell3" ,gtkspell3)
6941        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6942        ("gnome-settings-daemon" ,gnome-settings-daemon) ; desktop-schemas are not enough
6943        ("webkitgtk" ,webkitgtk)))
6944     (home-page "https://wiki.gnome.org/Apps/Eolie")
6945     (synopsis "Web browser for GNOME")
6946     (description
6947      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
6948 a secret password store, an adblocker, and a modern UI.")
6949     (license license:gpl3+)))
6950
6951 (define-public epiphany
6952   (package
6953     (name "epiphany")
6954     (version "40.3")
6955     (source (origin
6956               (method url-fetch)
6957               (uri (string-append "mirror://gnome/sources/epiphany/"
6958                                   (version-major version) "/"
6959                                   "epiphany-" version ".tar.xz"))
6960               (sha256
6961                (base32
6962                 "0r7m34xzz3shdfxf2abxb069izak3yv3ijlg29qy4pfmyawkilfs"))))
6963
6964     (build-system meson-build-system)
6965     (arguments
6966      `(#:glib-or-gtk? #t
6967        #:meson ,meson-0.59
6968        #:phases
6969        (modify-phases %standard-phases
6970          (add-after 'unpack 'skip-gtk-update-icon-cache
6971            ;; Don't create 'icon-theme.cache'.
6972            (lambda _
6973              (substitute* "post_install.py"
6974                (("gtk-update-icon-cache") "true"))))
6975          (add-after 'unpack 'disable-failing-tests
6976            (lambda _
6977              (substitute* "tests/meson.build"
6978                ;; embed_shell fails, because webkitgtk apparently no longer
6979                ;; supports overriding the ftp schema web_app_utils fails due
6980                ;; to missing network access.
6981                (("(embed_shell|web_app_utils)_test,")
6982                 "find_program('sh'), args: ['-c', 'exit 77'],"))))
6983          (add-before 'check 'pre-check
6984            (lambda _
6985              ;; Tests require a running X server.
6986              (system "Xvfb :1 &")
6987              (setenv "DISPLAY" ":1"))))
6988        #:configure-flags
6989        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
6990        (list (string-append "-Dc_link_args=-Wl,-rpath="
6991                             (assoc-ref %outputs "out") "/lib/epiphany"))))
6992     (propagated-inputs
6993      `(("dconf" ,dconf)))
6994     (native-inputs
6995      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6996        ("glib:bin" ,glib "bin") ; for glib-mkenums
6997        ("intltool" ,intltool)
6998        ("itstool" ,itstool)
6999        ("pkg-config" ,pkg-config)
7000        ("xmllint" ,libxml2)
7001        ("xorg-server" ,xorg-server-for-tests)))
7002     (inputs
7003      `(("avahi" ,avahi)
7004        ("gcr" ,gcr)
7005        ("librsvg" ,librsvg) ; for loading SVG files
7006        ("glib-networking" ,glib-networking)
7007        ("gnome-desktop" ,gnome-desktop)
7008        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7009        ("json-glib" ,json-glib)
7010        ("iso-codes" ,iso-codes)
7011        ("libarchive" ,libarchive)
7012        ("libdazzle" ,libdazzle)
7013        ("libhandy" ,libhandy)
7014        ("libnotify" ,libnotify)
7015        ("libportal" ,libportal)
7016        ("libsecret" ,libsecret)
7017        ("libxslt" ,libxslt)
7018        ("nettle" ,nettle) ; for hogweed
7019        ("sqlite" ,sqlite)
7020        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7021     (home-page "https://wiki.gnome.org/Apps/Web")
7022     (synopsis "GNOME web browser")
7023     (description
7024      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
7025 principles are simplicity and standards compliance.")
7026     (license license:gpl2+)))
7027
7028 (define-public d-feet
7029   (package
7030     (name "d-feet")
7031     (version "0.3.14")
7032     (source (origin
7033               (method url-fetch)
7034               (uri (string-append "mirror://gnome/sources/" name "/"
7035                                   (version-major+minor version) "/"
7036                                   name "-" version ".tar.xz"))
7037               (sha256
7038                (base32
7039                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
7040     (build-system glib-or-gtk-build-system)
7041     (arguments
7042      '(#:out-of-source? #f ; tests need to run in the source directory.
7043        #:phases
7044        (modify-phases %standard-phases
7045          (add-before
7046           'check 'pre-check
7047           (lambda _
7048             ;; The test suite requires a running X server.
7049             (system "Xvfb :1 &")
7050             (setenv "DISPLAY" ":1")
7051             ;; Don't fail on missing '/etc/machine-id'.
7052             (setenv "DBUS_FATAL_WARNINGS" "0")
7053             ;; tests.py and window.py don't meet E402:
7054             ;;   E402 module level import not at top of file
7055             (substitute* "src/tests/Makefile"
7056               (("--ignore=E123") "--ignore=E123,E402"))
7057             #t))
7058          (add-after
7059           'install 'wrap-program
7060           (lambda* (#:key outputs #:allow-other-keys)
7061             (let ((prog (string-append (assoc-ref outputs "out")
7062                                        "/bin/d-feet")))
7063               (wrap-program prog
7064                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
7065                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
7066               #t))))))
7067     (native-inputs
7068      `(("intltool" ,intltool)
7069        ("itstool" ,itstool)
7070        ("pkg-config" ,pkg-config)
7071        ("python-pep8" ,python-pep8)
7072        ("xmllint" ,libxml2)
7073        ("xorg-server" ,xorg-server-for-tests)))
7074     (inputs
7075      `(("gobject-introspection" ,gobject-introspection)
7076        ("gtk+" ,gtk+)
7077        ("python" ,python-wrapper)
7078        ("hicolor-icon-theme" ,hicolor-icon-theme)
7079        ("python-pygobject" ,python-pygobject)))
7080     (home-page "https://wiki.gnome.org/Apps/DFeet")
7081     (synopsis "D-Bus debugger")
7082     (description
7083      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
7084 of running programs and invoke methods on those interfaces.")
7085     (license license:gpl2+)))
7086
7087 (define-public yelp-xsl
7088   (package
7089     (name "yelp-xsl")
7090     (version "41.0")
7091     (source
7092      (origin
7093        (method url-fetch)
7094        (uri
7095         (string-append "mirror://gnome/sources/" name "/"
7096                        (version-major version) "/"
7097                        name "-" version ".tar.xz"))
7098        (sha256
7099         (base32 "19d46rkajvr0f04560vlrzwvac88x5j8ilvzwkawbn5vjg069kf8"))))
7100     (build-system gnu-build-system)
7101     (arguments
7102      `(#:configure-flags
7103        (list
7104         "--enable-doc")))
7105     (native-inputs
7106      `(("ducktype" ,mallard-ducktype)
7107        ("gettext" ,gettext-minimal)
7108        ("intltool" ,intltool)
7109        ("itstool" ,itstool)
7110        ("xmllint" ,libxml2)
7111        ("xsltproc" ,libxslt)))
7112     (synopsis "XSL stylesheets for Yelp")
7113     (description "Yelp-XSL is a collection of programs and data files to help
7114 you build, maintain, and distribute documentation.  It provides XSLT stylesheets
7115 that can be built upon for help viewers and publishing systems.  These
7116 stylesheets output JavaScript and CSS content, and reference images
7117 provided by yelp-xsl. It also redistributes copies of the jQuery and
7118 jQuery.Syntax JavaScript libraries.")
7119     (home-page "https://wiki.gnome.org/Apps/Yelp")
7120     (license
7121      (list
7122       ;; XSLT
7123       license:gpl2+
7124       ;; Images
7125       license:lgpl2.1+
7126       ;; JavaScript
7127       license:expat))))
7128
7129 (define-public yelp
7130   (package
7131     (name "yelp")
7132     (version "41.0")
7133     (source (origin
7134               (method url-fetch)
7135               (uri (string-append "mirror://gnome/sources/" name "/"
7136                                   (version-major version) "/"
7137                                   name "-" version ".tar.xz"))
7138               (sha256
7139                (base32
7140                 "11shrqass8ak8m10nayqssa6sbrrxa13ffpamvqi1c0yzkxdk9r5"))))
7141     (build-system glib-or-gtk-build-system)
7142     (native-inputs
7143      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
7144        ("intltool" ,intltool)
7145        ("itstool" ,itstool)
7146        ("pkg-config" ,pkg-config)))
7147     (propagated-inputs
7148      `(("dconf" ,dconf)))
7149     (inputs
7150      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7151        ("libxslt" ,libxslt)
7152        ("sqlite" ,sqlite)
7153        ("webkitgtk" ,webkitgtk)
7154        ("yelp-xsl" ,yelp-xsl)))
7155     (home-page "https://wiki.gnome.org/Apps/Yelp")
7156     (synopsis "GNOME help browser")
7157     (description
7158      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
7159 man, info, and HTML documents.  It can locate documents according to the
7160 freedesktop.org help system specification.")
7161     (license license:gpl2+)))
7162
7163 (define-public yelp-tools
7164   (package
7165     (name "yelp-tools")
7166     (version "3.32.2")
7167     (source
7168      (origin
7169        (method url-fetch)
7170        (uri
7171         (string-append "mirror://gnome/sources/" name "/"
7172                        (version-major+minor version) "/"
7173                        name "-" version ".tar.xz"))
7174        (sha256
7175         (base32 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
7176     (build-system gnu-build-system)
7177     (native-inputs
7178      `(("pkg-config" ,pkg-config)))
7179     (inputs
7180      `(("yelp-xsl" ,yelp-xsl)))
7181     (propagated-inputs
7182      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
7183      `(("itstool" ,itstool)
7184        ("xmllint" ,libxml2)
7185        ("xsltproc" ,libxslt)))
7186     (synopsis "Yelp documentation tools")
7187     (description
7188      "Yelp-tools is a collection of scripts and build utilities to help create,
7189 manage, and publish documentation for Yelp and the web.  Most of the heavy
7190 lifting is done by packages like yelp-xsl and itstool.  This package just
7191 wraps things up in a developer-friendly way.")
7192     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
7193     (license license:gpl2+)))
7194
7195 (define-public libgee
7196   (package
7197     (name "libgee")
7198     (version "0.20.3")
7199     (source (origin
7200               (method url-fetch)
7201               (uri (string-append "mirror://gnome/sources/libgee/"
7202                                   (version-major+minor version) "/"
7203                                   "libgee-" version ".tar.xz"))
7204               (sha256
7205                (base32
7206                 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
7207     (build-system gnu-build-system)
7208     (arguments
7209      `(#:phases
7210        (modify-phases %standard-phases
7211          (add-after 'unpack 'fix-introspection-install-dir
7212           (lambda* (#:key outputs #:allow-other-keys)
7213             (let ((out (assoc-ref outputs "out")))
7214               (substitute* "gee/Makefile.in"
7215                 (("@INTROSPECTION_GIRDIR@")
7216                  (string-append out "/share/gir-1.0/"))
7217                 (("@INTROSPECTION_TYPELIBDIR@")
7218                  (string-append out "/lib/girepository-1.0/")))))))))
7219     (native-inputs
7220      `(("glib" ,glib "bin")
7221        ("pkg-config" ,pkg-config)))
7222     (inputs
7223      `(("glib" ,glib)
7224        ("gobject-introspection" ,gobject-introspection)))
7225     (home-page "https://wiki.gnome.org/Projects/Libgee")
7226     (synopsis "GObject collection library")
7227     (description
7228      "Libgee is a utility library providing GObject-based interfaces and
7229 classes for commonly used data structures.")
7230     (license license:lgpl2.1+)))
7231
7232 (define-public gexiv2
7233   (package
7234     (name "gexiv2")
7235     (version "0.12.2")
7236     (source (origin
7237               (method url-fetch)
7238               (uri (string-append "mirror://gnome/sources/" name "/"
7239                                   (version-major+minor version) "/"
7240                                   name "-" version ".tar.xz"))
7241               (sha256
7242                (base32
7243                 "0k4ljzzz5dwqndw8awvlw3ala8rh3b2rk9i4jzvywc53mi9ba8i3"))))
7244     (build-system meson-build-system)
7245     (native-inputs
7246      `(("gcr" ,gcr)
7247        ("glib" ,glib "bin")
7248        ("pkg-config" ,pkg-config)
7249        ("vala" ,vala)))
7250     (propagated-inputs
7251      ;; Listed in "Requires" section of gexiv2.pc
7252      `(("exiv2" ,exiv2)))
7253     (inputs
7254      `(("glib" ,glib)
7255        ("gobject-introspection" ,gobject-introspection)))
7256     (home-page "https://wiki.gnome.org/Projects/gexiv2")
7257     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
7258     (description
7259      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
7260 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
7261 metadata in photo and video files of various formats.")
7262     (license license:gpl2+)))
7263
7264 (define-public shotwell
7265   (package
7266     (name "shotwell")
7267     (version "0.30.12")
7268     (source (origin
7269               (method url-fetch)
7270               (uri (string-append "mirror://gnome/sources/shotwell/"
7271                                   (version-major+minor version) "/"
7272                                   "shotwell-" version ".tar.xz"))
7273               (sha256
7274                (base32
7275                 "1h5crjq59lqi8f8mdkadzi8pc3i9i2ik4lsx2nrhzq486fzdfhw6"))))
7276     (build-system meson-build-system)
7277     (arguments
7278      '(#:glib-or-gtk? #t
7279        #:phases
7280        (modify-phases %standard-phases
7281          (add-after 'unpack 'skip-gtk-update-icon-cache
7282            (lambda _
7283              (substitute* "build-aux/meson/postinstall.py"
7284                (("gtk-update-icon-cache") (which "true"))
7285                (("update-desktop-database") (which "true")))
7286              #t)))))
7287     (propagated-inputs
7288      `(("dconf" ,dconf)))
7289     (native-inputs
7290      `(("gettext" ,gettext-minimal)
7291        ("glib:bin" ,glib "bin")
7292        ("itstool" ,itstool)
7293        ("pkg-config" ,pkg-config)
7294        ("vala" ,vala)))
7295     (inputs
7296      `(("gcr" ,gcr)
7297        ("gexiv2" ,gexiv2)
7298        ("gst-plugins-base" ,gst-plugins-base)
7299        ("gstreamer" ,gstreamer)
7300        ("json-glib" ,json-glib)
7301        ("libgdata" ,libgdata)
7302        ("libgee" ,libgee)
7303        ("libgphoto2" ,libgphoto2)
7304        ("libgudev" ,libgudev)
7305        ("libraw" ,libraw)
7306        ("libxml2" ,libxml2)
7307        ("sqlite" ,sqlite)
7308        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7309     (home-page "https://wiki.gnome.org/Apps/Shotwell")
7310     (synopsis "Photo manager for GNOME 3")
7311     (description
7312      "Shotwell is a digital photo manager designed for the GNOME desktop
7313 environment.  It allows you to import photos from disk or camera, organize
7314 them by keywords and events, view them in full-window or fullscreen mode, and
7315 share them with others via social networking and more.")
7316     (license license:lgpl2.1+)))
7317
7318 (define-public file-roller
7319   (package
7320     (name "file-roller")
7321     (version "3.40.0")
7322     (source (origin
7323               (method url-fetch)
7324               (uri (string-append "mirror://gnome/sources/file-roller/"
7325                                   (version-major+minor version) "/"
7326                                   "file-roller-" version ".tar.xz"))
7327               (sha256
7328                (base32
7329                 "039w1dcpa5ypmv6sm634alk9vbcdkyvy595vkh5gn032jsiqca2a"))))
7330     (build-system meson-build-system)
7331     (native-inputs
7332      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7333        ("intltool" ,intltool)
7334        ("itstool" ,itstool)
7335        ("pkg-config" ,pkg-config)
7336        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
7337        ("glib:bin" ,glib "bin")))
7338     ;; TODO: Add libnautilus.
7339     (inputs
7340      `(("gtk+" ,gtk+)
7341        ("gdk-pixbuf" ,gdk-pixbuf)
7342        ("json-glib" ,json-glib)
7343        ("libarchive" ,libarchive)
7344        ("libnotify" ,libnotify)
7345        ("nettle" ,nettle)
7346        ("libxml2" ,libxml2)))
7347     (synopsis "Graphical archive manager for GNOME")
7348     (description "File Roller is an archive manager for the GNOME desktop
7349 environment that allows users to view, unpack, and create compressed archives
7350 such as gzip tarballs.")
7351     (home-page "http://fileroller.sourceforge.net/")
7352     (license license:gpl2+)))
7353
7354 (define-public gnome-session
7355   (package
7356     (name "gnome-session")
7357     (version "40.1")
7358     (source (origin
7359               (method url-fetch)
7360               (uri (string-append "mirror://gnome/sources/" name "/"
7361                                   (version-major version) "/"
7362                                   name "-" version ".tar.xz"))
7363               (patches (search-patches "gnome-session-support-elogind.patch"))
7364               (sha256
7365                (base32
7366                 "02z0xr6sv9ibl7awbw9j4y05hf4jk1zgvsbbmh7n27hhjvsvc8pl"))))
7367     (arguments
7368      `(#:meson ,meson-0.59
7369        #:glib-or-gtk? #t
7370        #:phases
7371        (modify-phases %standard-phases
7372          (add-after 'install 'wrap-gnome-session
7373            (lambda* (#:key inputs outputs #:allow-other-keys)
7374              ;; Make sure 'gnome-session' finds the 'gsettings' program.
7375              (let ((glib (assoc-ref inputs "glib:bin"))
7376                    (out  (assoc-ref outputs "out")))
7377                (wrap-program (string-append out "/bin/gnome-session")
7378                  `("PATH" ":" prefix (,(string-append glib "/bin"))))))))
7379
7380        #:configure-flags
7381        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
7382          "-Dman=false" ; FIXME: disabled because of docbook validation error
7383          "-Delogind=true"
7384          "-Dsystemd=false"
7385          "-Dsystemd_session=disable"
7386          "-Dsystemd_journal=false")))
7387     (build-system meson-build-system)
7388     (native-inputs
7389      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7390        ("pkg-config" ,pkg-config)
7391        ("intltool" ,intltool)
7392        ("xsltproc" ,libxslt)
7393        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
7394        ("docbook-xsl" ,docbook-xsl)
7395        ("docbook-xml" ,docbook-xml)
7396        ("xmlto" ,xmlto)))
7397     (inputs
7398      `(("elogind" ,elogind)
7399        ("gnome-desktop" ,gnome-desktop)
7400        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7401        ("gtk+" ,gtk+)
7402        ("json-glib" ,json-glib)
7403        ("libsm" ,libsm)
7404        ("libxcomposite" ,libxcomposite)
7405        ("libxtst" ,libxtst)
7406        ("mesa" ,mesa)
7407        ("upower" ,upower)
7408        ("xtrans" ,xtrans)))
7409     (synopsis "Session manager for GNOME")
7410     (description
7411      "This package contains the GNOME session manager, as well as a
7412 configuration program to choose applications starting on login.")
7413     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7414     (license license:gpl2+)))
7415
7416 (define-public gjs
7417   (package
7418     (name "gjs")
7419     (version "1.70.0")
7420     (source (origin
7421               (method url-fetch)
7422               (uri (string-append "mirror://gnome/sources/" name "/"
7423                                   (version-major+minor version) "/"
7424                                   name "-" version ".tar.xz"))
7425               (sha256
7426                (base32
7427                 "0pqwhq0znprs0h5ixz396912acwzk9zvjfhi9qvh52ii38s2j1jb"))
7428               (modules '((guix build utils)))
7429               (snippet
7430                '(begin
7431                   (substitute* "installed-tests/scripts/testCommandLine.sh"
7432                     (("Valentín") "")
7433                     (("☭") ""))))))
7434     (build-system meson-build-system)
7435     (arguments
7436      '(#:configure-flags '("-Dinstalled_tests=false")
7437        #:phases
7438        (modify-phases %standard-phases
7439          (add-before 'check 'pre-check
7440            (lambda _
7441              ;; The test suite requires a running X server.
7442              (system "Xvfb :1 &")
7443              (setenv "DISPLAY" ":1")
7444
7445              ;; For the missing /etc/machine-id.
7446              (setenv "DBUS_FATAL_WARNINGS" "0"))))))
7447     (native-inputs
7448      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
7449        ("pkg-config" ,pkg-config)
7450        ("xmllint" ,libxml2)
7451        ;; For testing
7452        ("dbus-launch" ,dbus)
7453        ("dconf" ,dconf) ; required to properly store settings
7454        ("uuidgen" ,util-linux)
7455        ("xvfb" ,xorg-server-for-tests)))
7456     (propagated-inputs
7457      ;; These are all in the Requires.private field of gjs-1.0.pc.
7458      `(("cairo" ,cairo)
7459        ("gobject-introspection" ,gobject-introspection)
7460        ("mozjs" ,mozjs-78)))
7461     (inputs
7462      `(("gtk+" ,gtk+)
7463        ("readline" ,readline)))
7464     (synopsis "Javascript bindings for GNOME")
7465     (home-page "https://live.gnome.org/Gjs")
7466     (description
7467      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
7468 javascript engine and the GObject introspection framework.")
7469     (license license:gpl2+)))
7470
7471 (define-public gedit
7472   (package
7473     (name "gedit")
7474     (version "40.1")
7475     (source (origin
7476               (method url-fetch)
7477               (uri (string-append "mirror://gnome/sources/" name "/"
7478                                   (version-major version) "/"
7479                                   name "-" version ".tar.xz"))
7480               (sha256
7481                (base32
7482                 "149ngl9qw6h59546lir1pa7hvw23ppsnqlj9mfqphmmn5jl99qsm"))))
7483     (build-system meson-build-system)
7484     (arguments
7485      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
7486        #:glib-or-gtk? #t
7487        #:configure-flags
7488        ;; Otherwise, the RUNPATH will lack the final path component.
7489        (list (string-append "-Dc_link_args=-Wl,-rpath="
7490                             (assoc-ref %outputs "out") "/lib/gedit"))
7491
7492        ;; XXX: Generated .h files are sometimes used before being built.
7493        #:parallel-build? #f
7494
7495        #:phases
7496        (modify-phases %standard-phases
7497          (add-after 'unpack 'skip-gtk-update-icon-cache
7498            ;; Don't create 'icon-theme.cache'.
7499            (lambda _
7500              (substitute* "build-aux/meson/post_install.py"
7501                (("gtk-update-icon-cache") (which "true")))
7502              #t))
7503          (add-after 'unpack 'patch-libgd-fetch
7504            (lambda* (#:key inputs #:allow-other-keys)
7505              (let ((libgd (assoc-ref inputs "libgd")))
7506                ;; Calling git is unnecessary because libgd is fetched as a
7507                ;; native input to this package.
7508                (substitute* "meson.build"
7509                  ((".*git.*") ""))
7510                (copy-recursively libgd "subprojects/libgd")
7511                #t)))
7512          (add-after 'install 'wrap-gedit
7513            (lambda* (#:key inputs outputs #:allow-other-keys)
7514              (let ((out               (assoc-ref outputs "out"))
7515                    (gtksourceview     (assoc-ref inputs "gtksourceview"))
7516                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
7517                    (python-path       (getenv "GUIX_PYTHONPATH")))
7518                (wrap-program (string-append out "/bin/gedit")
7519                  ;; For plugins.
7520                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7521                  `("GUIX_PYTHONPATH" ":" prefix (,python-path))
7522                  ;; For language-specs.
7523                  `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
7524                                                                "/share")))))
7525              #t)))))
7526     (propagated-inputs
7527      `(("dconf" ,dconf)))
7528     (native-inputs
7529      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7530        ("intltool" ,intltool)
7531        ("itstool" ,itstool)
7532        ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7533        ("gobject-introspection" ,gobject-introspection)
7534        ("libgd"
7535         ,(origin
7536            (method git-fetch)
7537            (uri (git-reference
7538                  (url "https://gitlab.gnome.org/GNOME/libgd")
7539                  (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
7540            (file-name (git-file-name "libgd" version))
7541            (sha256
7542             (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
7543        ("pkg-config" ,pkg-config)))
7544     (inputs
7545      `(("amtk" ,amtk)
7546        ("glib" ,glib)
7547        ("gspell" ,gspell)
7548        ("gtk+" ,gtk+)
7549        ("gtksourceview" ,gtksourceview)
7550        ("libpeas" ,libpeas)
7551        ("libxml2" ,libxml2)
7552        ("iso-codes" ,iso-codes)
7553        ("python-pygobject" ,python-pygobject)
7554        ("python" ,python)
7555        ("tepl" ,tepl)
7556        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7557        ("libx11" ,libx11)
7558        ("vala" ,vala)
7559        ("adwaita-icon-theme" ,adwaita-icon-theme)
7560        ("libsoup" ,libsoup)
7561        ("gnome-desktop" ,gnome-desktop)))
7562     (home-page "https://wiki.gnome.org/Apps/Gedit")
7563     (synopsis "GNOME text editor")
7564     (description "While aiming at simplicity and ease of use, gedit is a
7565 powerful general purpose text editor.")
7566     (license license:gpl2+)))
7567
7568 (define-public zenity
7569   (package
7570     (name "zenity")
7571     (version "3.32.0")
7572     (source (origin
7573               (method url-fetch)
7574               (uri (string-append "mirror://gnome/sources/zenity/"
7575                                   (version-major+minor version) "/"
7576                                   "zenity-" version ".tar.xz"))
7577               (sha256
7578                (base32
7579                 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
7580     (build-system gnu-build-system)
7581     (native-inputs
7582      `(("gettext" ,gettext-minimal)
7583        ("itstool" ,itstool)
7584        ("pkg-config" ,pkg-config)))
7585     (inputs
7586      `(("libnotify" ,libnotify)
7587        ("webkitgtk" ,webkitgtk)))
7588     (synopsis "Display graphical dialog boxes from shell scripts")
7589     (home-page "https://www.gnome.org")
7590     (description
7591      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7592 to display dialog boxes from the commandline and shell scripts.")
7593     (license license:lgpl2.0+)))
7594
7595 (define-public mutter
7596   (package
7597     (name "mutter")
7598     (version "41.0")
7599     (source (origin
7600               (method url-fetch)
7601               (uri (string-append "mirror://gnome/sources/" name "/"
7602                                   (version-major version) "/"
7603                                   name "-" version ".tar.xz"))
7604               (sha256
7605                (base32
7606                 "17pqrm48kddqrc3fl96n5knhaxyn0crg0zv7zpmqhk848jks307s"))))
7607     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7608     ;; versions of cogl and clutter.  As a result, many of the inputs,
7609     ;; propagated-inputs, and configure flags used in cogl and clutter are
7610     ;; needed here as well.
7611     (build-system meson-build-system)
7612     (arguments
7613      `(#:imported-modules (,@%meson-build-system-modules
7614                            (guix build syscalls))
7615        #:modules ((guix build meson-build-system)
7616                   (guix build syscalls)
7617                   (guix build utils)
7618                   (ice-9 match))
7619        #:glib-or-gtk? #t
7620        #:configure-flags
7621        (list
7622         ;; Otherwise, the RUNPATH will lack the final path component.
7623         (string-append "-Dc_link_args=-Wl,-rpath="
7624                        (assoc-ref %outputs "out") "/lib:"
7625                        (assoc-ref %outputs "out") "/lib/mutter-9")
7626         ;; Disable systemd support.
7627         "-Dsystemd=false"
7628         ;; The following flags are needed for the bundled clutter
7629         (string-append "-Dxwayland_path="
7630                        (assoc-ref %build-inputs "xorg-server-xwayland")
7631                        "/bin/Xwayland")
7632         ;; the remaining flags are needed for the bundled cogl
7633         (string-append "-Dopengl_libname="
7634                        (assoc-ref %build-inputs "mesa")
7635                        "/lib/libGL.so")
7636         (string-append "-Dgles2_libname="
7637                        (assoc-ref %build-inputs "mesa")
7638                        "/lib/libGLESv2.so")
7639         "-Degl_device=true"              ;false by default
7640         "-Dwayland_eglstream=true")      ;false by default
7641        #:test-options
7642        (list "--verbose")
7643        #:phases
7644        (modify-phases %standard-phases
7645          (add-after 'unpack 'patch-dlopen-calls
7646            (lambda* (#:key inputs #:allow-other-keys)
7647              (substitute* "src/wayland/meta-wayland-egl-stream.c"
7648                (("libnvidia-egl-wayland.so.1")
7649                 (string-append (assoc-ref inputs "egl-wayland")
7650                                "/lib/libnvidia-egl-wayland.so.1")))))
7651          (add-before 'configure 'set-udev-dir
7652            (lambda* (#:key inputs outputs #:allow-other-keys)
7653              (setenv "PKG_CONFIG_UDEV_UDEVDIR"
7654                      (string-append (assoc-ref outputs "out")
7655                                     "/lib/udev"))))
7656          (add-after 'unpack 'disable-problematic-tests
7657            (lambda _
7658              ;; The native-headless test hangs due to attempting to use audio,
7659              ;; unavailable in the container.
7660              ;; Note: the following sed expression deletes the whole test(...)
7661              ;; expression paragraph.  For an explanation, see: info '(sed)
7662              ;; Multiline techniques'.
7663              (invoke "sed" "/./{H;$!d} ; x ; s/^.*native-headless.*$//"
7664                      "-i" "src/tests/meson.build")))
7665          (replace 'check
7666            (lambda* (#:key tests? test-options parallel-tests?
7667                      #:allow-other-keys)
7668              (when tests?
7669                ;; Setup (see the 'test-mutter' CI target at
7670                ;; https://gitlab.gnome.org/GNOME/mutter/-/raw/main/.gitlab-ci.yml).
7671                (setenv "XDG_RUNTIME_DIR" "runtime-dir")
7672                (setenv "GSETTINGS_SCHEMA_DIR" "data")
7673                (setenv "MUTTER_DEBUG_DUMMY_MODE_SPECS" "800x600@10.0")
7674                (setenv "PIPEWIRE_DEBUG" "2")
7675                (setenv "PIPEWIRE_LOG" "meson-logs/pipewire.log")
7676                (setenv "XVFB_SERVER_ARGS" "+iglx -noreset")
7677                (setenv "G_SLICE" "always-malloc")
7678                (setenv "MALLOC_CHECK" "3")
7679                (setenv "NO_AT_BRIDGE" "1")
7680                ;; This is needed, otherwise the "mutter:core+mutter/unit /
7681                ;; anonymous-file" test would fail (see:
7682                ;; https://gitlab.gnome.org/GNOME/mutter/-/issues/2017).
7683                (setenv "CI_JOB_ID" "1")
7684
7685                (invoke "glib-compile-schemas" (getenv "GSETTINGS_SCHEMA_DIR"))
7686                (mkdir-p (getenv "XDG_RUNTIME_DIR"))
7687                (chmod (getenv "XDG_RUNTIME_DIR") #o755)
7688                (invoke "pipewire" "--version") ;check for pipewire
7689                (system "pipewire &")    ;always returns 0 due to forking
7690
7691                (setenv "MESON_TESTTHREADS"
7692                        (if parallel-tests?
7693                            (number->string (parallel-job-count))
7694                            "1"))
7695                (match (primitive-fork)
7696                  (0                     ;child process
7697                   (set-child-subreaper!)
7698                   ;; Use tini so that signals are properly handled and
7699                   ;; doubly-forked processes get reaped; otherwise,
7700                   ;; python-dbusmock would waste time polling for the dbus
7701                   ;; processes it spawns to be reaped, in vain.
7702                   (apply execlp "tini" "--"
7703                          "dbus-run-session" "--"
7704                          "xvfb-run" "-a" "-s" (getenv "XVFB_SERVER_ARGS")
7705                          "meson" "test" "-t" "0" "--print-errorlogs"
7706                          test-options))
7707                  (pid
7708                   (match (waitpid pid)
7709                     ((_ . status)
7710                      (unless (zero? status)
7711                        (error "`meson test' exited with status"
7712                               status))))))))))))
7713     (native-inputs
7714      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7715        ("glib:bin" ,glib "bin")         ; for glib-compile-schemas, etc.
7716        ("gobject-introspection" ,gobject-introspection)
7717        ("intltool" ,intltool)
7718        ("pkg-config" ,pkg-config)
7719        ("xvfb-run" ,xvfb-run)
7720        ;; For git build
7721        ("autoconf" ,autoconf)
7722        ("automake" ,automake)
7723        ("libtool" ,libtool)
7724        ;; For tests.
7725        ;; Warnings are configured to be fatal during the tests; add an icon
7726        ;; theme to please libxcursor.
7727        ("adwaita-icon-theme" ,adwaita-icon-theme)
7728        ("libxcursor" ,libxcursor)       ;for XCURSOR_PATH
7729        ("pipewire" ,pipewire-0.3)
7730        ("python-dbus" ,python-dbus)
7731        ("python-dbusmock" ,python-dbusmock)
7732        ("tini" ,tini)))                 ;acting as init (zombie reaper)
7733     (propagated-inputs
7734      `( ;; libmutter.pc refers to these:
7735        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7736        ("gtk+" ,gtk+)
7737        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7738        ("atk" ,atk)
7739        ("cairo" ,cairo)
7740        ("gdk-pixbuf" ,gdk-pixbuf)
7741        ("glib" ,glib)
7742        ("json-glib" ,json-glib)
7743        ("libinput" ,libinput)
7744        ("libx11" ,libx11)
7745        ("libxcomposite" ,libxcomposite)
7746        ("libxcvt" ,libxcvt)
7747        ("libxdamage" ,libxdamage)
7748        ("libxext" ,libxext)
7749        ("libxfixes" ,libxfixes)
7750        ("libxkbcommon" ,libxkbcommon)
7751        ("libxml2" ,libxml2)
7752        ("libxrandr" ,libxrandr)
7753        ("mesa" ,mesa)
7754        ("pango" ,pango)
7755        ("udev" ,eudev)
7756        ("xinput" ,xinput)))
7757     (inputs
7758      `(("egl-wayland" ,egl-wayland)     ;for wayland-eglstream-protocols
7759        ("elogind" ,elogind)
7760        ("gnome-desktop" ,gnome-desktop)
7761        ("gnome-settings-daemon" ,gnome-settings-daemon)
7762        ("graphene" ,graphene)
7763        ("libcanberra-gtk" ,libcanberra)
7764        ("libgudev" ,libgudev)
7765        ("libice" ,libice)
7766        ("libsm" ,libsm)
7767        ("libwacom" ,libwacom)
7768        ("libxkbfile" ,libxkbfile)
7769        ("libxrandr" ,libxrandr)
7770        ("libxtst" ,libxtst)
7771        ("pipewire" ,pipewire-0.3)
7772        ("startup-notification" ,startup-notification)
7773        ("sysprof" ,sysprof)
7774        ("upower-glib" ,upower)
7775        ("xkeyboard-config" ,xkeyboard-config)
7776        ("xorg-server-xwayland" ,xorg-server-xwayland)
7777        ("zenity" ,zenity)))
7778     (synopsis "Window and compositing manager")
7779     (home-page "https://www.gnome.org")
7780     (description
7781      "Mutter is a window and compositing manager that displays and manages your
7782 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
7783 Clutter toolkit with solid window-management logic inherited from the Metacity
7784 window manager.")
7785     (license license:gpl2+)))
7786
7787 (define-public gnome-online-accounts
7788   (package
7789     (name "gnome-online-accounts")
7790     (version "3.43.1")
7791     (source (origin
7792               (method url-fetch)
7793               (uri (string-append "mirror://gnome/sources/" name "/"
7794                                   (version-major+minor version) "/"
7795                                   name "-" version ".tar.xz"))
7796               (sha256
7797                (base32
7798                 "1s5pmy3hx6hhnyi40r7b773py9kn2qbkxnpxv6149z9fl5ikdjrv"))))
7799     (outputs '("out" "lib"))
7800     (build-system glib-or-gtk-build-system)
7801     (arguments
7802      `(#:configure-flags
7803        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
7804        #:phases
7805        (modify-phases %standard-phases
7806          (add-before 'configure 'patch-libgoa-output
7807            (lambda* (#:key outputs #:allow-other-keys)
7808              (let ((lib (assoc-ref outputs "lib")))
7809                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
7810                  (("@prefix@") lib)
7811                  (("@exec_prefix@") lib)
7812                  (("@libdir@") (string-append lib "/lib"))
7813                  (("@includedir@") (string-append lib "/include"))
7814                  (("@datadir@") (string-append lib "/share")))
7815                ;; Make sure gobject-introspection knows about the output
7816                ;; too (see <https://bugs.gnu.org/36535>).
7817                (setenv "outputs" "out lib")))))))
7818     (native-inputs
7819      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7820        ("gobject-introspection" ,gobject-introspection)
7821        ("intltool" ,intltool)
7822        ("pkg-config" ,pkg-config)
7823        ("vala" ,vala)
7824        ("xsltproc" ,libxslt)))
7825     (propagated-inputs
7826      `(("glib" ,glib)           ; required by goa-1.0.pc
7827        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
7828     (inputs
7829      `(("docbook-xsl" ,docbook-xsl)
7830        ("json-glib" ,json-glib)
7831        ("libsecret" ,libsecret)
7832        ("rest" ,rest)
7833        ;; WebKitGtk propagates libsoup 3, which causes the build to fail; so
7834        ;; use a special variant.
7835        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7836     (synopsis "Single sign-on framework for GNOME")
7837     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7838     (description
7839      "GNOME Online Accounts provides interfaces so that applications and
7840 libraries in GNOME can access the user's online accounts.  It has providers
7841 for Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare,
7842 Microsoft Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7843     (license license:lgpl2.0+)))
7844
7845 (define-public evolution-data-server
7846   (package
7847     (name "evolution-data-server")
7848     (version "3.42.1")
7849     (source
7850      (origin
7851        (method url-fetch)
7852        (uri (string-append "mirror://gnome/sources/" name "/"
7853                            (version-major+minor version) "/"
7854                            name "-" version ".tar.xz"))
7855        (sha256
7856         (base32 "0a7my8spwcaf2i2fz8ndddi1drv6l9gxq0qblmnkxzyhfwm7zrp6"))))
7857     (build-system cmake-build-system)
7858     (arguments
7859      '(#:configure-flags
7860        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
7861               (runpaths (map (lambda (s)
7862                                (string-append lib "/evolution-data-server/" s))
7863                              '("addressbook-backends" "calendar-backends"
7864                                "camel-providers" "credential-modules"
7865                                "registry-modules"))))
7866          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
7867                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
7868                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
7869                "-DENABLE_VALA_BINDINGS=ON"
7870                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7871                               (string-append lib "/evolution-data-server;")
7872                               (string-join runpaths ";"))
7873                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
7874        #:phases
7875        (modify-phases %standard-phases
7876          (add-after 'unpack 'disable-failing-tests
7877            (lambda _
7878              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7879              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7880              (delete-file-recursively "tests/book-migration")
7881              (substitute* "tests/CMakeLists.txt"
7882                (("add_subdirectory\\(book-migration\\)") ""))))
7883          (add-after 'unpack 'patch-paths
7884           (lambda _
7885             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7886                            "tests/libedata-book/data-test-utils.c"
7887                            "tests/libedata-book/test-book-cache-utils.c"
7888                            "tests/libedata-cal/test-cal-cache-utils.c")
7889               (("/bin/rm") (which "rm")))))
7890          (add-before 'configure 'dont-override-rpath
7891            (lambda _
7892              (substitute* "CMakeLists.txt"
7893                ;; CMakeLists.txt hard-codes runpath to just the libdir.
7894                ;; Remove it so the configure flag is respected.
7895                (("SET\\(CMAKE_INSTALL_RPATH .*") "")))))))
7896     (native-inputs
7897      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7898        ("gobject-introspection" ,gobject-introspection)
7899        ("gperf" ,gperf)
7900        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7901        ("intltool" ,intltool)
7902        ("pkg-config" ,pkg-config)
7903        ("vala" ,vala)
7904        ("python" ,python-wrapper)))
7905     (propagated-inputs
7906      ;; These are all in the Requires field of .pc files.
7907      `(("gtk+" ,gtk+)
7908        ("libical" ,libical)
7909        ("libsecret" ,libsecret)
7910        ("libsoup" ,libsoup-minimal-2)
7911        ("nss" ,nss)
7912        ("sqlite" ,sqlite)))
7913     (inputs
7914      `(("bdb" ,bdb)
7915        ("gcr" ,gcr)
7916        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7917        ("json-glib" ,json-glib)
7918        ("libcanberra" ,libcanberra)
7919        ("libgweather" ,libgweather)
7920        ("mit-krb5" ,mit-krb5)
7921        ("openldap" ,openldap)
7922        ("webkitgtk" ,webkitgtk-with-libsoup2)))
7923     (synopsis "Store address books and calendars")
7924     (home-page "https://wiki.gnome.org/Apps/Evolution")
7925     (description
7926      "This package provides a unified backend for programs that work with
7927 contacts, tasks, and calendar information.  It was originally developed for
7928 Evolution (hence the name), but is now used by other packages as well.")
7929     (license license:lgpl2.0)))
7930
7931 (define-public caribou
7932   (package
7933     (name "caribou")
7934     (version "0.4.21")
7935     (source (origin
7936               (method url-fetch)
7937               (uri (string-append "mirror://gnome/sources/" name "/"
7938                                   (version-major+minor version) "/"
7939                                   name "-" version ".tar.xz"))
7940               (sha256
7941                (base32
7942                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
7943     (build-system glib-or-gtk-build-system)
7944     (arguments
7945      '(#:phases
7946        (modify-phases %standard-phases
7947          (add-before
7948           'build 'pre-build
7949           (lambda* (#:key outputs #:allow-other-keys)
7950             (let ((out (assoc-ref outputs "out")))
7951               ;; Use absolute shared library path in Caribou-1.0.typelib.
7952               (substitute* "libcaribou/Makefile"
7953                 (("--shared-library=libcaribou.so")
7954                  (string-append "--shared-library="
7955                                 out "/lib/libcaribou.so")))
7956               #t)))
7957          (add-after 'install 'wrap-programs
7958           (lambda* (#:key outputs #:allow-other-keys)
7959             (let* ((out (assoc-ref outputs "out"))
7960                    (python-path (getenv "GUIX_PYTHONPATH"))
7961                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7962               (for-each
7963                (lambda (prog)
7964                  (wrap-program prog
7965                    `("GUIX_PYTHONPATH"      ":" prefix (,python-path))
7966                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7967                (list (string-append out "/bin/caribou-preferences")
7968                      (string-append out "/libexec/antler-keyboard"))))
7969             #t)))))
7970     (native-inputs
7971      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7972        ("gobject-introspection" ,gobject-introspection)
7973        ("intltool" ,intltool)
7974        ("pkg-config" ,pkg-config)
7975        ("python" ,python)
7976        ("vala" ,vala)
7977        ("xsltproc" ,libxslt)))
7978     (propagated-inputs
7979      ;; caribou-1.0.pc refers to all these.
7980      `(("libgee" ,libgee)
7981        ("libxklavier" ,libxklavier)
7982        ("libxtst" ,libxtst)
7983        ("gtk+" ,gtk+)))
7984     (inputs
7985      `(("clutter" ,clutter)
7986        ("dconf" ,dconf)
7987        ("gtk+-2" ,gtk+-2)
7988        ("python-pygobject" ,python-pygobject)))
7989     (synopsis "Text entry and UI navigation application")
7990     (home-page "https://wiki.gnome.org/Projects/Caribou")
7991     (description
7992      "Caribou is an input assistive technology intended for switch and pointer
7993 users.")
7994     (license license:lgpl2.1)))
7995
7996 (define-public network-manager
7997   (package
7998     (name "network-manager")
7999     (version "1.32.12")
8000     (source (origin
8001               (method url-fetch)
8002               (uri (string-append "mirror://gnome/sources/NetworkManager/"
8003                                   (version-major+minor version) "/"
8004                                   "NetworkManager-" version ".tar.xz"))
8005               (patches (search-patches "network-manager-plugin-path.patch"
8006                                        "network-manager-meson.patch"))
8007               (sha256
8008                (base32
8009                 "0jzmz0zw64dgvdn2g7pppr7bkywpbxcbdb1viv6p7zh2lnh3dax8"))))
8010     (build-system meson-build-system)
8011     (outputs '("out"
8012                "doc"))                  ; 8 MiB of gtk-doc HTML
8013     (arguments
8014      `(#:configure-flags
8015        (let ((out      (assoc-ref %outputs "out"))
8016              (dhclient (search-input-file %build-inputs "/sbin/dhclient")))
8017          (list
8018           ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
8019           ;; component.
8020           (string-append "-Dc_link_args=-Wl,-rpath="
8021                          out "/lib:"
8022                          out "/lib/NetworkManager/" ,version)
8023           "-Dsystemd_journal=false"
8024           "-Dsession_tracking=elogind"
8025           "-Dsuspend_resume=elogind"
8026           "-Dsystemdsystemunitdir=no"
8027           "-Dsession_tracking_consolekit=false"
8028           "-Ddhcpcd=no"
8029           "-Ddhcpcanon=no"
8030           "-Dcrypto=gnutls"
8031           "-Diwd=true"
8032           "-Dlibaudit=yes"
8033           "-Dqt=false"
8034           "-Ddocs=true"
8035           "--sysconfdir=/etc"
8036           "--localstatedir=/var"
8037           (string-append "-Dudev_dir="
8038                          out "/lib/udev")
8039           (string-append "-Ddbus_conf_dir="
8040                          out "/etc/dbus-1/system.d")
8041
8042           (string-append "-Ddhclient=" dhclient)))
8043        #:phases
8044        (modify-phases %standard-phases
8045          (add-before 'configure 'pre-configure
8046            (lambda _
8047              ;; These tests try to test aspects of network-manager's
8048              ;; functionality within restricted containers, but they don't
8049              ;; cope with being already in the Guix build jail as that jail
8050              ;; lacks some features that they would like to proxy over (like
8051              ;; a /sys mount).
8052              (substitute* "src/core/tests/meson.build"
8053                ((".*test-l3cfg.*") ""))
8054              (substitute* "src/core/devices/tests/meson.build"
8055                ((".*test-acd.*") "")
8056                ((".*test-lldp.*") ""))
8057              (substitute* "src/core/platform/tests/meson.build"
8058                ((".*test-address-linux.*") "")
8059                ((".*test-cleanup-linux.*") "")
8060                ((".*test-link-linux.*") "")
8061                ((".*test-lldp.*") "")
8062                ((".*test-route-linux.*") "")
8063                ((".*test-tc-linux.*") ""))
8064              ;; FIXME: The jansson check fails (see:
8065              ;; https://gitlab.freedesktop.org/NetworkManager/NetworkManager/-/issues/837
8066              (substitute* "src/libnm-core-impl/tests/test-setting.c"
8067                (("g_assert\\(nm_json_vt\\(\\)\\);")
8068                 "return TRUE;"))))
8069          (add-after 'unpack 'patch-docbook-xml
8070            (lambda* (#:key inputs #:allow-other-keys)
8071              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
8072                                           "/xml/dtd/docbook")))
8073                (substitute* (find-files "." ".*\\.(xsl|xml)")
8074                  (("http://.*/docbookx\\.dtd")
8075                   (string-append xmldoc "/docbookx.dtd"))))))
8076          (add-before 'check 'pre-check
8077            (lambda _
8078              ;; For the missing /etc/machine-id.
8079              (setenv "DBUS_FATAL_WARNINGS" "0")))
8080          (add-before 'install 'no-polkit-magic
8081            ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
8082            (lambda _
8083              (setenv "PKEXEC_UID" "something")))
8084          (add-after 'install 'move-doc
8085            (lambda* (#:key outputs #:allow-other-keys)
8086              (let ((out (assoc-ref outputs "out"))
8087                    (doc (assoc-ref outputs "doc")))
8088                (mkdir-p (string-append doc "/share"))
8089                (for-each (lambda (directory)
8090                            (copy-recursively (string-append out directory)
8091                                              (string-append doc directory))
8092                            (delete-file-recursively
8093                             (string-append out directory)))
8094                          '("/share/doc" "/share/gtk-doc"))))))))
8095     (propagated-inputs
8096      `(("glib" ,glib)))
8097     (native-inputs
8098      `(("glib:bin" ,glib "bin")         ; for gdbus-codegen
8099        ("gtk-doc" ,gtk-doc/stable)
8100        ("gobject-introspection" ,gobject-introspection)
8101        ("docbook-xml" ,docbook-xml)
8102        ("docbook-xsl" ,docbook-xsl)
8103        ("intltool" ,intltool)
8104        ("libxslt" ,libxslt)
8105        ("libxml2" ,libxml2)
8106        ("pkg-config" ,pkg-config)
8107        ("vala" ,vala)
8108        ;; For testing.
8109        ("python" ,python-wrapper)
8110        ("python-dbus" ,python-dbus)
8111        ("python-pygobject" ,python-pygobject)))
8112     (inputs
8113      `(("curl" ,curl)
8114        ("cyrus-sasl" ,cyrus-sasl)
8115        ("dbus-glib" ,dbus-glib)
8116        ("dnsmasq" ,dnsmasq)
8117        ("eudev" ,eudev)
8118        ("gnutls" ,gnutls)
8119        ("iptables" ,iptables)
8120        ("isc-dhcp" ,isc-dhcp)
8121        ("iwd" ,iwd)                     ; wpa_supplicant alternative
8122        ("jansson" ,jansson)
8123        ("libaudit" ,audit)
8124        ("libgcrypt" ,libgcrypt)
8125        ("libgudev" ,libgudev)
8126        ("libndp" ,libndp)
8127        ("libnl" ,libnl)
8128        ("libselinux" ,libselinux)
8129        ("libsoup" ,libsoup)
8130        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
8131        ("modem-manager" ,modem-manager)
8132        ("newt" ,newt)                   ;for the 'nmtui' console interface
8133        ("openresolv" ,openresolv)       ; alternative resolv.conf manager
8134        ("polkit" ,polkit)
8135        ("ppp" ,ppp)
8136        ("readline" ,readline)
8137        ("util-linux" ,util-linux)
8138        ("elogind" ,elogind)))
8139     (synopsis "Network connection manager")
8140     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8141     (description
8142      "NetworkManager is a system network service that manages your network
8143 devices and connections, attempting to keep active network connectivity when
8144 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
8145 devices, and provides VPN integration with a variety of different VPN
8146 services.")
8147     ;; “This NetworkManager project consists of the daemon, client tools, and
8148     ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
8149     ;; GPL-2.0+.”
8150     (license (list license:gpl2+
8151                    license:lgpl2.1+))
8152     (properties '((upstream-name . "NetworkManager")))))
8153
8154 (define-public network-manager-openvpn
8155   (package
8156     (name "network-manager-openvpn")
8157     (version "1.8.12")
8158     (source (origin
8159               (method url-fetch)
8160               (uri (string-append
8161                     "mirror://gnome/sources/NetworkManager-openvpn/"
8162                     (version-major+minor version)
8163                     "/NetworkManager-openvpn-" version ".tar.xz"))
8164               (sha256
8165                (base32
8166                 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
8167     (build-system gnu-build-system)
8168     (arguments
8169      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
8170        #:phases
8171        (modify-phases %standard-phases
8172          (add-after 'configure 'patch-path
8173            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8174              (let* ((ovpn (search-input-file inputs "/sbin/openvpn"))
8175                     (modprobe (search-input-file inputs "/bin/modprobe"))
8176                     (pretty-ovpn (string-append "\"" ovpn "\"")))
8177                (for-each
8178                 (lambda (file)
8179                   (substitute* file
8180                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
8181                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
8182                     (("\"/sbin/openvpn\"") pretty-ovpn)
8183                     (("/sbin/modprobe") modprobe)))
8184                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
8185              #t)))))
8186     (native-inputs
8187      `(("pkg-config" ,pkg-config)
8188        ("intltool" ,intltool)))
8189     (inputs
8190      `(("gtk+" ,gtk+)
8191        ("kmod" ,kmod)
8192        ("openvpn" ,openvpn)
8193        ("network-manager" ,network-manager)
8194        ("libnma" ,libnma)
8195        ("libsecret" ,libsecret)))
8196     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8197     (synopsis "OpenVPN plug-in for NetworkManager")
8198     (description
8199      "This extension of NetworkManager allows it to take care of connections
8200 to virtual private networks (VPNs) via OpenVPN.")
8201     (license license:gpl2+)
8202     (properties `((upstream-name . "NetworkManager-openvpn")))))
8203
8204 (define-public network-manager-vpnc
8205   (package
8206     (name "network-manager-vpnc")
8207     (version "1.2.6")
8208     (source (origin
8209               (method url-fetch)
8210               (uri (string-append
8211                     "mirror://gnome/sources/NetworkManager-vpnc/"
8212                     (version-major+minor version)
8213                     "/NetworkManager-vpnc-" version ".tar.xz"))
8214               (sha256
8215                (base32
8216                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
8217     (build-system gnu-build-system)
8218     (arguments
8219      `(#:configure-flags '("--enable-absolute-paths"
8220                            "--localstatedir=/var"
8221                            ;; libnm-glib has been removed from network-manager
8222                            ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
8223                            "--with-libnm-glib=no")
8224        #:phases
8225        (modify-phases %standard-phases
8226          (add-after 'configure 'patch-path
8227            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8228              (let* ((vpnc (search-input-file inputs "/sbin/vpnc"))
8229                     (modprobe (search-input-file inputs "/bin/modprobe"))
8230                     (pretty-ovpn (string-append "\"" vpnc "\"")))
8231                (substitute* "src/nm-vpnc-service.c"
8232                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
8233                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
8234                     (("\"/sbin/vpnc\"") pretty-ovpn)
8235                     (("/sbin/modprobe") modprobe)))
8236              #t)))))
8237     (native-inputs
8238      `(("pkg-config" ,pkg-config)
8239        ("intltool" ,intltool)))
8240     (inputs
8241      `(("gtk+" ,gtk+)
8242        ("kmod" ,kmod)
8243        ("vpnc" ,vpnc)
8244        ("network-manager" ,network-manager)
8245        ("libnma" ,libnma)
8246        ("libsecret" ,libsecret)))
8247     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8248     (synopsis "VPNC plug-in for NetworkManager")
8249     (description
8250      "Support for configuring virtual private networks based on VPNC.
8251 Compatible with Cisco VPN concentrators configured to use IPsec.")
8252     (license license:gpl2+)
8253     (properties `((upstream-name . "NetworkManager-vpnc")))))
8254
8255 (define-public network-manager-openconnect
8256   (package
8257     (name "network-manager-openconnect")
8258     (version "1.2.6")
8259     (source (origin
8260               (method url-fetch)
8261               (uri (string-append
8262                     "mirror://gnome/sources/NetworkManager-openconnect/"
8263                     (version-major+minor version)
8264                     "/NetworkManager-openconnect-" version ".tar.xz"))
8265               (sha256
8266                (base32
8267                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
8268     (build-system gnu-build-system)
8269     (arguments
8270      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
8271        #:phases
8272        (modify-phases %standard-phases
8273          (add-after 'configure 'patch-path
8274            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
8275              (let* ((openconnect (search-input-file inputs
8276                                                     "/sbin/openconnect"))
8277                     (modprobe (search-input-file inputs "/bin/modprobe"))
8278                     (pretty-ovpn (string-append "\"" openconnect "\"")))
8279                (substitute* "src/nm-openconnect-service.c"
8280                  (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
8281                  (("/sbin/modprobe") modprobe)))
8282              #t)))))
8283     (native-inputs
8284      `(("intltool" ,intltool)
8285        ("libnma" ,libnma)
8286        ("pkg-config" ,pkg-config)))
8287     (inputs
8288      `(("gcr" ,gcr)
8289        ("gtk+" ,gtk+)
8290        ("kmod" ,kmod)
8291        ("libsecret" ,libsecret)
8292        ("libxml2" ,libxml2)
8293        ("lz4" ,lz4)
8294        ("network-manager" ,network-manager)
8295        ("openconnect" ,openconnect)))
8296     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
8297     (synopsis "OpenConnect plug-in for NetworkManager")
8298     (description
8299      "This extension of NetworkManager allows it to take care of connections
8300 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
8301 Cisco's AnyConnect SSL VPN.")
8302     (license license:gpl2+)
8303     (properties `((upstream-name . "NetworkManager-openconnect")
8304
8305                   ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
8306                   ;; file refers to account "nm-openconnect".  Specify it here
8307                   ;; so that 'network-manager-service-type' creates it.
8308                   (user-accounts . ("nm-openconnect"))))))
8309
8310 (define-public mobile-broadband-provider-info
8311   (package
8312     (name "mobile-broadband-provider-info")
8313     (version "20190116")
8314     (source (origin
8315               (method url-fetch)
8316               (uri (string-append
8317                     "mirror://gnome/sources/"
8318                     "mobile-broadband-provider-info/" version "/"
8319                     "mobile-broadband-provider-info-" version ".tar.xz"))
8320               (sha256
8321                (base32
8322                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
8323     (build-system gnu-build-system)
8324     (arguments
8325      `(#:tests? #f))                    ; no tests
8326     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8327     (synopsis "Database of broadband connection configuration")
8328     (description "Database of broadband connection configuration.")
8329     (license license:public-domain)))
8330
8331 (define-public network-manager-applet
8332   (package
8333     (name "network-manager-applet")
8334     (version "1.22.0")
8335     (source (origin
8336               (method url-fetch)
8337               (uri (string-append "mirror://gnome/sources/network-manager-applet/"
8338                                   (version-major+minor version) "/"
8339                                   "network-manager-applet-" version ".tar.xz"))
8340               (sha256
8341                (base32
8342                 "1gj6lqqi613j2m49v9i82lqg1rv7kwwc8z4nxjcwpaa0ins803f7"))))
8343     (build-system meson-build-system)
8344     (arguments
8345      `(#:meson ,meson-0.59
8346        #:glib-or-gtk? #t
8347        #:configure-flags
8348        '("-Dappindicator=yes")))
8349     (native-inputs
8350      `(("intltool" ,intltool)
8351        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
8352        ("gobject-introspection" ,gobject-introspection)
8353        ("gtk-doc" ,gtk-doc/stable)
8354        ("pkg-config" ,pkg-config)))
8355     (propagated-inputs
8356      ;; libnm-gtk.pc refers to all these.
8357      `(("dbus-glib" ,dbus-glib)
8358        ("gtk+" ,gtk+)
8359        ("network-manager" ,network-manager)
8360        ;; nm-applet need by org.gnome.nm-applet.gschema.xml
8361        ("libnma" ,libnma)))
8362     (inputs
8363      `(("gcr" ,gcr)
8364        ("libappindicator" ,libappindicator)
8365        ("libgudev" ,libgudev)
8366        ("libnotify" ,libnotify)
8367        ("libsecret" ,libsecret)
8368        ("libselinux" ,libselinux)
8369        ("jansson" ,jansson) ; for team support
8370        ("modem-manager" ,modem-manager)))
8371     (synopsis "Applet for managing network connections")
8372     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
8373     (description
8374      "This package contains a systray applet for NetworkManager.  It displays
8375 the available networks and allows users to easily switch between them.")
8376     (license license:gpl2+)))
8377
8378 (define-public libxml++
8379   (package
8380     (name "libxml++")
8381     (version "3.2.0")
8382     (source
8383      (origin
8384        (method git-fetch)
8385        (uri (git-reference
8386              (url "https://github.com/libxmlplusplus/libxmlplusplus")
8387              (commit version)))
8388        (file-name (git-file-name name version))
8389        (sha256
8390         (base32 "0wjz591rjlgbah7dcq8i0yn0zw9d62b7g6r0pppx81ic0cx8n8ga"))))
8391     (build-system gnu-build-system)
8392     (arguments
8393      `(#:phases
8394        (modify-phases %standard-phases
8395          (add-after 'unpack 'fix-documentation
8396            (lambda* (#:key inputs #:allow-other-keys)
8397              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
8398                                           "/xml/dtd/docbook"))
8399                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
8400                                           "/xml/xsl/docbook-xsl-"
8401                                           ,(package-version docbook-xsl))))
8402                (substitute* '("examples/dom_xpath/example.xml"
8403                               "docs/manual/libxml++_without_code.xml")
8404                  (("http://.*/docbookx\\.dtd")
8405                   (string-append xmldoc "/docbookx.dtd")))
8406                (setenv "SGML_CATALOG_FILES"
8407                        (string-append xmldoc "/catalog.xml"))
8408                (substitute* "docs/manual/docbook-customisation.xsl"
8409                  (("http://docbook.sourceforge.net/release/xsl/current/html/chunk.xsl")
8410                   (string-append xsldoc "/html/chunk.xsl")))))))))
8411     (propagated-inputs
8412      ;; libxml++-3.0.pc refers to all these.
8413      `(("glibmm" ,glibmm-2.64)
8414        ("libxml2" ,libxml2)))
8415     (native-inputs
8416      `(("autoconf" ,autoconf)
8417        ("automake" ,automake)
8418        ("doxygen" ,doxygen)
8419        ("docbook-xml" ,docbook-xml)
8420        ("docbook-xsl" ,docbook-xsl)
8421        ("graphviz" ,graphviz) ; for dot
8422        ("libtool" ,libtool)
8423        ("libxslt" ,libxslt)
8424        ("mm-common" ,mm-common)
8425        ("perl" ,perl)
8426        ("pkg-config" ,pkg-config)))
8427     (home-page "https://github.com/libxmlplusplus/libxmlplusplus/")
8428     (synopsis "C++ bindings to the libxml2 XML parser library")
8429     (description
8430      "This package provides a C++ interface to the libxml2 XML parser
8431 library.")
8432     (license license:lgpl2.1+)))
8433
8434 ;; This is the last release providing the 2.6 API, hence the name.
8435 ;; This is needed by tascam-gtk
8436 (define-public libxml++-2
8437   (package
8438     (inherit libxml++)
8439     (name "libxml++")
8440     (version "2.40.1")
8441     (source
8442      (origin
8443        (method git-fetch)
8444        (uri (git-reference
8445              (url "https://github.com/libxmlplusplus/libxmlplusplus")
8446              (commit version)))
8447        (file-name (git-file-name name version))
8448        (sha256
8449         (base32 "0gbfi4l88w828gmyc9br11l003ylyi4vigp5d1kfgsn0k4cig3y9"))))))
8450
8451 (define-public gdm
8452   (package
8453     (name "gdm")
8454     (version "40.1")
8455     (source (origin
8456               (method url-fetch)
8457               (uri (string-append "mirror://gnome/sources/" name "/"
8458                                   (version-major version) "/"
8459                                   name "-" version ".tar.xz"))
8460               (sha256
8461                (base32
8462                 "1zbks7bwbys1pn7sk0aq0dbn09adx51amb441z4z4j28cvma3f5b"))
8463               (patches
8464                (search-patches
8465                 "gdm-default-session.patch"
8466                 "gdm-elogind-support.patch"
8467                 "gdm-remove-hardcoded-xwayland-path.patch"
8468                 "gdm-wayland-session-wrapper-from-env.patch"
8469                 "gdm-pass-gdk-pixbuf-loader-env.patch"))))
8470     (build-system meson-build-system)
8471     (arguments
8472      `(#:glib-or-gtk? #t
8473        #:configure-flags
8474        ,#~(list
8475            "-Dplymouth=disabled"
8476            "-Dsystemd-journal=false"
8477
8478            ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
8479            ;; instead of having to replace it (i.e., stopping the mingetty
8480            ;; service for TTY 1 before starting GDM).
8481            "-Dinitial-vt=7"
8482
8483            ;; Use elogind instead of systemd.
8484            "-Dlogind-provider=elogind"
8485            "-Dsystemdsystemunitdir=no"
8486            "-Dsystemduserunitdir=no"
8487
8488            ;; Use '/etc/environment' for locale settings instead of the
8489            ;; systemd-specific '/etc/locale.conf'.
8490            "-Dlang-file=/etc/environment"
8491
8492            (string-append "-Dudev-dir=" #$output "/lib/udev")
8493
8494            "--localstatedir=/var"
8495            (string-append "-Ddefault-path="
8496                           (string-join '("/run/setuid-programs"
8497                                          "/run/current-system/profile/bin"
8498                                          "/run/current-system/profile/sbin")
8499                                        ":"))
8500            ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
8501            ;; XDG_DATA_DIRS so that it finds its schemas.
8502            "--sbindir" (string-append #$output "/bin"))
8503        #:phases
8504        (modify-phases %standard-phases
8505          (add-before
8506              'configure 'pre-configure
8507            (lambda* (#:key inputs outputs #:allow-other-keys)
8508              ;; We don't have <systemd/sd-daemon.h>.
8509              (substitute* '("common/gdm-log.c"
8510                             "daemon/gdm-server.c"
8511                             "daemon/gdm-session-worker.c"
8512                             "daemon/gdm-session-worker-job.c")
8513                (("#include <systemd/sd-daemon\\.h>") ""))
8514              ;; Use elogind for sd-login.
8515              (substitute* '("common/gdm-common.c"
8516                             "daemon/gdm-local-display-factory.c"
8517                             "daemon/gdm-manager.c"
8518                             "libgdm/gdm-user-switching.c")
8519                (("#include <systemd/sd-login\\.h>")
8520                 "#include <elogind/sd-login.h>"))
8521              ;; Look for system-installed sessions in
8522              ;; /run/current-system/profile/share.
8523              (substitute* '("libgdm/gdm-sessions.c"
8524                             "daemon/gdm-session.c"
8525                             "daemon/gdm-display.c"
8526                             "daemon/gdm-launch-environment.c")
8527                (("DATADIR \"/x")
8528                 "\"/run/current-system/profile/share/x")
8529                (("DATADIR \"/wayland")
8530                 "\"/run/current-system/profile/share/wayland")
8531                (("DATADIR \"/gnome")
8532                 "\"/run/current-system/profile/share/gnome"))
8533              (let ((propagate '("GDM_CUSTOM_CONF"
8534                                 "GDM_DBUS_DAEMON"
8535                                 "GDM_X_SERVER"
8536                                 "GDM_X_SESSION"
8537                                 ;; XXX: Remove this once GNOME Shell is
8538                                 ;; a dependency of GDM.
8539                                 "XDG_DATA_DIRS")))
8540                (substitute* "daemon/gdm-session.c"
8541                  (("set_up_session_environment \\(self\\);")
8542                   (apply string-append
8543                          "set_up_session_environment (self);\n"
8544                          (map (lambda (name)
8545                                 (string-append
8546                                  "gdm_session_set_environment_variable "
8547                                  "(self, \"" name "\","
8548                                  "g_getenv (\"" name "\"));\n"))
8549                               propagate)))))
8550              ;; Find the configuration file using an environment variable.
8551              (substitute* '("common/gdm-settings.c")
8552                (("GDM_CUSTOM_CONF")
8553                 (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8554                                " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8555                                " : GDM_CUSTOM_CONF)")))
8556              ;; Use service-supplied path to X.
8557              (substitute* '("daemon/gdm-server.c")
8558                (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8559                 "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
8560              (substitute* '("daemon/gdm-wayland-session.c"
8561                             "daemon/gdm-x-session.c")
8562                (("\"dbus-daemon\"")
8563                 "g_getenv (\"GDM_DBUS_DAEMON\")")
8564                (("X_SERVER")
8565                 "g_getenv (\"GDM_X_SERVER\")")
8566                (("GDMCONFDIR \"/Xsession\"")
8567                 "g_getenv (\"GDM_X_SESSION\")"))
8568              ;; Use an absolute path for GNOME Session.
8569              (substitute* "daemon/gdm-launch-environment.c"
8570                (("\"gnome-session\"")
8571                 (string-append "\"" (assoc-ref inputs "gnome-session")
8572                                "/bin/gnome-session\"")))
8573              ;; Do not automatically select the placeholder session.
8574              (substitute* "daemon/gdm-session.c"
8575                (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8576                 (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8577                                "(g_strcmp0(search_dirs[i], \""
8578                                (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
8579                                "\") == 0 && "
8580                                "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8581                (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
8582                 "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))))
8583          (add-before 'install 'install-logo
8584            (lambda* (#:key inputs outputs #:allow-other-keys)
8585              (let* ((out (assoc-ref outputs "out"))
8586                     (guix-icons (assoc-ref inputs "guix-icons"))
8587                     (icon
8588                      (string-append guix-icons "/share/icons/hicolor/\
8589 scalable/apps/guix-white-icon.svg"))
8590                     (schema
8591                      (string-append out "/share/glib-2.0/schemas/\
8592 org.gnome.login-screen.gschema.override")))
8593                (mkdir-p (dirname schema))
8594                (with-output-to-file schema
8595                  (lambda ()
8596                    (format #t "\
8597 [org.gnome.login-screen]
8598 logo='~a'~%" icon))))))
8599          ;; GDM requires that there be at least one desktop entry
8600          ;; file.  This phase installs a hidden one that simply
8601          ;; fails.  This enables users to use GDM with a
8602          ;; '~/.xsession' script with no other desktop entry files.
8603          ;; See <https://bugs.gnu.org/35068>.
8604          (add-after 'install 'install-placeholder-desktop-entry
8605            (lambda* (#:key inputs outputs #:allow-other-keys)
8606              (let* ((out (assoc-ref outputs "out"))
8607                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
8608                     (fail (string-append sessions "/fail.desktop")))
8609                (mkdir-p sessions)
8610                (with-output-to-file fail
8611                  (lambda ()
8612                    (for-each
8613                     display
8614                     '("[Desktop Entry]\n"
8615                       "Encoding=UTF-8\n"
8616                       "Type=Application\n"
8617                       "Name=Fail\n"
8618                       "Comment=This session fails immediately.\n"
8619                       "NoDisplay=true\n"
8620                       "Exec=false\n")))))))
8621          ;; GDM needs GNOME Session to run these applications.  We link
8622          ;; their autostart files in `share/gdm/greeter/autostart'
8623          ;; because GDM explicitly tells GNOME Session to look there.
8624          ;;
8625          ;; XXX: GNOME Shell should be linked here too, but currently
8626          ;; GNOME Shell depends on GDM.
8627          (add-after 'install 'link-autostart-files
8628            (lambda* (#:key inputs outputs #:allow-other-keys)
8629              (let* ((out (assoc-ref outputs "out"))
8630                     (autostart (string-append out "/share/gdm/"
8631                                               "greeter/autostart"))
8632                     (settings (assoc-ref inputs "gnome-settings-daemon")))
8633                (mkdir-p autostart)
8634                (with-directory-excursion autostart
8635                  (for-each (lambda (desktop)
8636                              (symlink desktop (basename desktop)))
8637                            (find-files
8638                             (string-append settings "/etc/xdg"))))))))))
8639     (native-inputs
8640      `(("dconf" ,dconf)
8641        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8642        ("gobject-introspection" ,gobject-introspection)
8643        ("guix-icons" ,guix-icons)
8644        ("intltool" ,intltool)
8645        ("itstool" ,itstool)
8646        ("pkg-config" ,pkg-config)
8647        ("xmllint" ,libxml2)))
8648     (inputs
8649      `(("accountsservice" ,accountsservice)
8650        ("check" ,check-0.14)            ;for testing
8651        ("elogind" ,elogind)
8652        ("eudev" ,eudev)
8653        ("gnome-session" ,gnome-session)
8654        ("gnome-settings-daemon" ,gnome-settings-daemon)
8655        ("gtk+" ,gtk+)
8656        ("iso-codes" ,iso-codes)
8657        ("libcanberra" ,libcanberra)
8658        ("linux-pam" ,linux-pam)))
8659     (synopsis "Display manager for GNOME")
8660     (home-page "https://wiki.gnome.org/Projects/GDM/")
8661     (description
8662      "GNOME Display Manager is a system service that is responsible for
8663 providing graphical log-ins and managing local and remote displays.")
8664     (license license:gpl2+)))
8665
8666 (define-public libgtop
8667   (package
8668     (name "libgtop")
8669     (version "2.40.0")
8670     (source (origin
8671               (method url-fetch)
8672               (uri (string-append "mirror://gnome/sources/libgtop/"
8673                                   (version-major+minor version) "/"
8674                                   "libgtop-" version ".tar.xz"))
8675               (sha256
8676                (base32
8677                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8678     (build-system gnu-build-system)
8679     (native-inputs
8680      `(("gobject-introspection" ,gobject-introspection)
8681        ("intltool" ,intltool)
8682        ("perl" ,perl)
8683        ("pkg-config" ,pkg-config)))
8684     (propagated-inputs
8685      `(("glib" ,glib))) ; required by libgtop-2.0.pc
8686     (synopsis "Portable system access library")
8687     (home-page "https://www.gnome.org/")
8688     (description
8689      "LibGTop is a library to get system specific data such as CPU and memory
8690 usage and information about running processes.")
8691     (license license:gpl2+)))
8692
8693 (define-public gnome-bluetooth
8694   (package
8695     (name "gnome-bluetooth")
8696     (version "3.34.5")
8697     (source (origin
8698               (method url-fetch)
8699               (uri (string-append "mirror://gnome/sources/gnome-bluetooth/"
8700                                   (version-major+minor version) "/"
8701                                   "gnome-bluetooth-" version ".tar.xz"))
8702               (sha256
8703                (base32
8704                 "1a9ynlwwkb3wpg293ym517vmrkk63y809mmcv9a21k5yr199x53c"))))
8705     (build-system meson-build-system)
8706     (arguments `(#:meson ,meson-0.59))
8707     (native-inputs
8708      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
8709        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
8710        ("gobject-introspection" ,gobject-introspection)
8711        ("intltool" ,intltool)
8712        ("pkg-config" ,pkg-config)
8713        ("python" ,python)
8714        ("python-dbus" ,python-dbus)
8715        ("xmllint" ,libxml2)))
8716     (propagated-inputs
8717      ;; gnome-bluetooth-1.0.pc refers to all these.
8718      `(("glib" ,glib)
8719        ("gtk+" ,gtk+)))
8720     (inputs
8721      `(("eudev" ,eudev)
8722        ("libcanberra" ,libcanberra)
8723        ("libnotify" ,libnotify)
8724        ("python-dbus" ,python-dbus)))
8725     (synopsis "GNOME Bluetooth subsystem")
8726     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8727     (description
8728      "This package contains tools for managing and manipulating Bluetooth
8729 devices using the GNOME desktop.")
8730     (license license:lgpl2.1+)))
8731
8732 (define-public gnome-control-center
8733   (package
8734     (name "gnome-control-center")
8735     (version "40.1")
8736     (source (origin
8737               (method url-fetch)
8738               (uri (string-append "mirror://gnome/sources/" name "/"
8739                                   (version-major version) "/"
8740                                   name "-" version ".tar.xz"))
8741               (sha256
8742                (base32
8743                 "0rr4d5m2a72vrb31jgyx49dp0s2pwgyxsrk4hyw5ym66wq63c3v1"))))
8744     (build-system meson-build-system)
8745     (arguments
8746      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
8747        #:glib-or-gtk? #t
8748        #:configure-flags
8749        (list "-Dcheese=false"
8750              (string-append "-Dgnome_session_libexecdir="
8751                             (assoc-ref %build-inputs "gnome-session")
8752                             "/libexec"))
8753        #:phases
8754        (modify-phases %standard-phases
8755          (add-before 'configure 'patch-paths
8756            (lambda* (#:key inputs #:allow-other-keys)
8757              (let ((libc   (assoc-ref inputs "libc"))
8758                    (tzdata (assoc-ref inputs "tzdata"))
8759                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
8760                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
8761                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
8762                (substitute* "panels/datetime/tz.h"
8763                  (("/usr/share/zoneinfo/zone.tab")
8764                   (string-append tzdata "/share/zoneinfo/zone.tab")))
8765                (substitute* "tests/datetime/test-endianess.c"
8766                  (("/usr/share/locale")
8767                   (string-append libc "/share/locale")))
8768                (substitute* "panels/region/cc-region-panel.c"
8769                  (("\"gkbd-keyboard-display")
8770                   (string-append "\"" libgnomekbd
8771                                  "/bin/gkbd-keyboard-display")))
8772                (substitute* '("panels/network/net-device-bluetooth.c"
8773                               "panels/network/net-device-mobile.c"
8774                               "panels/network/connection-editor/net-connection-editor.c")
8775                  (("\"nm-connection-editor")
8776                   (string-append "\"" nm-applet
8777                                  "/bin/nm-connection-editor")))
8778                (substitute* '("panels/user-accounts/run-passwd.c")
8779                  (("/usr/bin/passwd")
8780                   "/run/setuid-programs/passwd"))
8781                (substitute* "panels/info-overview/cc-info-overview-panel.c"
8782                  (("DATADIR \"/gnome/gnome-version.xml\"")
8783                   (string-append "\"" gnome-desktop
8784                                  "/share/gnome/gnome-version.xml\""))))))
8785          (add-after 'unpack 'skip-gtk-update-icon-cache
8786            ;; Don't create 'icon-theme.cache'.
8787            (lambda _
8788              (substitute* "build-aux/meson/meson_post_install.py"
8789                (("gtk-update-icon-cache") (which "true"))))))))
8790     (native-inputs
8791      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
8792        ("intltool" ,intltool)
8793        ("pkg-config" ,pkg-config)
8794        ("xsltproc" ,libxslt)
8795        ;; For tests
8796        ("hicolor-icon-theme" ,hicolor-icon-theme)
8797        ("python-dbusmock" ,python-dbusmock)
8798        ("xorg-server" ,xorg-server-for-tests)))
8799     (inputs
8800      `(("accountsservice" ,accountsservice)
8801        ("clutter-gtk" ,clutter-gtk)
8802        ("colord-gtk" ,colord-gtk)
8803        ("cups" ,cups)
8804        ("dconf" ,dconf)
8805        ("docbook-xsl" ,docbook-xsl)
8806        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
8807        ("gnome-bluetooth" ,gnome-bluetooth)
8808        ("gnome-desktop" ,gnome-desktop)
8809        ("gnome-online-accounts" ,gnome-online-accounts)
8810        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
8811        ("gnome-session" ,gnome-session)
8812        ("gnome-settings-daemon" ,gnome-settings-daemon)
8813        ("grilo" ,grilo)
8814        ("gsound" ,gsound)
8815        ("ibus" ,ibus)
8816        ("libcanberra" ,libcanberra)
8817        ("libgnomekbd" ,libgnomekbd)
8818        ("libgudev" ,libgudev)
8819        ("libgtop" ,libgtop)
8820        ("libnma" ,libnma)
8821        ("libpwquality" ,libpwquality)
8822        ("libsecret" ,libsecret)
8823        ("libsoup" ,libsoup-minimal-2)
8824        ("libxml2" ,libxml2)
8825        ("libwacom" ,libwacom)
8826        ("mesa" ,mesa)
8827        ("mit-krb5" ,mit-krb5)
8828        ("modem-manager" ,modem-manager)
8829        ("network-manager-applet" ,network-manager-applet)
8830        ("polkit" ,polkit)
8831        ("pulseaudio" ,pulseaudio)
8832        ("smbclient" ,samba)
8833        ("tzdata" ,tzdata)
8834        ("udisks" ,udisks)
8835        ("upower" ,upower)))
8836     (synopsis "Utilities to configure the GNOME desktop")
8837     (home-page "https://www.gnome.org/")
8838     (description
8839      "This package contains configuration applets for the GNOME desktop,
8840 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8841 properties, sound setup, desktop theme and background, user interface
8842 properties, screen resolution, and other GNOME parameters.")
8843     (license license:gpl2+)))
8844
8845 (define-public gnome-shell
8846   (package
8847     (name "gnome-shell")
8848     (version "41.0")
8849     (source (origin
8850               (method url-fetch)
8851               (uri (string-append "mirror://gnome/sources/" name "/"
8852                                   (version-major version) "/"
8853                                   name "-" version ".tar.xz"))
8854               (sha256
8855                (base32
8856                 "0ragmcln210zvzhc2br33yprbkj9drjzd7inp5sdxra0a7l73yaj"))))
8857     (build-system meson-build-system)
8858     (arguments
8859      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
8860        #:glib-or-gtk? #t
8861        #:disallowed-references ,(list (gexp-input glib "bin")
8862                                       (gexp-input libxslt)
8863                                       (gexp-input ruby-sass))
8864        #:configure-flags
8865        (list "-Dsystemd=false"
8866              ;; Otherwise, the RUNPATH will lack the final path component.
8867              (string-append "-Dc_link_args=-Wl,-rpath="
8868                             (assoc-ref %outputs "out")
8869                             "/lib/gnome-shell"))
8870
8871        #:modules ((guix build meson-build-system)
8872                   (guix build utils)
8873                   (srfi srfi-1))
8874
8875        #:phases
8876        (modify-phases %standard-phases
8877          (add-after 'unpack 'fix-keysdir
8878            (lambda* (#:key outputs #:allow-other-keys)
8879              (let* ((out     (assoc-ref outputs "out"))
8880                     (keysdir (string-append
8881                               out "/share/gnome-control-center/keybindings")))
8882                (substitute* "meson.build"
8883                  (("keysdir =.*")
8884                   (string-append "keysdir = '" keysdir "'\n"))))))
8885          (add-after 'unpack 'skip-gtk-update-icon-cache
8886            ;; Don't create 'icon-theme.cache'.
8887            (lambda _
8888              (substitute* "meson/postinstall.py"
8889                (("gtk-update-icon-cache") "true"))))
8890          (add-before 'configure 'record-absolute-file-names
8891            (lambda* (#:key inputs #:allow-other-keys)
8892              (substitute* "js/misc/ibusManager.js"
8893                (("'ibus-daemon'")
8894                 (string-append "'" (assoc-ref inputs "ibus")
8895                                "/bin/ibus-daemon'")))
8896              (substitute* "js/ui/status/keyboard.js"
8897                (("'gkbd-keyboard-display'")
8898                 (string-append "'" (assoc-ref inputs "libgnomekbd")
8899                                "/bin/gkbd-keyboard-display'")))))
8900          (add-before 'check 'pre-check
8901            (lambda* (#:key inputs #:allow-other-keys)
8902              ;; Tests require a running X server.
8903              (system "Xvfb :1 &")
8904              (setenv "DISPLAY" ":1")
8905              (setenv "HOME" "/tmp")))   ;to avoid "fatal" warnings
8906          (add-after 'install 'wrap-programs
8907            (lambda* (#:key inputs outputs #:allow-other-keys)
8908              (let ((out              (assoc-ref outputs "out"))
8909                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
8910                    (python-path      (getenv "GUIX_PYTHONPATH")))
8911                (wrap-program (string-append out "/bin/gnome-shell")
8912                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
8913                (for-each
8914                 (lambda (prog)
8915                   (wrap-program (string-append out "/bin/" prog)
8916                     `("GUIX_PYTHONPATH"      ":" prefix (,python-path))
8917                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8918                 '("gnome-shell-extension-tool" "gnome-shell-perf-tool")))))
8919          (replace 'glib-or-gtk-wrap
8920            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8921              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
8922                ;; By default intltool et al. would end up in the XDG_DATA_DIRS
8923                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8924                ;; phase.  Fix that since we don't need these.
8925                (wrap #:inputs (fold alist-delete inputs
8926                                     '("intltool" "glib:bin"))
8927                      #:outputs outputs)))))))
8928     (native-inputs
8929      `(("asciidoc" ,asciidoc)
8930        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8931        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8932        ("gobject-introspection" ,gobject-introspection)
8933        ("hicolor-icon-theme" ,hicolor-icon-theme)
8934        ("intltool" ,intltool)
8935        ("pkg-config" ,pkg-config)
8936        ("python" ,python)
8937        ("ruby-sass" ,ruby-sass)
8938        ("sassc" ,sassc)
8939        ("xsltproc" ,libxslt)
8940        ;; For tests
8941        ("xorg-server" ,xorg-server-for-tests)))
8942     (inputs
8943      `(("accountsservice" ,accountsservice)
8944        ("caribou" ,caribou)
8945        ("docbook-xsl" ,docbook-xsl)
8946        ("evolution-data-server" ,evolution-data-server)
8947        ("gcr" ,gcr)
8948        ("gdm" ,gdm)
8949        ("librsvg" ,librsvg)
8950        ("gjs" ,gjs)
8951        ("gtk" ,gtk)
8952        ("gnome-autoar" ,gnome-autoar)
8953        ("gnome-bluetooth" ,gnome-bluetooth)
8954        ("gnome-desktop" ,gnome-desktop)
8955        ("gnome-settings-daemon" ,gnome-settings-daemon)
8956        ("graphene" ,graphene)
8957        ("gst-plugins-base" ,gst-plugins-base)
8958        ("ibus" ,ibus)
8959        ("libcanberra" ,libcanberra)
8960        ("libcroco" ,libcroco)
8961        ("libgnomekbd" ,libgnomekbd)               ;for gkbd-keyboard-display
8962        ("libgweather" ,libgweather)
8963        ("libnma" ,libnma)
8964        ("libsoup" ,libsoup)
8965        ("mesa-headers" ,mesa-headers)
8966        ("mutter" ,mutter)
8967        ("network-manager-applet" ,network-manager-applet)
8968        ("polkit" ,polkit)
8969        ("pulseaudio" ,pulseaudio)
8970        ("python-pygobject" ,python-pygobject)
8971        ("startup-notification" ,startup-notification)
8972        ("telepathy-logger" ,telepathy-logger)
8973        ("upower" ,upower)
8974        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
8975        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
8976        ("librsvg" ,librsvg)
8977        ("geoclue" ,geoclue)))
8978     (synopsis "Desktop shell for GNOME")
8979     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
8980     (description
8981      "GNOME Shell provides core user interface functions for the GNOME desktop,
8982 like switching to windows and launching applications.")
8983     (license license:gpl2+)))
8984
8985 (define-public gtk-vnc
8986   (package
8987     (name "gtk-vnc")
8988     (version "1.0.0")
8989     (source
8990      (origin
8991        (method url-fetch)
8992        (uri
8993         (string-append "mirror://gnome/sources/" name "/"
8994                        (version-major+minor version) "/"
8995                        name "-" version ".tar.xz"))
8996        (sha256
8997         (base32 "1060ws037v556rx1qhfrcg02859rscksrzr8fq11himdg4d1y6m8"))))
8998     (build-system meson-build-system)
8999     (arguments
9000      `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
9001     (native-inputs
9002      `(("gjs" ,gjs)
9003        ("glib:bin" ,glib "bin")
9004        ("gobject-introspection" ,gobject-introspection)
9005        ("intltool" ,intltool)
9006        ("node" ,node)
9007        ("perl" ,perl)
9008        ("pkg-config" ,pkg-config)
9009        ("python" ,python-wrapper)
9010        ("vala" ,vala)))
9011     (inputs
9012      `(("cairo" ,cairo)
9013        ("librsvg" ,librsvg)
9014        ("glib" ,glib)
9015        ("gnutls" ,gnutls)
9016        ("libgcrypt" ,libgcrypt)
9017        ("libsasl" ,cyrus-sasl)
9018        ("pulseaudio" ,pulseaudio)
9019        ("x11" ,libx11)
9020        ("zlib" ,zlib)))
9021     (propagated-inputs
9022      `(("gtk+" ,gtk+)))
9023     (synopsis "VNC client viewer widget for GTK+")
9024     (description "GTK-VNC is a project providing client side APIs for the RFB
9025 protocol / VNC remote desktop technology.  It is built using coroutines allowing
9026 it to be completely asynchronous while remaining single threaded.  It provides a
9027 core C library, and bindings for Python (PyGTK).")
9028     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
9029     (license license:lgpl2.1+)))
9030
9031 (define-public gnome-autoar
9032   (package
9033     (name "gnome-autoar")
9034     (version "0.4.1")
9035     (source (origin
9036               (method url-fetch)
9037               (uri (string-append "mirror://gnome/sources/" name "/"
9038                                   (version-major+minor version) "/"
9039                                   name "-" version ".tar.xz"))
9040               (sha256
9041                (base32
9042                 "03hmm7cjgjvyxlflghfa89s1amj16qapl2c9pv0r2bfrp87dasv4"))))
9043     (build-system meson-build-system)
9044     (native-inputs
9045      `(("gobject-introspection" ,gobject-introspection)
9046        ("glib:bin" ,glib "bin")
9047        ("pkg-config" ,pkg-config)))
9048     (propagated-inputs
9049      `(("libarchive" ,libarchive)))  ; Required by gnome-autoar-0.pc
9050     (inputs
9051      `(("gtk+" ,gtk+)))
9052     (synopsis "Archives integration support for GNOME")
9053     (home-page "https://git.gnome.org/browse/gnome-autoar/")
9054     (description
9055      "GNOME Autoar is a library which makes creating and extracting archives
9056 easy, safe, and automatic.")
9057     (license license:lgpl2.1+)))
9058
9059 (define-public tracker
9060   (package
9061     (name "tracker")
9062     (version "3.1.2")
9063     (source (origin
9064               (method url-fetch)
9065               (uri (string-append "mirror://gnome/sources/tracker/"
9066                                   (version-major+minor version) "/"
9067                                   "tracker-" version ".tar.xz"))
9068               (sha256
9069                (base32
9070                 "13zcc07wd51sz7kglk3xbjrsq7d835cxfr7iwjr7nn2xcri8jdns"))))
9071     (build-system meson-build-system)
9072     (arguments
9073      `(#:glib-or-gtk? #t
9074        #:configure-flags
9075        ;; Otherwise, the RUNPATH will lack the final path component.
9076        (list (string-append "-Dc_link_args=-Wl,-rpath="
9077                             (assoc-ref %outputs "out") "/lib:"
9078                             (assoc-ref %outputs "out") "/lib/tracker-3.0")
9079              "-Ddocs=false"
9080              "-Dsystemd_user_services=false")
9081        #:phases
9082        (modify-phases %standard-phases
9083          (add-before 'configure 'set-shell
9084            (lambda _
9085              (setenv "SHELL" (which "bash"))))
9086          (add-before 'configure 'fix-paths
9087            (lambda* (#:key inputs #:allow-other-keys)
9088              (let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
9089                     (file (search-input-file inputs manpage)))
9090                (substitute* "docs/manpages/meson.build"
9091                  (("/etc/asciidoc[^']+")
9092                   file)))))
9093          (replace 'check
9094            (lambda* (#:key tests? #:allow-other-keys)
9095              (when tests?
9096                ;; Some tests expect to write to $HOME.
9097                (setenv "HOME" "/tmp")
9098                (invoke "dbus-run-session" "--" "meson" "test"
9099                        "--print-errorlogs")))))))
9100     (native-inputs
9101      `(("glib:bin" ,glib "bin")
9102        ("gobject-introspection" ,gobject-introspection)
9103        ("docbook-xsl" ,docbook-xsl)
9104        ("docbook-xml-4.5" ,docbook-xml)
9105        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9106        ("asciidoc" ,asciidoc)
9107        ("xsltproc" ,libxslt)
9108        ("cmake-minimal" ,cmake-minimal)
9109        ("python-pygobject" ,python-pygobject)
9110        ("gtk-doc" ,gtk-doc/stable)
9111        ("intltool" ,intltool)
9112        ("dbus" ,dbus)
9113        ("pkg-config" ,pkg-config)
9114        ("vala" ,vala)))
9115     (inputs
9116      `(("dbus" ,dbus)
9117        ("sqlite" ,sqlite)
9118        ("libxml2" ,libxml2)
9119        ("icu4c" ,icu4c)                 ; libunistring gets miner-miner-fs test to fail.
9120        ("json-glib" ,json-glib)
9121        ("libsoup" ,libsoup-minimal-2))) ; tracker-miners requires the same version.
9122     (synopsis "Metadata database, indexer and search tool")
9123     (home-page "https://wiki.gnome.org/Projects/Tracker")
9124     (description
9125      "Tracker is a search engine and triplestore for desktop, embedded and mobile.
9126
9127 It is a middleware component aimed at desktop application developers who want
9128 their apps to browse and search user content.  It's not designed to be used
9129 directly by desktop users, but it provides a commandline tool named
9130 @command{tracker} for the adventurous.
9131
9132 Tracker allows your application to instantly perform full-text searches across
9133 all documents.  This feature is used by the @{emph{search} bar in GNOME Files, for
9134 example.  This is achieved by indexing the user's home directory in the
9135 background.
9136
9137 Tracker also allows your application to query and list content that the user
9138 has stored.  For example, GNOME Music displays all the music files that are
9139 found by Tracker.  This means that GNOME Music doesn't need to maintain a
9140 database of its own.
9141
9142 If you need to go beyond simple searches, Tracker is also a linked data
9143 endpoint and it understands SPARQL. ")
9144     ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
9145     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
9146     ;; libstemmer is bsd-3 and the rest is gpl2+.
9147     (license (list license:gpl2+
9148                    license:bsd-3
9149                    license:lgpl2.1+))))
9150
9151 (define-public tracker-miners
9152   (package
9153     (name "tracker-miners")
9154     (version "3.1.2")
9155     (source (origin
9156               (method url-fetch)
9157               (uri (string-append "mirror://gnome/sources/tracker-miners/"
9158                                   (version-major+minor version)
9159                                   "/tracker-miners-" version ".tar.xz"))
9160               (sha256
9161                (base32
9162                 "0fpd69lgm8cckbamcf9c2q57glxf0s3jcfwkq8p3s4lfsvdclmd0"))))
9163     (build-system meson-build-system)
9164     (arguments
9165      `(#:glib-or-gtk? #t
9166        #:configure-flags
9167        (list "-Dminer_rss=false" ; libgrss is required.
9168              ;; Ensure the RUNPATH contains all installed library locations.
9169              (string-append "-Dc_link_args=-Wl,-rpath="
9170                             (assoc-ref %outputs "out")
9171                             "/lib/tracker-miners-3.0")
9172              ;; TODO: Enable functional tests. Currently, the following error
9173              ;; appears:
9174              ;; Exception: The functional tests require DConf to be the default
9175              ;; GSettings backend. Got GKeyfileSettingsBackend instead.
9176              "-Dfunctional_tests=false"
9177              "-Dsystemd_user_services=false")
9178        #:phases
9179        (modify-phases %standard-phases
9180          (add-before 'configure 'set-shell
9181            (lambda _
9182              (setenv "SHELL" (which "bash"))))
9183          (add-before 'configure 'fix-paths
9184            (lambda* (#:key inputs #:allow-other-keys)
9185              (let* ((manpage "/etc/asciidoc/docbook-xsl/manpage.xsl")
9186                     (file (search-input-file inputs manpage)))
9187                (substitute* "docs/manpages/meson.build"
9188                  (("/etc/asciidoc[^']+")
9189                   file)))))
9190          (add-before 'configure 'fix-tests
9191            (lambda* (#:key inputs #:allow-other-keys)
9192              ;; Disable those tests that require the functional_tests option
9193              ;; to be true and the UPower daemon to be started.
9194              (substitute* "examples/python/meson.build"
9195                (("foreach example_name:.*")
9196                 "foreach example_name: []"))
9197              ;; Disable this test that is failing randomly:
9198              ;; https://gitlab.gnome.org/GNOME/tracker-miners/-/issues/170.
9199             (substitute* "tests/libtracker-miner/meson.build"
9200                (("'miner-fs'.*")
9201                 ""))))
9202         (replace 'check
9203            (lambda* (#:key tests? #:allow-other-keys)
9204              (when tests?
9205                ;; Some tests expect to write to $HOME.
9206                (setenv "HOME" "/tmp")
9207                (setenv "LANG" "en_US.UTF-8")
9208                (invoke "dbus-run-session" "--" "meson" "test"
9209                        "--print-errorlogs")))))))
9210     (native-inputs
9211      `(("dbus" ,dbus)
9212        ("intltool" ,intltool)
9213        ("glib:bin" ,glib "bin")
9214        ("docbook-xsl" ,docbook-xsl)
9215        ("docbook-xml-4.5" ,docbook-xml)
9216        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9217        ("asciidoc" ,asciidoc)
9218        ("xsltproc" ,libxslt)
9219        ("gobject-introspection" ,gobject-introspection)
9220        ("pkg-config" ,pkg-config)
9221        ("python-pygobject" ,python-pygobject)))
9222     (inputs
9223      `(("exempi" ,exempi)
9224        ("ffmpeg" ,ffmpeg)
9225        ("flac" ,flac)
9226        ("giflib" ,giflib)
9227        ("glib" ,glib)
9228        ("gstreamer" ,gstreamer)
9229        ("icu4c" ,icu4c)
9230        ("json-glib" ,json-glib)
9231        ("libcue" ,libcue)
9232        ("libexif" ,libexif)
9233        ("libgsf" ,libgsf)
9234        ("libgxps" ,libgxps)
9235        ("libiptcdata" ,libiptcdata)
9236        ("libjpeg" ,libjpeg-turbo)
9237        ("libosinfo" ,libosinfo)
9238        ("libpng" ,libpng)
9239        ("libseccomp" ,libseccomp)
9240        ("libsoup" ,libsoup-minimal-2) ; because tracker requires this version.
9241        ("libtiff" ,libtiff)
9242        ("libvorbis" ,libvorbis)
9243        ("libxml2" ,libxml2)
9244        ("poppler" ,poppler)
9245        ("shared-mime-info" ,shared-mime-info)
9246        ("taglib" ,taglib)
9247        ("totem-pl-parser" ,totem-pl-parser)
9248        ("tracker" ,tracker)
9249        ("upower" ,upower)
9250        ("zlib" ,zlib)))
9251     (synopsis "Metadata database, indexer and search tool")
9252     (home-page "https://wiki.gnome.org/Projects/Tracker")
9253     (description
9254      "Tracker is an advanced framework for first class objects with associated
9255 metadata and tags.  It provides a one stop solution for all metadata, tags,
9256 shared object databases, search tools and indexing.")
9257     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
9258     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
9259     (license (list license:gpl2+
9260                    license:lgpl2.1+
9261                    license:lgpl2.0+))))
9262
9263 (define-public nautilus
9264   (package
9265     (name "nautilus")
9266     (version "41.0")
9267     (source (origin
9268               (method url-fetch)
9269               (uri (string-append "mirror://gnome/sources/" name "/"
9270                                   (version-major version) "/"
9271                                   name "-" version ".tar.xz"))
9272               (sha256
9273                (base32
9274                 "1rd1a0wjh2sc7mzw6m61rryvgxpi2lin4xj0x9khqw04q6nl3fgr"))))
9275     (build-system meson-build-system)
9276     (arguments
9277      `(#:glib-or-gtk? #t
9278        #:meson ,meson-0.59
9279        #:phases
9280        (modify-phases %standard-phases
9281          (add-after 'unpack 'skip-gtk-update-icon-cache
9282            ;; Don't create 'icon-theme.cache'.
9283            (lambda _
9284              (substitute* "build-aux/meson/postinstall.py"
9285                (("gtk-update-icon-cache") "true")))))
9286        ;; XXX: FAIL: check-nautilus
9287        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
9288        #:tests? #f))
9289     (native-inputs
9290      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9291        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
9292        ("gobject-introspection" ,gobject-introspection)
9293        ("intltool" ,intltool)
9294        ("pkg-config" ,pkg-config)))
9295     (inputs
9296      `(("dconf" ,dconf)
9297        ("gexiv2" ,gexiv2)
9298        ("gvfs" ,gvfs)
9299        ("exempi" ,exempi)
9300        ("gnome-desktop" ,gnome-desktop)
9301        ("gnome-autoar" ,gnome-autoar)
9302        ("gst-plugins-base" ,gst-plugins-base)
9303        ("json-glib" ,json-glib)
9304        ("libhandy" ,libhandy)
9305        ("libportal" ,libportal)
9306        ("libseccomp" ,libseccomp)
9307        ("libselinux" ,libselinux)
9308        ("libsoup" ,libsoup-minimal-2) ; to satisfy tracker dependencies
9309        ("tracker" ,tracker)
9310        ("tracker-miners" ,tracker-miners)
9311        ;; XXX: gtk+ is required by libnautilus-extension.pc
9312        ;;
9313        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
9314        ;; package.  See:
9315        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
9316        ("gtk+" ,gtk+)
9317        ("libexif" ,libexif)
9318        ("libxml2" ,libxml2)))
9319     (synopsis "File manager for GNOME")
9320     (home-page "https://wiki.gnome.org/Apps/Nautilus")
9321     (description
9322      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
9323 design and behaviour, giving the user a simple way to navigate and manage its
9324 files.")
9325     (license license:gpl2+)))
9326
9327 (define-public baobab
9328   (package
9329     (name "baobab")
9330     (version "40.0")
9331     (source (origin
9332               (method url-fetch)
9333               (uri (string-append
9334                     "mirror://gnome/sources/" name "/"
9335                     (version-major version) "/"
9336                     name "-" version ".tar.xz"))
9337               (sha256
9338                (base32
9339                 "19yii3bdgivxrcka1c4g6dpbmql5nyawwhzlsph7z6bs68nambm6"))))
9340     (build-system meson-build-system)
9341     (arguments
9342      '(#:glib-or-gtk? #t))
9343     (native-inputs
9344      `(("intltool" ,intltool)
9345        ("pkg-config" ,pkg-config)
9346        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9347        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9348        ("itstool" ,itstool)
9349        ("xmllint" ,libxml2)
9350        ("glib" ,glib "bin")
9351        ("vala" ,vala)))
9352     (inputs
9353      `(("gtk+" ,gtk+)
9354        ("libhandy" ,libhandy)))
9355     (synopsis "Disk usage analyzer for GNOME")
9356     (description
9357      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
9358 usage in the GNOME desktop environment.  It can easily scan device volumes or
9359 a specific user-requested directory branch (local or remote).  Once the scan
9360 is complete it provides a graphical representation of each selected folder.")
9361     (home-page "https://wiki.gnome.org/Apps/Baobab")
9362     (license license:gpl2+)))
9363
9364 (define-public gnome-backgrounds
9365   (package
9366     (name "gnome-backgrounds")
9367     (version "40.1")
9368     (source
9369      (origin
9370        (method url-fetch)
9371        (uri (string-append "mirror://gnome/sources/" name "/"
9372                            (version-major version) "/"
9373                            name "-" version ".tar.xz"))
9374        (sha256
9375         (base32
9376          "03m7ldfk00cly9igrq0qizq1y0f45vijmm23f1dl5kh1lc6qmpv0"))))
9377     (build-system meson-build-system)
9378     (native-inputs
9379      `(("gettext" ,gettext-minimal)))
9380     (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
9381     (synopsis "Background images for the GNOME desktop")
9382     (description
9383      "GNOME backgrounds package contains a collection of graphics files which
9384 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
9385 the package creates the proper framework and directory structure so that you
9386 can add your own files to the collection.")
9387     (license (list license:gpl2+
9388                    license:cc-by2.0
9389                    license:cc-by-sa2.0
9390                    license:cc-by-sa3.0))))
9391
9392 (define-public gnome-screenshot
9393   (package
9394     (name "gnome-screenshot")
9395     (version "40.0")
9396     (source
9397      (origin
9398        (method url-fetch)
9399        (uri (string-append "mirror://gnome/sources/" name "/"
9400                            (version-major version) "/"
9401                            name "-" version ".tar.xz"))
9402        (sha256
9403         (base32
9404          "1qm544ymwibk31s30k47vnn79xg30m18r7l4di0c57g375dak31n"))
9405        (patches
9406         (search-patches "gnome-screenshot-meson-0.60.patch"))))
9407     (build-system meson-build-system)
9408     (arguments
9409      '(#:phases
9410        (modify-phases %standard-phases
9411          (add-after 'unpack 'skip-gtk-update-icon-cache
9412            ;; Don't create 'icon-theme.cache'.
9413            (lambda _
9414              (substitute* "build-aux/postinstall.py"
9415                (("gtk-update-icon-cache") "true"))
9416              #t)))))
9417     (native-inputs
9418      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
9419        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
9420        ("intltool" ,intltool)
9421        ("appstream-glib" ,appstream-glib)
9422        ("pkg-config" ,pkg-config)))
9423     (inputs
9424      `(("gtk+" ,gtk+)
9425        ("libcanberra" ,libcanberra)
9426        ("libhandy" ,libhandy)
9427        ("libx11" ,libx11)
9428        ("libxext" ,libxext)))
9429     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
9430     (synopsis "Take pictures of your screen")
9431     (description
9432      "GNOME Screenshot is a utility used for taking screenshots of the entire
9433 screen, a window or a user defined area of the screen, with optional
9434 beautifying border effects.")
9435     (license license:gpl2+)))
9436
9437 (define-public dconf-editor
9438   (package
9439     (name "dconf-editor")
9440     (version "3.38.3")
9441     (source
9442      (origin
9443        (method url-fetch)
9444        (uri (string-append "mirror://gnome/sources/" name "/"
9445                            (version-major+minor version) "/"
9446                            name "-" version ".tar.xz"))
9447        (sha256
9448         (base32
9449          "1qvrxrk1h8bd75xwasxbvlkqrw6xkavjimvc7sslkw6lvb3z86jp"))))
9450     (build-system meson-build-system)
9451     (native-inputs
9452      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
9453        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
9454        ("intltool" ,intltool)
9455        ("pkg-config" ,pkg-config)
9456        ("vala" ,vala)))
9457     (inputs
9458      `(("dconf" ,dconf)
9459        ("gtk+" ,gtk+)
9460        ("libxml2" ,libxml2)))
9461     (arguments
9462      `(#:meson ,meson-0.59))
9463     (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
9464     (synopsis "Graphical editor for GNOME's dconf configuration system")
9465     (description
9466      "Dconf-editor is a graphical tool for browsing and editing the dconf
9467 configuration system for GNOME.  It allows users to configure desktop
9468 software that do not provide their own configuration interface.")
9469     (license license:lgpl2.1+)))
9470
9471 (define-public gnome-default-applications
9472   (package
9473     (name "gnome-default-applications")
9474     (version "0")
9475     (build-system trivial-build-system)
9476     (source #f)
9477     (propagated-inputs
9478      `(("nautilus" ,nautilus)
9479        ("evince" ,evince)))
9480     (arguments
9481      `(#:modules ((guix build utils))
9482        #:builder
9483        (begin
9484          (use-modules (guix build utils))
9485          (let* ((out (assoc-ref %outputs "out"))
9486                 (apps (string-append out "/share/applications")))
9487            (mkdir-p apps)
9488            (call-with-output-file (string-append apps "/gnome-mimeapps.list")
9489              (lambda (port)
9490                (format port "[Default Applications]\n")
9491                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
9492                (format port "application/pdf=evince.desktop\n")
9493                (format port "application/postscript=evince.desktop\n")))
9494            #t))))
9495     (synopsis "Default MIME type associations for the GNOME desktop")
9496     (description
9497      "Given many installed packages which might handle a given MIME type, a
9498 user running the GNOME desktop probably has some preferences: for example,
9499 that folders be opened by default by the Nautilus file manager, not the Baobab
9500 disk usage analyzer.  This package establishes that set of default MIME type
9501 associations for GNOME.")
9502     (license license:gpl3+)
9503     (home-page #f)))
9504
9505 (define-public libgovirt
9506   (package
9507    (name "libgovirt")
9508    (version "0.3.8")
9509    (source (origin
9510             (method url-fetch)
9511             (uri (string-append "mirror://gnome/sources/" name "/"
9512                                 (version-major+minor version) "/"
9513                                 name "-" version ".tar.xz"))
9514             (sha256
9515              (base32
9516               "1y0x1wyakj3ya33hgj0w1jkbcn50q21gmn2zyalxysqp55i1ij8x"))))
9517    (build-system glib-or-gtk-build-system)
9518    (native-inputs
9519     `(("gettext" ,gettext-minimal)
9520       ("glib:bin" ,glib "bin")
9521       ("gobject-introspection" ,gobject-introspection)
9522       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9523       ("gtk+:bin" ,gtk+ "bin")
9524       ("pkg-config" ,pkg-config)))
9525    (inputs
9526     `(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
9527       ("librest" ,rest)))
9528    (synopsis "GoVirt Library")
9529    (description "GoVirt is a GObject wrapper for the oVirt REST API.")
9530    (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
9531    (license license:gpl2+)))
9532
9533 (define-public gnome-weather
9534   (package
9535    (name "gnome-weather")
9536    (version "40.1")
9537    (source (origin
9538             (method url-fetch)
9539             (uri (string-append "mirror://gnome/sources/" name "/"
9540                                 (version-major version) "/"
9541                                 name "-" version ".tar.xz"))
9542             (sha256
9543              (base32
9544               "0k9wnyinvx6433r07kvjyahgqc605g7gbpf3d0h6vi4p8x61849x"))))
9545    (build-system meson-build-system)
9546    (native-inputs
9547     `(("gettext" ,gettext-minimal)
9548       ("glib:bin" ,glib "bin")
9549       ("gobject-introspection" ,gobject-introspection)
9550       ("gtk+:bin" ,gtk+ "bin")
9551       ("pkg-config" ,pkg-config)))
9552    (inputs
9553     `(("appstream-glib" ,appstream-glib)
9554       ("geoclue" ,geoclue)
9555       ("gjs" ,gjs)
9556       ("gnome-desktop" ,gnome-desktop)
9557       ("libgweather" ,libgweather)
9558       ("libhandy" ,libhandy)))
9559    (arguments
9560     `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
9561       #:glib-or-gtk? #t
9562       #:phases
9563       ,#~(modify-phases %standard-phases
9564            (add-after 'unpack 'fix-service-file
9565              (lambda _
9566                (substitute* "data/org.gnome.Weather.service.in"
9567                  (("Exec=[[:graph:]]+")
9568                   (string-append "Exec=" #$output
9569                                  "/bin/gnome-weather")))))
9570            (add-after 'install 'fix-desktop-file
9571              ;; FIXME: "gapplication launch org.gnome.Weather" fails for some
9572              ;; reason.  See https://issues.guix.gnu.org/issue/39324.
9573              (lambda _
9574                (let ((applications
9575                       (string-append #$output "/share/applications")))
9576                  (substitute* (string-append applications
9577                                              "/org.gnome.Weather.desktop")
9578                    (("Exec=.*") "Exec=gnome-weather\n")))))
9579            (add-after 'install 'wrap
9580              (lambda _
9581                (let ((gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
9582                  ;; GNOME Weather needs the typelib files of GTK+, Pango etc
9583                  ;; at runtime.
9584                  (wrap-program (string-append #$output "/bin/gnome-weather")
9585                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
9586    (synopsis "Weather monitoring for GNOME desktop")
9587    (description "GNOME Weather is a small application that allows you to
9588 monitor the current weather conditions for your city, or anywhere in the
9589 world.")
9590    (home-page "https://wiki.gnome.org/Apps/Weather")
9591    (license license:gpl2+)))
9592
9593 (define-public gnome
9594   (package
9595     (name "gnome")
9596     (version (package-version gnome-shell))
9597     (source #f)
9598     (build-system trivial-build-system)
9599     (arguments '(#:builder (begin (mkdir %output) #t)))
9600     (propagated-inputs
9601      `(;; GNOME-Core-OS-Services
9602        ("accountsservice" ,accountsservice)
9603        ("network-manager" ,network-manager)
9604        ("packagekit" ,packagekit)
9605        ("upower" ,upower)
9606        ;; GNOME-Core-Shell
9607        ("adwaita-icon-theme" ,adwaita-icon-theme)
9608        ("gdm" ,gdm)
9609        ("glib-networking" ,glib-networking)
9610        ("gnome-backgrounds" ,gnome-backgrounds)
9611        ("gnome-bluetooth" ,gnome-bluetooth)
9612        ("gnome-color-manager" ,gnome-color-manager)
9613        ("gnome-control-center" ,gnome-control-center)
9614        ("gnome-desktop" ,gnome-desktop)
9615        ("gnome-initial-setup" ,gnome-initial-setup)
9616        ("gnome-keyring" ,gnome-keyring)
9617        ("gnome-menus" ,gnome-menus)
9618        ("gnome-session" ,gnome-session)
9619        ("gnome-settings-daemon" ,gnome-settings-daemon)
9620        ("gnome-shell-extensions" ,gnome-shell-extensions)
9621        ("gnome-shell" ,gnome-shell)
9622        ("gnome-themes-extra" ,gnome-themes-extra)
9623        ("gnome-user-docs" ,gnome-user-docs)
9624        ("gnome-user-share" ,gnome-user-share)
9625        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9626        ("gvfs" ,gvfs)
9627        ("mutter" ,mutter)
9628        ("orca" ,orca)
9629        ("rygel" ,rygel)
9630        ("sushi" ,sushi)
9631        ;; GNOME-Core-Utilities
9632        ("baobab" ,baobab)
9633        ("cheese" ,cheese)
9634        ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9635        ;; only works on x86_64, so exclude it on other architectures.
9636        ,@(if (string-prefix? "x86_64" (%current-system))
9637              `(("eog" ,eog))
9638              '())
9639        ("epiphany" ,epiphany)
9640        ("evince" ,evince)
9641        ("file-roller" ,file-roller)
9642        ("gedit" ,gedit)
9643        ("gnome-boxes" ,gnome-boxes)
9644        ("gnome-calculator" ,gnome-calculator)
9645        ("gnome-calendar" ,gnome-calendar)
9646        ("gnome-characters" ,gnome-characters)
9647        ("gnome-clocks" ,gnome-clocks)
9648        ("gnome-contacts" ,gnome-contacts)
9649        ("gnome-disk-utility" ,gnome-disk-utility)
9650        ("gnome-font-viewer" ,gnome-font-viewer)
9651        ("gnome-maps" ,gnome-maps)
9652        ("gnome-music" ,gnome-music)
9653        ("gnome-photos" ,gnome-photos)
9654        ("gnome-screenshot" ,gnome-screenshot)
9655        ("gnome-system-monitor" ,gnome-system-monitor)
9656        ("gnome-terminal" ,gnome-terminal)
9657        ("gnome-weather" ,gnome-weather)
9658        ("nautilus" ,nautilus)
9659        ("simple-scan" ,simple-scan)
9660        ("totem" ,totem)
9661        ("tracker-miners" ,tracker-miners)
9662        ("yelp" ,yelp)
9663        ;; Others
9664        ("hicolor-icon-theme" ,hicolor-icon-theme)
9665        ("gnome-online-accounts" ,gnome-online-accounts)
9666
9667        ;; Packages not part of GNOME proper but that are needed for a good
9668        ;; experience.  See <https://bugs.gnu.org/39646>.
9669        ;; XXX: Find out exactly which ones are needed and why.
9670        ("font-abattis-cantarell"            ,font-abattis-cantarell)
9671        ("font-dejavu"               ,font-dejavu)
9672        ("at-spi2-core"              ,at-spi2-core-minimal)
9673        ("dbus"                      ,dbus)
9674        ("dconf"                     ,dconf)
9675        ("desktop-file-utils"        ,desktop-file-utils)
9676        ("gnome-default-applications" ,gnome-default-applications)
9677        ("gnome-themes-standard"     ,gnome-themes-standard)
9678        ("gst-plugins-base"          ,gst-plugins-base)
9679        ("gst-plugins-good"          ,gst-plugins-good)
9680        ("gucharmap"                 ,gucharmap)
9681        ("pinentry-gnome3"           ,pinentry-gnome3)
9682        ("pulseaudio"                ,pulseaudio)
9683        ("shared-mime-info"          ,shared-mime-info)
9684        ("system-config-printer"     ,system-config-printer)
9685        ("xdg-user-dirs"             ,xdg-user-dirs)
9686        ("yelp"                      ,yelp)
9687        ("zenity"                    ,zenity)))
9688     (synopsis "The GNU desktop environment")
9689     (home-page "https://www.gnome.org/")
9690     (description
9691      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
9692 applications for browsing the web, editing text and images, creating
9693 documents and diagrams, playing media, scanning, and much more.")
9694     (license license:gpl2+)))
9695
9696 (define-public byzanz
9697   ;; The last stable release of Byzanz was in 2011, but there have been many
9698   ;; useful commits made to the Byzanz repository since then that it would be
9699   ;; silly to use such an old release.
9700   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9701     (package
9702       (name "byzanz")
9703       (version (string-append "0.2-1." (string-take commit 7)))
9704       (source (origin
9705                 (method git-fetch)
9706                 (uri (git-reference
9707                       (url "https://git.gnome.org/browse/byzanz")
9708                       (commit commit)))
9709                 (file-name (string-append name "-" version "-checkout"))
9710                 (sha256
9711                  (base32
9712                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9713       (build-system glib-or-gtk-build-system)
9714       (arguments
9715        '(#:phases
9716          (modify-phases %standard-phases
9717            (add-before 'bootstrap 'build-without-Werror
9718              (lambda _
9719                ;; The build system cleverly detects that we're not building from
9720                ;; a release tarball and turns on -Werror for GCC.
9721                ;; Unsurprisingly, there is a warning during compilation that
9722                ;; causes the build to fail unnecessarily, so we remove the flag.
9723                (substitute* '("configure.ac")
9724                  (("-Werror") ""))
9725                #t)))))
9726       (native-inputs
9727        `(("autoconf" ,autoconf)
9728          ("automake" ,automake)
9729          ("gnome-common" ,gnome-common)
9730          ("intltool" ,intltool)
9731          ("libtool" ,libtool)
9732          ("pkg-config" ,pkg-config)
9733          ("which" ,which)))
9734       (inputs
9735        `(("glib" ,glib)
9736          ("gstreamer" ,gstreamer)
9737          ("gst-plugins-base" ,gst-plugins-base)
9738          ("gtk+" ,gtk+)))
9739       (synopsis "Desktop recording program")
9740       (description "Byzanz is a simple desktop recording program with a
9741 command-line interface.  It can record part or all of an X display for a
9742 specified duration and save it as a GIF encoded animated image file.")
9743       (home-page "https://git.gnome.org/browse/byzanz")
9744       (license license:gpl2+))))
9745
9746 (define-public authenticator
9747   (package
9748     (name "authenticator")
9749     (version "3.32.2")
9750     (source
9751      (origin
9752        (method git-fetch)
9753        (uri (git-reference
9754              (url "https://gitlab.gnome.org/World/Authenticator")
9755              (commit version)))
9756        (file-name (git-file-name name version))
9757        (sha256
9758         (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9759     (build-system meson-build-system)
9760     (arguments
9761      `(#:glib-or-gtk? #t
9762        #:phases
9763        (modify-phases %standard-phases
9764          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9765            (lambda* (#:key inputs outputs #:allow-other-keys)
9766              (let ((prog (string-append (assoc-ref outputs "out")
9767                                         "/bin/authenticator"))
9768                    (pylib (string-append (assoc-ref outputs "out")
9769                                          "/lib/python"
9770                                          ,(version-major+minor
9771                                            (package-version python))
9772                                          "/site-packages")))
9773                (wrap-program prog
9774                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
9775                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9776                #t))))))
9777     (native-inputs
9778      `(("desktop-file-utils" ,desktop-file-utils)
9779        ("gettext" ,gettext-minimal)
9780        ("glib:bin" ,glib "bin")
9781        ("gobject-introspection" ,gobject-introspection)
9782        ("gtk+:bin" ,gtk+ "bin")
9783        ("pkg-config" ,pkg-config)))
9784     (inputs
9785      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9786        ("gtk+" ,gtk+)
9787        ("libhandy" ,libhandy-0.0)
9788        ("libsecret" ,libsecret)
9789        ("python-beautifulsoup4" ,python-beautifulsoup4)
9790        ("python-pillow" ,python-pillow)
9791        ("python-pyfavicon" ,python-pyfavicon)
9792        ("python-pygobject" ,python-pygobject)
9793        ("python-pyotp" ,python-pyotp)
9794        ("python-pyzbar" ,python-pyzbar)
9795        ("yoyo-migrations" ,yoyo-migrations)
9796        ("zbar" ,zbar)))
9797     (home-page "https://gitlab.gnome.org/World/Authenticator/")
9798     (synopsis "Two-factor authentication application built for GNOME")
9799     (description
9800      "Authenticator is a two-factor authentication (2FA) application built for
9801 the GNOME desktop environment.
9802
9803 Features:
9804
9805 @itemize
9806 @item QR code scanner
9807 @item Beautiful UI
9808 @item Huge database of more than 560 supported services
9809 @item Keep your PIN tokens secure by locking the application with a password
9810 @item Automatically fetch an image for services using their favicon
9811 @item The possibility to add new services
9812 @end itemize")
9813     (license license:gpl3+)))
9814
9815 (define-public gsound
9816   (package
9817     (name "gsound")
9818     (version "1.0.3")
9819     (source (origin
9820               (method url-fetch)
9821               (uri (string-append "mirror://gnome/sources/gsound/"
9822                                   (version-major+minor version) "/"
9823                                   "gsound-" version ".tar.xz"))
9824               (sha256
9825                (base32
9826                 "06l80xgykj7x1kqkjvcq06pwj2rmca458zvs053qc55x3sg06bfa"))))
9827     (build-system meson-build-system)
9828     (native-inputs
9829      `(("pkg-config" ,pkg-config)
9830        ("gobject-introspection" ,gobject-introspection)
9831        ("vala" ,vala)))
9832     (propagated-inputs
9833      `(("libcanberra" ,libcanberra)))   ; in Requires.private of gsound.pc
9834     (home-page "https://wiki.gnome.org/Projects/GSound")
9835     (synopsis "GObject wrapper for libcanberra")
9836     (description
9837      "GSound is a small library for playing system sounds.  It's designed to be
9838 used via GObject Introspection, and is a thin wrapper around the libcanberra C
9839 library.")
9840     (license license:lgpl2.1+)))
9841
9842 (define-public libzapojit
9843   (package
9844     (name "libzapojit")
9845     (version "0.0.3")
9846     (source (origin
9847               (method url-fetch)
9848               (uri (string-append "mirror://gnome/sources/" name "/"
9849                                   (version-major+minor version) "/"
9850                                   name "-" version ".tar.xz"))
9851               (sha256
9852                (base32
9853                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9854     (build-system gnu-build-system)
9855     (native-inputs
9856      `(("gobject-introspection" ,gobject-introspection)
9857        ("intltool" ,intltool)
9858        ("pkg-config" ,pkg-config)))
9859     (inputs
9860      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9861        ("json-glib" ,json-glib)
9862        ("rest" ,rest)))
9863     (home-page "https://wiki.gnome.org/Projects/Zapojit")
9864     (synopsis "Library for accessing SkyDrive and Hotmail")
9865     (description
9866      "Libzapojit is a GLib-based library for accessing online service APIs of
9867 Microsoft SkyDrive and Hotmail, using their REST protocols.")
9868     (license license:lgpl2.1+)))
9869
9870 (define-public gnome-clocks
9871   (package
9872     (name "gnome-clocks")
9873     (version "40.0")
9874     (source (origin
9875               (method url-fetch)
9876               (uri (string-append "mirror://gnome/sources/" name "/"
9877                                   (version-major version) "/"
9878                                   name "-" version ".tar.xz"))
9879               (sha256
9880                (base32
9881                 "02d3jg46sn8d9gd4dsaly22gg5vkbz2gpq4pmwpvncb4rsqk7sn2"))))
9882     (build-system meson-build-system)
9883     (arguments
9884      '(#:glib-or-gtk? #t
9885        #:phases
9886        (modify-phases %standard-phases
9887          (add-after 'unpack 'skip-gtk-update-icon-cache
9888            ;; Don't create 'icon-theme.cache'.
9889            (lambda _
9890              (substitute* "build-aux/post-install.py"
9891                (("gtk-update-icon-cache") "true")))))))
9892     (native-inputs
9893      `(("vala" ,vala)
9894        ("pkg-config" ,pkg-config)
9895        ("glib" ,glib "bin")             ; for glib-compile-resources
9896        ("desktop-file-utils" ,desktop-file-utils)
9897        ("gettext" ,gettext-minimal)
9898        ("itstool" ,itstool)))
9899     (inputs
9900      `(("glib" ,glib)
9901        ("gtk+" ,gtk+)
9902        ("gsound" ,gsound)
9903        ("geoclue" ,geoclue)
9904        ("geocode-glib" ,geocode-glib)
9905        ("libgweather" ,libgweather)
9906        ("libhandy" ,libhandy)
9907        ("gnome-desktop" ,gnome-desktop)))
9908     (home-page "https://wiki.gnome.org/Apps/Clocks")
9909     (synopsis "GNOME's clock application")
9910     (description
9911      "GNOME Clocks is a simple clocks application designed to fit the GNOME
9912 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
9913     (license license:gpl3+)))
9914
9915 (define-public gnome-calendar
9916   (package
9917     (name "gnome-calendar")
9918     (version "40.2")
9919     (source (origin
9920               (method url-fetch)
9921               (uri (string-append "mirror://gnome/sources/" name "/"
9922                                   (version-major version) "/"
9923                                   name "-" version ".tar.xz"))
9924               (sha256
9925                (base32
9926                 "0czasxnmbw2zm21lmxam8qixacagciq3f815s809hn0f9byh2dwy"))))
9927     (build-system meson-build-system)
9928     (arguments
9929      `(#:glib-or-gtk? #t
9930        #:meson ,meson-0.59
9931        ;; gnome-calendar has to be installed before the tests can be run
9932        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
9933        #:tests? #f
9934        #:phases
9935        (modify-phases %standard-phases
9936          (add-after 'unpack 'skip-gtk-update-icon-cache
9937            ;; Don't create 'icon-theme.cache'.
9938            (lambda _
9939              (substitute* "build-aux/meson/meson_post_install.py"
9940                (("gtk-update-icon-cache") "true"))
9941              #t)))))
9942     (native-inputs
9943      `(("gettext" ,gettext-minimal)
9944        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
9945        ("pkg-config" ,pkg-config)))
9946     (inputs
9947      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
9948        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9949        ("libdazzle" ,libdazzle)
9950        ("libedataserverui" ,evolution-data-server)
9951        ("libgweather" ,libgweather)
9952        ("libhandy" ,libhandy)
9953        ("geoclue" ,geoclue)))
9954     (propagated-inputs
9955      `(("evolution-data-server" ,evolution-data-server)))
9956     (home-page "https://wiki.gnome.org/Apps/Calendar")
9957     (synopsis "GNOME's calendar application")
9958     (description
9959      "GNOME Calendar is a simple calendar application designed to fit the GNOME
9960 desktop.  It supports multiple calendars, month, week and year view.")
9961     (license license:gpl3+)))
9962
9963 (define-public gnome-todo
9964   (package
9965     (name "gnome-todo")
9966     (version "40.1")
9967     (source (origin
9968               (method url-fetch)
9969               (uri (string-append "mirror://gnome/sources/" name "/"
9970                                   (version-major version) "/"
9971                                   name "-" version ".tar.xz"))
9972               (sha256
9973                (base32
9974                 "1r1fb3zgjvkhx93by24j8cg1w1g3zvwr49vqkscjn261vqs44jq3"))))
9975     (build-system meson-build-system)
9976     (arguments
9977      `(#:glib-or-gtk? #t
9978        ;; XXX: Some tests fail with the following error:
9979        ;; Settings schema 'org.gnome.todo' is not installed.
9980        #:tests? #f
9981        #:phases
9982        (modify-phases %standard-phases
9983          (add-after 'unpack 'skip-gtk-update-icon-cache
9984            ;; Don't create 'icon-theme.cache'.
9985            (lambda _
9986              (substitute* "build-aux/meson/meson_post_install.py"
9987                (("gtk-update-icon-cache") "true")))))))
9988     (native-inputs
9989      `(("gettext" ,gettext-minimal)
9990        ("gobject-introspection" ,gobject-introspection)
9991        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
9992        ("gtk-bin" ,gtk "bin")           ; For gtk-update-icon-cache
9993        ("pkg-config" ,pkg-config)))
9994     (inputs
9995      `(("rest" ,rest)                   ; For Todoist plugin
9996        ("gtk" ,gtk)
9997        ("json-glib" ,json-glib)         ; For Todoist plugin
9998        ("libadwaita" ,libadwaita)
9999        ("libedataserverui" ,evolution-data-server)
10000        ("libical" ,libical)
10001        ("libpeas" ,libpeas)
10002        ("libportal" ,libportal)
10003        ("python-pygobject" ,python-pygobject)
10004        ("evolution-data-server" ,evolution-data-server)
10005        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
10006        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
10007     (home-page "https://wiki.gnome.org/Apps/Todo")
10008     (synopsis "GNOME's ToDo Application")
10009     (description
10010      "GNOME To Do is a simplistic personal task manager designed to perfectly
10011 fit the GNOME desktop.")
10012     (license license:gpl3+)))
10013
10014 (define-public gnome-dictionary
10015   (package
10016     (name "gnome-dictionary")
10017     (version "40.0")
10018     (source (origin
10019               (method url-fetch)
10020               (uri (string-append "mirror://gnome/sources/" name "/"
10021                                   (version-major version) "/"
10022                                   name "-" version ".tar.xz"))
10023               (sha256
10024                (base32
10025                 "1d8dhcfys788vv27v34i3s3x3jdvdi2kqn2a5p8c937a9hm0qr9f"))))
10026     (build-system meson-build-system)
10027     (arguments
10028      '(#:glib-or-gtk? #t
10029        #:phases
10030        (modify-phases %standard-phases
10031          (add-after 'unpack 'skip-gtk-update-icon-cache
10032            ;; Don't create 'icon-theme.cache'.
10033            (lambda _
10034              (substitute* "build-aux/meson/post-install.py"
10035                (("gtk-update-icon-cache") "true")))))))
10036     (native-inputs
10037      `(("glib:bin" ,glib "bin")
10038        ("gobject-introspection" ,gobject-introspection)
10039        ("intltool" ,intltool)
10040        ("itstool" ,itstool)
10041        ("pkg-config" ,pkg-config)
10042        ("xmllint" ,libxml2)))
10043     (inputs
10044      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10045        ("gtk+" ,gtk+)))
10046     (home-page "https://wiki.gnome.org/Apps/Dictionary")
10047     (synopsis "Look up words in dictionary sources")
10048     (description
10049      "GNOME Dictionary can look for the definition or translation of a word in
10050 existing databases over the internet.")
10051     (license license:gpl3+)))
10052
10053 (define-public gnome-tweaks
10054   (package
10055     (name "gnome-tweaks")
10056     (version "40.0")
10057     (source (origin
10058               (method url-fetch)
10059               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
10060                                   (version-major version) "/"
10061                                   "gnome-tweaks-" version ".tar.xz"))
10062               (patches
10063                (list (search-patch "gnome-tweaks-search-paths.patch")))
10064               (sha256
10065                (base32
10066                 "0sn3xsjhnini0f2dyi1ymrr3fb8mi7w5j5lsyw11rc5h67h3ypzr"))))
10067     (build-system meson-build-system)
10068     (arguments
10069      `(#:glib-or-gtk? #t
10070        #:meson ,meson-0.59
10071        #:configure-flags '("-Dlocalstatedir=/tmp"
10072                            "-Dsysconfdir=/tmp")
10073        #:imported-modules ((guix build python-build-system)
10074                            ,@%meson-build-system-modules)
10075        #:phases
10076        (modify-phases %standard-phases
10077          (add-after 'unpack 'skip-gtk-update-icon-cache
10078            ;; Don't create 'icon-theme.cache'.
10079            (lambda _
10080              (substitute* "meson-postinstall.py"
10081                (("gtk-update-icon-cache") "true"))))
10082          (add-after 'install 'wrap
10083            (@@ (guix build python-build-system) wrap))
10084          (add-after 'wrap 'wrap-gi-typelib-and-python
10085            (lambda* (#:key inputs outputs #:allow-other-keys)
10086              (let ((out               (assoc-ref outputs "out"))
10087                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10088                (let ((python-path
10089                       (string-append out "/lib/python"
10090                                      ,(version-major+minor
10091                                        (package-version python))
10092                                      "/site-packages")))
10093                  (wrap-program (string-append out "/bin/gnome-tweaks")
10094                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
10095                    `("GUIX_PYTHONPATH" ":" prefix (,python-path))))))))))
10096     (native-inputs
10097      `(("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
10098        ("intltool" ,intltool)
10099        ("pkg-config" ,pkg-config)))
10100     (inputs
10101      `(("bash-minimal" ,bash-minimal) ; to execute the wrapper program
10102        ("gnome-desktop" ,gnome-desktop)
10103        ("gtk+" ,gtk+)
10104        ("gobject-introspection" ,gobject-introspection)
10105        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10106        ("libhandy" ,libhandy)
10107        ("libnotify" ,libnotify)
10108        ("libsoup" ,libsoup)
10109        ("nautilus" ,nautilus)
10110        ("python" ,python)
10111        ("python-pygobject" ,python-pygobject)))
10112     (synopsis "Customize advanced GNOME 3 options")
10113     (home-page "https://wiki.gnome.org/Apps/Tweaks")
10114     (description
10115      "GNOME Tweaks allows adjusting advanced configuration settings in
10116 GNOME 3.  This includes things like the fonts used in user interface elements,
10117 alternative user interface themes, changes in window management behavior,
10118 GNOME Shell appearance and extension, etc.")
10119     (license license:gpl3+)))
10120
10121 (define-public gnome-shell-extensions
10122   (package
10123     (name "gnome-shell-extensions")
10124     (version "40.4")
10125     (source (origin
10126               (method url-fetch)
10127               (uri (string-append "mirror://gnome/sources/" name "/"
10128                                   (version-major version)  "/"
10129                                   name "-" version ".tar.xz"))
10130               (sha256
10131                (base32
10132                 "0yfd1bcwf72dmr1hfh7g8s5cb7snyiyg86575hqx1frbq914q7gm"))))
10133     (build-system meson-build-system)
10134     (arguments
10135      '(#:configure-flags '("-Dextension_set=all")))
10136     (native-inputs
10137      `(("glib:bin" ,glib "bin")
10138        ("intltool" ,intltool)
10139        ("pkg-config" ,pkg-config)))
10140     (propagated-inputs
10141      `(("glib" ,glib)))
10142     (synopsis "Extensions for GNOME Shell")
10143     (description "GNOME Shell extensions modify and extend GNOME Shell
10144 functionality and behavior.")
10145     (home-page "https://extensions.gnome.org/")
10146     (license license:gpl3+)))
10147
10148 (define-public folks
10149   (package
10150     (name "folks")
10151     (version "0.15.3")
10152     (source (origin
10153               (method url-fetch)
10154               (uri (string-append
10155                     "mirror://gnome/sources/folks/"
10156                     (version-major+minor version) "/"
10157                     "folks-" version ".tar.xz"))
10158               (sha256
10159                (base32
10160                 "19a4qp9ry8y24jx1v5456qn9lnw843571vkkah3bxx4ky3x3gmr1"))))
10161     (build-system meson-build-system)
10162     (arguments
10163      '(#:phases
10164        (modify-phases %standard-phases
10165          (add-after 'unpack 'skip-gtk-update-icon-cache
10166            ;; Don't create 'icon-theme.cache'.
10167            (lambda _
10168              (substitute* "meson_post_install.py"
10169                (("gtk-update-icon-cache") "true"))
10170              #t)))))
10171     (inputs
10172      `(("bdb" ,bdb)
10173        ("dbus-glib" ,dbus-glib)
10174        ("evolution-data-server" ,evolution-data-server)
10175        ("glib" ,glib)
10176        ("libgee" ,libgee)
10177        ("readline" ,readline)
10178        ("telepathy-glib" ,telepathy-glib)))
10179     (native-inputs
10180      `(("glib:bin" ,glib "bin")
10181        ("gobject-introspection" ,gobject-introspection)
10182        ("python-dbusmock" ,python-dbusmock)
10183        ("intltool" ,intltool)
10184        ("pkg-config" ,pkg-config)
10185        ("vala" ,vala)))
10186     (synopsis "Library to aggregate data about people")
10187     (description "Libfolks is a library that aggregates information about people
10188 from multiple sources (e.g., Telepathy connection managers for IM contacts,
10189 Evolution Data Server for local contacts, libsocialweb for web service contacts,
10190 etc.) to create metacontacts.  It's written in Vala, which generates C code when
10191 compiled.")
10192     (home-page "https://wiki.gnome.org/Projects/Folks")
10193     (license license:lgpl2.1+)))
10194
10195 (define-public gfbgraph
10196   (package
10197     (name "gfbgraph")
10198     (version "0.2.4")
10199     (source (origin
10200               (method url-fetch)
10201               (uri (string-append
10202                     "mirror://gnome/sources/gfbgraph/"
10203                     (version-major+minor version) "/"
10204                     "gfbgraph-" version ".tar.xz"))
10205               (sha256
10206                (base32
10207                 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
10208     (build-system glib-or-gtk-build-system)
10209     (arguments
10210      `(#:tests? #f                      ; tests appear to require the network
10211        #:configure-flags '("--disable-static"
10212                            "--enable-gtk-doc"
10213                            "--enable-introspection")))
10214     (native-inputs
10215      `(("gobject-introspection" ,gobject-introspection)
10216        ("gtk-doc" ,gtk-doc/stable)
10217        ("pkg-config" ,pkg-config)
10218
10219        ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
10220        ("autoconf" ,autoconf)
10221        ("automake" ,automake)
10222        ("libtool" ,libtool)
10223        ("which" ,which)))
10224     (inputs
10225      `(("json-glib" ,json-glib)
10226        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
10227        ("rest" ,rest)))
10228     (synopsis "GLib/GObject wrapper for the Facebook API")
10229     (description "This library allows you to use the Facebook API from
10230 GLib/GObject code.")
10231     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
10232     (license license:lgpl2.1+)))
10233
10234 (define-public libgnomekbd
10235   (package
10236     (name "libgnomekbd")
10237     (version "3.26.1")
10238     (source (origin
10239               (method url-fetch)
10240               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
10241                                   (version-major+minor version)  "/"
10242                                   "libgnomekbd-" version ".tar.xz"))
10243               (sha256
10244                (base32
10245                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
10246     (build-system gnu-build-system)
10247     (native-inputs
10248      `(("pkg-config" ,pkg-config)
10249        ("glib" ,glib "bin")
10250        ("intltool" ,intltool)))
10251     (propagated-inputs
10252      ;; Referred to in .h files and .pc.
10253      `(("glib" ,glib)
10254        ("gtk+" ,gtk+)
10255        ("libxklavier" ,libxklavier)))
10256     (home-page "https://www.gnome.org")
10257     (synopsis "GNOME keyboard configuration library")
10258     (description
10259      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
10260 environment, which can notably display keyboard layouts.")
10261     (license license:lgpl2.0+)))
10262
10263 ;;; This package is no longer maintained:
10264 ;;; https://wiki.gnome.org/Attic/LibUnique
10265 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
10266 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
10267 (define-public libunique
10268   (package
10269     (name "libunique")
10270     (version "3.0.2")
10271     (source (origin
10272               (method url-fetch)
10273               (uri (string-append "mirror://gnome/sources/" name "/"
10274                                   (version-major+minor version)  "/"
10275                                   name "-" version ".tar.xz"))
10276               (sha256
10277                (base32
10278                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
10279     (build-system glib-or-gtk-build-system)
10280     (arguments
10281      `(#:configure-flags '("--disable-static"
10282                            "--disable-dbus" ; use gdbus
10283                            "--enable-introspection")))
10284     (native-inputs
10285      `(("pkg-config" ,pkg-config)
10286        ("gobject-introspection" ,gobject-introspection)
10287        ("glib:bin" ,glib "bin")
10288        ("gtk-doc" ,gtk-doc/stable)))
10289     (propagated-inputs
10290      ;; Referred to in .h files and .pc.
10291      `(("gtk+" ,gtk+)))
10292     (home-page "https://wiki.gnome.org/Attic/LibUnique")
10293     (synopsis "Library for writing single instance applications")
10294     (description
10295      "Libunique is a library for writing single instance applications.  If you
10296 launch a single instance application twice, the second instance will either just
10297 quit or will send a message to the running instance.  Libunique makes it easy to
10298 write this kind of application, by providing a base class, taking care of all
10299 the IPC machinery needed to send messages to a running instance, and also
10300 handling the startup notification side.")
10301     (license license:lgpl2.1+)))
10302
10303 (define-public gnome-calculator
10304   (package
10305     (name "gnome-calculator")
10306     (version "40.1")
10307     (source
10308      (origin
10309        (method url-fetch)
10310        (uri (string-append "mirror://gnome/sources/" name "/"
10311                            (version-major version) "/"
10312                            name "-" version ".tar.xz"))
10313        (sha256
10314         (base32
10315          "1xkazxbkpn1z5pfphhps7fc5q4yc8lp7f6b222n8bx5iyxhwbrkz"))))
10316     (build-system meson-build-system)
10317     (arguments
10318      '(#:glib-or-gtk? #t
10319        #:phases
10320        (modify-phases %standard-phases
10321          (add-before 'check 'pre-check
10322            (lambda _
10323              ;; Tests require a writable HOME.
10324              (setenv "HOME" (getcwd)))))))
10325     (native-inputs
10326      `(("gettext" ,gettext-minimal)
10327        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
10328        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
10329        ("itstool" ,itstool)
10330        ("vala" ,vala)
10331        ("pkg-config" ,pkg-config)))
10332     (inputs
10333      `(("glib" ,glib)
10334        ("gtksourceview" ,gtksourceview)
10335        ("libgee" ,libgee)
10336        ("libhandy" ,libhandy)
10337        ("libsoup" ,libsoup-minimal-2)
10338        ("libxml2" ,libxml2)
10339        ("mpc" ,mpc)
10340        ("mpfr" ,mpfr)))
10341     (home-page "https://wiki.gnome.org/Apps/Calculator")
10342     (synopsis "Desktop calculator")
10343     (description
10344      "Calculator is an application that solves mathematical equations and
10345 is suitable as a default application in a Desktop environment.")
10346     (license license:gpl3)))
10347
10348 (define-public xpad
10349   (package
10350     (name "xpad")
10351     (version "5.1.0")
10352     (source
10353      (origin
10354        (method url-fetch)
10355        (uri (string-append "https://launchpad.net/xpad/trunk/"
10356                            version "/+download/"
10357                            name "-" version ".tar.bz2"))
10358        (sha256
10359         (base32
10360          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
10361     (build-system gnu-build-system)
10362     (native-inputs
10363      `(("autoconf" ,autoconf)
10364        ("automake" ,automake)
10365        ("gtk+:bin" ,gtk+ "bin")
10366        ("intltool" ,intltool)
10367        ("pkg-config" ,pkg-config)))
10368     (inputs
10369      `(("gtksourceview" ,gtksourceview-3)
10370        ("libsm" ,libsm)))
10371     (home-page "https://wiki.gnome.org/Apps/Xpad")
10372     (synopsis "Virtual sticky note")
10373     (description
10374      "Xpad is a sticky note that strives to be simple, fault tolerant,
10375 and customizable.  Xpad consists of independent pad windows, each is
10376 basically a text box in which notes can be written.")
10377     (license license:gpl3+)))
10378
10379 (define-public gucharmap
10380   (let ((unicode-files
10381          '(("Blocks.txt"
10382             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
10383            ("DerivedAge.txt"
10384             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
10385            ("NamesList.txt"
10386             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
10387            ("Scripts.txt"
10388             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
10389            ("UnicodeData.txt"
10390             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
10391            ("Unihan.zip"
10392             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
10393     (package
10394       (name "gucharmap")
10395       (version "12.0.1")
10396       (source
10397        (origin
10398          (method url-fetch)
10399          (uri (string-append "mirror://gnome/sources/" name "/"
10400                              (version-major+minor version) "/"
10401                              name "-" version ".tar.xz"))
10402          (sha256
10403           (base32
10404            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
10405       (build-system glib-or-gtk-build-system)
10406       (arguments
10407        `(#:modules ((ice-9 match)
10408                     (guix build glib-or-gtk-build-system)
10409                     (guix build utils))
10410          #:configure-flags
10411          (list "--with-unicode-data=../unicode-data")
10412          #:phases
10413          (modify-phases %standard-phases
10414            (add-after 'unpack 'prepare-unicode-data
10415              (lambda* (#:key inputs #:allow-other-keys)
10416                (mkdir-p "../unicode-data")
10417                (with-directory-excursion "../unicode-data"
10418                  (for-each (match-lambda
10419                              ((file _)
10420                               (install-file (assoc-ref inputs file) ".")))
10421                            ',unicode-files))
10422                #t)))))
10423       (native-inputs
10424        `(("desktop-file-utils" ,desktop-file-utils)
10425          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
10426          ("gobject-introspection" ,gobject-introspection)
10427          ("intltool" ,intltool)
10428          ("itstool" ,itstool)
10429          ("pkg-config" ,pkg-config)
10430          ,@(map (match-lambda
10431                   ((file hash)
10432                    `(,file
10433                      ,(origin
10434                         (method url-fetch)
10435                         (uri (string-append
10436                               "http://www.unicode.org/Public/12.0.0/ucd/"
10437                               file))
10438                         (sha256 (base32 hash))))))
10439                 unicode-files)
10440          ("unzip" ,unzip)))
10441       (inputs
10442        `(("gtk+" ,gtk+)
10443          ("xmllint" ,libxml2)))
10444       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
10445       (synopsis "Unicode character picker and font browser")
10446       (description
10447        "This program allows you to browse through all the available Unicode
10448 characters and categories for the installed fonts, and to examine their
10449 detailed properties.  It is an easy way to find the character you might
10450 only know by its Unicode name or code point.")
10451       (license license:gpl3+))))
10452
10453 (define-public gcolor3
10454   (package
10455     (name "gcolor3")
10456     (version "2.4.0")
10457     (source
10458      (origin
10459        (method git-fetch)
10460        (uri (git-reference
10461              (url "https://gitlab.gnome.org/World/gcolor3")
10462              (commit (string-append "v" version))))
10463        (file-name (git-file-name name version))
10464        (sha256
10465         (base32 "1igqmach1vhcrvbpw346pmkbb5kabbb806ssswrvkp569n700wmc"))))
10466     (build-system meson-build-system)
10467     (arguments
10468      `(#:glib-or-gtk? #t))
10469     (native-inputs
10470      `(("desktop-file-utils" ,desktop-file-utils)
10471        ("gettext" ,gettext-minimal)
10472        ("glib:bin" ,glib "bin")
10473        ("gtk+:bin" ,gtk+ "bin")
10474        ("pkg-config" ,pkg-config)))
10475     (inputs
10476      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10477        ("gtk+" ,gtk+)
10478        ("libportal" ,libportal)))
10479     (home-page "https://www.hjdskes.nl/projects/gcolor3/")
10480     (synopsis "Simple color chooser written in GTK3")
10481     (description "Color Picker is a simple color chooser written in GTK3.  It
10482 supports both X and Wayland display servers.")
10483     (license license:gpl2+)))
10484
10485 (define-public bluefish
10486   (package
10487     (name "bluefish")
10488     (version "2.2.12")
10489     (source
10490      (origin
10491        (method url-fetch)
10492        (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
10493                            "bluefish-" version ".tar.gz"))
10494        (sha256
10495         (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
10496     (build-system gnu-build-system)
10497     (native-inputs
10498      `(("desktop-file-utils" ,desktop-file-utils)
10499        ("intltool" ,intltool)
10500        ("pkg-config" ,pkg-config)))
10501     (inputs
10502      `(("enchant" ,enchant)
10503        ("gtk+" ,gtk+)
10504        ("python" ,python-wrapper)
10505        ("xmllint" ,libxml2)
10506        ("gucharmap" ,gucharmap)))
10507     (home-page "http://bluefish.openoffice.nl")
10508     (synopsis "Web development studio")
10509     (description
10510      "Bluefish is an editor aimed at programmers and web developers,
10511 with many options to write web sites, scripts and other code.
10512 Bluefish supports many programming and markup languages.")
10513     (license license:gpl3+)))
10514
10515 (define-public gnome-system-monitor
10516   (package
10517     (name "gnome-system-monitor")
10518     (version "40.1")
10519     (source
10520      (origin
10521        (method url-fetch)
10522        (uri (string-append "mirror://gnome/sources/" name "/"
10523                            (version-major version) "/"
10524                            name "-" version ".tar.xz"))
10525        (sha256
10526         (base32
10527          "06hxd4igxas2kyind5jwfq5qbfkknykpdfy2sy3anylhcx1hzczx"))))
10528     (build-system meson-build-system)
10529     (arguments
10530      '(#:glib-or-gtk? #t
10531        #:configure-flags '("-Dsystemd=false")))
10532     (native-inputs
10533      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
10534        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
10535        ("intltool" ,intltool)
10536        ("itstool" ,itstool)
10537        ("libgtop" ,libgtop)
10538        ("polkit" ,polkit)
10539        ("pkg-config" ,pkg-config)))
10540     (inputs
10541      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
10542        ("gtk+" ,gtk+)
10543        ("gtkmm" ,gtkmm-3)
10544        ("libhandy" ,libhandy)
10545        ("librsvg" ,librsvg)
10546        ("libxml2" ,libxml2)
10547        ("libwnck" ,libwnck)))
10548     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
10549     (synopsis "Process viewer and system resource monitor for GNOME")
10550     (description
10551      "GNOME System Monitor is a GNOME process viewer and system monitor with
10552 an attractive, easy-to-use interface.  It has features, such as a tree view
10553 for process dependencies, icons for processes, the ability to hide processes,
10554 graphical time histories of CPU/memory/swap usage and the ability to
10555 kill/reinice processes.")
10556     (license license:gpl2+)))
10557
10558 (define-public python-pyatspi
10559   (package
10560     (name "python-pyatspi")
10561     (version "2.34.0")
10562     (source (origin
10563               (method url-fetch)
10564               (uri (string-append
10565                     "mirror://gnome/sources/pyatspi/"
10566                     (version-major+minor version)
10567                     "/pyatspi-" version ".tar.xz"))
10568               (sha256
10569                (base32
10570                 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
10571     (build-system gnu-build-system)
10572     (arguments
10573      `(#:phases
10574        (modify-phases %standard-phases
10575          (add-before 'build 'fix-atk-load
10576            (lambda _
10577              (substitute* "pyatspi/__init__.py"
10578                (("from gi.repository import Atspi")
10579                 "gi.require_version('Gtk', '3.0')
10580 from gi.repository import Gtk
10581 from gi.repository import Atspi"))
10582              #t)))))
10583     (native-inputs
10584      `(("pkg-config" ,pkg-config)))
10585     (inputs
10586      `(("python" ,python)))
10587     (propagated-inputs
10588      `(("python-pygobject" ,python-pygobject)))
10589     (synopsis "Python client bindings for D-Bus AT-SPI")
10590     (home-page "https://wiki.linuxfoundation.org/accessibility\
10591 /atk/at-spi/at-spi_on_d-bus")
10592     (description
10593      "This package includes a python client library for the AT-SPI D-Bus
10594 accessibility infrastructure.")
10595     (license license:lgpl2.0)
10596     (properties '((upstream-name . "pyatspi")))))
10597
10598 (define-public python2-pyatspi
10599   (package/inherit python-pyatspi
10600     (name "python2-pyatspi")
10601     (inputs
10602      `(("python" ,python-2)))
10603     (propagated-inputs
10604      `(("python-pygobject" ,python2-pygobject)))))
10605
10606 (define-public orca
10607   (package
10608     (name "orca")
10609     (version "40.0")
10610     (source (origin
10611               (method url-fetch)
10612               (uri (string-append
10613                     "mirror://gnome/sources/" name "/"
10614                     (version-major version) "/"
10615                     name "-" version ".tar.xz"))
10616               (sha256
10617                (base32
10618                 "0hq0zdcn80ficpcffbk667907v6m7dih3dhyc7ss01mrj3iyw000"))))
10619     (build-system glib-or-gtk-build-system)
10620     (arguments
10621      '(#:phases
10622        (modify-phases %standard-phases
10623          (add-before 'configure 'qualify-xkbcomp
10624            (lambda* (#:key inputs #:allow-other-keys)
10625              (let ((xkbcomp (string-append
10626                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10627                (substitute* "src/orca/orca.py"
10628                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
10629              #t))
10630          (add-after 'install 'wrap-orca
10631            (lambda* (#:key outputs #:allow-other-keys)
10632              (let* ((out  (assoc-ref outputs "out"))
10633                     (prog (string-append out "/bin/orca")))
10634                (wrap-program prog
10635                  `("GI_TYPELIB_PATH" ":" prefix
10636                    (,(getenv "GI_TYPELIB_PATH")))
10637                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10638                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10639                  `("GUIX_PYTHONPATH" ":" prefix
10640                    (,(getenv "GUIX_PYTHONPATH")))))
10641              #t)))))
10642     (native-inputs
10643      `(("intltool" ,intltool)
10644        ("itstool" ,itstool)
10645        ("pkg-config" ,pkg-config)
10646        ("xmllint" ,libxml2)))
10647     (inputs
10648      `(("at-spi2-atk" ,at-spi2-atk)
10649        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10650        ("gstreamer" ,gstreamer)
10651        ("gst-plugins-base" ,gst-plugins-base)
10652        ("gst-plugins-good" ,gst-plugins-good)
10653        ("gtk+" ,gtk+)
10654        ("python" ,python)
10655        ("python-pygobject" ,python-pygobject)
10656        ("python-pyatspi" ,python-pyatspi)
10657        ("python-speechd" ,speech-dispatcher)
10658        ("xkbcomp" ,xkbcomp)))
10659     (synopsis
10660      "Screen reader for individuals who are blind or visually impaired")
10661     (home-page "https://wiki.gnome.org/Projects/Orca")
10662     (description
10663      "Orca is a screen reader that provides access to the graphical desktop
10664 via speech and refreshable braille.  Orca works with applications and toolkits
10665 that support the Assistive Technology Service Provider Interface (AT-SPI).")
10666     (license license:lgpl2.1+)))
10667
10668 (define-public gspell
10669   (package
10670     (name "gspell")
10671     (version "1.8.2")
10672     (source (origin
10673               (method url-fetch)
10674               (uri (string-append "mirror://gnome/sources/" name "/"
10675                                   (version-major+minor version) "/"
10676                                   name "-" version ".tar.xz"))
10677               (sha256
10678                (base32
10679                 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
10680               (patches (search-patches "gspell-dash-test.patch"))))
10681     (build-system glib-or-gtk-build-system)
10682     (arguments
10683      '(#:configure-flags (list "--enable-vala")
10684        #:phases
10685        (modify-phases %standard-phases
10686          (add-before 'check 'pre-check
10687            (lambda* (#:key inputs #:allow-other-keys)
10688              ;; Tests require a running X server.
10689              (system "Xvfb :1 &")
10690              (setenv "DISPLAY" ":1")
10691
10692              ;; For the missing /etc/machine-id.
10693              (setenv "DBUS_FATAL_WARNINGS" "0")
10694
10695              ;; Allow Enchant and its Aspell backend to find the en_US
10696              ;; dictionary.
10697              (setenv "ASPELL_DICT_DIR"
10698                      (search-input-directory inputs "/lib/aspell")))))))
10699     (inputs
10700      `(("iso-codes" ,iso-codes)))
10701     (native-inputs
10702      `(("glib" ,glib "bin")
10703        ("gobject-introspection" ,gobject-introspection)
10704        ("pkg-config" ,pkg-config)
10705        ("vala" ,vala)                             ;for VAPI, needed by Geary
10706        ("xmllint" ,libxml2)
10707
10708        ;; For tests.
10709        ("aspell-dict-en" ,aspell-dict-en)
10710        ("xorg-server" ,xorg-server-for-tests)))
10711     (propagated-inputs
10712      ;; Referred by .pc file.
10713      `(("enchant" ,enchant)
10714        ("glib" ,glib)
10715        ("gtk+" ,gtk+)))
10716     (home-page "https://wiki.gnome.org/Projects/gspell")
10717     (synopsis "GNOME's alternative spell checker")
10718     (description
10719      "gspell provides a flexible API to add spell-checking to a GTK+
10720 application.  It provides a GObject API, spell-checking to text entries and
10721 text views, and buttons to choose the language.")
10722     (license license:gpl2+)))
10723
10724 (define-public gnome-planner
10725   (package
10726     (name "gnome-planner")
10727     (version "0.14.6")
10728     (source (origin
10729               (method url-fetch)
10730               (uri (string-append "mirror://gnome/sources/planner/"
10731                                   (version-major+minor version) "/planner-"
10732                                   version ".tar.xz"))
10733               (sha256
10734                (base32
10735                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10736     (build-system glib-or-gtk-build-system)
10737     (arguments
10738      ;; Disable the Python bindings because the Planner program functions
10739      ;; without them, and (as of 2017-06-13) we have not packaged all of
10740      ;; packages that are necessary for building the Python bindings.
10741      `(#:configure-flags
10742        (list "--disable-python"
10743              ,@(if (string=? "aarch64-linux" (%current-system))
10744                    '("--build=aarch64-unknown-linux-gnu")
10745                    '()))))
10746     (inputs
10747      `(("libgnomecanvas" ,libgnomecanvas)
10748        ("libgnomeui" ,libgnomeui)
10749        ("libglade" ,libglade)
10750        ("gnome-vfs" ,gnome-vfs)
10751        ("gconf" ,gconf)
10752        ("libxml2" ,libxml2)
10753        ("libxslt" ,libxslt)
10754        ("gtk+" ,gtk+)
10755        ("glib" ,glib)))
10756     (native-inputs
10757      `(("intltool" ,intltool)
10758        ("scrollkeeper" ,scrollkeeper)
10759        ("pkg-config" ,pkg-config)))
10760     (home-page "https://wiki.gnome.org/Apps/Planner")
10761     (synopsis "Project management software for the GNOME desktop")
10762     (description
10763      "GNOME Planner is a project management tool based on the Work Breakdown
10764 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
10765 the resources, tasks, and constraints that you define, Planner generates
10766 various views into a project.  For example, Planner can show a Gantt chart of
10767 the project.  It can show a detailed summary of tasks including their
10768 duration, cost, and current progress.  It can also show a report of resource
10769 utilization that highlights under-utilized and over-utilized resources.  These
10770 views can be printed as PDF or PostScript files, or exported to HTML.")
10771     (license license:gpl2+)))
10772
10773 (define-public lollypop
10774   (package
10775     (name "lollypop")
10776     (version "1.4.6")
10777     (source
10778      (origin
10779        (method url-fetch)
10780        (uri (string-append "https://adishatz.org/lollypop/"
10781                            "lollypop-" version ".tar.xz"))
10782        (sha256
10783         (base32 "1hlahr50gsagx1ifcdk4yn43xps6w0vqn0gnd6xckfc7qmg1pgq7"))))
10784     (build-system meson-build-system)
10785     (arguments
10786      `(#:imported-modules
10787        (,@%meson-build-system-modules
10788         (guix build python-build-system))
10789        #:modules
10790        ((guix build meson-build-system)
10791         ((guix build python-build-system) #:prefix python:)
10792         (guix build utils))
10793        #:glib-or-gtk? #t
10794        #:tests? #f                      ; no test suite
10795        #:phases
10796        (modify-phases %standard-phases
10797          (add-after 'install 'wrap-program
10798            (lambda* (#:key outputs #:allow-other-keys)
10799              (let ((out               (assoc-ref outputs "out"))
10800                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
10801                (wrap-program (string-append out "/bin/lollypop")
10802                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10803              #t))
10804          (add-after 'install 'wrap-python
10805            (assoc-ref python:%standard-phases 'wrap)))))
10806     (native-inputs
10807      `(("intltool" ,intltool)
10808        ("itstool" ,itstool)
10809        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
10810        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
10811        ("pkg-config" ,pkg-config)))
10812     (inputs
10813      `(("glib-networking" ,glib-networking)
10814        ("gobject-introspection" ,gobject-introspection)
10815        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10816        ("gst-plugins-base" ,gst-plugins-base)
10817        ("libnotify" ,libnotify)
10818        ("libsecret" ,libsecret)
10819        ("libhandy" ,libhandy)
10820        ("libsoup" ,libsoup)
10821        ("python" ,python)
10822        ("python-beautifulsoup4" ,python-beautifulsoup4)
10823        ("python-gst" ,python-gst)
10824        ("python-pil" ,python-pillow)
10825        ("python-pycairo" ,python-pycairo)
10826        ("python-pygobject" ,python-pygobject)
10827        ("python-pylast" ,python-pylast)
10828        ("totem-pl-parser" ,totem-pl-parser)
10829        ("webkitgtk" ,webkitgtk)))
10830     (propagated-inputs
10831      `(;; gst-plugins-base is required to start Lollypop,
10832        ;; the others are required to play streaming.
10833        ("gst-plugins-good" ,gst-plugins-good)
10834        ("gst-plugins-ugly" ,gst-plugins-ugly)))
10835     (home-page "https://wiki.gnome.org/Apps/Lollypop")
10836     (synopsis "GNOME music playing application")
10837     (description
10838      "Lollypop is a music player designed to play well with GNOME desktop.
10839 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10840 from artists and tracks from the web.  It also fetches cover artworks
10841 automatically and it can stream songs from online music services and charts.")
10842     (license license:gpl3+)))
10843
10844 (define-public gnome-video-effects
10845   (package
10846     (name "gnome-video-effects")
10847     (version "0.5.0")
10848     (source (origin
10849               (method url-fetch)
10850               (uri (string-append "mirror://gnome/sources/" name "/"
10851                                   (version-major+minor version) "/" name "-"
10852                                   version ".tar.xz"))
10853               (sha256
10854                (base32
10855                 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10856     (build-system meson-build-system)
10857     (native-inputs
10858      `(("gettext" ,gettext-minimal)
10859        ("pkg-config" ,pkg-config)))
10860     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10861     (synopsis "Video effects for Cheese and other GNOME applications")
10862     (description
10863      "A collection of GStreamer video filters and effects to be used in
10864 photo-booth-like software, such as Cheese.")
10865     (license license:gpl2+)))
10866
10867 (define-public cheese
10868   (package
10869     (name "cheese")
10870     (version "3.38.0")
10871     (source (origin
10872               (method url-fetch)
10873               (uri (string-append "mirror://gnome/sources/" name "/"
10874                                   (version-major+minor version) "/" name "-"
10875                                   version ".tar.xz"))
10876               (sha256
10877                (base32
10878                 "0vyim2avlgq3a48rgdfz5g21kqk11mfb53b2l883340v88mp7ll8"))
10879               (patches (search-patches "cheese-vala-update.patch"))))
10880     (arguments
10881      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
10882        #:glib-or-gtk? #t
10883        ;; Tests require GDK.
10884        #:tests? #f
10885        #:phases
10886        (modify-phases %standard-phases
10887          (add-after 'unpack 'skip-gtk-update-icon-cache
10888            (lambda _
10889              ;; Don't create 'icon-theme.cache'
10890              (substitute* "meson_post_install.py"
10891                (("gtk-update-icon-cache") (which "true")))
10892              #t))
10893          (add-after 'unpack 'patch-docbook-xml
10894            (lambda* (#:key inputs #:allow-other-keys)
10895              ;; Avoid a network connection attempt during the build.
10896              (substitute* '("docs/reference/cheese.xml"
10897                             "docs/reference/cheese-docs.xml")
10898                (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
10899                 (string-append (assoc-ref inputs "docbook-xml")
10900                                "/xml/dtd/docbook/docbookx.dtd")))
10901              #t))
10902          (add-after 'install 'wrap-cheese
10903            (lambda* (#:key inputs outputs #:allow-other-keys)
10904              (let ((out             (assoc-ref outputs "out"))
10905                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10906                (wrap-program (string-append out "/bin/cheese")
10907                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10908              #t)))))
10909     (build-system meson-build-system)
10910     (native-inputs
10911      `(("docbook-xsl" ,docbook-xsl)
10912        ("docbook-xml" ,docbook-xml-4.3)
10913        ("gettext" ,gettext-minimal)
10914        ("glib:bin" ,glib "bin")
10915        ("gtk-doc" ,gtk-doc/stable)
10916        ("itstool" ,itstool)
10917        ("libxml2" ,libxml2)
10918        ("libxslt" ,libxslt)
10919        ("pkg-config" ,pkg-config)
10920        ("vala" ,vala)))
10921     (propagated-inputs
10922      `(("gnome-video-effects" ,gnome-video-effects)
10923        ("clutter" ,clutter)
10924        ("clutter-gst" ,clutter-gst)
10925        ("clutter-gtk" ,clutter-gtk)
10926        ("libcanberra" ,libcanberra)
10927        ("gdk-pixbuf" ,gdk-pixbuf)
10928        ("glib" ,glib)
10929        ("gstreamer" ,gstreamer)))
10930     (inputs
10931      `(("gnome-desktop" ,gnome-desktop)
10932        ("gobject-introspection" ,gobject-introspection)
10933        ("gst-plugins-base" ,gst-plugins-base)
10934        ("gst-plugins-good" ,gst-plugins-good)
10935        ("gst-plugins-bad" ,gst-plugins-bad)
10936        ("gtk+" ,gtk+)
10937        ("libx11" ,libx11)
10938        ("libxtst" ,libxtst)))
10939     (home-page "https://wiki.gnome.org/Apps/Cheese")
10940     (synopsis "Webcam photo booth software for GNOME")
10941     (description
10942      "Cheese uses your webcam to take photos and videos.  Cheese can also
10943 apply fancy special effects and lets you share the fun with others.")
10944     (license license:gpl2+)))
10945
10946 (define-public passwordsafe
10947   (package
10948     (name "passwordsafe")
10949     (version "5.0")
10950     (source
10951      (origin
10952        (method git-fetch)
10953        (uri (git-reference
10954              (url "https://gitlab.gnome.org/World/PasswordSafe")
10955              (commit version)))
10956        (file-name (git-file-name name version))
10957        (sha256
10958         (base32 "1xh64bbg10gnfzlck5jvqy2zk6hbk9cyqgv85xc9kbdvs8n4lhgh"))))
10959     (build-system meson-build-system)
10960     (arguments
10961      `(#:glib-or-gtk? #t
10962        #:phases
10963        (modify-phases %standard-phases
10964          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
10965            (lambda* (#:key outputs #:allow-other-keys)
10966              (let ((prog (string-append (assoc-ref outputs "out")
10967                                         "/bin/gnome-passwordsafe"))
10968                    (pylib (string-append (assoc-ref outputs "out")
10969                                          "/lib/python"
10970                                          ,(version-major+minor
10971                                            (package-version python))
10972                                          "/site-packages")))
10973                (wrap-program prog
10974                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
10975                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10976                #t))))))
10977     (native-inputs
10978      `(("desktop-file-utils" ,desktop-file-utils)
10979        ("gettext" ,gettext-minimal)
10980        ("glib:bin" ,glib "bin")
10981        ("gobject-introspection" ,gobject-introspection)
10982        ("gtk+:bin" ,gtk+ "bin")
10983        ("pkg-config" ,pkg-config)))
10984     (inputs
10985      `(("glib" ,glib)
10986        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10987        ("gtk+" ,gtk+)
10988        ("libhandy" ,libhandy)
10989        ("libpwquality" ,libpwquality)
10990        ("python-pygobject" ,python-pygobject)
10991        ("python-pykeepass" ,python-pykeepass)))
10992     (home-page "https://gitlab.gnome.org/World/PasswordSafe")
10993     (synopsis "Password manager for the GNOME desktop")
10994     (description
10995      "Password Safe is a password manager which makes use of the KeePass v4
10996 format.  It integrates perfectly with the GNOME desktop and provides an easy
10997 and uncluttered interface for the management of password databases.")
10998     (license license:gpl3+)))
10999
11000 (define-public sound-juicer
11001   (package
11002     (name "sound-juicer")
11003     (version "3.24.0")
11004     (source
11005      (origin
11006        (method url-fetch)
11007        (uri (string-append "mirror://gnome/sources/" name "/"
11008                            (version-major+minor version) "/"
11009                            name "-" version ".tar.xz"))
11010        (sha256
11011         (base32
11012          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
11013     (build-system glib-or-gtk-build-system)
11014     (native-inputs
11015      `(("desktop-file-utils" ,desktop-file-utils)
11016        ("intltool" ,intltool)
11017        ("itstool" ,itstool)
11018        ("pkg-config" ,pkg-config)
11019        ("xmllint" ,libxml2)))
11020     (inputs
11021      `(("gtk+" ,gtk+)
11022        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11023        ("gstreamer" ,gstreamer)
11024        ("gst-plugins-base" ,gst-plugins-base)
11025        ("gst-plugins-good" ,gst-plugins-good)
11026        ("iso-codes" ,iso-codes)
11027        ("libbrasero-media3" ,brasero)
11028        ("libcanberra" ,libcanberra)
11029        ("libdiscid" ,libdiscid)
11030        ("libmusicbrainz" ,libmusicbrainz)
11031        ("neon" ,neon)))
11032     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
11033     (synopsis "Audio music cd ripper")
11034     (description "Sound Juicer extracts audio from compact discs and convert it
11035 into audio files that a personal computer or digital audio player can play.
11036 It supports ripping to any audio codec supported by a GStreamer plugin, such as
11037 mp3, Ogg Vorbis and FLAC")
11038     (license license:gpl2+)))
11039
11040 (define-public soundconverter
11041   (package
11042     (name "soundconverter")
11043     (version "3.0.2")
11044     (source
11045      (origin
11046        (method url-fetch)
11047        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
11048                            version "/+download/"
11049                            "soundconverter-" version ".tar.xz"))
11050
11051        (sha256
11052         (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
11053     (build-system glib-or-gtk-build-system)
11054     (arguments
11055      `(#:imported-modules ((guix build python-build-system)
11056                            (guix build glib-or-gtk-build-system)
11057                            ,@%gnu-build-system-modules)
11058
11059        #:modules ((guix build glib-or-gtk-build-system)
11060                   (guix build utils)
11061                   ((guix build gnu-build-system) #:prefix gnu:)
11062                   ((guix build python-build-system) #:prefix python:))
11063
11064        #:phases
11065        (modify-phases %standard-phases
11066          (add-after 'install 'wrap-soundconverter-for-python
11067            (assoc-ref python:%standard-phases 'wrap))
11068          (add-after 'install 'wrap-soundconverter
11069            (lambda* (#:key inputs outputs #:allow-other-keys)
11070              (let ((out               (assoc-ref outputs "out"))
11071                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
11072                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
11073                (wrap-program (string-append out "/bin/soundconverter")
11074                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
11075                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
11076              #t)))))
11077     (native-inputs
11078      `(("intltool" ,intltool)
11079        ("pkg-config" ,pkg-config)
11080        ("glib:bin" ,glib "bin")))
11081     (inputs
11082      `(("gtk+" ,gtk+)
11083        ("python" ,python)
11084        ("python-pygobject" ,python-pygobject)
11085        ("gstreamer" ,gstreamer)
11086        ("gst-plugins-base" ,gst-plugins-base)))
11087     (home-page "https://soundconverter.org/")
11088     (synopsis "Convert between audio formats with a graphical interface")
11089     (description
11090      "SoundConverter supports converting between many audio formats including
11091 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
11092 configurable file renaming. ")
11093     (license license:gpl3)))
11094
11095 (define-public workrave
11096   (package
11097     (name "workrave")
11098     (version "1.10.48")
11099     (source
11100      (origin
11101        (method git-fetch)
11102        (uri (git-reference
11103              (url "https://github.com/rcaelers/workrave")
11104              (commit (string-append "v" (string-map
11105                                          (match-lambda (#\. #\_) (chr chr))
11106                                          version)))))
11107        (file-name (git-file-name name version))
11108        (sha256
11109         (base32 "0qcknxylk9mr0xzszsd1rkgh2zpnix20m998dfclkm9x8zh9pvyr"))))
11110     (build-system glib-or-gtk-build-system)
11111     (arguments
11112      ;; The only tests are maintainer tests (in po/), which fail.
11113      `(#:tests? #f))
11114     (inputs `(("glib" ,glib)
11115               ("gtk+" ,gtk+)
11116               ("gdk-pixbuf" ,gdk-pixbuf)
11117               ("gtkmm" ,gtkmm-3)
11118               ("glibmm" ,glibmm)
11119               ("libx11" ,libx11)
11120               ("libxtst" ,libxtst)
11121               ("dconf" ,dconf)
11122               ("libice" ,libice)
11123               ("libsm" ,libsm)
11124               ("libxscrnsaver" ,libxscrnsaver)))
11125     (native-inputs `(("boost" ,boost)
11126                      ("pkg-config" ,pkg-config)
11127                      ("gettext" ,gettext-minimal)
11128                      ("autoconf" ,autoconf)
11129                      ("autoconf-archive" , autoconf-archive)
11130                      ("automake" ,automake)
11131                      ("libtool" ,libtool)
11132                      ("intltool" ,intltool)
11133                      ("gobject-introspection" ,gobject-introspection)
11134                      ("python3" ,python-3)
11135                      ("python-jinja2" ,python-jinja2)))
11136     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
11137     (description
11138      "Workrave is a program that assists in the recovery and prevention of
11139 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
11140 micro-pauses and rest breaks, and restricts you to your daily limit.")
11141     (home-page "http://www.workrave.org")
11142     (license license:gpl3+)))
11143
11144 (define-public ghex
11145   (package
11146     (name "ghex")
11147     (version "3.18.4")
11148     (source (origin
11149               (method url-fetch)
11150               (uri (string-append "mirror://gnome/sources/ghex/"
11151                                   (version-major+minor version) "/"
11152                                   "ghex-" version ".tar.xz"))
11153               (sha256
11154                (base32
11155                 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
11156     (build-system meson-build-system)
11157     (arguments
11158      '(#:glib-or-gtk? #t
11159        #:phases
11160        (modify-phases %standard-phases
11161          (add-after 'unpack 'skip-gtk-update-icon-cache
11162            ;; Don't create 'icon-theme.cache'.
11163            (lambda _
11164              (substitute* "meson_post_install.py"
11165                (("gtk-update-icon-cache") (which "true")))
11166              #t)))))
11167     (native-inputs
11168      `(("pkg-config" ,pkg-config)
11169        ("glib:bin" ,glib "bin") ; for glib-compile-schemas
11170        ("gnome-common" ,gnome-common)
11171        ("which" ,which)
11172        ("intltool" ,intltool)
11173        ("yelp-tools" ,yelp-tools)
11174        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
11175     (inputs
11176      `(("atk" ,atk)
11177        ("gtk" ,gtk+)))
11178     (synopsis "GNOME hexadecimal editor")
11179     (description "The GHex program can view and edit files in two ways:
11180 hexadecimal or ASCII.  It is useful for editing binary files in general.")
11181     (home-page "https://wiki.gnome.org/Apps/Ghex")
11182     (license license:gpl2)))
11183
11184 (define-public libdazzle
11185   (package
11186     (name "libdazzle")
11187     (version "3.37.1")
11188     (source (origin
11189               (method url-fetch)
11190               (uri (string-append "mirror://gnome/sources/libdazzle/"
11191                                   (version-major+minor version) "/"
11192                                   "libdazzle-" version ".tar.xz"))
11193               (sha256
11194                (base32
11195                 "03r5cr11dc031qa3694bpgm3lajrhiiln67kvl7vjj4q0scf7w7x"))))
11196     (build-system meson-build-system)
11197     (arguments
11198      `(#:phases
11199        (modify-phases %standard-phases
11200          (add-before 'check 'pre-check
11201            (lambda _
11202              ;; Tests require a running X server.
11203              (system "Xvfb :1 &")
11204              (setenv "DISPLAY" ":1")
11205              #t)))))
11206     (native-inputs
11207      `(("glib" ,glib "bin")             ; glib-compile-resources
11208        ("pkg-config" ,pkg-config)
11209        ;; For tests.
11210        ("xorg-server" ,xorg-server-for-tests)))
11211     (inputs
11212      `(("glib" ,glib)
11213        ("gobject-introspection" ,gobject-introspection)
11214        ("gtk+" ,gtk+)
11215        ("vala" ,vala)))
11216     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
11217     (synopsis "Companion library to GObject and Gtk+")
11218     (description "The libdazzle library is a companion library to GObject and
11219 Gtk+.  It provides various features that the authors wish were in the
11220 underlying library but cannot for various reasons.  In most cases, they are
11221 wildly out of scope for those libraries.  In other cases, they are not quite
11222 generic enough to work for everyone.")
11223     (license license:gpl3+)))
11224
11225 (define-public evolution
11226   (package
11227     (name "evolution")
11228     (version "3.42.1")
11229     (source (origin
11230               (method url-fetch)
11231               (uri (string-append "mirror://gnome/sources/evolution/"
11232                                   (version-major+minor version) "/"
11233                                   "evolution-" version ".tar.xz"))
11234               (sha256
11235                (base32
11236                 "0igfzapdvgfx2gnpwfkjfkn7l5j186wk88ni39vqas1sl7ijlls6"))))
11237     (build-system cmake-build-system)
11238     (arguments
11239      `(#:imported-modules (,@%cmake-build-system-modules
11240                            (guix build glib-or-gtk-build-system))
11241        #:modules ((guix build cmake-build-system)
11242                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
11243                   (guix build utils))
11244        #:configure-flags
11245        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
11246              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
11247                                           ; in four years and cannot be built.
11248        #:phases
11249        (modify-phases %standard-phases
11250          (add-after 'unpack 'adjust-webkitgtk-version
11251            (lambda _
11252              (substitute* '("CMakeLists.txt" "evolution-shell.pc.in")
11253                (("webkit2gtk-4.0")
11254                 "webkit2gtk-4.1"))))
11255          ;; The build system attempts to install user interface modules to the
11256          ;; output directory of the "evolution-data-server" package.  This
11257          ;; change redirects that change.
11258          (add-after 'unpack 'patch-ui-module-dir
11259            (lambda* (#:key outputs #:allow-other-keys)
11260              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
11261                (("\\$\\{edsuimoduledir\\}")
11262                 (string-append (assoc-ref outputs "out")
11263                                "/lib/evolution-data-server/ui-modules")))))
11264          (add-after 'install 'glib-or-gtk-compile-schemas
11265            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
11266          (add-after 'install 'glib-or-gtk-wrap
11267            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
11268     (native-inputs
11269      `(("glib" ,glib "bin")             ; glib-mkenums
11270        ("pkg-config" ,pkg-config)
11271        ("intltool" ,intltool)
11272        ("itstool" ,itstool)))
11273     (inputs
11274      `(("enchant" ,enchant)
11275        ("evolution-data-server" ,evolution-data-server) ; must be the same version
11276        ("gcr" ,gcr)
11277        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11278        ("gnome-autoar" ,gnome-autoar)
11279        ("gnome-desktop" ,gnome-desktop)
11280        ("gspell" ,gspell)
11281        ("highlight" ,highlight)
11282        ("libcanberra" ,libcanberra)
11283        ("libgweather" ,libgweather)
11284        ("libnotify" ,libnotify)
11285        ("libsoup" ,libsoup)
11286        ("nss" ,nss)
11287        ("openldap" ,openldap)
11288        ("webkitgtk" ,webkitgtk)
11289        ("ytnef" ,ytnef)))
11290     (home-page "https://gitlab.gnome.org/GNOME/evolution")
11291     (synopsis "Manage your email, contacts and schedule")
11292     (description "Evolution is a personal information management application
11293 that provides integrated mail, calendaring and address book
11294 functionality.")
11295     ;; See COPYING for details.
11296     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
11297                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
11298                    license:lgpl2.1+))))  ; smime/lib/*
11299
11300 (define-public gthumb
11301   (package
11302     (name "gthumb")
11303     (version "3.12.0")
11304     (source (origin
11305               (method url-fetch)
11306               (uri (string-append "mirror://gnome/sources/gthumb/"
11307                                   (version-major+minor version) "/"
11308                                   "gthumb-" version ".tar.xz"))
11309               (sha256
11310                (base32
11311                 "0grqiq6v26z8avl7mj24xy4i9bl1niwpqhqw6rblprl40c1zrvrx"))))
11312     (build-system meson-build-system)
11313     (arguments
11314      `(#:glib-or-gtk? #t
11315
11316        ;; See
11317        ;; <https://github.com/mesonbuild/meson/issues/9492#issuecomment-973117289>.
11318        #:meson ,meson-0.59
11319
11320        #:configure-flags
11321        ;; Ensure the RUNPATH contains all installed library locations.
11322        (list (string-append "-Dc_link_args=-Wl,-rpath="
11323                             (assoc-ref %outputs "out")
11324                             "/lib/gthumb/extensions")
11325              (string-append "-Dcpp_link_args=-Wl,-rpath="
11326                             (assoc-ref %outputs "out")
11327                             "/lib/gthumb/extensions"))))
11328     (native-inputs
11329      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11330        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
11331        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
11332        ("intltool" ,intltool)
11333        ("itstool" ,itstool)
11334        ("pkg-config" ,pkg-config)))
11335     (inputs
11336      `(("clutter" ,clutter)
11337        ("clutter-gst" ,clutter-gst)
11338        ("clutter-gtk" ,clutter-gtk)
11339        ("colord" ,colord)
11340        ("exiv2" ,exiv2)
11341        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11342        ("gstreamer" ,gstreamer)
11343        ("gtk" ,gtk+)
11344        ("libheif" ,libheif)
11345        ("libjpeg" ,libjpeg-turbo)
11346        ("libraw" ,libraw)
11347        ("librsvg" ,librsvg)
11348        ("libtiff" ,libtiff)
11349        ("libwebp" ,libwebp)))
11350     (home-page "https://wiki.gnome.org/Apps/Gthumb")
11351     (synopsis "GNOME image viewer and browser")
11352     (description "GThumb is an image viewer, browser, organizer, editor and
11353 advanced image management tool")
11354     (license license:gpl2+)))
11355
11356 (define-public terminator
11357   (package
11358     (name "terminator")
11359     (version "2.1.1")
11360     (source
11361      (origin
11362        (method url-fetch)
11363        (uri (string-append "https://github.com/gnome-terminator/terminator/"
11364                            "releases/download/v" version "/"
11365                            name "-" version ".tar.gz"))
11366        (sha256
11367         (base32 "0xdgmam7ghnxw6g38a4gjw3kk3rhga8c66lns18k928jlr9fmddw"))))
11368     (build-system python-build-system)
11369     (native-inputs
11370      `(("gettext" ,gettext-minimal)
11371        ("glib:bin" ,glib "bin")         ; for glib-compile-resources
11372        ("gobject-introspection" ,gobject-introspection)
11373        ("intltool" ,intltool)
11374        ("pkg-config" ,pkg-config)
11375        ("python-psutil" ,python-psutil)
11376        ("python-pytest-runner" ,python-pytest-runner)
11377        ("python-pytest" ,python-pytest)))
11378     (inputs
11379      `(("cairo" ,cairo)
11380        ("dbus-glib" ,dbus-glib)
11381        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11382        ("gtk+" ,gtk+)
11383        ("python" ,python-wrapper)
11384        ("python-dbus" ,python-dbus)
11385        ("python-notify2" ,python-notify2)
11386        ("python-pycairo" ,python-pycairo)
11387        ("python-pygobject" ,python-pygobject)
11388        ("vte" ,vte)))
11389     (propagated-inputs
11390      `(("python-configobj" ,python-configobj)))
11391     (arguments
11392      ;; One test out of 28 fails due to dbus-python and python-notify; skip
11393      ;; tests.
11394      `(#:tests? #f
11395        #:imported-modules ((guix build glib-or-gtk-build-system)
11396                            ,@%python-build-system-modules)
11397        #:modules ((guix build python-build-system)
11398                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
11399                   (guix build utils))
11400        #:phases
11401        (modify-phases %standard-phases
11402          (add-after 'unpack 'handle-dbus-python
11403            (lambda _
11404              ;; python-dbus cannot be found but it's really there.  See
11405              ;; https://github.com/SpotlightKid/jack-select/issues/2
11406              (substitute* "setup.py"
11407                (("'dbus-python',") ""))))
11408          (add-after 'install 'wrap-program
11409            (lambda* (#:key outputs #:allow-other-keys)
11410              (let ((prog (string-append (assoc-ref outputs "out")
11411                                         "/bin/terminator"))
11412                    (pylib (string-append (assoc-ref outputs "out")
11413                                          "/lib/python"
11414                                          ,(version-major+minor
11415                                            (package-version python))
11416                                          "/site-packages")))
11417                (wrap-program prog
11418                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
11419                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))
11420          (add-after 'wrap-program 'glib-or-gtk-wrap
11421            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
11422     (home-page "https://gnome-terminator.org/")
11423     (synopsis "Store and run multiple GNOME terminals in one window")
11424     (description
11425      "Terminator allows you to run multiple GNOME terminals in a grid and
11426 tabs, and it supports drag and drop re-ordering of terminals.")
11427     (license license:gpl2)))
11428
11429 (define-public libhandy
11430   (package
11431     (name "libhandy")
11432     (version "1.2.3")
11433     (source
11434      (origin
11435        (method git-fetch)
11436        (uri (git-reference
11437              (url "https://gitlab.gnome.org/GNOME/libhandy")
11438              (commit version)))
11439        (file-name (git-file-name name version))
11440        (sha256
11441         (base32 "1ng2607cp4dfl169rj7zi8q5p6fzxy3a4l0glm7mj75yd1a603rz"))))
11442     (build-system meson-build-system)
11443     (arguments
11444      `(#:configure-flags
11445        '("-Dglade_catalog=enabled"
11446          ;; XXX: Generating the documentation fails because the
11447          ;; libhandy.devhelp2 document cannot be created. This seems to be
11448          ;; caused by a problem during the XSL transformation.
11449          "-Dgtk_doc=false")
11450        #:phases
11451        (modify-phases %standard-phases
11452          (add-after 'unpack 'patch-docbook-xml
11453            (lambda* (#:key inputs #:allow-other-keys)
11454              (for-each
11455               (lambda (file)
11456                 (substitute* file
11457                   (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
11458                    (search-input-file inputs
11459                                       "/xml/dtd/docbook/docbookx.dtd"))))
11460               (find-files "doc" "\\.xml"))))
11461          (add-before 'check 'pre-check
11462            (lambda _
11463              ;; Tests require a running X server.
11464              (system "Xvfb :1 &")
11465              (setenv "DISPLAY" ":1")
11466              #t)))))
11467     (inputs
11468      `(("gtk+" ,gtk+)
11469        ("glade" ,glade3)))
11470     (native-inputs
11471      `(("glib:bin" ,glib "bin")
11472        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
11473        ("vala" ,vala)
11474        ("libxml2" ,libxml2)
11475        ("libxslt" ,libxslt)
11476        ("docbook-xsl" ,docbook-xsl)
11477        ("docbook-xml" ,docbook-xml-4.3)
11478        ("gtk-doc" ,gtk-doc/stable)
11479        ("pkg-config" ,pkg-config)
11480        ("gettext" ,gettext-minimal)
11481
11482        ;; Test suite dependencies.
11483        ("xorg-server" ,xorg-server-for-tests)
11484        ("hicolor-icon-theme" ,hicolor-icon-theme)))
11485     (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
11486     (synopsis "Library full of GTK+ widgets for mobile phones")
11487     (description "The aim of the handy library is to help with developing user
11488 interfaces for mobile devices using GTK+.  It provides responsive GTK+ widgets
11489 for usage on small and big screens.")
11490     (license license:lgpl2.1+)))
11491
11492 (define-public libhandy-0.0
11493   (package
11494     (inherit libhandy)
11495     (version "0.0.13")
11496     (source
11497      (origin
11498        (method git-fetch)
11499        (uri (git-reference
11500              (url "https://gitlab.gnome.org/GNOME/libhandy")
11501              (commit (string-append "v" version))))
11502        (file-name (git-file-name "libhandy" version))
11503        (sha256
11504         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
11505     (arguments
11506      (substitute-keyword-arguments (package-arguments libhandy)
11507        ((#:configure-flags flags)
11508         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
11509
11510 (define-public libgit2-glib
11511   (package
11512     (name "libgit2-glib")
11513     (version "0.99.0.1")
11514     (source (origin
11515               (method url-fetch)
11516               (uri (string-append "mirror://gnome/sources/" name "/"
11517                                   (version-major+minor version) "/"
11518                                   name "-" version ".tar.xz"))
11519               (sha256
11520                (base32
11521                 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
11522     (build-system meson-build-system)
11523     (native-inputs
11524      `(("glib:bin" ,glib "bin") ;; For glib-mkenums
11525        ("gobject-introspection" ,gobject-introspection)
11526        ("pkg-config" ,pkg-config)
11527        ("python-pygobject" ,python-pygobject)
11528        ("python-wrapper" ,python-wrapper)
11529        ("vala" ,vala)))
11530     (inputs
11531      `(("glib" ,glib)
11532        ("libssh2" ,libssh2)))
11533     (propagated-inputs
11534      `(;; In Requires of libgit2-glib.pc.
11535        ("libgit2" ,libgit2)))
11536     (synopsis "GLib wrapper around the libgit2 Git access library")
11537     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
11538 access library.  It only implements the core plumbing functions, not really the
11539 higher level porcelain stuff.")
11540     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
11541     (license license:gpl2+)))
11542
11543 (define-public gitg
11544   (package
11545     (name "gitg")
11546     (version "3.32.1")
11547     (source (origin
11548               (method url-fetch)
11549               (uri (string-append "mirror://gnome/sources/" name "/"
11550                                   (version-major+minor version) "/"
11551                                   name "-" version ".tar.xz"))
11552               (sha256
11553                (base32
11554                 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
11555     (build-system meson-build-system)
11556     (arguments
11557      `(#:glib-or-gtk? #t
11558        #:phases
11559        (modify-phases %standard-phases
11560          (add-after 'unpack 'disable-post-install-partially
11561            (lambda _
11562              (substitute* "meson_post_install.py"
11563                (("'python'") ; there are no python sources to compile
11564                 (string-append "'" (which "true") "'"))
11565                (("gtk-update-icon-cache") (which "true")))
11566              #t))
11567          (add-after 'unpack 'fix-test-sources
11568            (lambda _
11569              (substitute* "tests/libgitg/test-commit.vala"
11570                (("/bin/bash") (which "bash")))
11571              #t))
11572          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11573            (lambda* (#:key outputs #:allow-other-keys)
11574              (let ((prog (string-append (assoc-ref outputs "out")
11575                                         "/bin/gitg")))
11576                (wrap-program prog
11577                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11578                #t))))))
11579     (inputs
11580      `(("glib" ,glib)
11581        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11582        ("gtk+" ,gtk+)
11583        ("gtkspell3" ,gtkspell3)
11584        ("gtksourceview" ,gtksourceview-3)
11585        ("json-glib" ,json-glib)
11586        ("libdazzle" ,libdazzle)
11587        ("libgee" ,libgee)
11588        ("libgit2-glib" ,libgit2-glib)
11589        ("libpeas" ,libpeas)
11590        ("libsecret" ,libsecret)
11591        ("libsoup" ,libsoup)
11592        ("libxml2" ,libxml2)))
11593     (native-inputs
11594      `(("glib:bin" ,glib "bin")
11595        ("gtk+:bin" ,gtk+ "bin")
11596        ("gobject-introspection" ,gobject-introspection)
11597        ("intltool" ,intltool)
11598        ("pkg-config" ,pkg-config)
11599        ("vala" ,vala)))
11600     (synopsis "Graphical user interface for git")
11601     (description
11602      "gitg is a graphical user interface for git.  It aims at being a small,
11603 fast and convenient tool to visualize the history of git repositories.
11604 Besides visualization, gitg also provides several utilities to manage your
11605 repository and commit your work.")
11606     (home-page "https://wiki.gnome.org/Apps/Gitg")
11607     (license license:gpl2+)))
11608
11609 (define-public gamin
11610   (package
11611     (name "gamin")
11612     (version "0.1.10")
11613     (source (origin
11614               (method url-fetch)
11615               (uri (string-append "mirror://gnome/sources/" name "/"
11616                                   (version-major+minor version) "/"
11617                                   name "-" version ".tar.bz2"))
11618               (sha256
11619                (base32
11620                 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
11621     (build-system gnu-build-system)
11622     (arguments
11623      `(#:phases
11624        (modify-phases %standard-phases
11625          ;; The 'config.sub' is too old to recognise aarch64.
11626          ,@(if (and=> (%current-target-system) target-aarch64?)
11627                `((add-after 'unpack 'replace-config.sub
11628                    (lambda _
11629                      (delete-file "config.sub")
11630                      (symlink (which "config.sub") "config.sub"))))
11631                '())
11632          (add-after 'unpack 'remove-deprecated-macro
11633            (lambda _
11634              (substitute* '("server/gam_node.c"
11635                             "server/gam_subscription.h"
11636                             "server/gam_node.h"
11637                             "server/gam_subscription.c")
11638                (("G_CONST_RETURN") "const"))
11639              #t))
11640          ;; The configure script runs a test program unconditionally,
11641          ;; without an option to manually set the test result.
11642          ;; Override this test anyway.
11643          ,@(if (%current-target-system)
11644                `((add-after 'bootstrap 'set-have-abstract-sockets
11645                    (lambda _
11646                      (define in-abstract-sockets-test? #f)
11647                      (substitute* "configure"
11648                        (("^#### Abstract sockets\n$")
11649                         (set! in-abstract-sockets-test? #t)
11650                         "#### Abstract sockets\n")
11651                        (("^have_abstract_sockets=no\n$")
11652                         (set! in-abstract-sockets-test? #f)
11653                         ;; ‘Abstract sockets’ appear to be Linux-only.
11654                         (string-append "have_abstract_sockets="
11655                                        ,(if (target-linux?)
11656                                             "yes"
11657                                             "no")
11658                                        "\nif false; then\nif false; then :\n"))
11659                        (("^(.*\n)$" line)
11660                         (if in-abstract-sockets-test?
11661                             "" ; delete
11662                             line))))))
11663                '()))))
11664     (inputs
11665      `(("glib" ,glib)))
11666     (native-inputs
11667      `(("pkg-config" ,pkg-config)
11668        ,@(if (and=> (%current-target-system) target-aarch64?)
11669              `(("config" ,config))
11670              '())))
11671     (home-page "https://people.gnome.org/~veillard/gamin/")
11672     (synopsis "File alteration monitor")
11673     (description
11674      "Gamin is a file and directory monitoring system defined to be a subset
11675 of the FAM (File Alteration Monitor) system.  This is a service provided by a
11676 library which detects when a file or a directory has been modified.")
11677     (license license:gpl2+)))
11678
11679 (define-public gnome-mahjongg
11680   (package
11681     (name "gnome-mahjongg")
11682     (version "3.35.1")
11683     (source (origin
11684               (method git-fetch)
11685               (uri (git-reference
11686                     (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
11687                     (commit version)))
11688               (file-name (git-file-name name version))
11689               (sha256
11690                (base32
11691                 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
11692     (build-system meson-build-system)
11693     (arguments
11694      `(#:glib-or-gtk? #t))
11695     (native-inputs
11696      `(("appstream-glib" ,appstream-glib)
11697        ("gettext" ,gettext-minimal)
11698        ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11699        ("gtk+" ,gtk+ "bin")     ;; For gtk-update-icon-cache
11700        ("itstool" ,itstool)
11701        ("pkg-config" ,pkg-config)
11702        ("vala" ,vala)))
11703     (propagated-inputs
11704      `(("dconf" ,dconf)))
11705     (inputs
11706      `(("glib" ,glib)
11707        ("gtk+" ,gtk+)
11708        ("librsvg" ,librsvg)))
11709     (synopsis "Mahjongg tile-matching game")
11710     (description "GNOME Mahjongg is a game based on the classic Chinese
11711 tile-matching game Mahjong.  It features multiple board layouts, tile themes,
11712 and a high score table.")
11713     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11714     (license license:gpl2+)))
11715
11716 (define-public gnome-themes-extra
11717   (package
11718     (name "gnome-themes-extra")
11719     (version "3.28")
11720     (source
11721      (origin
11722        (method url-fetch)
11723        (uri (string-append "mirror://gnome/sources/" name "/"
11724                            (version-major+minor version) "/" name "-"
11725                            version ".tar.xz"))
11726        (sha256
11727         (base32
11728          "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11729     (build-system gnu-build-system)
11730     (arguments
11731      '(#:configure-flags
11732        ;; Don't create 'icon-theme.cache'.
11733        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11734               (true      (string-append coreutils "/bin/true")))
11735          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
11736     (native-inputs
11737      `(("glib:bin" ,glib "bin")
11738        ("intltool" ,intltool)
11739        ("pkg-config" ,pkg-config)))
11740     (inputs
11741      `(("glib" ,glib)
11742        ("gtk+" ,gtk+)
11743        ("gtk+-2" ,gtk+-2)
11744        ("librsvg" ,librsvg)
11745        ("libxml2" ,libxml2)))
11746     (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11747     (synopsis "GNOME Extra Themes")
11748     (description "This package provides themes and related elements that don't
11749 really fit in other upstream packages.  It offers legacy support for GTK+ 2
11750 versions of Adwaita, Adwaita-dark and HighContrast themes.  It also provides
11751 index files needed for Adwaita to be used outside of GNOME.")
11752     (license license:lgpl2.1+)))
11753
11754 (define-public gnote
11755   (package
11756     (name "gnote")
11757     (version "40.2")
11758     (source
11759      (origin
11760        (method url-fetch)
11761        (uri (string-append "mirror://gnome/sources/" name "/"
11762                            (version-major version)  "/"
11763                            "gnote-" version ".tar.xz"))
11764        (sha256
11765         (base32 "01fqdfgcl32cf40jw9q0h7f5bghl1lvf89vln1lh41ncrk0iw6vy"))))
11766     (build-system glib-or-gtk-build-system)
11767     (native-inputs
11768      `(("desktop-file-utils" ,desktop-file-utils)
11769        ("glib:bin" ,glib "bin")
11770        ("gobject-introspection" ,gobject-introspection)
11771        ("intltool" ,intltool)
11772        ("itstool" ,itstool)
11773        ("pkg-config" ,pkg-config)
11774        ("unittest-cpp" ,unittest-cpp))) ;FIXME: not found by pkg-config
11775     (inputs
11776      `(("glibmm" ,glibmm)
11777        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11778        ("gspell" ,gspell)
11779        ("gtk+" ,gtk+)
11780        ("gtkmm" ,gtkmm-3)
11781        ("libsecret" ,libsecret)
11782        ("libuuid" ,util-linux "lib")
11783        ("libxml2" ,libxml2)
11784        ("libxslt" ,libxslt)))
11785     (synopsis "Note-taking application for the GNOME desktop")
11786     (description
11787      "Gnote is a note-taking application written for the GNOME desktop
11788 environment.")
11789     (home-page "https://wiki.gnome.org/Apps/Gnote")
11790     (license license:gpl3+)))
11791
11792 (define-public polari
11793   (package
11794     (name "polari")
11795     (version "3.36.3")
11796     (source (origin
11797               (method url-fetch)
11798               (uri (string-append "mirror://gnome/sources/polari/"
11799                                   (version-major+minor version)
11800                                   "/polari-" version ".tar.xz"))
11801               (sha256
11802                (base32
11803                 "0fpmrvhd40yay051bzn4x3gsrzdv42nav0pm5ps0np8wk1z689jg"))))
11804     (build-system meson-build-system)
11805     (arguments
11806      `(#:glib-or-gtk? #t
11807        #:phases
11808        (modify-phases %standard-phases
11809          (add-after 'unpack 'skip-gtk-update-icon-cache
11810            (lambda _
11811              (substitute* "meson/meson-postinstall.sh"
11812                (("gtk-update-icon-cache") (which "true")))
11813              #t))
11814          (add-after 'glib-or-gtk-wrap 'wrap-typelib
11815            (lambda* (#:key outputs #:allow-other-keys)
11816              (let ((prog (string-append (assoc-ref outputs "out")
11817                                         "/bin/polari")))
11818                (wrap-program prog
11819                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11820                #t))))))
11821     (inputs
11822      `(("glib" ,glib)
11823        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11824        ("gspell" ,gspell)
11825        ("gtk+" ,gtk+)
11826        ("gjs" ,gjs)
11827        ("libsecret" ,libsecret)
11828        ("libsoup" ,libsoup)
11829        ("telepathy-glib" ,telepathy-glib)
11830        ("telepathy-logger" ,telepathy-logger)))
11831     (native-inputs
11832      `(("glib:bin" ,glib "bin")
11833        ("gobject-introspection" ,gobject-introspection)
11834        ("intltool" ,intltool)
11835        ("pkg-config" ,pkg-config)
11836        ("yelp-tools" ,yelp-tools)))
11837     (propagated-inputs
11838      `(("telepathy-idle" ,telepathy-idle)
11839        ("telepathy-mission-control" ,telepathy-mission-control)))
11840     (synopsis "Simple IRC Client")
11841     (description
11842      "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11843 integrate seamlessly with the GNOME desktop.")
11844     (home-page "https://wiki.gnome.org/Apps/Polari")
11845     (license license:gpl2+)))
11846
11847 (define-public gnome-boxes
11848   (package
11849     (name "gnome-boxes")
11850     (version "41.1")
11851     (source
11852      (origin
11853        (method url-fetch)
11854        (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11855                            (version-major version) "/"
11856                            "gnome-boxes-" version ".tar.xz"))
11857        (sha256
11858         (base32 "1wzhm8n485cqhbai4qshgrwl05ix881g8gjshilrj6vg8p1li79h"))
11859        (patches
11860         (search-patches "gnome-boxes-add-guix-logo.patch"))))
11861     (build-system meson-build-system)
11862     (arguments
11863      `(#:meson ,meson-0.59         ;positional arguments error with meson 0.60
11864        #:glib-or-gtk? #t
11865        #:configure-flags (list "-Drdp=false"
11866                                (string-append "-Dc_link_args=-Wl,-rpath="
11867                                               (assoc-ref %outputs "out")
11868                                               "/lib/gnome-boxes"))))
11869     (native-inputs
11870      `(("glib:bin" ,glib "bin")                   ;for glib-compile-resources
11871        ("gtk+:bin" ,gtk+ "bin")                   ;for gtk-update-icon-cache
11872        ("desktop-file-utils" ,desktop-file-utils) ;for update-desktop-database
11873        ("itstool" ,itstool)
11874        ("intltool" ,intltool)
11875        ("vala" ,vala)
11876        ("pkg-config" ,pkg-config)))
11877     (inputs
11878      `(("libarchive" ,libarchive)
11879        ("glib-networking" ,glib-networking) ;for TLS support
11880        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11881        ("gtk" ,gtk+)
11882        ("gtk-vnc" ,gtk-vnc)
11883        ("gtksourceview" ,gtksourceview)
11884        ("json-glib" ,json-glib)
11885        ("libhandy" ,libhandy)
11886        ("libosinfo" ,libosinfo)
11887        ("libsecret" ,libsecret)
11888        ("libsoup" ,libsoup-minimal-2)
11889        ("libusb" ,libusb)
11890        ("libvirt" ,libvirt)
11891        ("libvirt-glib" ,libvirt-glib)
11892        ("libxml" ,libxml2)
11893        ("spice-gtk" ,spice-gtk)
11894        ("sparql-query" ,sparql-query)
11895        ("vte" ,vte)
11896        ("webkitgtk" ,webkitgtk-with-libsoup2) ;for webkit2gtk-4.0
11897        ("tracker" ,tracker)
11898        ("libgudev" ,libgudev)))
11899     (home-page "https://wiki.gnome.org/Apps/Boxes")
11900     (synopsis "View, access, and manage remote and virtual systems")
11901     (description "GNOME Boxes is a simple application to view, access, and
11902 manage remote and virtual systems.  Note that this application requires the
11903 @code{libvirt} and @code{virtlog} daemons to run.  Use the command
11904 @command{info '(guix) Virtualization Services'} to learn how to configure
11905 these services on the Guix System.")
11906     (license (list
11907               ;; For data/icons/empty-boxes.png.
11908               license:cc-by2.0
11909               ;; For all others.
11910               license:lgpl2.0+))))
11911
11912 (define-public geary
11913   (package
11914     (name "geary")
11915     (version "40.0")
11916     (source (origin
11917               (method git-fetch)
11918               (uri (git-reference
11919                     (url "https://gitlab.gnome.org/GNOME/geary.git")
11920                     (commit (string-append "gnome-" version))))
11921               (file-name (git-file-name name version))
11922               (sha256
11923                (base32
11924                 "04hvw86r8sczvjm1z3ls5y5y5h6nyfb648rjkfx05ib00mqq5v1x"))))
11925     (build-system meson-build-system)
11926     (arguments
11927      `(#:glib-or-gtk? #t
11928        #:configure-flags
11929        '("-Dprofile=release")
11930        #:phases (modify-phases %standard-phases
11931                   (add-after 'unpack 'disable-failing-tests
11932                     (lambda _
11933                       (substitute* "test/test-client.vala"
11934                         (("client.add_suite\\(new Application.CertificateManagerTest\\(\\).suite\\);")
11935                          ""))))
11936                   (add-after 'unpack 'generate-vapis
11937                     (lambda* (#:key inputs #:allow-other-keys)
11938                       ;; It’s not possible to generate the GMime vapi, because
11939                       ;; there’s custom metadata that gmime didn’t
11940                       ;; install. Thus, the vapi should be built and installed
11941                       ;; with gmime.
11942                       (define gmime
11943                         (assoc-ref inputs "gmime"))
11944                       (copy-file (string-append gmime "/share/vala/vapi/gmime-3.0.vapi")
11945                                  "bindings/vapi/gmime-3.0.vapi")))
11946                   (add-after 'unpack 'disable-postinstall-script
11947                     (lambda _
11948                       (substitute* "build-aux/post_install.py"
11949                         (("gtk-update-icon-cache")
11950                          "true"))))
11951                   (add-before 'check 'setup-home
11952                     (lambda _
11953                       ;; Tests require a writable HOME.
11954                       (setenv "HOME" (getcwd))))
11955                   (add-before 'check 'setup-xvfb
11956                     (lambda _
11957                       (system "Xvfb :1 &")
11958                       (setenv "DISPLAY" ":1")
11959                       #t)))))
11960     (inputs
11961      `(("enchant" ,enchant)
11962        ("folks" ,folks)
11963        ("gcr" ,gcr)
11964        ("glib" ,glib)
11965        ("gmime" ,gmime)
11966        ("gnome-online-accounts:lib"
11967         ,gnome-online-accounts "lib")
11968        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11969        ("gspell" ,gspell)
11970        ("gsound" ,gsound)
11971        ("gtk+" ,gtk+)
11972        ("iso-codes" ,iso-codes)
11973        ("json-glib" ,json-glib)
11974        ("libcanberra" ,libcanberra)
11975        ("libgee" ,libgee)
11976        ("libhandy" ,libhandy)
11977        ("libpeas" ,libpeas)
11978        ("libsecret" ,libsecret)
11979        ("libstemmer" ,libstemmer)
11980        ("libunwind" ,libunwind)
11981        ("sqlite" ,sqlite)
11982        ("webkitgtk" ,webkitgtk-with-libsoup2)
11983        ("ytnef" ,ytnef)))
11984     (native-inputs
11985      `(("appstream-glib" ,appstream-glib)
11986        ("cmake-minimal" ,cmake-minimal)
11987        ("desktop-file-utils" ,desktop-file-utils)
11988        ("gettext" ,gettext-minimal)
11989        ("glib" ,glib)
11990        ("glib:bin" ,glib "bin")
11991        ("gmime" ,gmime)
11992        ("gobject-introspection" ,gobject-introspection)
11993        ("itstool" ,itstool)
11994        ("libarchive" ,libarchive)
11995        ("libxml2" ,libxml2)
11996        ("pkg-config" ,pkg-config)
11997        ("vala" ,vala)
11998        ("xvfb" ,xorg-server-for-tests)))
11999     (synopsis "GNOME email application built around conversations")
12000     (description
12001      "Geary collects related messages together into conversations,
12002 making it easy to find and follow your discussions.  Full-text and keyword
12003 search makes it easy to find the email you are looking for.  Geary's
12004 full-featured composer lets you send rich, styled text with images, links, and
12005 lists, but also send lightweight, easy to read text messages.  Geary
12006 automatically picks up your existing GNOME Online Accounts, and adding more is
12007 easy.  Geary has a clean, fast, modern interface that works like you want it
12008 to.")
12009     (home-page "https://wiki.gnome.org/Apps/Geary")
12010     (license (list
12011               ;; geary
12012               license:lgpl2.1+
12013               ;; icons
12014               license:cc-by3.0
12015               license:cc-by-sa3.0
12016               license:public-domain
12017               ;; snowball
12018               license:bsd-2))))
12019
12020 (define-public glabels
12021   (package
12022     (name "glabels")
12023     (version "3.4.1")
12024     (source
12025      (origin
12026        (method url-fetch)
12027        (uri (string-append "mirror://gnome/sources/" name "/"
12028                            (version-major+minor version)  "/"
12029                            "glabels-" version ".tar.xz"))
12030        (sha256
12031         (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
12032     (build-system glib-or-gtk-build-system)
12033     (native-inputs
12034      `(("gettext" ,gettext-minimal)
12035        ("glib:bin" ,glib "bin")
12036        ("intltool" ,intltool)
12037        ("itstool" ,itstool)
12038        ("pkg-config" ,pkg-config)))
12039     (inputs
12040      `(("gtk+" ,gtk+)
12041        ("librsvg" ,librsvg)
12042        ("libxml2" ,libxml2)))
12043     (arguments
12044      `(#:configure-flags '("CFLAGS=-fcommon")))
12045     (home-page "https://glabels.org/")
12046     (synopsis "Program for creating labels and business cards")
12047     (description
12048      "gLabels is a program for creating labels and business cards.  It is
12049 designed to work with various laser/ink-jet peel-off label and business
12050 card sheets that you’ll find at most office supply stores.")
12051     (license license:gpl3+)))
12052
12053 (define-public gnome-latex
12054   (package
12055     (name "gnome-latex")
12056     (version "3.38.0")
12057     (source
12058      (origin
12059        (method url-fetch)
12060        (uri (string-append "mirror://gnome/sources/" name "/"
12061                            (version-major+minor version)  "/"
12062                            "gnome-latex-" version ".tar.xz"))
12063        (sha256
12064         (base32 "0xqd49pgi82dygqnxj08i1v22b0vwwhx3zvdinhrx4jny339yam8"))))
12065     (build-system glib-or-gtk-build-system)
12066     (native-inputs
12067      `(("gettext" ,gettext-minimal)
12068        ("glib:bin" ,glib "bin")
12069        ("gobject-introspection" ,gobject-introspection)
12070        ("gtk-doc" ,gtk-doc/stable)
12071        ("intltool" ,intltool)
12072        ("itstool" ,itstool)
12073        ("pkg-config" ,pkg-config)
12074        ("vala" ,vala)))
12075     (inputs
12076      `(("amtk" ,amtk)
12077        ("dconf" ,dconf)
12078        ("glib" ,glib)
12079        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12080        ("gspell" ,gspell)
12081        ("gtk+" ,gtk+)
12082        ("gtksourceview" ,gtksourceview)
12083        ("libgee" ,libgee)
12084        ("tepl" ,tepl-5)
12085        ("uchardet" ,uchardet)))
12086     (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
12087     (synopsis "LaTeX editor for the GNOME desktop")
12088     (description
12089      "GNOME LaTeX is a LaTeX editor for the GNOME desktop.  It has features
12090 such as build tools, completion of LaTeX commands, structure navigation,
12091 symbol tables, document templates, project management, spell-checking, menus
12092 and toolbars.")
12093     (license license:gpl3+)))
12094
12095 (define-public setzer
12096   (package
12097     (name "setzer")
12098     (version "0.4.1")
12099     (source
12100      (origin
12101        (method git-fetch)
12102        (uri (git-reference
12103              (url "https://github.com/cvfosammmm/Setzer")
12104              (commit (string-append "v" version))))
12105        (file-name (git-file-name name version))
12106        (sha256
12107         (base32 "1rcx2c07jg1ij81pnvg3px49hfbjmkagn68d3gp79z3gcajbp2av"))))
12108     (build-system meson-build-system)
12109     (arguments
12110      `(#:glib-or-gtk? #t
12111        #:phases
12112        (modify-phases %standard-phases
12113          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12114            (lambda* (#:key outputs #:allow-other-keys)
12115              (let ((prog (string-append (assoc-ref outputs "out")
12116                                         "/bin/setzer"))
12117                    (pylib (string-append (assoc-ref outputs "out")
12118                                          "/lib/python"
12119                                          ,(version-major+minor
12120                                            (package-version python))
12121                                          "/site-packages")))
12122                (wrap-program prog
12123                  `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12124                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12125                #t))))))
12126     (native-inputs
12127      `(("desktop-file-utils" ,desktop-file-utils)
12128        ("gettext" ,gettext-minimal)
12129        ("glib:bin" ,glib "bin")
12130        ("gobject-introspection" ,gobject-introspection)
12131        ("gtk+:bin" ,gtk+ "bin")))
12132     (inputs
12133      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12134        ("gspell" ,gspell)
12135        ("gtk+" ,gtk+)
12136        ("gtksourceview" ,gtksourceview)
12137        ("pango" ,pango)
12138        ("poppler" ,poppler)
12139        ("python-pdfminer" ,python-pdfminer-six)
12140        ("python-pycairo" ,python-pycairo)
12141        ("python-pygobject" ,python-pygobject)
12142        ("python-pyxdg" ,python-pyxdg)
12143        ("webkitgtk" ,webkitgtk)
12144        ("xdg-utils" ,xdg-utils)))
12145     (home-page "https://www.cvfosammmm.org/setzer/")
12146     (synopsis "LaTeX editor written in Python with GTK+")
12147     (description
12148      "Setzer is a simple yet full-featured LaTeX editor written in Python with
12149 GTK+.  It integrates well with the GNOME desktop environment.")
12150     (license license:gpl3+)))
12151
12152 (define-public apostrophe
12153   (package
12154     (name "apostrophe")
12155     (version "2.5")
12156     (source (origin
12157               (method git-fetch)
12158               (uri (git-reference
12159                     (url "https://gitlab.gnome.org/somas/apostrophe")
12160                     (commit (string-append "v" version))))
12161               (file-name (git-file-name name version))
12162               (sha256
12163                (base32
12164                 "06yfiflmj3ip7ppcz41nb3xpgb5ggw5h74w0v87yaqqkq7qh31lp"))))
12165     (build-system meson-build-system)
12166     (arguments
12167      `(#:glib-or-gtk? #t
12168        #:phases
12169        (modify-phases %standard-phases
12170          (add-after 'unpack 'patch-meson
12171            (lambda _
12172              (substitute* "build-aux/meson_post_install.py"
12173                (("gtk-update-icon-cache") "true"))
12174              #t))
12175          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12176            (lambda* (#:key inputs outputs #:allow-other-keys)
12177              (let ((prog (string-append (assoc-ref outputs "out")
12178                                         "/bin/apostrophe"))
12179                    (pylib (string-append (assoc-ref outputs "out")
12180                                          "/lib/python"
12181                                          ,(version-major+minor
12182                                            (package-version python))
12183                                          "/site-packages")))
12184                (wrap-program prog
12185                  `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12186                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
12187                  `("PATH" prefix (,(dirname
12188                                     (search-input-file inputs
12189                                                        "/bin/pandoc")))))))))))
12190     (inputs
12191      `(("glib" ,glib)
12192        ("gobject-introspection" ,gobject-introspection)
12193        ("gspell" ,gspell)
12194        ("gtk+" ,gtk+)
12195        ("libhandy" ,libhandy)
12196        ("pandoc" ,pandoc)
12197        ("python-chardet" ,python-chardet)
12198        ("python-levenshtein" ,python-levenshtein)
12199        ("python-regex" ,python-regex)
12200        ("python-pycairo" ,python-pycairo)
12201        ("python-pygobject" ,python-pygobject)
12202        ("python-pyenchant" ,python-pyenchant)
12203        ("python-pypandoc" ,python-pypandoc)
12204        ("webkitgtk" ,webkitgtk)))
12205     (native-inputs
12206      `(("gettext" ,gettext-minimal)
12207        ("glib:bin" ,glib "bin")
12208        ("pkg-config" ,pkg-config)
12209        ("sassc" ,sassc)))
12210     (home-page "https://gitlab.gnome.org/somas/apostrophe")
12211     (synopsis "Markdown editor written in Python with GTK+")
12212     (description "Apostrophe is a GTK+ based distraction-free Markdown editor.
12213 It uses pandoc as back-end for parsing Markdown.")
12214     (license license:gpl3)))
12215
12216 (define-public libratbag
12217   (package
12218     (name "libratbag")
12219     (version "0.16")
12220     (source
12221      (origin
12222        (method git-fetch)
12223        (uri (git-reference
12224              (url "https://github.com/libratbag/libratbag")
12225              (commit (string-append "v" version))))
12226        (file-name (git-file-name name version))
12227        (sha256
12228         (base32 "0jjf6xc3a37icp5dvbxla3ai9is2ns31m0llbfq1bmb6dk8cd4n0"))))
12229     (build-system meson-build-system)
12230     (arguments
12231      `(#:configure-flags
12232        (list "-Dsystemd=false"
12233              "-Dlogind-provider=elogind")
12234        #:phases
12235        (modify-phases %standard-phases
12236          (add-after 'install 'wrap
12237            (lambda* (#:key inputs outputs #:allow-other-keys)
12238              (let* ((out (assoc-ref outputs "out"))
12239                     (site (string-append
12240                            "/lib/python"
12241                            ,(version-major+minor (package-version python))
12242                            "/site-packages"))
12243                     (evdev (string-append
12244                             (assoc-ref inputs "python-evdev") site))
12245                     (pygo (string-append
12246                            (assoc-ref inputs "python-pygobject") site))
12247                     (python-wrap
12248                      `("GUIX_PYTHONPATH" = (,evdev ,pygo))))
12249                (wrap-program (string-append out "/bin/" "ratbagctl")
12250                  python-wrap)
12251                #t))))))
12252     (native-inputs
12253      `(("check" ,check)
12254        ("pkg-config" ,pkg-config)
12255        ("swig" ,swig)
12256        ("valgrind" ,valgrind)))
12257     (inputs
12258      `(("glib" ,glib)
12259        ("json-glib" ,json-glib)
12260        ("libevdev" ,libevdev)
12261        ("libsystemd" ,elogind)
12262        ("libunistring" ,libunistring)
12263        ("python-evdev" ,python-evdev)
12264        ("python-pygobject" ,python-pygobject)
12265        ("udev" ,eudev)))
12266     (home-page "https://github.com/libratbag/libratbag")
12267     (synopsis "DBus daemon and utility for configuring gaming mice")
12268     (description "libratbag provides @command{ratbagd}, a DBus daemon to
12269 configure input devices, mainly gaming mice.  The daemon provides a generic
12270 way to access the various features exposed by these mice and abstracts away
12271 hardware-specific and kernel-specific quirks.  There is also the
12272 @command{ratbagctl} command line interface for configuring devices.
12273
12274 libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
12275 Steelseries.
12276
12277 The ratbagd DBus service can be enabled by adding the following service to
12278 your operating-system definition:
12279
12280   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
12281     (license license:expat)))
12282
12283 (define-public piper
12284   (package
12285     (name "piper")
12286     (version "0.6")
12287     (source
12288      (origin
12289        (method git-fetch)
12290        (uri (git-reference
12291              (url "https://github.com/libratbag/piper")
12292              (commit version)))
12293        (sha256
12294         (base32 "02x4d4n0078slj2pl0rvgayrrxvna6y6vj8fxfamvazsh5xyfzwk"))
12295        (file-name (git-file-name name version))))
12296     (build-system meson-build-system)
12297     (native-inputs
12298      `(("gettext" ,gettext-minimal)
12299        ("glib:bin" ,glib "bin")
12300        ("gobject-introspection" ,gobject-introspection)
12301        ("pkg-config" ,pkg-config)
12302        ("python-flake8" ,python-flake8)))
12303     (inputs
12304      `(("adwaita-icon-theme" ,adwaita-icon-theme)
12305        ("gtk" ,gtk+)
12306        ("gtk:bin" ,gtk+ "bin")
12307        ("libratbag" ,libratbag)
12308        ("librsvg" ,librsvg)
12309        ("python-evdev" ,python-evdev)
12310        ("python-lxml" ,python-lxml)
12311        ("python-pycairo" ,python-pycairo)
12312        ("python-pygobject" ,python-pygobject)))
12313     (arguments
12314      `(#:imported-modules ((guix build python-build-system)
12315                            ,@%meson-build-system-modules)
12316        #:modules (((guix build python-build-system) #:prefix python:)
12317                   (guix build meson-build-system)
12318                   (guix build utils))
12319        #:tests? #f ;; The flake8 test fails trying to validate piper.in as code.
12320        #:phases
12321        (modify-phases %standard-phases
12322          (add-after 'unpack 'dont-update-gtk-icon-cache
12323            (lambda _
12324              (substitute* "meson.build"
12325                (("meson.add_install_script('meson_install.sh')") ""))
12326              #t))
12327          ;; TODO: Switch to wrap-script when it is fixed.
12328          (add-after 'install 'wrap-python
12329            (assoc-ref python:%standard-phases 'wrap))
12330          (add-after 'wrap-python 'wrap
12331            (lambda* (#:key outputs #:allow-other-keys)
12332              (wrap-program
12333                  (string-append (assoc-ref outputs "out" )"/bin/piper")
12334                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12335              #t)))))
12336     (home-page "https://github.com/libratbag/piper/")
12337     (synopsis "Configure bindings and LEDs on gaming mice")
12338     (description "Piper is a GTK+ application for configuring gaming mice with
12339 onboard configuration for key bindings via libratbag.  Piper requires
12340 a @command{ratbagd} daemon running with root privileges.  It can be run
12341 manually as root, but is preferably configured as a DBus service that can
12342 launch on demand.  This can be configured by enabling the following service,
12343 provided there is a DBus service present:
12344
12345   (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
12346     (license license:gpl2)))
12347
12348 (define-public parlatype
12349   (package
12350     (name "parlatype")
12351     (version "3.0")
12352     (source
12353      (origin
12354        (method git-fetch)
12355        (uri (git-reference
12356              (url "https://github.com/gkarsay/parlatype")
12357              (commit (string-append "v" version))))
12358        (file-name (git-file-name name version))
12359        (sha256
12360         (base32 "0mvzagkg9kq2ji6mffi37mdjxmlj3wa65d4lcayij9hsmjlklnzs"))))
12361     (build-system meson-build-system)
12362     (arguments
12363      `(#:glib-or-gtk? #t
12364        #:tests? #f                      ;require internet access
12365        #:phases
12366        (modify-phases %standard-phases
12367          (add-after 'unpack 'skip-gtk-update-icon-cache
12368            (lambda _
12369              (substitute* "data/meson_post_install.py"
12370                (("gtk-update-icon-cache") "true"))))
12371          (add-after 'install 'wrap-parlatype
12372            ;; Add gstreamer plugin provided in this package to system's
12373            ;; plugins.
12374            (lambda* (#:key outputs #:allow-other-keys)
12375              (let* ((out (assoc-ref outputs "out"))
12376                     (gst-plugin-path (string-append
12377                                       out "/lib/gstreamer-1.0/"
12378                                       ":"
12379                                       (getenv "GST_PLUGIN_SYSTEM_PATH"))))
12380                (wrap-program (string-append out "/bin/parlatype")
12381                  `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path)))))))))
12382     (native-inputs
12383      `(("appstream-glib" ,appstream-glib)
12384        ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
12385        ("gettext" ,gettext-minimal)
12386        ("glib" ,glib "bin")             ;for glib-compile-resources
12387        ("pkg-config" ,pkg-config)
12388        ("yelp-tools" ,yelp-tools)))
12389     (inputs
12390      `(("gst-plugins-base" ,gst-plugins-base)
12391        ("gst-plugins-good" ,gst-plugins-good)
12392        ("gstreamer" ,gstreamer)
12393        ("gtk+" ,gtk+)
12394        ("iso-codes" ,iso-codes)
12395        ("pocketsphinx" ,pocketsphinx)
12396        ("pulseaudio" ,pulseaudio)
12397        ("sphinxbase" ,sphinxbase)))
12398     (home-page "https://www.parlatype.org")
12399     (synopsis "GNOME audio player for transcription")
12400     (description "Parlatype is an audio player for the GNOME desktop
12401 environment.  Its main purpose is the manual transcription of spoken
12402 audio files.")
12403     (license license:gpl3+)))
12404
12405 (define-public jsonrpc-glib
12406   (package
12407     (name "jsonrpc-glib")
12408     (version "3.34.0")
12409     (source (origin
12410               (method url-fetch)
12411               (uri (string-append "mirror://gnome/sources/" name "/"
12412                                   (version-major+minor version) "/"
12413                                    name "-" version ".tar.xz"))
12414               (sha256
12415                (base32
12416                 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
12417     (build-system meson-build-system)
12418     (inputs
12419      `(("json-glib" ,json-glib)
12420        ("glib" ,glib)))
12421     (native-inputs
12422      `(("pkg-config" ,pkg-config)
12423        ("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
12424        ("gobject-introspection" ,gobject-introspection)
12425        ("vala" ,vala)))
12426     (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
12427     (synopsis "JSON-RPC library for GLib")
12428     (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
12429 peers in either a synchronous or asynchronous fashion.  It also allows
12430 communicating using the GVariant serialization format instead of JSON when
12431 both peers support it.  You might want that when communicating on a single
12432 host to avoid parser overhead and memory-allocator fragmentation.")
12433     (license license:lgpl2.1+)))
12434
12435 (define-public feedbackd
12436   (package
12437     (name "feedbackd")
12438     (version "0.0.0+git20200527")
12439     (source (origin
12440               (method git-fetch)
12441               (uri (git-reference
12442                     (url "https://source.puri.sm/Librem5/feedbackd.git")
12443                     (commit (string-append "v" version))))
12444               (file-name (git-file-name name version))
12445               (sha256
12446                (base32
12447                 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
12448     (build-system meson-build-system)
12449     (native-inputs
12450      `(("glib:bin" ,glib "bin")
12451        ("gobject-introspection" ,gobject-introspection)
12452        ("pkg-config" ,pkg-config)
12453        ("vala" ,vala)))
12454     (inputs
12455      `(("dbus" ,dbus)
12456        ("gsound" ,gsound)
12457        ("json-glib" ,json-glib)
12458        ("libgudev" ,libgudev)))
12459     (propagated-inputs
12460      `(("glib" ,glib))) ; in Requires of libfeedback-0.0.pc
12461     (synopsis "Haptic/visual/audio feedback via DBus")
12462     (description "Feedbackd provides a DBus daemon to act on events to provide
12463 haptic, visual and audio feedback.  It offers the libfeedbackd library and
12464 GObject introspection bindings.")
12465      (home-page "https://source.puri.sm/Librem5/feedbackd")
12466      (license (list license:lgpl2.1+   ; libfeedbackd
12467                     license:lgpl3+)))) ; the rest
12468
12469 (define-public sysprof
12470   (package
12471     (name "sysprof")
12472     (version "3.42.1")
12473     (source
12474      (origin
12475        (method url-fetch)
12476        (uri (string-append "mirror://gnome/sources/sysprof/"
12477                            (version-major+minor version) "/"
12478                            "sysprof-" version ".tar.xz"))
12479        (sha256
12480         (base32 "0090986ar3lz9m9fy7l5y9ibzzmgsx54cm6gp8ggsxgf0habi5hp"))))
12481     (build-system meson-build-system)
12482     (arguments
12483      `(#:configure-flags
12484        (list (string-append "-Dsystemdunitdir="
12485                             %output
12486                             "/share/systemd"))
12487        #:tests? #f ; 3/4 test-model-filter barfs some dbus nonsense
12488        #:phases
12489        (modify-phases %standard-phases
12490          (add-after 'unpack 'patch-install-script
12491            (lambda _
12492              (substitute* "build-aux/meson/post_install.sh"
12493                (("gtk-update-icon-cache") "true")
12494                (("update-desktop-database") "true"))
12495              #t)))))
12496     (propagated-inputs
12497      `(("polkit" ,polkit)))
12498     (inputs
12499      `(("glib" ,glib)
12500        ("gtk+" ,gtk+)
12501        ("json-glib" ,json-glib)
12502        ("libdazzle" ,libdazzle)
12503        ("polkit" ,polkit)))
12504     (native-inputs
12505      `(("gettext" ,gettext-minimal)
12506        ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
12507        ("itstool" ,itstool)
12508        ("pkg-config" ,pkg-config)
12509        ("xmllint" ,libxml2)))
12510     ;; This home page is so woefully out of date as to be essentially useless.
12511     ;; (home-page "http://www.sysprof.com")
12512     (home-page "https://wiki.gnome.org/Apps/Sysprof")
12513     (synopsis "System-wide performance profiler for GNU/Linux")
12514     (description
12515      "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
12516 GNU/Linux system including the kernel and all user-space applications.  This
12517 helps find the function(s) in which a program spends most of its time.
12518
12519 It uses the kernel's built-in @code{ptrace} feature and handles shared
12520 libraries.  Applications do not need to be recompiled--or even restarted.")
12521     (license license:gpl3+)))
12522
12523 (define-public gnome-builder
12524   (package
12525     (name "gnome-builder")
12526     (version "41.2")
12527     (source (origin
12528               (method url-fetch)
12529               (uri (string-append "mirror://gnome/sources/" name "/"
12530                                   (version-major version) "/"
12531                                   name "-" version ".tar.xz"))
12532               (sha256
12533                (base32
12534                 "04p031i999dccbnlbysmr6f93x7dji7b559j6yhdsqbqgxb7ncan"))))
12535     (build-system meson-build-system)
12536     (arguments
12537      `(#:glib-or-gtk? #t     ; To wrap binaries and compile schemas
12538        #:configure-flags (list "-Dnetwork_tests=false"
12539                                ;; TODO: Enable all plugins...
12540                                ;; Flatpak plugin wants libsoup 2
12541                                "-Dplugin_flatpak=false"
12542                                ;; ... except this one.
12543                                "-Dplugin_update_manager=false")
12544        #:phases
12545        (modify-phases %standard-phases
12546          (add-after 'unpack 'patch-meson
12547            (lambda* (#:key inputs #:allow-other-keys)
12548              (substitute* "build-aux/meson/post_install.py"
12549                (("gtk-update-icon-cache") "true")
12550                (("update-desktop-database") "true"))
12551              (substitute* "src/libide/meson.build"
12552                (("/usr/lib")
12553                 (string-append (assoc-ref inputs "python-pygobject")
12554                                "/lib")))))
12555          (add-after 'configure 'fix-ninja
12556            (lambda _
12557              ;; #43296: meson(?) incorrectly assumes we want to link
12558              ;;         this PIE against a static libselinux.
12559              (substitute* "build.ninja"
12560                (("libselinux\\.a") "libselinux.so"))
12561              #t))
12562          (add-before 'check 'pre-check
12563            (lambda _
12564              (system "Xvfb :1 &")
12565              (setenv "DISPLAY" ":1")
12566              #t)))))
12567     (inputs
12568      `(("cmark" ,cmark)
12569        ("clang" ,clang)
12570        ("devhelp" ,devhelp-with-libsoup2)
12571        ("glade" ,glade3)
12572        ("gspell" ,gspell)
12573        ("gtk+" ,gtk+)
12574        ("json-glib" ,json-glib)
12575        ("jsonrpc-glib" ,jsonrpc-glib)
12576        ("libdazzle" ,libdazzle)
12577        ("libgit2-glib" ,libgit2-glib)
12578        ("libpeas" ,libpeas)
12579        ("libportal" ,libportal)
12580        ("libsoup" ,libsoup-minimal-2)
12581        ("llvm" ,llvm)
12582        ("python-pygobject" ,python-pygobject)
12583        ("sysprof" ,sysprof)
12584        ("template-glib" ,template-glib)
12585        ("vte" ,vte)
12586        ("webkitgtk" ,webkitgtk-with-libsoup2)))
12587     (propagated-inputs
12588      `(("gtksourceview" ,gtksourceview)))         ;needed for settings
12589     (native-inputs
12590      `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
12591        ("glib:bin" ,glib "bin")
12592        ("gettext" ,gettext-minimal)
12593        ("pkg-config" ,pkg-config)
12594        ("vala" ,vala)
12595        ("xorg-server" ,xorg-server-for-tests)))
12596     (home-page "https://wiki.gnome.org/Apps/Builder")
12597     (synopsis "Toolsmith for GNOME-based applications")
12598     (description "Builder aims to be an integrated development
12599 environment (IDE) for writing GNOME-based software.  It features fuzzy search,
12600 auto-completion, a mini code map, documentation browsing, Git integration, an
12601 integrated profiler via Sysprof, debugging support, and more.")
12602     (license license:gpl3+)))
12603
12604 (define-public komikku
12605   (package
12606     (name "komikku")
12607     (version "0.35.2")
12608     (source
12609      (origin
12610        (method git-fetch)
12611        (uri (git-reference
12612              (url "https://gitlab.com/valos/Komikku/")
12613              (commit (string-append "v" version))))
12614        (file-name (git-file-name name version))
12615        (sha256
12616         (base32
12617          "11iq2mc8k7ny70vb0iqfjhj1hii0wvr4cv2p6b5rnjqdp6hc63n9"))))
12618     (build-system meson-build-system)
12619     (arguments
12620      `(#:glib-or-gtk? #t
12621        #:phases
12622        (modify-phases %standard-phases
12623          (add-after 'unpack 'patch-sources
12624            (lambda _
12625              (substitute* "komikku/utils.py"
12626                (("from komikku\\.servers import get_servers_list")
12627                 ;; code following that line should migrate old databases
12628                 ;; but the line itself results in an import error
12629                 "return data_dir_path"))))
12630          (add-after 'unpack 'skip-gtk-update-icon-cache
12631            (lambda _
12632              (substitute* "meson_post_install.py"
12633                (("gtk-update-icon-cache") (which "true")))
12634              #t))
12635          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
12636           (lambda* (#:key outputs #:allow-other-keys)
12637             (let ((prog (string-append (assoc-ref outputs "out")
12638                                        "/bin/komikku")))
12639               (wrap-program prog
12640                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")))
12641                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12642               #t))))))
12643     (inputs
12644      `(("gtk+" ,gtk+)
12645        ("libhandy" ,libhandy)
12646        ("libnotify" ,libnotify)
12647        ("libsecret" ,libsecret)
12648        ("python-beautifulsoup4" ,python-beautifulsoup4)
12649        ("python-brotli" ,python-brotli)
12650        ("python-cloudscraper" ,python-cloudscraper)
12651        ("python-dateparser" ,python-dateparser)
12652        ("python-keyring" ,python-keyring)
12653        ("python-lxml" ,python-lxml)
12654        ("python-magic" ,python-magic)
12655        ("python-natsort" ,python-natsort)
12656        ("python-pillow" ,python-pillow)
12657        ("python-pure-protobuf" ,python-pure-protobuf)
12658        ("python-pycairo" ,python-pycairo)
12659        ("python-pygobject" ,python-pygobject)
12660        ("python-requests" ,python-requests)
12661        ("python-unidecode" ,python-unidecode)
12662        ("webkitgtk" ,webkitgtk)))
12663     (native-inputs
12664      `(("desktop-file-utils" ,desktop-file-utils)
12665        ("gettext" ,gettext-minimal)
12666        ("glib:bin" ,glib "bin")
12667        ("gobject-introspection" ,gobject-introspection)
12668        ("pkg-config" ,pkg-config)))
12669     (home-page "https://gitlab.com/valos/Komikku")
12670     (synopsis "Manga reader for GNOME")
12671     (description "Komikku is an online/offline manga reader for GNOME,
12672 developed with the aim of being used with the Librem 5 phone.")
12673     (license license:gpl3+)))
12674
12675 (define-public libgda
12676   (package
12677     (name "libgda")
12678     (version "5.2.10")
12679     (source
12680      (origin
12681        (method git-fetch)
12682        (uri (git-reference
12683              (url "https://gitlab.gnome.org/GNOME/libgda.git/")
12684              (commit (string-append "LIBGDA_" (string-replace-substring
12685                                                version "." "_")))))
12686        (file-name (git-file-name name version))
12687        (sha256
12688         (base32 "18rg773gq9v3cdywpmrp12c5xyp97ir9yqjinccpi22sksb1kl8a"))))
12689     (build-system gnu-build-system)
12690     (arguments
12691      `(#:configure-flags '("--enable-vala")
12692        ;; There's a race between check_cnc_lock and check_threaded_cnc
12693        ;; in tests/multi-threading.
12694        #:parallel-tests? #f
12695        #:phases
12696        (modify-phases %standard-phases
12697          (add-after 'unpack 'fix-glade-install
12698            (lambda _
12699              (substitute* "configure.ac"
12700                (("`\\$PKG_CONFIG --variable=catalogdir gladeui-2\\.0`")
12701                 "${datadir}/glade/catalogs")
12702                (("`\\$PKG_CONFIG --variable=pixmapdir gladeui-2\\.0`")
12703                 "${datadir}/glade/pixmaps"))
12704              #t))
12705          (add-before 'check 'pre-check
12706            (lambda* (#:key inputs #:allow-other-keys)
12707              ;; Tests require a running X server.
12708              (system "Xvfb :1 &")
12709              (setenv "DISPLAY" ":1")
12710              #t))
12711          (add-after 'install 'symlink-glade-module
12712            (lambda* (#:key outputs #:allow-other-keys)
12713              (let* ((shlib "libgda-ui-5.0.so")
12714                     (out (assoc-ref outputs "out"))
12715                     (out/lib (string-append out "/lib"))
12716                     (moduledir (string-append out/lib "/glade/modules")))
12717                (mkdir-p moduledir)
12718                (symlink (string-append out/lib "/" shlib)
12719                         (string-append moduledir "/" shlib))
12720                #t))))))
12721     (propagated-inputs
12722      `(("libxml2" ,libxml2)))           ; required by libgda-5.0.pc
12723     (inputs
12724      `(("glib" ,glib)
12725        ("glade" ,glade3)
12726        ("gtk+" ,gtk+)
12727        ("libsecret" ,libsecret)
12728        ("libxslt" ,libxslt)
12729        ("openssl" ,openssl)
12730        ("vala" ,vala)))
12731     (native-inputs
12732      `(("autoconf" ,autoconf)
12733        ("autoconf-archive" ,autoconf-archive)
12734        ("automake" ,automake)
12735        ("glib:bin" ,glib "bin")
12736        ("gnome-common" ,gnome-common)
12737        ("gobject-introspection" ,gobject-introspection)
12738        ("gtk-doc" ,gtk-doc/stable)
12739        ("intltool" ,intltool)
12740        ("libtool" ,libtool)
12741        ("pkg-config" ,pkg-config)
12742        ("vala" ,vala)
12743        ("which" ,which)
12744        ("xorg-server" ,xorg-server-for-tests)
12745        ("yelp-tools" ,yelp-tools)))
12746     (home-page "https://gitlab.gnome.org/GNOME/libgda")
12747     (synopsis "Uniform data access")
12748     (description
12749      "GNU Data Access (GDA) is an attempt to provide uniform access to
12750 different kinds of data sources (databases, information servers, mail spools,
12751 etc).  It is a complete architecture that provides all you need to access
12752 your data.")
12753     (license license:lgpl2.1+)))
12754
12755 (define-public gtranslator
12756   (package
12757     (name "gtranslator")
12758     (version "3.36.0")
12759         (source (origin
12760               (method url-fetch)
12761               (uri (string-append "mirror://gnome/sources/" name "/"
12762                                   (version-major+minor version) "/"
12763                                   name "-" version ".tar.xz"))
12764               (sha256
12765                (base32
12766                 "1lxd2nkji4jk8g2xmyc1a1r3ww710ddk91zh9psmx8xlb4xivaid"))))
12767     (build-system meson-build-system)
12768     (inputs
12769      `(("json-glib" ,json-glib)
12770        ("jsonrpc-glib" ,jsonrpc-glib)
12771        ("gettext" ,gettext-minimal)
12772        ("glib" ,glib)
12773        ("gtk+" ,gtk+)
12774        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12775        ("gspell" ,gspell)
12776        ("libdazzle" ,libdazzle)
12777        ("libgda" ,libgda)
12778        ("libsoup" ,libsoup)))
12779     (native-inputs
12780      `(("glib:bin" ,glib "bin")
12781        ("itstool" ,itstool)
12782        ("pkg-config" ,pkg-config)))
12783     (propagated-inputs
12784      `(("gtksourceview" ,gtksourceview))) ; required for source view
12785     (arguments
12786      `(#:build-type "release"
12787        #:glib-or-gtk? #t
12788        #:phases
12789        (modify-phases %standard-phases
12790          (add-after 'unpack 'skip-gtk-update-icon-cache
12791            (lambda _
12792              (substitute* "build-aux/meson/meson_post_install.py"
12793                (("gtk-update-icon-cache") (which "true")))
12794              #t)))))
12795     (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12796     (synopsis "Translation making program")
12797     (description
12798      "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12799 for the GNOME 3.x platform with many features.  It aims to be a very complete
12800 editing environment for translation issues within the GNU gettext/GNOME desktop
12801 world.")
12802     (license license:gpl3+)))
12803
12804
12805 (define-public ocrfeeder
12806   (package
12807     (name "ocrfeeder")
12808     (version "0.8.3")
12809     (source (origin
12810               (method url-fetch)
12811               (uri (string-append "mirror://gnome/sources/ocrfeeder/"
12812                                   (version-major+minor version) "/"
12813                                   "ocrfeeder-" version ".tar.xz"))
12814               (sha256
12815                (base32
12816                 "12f5gnq92ffnd5zaj04df7jrnsdz1zn4zcgpbf5p9qnd21i2y529"))))
12817     (build-system gnu-build-system)
12818     (arguments
12819      `(#:phases
12820        (modify-phases %standard-phases
12821          (add-after
12822           'install 'wrap-program
12823           (lambda* (#:key outputs #:allow-other-keys)
12824             (let ((prog (string-append (assoc-ref outputs "out")
12825                                        "/bin/" "ocrfeeder"))
12826                   (pylib (string-append (assoc-ref outputs "out")
12827                                         "/lib/python"
12828                                         ,(version-major+minor
12829                                           (package-version python))
12830                                         "/site-packages")))
12831               (wrap-program prog
12832                 `("PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH") ,pylib))
12833                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
12834               #t))))))
12835     (native-inputs
12836      `(("glib:bin" ,glib "bin")                   ; for glib-compile-resources
12837        ("gobject-introspection" ,gobject-introspection)
12838        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
12839        ("intltool" ,intltool)
12840        ("itstool" ,itstool)
12841        ("pkg-config" ,pkg-config)
12842        ("xmllint" ,libxml2)))
12843     (inputs
12844      `(("enchant" ,enchant)
12845        ("glib" ,glib)
12846        ("goocanvas" ,goocanvas)
12847        ("gtk" ,gtk+)
12848        ("gtkspell3" ,gtkspell3)
12849        ("libjpeg" ,libjpeg-turbo)
12850        ("libtiff" ,libtiff)
12851        ("libraw" ,libraw)
12852        ("ocrad" ,ocrad)
12853        ("python" ,python-wrapper)
12854        ("python-pygobject" ,python-pygobject)
12855        ("python-odfpy" ,python-odfpy)
12856        ("python-pillow" ,python-pillow)
12857        ("python-pyenchant" ,python-pyenchant)
12858        ("python-reportlab" ,python-reportlab)
12859        ("python-sane" ,python-sane)
12860        ("sane-backends" ,sane-backends)
12861        ("tesseract-ocr" ,tesseract-ocr)))
12862     (home-page "https://wiki.gnome.org/Apps/OCRFeeder")
12863     (synopsis "Complete OCR Suite")
12864     (description "OCRFeeder is a complete Optical Character Recognition and
12865 Document Analysis and Recognition program.")
12866     (license license:gpl3+)))
12867
12868 (define-public libadwaita
12869   (let ((commit "8d66b987a19979d9d7b85dacc6bad5ce0c8743fe")
12870         (revision "1"))
12871     (package
12872       (name "libadwaita")
12873       (version (git-version "0.0.1" revision commit))
12874       (source (origin
12875                 (method git-fetch)
12876                 (uri (git-reference
12877                       (url "https://gitlab.gnome.org/GNOME/libadwaita.git")
12878                       (commit commit)))
12879                 (file-name (git-file-name name version))
12880                 (sha256
12881                  (base32
12882                   "0i3wav6jsyi4w4i2r1rad769m5y5s9djj4zqb7dfyh0bad24ba3q"))))
12883       (build-system meson-build-system)
12884       (arguments
12885        `(#:phases
12886          (modify-phases %standard-phases
12887            (add-before 'check 'pre-check
12888              (lambda* (#:key inputs #:allow-other-keys)
12889                ;; Tests require a running X server.
12890                (system "Xvfb :1 &")
12891                (setenv "DISPLAY" ":1"))))))
12892       (native-inputs
12893        `(("sassc" ,sassc)
12894          ("glib:bin" ,glib "bin")
12895          ("gtk-doc" ,gtk-doc/stable)
12896          ("pkg-config" ,pkg-config)
12897          ("vala" ,vala)
12898          ("xvfb" ,xorg-server-for-tests)))
12899       (inputs
12900        `(("gtk" ,gtk)
12901          ("gobject-introspection" ,gobject-introspection)
12902          ("libportal" ,libportal)))
12903       (home-page "https://gnome.pages.gitlab.gnome.org/libadwaita/")
12904       (synopsis "Building blocks for GNOME applications")
12905       (description
12906        "@code{libadwaita} offers widgets and objects to build GNOME
12907 applications scaling from desktop workstations to mobile phones.  It is the
12908 successor of @code{libhandy} for GTK4.")
12909       (license license:lgpl2.1+))))
12910
12911 (define-public gnome-power-manager
12912   (package
12913     (name "gnome-power-manager")
12914     (version "3.32.0")
12915     (source (origin
12916               (method url-fetch)
12917               (uri (string-append "mirror://gnome/sources/" name "/"
12918                                   (version-major+minor version) "/"
12919                                   name "-" version ".tar.xz"))
12920               (sha256
12921                (base32
12922                 "0drfn3wcc8l4n07qwv6p0rw2dwcd00hwzda282q62l6sasks2b2g"))))
12923     (build-system meson-build-system)
12924     (inputs
12925      `(("upower" ,upower)
12926        ("gtk+" ,gtk+)
12927        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12928        ("adwaita-icon-theme" ,adwaita-icon-theme)))
12929     (native-inputs
12930      `(("desktop-file-utils" ,desktop-file-utils)
12931        ("glib:bin" ,glib "bin")
12932        ("gettext" ,gettext-minimal)
12933        ("pkg-config" ,pkg-config)))
12934     (home-page "https://gitlab.gnome.org/GNOME/gnome-power-manager")
12935     (synopsis "Power management daemon for the GNOME desktop")
12936     (description "@code{gnome-power-manager} is a tool for viewing present and
12937 historical battery usage and related statistics.")
12938     (license license:gpl2)))