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 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
   5 ;;; Copyright © 2014, 2016 Eric Bavier <bavier@member.fsf.org>
   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 Ricardo Wurmus <rekado@elephly.net>
  12 ;;; Copyright © 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org>
  13 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
  14 ;;; Copyright © 2015, 2016, 2017 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 Kei Kebreau <kkebreau@posteo.net>
  18 ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  19 ;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
  20 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
  21 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  22 ;;; Copyright © 2016, 2017 Nils Gillmann <ng0@n0.is>
  23 ;;; Copyright © 2016 David Craven <david@craven.ch>
  24 ;;; Copyright © 2016, 2017, 2018 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 Brendan Tildesley <brendan.tildesley@openmailbox.org>
  31 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
  32 ;;;
  33 ;;; This file is part of GNU Guix.
  34 ;;;
  35 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  36 ;;; under the terms of the GNU General Public License as published by
  37 ;;; the Free Software Foundation; either version 3 of the License, or (at
  38 ;;; your option) any later version.
  39 ;;;
  40 ;;; GNU Guix is distributed in the hope that it will be useful, but
  41 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  42 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  43 ;;; GNU General Public License for more details.
  44 ;;;
  45 ;;; You should have received a copy of the GNU General Public License
  46 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  47
  48 (define-module (gnu packages gnome)
  49   #:use-module ((guix licenses) #:prefix license:)
  50   #:use-module (guix packages)
  51   #:use-module (guix download)
  52   #:use-module (guix git-download)
  53   #:use-module (guix utils)
  54   #:use-module (guix build-system cmake)
  55   #:use-module (guix build-system gnu)
  56   #:use-module (guix build-system glib-or-gtk)
  57   #:use-module (guix build-system meson)
  58   #:use-module (guix build-system trivial)
  59   #:use-module (gnu packages)
  60   #:use-module (gnu packages admin)
  61   #:use-module (gnu packages aspell)
  62   #:use-module (gnu packages autotools)
  63   #:use-module (gnu packages avahi)
  64   #:use-module (gnu packages base)
  65   #:use-module (gnu packages bison)
  66   #:use-module (gnu packages build-tools)
  67   #:use-module (gnu packages calendar)
  68   #:use-module (gnu packages check)
  69   #:use-module (gnu packages cmake)
  70   #:use-module (gnu packages cups)
  71   #:use-module (gnu packages curl)
  72   #:use-module (gnu packages cyrus-sasl)
  73   #:use-module (gnu packages databases)
  74   #:use-module (gnu packages djvu)
  75   #:use-module (gnu packages dns)
  76   #:use-module (gnu packages documentation)
  77   #:use-module (gnu packages flex)
  78   #:use-module (gnu packages docbook)
  79   #:use-module (gnu packages enchant)
  80   #:use-module (gnu packages fontutils)
  81   #:use-module (gnu packages game-development)
  82   #:use-module (gnu packages gettext)
  83   #:use-module (gnu packages glib)
  84   #:use-module (gnu packages gnupg)
  85   #:use-module (gnu packages gnuzilla)
  86   #:use-module (gnu packages gstreamer)
  87   #:use-module (gnu packages gtk)
  88   #:use-module (gnu packages gperf)
  89   #:use-module (gnu packages guile)
  90   #:use-module (gnu packages openldap)
  91   #:use-module (gnu packages pdf)
  92   #:use-module (gnu packages polkit)
  93   #:use-module (gnu packages popt)
  94   #:use-module (gnu packages ghostscript)
  95   #:use-module (gnu packages ibus)
  96   #:use-module (gnu packages iso-codes)
  97   #:use-module (gnu packages libcanberra)
  98   #:use-module (gnu packages libunistring)
  99   #:use-module (gnu packages linux)
 100   #:use-module (gnu packages libusb)
 101   #:use-module (gnu packages lirc)
 102   #:use-module (gnu packages lua)
 103   #:use-module (gnu packages image)
 104   #:use-module (gnu packages imagemagick)
 105   #:use-module (gnu packages music)
 106   #:use-module (gnu packages networking)
 107   #:use-module (gnu packages ninja)
 108   #:use-module (gnu packages password-utils)
 109   #:use-module (gnu packages pcre)
 110   #:use-module (gnu packages perl)
 111   #:use-module (gnu packages photo)
 112   #:use-module (gnu packages pkg-config)
 113   #:use-module (gnu packages pulseaudio)
 114   #:use-module (gnu packages python)
 115   #:use-module (gnu packages rdesktop)
 116   #:use-module (gnu packages scanner)
 117   #:use-module (gnu packages selinux)
 118   #:use-module (gnu packages slang)
 119   #:use-module (gnu packages ssh)
 120   #:use-module (gnu packages xml)
 121   #:use-module (gnu packages gl)
 122   #:use-module (gnu packages compression)
 123   #:use-module (gnu packages spice)
 124   #:use-module (gnu packages tex)
 125   #:use-module (gnu packages time)
 126   #:use-module (gnu packages tls)
 127   #:use-module (gnu packages web)
 128   #:use-module (gnu packages webkit)
 129   #:use-module (gnu packages xiph)
 130   #:use-module (gnu packages xorg)
 131   #:use-module (gnu packages xdisorg)
 132   #:use-module (gnu packages freedesktop)
 133   #:use-module (gnu packages mail)
 134   #:use-module (gnu packages kerberos)
 135   #:use-module (gnu packages multiprecision)
 136   #:use-module (gnu packages backup)
 137   #:use-module (gnu packages nettle)
 138   #:use-module (gnu packages ncurses)
 139   #:use-module (gnu packages video)
 140   #:use-module (gnu packages cdrom)
 141   #:use-module (gnu packages samba)
 142   #:use-module (gnu packages readline)
 143   #:use-module (gnu packages fonts)
 144   #:use-module (gnu packages speech)
 145   #:use-module (gnu packages version-control)
 146   #:use-module (gnu packages virtualization)
 147   #:use-module (gnu packages vpn)
 148   #:use-module (gnu packages xorg)
 149   #:use-module (srfi srfi-1))
 150
 151 (define-public brasero
 152   (package
 153     (name "brasero")
 154     (version "3.12.2")
 155     (source (origin
 156              (method url-fetch)
 157              (uri (string-append "mirror://gnome/sources/" name "/"
 158                                  (version-major+minor version) "/"
 159                                  name "-" version ".tar.xz"))
 160              (sha256
 161               (base32
 162                "0h90y674j26rvjahb8cc0w79zx477rb6zaqcj26wzvq8kmpic8k8"))))
 163     (build-system glib-or-gtk-build-system)
 164     (arguments
 165      `(#:configure-flags (list
 166                           (string-append "--with-girdir="
 167                                          (assoc-ref %outputs "out")
 168                                          "/share/gir-1.0")
 169                           (string-append "--with-typelibdir="
 170                                          (assoc-ref %outputs "out")
 171                                          "/lib/girepository-1.0"))
 172        #:phases
 173        (modify-phases %standard-phases
 174          (add-before 'configure 'embed-growisofs
 175            (lambda* (#:key inputs #:allow-other-keys)
 176              (substitute* "plugins/growisofs/burn-growisofs.c"
 177                (("\"growisofs") (string-append "\"" (which "growisofs"))))
 178              #t)))))
 179     (propagated-inputs
 180      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 181     (native-inputs
 182      `(("intltool" ,intltool)
 183        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 184        ("gobject-introspection" ,gobject-introspection)
 185        ("pkg-config" ,pkg-config)))
 186     (inputs
 187      `(("dvd+rw-tools" ,dvd+rw-tools)
 188        ("glib" ,glib)
 189        ("gnome-doc-utils" ,gnome-doc-utils)
 190        ("gstreamer" ,gstreamer)
 191        ("gst-plugins-base" ,gst-plugins-base)
 192        ("gtk+" ,gtk+)
 193        ("itstool" ,itstool)
 194        ("libcanberra" ,libcanberra)
 195        ("libice" ,libice)
 196        ("libnotify" ,libnotify)
 197        ("libsm" ,libsm)
 198        ("libxml2" ,libxml2)
 199        ("nettle" ,nettle)
 200        ("totem-pl-parser" ,totem-pl-parser)))
 201     (home-page "https://projects.gnome.org/brasero/")
 202     (synopsis "CD/DVD burning tool for Gnome")
 203     (description "Brasero is an application to burn CD/DVD for the Gnome
 204 Desktop.  It is designed to be as simple as possible and has some unique
 205 features to enable users to create their discs easily and quickly.")
 206     (license license:gpl2+)))
 207
 208 (define-public deja-dup
 209   (package
 210     (name "deja-dup")
 211     (version "34.3")
 212     (source (origin
 213              (method url-fetch)
 214              (uri "https://launchpadlibrarian.net/295170991/deja-dup-34.3.tar.xz")
 215              (sha256
 216               (base32
 217                "1xqcr61hpbahbla7gdjn4ngjfz7w6f57y7f5pkb77yk05f60j2n9"))
 218              (patches
 219                (search-patches "deja-dup-use-ref-keyword-for-iter.patch"))))
 220     (build-system glib-or-gtk-build-system)
 221     (arguments
 222      `(#:modules ((guix build gnu-build-system)
 223                   ((guix build cmake-build-system) #:prefix cmake:)
 224                   (guix build glib-or-gtk-build-system)
 225                   (guix build utils))
 226        #:imported-modules (,@%glib-or-gtk-build-system-modules
 227                            (guix build cmake-build-system))
 228        #:test-target "test"
 229        #:configure-flags (list (string-append
 230                                 "-DCMAKE_INSTALL_FULL_DATADIR=" %output)
 231                                (string-append
 232                                 "-DCMAKE_INSTALL_LIBEXECDIR=" %output))
 233        #:phases
 234        (modify-phases %standard-phases
 235          (add-after 'unpack 'patch-lockfile-deletion
 236            (lambda rest
 237              (substitute* "libdeja/tools/duplicity/DuplicityInstance.vala"
 238                (("/bin/rm")
 239                 (which "rm")))))
 240          (replace 'configure
 241            (assoc-ref cmake:%standard-phases 'configure))
 242          (delete 'check) ;; Fails due to issues with DBus
 243          (add-after 'install 'wrap-deja-dup
 244            (lambda* (#:key inputs outputs #:allow-other-keys)
 245              (let ((python      (assoc-ref inputs "python"))
 246                    (python-path (getenv "PYTHONPATH"))
 247                    (duplicity   (assoc-ref inputs "duplicity"))
 248                    (out         (assoc-ref outputs "out")))
 249                (for-each
 250                 (lambda (program)
 251                   (wrap-program program
 252                     `("PATH" ":" prefix (,(string-append python "/bin")
 253                                          ,(string-append duplicity "/bin"))))
 254                   (wrap-program program
 255                     `("PYTHONPATH" ":" prefix (,python-path))))
 256
 257                 (find-files (string-append out "/bin")))
 258                #t))))))
 259     (inputs
 260      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 261        ("gobject-introspection" ,gobject-introspection)
 262        ("duplicity" ,duplicity)
 263        ("python" ,python2-minimal)
 264        ("python-pygobject" ,python2-pygobject)
 265        ("gtk+" ,gtk+)
 266        ("libnotify" ,libnotify)
 267        ("libpeas" ,libpeas)
 268        ("libsecret" ,libsecret)
 269        ("packagekit" ,packagekit)))
 270     (native-inputs
 271      `(("pkg-config" ,pkg-config)
 272        ("vala" ,vala)
 273        ("gettext" ,gettext-minimal)
 274        ("itstool" ,itstool)
 275        ("intltool" ,intltool)
 276        ("cmake" ,cmake)))
 277     (home-page "https://launchpad.net/deja-dup")
 278     (synopsis "Simple backup tool, for regular encrypted backups")
 279     (description
 280      "Déjà Dup is a simple backup tool, for regular encrypted backups.  It
 281 uses duplicity as the backend, which supports incremental backups and storage
 282 either on a local, or remote machine via a number of methods.")
 283     (license license:gpl3+)))
 284
 285 (define-public dia
 286   ;; This version from GNOME's repository includes fixes for compiling with
 287   ;; recent versions of the build tools.  The latest activity on the
 288   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
 289   ;; fixes in 2016.
 290   (let ((commit "fbc306168edab63db80b904956117cbbdc514ee4"))
 291     (package
 292       (name "dia")
 293       (version (string-append "0.97.2-" (string-take commit 7)))
 294       (source (origin
 295                 (method git-fetch)
 296                 (uri (git-reference
 297                       (url "https://git.gnome.org/browse/dia")
 298                       (commit commit)))
 299                 (file-name (string-append name "-" version "-checkout"))
 300                 (sha256
 301                  (base32
 302                   "1b4bba0k8ph4cwgw8xjglss0p6n111bpd5app67lrq79mp0ad06l"))))
 303       (build-system gnu-build-system)
 304       (inputs
 305        `(("glib" ,glib "bin")
 306          ("pango" ,pango)
 307          ("gdk-pixbuf" ,gdk-pixbuf)
 308          ("gtk+" ,gtk+-2)
 309          ("libxml2" ,libxml2)
 310          ("freetype" ,freetype)
 311          ("libart-lgpl" ,libart-lgpl)))
 312       (native-inputs
 313        `(("intltool" ,intltool)
 314          ("pkg-config" ,pkg-config)
 315          ("automake" ,automake)
 316          ("autoconf" ,autoconf)
 317          ("libtool" ,libtool)
 318          ("perl" ,perl)
 319          ("python-wrapper" ,python-wrapper)))
 320       (arguments
 321        `(#:phases
 322          (modify-phases %standard-phases
 323            (add-after 'unpack 'run-autogen
 324              (lambda _
 325                (system* "sh" "autogen.sh"))))))
 326       (home-page "https://wiki.gnome.org/Apps/Dia")
 327       (synopsis "Diagram creation for GNOME")
 328       (description "Dia can be used to draw different types of diagrams, and
 329 includes support for UML static structure diagrams (class diagrams), entity
 330 relationship modeling, and network diagrams.  The program supports various file
 331 formats like PNG, SVG, PDF and EPS.")
 332       (license license:gpl2+))))
 333
 334 (define-public libgdata
 335   (package
 336     (name "libgdata")
 337     (version "0.16.1")
 338     (source (origin
 339               (method url-fetch)
 340               (uri (string-append "mirror://gnome/sources/" name "/"
 341                                   (version-major+minor version)  "/"
 342                                   name "-" version ".tar.xz"))
 343               (sha256
 344                (base32
 345                 "09q8h1129xjpw33rvzz7856drygxwlm0s64z9cm0vbmjxiqy0h47"))
 346               (patches
 347                (search-patches "libgdata-fix-tests.patch"
 348                                "libgdata-glib-duplicate-tests.patch"))))
 349     (build-system gnu-build-system)
 350     (arguments
 351      '(#:phases
 352        (modify-phases %standard-phases
 353          (add-before 'check 'use-empty-ssl-cert-file
 354            (lambda _
 355              ;; The ca-certificates.crt is not available in the build
 356              ;; environment.
 357              (setenv "SSL_CERT_FILE" "/dev/null")
 358              #t))
 359          (add-before 'check 'disable-failing-tests
 360            (lambda _
 361              ;; The PicasaWeb API tests fail with gnome-online-accounts@3.24.2.
 362              ;; They have been removed in libgdata 0.17.6, so just do the same.
 363              (substitute* "gdata/tests/Makefile"
 364                (("picasaweb\\$\\(EXEEXT\\) ") ""))
 365              #t)))))
 366     (native-inputs
 367      `(("glib:bin" ,glib "bin")
 368        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 369        ("intltool" ,intltool)
 370        ("pkg-config" ,pkg-config)
 371        ("uhttpmock" ,uhttpmock)))
 372     (inputs
 373      `(("cyrus-sasl" ,cyrus-sasl)
 374        ("glib" ,glib)
 375        ("glib-networking" ,glib-networking)
 376        ("json-glib" ,json-glib)
 377        ("libsoup" ,libsoup)))
 378     (propagated-inputs
 379      `(("gcr" ,gcr)
 380        ("gnome-online-accounts" ,gnome-online-accounts)
 381        ("liboauth" ,liboauth)
 382        ("libxml2" ,libxml2)))
 383     (home-page "https://wiki.gnome.org/Projects/libgdata")
 384     (synopsis "Library for accessing online service APIs")
 385     (description
 386      "libgdata is a GLib-based library for accessing online service APIs using
 387 the GData protocol — most notably, Google's services.  It provides APIs to
 388 access the common Google services, and has full asynchronous support.")
 389     (license license:lgpl2.1+)))
 390
 391 (define-public libgxps
 392   (package
 393     (name "libgxps")
 394     (version "0.2.5")
 395     (source (origin
 396               (method url-fetch)
 397               (uri (string-append "mirror://gnome/sources/" name "/"
 398                                   (version-major+minor version) "/"
 399                                   name "-" version ".tar.xz"))
 400               (patches (search-patches "libgxps-CVE-2017-11590.patch"))
 401               (sha256
 402                (base32
 403                 "184r06s8g20cfigg7m169n42jjsc9wmzzlycr4g1fxxhr72r8x9y"))))
 404     (build-system gnu-build-system)
 405     (native-inputs
 406      `(("gobject-introspection" ,gobject-introspection)
 407        ("pkg-config" ,pkg-config)))
 408     (inputs
 409      `(("cairo" ,cairo)
 410        ("glib" ,glib)
 411        ("libarchive" ,libarchive)
 412        ("libjpeg" ,libjpeg)
 413        ("lcms" ,lcms)
 414        ("libtiff" ,libtiff)
 415        ("nettle" ,nettle)))
 416     (home-page "https://wiki.gnome.org/Projects/libgxps")
 417     (synopsis "GObject-based library for handling and rendering XPS documents")
 418     (description
 419      "libgxps is a GObject-based library for handling and rendering XPS
 420 documents.  This package also contains binaries that can convert XPS documents
 421 to other formats.")
 422     (license license:lgpl2.1+)))
 423
 424 (define-public gnome-common
 425   (package
 426     (name "gnome-common")
 427     (version "3.18.0")
 428     (source
 429      (origin
 430        (method url-fetch)
 431        (uri (string-append "mirror://gnome/sources/" name "/"
 432                            (version-major+minor version)  "/"
 433                            name "-" version ".tar.xz"))
 434        (sha256
 435         (base32
 436          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
 437     (build-system gnu-build-system)
 438     (home-page "https://www.gnome.org/")
 439     (synopsis "Bootstrap GNOME modules built from Git")
 440     (description "gnome-common contains various files needed to bootstrap
 441 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
 442 can be used to configure a source directory checked out from Git and some
 443 commonly used macros.")
 444     (license license:gpl2+)))
 445
 446 (define-public gnome-desktop
 447   (package
 448     (name "gnome-desktop")
 449     (version "3.24.2")
 450     (source
 451      (origin
 452       (method url-fetch)
 453       (uri (string-append "mirror://gnome/sources/" name "/"
 454                           (version-major+minor version)  "/"
 455                           name "-" version ".tar.xz"))
 456       (sha256
 457        (base32
 458         "0pkq5l1llw8gkjhfq6y58iyj6wac8dh1mc3rzjzn6nd7lrkdx8cg"))))
 459     (build-system gnu-build-system)
 460     (arguments
 461      '(#:phases
 462        (modify-phases %standard-phases
 463          (add-before 'configure 'patch-path
 464            (lambda* (#:key inputs #:allow-other-keys)
 465              (let ((libc   (assoc-ref inputs "libc")))
 466                (substitute* "libgnome-desktop/gnome-languages.c"
 467                  (("\"locale\"")
 468                   (string-append "\"" libc "/bin/locale\"")))
 469                #t))))))
 470     (native-inputs
 471      `(("gobject-introspection" ,gobject-introspection)
 472        ("itstool" ,itstool)
 473        ("intltool" ,intltool)
 474        ("pkg-config" ,pkg-config)
 475        ("xmllint" ,libxml2)))
 476     (propagated-inputs
 477      ;; Required by gnome-desktop-3.0.pc.
 478      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 479        ("gtk+" ,gtk+)))
 480     (inputs
 481      `(("gdk-pixbuf" ,gdk-pixbuf)
 482        ("glib" ,glib)
 483        ("iso-codes" ,iso-codes)
 484        ("libx11" ,libx11)
 485        ("libxext" ,libxext)
 486        ("libxkbfile" ,libxkbfile)
 487        ("libxrandr" ,libxrandr)
 488        ("xkeyboard-config" ,xkeyboard-config)))
 489     (home-page "https://www.gnome.org/")
 490     (synopsis
 491      "Libgnome-desktop, gnome-about, and desktop-wide documents")
 492     (description
 493      "The libgnome-desktop library provides API shared by several applications
 494 on the desktop, but that cannot live in the platform for various reasons.
 495 There is no API or ABI guarantee, although we are doing our best to provide
 496 stability.  Documentation for the API is available with gtk-doc.
 497
 498 The gnome-about program helps find which version of GNOME is installed.")
 499     ; Some bits under the LGPL.
 500     (license license:gpl2+)))
 501
 502 (define-public gnome-doc-utils
 503   (package
 504     (name "gnome-doc-utils")
 505     (version "0.20.10")
 506     (source
 507      (origin
 508       (method url-fetch)
 509       (uri (string-append "mirror://gnome/sources/" name "/"
 510                           (version-major+minor version)  "/"
 511                           name "-" version ".tar.xz"))
 512       (sha256
 513        (base32
 514         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
 515     (build-system gnu-build-system)
 516     (native-inputs
 517      `(("intltool" ,intltool)
 518        ("docbook-xml" ,docbook-xml-4.4)
 519        ("python2-libxml2" ,python2-libxml2)
 520        ("libxml2" ,libxml2)
 521        ("libxslt" ,libxslt)
 522        ("pkg-config" ,pkg-config)
 523        ("python-2" ,python-2)))
 524     (home-page "https://wiki.gnome.org/GnomeDocUtils")
 525     (synopsis
 526      "Documentation utilities for the Gnome project")
 527     (description
 528      "Gnome-doc-utils is a collection of documentation utilities for the
 529 Gnome project.  It includes xml2po tool which makes it easier to translate
 530 and keep up to date translations of documentation.")
 531     (license license:gpl2+))) ; xslt under lgpl
 532
 533 (define-public gnome-disk-utility
 534   (package
 535     (name "gnome-disk-utility")
 536     (version "3.28.1")
 537     (source (origin
 538               (method url-fetch)
 539               (uri (string-append "mirror://gnome/sources/" name "/"
 540                                   (version-major+minor version) "/"
 541                                   name "-" version ".tar.xz"))
 542               (sha256
 543                (base32
 544                 "09dmknfas8iifv6k5jb4a9ag57s8awrn0f26fd1qlg0mbfjlnfd6"))))
 545     (build-system meson-build-system)
 546     (native-inputs
 547      `(("glib:bin" ,glib "bin")
 548        ("gtk+" ,gtk+ "bin")             ; gtk-update-icon-cache
 549        ("intltool" ,intltool)
 550        ("pkg-config" ,pkg-config)
 551        ("docbook-xml" ,docbook-xml)
 552        ("docbook-xsl" ,docbook-xsl)
 553        ("libxml2" ,libxml2)
 554        ("libxslt" ,libxslt)))
 555     (inputs
 556      `(("glib" ,glib)
 557        ("appstream-glib" ,appstream-glib)
 558        ("gnome-settings-daemon" ,gnome-settings-daemon)
 559        ("gtk+" ,gtk+)
 560        ("libcanberra" ,libcanberra)
 561        ("libdvdread" ,libdvdread)
 562        ("libnotify" ,libnotify)
 563        ("libpwquality" ,libpwquality)
 564        ("libsecret" ,libsecret)
 565        ("udisks" ,udisks)))
 566     (home-page "https://git.gnome.org/browse/gnome-disk-utility")
 567     (synopsis "Disk management utility for GNOME")
 568     (description "Disk management utility for GNOME.")
 569     (license license:gpl2+)))
 570
 571 (define-public gcr
 572   (package
 573     (name "gcr")
 574     (version "3.20.0")
 575     (source (origin
 576              (method url-fetch)
 577              (uri (string-append "mirror://gnome/sources/" name "/"
 578                                  (version-major+minor version)  "/"
 579                                  name "-" version ".tar.xz"))
 580              (sha256
 581               (base32
 582                "0ydk9dzxx6snxza7j5ps8x932hbr3x1b8hhcaqjq4w4admi2qmwh"))
 583              (patches
 584               (search-patches "gcr-disable-failing-tests.patch"
 585                               "gcr-fix-collection-tests-to-work-with-gpg-21.patch"))))
 586     (build-system gnu-build-system)
 587     (arguments
 588      '(#:phases (modify-phases %standard-phases
 589                   (add-before
 590                    'check 'pre-check
 591                    (lambda* (#:key inputs #:allow-other-keys)
 592                      (substitute* "build/tap-driver"
 593                        (("/usr/bin/env python") (which "python"))))))))
 594     (inputs
 595      `(("dbus" ,dbus)
 596        ("gnupg" ,gnupg) ;called as a child process during tests
 597        ("libgcrypt" ,libgcrypt)))
 598     (native-inputs
 599      `(("python" ,python-2) ;for tests
 600        ("pkg-config" ,pkg-config)
 601        ("glib" ,glib "bin")
 602        ("gobject-introspection" ,gobject-introspection)
 603        ("intltool" ,intltool)
 604        ("xsltproc" ,libxslt)))
 605     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
 606     (propagated-inputs
 607      `(("p11-kit" ,p11-kit)
 608        ("glib" ,glib)
 609        ("gtk+" ,gtk+)))
 610     (home-page "https://www.gnome.org")
 611     (synopsis "Libraries for displaying certificates and accessing key stores")
 612     (description
 613      "The GCR package contains libraries used for displaying certificates and
 614 accessing key stores.  It also provides the viewer for crypto files on the
 615 GNOME Desktop.")
 616     (license license:lgpl2.1+)))
 617
 618 (define-public libgnome-keyring
 619   (package
 620     (name "libgnome-keyring")
 621     (version "3.12.0")
 622     (source (origin
 623              (method url-fetch)
 624              (uri (string-append "mirror://gnome/sources/" name "/"
 625                                  (version-major+minor version)  "/"
 626                                  name "-" version ".tar.xz"))
 627              (sha256
 628               (base32
 629                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
 630     (build-system gnu-build-system)
 631     (inputs
 632      `(("libgcrypt" ,libgcrypt)
 633        ("dbus" ,dbus)))
 634     (native-inputs
 635      `(("pkg-config" ,pkg-config)
 636        ("glib" ,glib "bin")
 637        ("intltool" ,intltool)))
 638     (propagated-inputs
 639      ;; Referred to in .h files and .pc.
 640      `(("glib" ,glib)))
 641     (home-page "https://www.gnome.org")
 642     (synopsis "Accessing passwords from the GNOME keyring")
 643     (description
 644      "Client library to access passwords from the GNOME keyring.")
 645
 646     ;; Though a couple of files are LGPLv2.1+.
 647     (license license:lgpl2.0+)))
 648
 649 (define-public gnome-keyring
 650   (package
 651     (name "gnome-keyring")
 652     (version "3.20.1")
 653     (source (origin
 654              (method url-fetch)
 655              (uri (string-append "mirror://gnome/sources/" name "/"
 656                                  (version-major+minor version)  "/"
 657                                  name "-" version ".tar.xz"))
 658              (sha256
 659               (base32
 660                "134ci3mn6jjap59z3lrvyiip7zf2nlw5xvanr44yajs57xr4x5lp"))))
 661     (build-system gnu-build-system)
 662     (arguments
 663      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
 664                    ;not exist
 665        #:configure-flags
 666        (list
 667         (string-append "--with-pkcs11-config="
 668                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
 669         (string-append "--with-pkcs11-modules="
 670                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
 671        #:phases
 672        (modify-phases %standard-phases
 673          (add-before
 674           'check 'pre-check
 675           (lambda* (#:key inputs #:allow-other-keys)
 676             (substitute* "build/tap-driver"
 677               (("/usr/bin/env python") (which "python")))))
 678          (add-before
 679           'configure 'fix-docbook
 680           (lambda* (#:key inputs #:allow-other-keys)
 681             (substitute* "docs/Makefile.am"
 682               (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
 683                (string-append (assoc-ref inputs "docbook-xsl")
 684                               "/xml/xsl/docbook-xsl-"
 685                               ,(package-version docbook-xsl)
 686                               "/manpages/docbook.xsl")))
 687             (setenv "XML_CATALOG_FILES"
 688                     (string-append (assoc-ref inputs "docbook-xml")
 689                                    "/xml/dtd/docbook/catalog.xml"))
 690
 691             ;; Rerun the whole thing to avoid version mismatch ("This is
 692             ;; Automake 1.15.1, but the definition used by this
 693             ;; AM_INIT_AUTOMAKE comes from Automake 1.15.").  Note: we don't
 694             ;; use 'autoreconf' because it insists on running 'libtoolize'.
 695             (invoke "autoconf")
 696             (invoke "aclocal")
 697             (invoke "automake" "-ac"))))))
 698     (inputs
 699      `(("libgcrypt" ,libgcrypt)
 700        ("linux-pam" ,linux-pam)
 701        ("dbus" ,dbus)
 702        ("gcr" ,gcr)))
 703     (native-inputs
 704      `(("pkg-config" ,pkg-config)
 705        ("glib" ,glib "bin")
 706        ("python" ,python-2) ;for tests
 707        ("intltool" ,intltool)
 708        ("autoconf" ,autoconf)
 709        ("automake" ,automake)
 710        ("libxslt" ,libxslt) ;for documentation
 711        ("docbook-xml" ,docbook-xml-4.2)
 712        ("docbook-xsl" ,docbook-xsl)))
 713     (home-page "https://www.gnome.org")
 714     (synopsis "Daemon to store passwords and encryption keys")
 715     (description
 716      "gnome-keyring is a program that keeps passwords and other secrets for
 717 users.  It is run as a daemon in the session, similar to ssh-agent, and other
 718 applications locate it via an environment variable or D-Bus.
 719
 720 The program can manage several keyrings, each with its own master password,
 721 and there is also a session keyring which is never stored to disk, but
 722 forgotten when the session ends.")
 723     (license license:lgpl2.1+)))
 724
 725 (define-public evince
 726   (package
 727     (name "evince")
 728     (version "3.28.2")
 729     (source (origin
 730              (method url-fetch)
 731              (uri (string-append "mirror://gnome/sources/" name "/"
 732                                  (version-major+minor version) "/"
 733                                  name "-" version ".tar.xz"))
 734              (sha256
 735               (base32
 736                "1qbk1x2c7iacmmfwjzh136v2sdacrkqn9d6bnqid7xn9hlnx4m89"))))
 737     (build-system glib-or-gtk-build-system)
 738     (arguments
 739      `(#:configure-flags '("--disable-nautilus")
 740        #:phases
 741        (modify-phases %standard-phases
 742          (add-before 'install 'skip-gtk-update-icon-cache
 743            ;; Don't create 'icon-theme.cache'.
 744            (lambda _
 745              (substitute* "data/Makefile"
 746                (("gtk-update-icon-cache") "true"))
 747              #t)))))
 748     (inputs
 749      `(("libarchive" ,libarchive)
 750        ("libgxps" ,libgxps)
 751        ("libspectre" ,libspectre)
 752        ("djvulibre" ,djvulibre)
 753        ("ghostscript" ,ghostscript)
 754        ("poppler" ,poppler)
 755        ("libtiff" ,libtiff)
 756        ;; TODO:
 757        ;;   Build libkpathsea as a shared library for DVI support.
 758        ;; ("libkpathsea" ,texlive-bin)
 759        ("gnome-desktop" ,gnome-desktop)
 760        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 761        ("libgnome-keyring" ,libgnome-keyring)
 762        ("adwaita-icon-theme" ,adwaita-icon-theme)
 763        ("gdk-pixbuf" ,gdk-pixbuf)
 764        ("atk" ,atk)
 765        ("pango" ,pango)
 766        ("gtk+" ,gtk+)
 767        ("glib" ,glib)
 768        ("libxml2" ,libxml2)
 769        ("libsm" ,libsm)
 770        ("libice" ,libice)
 771        ("shared-mime-info" ,shared-mime-info)
 772        ("dconf" ,dconf)
 773        ("libcanberra" ,libcanberra)
 774        ("libsecret" ,libsecret)
 775
 776        ;; XXX: 'libarchive.pc' adds '-lnettle' so Nettle should really be
 777        ;; propagated from there.
 778        ("nettle" ,nettle)
 779
 780        ;; For tests.
 781        ("dogtail" ,python2-dogtail)))
 782     (native-inputs
 783      `(("itstool" ,itstool)
 784        ("intltool" ,intltool)
 785        ("glib" ,glib "bin")
 786        ("pkg-config" ,pkg-config)
 787        ("xmllint" ,libxml2)))
 788     (home-page
 789      "https://www.gnome.org/projects/evince/")
 790     (synopsis "GNOME's document viewer")
 791     (description
 792      "Evince is a document viewer for multiple document formats.  It
 793 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
 794 of Evince is to replace the multiple document viewers that exist
 795 on the GNOME Desktop with a single simple application.")
 796     (license license:gpl2+)))
 797
 798 (define-public gsettings-desktop-schemas
 799   (package
 800     (name "gsettings-desktop-schemas")
 801     (version "3.24.1")
 802     (source
 803      (origin
 804       (method url-fetch)
 805       (uri (string-append "mirror://gnome/sources/" name "/"
 806                           (version-major+minor version)  "/"
 807                           name "-" version ".tar.xz"))
 808       (sha256
 809        (base32
 810         "19zfqy58missq5cck13ip8j824hb9whqg2c4cr6hgrlxkwqgm8vn"))))
 811     (build-system gnu-build-system)
 812     (inputs
 813      `(("glib" ,glib)))
 814     (native-inputs
 815      `(("intltool" ,intltool)
 816        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 817        ("gobject-introspection" ,gobject-introspection)
 818        ("pkg-config" ,pkg-config)))
 819     (home-page "https://launchpad.net/gsettings-desktop-schemas")
 820     (synopsis
 821      "GNOME settings for various desktop components")
 822     (description
 823      "Gsettings-desktop-schemas contains a collection of GSettings schemas
 824 for settings shared by various components of the GNOME desktop.")
 825     (license license:lgpl2.1+)))
 826
 827 (define-public icon-naming-utils
 828   (package
 829     (name "icon-naming-utils")
 830     (version "0.8.90")
 831     (source
 832      (origin
 833       (method url-fetch)
 834       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
 835                           version ".tar.bz2"))
 836       (sha256
 837        (base32
 838         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
 839     (build-system gnu-build-system)
 840     (inputs
 841      `(("perl" ,perl)
 842        ("perl-xml-simple" ,perl-xml-simple)))
 843     (arguments
 844      '(#:phases
 845        (modify-phases %standard-phases
 846          (add-after 'install 'set-load-paths
 847            ;; Tell 'icon-name-mapping' where XML::Simple is.
 848            (lambda* (#:key outputs #:allow-other-keys)
 849              (let* ((out  (assoc-ref outputs "out"))
 850                     (prog (string-append out "/libexec/icon-name-mapping")))
 851                (wrap-program
 852                    prog
 853                  `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
 854              #t)))))
 855     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
 856     (synopsis
 857      "Utility to implement the Freedesktop Icon Naming Specification")
 858     (description
 859      "To help with the transition to the Freedesktop Icon Naming
 860 Specification, the icon naming utility maps the icon names used by the
 861 GNOME and KDE desktops to the icon names proposed in the specification.")
 862     (license license:lgpl2.1+)))
 863
 864 (define-public gnome-icon-theme
 865   (package
 866     (name "gnome-icon-theme")
 867     (version "3.12.0")
 868     (source
 869      (origin
 870       (method url-fetch)
 871       (uri (string-append "mirror://gnome/sources/" name "/"
 872                           (version-major+minor version)  "/"
 873                           name "-" version ".tar.xz"))
 874       (sha256
 875        (base32
 876         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
 877     (build-system gnu-build-system)
 878     (arguments
 879      '(#:configure-flags
 880        ;; Don't create 'icon-theme.cache'.
 881        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
 882               (true      (string-append coreutils "/bin/true")))
 883          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
 884     (native-inputs
 885      `(("icon-naming-utils" ,icon-naming-utils)
 886        ("intltool" ,intltool)
 887        ("pkg-config" ,pkg-config)))
 888     (home-page "https://art.gnome.org/")
 889     (synopsis
 890      "GNOME icon theme")
 891     (description
 892      "Icons for the GNOME desktop.")
 893     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
 894
 895 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
 896 (define-public adwaita-icon-theme
 897   (package (inherit gnome-icon-theme)
 898     (name "adwaita-icon-theme")
 899     (version "3.26.1")
 900     (source (origin
 901               (method url-fetch)
 902               (uri (string-append "mirror://gnome/sources/" name "/"
 903                                   (version-major+minor version) "/"
 904                                   name "-" version ".tar.xz"))
 905               (sha256
 906                (base32
 907                 "17fpahgh5dyckgz7rwqvzgnhx53cx9kr2xw0szprc6bnqy977fi8"))))
 908     (native-inputs
 909      `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
 910
 911 (define-public tango-icon-theme
 912   (package
 913     (name "tango-icon-theme")
 914     (version "0.8.90")
 915     (source (origin
 916               (method url-fetch)
 917               (uri (string-append "http://tango.freedesktop.org/releases/"
 918                                   "tango-icon-theme-" version ".tar.bz2"))
 919               (sha256
 920                (base32
 921                 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
 922     (build-system gnu-build-system)
 923     (native-inputs
 924      `(("icon-naming-utils" ,icon-naming-utils)
 925        ("intltool" ,intltool)
 926        ("imagemagick" ,imagemagick)
 927        ("pkg-config" ,pkg-config)))
 928     (home-page "http://tango-project.org/")
 929     (synopsis "Tango icon theme")
 930     (description "This is an icon theme that follows the Tango visual
 931 guidelines.")
 932     (license license:public-domain)))
 933
 934 (define-public shared-mime-info
 935   (package
 936     (name "shared-mime-info")
 937     (version "1.8")
 938     (source (origin
 939              (method url-fetch)
 940              (uri (string-append "https://freedesktop.org/~hadess/"
 941                                  "shared-mime-info-" version ".tar.xz"))
 942              (sha256
 943               (base32
 944                "1sc96lv9dp1lkvs8dh3ngm3hbjb274d363dl9avhb61il3qmxx9a"))))
 945     (build-system gnu-build-system)
 946     (arguments
 947      ;; The build system appears not to be parallel-safe.
 948      '(#:parallel-build? #f))
 949     (inputs
 950      `(("glib" ,glib)
 951        ("libxml2" ,libxml2)))
 952     (native-inputs
 953      `(("intltool" ,intltool)
 954        ("pkg-config" ,pkg-config)))
 955     (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
 956     (synopsis "Database of common MIME types")
 957     (description
 958      "The shared-mime-info package contains the core database of common types
 959 and the update-mime-database command used to extend it.  It requires glib2 to
 960 be installed for building the update command.  Additionally, it uses intltool
 961 for translations, though this is only a dependency for the maintainers.  This
 962 database is translated at Transifex.")
 963     (license license:gpl2+)))
 964
 965 (define-public hicolor-icon-theme
 966   (package
 967     (name "hicolor-icon-theme")
 968     (version "0.17")
 969     (source
 970      (origin
 971       (method url-fetch)
 972       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
 973                           "hicolor-icon-theme-" version ".tar.xz"))
 974       (sha256
 975        (base32
 976         "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
 977     (build-system gnu-build-system)
 978     (arguments
 979      `(#:tests? #f)) ; no check target
 980     (home-page "https://icon-theme.freedesktop.org/releases/")
 981     (synopsis
 982      "Freedesktop icon theme")
 983     (description
 984      "Freedesktop icon theme.")
 985     (license license:gpl2)))
 986
 987 (define-public libnotify
 988   (package
 989     (name "libnotify")
 990     (version "0.7.7")
 991     (source
 992      (origin
 993       (method url-fetch)
 994       (uri (string-append "mirror://gnome/sources/" name "/"
 995                           (version-major+minor version)  "/"
 996                           name "-" version ".tar.xz"))
 997       (sha256
 998        (base32
 999         "017wgq9n00hx39n0hm784zn18hl721hbaijda868cm96bcqwxd4w"))))
1000     (build-system gnu-build-system)
1001     (inputs
1002      `(("gdk-pixbuf" ,gdk-pixbuf)
1003        ("glib" ,glib)
1004        ("gtk+" ,gtk+)
1005        ("libpng" ,libpng)))
1006     (native-inputs
1007       `(("pkg-config" ,pkg-config)
1008         ("glib" ,glib "bin")
1009         ("gobject-introspection" ,gobject-introspection)))
1010     (home-page "https://developer-next.gnome.org/libnotify/")
1011     (synopsis
1012      "GNOME desktop notification library")
1013     (description
1014      "Libnotify is a library that sends desktop notifications to a
1015 notification daemon, as defined in the Desktop Notifications spec.  These
1016 notifications can be used to inform the user about an event or display
1017 some form of information without getting in the user's way.")
1018     (license license:lgpl2.1+)))
1019
1020 (define-public libpeas
1021   (package
1022     (name "libpeas")
1023     (version "1.22.0")
1024     (source
1025      (origin
1026       (method url-fetch)
1027       (uri (string-append "mirror://gnome/sources/" name "/"
1028                           (version-major+minor version)  "/"
1029                           name "-" version ".tar.xz"))
1030       (sha256
1031        (base32
1032         "0qm908kisyjzjxvygdl18hjqxvvgkq9w0phs2g55pck277sw0bsv"))))
1033     (build-system gnu-build-system)
1034     (inputs
1035      `(("gtk+" ,gtk+)
1036        ("glade" ,glade3)
1037        ("python" ,python)
1038        ("python-pygobject" ,python-pygobject)))
1039     (native-inputs
1040      `(("pkg-config" ,pkg-config)
1041        ("glib:bin" ,glib "bin")
1042        ("gobject-introspection" ,gobject-introspection)
1043        ("intltool" ,intltool)))
1044     (propagated-inputs
1045      ;; The .pc file "Requires" gobject-introspection.
1046      `(("gobject-introspection" ,gobject-introspection)))
1047     (home-page "https://wiki.gnome.org/Libpeas")
1048     (synopsis "GObject plugin system")
1049     (description
1050      "Libpeas is a gobject-based plugin engine, targeted at giving every
1051 application the chance to assume its own extensibility.  It also has a set of
1052 features including, but not limited to: multiple extension points; on-demand
1053 (lazy) programming language support for C, Python and JS; simplicity of the
1054 API.")
1055     (license license:lgpl2.0+)))
1056
1057 (define-public gtkglext
1058   (package
1059     (name "gtkglext")
1060     (version "1.2.0")
1061     (source (origin
1062               (method url-fetch)
1063               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
1064                                   version "/gtkglext-" version ".tar.gz"))
1065               (sha256
1066                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
1067               (patches (search-patches
1068                         "gtkglext-disable-disable-deprecated.patch"))))
1069     (build-system gnu-build-system)
1070     (inputs `(("gtk+" ,gtk+-2)
1071               ("mesa" ,mesa)
1072               ("glu" ,glu)
1073               ("libx11" ,libx11)
1074               ("libxt" ,libxt)))
1075     (native-inputs `(("pkg-config" ,pkg-config)
1076                      ("glib" ,glib "bin")))
1077     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
1078     (home-page "https://projects.gnome.org/gtkglext")
1079     (synopsis "OpenGL extension to GTK+")
1080     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
1081 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
1082 API add-ons to make GTK+ widgets OpenGL-capable.")
1083     (license license:lgpl2.1+)))
1084
1085 (define-public glade3
1086   (package
1087     (name "glade")
1088     (version "3.20.2")
1089     (source (origin
1090               (method url-fetch)
1091               (uri (string-append "mirror://gnome/sources/" name "/"
1092                                   (version-major+minor version)  "/"
1093                                   name "-" version ".tar.xz"))
1094               (sha256
1095                (base32
1096                 "1vdbqqvf6nrkqml4awrq4pzfwsm5v39wdzg943nys6lmf1am9l87"))))
1097     (build-system glib-or-gtk-build-system)
1098     (arguments
1099      `(#:tests? #f ; needs X, GL, and software rendering
1100        #:phases
1101        (modify-phases %standard-phases
1102          (add-before 'configure 'fix-docbook
1103            (lambda* (#:key inputs #:allow-other-keys)
1104              (substitute* "man/Makefile.in"
1105                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1106                 (string-append (assoc-ref inputs "docbook-xsl")
1107                                "/xml/xsl/docbook-xsl-"
1108                                ,(package-version docbook-xsl)
1109                                "/manpages/docbook.xsl")))
1110              #t)))))
1111     (inputs
1112      `(("gtk+" ,gtk+)
1113        ("libxml2" ,libxml2)))
1114     (native-inputs
1115      `(("intltool" ,intltool)
1116        ("itstool" ,itstool)
1117        ("libxslt" ,libxslt) ;for xsltproc
1118        ("docbook-xml" ,docbook-xml-4.2)
1119        ("docbook-xsl" ,docbook-xsl)
1120        ("python" ,python-2)
1121        ("pkg-config" ,pkg-config)))
1122     (home-page "https://glade.gnome.org")
1123     (synopsis "GTK+ rapid application development tool")
1124     (description "Glade is a rapid application development (RAD) tool to
1125 enable quick & easy development of user interfaces for the GTK+ toolkit and
1126 the GNOME desktop environment.")
1127     (license license:lgpl2.0+)))
1128
1129 (define-public libcroco
1130   (package
1131     (name "libcroco")
1132     (version "0.6.12")
1133     (source (origin
1134               (method url-fetch)
1135               (uri (string-append "mirror://gnome/sources/" name "/"
1136                                   (version-major+minor version)  "/"
1137                                   name "-" version ".tar.xz"))
1138               (patches
1139                 (search-patches "libcroco-CVE-2017-7960.patch"
1140                                 "libcroco-CVE-2017-7961.patch"))
1141               (sha256
1142                (base32
1143                 "0q7qhi7z64i26zabg9dbs5706fa8pmzp1qhpa052id4zdiabbi6x"))))
1144     (build-system gnu-build-system)
1145     (native-inputs
1146      `(("pkg-config" ,pkg-config)))
1147     (inputs
1148      `(("glib" ,glib)
1149        ("libxml2" ,libxml2)
1150        ("zlib" ,zlib)))
1151     (home-page "https://github.com/GNOME/libcroco")
1152     (synopsis "CSS2 parsing and manipulation library")
1153     (description
1154      "Libcroco is a standalone CSS2 parsing and manipulation library.
1155 The parser provides a low level event driven SAC-like API and a CSS object
1156 model like API.  Libcroco provides a CSS2 selection engine and an experimental
1157 XML/CSS rendering engine.")
1158
1159     ;; LGPLv2.1-only.
1160     (license license:lgpl2.1)))
1161
1162 (define-public libgsf
1163   (package
1164     (name "libgsf")
1165     (version "1.14.42")
1166     (source (origin
1167               (method url-fetch)
1168               (uri (string-append "mirror://gnome/sources/" name "/"
1169                                   (version-major+minor version)  "/"
1170                                   name "-" version ".tar.xz"))
1171               (sha256
1172                (base32
1173                 "1hhdz0ymda26q6bl5ygickkgrh998lxqq4z9i8dzpcvqna3zpzr9"))))
1174     (build-system gnu-build-system)
1175     (native-inputs
1176      `(("intltool" ,intltool)
1177        ("pkg-config" ,pkg-config)))
1178     (inputs
1179      `(("python" ,python)
1180        ("zlib" ,zlib)
1181        ("bzip2" ,bzip2)))
1182     (propagated-inputs
1183      `(("gdk-pixbuf" ,gdk-pixbuf)
1184        ("glib" ,glib)
1185        ("libxml2" ,libxml2)))
1186     (home-page "https://www.gnome.org/projects/libgsf")
1187     (synopsis "GNOME's Structured File Library")
1188     (description
1189      "Libgsf aims to provide an efficient extensible I/O abstraction for
1190 dealing with different structured file formats.")
1191
1192     ;; LGPLv2.1-only.
1193     (license license:lgpl2.1)))
1194
1195 (define-public librsvg
1196   (package
1197     (name "librsvg")
1198     (version "2.40.20")
1199     (source (origin
1200               (method url-fetch)
1201               (uri (string-append "mirror://gnome/sources/" name "/"
1202                                   (version-major+minor version)  "/"
1203                                   name "-" version ".tar.xz"))
1204               (sha256
1205                (base32
1206                 "0ay9himvw1l1swcf3h1312d2iqzfl65kpbfgiyfykgvq7cydvx6g"))))
1207     (build-system gnu-build-system)
1208     (arguments
1209      `(#:phases
1210        (modify-phases %standard-phases
1211          (add-before 'configure 'pre-configure
1212            (lambda* (#:key inputs #:allow-other-keys)
1213              (substitute* "gdk-pixbuf-loader/Makefile.in"
1214                ;; By default the gdk-pixbuf loader is installed under
1215                ;; gdk-pixbuf's prefix.  Work around that.
1216                (("gdk_pixbuf_moduledir = .*$")
1217                 (string-append "gdk_pixbuf_moduledir = "
1218                                "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
1219                                 "loaders\n"))
1220                ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
1221                (("gdk_pixbuf_cache_file = .*$")
1222                 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
1223              #t))
1224          (add-after 'unpack 'remove-failing-tests
1225            (lambda _
1226              (with-directory-excursion "tests/fixtures/reftests"
1227                (for-each delete-file
1228                          '(;; This test fails on i686:
1229                            "svg1.1/masking-path-04-b.svg"
1230                            "svg1.1/masking-path-04-b-ref.png"
1231                            ;; This test fails on armhf:
1232                            "svg1.1/masking-mask-01-b.svg"
1233                            "svg1.1/masking-mask-01-b-ref.png"
1234                            ;; This test fails on aarch64:
1235                            "bugs/777834-empty-text-children.svg"
1236                            "bugs/777834-empty-text-children-ref.png")))
1237              #t)))))
1238     (native-inputs
1239      `(("pkg-config" ,pkg-config)
1240        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
1241        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
1242     (inputs
1243      `(("pango" ,pango)
1244        ("libcroco" ,libcroco)
1245        ("bzip2" ,bzip2)
1246        ("libgsf" ,libgsf)
1247        ("libxml2" ,libxml2)))
1248     (propagated-inputs
1249      ;; librsvg-2.0.pc refers to all of that.
1250      `(("cairo" ,cairo)
1251        ("gdk-pixbuf" ,gdk-pixbuf)
1252        ("glib" ,glib)))
1253     (home-page "https://wiki.gnome.org/LibRsvg")
1254     (synopsis "Render SVG files using Cairo")
1255     (description
1256      "Librsvg is a C library to render SVG files using the Cairo 2D graphics
1257 library.")
1258     (license license:lgpl2.0+)))
1259
1260 (define-public libidl
1261   (package
1262     (name "libidl")
1263     (version "0.8.14")
1264     (source (origin
1265               (method url-fetch)
1266               (uri (let ((upstream-name "libIDL"))
1267                      (string-append "mirror://gnome/sources/" upstream-name "/"
1268                                     (version-major+minor version) "/"
1269                                     upstream-name "-" version ".tar.bz2")))
1270               (sha256
1271                (base32
1272                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
1273     (build-system gnu-build-system)
1274     (inputs `(("glib" ,glib)))
1275     (native-inputs
1276      `(("pkg-config" ,pkg-config)
1277        ("flex" ,flex)
1278        ("bison" ,bison)))
1279     (home-page "http://freecode.com/projects/libidl")
1280     (synopsis "Create trees of CORBA Interface Definition Language files")
1281     (description  "Libidl is a library for creating trees of CORBA Interface
1282 Definition Language (idl) files, which is a specification for defining
1283 portable interfaces. libidl was initially written for orbit (the orb from the
1284 GNOME project, and the primary means of libidl distribution).  However, the
1285 functionality was designed to be as reusable and portable as possible.")
1286     (license license:lgpl2.0+)))
1287
1288
1289 (define-public orbit2
1290   (package
1291     (name "orbit2")
1292     (version "2.14.19")
1293     (source (origin
1294               (method url-fetch)
1295               (uri (let ((upstream-name "ORBit2"))
1296                      (string-append "mirror://gnome/sources/" upstream-name "/"
1297                                     (version-major+minor version) "/"
1298                                     upstream-name "-" version ".tar.bz2")))
1299               (sha256
1300                (base32
1301                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
1302     (build-system gnu-build-system)
1303     (arguments
1304      `(#:configure-flags
1305        ;; The programmer kindly gives us a hook to turn off deprecation
1306        ;; warnings ...
1307        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
1308        ;; ... which they then completly ignore !!
1309        #:phases
1310        (modify-phases %standard-phases
1311          (add-before 'configure 'ignore-deprecations
1312            (lambda _
1313              (substitute* "linc2/src/Makefile.in"
1314                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
1315              #t)))))
1316     (inputs `(("glib" ,glib)
1317               ("libidl" ,libidl)))
1318     (native-inputs
1319      `(("pkg-config" ,pkg-config)))
1320     (home-page "https://projects.gnome.org/orbit2/")
1321     (synopsis "CORBA 2.4-compliant Object Request Broker")
1322     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
1323 featuring mature C, C++ and Python bindings.")
1324     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
1325     ;; a version.  SOME of the code files have licence notices for GPLv2+.
1326     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
1327     (license license:gpl2+)))
1328
1329
1330 (define-public libbonobo
1331   (package
1332     (name "libbonobo")
1333     (version "2.32.1")
1334     (source (origin
1335               (method url-fetch)
1336               (uri (string-append "mirror://gnome/sources/" name "/"
1337                                   (version-major+minor version)
1338                                   "/" name "-" version ".tar.bz2"))
1339               (sha256
1340                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
1341               (patches (search-patches
1342                         "libbonobo-activation-test-race.patch"))))
1343     (build-system gnu-build-system)
1344     (arguments
1345      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
1346      `(#:configure-flags
1347        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
1348        ;; ... which they then completly ignore !!
1349        #:phases
1350        (modify-phases %standard-phases
1351          (add-before 'configure 'ignore-deprecations
1352            (lambda _
1353              (substitute* "activation-server/Makefile.in"
1354                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
1355              #t)))))
1356     (inputs `(("popt" ,popt)
1357               ("libxml2" ,libxml2)))
1358     ;; The following are Required by the .pc file
1359     (propagated-inputs
1360      `(("glib" ,glib)
1361        ("orbit2" ,orbit2)))
1362     (native-inputs
1363      `(("intltool" ,intltool)
1364        ("pkg-config" ,pkg-config)
1365        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1366        ("flex" ,flex)
1367        ("bison" ,bison)))
1368     (home-page "https://developer.gnome.org/libbonobo/")
1369     (synopsis "Framework for creating reusable components for use in GNOME applications")
1370     (description "Bonobo is a framework for creating reusable components for
1371 use in GNOME applications, built on top of CORBA.")
1372     ;; Licence not explicitly stated.  Source files contain no licence notices.
1373     ;; Tarball contains text of both GPLv2 and LGPLv2
1374     ;; GPLv2 covers both conditions
1375     (license license:gpl2+)))
1376
1377
1378 (define-public gconf
1379   (package
1380     (name "gconf")
1381     (version "3.2.6")
1382     (source (origin
1383               (method url-fetch)
1384               (uri
1385                (let ((upstream-name "GConf"))
1386                  (string-append "mirror://gnome/sources/" upstream-name "/"
1387                                 (version-major+minor version) "/"
1388                                 upstream-name "-" version ".tar.xz")))
1389               (sha256
1390                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
1391     (build-system gnu-build-system)
1392     (inputs `(("dbus-glib" ,dbus-glib)
1393               ("libxml2" ,libxml2)))
1394     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
1395                          ("orbit2" ,orbit2)))
1396     (native-inputs
1397      `(("intltool" ,intltool)
1398        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1399        ("pkg-config" ,pkg-config)))
1400     (home-page "https://projects.gnome.org/gconf/")
1401     (synopsis "Store application preferences")
1402     (description "Gconf is a system for storing application preferences.  It
1403 is intended for user preferences; not arbitrary data storage.")
1404     (license license:lgpl2.0+)
1405     (properties '((upstream-name . "GConf")))))
1406
1407
1408 (define-public gnome-mime-data
1409   (package
1410     (name "gnome-mime-data")
1411     (version "2.18.0")
1412     (source (origin
1413               (method url-fetch)
1414               (uri (string-append "mirror://gnome/sources/" name "/"
1415                                   (version-major+minor version)  "/"
1416                                   name "-" version ".tar.bz2"))
1417               (sha256
1418                (base32
1419                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
1420     (build-system gnu-build-system)
1421     (native-inputs
1422      `(("perl" ,perl)
1423        ("intltool" ,intltool)))
1424     (arguments
1425      '(#:phases (modify-phases %standard-phases
1426                   (add-after 'configure 'use-our-intltool
1427                     (lambda _
1428                       ;; Do not use the bundled intltool commands, which lack
1429                       ;; the "dotless @INC" fixes of our 'intltool' package.
1430                       (substitute* (find-files "." "^Makefile$")
1431                         (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
1432                          (string-append "INTLTOOL_" tool " = intltool-"
1433                                         (string-downcase tool) "\n")))
1434                       #t)))))
1435     (home-page "https://www.gnome.org")
1436     (synopsis "Base MIME and Application database for GNOME")
1437     (description  "GNOME Mime Data is a module which contains the base MIME
1438 and Application database for GNOME.  The data stored by this module is
1439 designed to be accessed through the MIME functions in GnomeVFS.")
1440     (license license:gpl2+)))
1441
1442
1443 (define-public gnome-vfs
1444   (package
1445     (name "gnome-vfs")
1446     (version "2.24.4")
1447     (source (origin
1448               (method url-fetch)
1449               (uri (string-append "mirror://gnome/sources/" name "/"
1450                                   (version-major+minor version)  "/"
1451                                   name "-" version ".tar.bz2"))
1452               (sha256
1453                (base32
1454                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
1455     (build-system gnu-build-system)
1456     (arguments
1457      `(#:phases
1458        (modify-phases %standard-phases
1459          (add-before 'configure 'ignore-deprecations
1460            (lambda _
1461              (substitute* '("libgnomevfs/Makefile.in"
1462                             "daemon/Makefile.in")
1463                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
1464              #t))
1465          (add-before 'configure 'patch-test-async-cancel-to-never-fail
1466            (lambda _
1467              (substitute* "test/test-async-cancel.c"
1468                (("EXIT_FAILURE") "77"))
1469              #t)))))
1470     (inputs `(("libxml2" ,libxml2)
1471               ("dbus-glib" ,dbus-glib)
1472               ("gconf" ,gconf)
1473               ("gnome-mime-data" ,gnome-mime-data)
1474               ("zlib" ,zlib)))
1475     (native-inputs
1476      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
1477        ("intltool" ,intltool)
1478        ("pkg-config" ,pkg-config)))
1479     (home-page "https://developer.gnome.org/gnome-vfs/")
1480     (synopsis "Access files and folders in GNOME applications")
1481     (description
1482      "GnomeVFS is the core library used to access files and folders in GNOME
1483 applications.  It provides a file system abstraction which allows applications
1484 to access local and remote files with a single consistent API.")
1485     (license license:lgpl2.0+)))
1486
1487
1488
1489 (define-public libgnome
1490   (package
1491     (name "libgnome")
1492     (version "2.32.1")
1493     (source (origin
1494               (method url-fetch)
1495               (uri (string-append "mirror://gnome/sources/" name "/"
1496                                   (version-major+minor version)  "/"
1497                                   name "-" version ".tar.bz2"))
1498               (sha256
1499                (base32
1500                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
1501               (patches (search-patches "libgnome-encoding.patch"))))
1502     (build-system gnu-build-system)
1503     (arguments
1504      `(#:phases
1505        (modify-phases %standard-phases
1506          (add-before 'configure 'enable-deprecated
1507            (lambda _
1508              (substitute* "libgnome/Makefile.in"
1509                (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
1510              #t)))))
1511     (inputs `(("libxml2" ,libxml2)))
1512     (native-inputs
1513      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
1514        ("intltool" ,intltool)
1515        ("pkg-config" ,pkg-config)))
1516     ;; The following are listed as Required in the .pc file
1517     ;; (except for libcanberra -- which seems to be oversight on the part
1518     ;; of the upstream developers -- anything that links against libgnome,
1519     ;; must also link against libcanberra
1520     (propagated-inputs
1521      `(("libcanberra" ,libcanberra)
1522        ("libbonobo" ,libbonobo)
1523        ("gconf" ,gconf)
1524        ("gnome-vfs" ,gnome-vfs)
1525        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
1526     (home-page "https://developer.gnome.org/libgnome/")
1527     (synopsis "Useful routines for building applications")
1528     (description  "The libgnome library provides a number of useful routines
1529 for building modern applications, including session management, activation of
1530 files and URIs, and displaying help.")
1531     (license license:lgpl2.0+)))
1532
1533
1534 (define-public libart-lgpl
1535   (package
1536     (name "libart-lgpl")
1537     (version "2.3.21")
1538     (source (origin
1539               (method url-fetch)
1540               (uri (let ((upstream-name "libart_lgpl"))
1541                      (string-append "mirror://gnome/sources/" upstream-name "/"
1542                                     (version-major+minor version) "/"
1543                                     upstream-name "-" version ".tar.bz2")))
1544               (sha256
1545                (base32
1546                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
1547     (build-system gnu-build-system)
1548     (native-inputs
1549      `(("pkg-config" ,pkg-config)))
1550     (home-page "https://people.gnome.org/~mathieu/libart")
1551     (synopsis "2D drawing library")
1552     (description  "Libart is a 2D drawing library intended as a
1553 high-quality vector-based 2D library with antialiasing and alpha composition.")
1554     (license license:lgpl2.0+)))
1555
1556
1557
1558 (define-public libgnomecanvas
1559   (package
1560     (name "libgnomecanvas")
1561     (version "2.30.3")
1562     (source (origin
1563               (method url-fetch)
1564               (uri (string-append "mirror://gnome/sources/" name "/"
1565                                   (version-major+minor version)  "/"
1566                                   name "-" version ".tar.gz"))
1567               (sha256
1568                (base32
1569                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
1570     (build-system gnu-build-system)
1571     ;; Mentioned as Required in the .pc file
1572     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
1573                          ("gtk+" ,gtk+-2)))
1574     (native-inputs
1575      `(("intltool" ,intltool)
1576        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1577        ("pkg-config" ,pkg-config)))
1578     (home-page "https://developer.gnome.org/libgnomecanvas/")
1579     (synopsis "Flexible widget for creating interactive structured graphics")
1580     (description  "The GnomeCanvas widget provides a flexible widget for
1581 creating interactive structured graphics.")
1582     (license license:lgpl2.0+)))
1583
1584 (define-public libgnomecanvasmm
1585   (package
1586     (name "libgnomecanvasmm")
1587     (version "2.26.0")
1588     (source (origin
1589               (method url-fetch)
1590               (uri (string-append "mirror://gnome/sources/" name "/"
1591                                   (version-major+minor version)  "/"
1592                                   name "-" version ".tar.bz2"))
1593               (sha256
1594                (base32
1595                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
1596     (build-system gnu-build-system)
1597     (arguments
1598      '(#:configure-flags '("CXXFLAGS=-std=c++11"))) ; required by gtkmm
1599     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
1600     (native-inputs
1601      `(("gtkmm-2" ,gtkmm-2)
1602        ("pkg-config" ,pkg-config)))
1603     (home-page "https://gtkmm.org")
1604     (synopsis "C++ bindings to the GNOME Canvas library")
1605     (description "C++ bindings to the GNOME Canvas library.")
1606     (license license:lgpl2.0+)))
1607
1608 (define-public libgnomeui
1609   (package
1610     (name "libgnomeui")
1611     (version "2.24.5")
1612     (source (origin
1613               (method url-fetch)
1614               (uri (string-append "mirror://gnome/sources/" name "/"
1615                                   (version-major+minor version)  "/"
1616                                   name "-" version ".tar.bz2"))
1617               (patches (search-patches "libgnomeui-utf8.patch"))
1618               (sha256
1619                (base32
1620                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
1621     (build-system gnu-build-system)
1622     ;; Mentioned as Required in the .pc file
1623     (propagated-inputs `(("libbonoboui" ,libbonoboui)
1624                          ("libgnome" ,libgnome)
1625                          ("libgnomecanvas" ,libgnomecanvas)
1626                          ("libgnome-keyring" ,libgnome-keyring)))
1627     (inputs `(("libjpeg" ,libjpeg)
1628               ("popt" ,popt)
1629               ("libbonobo" ,libbonobo)
1630               ("libxml2" ,libxml2)
1631               ("libglade" ,libglade)))
1632     (native-inputs
1633      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
1634        ("intltool" ,intltool)
1635        ("pkg-config" ,pkg-config)))
1636     (home-page "https://developer.gnome.org/libgnomeui/")
1637     (synopsis "Additional widgets for applications")
1638     (description "The libgnomeui library provides additional widgets for
1639 applications.  Many of the widgets from libgnomeui have already been
1640 ported to GTK+.")
1641     (license license:lgpl2.0+)))
1642
1643 (define-public libglade
1644   (package
1645     (name "libglade")
1646     (version "2.6.4")
1647     (source (origin
1648               (method url-fetch)
1649               (uri (string-append "mirror://gnome/sources/" name "/"
1650                                   (version-major+minor version)  "/"
1651                                   name "-" version ".tar.bz2"))
1652               (sha256
1653                (base32
1654                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
1655     (build-system gnu-build-system)
1656     (inputs
1657      `(("python" ,python))) ;; needed for the optional libglade-convert program
1658     (propagated-inputs
1659      `(("gtk+-2" ,gtk+-2)
1660        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
1661     (native-inputs
1662      `(("pkg-config" ,pkg-config)))
1663     (home-page "https://developer.gnome.org/libglade")
1664     (synopsis "Load glade interfaces and access the glade built widgets")
1665     (description "Libglade is a library that provides interfaces for loading
1666 graphical interfaces described in glade files and for accessing the
1667 widgets built in the loading process.")
1668     (license license:gpl2+))) ; This is correct.  GPL not LGPL
1669
1670 (define-public libgnomeprint
1671   ;; This library has been deprecated since 2006; see
1672   ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
1673   (package
1674     (name "libgnomeprint")
1675     (version "2.8.2")
1676     (source (origin
1677               (method url-fetch)
1678               (uri (string-append "mirror://gnome/sources/" name "/"
1679                                   (version-major+minor version)  "/"
1680                                   name "-" version ".tar.bz2"))
1681               (sha256
1682                (base32
1683                 "129ka3nn8gx9dlfry17ib79azxk45wzfv5rgqzw6dwx2b5ns8phm"))))
1684     (build-system gnu-build-system)
1685     (inputs
1686      `(("popt" ,popt)
1687        ("libart-lgpl" ,libart-lgpl)
1688        ("gtk+" ,gtk+-2)
1689        ("libxml2" ,libxml2)))
1690     (native-inputs
1691      `(("intltool" ,intltool)
1692        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1693        ("pkg-config" ,pkg-config)))
1694     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
1695     (synopsis "Printing framework for GNOME")
1696     (description
1697      "GNOME-print was a printing framework for GNOME.  It has been deprecated
1698 since ca. 2006, when GTK+ itself incorporated printing support.")
1699     (license license:lgpl2.0+)))
1700
1701
1702 (define-public libgnomeprintui
1703   ;; Deprecated; see libgnomeprint.
1704   (package
1705     (name "libgnomeprintui")
1706     (version "2.8.2")
1707     (source (origin
1708               (method url-fetch)
1709               (uri (string-append "mirror://gnome/sources/" name "/"
1710                                   (version-major+minor version)  "/"
1711                                   name "-" version ".tar.bz2"))
1712               (sha256
1713                (base32
1714                 "1ivipk7r61rg90p9kp889j28xlyyj6466ypvwa4jvnrcllnaajsw"))))
1715     (build-system gnu-build-system)
1716     ;; Mentioned as Required in the .pc file
1717     (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
1718     (inputs `(("gtk+" ,gtk+-2)
1719               ("glib" ,glib)
1720               ("gnome-icon-theme" ,gnome-icon-theme)
1721               ("libgnomecanvas" ,libgnomecanvas)
1722               ("libxml2" ,libxml2)))
1723     (native-inputs
1724      `(("intltool" ,intltool)
1725        ("pkg-config" ,pkg-config)))
1726     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
1727     (synopsis "Printing framework for GNOME")
1728     (description (package-description libgnomeprint))
1729     (license license:lgpl2.0+)))
1730
1731 (define-public libbonoboui
1732   (package
1733     (name "libbonoboui")
1734     (version "2.24.5")
1735     (source (origin
1736               (method url-fetch)
1737               (uri (string-append "mirror://gnome/sources/" name "/"
1738                                   (version-major+minor version)  "/"
1739                                   name "-" version ".tar.bz2"))
1740               (sha256
1741                (base32
1742                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
1743     (build-system gnu-build-system)
1744     (arguments
1745      `(#:phases
1746        (modify-phases %standard-phases
1747          (add-before 'check 'start-xserver
1748            (lambda* (#:key inputs #:allow-other-keys)
1749              (let ((xorg-server (assoc-ref inputs "xorg-server"))
1750                    (disp ":1"))
1751
1752                (setenv "HOME" (getcwd))
1753                (setenv "DISPLAY" disp)
1754                ;; There must be a running X server and make check doesn't start one.
1755                ;; Therefore we must do it.
1756                (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
1757     ;; Mentioned as Required by the .pc file
1758     (propagated-inputs `(("libxml2" ,libxml2)))
1759     (inputs
1760      `(("popt" ,popt)
1761        ("pangox-compat" ,pangox-compat)
1762        ("libgnome" ,libgnome)
1763        ("libgnomecanvas" ,libgnomecanvas)
1764        ("libglade" ,libglade)))
1765     (native-inputs
1766      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1767        ("intltool" ,intltool)
1768        ("xorg-server" ,xorg-server) ; For running the tests
1769        ("pkg-config" ,pkg-config)))
1770     (home-page "https://developer.gnome.org/libbonoboui/")
1771     (synopsis "Some user interface controls using Bonobo")
1772     (description  "The Bonobo UI library provides a number of user interface
1773 controls using the Bonobo component framework.")
1774     (license license:lgpl2.0+)))
1775
1776 (define-public libwnck
1777   (package
1778     (name "libwnck")
1779     (version "3.24.1")
1780     (source (origin
1781               (method url-fetch)
1782               (uri (string-append "mirror://gnome/sources/" name "/"
1783                                   (version-major+minor version) "/"
1784                                   name "-" version ".tar.xz"))
1785               (sha256
1786                (base32
1787                 "010zk9zvydggxqnxfml3scml5yxmpjy90irpqcayrzw26lldr9mg"))))
1788     (build-system gnu-build-system)
1789     (native-inputs
1790      `(("pkg-config" ,pkg-config)
1791        ("intltool" ,intltool)))
1792     (propagated-inputs
1793      `(("gtk+" ,gtk+)
1794        ("libxres" ,libxres)
1795        ("startup-notification" ,startup-notification)))
1796     (home-page "https://developer.gnome.org/libwnck/")
1797     (synopsis "Window Navigator Construction Kit")
1798     (description
1799      "Libwnck is the Window Navigator Construction Kit, a library for use in
1800 writing pagers, tasklists, and more generally applications that are dealing
1801 with window management.  It tries hard to respect the Extended Window Manager
1802 Hints specification (EWMH).")
1803     (license license:lgpl2.0+)))
1804
1805 ;; stable version for gtk2, required by xfwm4.
1806 (define-public libwnck-2
1807   (package (inherit libwnck)
1808     (name "libwnck")
1809     (version "2.30.7")
1810     (source (origin
1811               (method url-fetch)
1812               (uri (string-append "mirror://gnome/sources/" name "/"
1813                                   (version-major+minor version) "/"
1814                                   name "-" version ".tar.xz"))
1815               (sha256
1816                (base32
1817                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
1818     (propagated-inputs
1819      `(("gtk+" ,gtk+-2)
1820        ("libxres" ,libxres)
1821        ("startup-notification" ,startup-notification)))))
1822
1823 (define-public goffice
1824   (package
1825     (name "goffice")
1826     (version "0.10.36")
1827     (source (origin
1828               (method url-fetch)
1829               (uri (string-append "mirror://gnome/sources/" name "/"
1830                                   (version-major+minor version)  "/"
1831                                   name "-" version ".tar.xz"))
1832               (sha256
1833                (base32 "1mma1gp179dh7kvwzd7q3mwg0719hhbm9f5sqw28flv5lv05zrng"))))
1834     (build-system gnu-build-system)
1835     (outputs '("out"
1836                "doc"))                            ;4.1 MiB of gtk-doc
1837     (arguments
1838      '(#:configure-flags (list (string-append "--with-html-dir="
1839                                               (assoc-ref %outputs "doc")
1840                                               "/share/gtk-doc/html"))))
1841     (inputs
1842      `(("gtk+" ,gtk+)
1843        ("libgsf" ,libgsf)
1844        ("librsvg" ,librsvg)
1845        ("libxslt" ,libxslt)
1846        ("libxml2" ,libxml2)))
1847     (native-inputs
1848      `(("intltool" ,intltool)
1849        ("glib" ,glib "bin")
1850        ("pkg-config" ,pkg-config)))
1851     (home-page "https://developer.gnome.org/goffice/")
1852     (synopsis "Document-centric objects and utilities")
1853     (description "A GLib/GTK+ set of document-centric objects and utilities.")
1854     (license
1855      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
1856      ;; Note: NOT LGPL
1857      (list license:gpl2 license:gpl3))))
1858
1859 (define-public goffice-0.8
1860   (package (inherit goffice)
1861     (version "0.8.17")
1862     (source (origin
1863               (method url-fetch)
1864               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
1865                                   (version-major+minor version)  "/"
1866                                   (package-name goffice) "-" version ".tar.xz"))
1867               (sha256
1868                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
1869     (arguments
1870      `(#:phases
1871        (modify-phases %standard-phases
1872          (add-after 'unpack 'fix-pcre-check
1873            (lambda _
1874              ;; Only glib.h can be included directly.  See
1875              ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
1876              (substitute* "configure"
1877                (("glib/gregex\\.h") "glib.h")) #t)))
1878
1879        ,@(package-arguments goffice)))
1880     (propagated-inputs
1881      ;; libgoffice-0.8.pc mentions libgsf-1
1882      `(("libgsf" ,libgsf)))
1883     (inputs
1884      `(("gtk" ,gtk+-2)
1885        ,@(alist-delete "gtk" (package-inputs goffice))))))
1886
1887 (define-public gnumeric
1888   (package
1889     (name "gnumeric")
1890     (version "1.12.36")
1891     (source (origin
1892               (method url-fetch)
1893               (uri (string-append "mirror://gnome/sources/" name "/"
1894                                   (version-major+minor version)  "/"
1895                                   name "-" version ".tar.xz"))
1896               (sha256
1897                (base32
1898                 "0j28qpbz9a9p80x27kcwxl5n1hf36nn2fa7dxwrbhcdx4rgy5grw"))))
1899     (build-system glib-or-gtk-build-system)
1900     (arguments
1901      `(;; The gnumeric developers don't worry much about failing tests.
1902        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
1903        #:tests? #f
1904        #:phases
1905        (modify-phases %standard-phases
1906          (add-before
1907           'configure 'pre-conf
1908            (lambda* (#:key outputs #:allow-other-keys)
1909              ;; Make install tries to write into the directory of goffice
1910              ;; I am informed that this only affects the possibility to embed a
1911              ;; spreadsheet inside an Abiword document.   So presumably when we
1912              ;; package Abiword we'll have to refer it to this directory.
1913              (substitute* "configure"
1914                (("^GOFFICE_PLUGINS_DIR=.*")
1915                 (string-append "GOFFICE_PLUGINS_DIR="
1916                                (assoc-ref outputs "out")
1917                                "/goffice/plugins"))))))))
1918     (inputs
1919      `(("glib" ,glib)
1920        ("gtk+" ,gtk+)
1921        ("goffice" ,goffice)
1922        ("libgsf" ,libgsf)
1923        ("librsvg" ,librsvg)
1924        ("libxml2" ,libxml2)
1925        ("libxslt" ,libxslt)
1926        ("python" ,python-2)
1927        ("python2-pygobject" ,python2-pygobject)
1928        ("zlib" ,zlib)))
1929     (native-inputs
1930      `(("bison" ,bison)
1931        ("docbook-xml" ,docbook-xml)
1932        ("intltool" ,intltool)
1933        ("itstool" ,itstool)
1934        ("glib:bin" ,glib "bin")
1935        ("pkg-config" ,pkg-config)))
1936     (home-page "http://www.gnumeric.org")
1937     (synopsis "Spreadsheet application")
1938     (description
1939      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
1940 interoperable with other spreadsheet applications.  It has a vast array of
1941 features beyond typical spreadsheet functionality, such as support for linear
1942 and non-linear solvers, statistical analysis, and telecommunication
1943 engineering.")
1944     (license
1945     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
1946      (list license:gpl2 license:gpl3))))
1947
1948 (define-public gnome-themes-standard
1949   (package
1950     (name "gnome-themes-standard")
1951     (version "3.22.3")
1952     (source
1953      (origin
1954        (method url-fetch)
1955        (uri (string-append "mirror://gnome/sources/" name "/"
1956                            (version-major+minor version) "/" name "-"
1957                            version ".tar.xz"))
1958        (sha256
1959         (base32
1960          "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
1961     (build-system gnu-build-system)
1962     (arguments
1963      '(#:configure-flags
1964        ;; Don't create 'icon-theme.cache'.
1965        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
1966               (true      (string-append coreutils "/bin/true")))
1967          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
1968     (inputs
1969      `(("gtk+" ,gtk+)
1970        ("gtk+-2" ,gtk+-2)
1971        ("librsvg" ,librsvg)
1972        ("libxml2" ,libxml2)
1973        ("glib" ,glib)))
1974     (native-inputs
1975      `(("intltool" ,intltool)
1976        ("glib:bin" ,glib "bin")
1977        ("pkg-config" ,pkg-config)))
1978     (home-page "https://launchpad.net/gnome-themes-standard")
1979     (synopsis "Default GNOME 3 themes")
1980     (description
1981      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
1982     (license license:lgpl2.1+)))
1983
1984 (define-public seahorse
1985   (package
1986     (name "seahorse")
1987     (version "3.20.0")
1988     (source
1989      (origin
1990        (method url-fetch)
1991        (uri (string-append "mirror://gnome/sources/" name "/"
1992                            (version-major+minor version) "/" name "-"
1993                            version ".tar.xz"))
1994        (sha256
1995         (base32
1996          "1py6fj19kb8aaxvg6yrpd0876azc2zjvis98aqz37a2lxmhp9c72"))))
1997     (build-system glib-or-gtk-build-system)
1998     (inputs
1999      `(("gtk+" ,gtk+)
2000        ("gcr" ,gcr)
2001        ("gnupg" ,gnupg)
2002        ("gpgme" ,gpgme)
2003        ("openldap" ,openldap)
2004        ("openssh" ,openssh)
2005        ("libsecret" ,libsecret)
2006        ("libsoup" ,libsoup)))
2007     (native-inputs
2008      `(("intltool" ,intltool)
2009        ("glib:bin" ,glib "bin")
2010        ("itstool" ,itstool)
2011        ("pkg-config" ,pkg-config)
2012        ("xmllint" ,libxml2)))
2013     (home-page "https://launchpad.net/gnome-themes-standard")
2014     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
2015     (description
2016      "Seahorse is a GNOME application for managing encryption keys and
2017 passwords in the GNOME keyring.")
2018     (license license:gpl2+)))
2019
2020 (define-public vala
2021   (package
2022     (name "vala")
2023     (version "0.36.3")
2024     (source (origin
2025               (method url-fetch)
2026               (uri (string-append "mirror://gnome/sources/" name "/"
2027                                   (version-major+minor version) "/"
2028                                   name "-" version ".tar.xz"))
2029               (sha256
2030                (base32
2031                 "0706izk9prxqclm7gv4f63diwnlc1llvfl5sc9ghqbgn076lx2mc"))))
2032     (build-system gnu-build-system)
2033     (arguments
2034      '(#:phases
2035        (modify-phases %standard-phases
2036          (add-before 'check 'pre-check
2037                      (lambda _
2038                        (setenv "CC" "gcc")
2039                        ;; For missing '/etc/machine-id'.
2040                        (setenv "DBUS_FATAL_WARNINGS" "0")
2041                        #t)))
2042        ;; Build the Vala API generator
2043        #:configure-flags '("--enable-vapigen")))
2044     (native-inputs
2045      `(("pkg-config" ,pkg-config)
2046        ("flex" ,flex)
2047        ("bison" ,bison)
2048        ("xsltproc" ,libxslt)
2049        ("dbus" ,dbus)                                     ; for dbus tests
2050        ("gobject-introspection" ,gobject-introspection))) ; for gir tests
2051     (propagated-inputs
2052      `(("glib" ,glib))) ; required by libvala-0.26.pc
2053     (home-page "https://live.gnome.org/Vala/")
2054     (synopsis "Compiler for the GObject type system")
2055     (description
2056      "Vala is a programming language that aims to bring modern programming
2057 language features to GNOME developers without imposing any additional runtime
2058 requirements and without using a different ABI compared to applications and
2059 libraries written in C.")
2060     (license license:lgpl2.1+)))
2061
2062 (define-public vte
2063   (package
2064     (name "vte")
2065     (version "0.52.1")
2066     (source (origin
2067               (method url-fetch)
2068               (uri (string-append "mirror://gnome/sources/" name "/"
2069                                   (version-major+minor version) "/"
2070                                   name "-" version ".tar.xz"))
2071               (sha256
2072                (base32
2073                 "1lva70inb5y8p42rg95fb88z2ybwcz0lybla3ixbgp2sj0s4rzdh"))))
2074     (build-system gnu-build-system)
2075     (native-inputs
2076      `(("pkg-config" ,pkg-config)
2077        ("intltool" ,intltool)
2078        ("vala" ,vala)
2079        ("gobject-introspection" ,gobject-introspection)
2080        ("glib" ,glib "bin") ; for glib-genmarshal, etc.
2081        ("gperf" ,gperf)
2082        ("xmllint" ,libxml2)))
2083     (propagated-inputs
2084      `(("gtk+" ,gtk+)                             ;required by vte-2.91.pc
2085        ("gnutls" ,gnutls)                         ;ditto
2086        ("pcre2" ,pcre2)))                         ;ditto
2087     (home-page "https://www.gnome.org/")
2088     (synopsis "Virtual Terminal Emulator")
2089     (description
2090      "VTE is a library (libvte) implementing a terminal emulator widget for
2091 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
2092 gnome-terminal, but can also be used to embed a console/terminal in games,
2093 editors, IDEs, etc.")
2094     (license license:lgpl2.1+)))
2095
2096 (define-public vte-ng
2097   (package
2098     (inherit vte)
2099     (name "vte-ng")
2100     (version "0.50.2.a")
2101     (native-inputs
2102      `(("gtk-doc" ,gtk-doc)
2103        ("gperf" ,gperf)
2104        ("autoconf" ,autoconf)
2105        ("automake" ,automake)
2106        ("libtool" ,libtool)
2107        ,@(package-native-inputs vte)))
2108     (source (origin
2109               (method url-fetch)
2110               (uri (string-append "https://github.com/thestinger/"
2111                                   name "/archive/" version ".tar.gz"))
2112               (file-name (string-append name "-" version ".tar.gz"))
2113               (sha256
2114                (base32
2115                 "0sv666ilid916ja6gw2d376nyyy66gvhsds8ans02x4b7gagj5sx"))))
2116     (arguments
2117       `(#:configure-flags '("CXXFLAGS=-Wformat=0")
2118         #:phases (modify-phases %standard-phases
2119                    (replace 'bootstrap
2120                     (lambda _
2121                       (setenv "NOCONFIGURE" "true")
2122                       (zero? (system* "sh" "autogen.sh")))))))
2123   (synopsis "Enhanced VTE terminal widget")
2124   (description
2125    "VTE is a library (libvte) implementing a terminal emulator widget for
2126 GTK+, this fork provides additional functions exposed for keyboard text
2127 selection and URL hints.")))
2128
2129 ;; provides vte 2.90, required for some terminal emulators
2130 ;; tilda bug: https://github.com/lanoxx/tilda/issues/94
2131 ;; pantheon-terminal bug: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=788021
2132 ;; roxterm bug: http://sourceforge.net/p/roxterm/bugs/107/
2133 ;; pantheon-terminal, roxterm are not currently packaged
2134 (define-public vte-0.36
2135   (package (inherit vte)
2136     (name "vte")
2137     (version "0.36.5")
2138     (source (origin
2139               (method url-fetch)
2140               (uri (string-append "mirror://gnome/sources/" name "/"
2141                                   (version-major+minor version) "/"
2142                                   name "-" version ".tar.xz"))
2143               (sha256
2144                (base32
2145                 "1psfnqsmxx4qzc55qwvb8jai824ix4pqcdqhgxk0g2zh82bcxhn2"))))
2146     (propagated-inputs
2147      `(("gtk" ,gtk+)
2148        ("ncurses" ,ncurses)))))
2149
2150 ;; stable version for gtk2, required by xfce4-terminal.
2151 (define-public vte/gtk+-2
2152   (package (inherit vte)
2153     (name "vte")
2154     (version "0.28.2")
2155     (source (origin
2156               (method url-fetch)
2157               (uri (string-append "mirror://gnome/sources/" name "/"
2158                                   (version-major+minor version) "/"
2159                                   name "-" version ".tar.xz"))
2160               (sha256
2161                (base32
2162                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
2163               (patches (search-patches
2164                          "vte-CVE-2012-2738-pt1.patch"
2165                          "vte-CVE-2012-2738-pt2.patch"))))
2166     (arguments
2167      '(#:configure-flags '("--disable-python")))
2168     (native-inputs
2169      `(("pkg-config" ,pkg-config)
2170        ("intltool" ,intltool)
2171        ("glib" ,glib "bin")))   ; for glib-genmarshal, etc.
2172     (propagated-inputs
2173      `(("gtk+" ,gtk+-2)         ; required by libvte.pc
2174        ("ncurses" ,ncurses))))) ; required by libvte.la
2175
2176 (define-public vinagre
2177   (package
2178     (name "vinagre")
2179     (version "3.22.0")
2180     (source (origin
2181               (method url-fetch)
2182               (uri (string-append "mirror://gnome/sources/" name "/"
2183                                   (version-major+minor version) "/"
2184                                   name "-" version ".tar.xz"))
2185               (patches ; We have to revert 2 commits to build against freerdp 1.1.
2186                (search-patches "vinagre-revert-1.patch"
2187                                "vinagre-revert-2.patch"))
2188               (sha256
2189                (base32
2190                 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
2191     (build-system glib-or-gtk-build-system)
2192     (native-inputs
2193      `(("pkg-config" ,pkg-config)
2194        ("intltool" ,intltool)
2195        ("itstool" ,itstool)
2196        ("glib-bin" ,glib "bin")                   ;for glib-compile-schemas
2197        ("gtk+-bin" ,gtk+ "bin")))                 ;for gtk-update-icon-cache
2198     (inputs
2199      `(("libxml2" ,libxml2)
2200        ("gtk-vnc" ,gtk-vnc)
2201        ("gnome-keyring" ,gnome-keyring)
2202        ("libsecret" ,libsecret)
2203        ("freerdp" ,freerdp)
2204        ("spice" ,spice)
2205        ("spice-gtk" ,spice-gtk)
2206        ("telepathy-glib" ,telepathy-glib)
2207        ("vte" ,vte)))
2208     (arguments
2209      `(#:configure-flags '("--enable-rdp")))
2210     (home-page "https://wiki.gnome.org/Apps/Vinagre")
2211     (synopsis "Remote desktop viewer for GNOME")
2212     (description "Vinagre is a remote display client supporting the VNC, SPICE
2213 and RDP protocols.")
2214     (license license:gpl3+)))
2215
2216 (define-public dconf
2217   (package
2218     (name "dconf")
2219     (version "0.26.1")
2220     (source (origin
2221               (method url-fetch)
2222               (uri (string-append
2223                     "mirror://gnome/sources/" name "/"
2224                     (version-major+minor version) "/"
2225                     name "-" version ".tar.xz"))
2226               (sha256
2227                (base32
2228                 "0da587hpiqy8h3pswn1102h4b905x8k6mk3ajpi7kf4kzkvv30ym"))))
2229     (build-system glib-or-gtk-build-system)
2230     (inputs
2231      `(("gtk+" ,gtk+)
2232        ("glib" ,glib)
2233        ("dbus" ,dbus)
2234        ("libxml2" ,libxml2)))
2235     (native-inputs
2236      `(("libxslt" ,libxslt)
2237        ("docbook-xml" ,docbook-xml-4.2)
2238        ("docbook-xsl" ,docbook-xsl)
2239        ("intltool" ,intltool)
2240        ("pkg-config" ,pkg-config)))
2241     (arguments
2242      `(#:tests? #f ; To contact dbus it needs to load /var/lib/dbus/machine-id
2243                    ; or /etc/machine-id.
2244        #:configure-flags
2245        ;; Set the correct RUNPATH in binaries.
2246        (list (string-append "LDFLAGS=-Wl,-rpath="
2247                             (assoc-ref %outputs "out") "/lib")
2248              "--disable-gtk-doc-html") ; FIXME: requires gtk-doc
2249        #:phases
2250        (modify-phases %standard-phases
2251          (add-before 'configure 'fix-docbook
2252            (lambda* (#:key inputs #:allow-other-keys)
2253              (substitute* "docs/Makefile.in"
2254                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2255                 (string-append (assoc-ref inputs "docbook-xsl")
2256                                "/xml/xsl/docbook-xsl-"
2257                                ,(package-version docbook-xsl)
2258                                "/manpages/docbook.xsl")))
2259              (setenv "XML_CATALOG_FILES"
2260                      (string-append (assoc-ref inputs "docbook-xml")
2261                                     "/xml/dtd/docbook/catalog.xml"))
2262              #t)))))
2263     (home-page "https://developer.gnome.org/dconf")
2264     (synopsis "Low-level GNOME configuration system")
2265     (description "Dconf is a low-level configuration system.  Its main purpose
2266 is to provide a backend to GSettings on platforms that don't already have
2267 configuration storage systems.")
2268     (license license:lgpl2.1)))
2269
2270 (define-public json-glib
2271   (package
2272     (name "json-glib")
2273     (version "1.4.2")
2274     (source (origin
2275               (method url-fetch)
2276               (uri (string-append "mirror://gnome/sources/" name "/"
2277                                   (version-major+minor version) "/"
2278                                   name "-" version ".tar.xz"))
2279               (patches (search-patches "json-glib-fix-tests-32bit.patch"))
2280               (sha256
2281                (base32
2282                 "1j3dd2xj1l9fi12m1gpmfgf5p4c1w0i970m6k62k3is98yj0jxrd"))))
2283     (build-system meson-build-system)
2284     (native-inputs
2285      `(("gettext" ,gettext-minimal)
2286        ("glib" ,glib "bin")              ;for glib-mkenums and glib-genmarshal
2287        ("gobject-introspection" ,gobject-introspection)
2288        ("pkg-config" ,pkg-config)))
2289     (propagated-inputs
2290      `(("glib" ,glib)))                         ;according to json-glib-1.0.pc
2291     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
2292     (synopsis "Compiler for the GObject type system")
2293     (description
2294      "JSON-GLib is a C library based on GLib providing serialization and
2295 deserialization support for the JavaScript Object Notation (JSON) format
2296 described by RFC 4627.  It provides parser and generator GObject classes and
2297 various wrappers for the complex data types employed by JSON, such as arrays
2298 and objects.")
2299     (license license:lgpl2.1+)))
2300
2301 (define-public libxklavier
2302   (package
2303     (name "libxklavier")
2304     (version "5.3")
2305     (source (origin
2306               (method url-fetch)
2307               (uri (string-append "mirror://gnome/sources/" name "/"
2308                                   version "/" name "-" version ".tar.xz"))
2309               (sha256
2310                (base32
2311                 "016lpdv35z0qsw1cprdc2k5qzkdi5waj6qmr0a2q6ljn9g2kpv7b"))))
2312     (build-system gnu-build-system)
2313     (arguments
2314      '(#:configure-flags
2315        (list (string-append "--with-xkb-base="
2316                             (assoc-ref %build-inputs "xkeyboard-config")
2317                             "/share/X11/xkb"))))
2318     (native-inputs
2319      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
2320        ("gobject-introspection" ,gobject-introspection)
2321        ("pkg-config"            ,pkg-config)))
2322     (propagated-inputs
2323      ;; Required by libxklavier.pc.
2324      `(("glib"    ,glib)
2325        ("libxml2" ,libxml2)))
2326     (inputs
2327      `(("iso-codes"        ,iso-codes)
2328        ("libxi"            ,libxi)
2329        ("libxkbfile"       ,libxkbfile)
2330        ("xkbcomp"          ,xkbcomp)
2331        ("xkeyboard-config" ,xkeyboard-config)))
2332     (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
2333     (synopsis "High-level API for X Keyboard Extension")
2334     (description
2335      "LibXklavier is a library providing high-level API for X Keyboard
2336 Extension known as XKB.  This library is intended to support XFree86 and other
2337 commercial X servers.  It is useful for creating XKB-related software (layout
2338 indicators etc).")
2339     (license license:lgpl2.0+)))
2340
2341 (define-public python2-rsvg
2342   ;; XXX: This is actually a subset of gnome-python-desktop.
2343   (package
2344     (name "python2-rsvg")
2345     (version "2.32.0")
2346     (source
2347      (origin
2348        (method url-fetch)
2349        (uri (string-append
2350              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
2351              version ".tar.bz2"))
2352        (sha256
2353         (base32
2354          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
2355     (build-system gnu-build-system)
2356     (native-inputs
2357      `(("pkg-config" ,pkg-config)))
2358     (inputs
2359      `(("python" ,python-2)
2360        ("python2-pygtk" ,python2-pygtk)
2361        ("librsvg" ,librsvg)))
2362     (home-page "https://www.gnome.org")
2363     (synopsis "Python bindings to librsvg")
2364     (description
2365      "This packages provides Python bindings to librsvg, the SVG rendering
2366 library.")
2367
2368     ;; This is the license of the rsvg bindings.  The license of each module
2369     ;; of gnome-python-desktop is given in 'COPYING'.
2370     (license license:lgpl2.1+)))
2371
2372 (define-public glib-networking
2373   (package
2374     (name "glib-networking")
2375     (version "2.54.1")
2376     (source (origin
2377               (method url-fetch)
2378               (uri (string-append "mirror://gnome/sources/glib-networking/"
2379                                   (version-major+minor version) "/"
2380                                   name "-" version ".tar.xz"))
2381               (sha256
2382                (base32
2383                 "0bq16m9nh3gcz9x2fvygr0iwxd2pxcbrm3lj3kihsnh1afv8g9za"))
2384               (patches
2385                (search-patches "glib-networking-ssl-cert-file.patch"))))
2386     (build-system gnu-build-system)
2387     (arguments
2388      `(#:configure-flags
2389        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")
2390        #:phases
2391        (modify-phases %standard-phases
2392          (add-before 'configure 'patch-giomoduledir
2393            ;; Install GIO modules into $out/lib/gio/modules.
2394            (lambda _
2395              (substitute* "configure"
2396                (("GIO_MODULE_DIR=.*")
2397                 (string-append "GIO_MODULE_DIR=" %output
2398                                "/lib/gio/modules\n")))
2399              #t))
2400          (add-before 'check 'use-empty-ssl-cert-file
2401            (lambda _
2402              ;; The ca-certificates.crt is not available in the build
2403              ;; environment.
2404              (setenv "SSL_CERT_FILE" "/dev/null")
2405              #t)))))
2406     (native-inputs
2407      `(("pkg-config" ,pkg-config)
2408        ("intltool" ,intltool)))
2409     (inputs
2410      `(("glib" ,glib)
2411        ("gnutls" ,gnutls)
2412        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2413        ("p11-kit" ,p11-kit)))
2414     (home-page "https://www.gnome.org")
2415     (synopsis "Network-related GIO modules")
2416     (description
2417      "This package contains various network related extensions for the GIO
2418 library.")
2419     (license license:lgpl2.0+)))
2420
2421 (define-public rest
2422   (package
2423     (name "rest")
2424     (version "0.8.1")
2425     (source (origin
2426               (method url-fetch)
2427               (uri (string-append "mirror://gnome/sources/rest/"
2428                                   (version-major+minor version) "/"
2429                                   name "-" version ".tar.xz"))
2430               (sha256
2431                (base32
2432                 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
2433     (build-system gnu-build-system)
2434     (arguments
2435      '(#:tests? #f ; tests require internet connection
2436        #:configure-flags
2437        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
2438     (native-inputs
2439      `(("glib-mkenums" ,glib "bin")
2440        ("gobject-introspection" ,gobject-introspection)
2441        ("pkg-config" ,pkg-config)))
2442     (propagated-inputs
2443      ;; rest-0.7.pc refers to all these.
2444      `(("glib"    ,glib)
2445        ("libsoup" ,libsoup)
2446        ("libxml2" ,libxml2)))
2447     (home-page "http://www.gtk.org/")
2448     (synopsis "RESTful web api query library")
2449     (description
2450      "This library was designed to make it easier to access web services that
2451 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
2452 libxml to ease remote use of the RESTful API.")
2453     (license license:lgpl2.1+)))
2454
2455 (define-public libsoup
2456   (package
2457     (name "libsoup")
2458     (version "2.62.1")
2459     (source (origin
2460               (method url-fetch)
2461               (uri (string-append "mirror://gnome/sources/libsoup/"
2462                                   (version-major+minor version) "/"
2463                                   name "-" version ".tar.xz"))
2464               (sha256
2465                (base32
2466                 "1mw3b3j4f4ln7hl03jd296rx78dy35hzlq005a21r6qg5sndsdzh"))))
2467     (build-system gnu-build-system)
2468     (outputs '("out" "doc"))
2469     (arguments
2470      `(#:modules ((guix build utils)
2471                   (guix build gnu-build-system)
2472                   (ice-9 popen))
2473
2474        #:configure-flags
2475        (list (string-append "--with-html-dir="
2476                             (assoc-ref %outputs "doc")
2477                             "/share/gtk-doc/html")
2478              (string-append "--with-apache-module-dir="
2479                             (assoc-ref %build-inputs "httpd")
2480                             "/modules"))
2481        #:phases
2482        (modify-phases %standard-phases
2483          (add-before 'configure 'disable-unconnected-socket-test
2484            ;; This test fails due to missing /etc/nsswitch.conf
2485            ;; in the build environment.
2486            (lambda _
2487              (substitute* "tests/socket-test.c"
2488                ((".*/sockets/unconnected.*") ""))
2489              #t))
2490          (add-before 'check 'pre-check
2491            (lambda _
2492              ;; The 'check-local' target runs 'env LANG=C sort -u',
2493              ;; unset 'LC_ALL' to make 'LANG' working.
2494              (unsetenv "LC_ALL")
2495              ;; The ca-certificates.crt is not available in the build
2496              ;; environment.
2497              (setenv "SSL_CERT_FILE" "/dev/null")
2498              ;; HTTPD in Guix uses mod_event and does not build prefork.
2499              (substitute* "tests/httpd.conf"
2500                (("^LoadModule mpm_prefork_module.*$") "\n"))
2501
2502              ;; Generate a self-signed certificate that has "localhost" as its
2503              ;; 'dnsName'.  Failing to do that, and starting with GnuTLS
2504              ;; 3.5.12, tests such as "ssl-tests" fail:
2505              ;;
2506              ;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
2507              ;;
2508              ;; 'certtool' is interactive so we have to pipe it the answers.
2509              ;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
2510              (let ((pipe (open-output-pipe "certtool --generate-self-signed \
2511  --load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
2512                (for-each (lambda (line)
2513                            (display line pipe)
2514                            (newline pipe))
2515                          '(""               ;Common name
2516                            ""               ;UID
2517                            "Guix"           ;Organizational unit name
2518                            "GNU"            ;Organization name
2519                            ""               ;Locality name
2520                            ""               ;State or province
2521                            ""               ;Country
2522                            ""               ;subject's domain component (DC)
2523                            ""               ;E-mail
2524                            ""               ;serial number
2525                            "-1"             ;expiration time
2526                            "N"              ;belong to authority?
2527                            "N"              ;web client certificate?
2528                            "N"              ;IPsec IKE?
2529                            "Y"              ;web server certificate?
2530                            "localhost"      ;dnsName of subject
2531                            ""               ;dnsName of subject (end)
2532                            ""               ;URI of subject
2533                            "127.0.0.1"      ;IP address of subject
2534                            ""               ;signing?
2535                            ""               ;encryption?
2536                            ""               ;sign OCSP requests?
2537                            ""               ;sign code?
2538                            ""               ;time stamping?
2539                            ""               ;email protection?
2540                            ""               ;URI of the CRL distribution point
2541                            "y"              ;above info OK?
2542                            ))
2543                (close-pipe pipe))
2544              #t))
2545          (replace 'install
2546            (lambda _
2547              (invoke "make"
2548                      ;; Install vala bindings into $out.
2549                      (string-append "vapidir=" %output
2550                                     "/share/vala/vapi")
2551                      "install"))))))
2552     (native-inputs
2553      `(("glib:bin" ,glib "bin")                   ; for glib-mkenums
2554        ("gobject-introspection" ,gobject-introspection)
2555        ("intltool" ,intltool)
2556        ("pkg-config" ,pkg-config)
2557        ("python" ,python-wrapper)
2558        ("vala" ,vala)
2559        ;; These are needed for the tests.
2560        ;; FIXME: Add PHP once available.
2561        ("curl" ,curl)
2562        ("gnutls" ,gnutls)                         ;for 'certtool'
2563        ("httpd" ,httpd)))
2564     (propagated-inputs
2565      ;; libsoup-2.4.pc refers to all these.
2566      `(("glib" ,glib)
2567        ("libxml2" ,libxml2)))
2568     (inputs
2569      `(("glib-networking" ,glib-networking)
2570        ("sqlite" ,sqlite)))
2571     (home-page "https://live.gnome.org/LibSoup/")
2572     (synopsis "GLib-based HTTP Library")
2573     (description
2574      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
2575 and the GLib main loop, to integrate well with GNOME applications.")
2576     (license license:lgpl2.0+)))
2577
2578 (define-public libsecret
2579   (package
2580     (name "libsecret")
2581     (version "0.18.6")
2582     (source (origin
2583               (method url-fetch)
2584               (uri (string-append
2585                     "mirror://gnome/sources/libsecret/"
2586                     (version-major+minor version) "/"
2587                     name "-" version ".tar.xz"))
2588               (sha256
2589                (base32
2590                 "0vynag97a9bnnb8ipah45av8xg8jzmhd572rw3zj78s1pa8ciysy"))))
2591     (build-system gnu-build-system)
2592     (outputs '("out" "doc"))
2593     (arguments
2594      `(#:tests? #f ; FIXME: Testing hangs.
2595        #:configure-flags
2596        (list (string-append "--with-html-dir="
2597                             (assoc-ref %outputs "doc")
2598                             "/share/gtk-doc/html"))))
2599     (native-inputs
2600      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
2601        ("gobject-introspection" ,gobject-introspection)
2602        ("intltool" ,intltool)
2603        ("pkg-config" ,pkg-config)
2604        ("vala" ,vala)
2605        ("xsltproc" ,libxslt)))
2606        ;; These are needed for the tests.
2607        ;; FIXME: Add gjs once available.
2608        ;("dbus" ,dbus)
2609        ;("python2" ,python-2)
2610        ;("python2-dbus" ,python2-dbus)
2611        ;("python2-pygobject" ,python2-pygobject)
2612        ;("python2-pygobject-2" ,python2-pygobject-2)))
2613     (propagated-inputs
2614      `(("glib" ,glib))) ; required by libsecret-1.pc
2615     (inputs
2616      `(("docbook-xsl" ,docbook-xsl)
2617        ("libgcrypt" ,libgcrypt)
2618        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
2619     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
2620     (synopsis "GObject bindings for \"Secret Service\" API")
2621     (description
2622      "Libsecret is a GObject based library for storing and retrieving passwords
2623 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
2624     (license license:lgpl2.1+)))
2625
2626 (define-public five-or-more
2627   (package
2628     (name "five-or-more")
2629     (version "3.26.0")
2630     (source
2631      (origin
2632        (method url-fetch)
2633        (uri (string-append "mirror://gnome/sources/" name "/"
2634                            (version-major+minor version) "/"
2635                            name "-" version ".tar.xz"))
2636        (sha256
2637         (base32
2638          "0wkp08xsqr9p9cgdfghi424diajs016b2h4bsfcr5y9xc3rgf93w"))))
2639     (build-system glib-or-gtk-build-system)
2640     (native-inputs
2641      `(("pkg-config" ,pkg-config)
2642        ("desktop-file-utils" ,desktop-file-utils)
2643        ("intltool" ,intltool)
2644        ("itstool" ,itstool)
2645        ("xmllint" ,libxml2)))
2646     (inputs
2647      `(("gtk+" ,gtk+)
2648        ("librsvg" ,librsvg)))
2649     (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
2650     (synopsis "Logic puzzle game")
2651     (description "Five or More is a game where you try to align
2652  five or more objects of the same color and shape causing them to disappear.
2653  On every turn more objects will appear, until the board is full.
2654  Try to last as long as possible.")
2655     (license license:gpl2+)))
2656
2657 (define-public gnome-mines
2658   (package
2659     (name "gnome-mines")
2660     (version "3.26.0")
2661     (source
2662      (origin
2663        (method url-fetch)
2664        (uri (string-append "mirror://gnome/sources/" name "/"
2665                            (version-major+minor version) "/"
2666                            name "-" version ".tar.xz"))
2667        (sha256
2668         (base32
2669          "1sfxdvns8nppdagnhpd9vd7n77sk5rdji3kdqnc78c2p1npiw11b"))))
2670     (build-system glib-or-gtk-build-system)
2671     (arguments
2672      '(#:phases
2673        (modify-phases %standard-phases
2674          (add-before 'configure 'patch-/bin/true
2675                      (lambda _
2676                        (substitute* "configure"
2677                          (("/bin/true") (which "true"))))))))
2678     (native-inputs
2679      `(("pkg-config" ,pkg-config)
2680        ("desktop-file-utils" ,desktop-file-utils)
2681        ("intltool" ,intltool)
2682        ("itstool" ,itstool)
2683        ("xmllint" ,libxml2)))
2684     (inputs
2685      `(("gtk+" ,gtk+)
2686        ("libgnome-games-support" ,libgnome-games-support)
2687        ("librsvg" ,librsvg)))
2688     (home-page "https://wiki.gnome.org/Apps/Mines")
2689     (synopsis "Minesweeper game")
2690     (description
2691      "Mines (previously gnomine) is a puzzle game where you locate mines
2692 floating in an ocean using only your brain and a little bit of luck.")
2693     (license license:gpl2+)))
2694
2695 (define-public gnome-sudoku
2696   (package
2697     (name "gnome-sudoku")
2698     (version "3.28.0")
2699     (source
2700      (origin
2701        (method url-fetch)
2702        (uri (string-append "mirror://gnome/sources/" name "/"
2703                            (version-major+minor version) "/"
2704                            name "-" version ".tar.xz"))
2705        (sha256
2706         (base32
2707          "07b4lzniaf3gjsss6zl1lslv18smwc4nrijykvn2z90f423q2xav"))))
2708     (build-system glib-or-gtk-build-system)
2709     (native-inputs
2710      `(("pkg-config" ,pkg-config)
2711        ("desktop-file-utils" ,desktop-file-utils)
2712        ("intltool" ,intltool)
2713        ("itstool" ,itstool)
2714        ("xmllint" ,libxml2)))
2715     (inputs
2716      `(("gtk+" ,gtk+)
2717        ("json-glib" ,json-glib)
2718        ("libgee" ,libgee)
2719        ("librsvg" ,librsvg)
2720        ("qqwing" ,qqwing)))
2721     (home-page "https://wiki.gnome.org/Apps/Sudoku")
2722     (synopsis "Japanese logic game")
2723     (description
2724      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
2725 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
2726 possible while still providing features that make playing difficult Sudoku
2727 more fun.")
2728     (license license:gpl2+)))
2729
2730 (define-public gnome-terminal
2731   (package
2732     (name "gnome-terminal")
2733     (version "3.28.1")
2734     (source
2735      (origin
2736        (method url-fetch)
2737        (uri (string-append "mirror://gnome/sources/" name "/"
2738                            (version-major+minor version) "/"
2739                            name "-" version ".tar.xz"))
2740        (sha256
2741         (base32
2742          "1hqwh12hiy73mazqgvyrq8jk4c669x2fb4nh8mwby3qbk8ca19pp"))))
2743     (build-system glib-or-gtk-build-system)
2744     (arguments
2745      '(#:configure-flags
2746        (list "--disable-migration" "--disable-search-provider"
2747              "--without-nautilus-extension")
2748        #:phases
2749        (modify-phases %standard-phases
2750          (add-before 'configure 'patch-/bin/true
2751                      (lambda _
2752                        (substitute* "configure"
2753                          (("/bin/true") (which "true"))))))))
2754     (native-inputs
2755      `(("pkg-config" ,pkg-config)
2756        ("desktop-file-utils" ,desktop-file-utils)
2757        ("intltool" ,intltool)
2758        ("itstool" ,itstool)
2759        ("xmllint" ,libxml2)))
2760     (propagated-inputs
2761      `(("dconf" ,dconf)))
2762     (inputs
2763      `(("gtk+" ,gtk+)
2764        ("vte" ,vte)
2765        ("gnutls" ,gnutls)
2766        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2767        ("util-linux" ,util-linux)
2768        ("vala" ,vala)))
2769     (home-page "https://wiki.gnome.org/Apps/Terminal")
2770     (synopsis "Terminal emulator")
2771     (description
2772      "GNOME Terminal is a terminal emulator application for accessing a
2773 UNIX shell environment which can be used to run programs available on
2774 your system.
2775
2776 It supports several profiles, multiple tabs and implements several
2777 keyboard shortcuts.")
2778     (license license:gpl3+)))
2779
2780 (define-public colord
2781   (package
2782     (name "colord")
2783     (version "1.1.8")
2784     (source
2785      (origin
2786        (method url-fetch)
2787        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
2788                            name "-" version ".tar.xz"))
2789        (sha256
2790         (base32
2791          "01w97rgzk4qi6fp03scq5jyw0ayx11b479p7dkm2r77k84b9agph"))))
2792     (build-system glib-or-gtk-build-system)
2793     (arguments
2794      '(;; The tests want to run valgrind.  Punt for now.
2795        #:tests? #f
2796        #:configure-flags (list "--localstatedir=/var"
2797                                ;; GUSB not packaged yet.
2798                                "--disable-gusb"
2799                                ;; No dep on systemd.
2800                                "--disable-systemd-login"
2801                                ;; Wants to install to global completion dir;
2802                                ;; punt.
2803                                "--disable-bash-completion"
2804                                ;; colord-gtk not packaged yet.
2805                                "--disable-session-example"
2806                                "--with-daemon-user=colord"
2807                                "--enable-sane"
2808                                (string-append "--with-udevrulesdir="
2809                                               (assoc-ref %outputs "out")
2810                                               "/lib/udev/rules.d"))
2811        #:phases
2812        (modify-phases %standard-phases
2813          (add-before 'configure 'patch-/bin/true
2814                      (lambda _
2815                        (substitute* "configure"
2816                          (("/bin/true") (which "true")))
2817                        (substitute* "src/Makefile.in"
2818                          (("if test -w \\$\\(DESTDIR\\)\\$\\(prefix\\)/;")
2819                           "if test -w $(DESTDIR)$(localstatedir);")))))))
2820     (native-inputs
2821      `(("pkg-config" ,pkg-config)
2822        ("gobject-introspection" ,gobject-introspection)
2823        ("libtool" ,libtool)
2824        ("intltool" ,intltool)))
2825     (propagated-inputs
2826      ;; colord.pc refers to all these.
2827      `(("glib" ,glib)
2828        ("udev" ,eudev)
2829        ("lcms" ,lcms)))
2830     (inputs
2831      `(("dbus-glib" ,dbus-glib)
2832        ("libgudev" ,libgudev)
2833        ("libusb" ,libusb)
2834        ("sqlite" ,sqlite)
2835        ("polkit" ,polkit)
2836        ("sane-backends" ,sane-backends)))
2837     (home-page "https://www.freedesktop.org/software/colord/")
2838     (synopsis "Color management service")
2839     (description "Colord is a system service that makes it easy to manage,
2840 install and generate color profiles to accurately color manage input and
2841 output devices.")
2842     (license license:gpl2+)))
2843
2844 (define-public geoclue
2845   (package
2846     (name "geoclue")
2847     (version "2.4.8")
2848     (source
2849      (origin
2850        (method url-fetch)
2851        (uri (string-append "https://www.freedesktop.org/software/" name
2852                            "/releases/" (version-major+minor version) "/"
2853                            name "-" version ".tar.xz"))
2854        (sha256
2855         (base32
2856          "08yg1r7m0n9hwyvcy769qkmkf8lslqwv69cjfffwnc3zm5km25qj"))
2857        (patches (search-patches "geoclue-config.patch"))))
2858     (build-system glib-or-gtk-build-system)
2859     (arguments
2860      '(;; The tests want to run the system bus.
2861        #:tests? #f
2862        #:configure-flags (list ;; Disable bits requiring ModemManager.
2863                                "--disable-3g-source"
2864                                "--disable-cdma-source"
2865                                "--disable-modem-gps-source"
2866                                "--with-dbus-service-user=geoclue")
2867        #:phases
2868        (modify-phases %standard-phases
2869          (add-before 'configure 'patch-/bin/true
2870                      (lambda _
2871                        (substitute* "configure"
2872                          (("/bin/true") (which "true")))
2873                        #t)))))
2874     (native-inputs
2875      `(("pkg-config" ,pkg-config)
2876        ("gobject-introspection" ,gobject-introspection)
2877        ("intltool" ,intltool)))
2878     (inputs
2879      `(("avahi" ,avahi)
2880        ("glib" ,glib)
2881        ("json-glib" ,json-glib)
2882        ("libsoup" ,libsoup)))
2883     (home-page "https://www.freedesktop.org/wiki/Software/GeoClue/")
2884     (synopsis "Geolocation service")
2885     (description "Geoclue is a D-Bus service that provides location
2886 information.  The primary goal of the Geoclue project is to make creating
2887 location-aware applications as simple as possible, while the secondary goal is
2888 to ensure that no application can access location information without explicit
2889 permission from user.")
2890     (license license:gpl2+)))
2891
2892 (define-public geocode-glib
2893   (package
2894     (name "geocode-glib")
2895     (version "3.20.1")
2896     (source (origin
2897               (method url-fetch)
2898               (uri (string-append "mirror://gnome/sources/geocode-glib/"
2899                                   (version-major+minor version) "/"
2900                                   name "-" version ".tar.xz"))
2901               (sha256
2902                (base32
2903                 "18iphsx3bybw7lssbb7rxc1rrnsc8vxai521zkqc535zr8rci7v6"))))
2904     (build-system gnu-build-system)
2905     (arguments
2906      `(;; The tests want to write to $HOME/.cache/geocode-glib, which doesn't
2907        ;; work for the builder.  Punt.
2908        #:tests? #f))
2909     (native-inputs
2910      `(("glib:bin" ,glib "bin") ; for glib-mkenums
2911        ("gobject-introspection" ,gobject-introspection)
2912        ("pkg-config" ,pkg-config)
2913        ("json-glib" ,json-glib)))
2914     (propagated-inputs
2915      ;; geocode-glib-1.0.pc refers to GIO.
2916      `(("glib" ,glib)))
2917     (inputs
2918      `(("libsoup" ,libsoup)))
2919     (home-page "https://github.com/GNOME/geocode-glib/")
2920     (synopsis "Geocoding and reverse-geocoding library")
2921     (description
2922      "geocode-glib is a convenience library for geocoding (finding longitude,
2923 and latitude from an address) and reverse geocoding (finding an address from
2924 coordinates) using the Nominatim service.  geocode-glib caches requests for
2925 faster results and to avoid unnecessary server load.")
2926     (license license:lgpl2.0+)))
2927
2928 (define-public upower
2929   (package
2930     (name "upower")
2931     (version "0.99.4")
2932     (source (origin
2933               (method url-fetch)
2934               (uri (string-append "https://upower.freedesktop.org/releases/"
2935                                   name "-" version ".tar.xz"))
2936               (sha256
2937                (base32
2938                 "1c1ph1j1fnrf3vipxb7ncmdfc36dpvcvpsv8n8lmal7grjk2b8ww"))
2939               (patches (search-patches "upower-builddir.patch"))))
2940     (build-system glib-or-gtk-build-system)
2941     (arguments
2942      '( ;; The tests want to contact the system bus, which can't be done in the
2943        ;; build environment.  The integration test can run, but the last of
2944        ;; the up-self-tests doesn't.  Disable tests for now.
2945        #:tests? #f
2946        #:configure-flags (list "--localstatedir=/var"
2947                                (string-append "--with-udevrulesdir="
2948                                               (assoc-ref %outputs "out")
2949                                               "/lib/udev/rules.d"))
2950        #:phases
2951        (modify-phases %standard-phases
2952          (add-before 'configure 'patch-/bin/true
2953                      (lambda _
2954                        (substitute* "configure"
2955                          (("/bin/true") (which "true")))))
2956          (add-before 'configure 'patch-integration-test
2957                      (lambda _
2958                        (substitute* "src/linux/integration-test"
2959                          (("/usr/bin/python3") (which "python3"))))))))
2960     (native-inputs
2961      `(("gobject-introspection" ,gobject-introspection)
2962        ("pkg-config" ,pkg-config)
2963        ("intltool" ,intltool)
2964        ("python" ,python)
2965
2966        ;; For man pages.
2967        ("libxslt" ,libxslt)                       ;for 'xsltproc'
2968        ("libxml2" ,libxml2)                       ;for 'XML_CATALOG_FILES'
2969        ("docbook-xsl" ,docbook-xsl)))
2970     (inputs
2971      `(("dbus-glib" ,dbus-glib)
2972        ("libgudev" ,libgudev)
2973        ("libusb" ,libusb)))
2974     (home-page "https://upower.freedesktop.org/")
2975     (synopsis "System daemon for managing power devices")
2976     (description
2977      "UPower is an abstraction for enumerating power devices,
2978 listening to device events and querying history and statistics.  Any
2979 application or service on the system can access the org.freedesktop.UPower
2980 service via the system message bus.")
2981     (license license:gpl2+)))
2982
2983 (define-public libgweather
2984   (package
2985     (name "libgweather")
2986     (version "3.26.1")
2987     (source (origin
2988               (method url-fetch)
2989               (uri (string-append "mirror://gnome/sources/" name "/"
2990                                   (version-major+minor version) "/"
2991                                   name "-" version ".tar.xz"))
2992               (sha256
2993                (base32
2994                 "1f64ix7acj0j0qvxwxaazii2bhsjgh5ang1kw14fkg25ndq899zw"))))
2995     (build-system gnu-build-system)
2996     (arguments
2997      `(#:configure-flags
2998        `(,(string-append "--with-zoneinfo-dir="
2999                          (assoc-ref %build-inputs "tzdata")
3000                          "/share/zoneinfo"))
3001        #:phases
3002        (modify-phases %standard-phases
3003          (add-before 'check 'pre-check
3004            (lambda* (#:key inputs #:allow-other-keys)
3005              (substitute* "data/check-timezones.sh"
3006                (("/usr/share/zoneinfo/zone.tab")
3007                 (string-append (assoc-ref inputs "tzdata")
3008                                "/share/zoneinfo/zone.tab")))
3009              #t))
3010          (replace 'install
3011            (lambda _
3012              (zero?
3013               (system* "make"
3014                        ;; Install vala bindings into $out.
3015                        (string-append "vapidir=" %output
3016                                       "/share/vala/vapi")
3017                        "install")))))))
3018     (native-inputs
3019      `(("glib:bin" ,glib "bin") ; for glib-mkenums
3020        ("gobject-introspection" ,gobject-introspection)
3021        ("pkg-config" ,pkg-config)
3022        ("vala" ,vala)
3023        ("intltool" ,intltool)))
3024     (propagated-inputs
3025      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
3026      ;; libsoup.
3027      `(("gtk+" ,gtk+)
3028        ("gdk-pixbuf" ,gdk-pixbuf)
3029        ("libxml2" ,libxml2)
3030        ("libsoup" ,libsoup)))
3031     (inputs
3032      `(("tzdata" ,tzdata)
3033        ("geocode-glib" ,geocode-glib)))
3034     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
3035     (synopsis "Location, time zone, and weather library for GNOME")
3036     (description
3037      "libgweather is a library to access weather information from online
3038 services for numerous locations.")
3039     (license license:gpl2+)))
3040
3041 (define-public gnome-settings-daemon
3042   (package
3043     (name "gnome-settings-daemon")
3044     (version "3.24.3")
3045     (source
3046      (origin
3047        (method url-fetch)
3048        (uri (string-append "mirror://gnome/sources/" name "/"
3049                            (version-major+minor version) "/"
3050                            name "-" version ".tar.xz"))
3051        (sha256
3052         (base32
3053          "14w5jhpq02mbcxvn41qcj3cjfqdr3sgzl96c6glwpdrjphw61i38"))))
3054     (build-system glib-or-gtk-build-system)
3055     (arguments
3056      `(;; Color management test can't reach the colord system service.
3057        #:tests? #f))
3058     (native-inputs
3059      `(("pkg-config" ,pkg-config)
3060        ("intltool" ,intltool)
3061        ("xsltproc" ,libxslt)
3062        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
3063        ("docbook-xml" ,docbook-xml-4.2)
3064        ("docbook-xsl" ,docbook-xsl)))
3065     (inputs
3066      `(("colord" ,colord)
3067        ("libgudev" ,libgudev)
3068        ("upower" ,upower)
3069        ("polkit" ,polkit)
3070        ("pulseaudio" ,pulseaudio)
3071        ("libcanberra" ,libcanberra)
3072        ("libx11" ,libx11)
3073        ("libxtst" ,libxtst)
3074        ("lcms" ,lcms)
3075        ("libnotify" ,libnotify)
3076        ("geoclue" ,geoclue)
3077        ("geocode-glib" ,geocode-glib)
3078        ("libgweather" ,libgweather)
3079        ("gnome-desktop" ,gnome-desktop)
3080        ("nss" ,nss)
3081        ("cups" ,cups)
3082        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3083        ("libwacom" ,libwacom)
3084        ("librsvg" ,librsvg)
3085        ("xf86-input-wacom" ,xf86-input-wacom)
3086        ("network-manager" ,network-manager)))
3087     (home-page "https://www.gnome.org")
3088     (synopsis "GNOME settings daemon")
3089     (description
3090      "This package contains the daemon responsible for setting the various
3091 parameters of a GNOME session and the applications that run under it.  It
3092 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
3093 settings, themes, mouse settings, and startup of other daemons.")
3094     (license license:gpl2+)))
3095
3096 (define-public totem-pl-parser
3097  (package
3098    (name "totem-pl-parser")
3099    (version "3.10.8")
3100    (source (origin
3101             (method url-fetch)
3102             (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
3103                                 (version-major+minor version) "/"
3104                                 "totem-pl-parser-" version ".tar.xz"))
3105             (sha256
3106              (base32
3107               "0ayxg0gfs5h5jhr811ja5hxlhryklzp6jlal2ach9wym2c3hmigz"))))
3108    (build-system gnu-build-system)
3109    (arguments
3110     ;; FIXME: Tests require gvfs.
3111     `(#:tests? #f))
3112    (native-inputs
3113     `(("intltool" ,intltool)
3114       ("glib" ,glib "bin")
3115       ("gobject-introspection" ,gobject-introspection)
3116       ("pkg-config" ,pkg-config)))
3117    (propagated-inputs
3118     `(("glib" ,glib)
3119       ("gmime" ,gmime)
3120       ("libxml2" ,libxml2)))
3121    (inputs
3122     `(("libarchive" ,libarchive)
3123       ("libgcrypt" ,libgcrypt)
3124       ("nettle" ,nettle)
3125       ("libsoup" ,libsoup)))
3126    (home-page "https://projects.gnome.org/totem")
3127    (synopsis "Library to parse and save media playlists for GNOME")
3128    (description "Totem-pl-parser is a GObjects-based library to parse and save
3129 playlists in a variety of formats.")
3130    (license license:lgpl2.0+)))
3131
3132 (define-public aisleriot
3133   (package
3134     (name "aisleriot")
3135     (version "3.22.5")
3136     (source (origin
3137               (method url-fetch)
3138               (uri (string-append "mirror://gnome/sources/" name "/"
3139                                   (version-major+minor version) "/"
3140                                   name "-" version ".tar.xz"))
3141               (sha256
3142                (base32
3143                 "0rl39psr5xi584310pyrgw36ini4wn7yr2m1q5118w3a3v1dkhzh"))))
3144     (build-system glib-or-gtk-build-system)
3145     (arguments
3146      '(#:configure-flags
3147        '("--with-platform=gtk-only"
3148          "--with-card-theme-formats=svg")))
3149     (native-inputs
3150      `(("desktop-file-utils" ,desktop-file-utils)
3151        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
3152        ("intltool" ,intltool)
3153        ("itstool" ,itstool)
3154        ("pkg-config" ,pkg-config)
3155        ("xmllint" ,libxml2)))
3156     (inputs
3157      `(("gtk+" ,gtk+)
3158        ("guile" ,guile-2.2)
3159        ("libcanberra" ,libcanberra)
3160        ("librsvg" ,librsvg)))
3161     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
3162     (synopsis "Solitaire card games")
3163     (description
3164      "Aisleriot (also known as Solitaire or sol) is a collection of card games
3165 which are easy to play with the aid of a mouse.")
3166     (license license:gpl3+)))
3167
3168 (define-public devhelp
3169   (package
3170     (name "devhelp")
3171     (version "3.26.0")
3172     (source (origin
3173               (method url-fetch)
3174               (uri (string-append "mirror://gnome/sources/" name "/"
3175                                   (version-major+minor version) "/"
3176                                   name "-" version ".tar.xz"))
3177               (sha256
3178                (base32
3179                 "0f4fmkqzn95zmc2paljma33fkj74qj1m6n23qrc5hfwmgx7p3wkb"))))
3180     (build-system glib-or-gtk-build-system)
3181     (native-inputs
3182      `(("intltool" ,intltool)
3183        ("pkg-config" ,pkg-config)))
3184     (inputs
3185      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3186        ("webkitgtk" ,webkitgtk)))
3187     (home-page "https://wiki.gnome.org/Apps/Devhelp")
3188     (synopsis "API documentation browser for GNOME")
3189     (description
3190      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
3191 natively with GTK-Doc (the API reference system developed for GTK+ and used
3192 throughout GNOME for API documentation).")
3193     (license license:gpl2+)))
3194
3195 (define-public cogl
3196   (package
3197     (name "cogl")
3198     (version "1.22.2")
3199     (source
3200      (origin
3201        (method url-fetch)
3202        (uri (string-append "mirror://gnome/sources/" name "/"
3203                            (version-major+minor version) "/"
3204                            name "-" version ".tar.xz"))
3205        (sha256
3206         (base32
3207          "03f0ha3qk7ca0nnkkcr1garrm1n1vvfqhkz9lwjm592fnv6ii9rr"))))
3208     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
3209     ;; cogl, corresponding changes may be appropriate in mutter as well.
3210     (build-system gnu-build-system)
3211     (native-inputs
3212      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
3213        ("gobject-introspection" ,gobject-introspection)
3214        ;;("xorg-server" ,xorg-server) ; for the test suite
3215        ("pkg-config" ,pkg-config)))
3216     (propagated-inputs
3217      `(("glib" ,glib)
3218        ("gdk-pixbuf" ,gdk-pixbuf)
3219        ("libx11" ,libx11)
3220        ("libxext" ,libxext)
3221        ("libxfixes" ,libxfixes)
3222        ("libxdamage" ,libxdamage)
3223        ("libxcomposite" ,libxcomposite)
3224        ("libxrandr" ,libxrandr)))
3225     (inputs
3226      `(("mesa" ,mesa)
3227        ("cairo" ,cairo)
3228        ("pango" ,pango)
3229        ("gstreamer" ,gstreamer)
3230        ("gst-plugins-base" ,gst-plugins-base)
3231        ("wayland" ,wayland)))
3232     (arguments
3233      `(#:configure-flags (list "--enable-cogl-gst"
3234                                "--enable-wayland-egl-platform"
3235                                "--enable-wayland-egl-server"
3236
3237                                ;; Arrange to pass an absolute file name to
3238                                ;; dlopen for libGL.so.
3239                                (string-append "--with-gl-libname="
3240                                               (assoc-ref %build-inputs "mesa")
3241                                               "/lib/libGL.so"))
3242        ;; XXX FIXME: All tests fail, with many warnings printed like this:
3243        ;;   _FontTransOpen: Unable to Parse address
3244        ;;   ${prefix}/share/fonts/X11/misc/
3245        #:tests? #f
3246        #; #:phases
3247        #;
3248        (modify-phases %standard-phases
3249          (add-before 'check 'start-xorg-server
3250                      (lambda* (#:key inputs #:allow-other-keys)
3251                        ;; The test suite requires a running X server.
3252                        (system (format #f "~a/bin/Xvfb :1 &"
3253                                        (assoc-ref inputs "xorg-server")))
3254                        (setenv "DISPLAY" ":1")
3255                        #t)))))
3256     (home-page "http://www.cogl3d.org")
3257     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
3258     (description
3259      "Cogl is a small library for using 3D graphics hardware to draw pretty
3260 pictures.  The API departs from the flat state machine style of OpenGL and is
3261 designed to make it easy to write orthogonal components that can render
3262 without stepping on each others toes.")
3263     (license (list license:expat       ; most of the code
3264                    license:bsd-3       ; cogl/cogl-point-in-poly.c
3265                    license:sgifreeb2.0 ; cogl-path/tesselator/
3266                    license:asl2.0))))  ; examples/android/
3267
3268 (define-public clutter
3269   (package
3270     (name "clutter")
3271     (version "1.26.2")
3272     (source
3273      (origin
3274        (method url-fetch)
3275        (uri (string-append "mirror://gnome/sources/" name "/"
3276                            (version-major+minor version) "/"
3277                            name "-" version ".tar.xz"))
3278        (sha256
3279         (base32
3280          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
3281     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
3282     ;; to clutter, corresponding changes may be appropriate in mutter as well.
3283     (build-system gnu-build-system)
3284     (outputs '("out"
3285                "doc"))                            ;9 MiB of gtk-doc HTML pages
3286     (native-inputs
3287      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
3288        ("gobject-introspection" ,gobject-introspection)
3289        ("pkg-config" ,pkg-config)
3290        ("xsltproc" ,libxslt)))
3291     (propagated-inputs
3292      `(("cogl" ,cogl)
3293        ("cairo" ,cairo)
3294        ("atk" ,atk)
3295        ("gtk+" ,gtk+)
3296        ("json-glib" ,json-glib)
3297        ("glib" ,glib)
3298        ("libxcomposite" ,libxcomposite)
3299        ("libxdamage" ,libxdamage)
3300        ("libxext" ,libxext)
3301        ("xinput" ,xinput)))
3302     (inputs
3303      `(("libxkbcommon" ,libxkbcommon)
3304        ("udev" ,eudev)))
3305     (arguments
3306      `(#:configure-flags (list "--enable-x11-backend=yes"
3307
3308                                ;; This produces share/doc/{clutter,cally}.
3309                                (string-append "--with-html-dir="
3310                                               (assoc-ref %outputs "doc")
3311                                               "/share/doc"))
3312        ;; XXX FIXME: Get test suite working.  It would probably fail in the
3313        ;; same way the cogl tests fail, since clutter is based on cogl.
3314        #:tests? #f))
3315     (home-page "http://www.clutter-project.org")
3316     (synopsis "Open GL based interactive canvas library")
3317     (description
3318      "Clutter is an Open GL based interactive canvas library, designed for
3319 creating fast, mainly 2D single window applications such as media box UIs,
3320 presentations, kiosk style applications and so on.")
3321     (license license:lgpl2.0+)))
3322
3323 (define-public clutter-gtk
3324   (package
3325     (name "clutter-gtk")
3326     (version "1.8.2")
3327     (source
3328      (origin
3329        (method url-fetch)
3330        (uri (string-append "mirror://gnome/sources/" name "/"
3331                            (version-major+minor version) "/"
3332                            name "-" version ".tar.xz"))
3333        (sha256
3334         (base32
3335          "153bl9256yjnfcplp7jmgf7lm2zb790zkayjclzsv42l6a3d89ys"))))
3336     (build-system gnu-build-system)
3337     (native-inputs
3338      `(("pkg-config" ,pkg-config)
3339        ("gobject-introspection" ,gobject-introspection)))
3340     (propagated-inputs
3341      ;; clutter-gtk.pc refers to all these.
3342      `(("clutter" ,clutter)
3343        ("gtk+" ,gtk+)))
3344     (home-page "http://www.clutter-project.org")
3345     (synopsis "Open GL based interactive canvas library GTK+ widget")
3346     (description
3347      "Clutter is an Open GL based interactive canvas library, designed for
3348 creating fast, mainly 2D single window applications such as media box UIs,
3349 presentations, kiosk style applications and so on.")
3350     (license license:lgpl2.0+)))
3351
3352 (define-public clutter-gst
3353   (package
3354     (name "clutter-gst")
3355     (version "3.0.26")
3356     (source
3357      (origin
3358        (method url-fetch)
3359        (uri (string-append "mirror://gnome/sources/" name "/"
3360                            (version-major+minor version) "/"
3361                            name "-" version ".tar.xz"))
3362        (sha256
3363         (base32
3364          "0fnblqm4igdx4rn3681bp1gm1y2i00if3iblhlm0zv6ck9nqlqfq"))))
3365     (build-system gnu-build-system)
3366     (native-inputs
3367      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
3368        ("pkg-config" ,pkg-config)
3369        ("gobject-introspection" ,gobject-introspection)))
3370     (inputs
3371      `(("clutter" ,clutter)
3372        ("gstreamer" ,gstreamer)
3373        ("gst-plugins-base" ,gst-plugins-base)))
3374     (home-page "http://www.clutter-project.org")
3375     (synopsis "Integration library for using GStreamer with Clutter")
3376     (description
3377      "Clutter-Gst is an integration library for using GStreamer with Clutter.
3378 It provides a GStreamer sink to upload frames to GL and an actor that
3379 implements the ClutterGstPlayer interface using playbin.  Clutter is an Open
3380 GL based interactive canvas library.")
3381     (license license:lgpl2.0+)))
3382
3383 (define-public libchamplain
3384   (package
3385     (name "libchamplain")
3386     (version "0.12.16")
3387     (source (origin
3388               (method url-fetch)
3389               (uri (string-append
3390                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
3391                     version ".tar.xz"))
3392               (sha256
3393                (base32
3394                 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
3395     (build-system gnu-build-system)
3396     (arguments '(#:configure-flags '("--enable-vala")))
3397     (native-inputs
3398      `(("gobject-introspection" ,gobject-introspection)
3399        ("pkg-config" ,pkg-config)
3400        ("vala" ,vala)))
3401     (propagated-inputs
3402      `(("libsoup" ,libsoup)
3403        ("sqlite" ,sqlite)
3404        ("clutter" ,clutter)
3405        ("clutter-gtk" ,clutter-gtk)
3406        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
3407        ("cairo" ,cairo)
3408        ("gtk+3" ,gtk+)
3409        ("glib" ,glib)))
3410     (home-page "https://projects.gnome.org/libchamplain/")
3411     (synopsis "C library providing a ClutterActor to display maps")
3412     (description
3413      "libchamplain is a C library providing a ClutterActor to display maps.
3414 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
3415 and Perl bindings are also available.  It supports numerous free map sources
3416 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
3417     (license license:lgpl2.1+)))
3418
3419 (define-public gom
3420   (package
3421     (name "gom")
3422     (version "0.3.2")
3423     (source
3424      (origin
3425        (method url-fetch)
3426        (uri (string-append "mirror://gnome/sources/" name "/"
3427                            (version-major+minor version) "/"
3428                            name "-" version ".tar.xz"))
3429        (sha256
3430         (base32
3431          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
3432     (build-system gnu-build-system)
3433     (native-inputs
3434      `(("intltool" ,intltool)
3435        ("pkg-config" ,pkg-config)
3436        ("gobject-introspection" ,gobject-introspection)))
3437     (inputs
3438      `(("glib" ,glib)
3439        ("gdk-pixbuf" ,gdk-pixbuf)
3440        ("sqlite" ,sqlite)))
3441     ;; XXX TODO: Figure out how to run the test suite.
3442     (arguments `(#:tests? #f))
3443     (home-page "https://wiki.gnome.org/Projects/Gom")
3444     (synopsis "Object mapper from GObjects to SQLite")
3445     (description
3446      "Gom provides an object mapper from GObjects to SQLite.  It helps you
3447 write applications that need to store structured data as well as make complex
3448 queries upon that data.")
3449     (license license:lgpl2.1+)))
3450
3451 (define-public libgnome-games-support
3452   (package
3453     (name "libgnome-games-support")
3454     (version "1.2.3")
3455     (source (origin
3456               (method url-fetch)
3457               (uri (string-append "mirror://gnome/sources/" name "/"
3458                                   (version-major+minor version) "/"
3459                                   name "-" version ".tar.xz"))
3460               (sha256
3461                (base32
3462                 "1vwad7kqy7yd6wqyr71nq0blh7m53r3lz6ya16dmh942kd0w48v1"))))
3463     (build-system gnu-build-system)
3464     (arguments
3465      '(#:phases
3466        (modify-phases %standard-phases
3467          (add-before 'check 'pre-check
3468            (lambda _
3469              ;; Tests require a writable HOME.
3470              (setenv "HOME" (getcwd))
3471              #t)))))
3472     (native-inputs
3473      `(("intltool" ,intltool)
3474        ("pkg-config" ,pkg-config)
3475        ("vala" ,vala)))
3476     (propagated-inputs
3477      ;; Required by libgnome-games-support-1.0.pc
3478      `(("gtk+" ,gtk+)
3479        ("libgee" ,libgee)))
3480     (home-page "https://www.gnome.org/")
3481     (synopsis "Useful functionality shared among GNOME games")
3482     (description
3483      "libgnome-games-support is a small library intended for internal use by
3484 GNOME Games, but it may be used by others.")
3485     (license license:lgpl3+)))
3486
3487 (define-public gnome-klotski
3488   (package
3489     (name "gnome-klotski")
3490     (version "3.22.3")
3491     (source (origin
3492               (method url-fetch)
3493               (uri (string-append "mirror://gnome/sources/" name "/"
3494                                   (version-major+minor version) "/"
3495                                   name "-" version ".tar.xz"))
3496               (sha256
3497                (base32
3498                 "0prc0s28pdflgzyvk1g0yfx982q2grivmz3858nwpqmbkha81r7f"))))
3499     (build-system glib-or-gtk-build-system)
3500     (native-inputs
3501      `(("desktop-file-utils" ,desktop-file-utils)
3502        ("intltool" ,intltool)
3503        ("itstool" ,itstool)
3504        ("pkg-config" ,pkg-config)
3505        ("xmllint" ,libxml2)))
3506     (inputs
3507      `(("gtk+" ,gtk+)
3508        ("libgnome-games-support" ,libgnome-games-support)
3509        ("librsvg" ,librsvg)))
3510     (home-page "https://wiki.gnome.org/Apps/Klotski")
3511     (synopsis "Sliding block puzzles")
3512     (description
3513      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
3514 the patterned block to the area bordered by green markers.  To do so, you will
3515 need to slide other blocks out of the way.  Complete each puzzle in as few moves
3516 as possible!")
3517     (license license:gpl2+)))
3518
3519 (define-public grilo
3520   (package
3521     (name "grilo")
3522     (version "0.3.3")
3523     (source
3524      (origin
3525        (method url-fetch)
3526        (uri (string-append "mirror://gnome/sources/" name "/"
3527                            (version-major+minor version) "/"
3528                            name "-" version ".tar.xz"))
3529        (sha256
3530         (base32
3531          "1qx072m0gl6m3d5g5cbbf13p4h217icmlxjnrn829x5xqwi451sw"))))
3532     (build-system gnu-build-system)
3533     (native-inputs
3534      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
3535        ("intltool" ,intltool)
3536        ("pkg-config" ,pkg-config)
3537        ("gobject-introspection" ,gobject-introspection)))
3538     (inputs
3539      `(("cyrus-sasl" ,cyrus-sasl)
3540        ("glib" ,glib)
3541        ("gtk+" ,gtk+)
3542        ("libxml2" ,libxml2)
3543        ("liboauth" ,liboauth)
3544        ("libsoup" ,libsoup)
3545        ("nettle" ,nettle)
3546        ("totem-pl-parser" ,totem-pl-parser)))
3547     (arguments
3548      `(#:phases
3549        (modify-phases %standard-phases
3550          (add-after 'unpack 'fix-introspection-install-dir
3551                     (lambda* (#:key outputs #:allow-other-keys)
3552                       (let ((out (assoc-ref outputs "out")))
3553                         (substitute* '("src/Makefile.in"
3554                                        "libs/pls/Makefile.in"
3555                                        "libs/net/Makefile.in")
3556                           (("@INTROSPECTION_GIRDIR@")
3557                            (string-append out "/share/gir-1.0/"))
3558                           (("@INTROSPECTION_TYPELIBDIR@")
3559                            (string-append out "/lib/girepository-1.0/")))
3560                         #t))))))
3561     (native-search-paths
3562      (list (search-path-specification
3563             (variable "GRL_PLUGIN_PATH")
3564             (files (list (string-append "lib/grilo-"
3565                                         (version-major+minor version)))))))
3566     (home-page "https://live.gnome.org/Grilo")
3567     (synopsis "Framework for discovering and browsing media")
3568     (description
3569      "Grilo is a framework focused on making media discovery and browsing easy
3570 for application developers.")
3571     (license license:lgpl2.1+)))
3572
3573 (define-public grilo-plugins
3574   (package
3575     (name "grilo-plugins")
3576     (version "0.3.3")
3577     (source
3578      (origin
3579        (method url-fetch)
3580        (uri (string-append "mirror://gnome/sources/" name "/"
3581                            (version-major+minor version) "/"
3582                            name "-" version ".tar.xz"))
3583        (sha256
3584         (base32
3585          "172vr1y98d2mzlmg5akjn4ibrcj3gh22cwnb3cv9rvvzhj3yhrpy"))))
3586     (build-system gnu-build-system)
3587     (native-inputs
3588      `(("glib:bin" ,glib "bin")     ; for glib-mkenums and glib-genmarshal
3589        ("intltool" ,intltool)
3590        ("itstool" ,itstool)
3591        ("pkg-config" ,pkg-config)))
3592     (inputs
3593      `(("grilo" ,grilo)
3594        ("nettle" ,nettle) ; XXX: required by libgrlpls-0.3.la
3595        ("glib" ,glib)
3596        ("libxml2" ,libxml2)
3597        ("sqlite" ,sqlite)
3598        ("gom" ,gom)
3599        ;; XXX TODO: Add oauth
3600        ;; XXX TODO: Add goa
3601        ;; XXX TODO: Add gdata (e.g. needed for youtube plugin)
3602        ;; XXX TODO: Add lua (needs help finding it)
3603        ("json-glib" ,json-glib)
3604        ("avahi" ,avahi)
3605        ("gmime" ,gmime)
3606        ("libsoup" ,libsoup)
3607        ("libarchive" ,libarchive)
3608        ("totem-pl-parser" ,totem-pl-parser)))
3609     (arguments
3610      `(#:make-flags (list (string-append "GRL_PLUGINS_DIR="
3611                                          %output
3612                                          "/lib/grilo-"
3613                                          ,(version-major+minor version)))
3614        ;; XXX FIXME: Try to get the test suite working.  It appears to require
3615        ;; a working system dbus.  Inside the build container, all tests fail
3616        ;; with: "assertion failed: (source)".  Outside of the build container,
3617        ;; most tests succeed.
3618        #:tests? #f))
3619     (home-page "https://live.gnome.org/Grilo")
3620     (synopsis "Plugins for the Grilo media discovery library")
3621     (description
3622      "Grilo is a framework focused on making media discovery and browsing easy
3623 for application developers.")
3624     (license license:lgpl2.1+)))
3625
3626 (define-public totem
3627   (package
3628     (name "totem")
3629     (version "3.26.0")
3630     (source
3631      (origin
3632        (method url-fetch)
3633        (uri (string-append "mirror://gnome/sources/" name "/"
3634                            (version-major+minor version) "/"
3635                            name "-" version ".tar.xz"))
3636        (sha256
3637         (base32
3638          "04zfx47mgyd0f4p3pjrxl6iaw0awgwbvilbsr1smw14ph2kbjbz3"))
3639        (patches (search-patches "totem-meson-easy-codec.patch"))))
3640     (build-system meson-build-system)
3641     (native-inputs
3642      `(("pkg-config" ,pkg-config)
3643        ("desktop-file-utils" ,desktop-file-utils)
3644        ("gobject-introspection" ,gobject-introspection)
3645        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
3646        ("gtk:bin" ,gtk+ "bin")                    ;for 'gtk-update-icon-cache'
3647        ("intltool" ,intltool)
3648        ("itstool" ,itstool)
3649        ("xmllint" ,libxml2)))
3650     (propagated-inputs
3651      `(("dconf" ,dconf)))
3652     (inputs
3653      `(("gtk+" ,gtk+)
3654        ("gdk-pixbuf" ,gdk-pixbuf)
3655        ("atk" ,atk)
3656        ("cairo" ,cairo)
3657        ("dbus-glib" ,dbus-glib)
3658        ("clutter" ,clutter)
3659        ("clutter-gtk" ,clutter-gtk)
3660        ("clutter-gst" ,clutter-gst)
3661        ("xorgproto" ,xorgproto)
3662        ("libxxf86vm" ,libxxf86vm)
3663        ("libxtst" ,libxtst)
3664        ("libxrandr" ,libxrandr)
3665        ("libxml2" ,libxml2)
3666        ("libsoup" ,libsoup)
3667        ("libpeas" ,libpeas)
3668        ("librsvg" ,librsvg)
3669        ("lirc" ,lirc)
3670        ("gnome-desktop" ,gnome-desktop)
3671        ("gstreamer" ,gstreamer)
3672        ("gst-plugins-base" ,gst-plugins-base)
3673        ("gst-plugins-good" ,gst-plugins-good)
3674        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3675        ("adwaita-icon-theme" ,adwaita-icon-theme)
3676        ;; XXX We use python-2 because libxml2 because itstool (which needs
3677        ;; libxml) currently uses python-2.
3678        ("python" ,python-2)
3679        ("python-pygobject" ,python2-pygobject)
3680        ;; XXX TODO pylint needed for python support
3681        ("totem-pl-parser" ,totem-pl-parser)
3682        ("grilo" ,grilo)
3683        ("grilo-plugins" ,grilo-plugins)
3684        ("nettle" ,nettle)
3685        ("vala" ,vala)))
3686     (arguments
3687      `(#:glib-or-gtk? #t
3688
3689        ;; Disable parallel builds until
3690        ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=28813 is
3691        ;; fixed.  Try enabling it when updating this package in case
3692        ;; upstream has fixed it.
3693        #:parallel-build? #f
3694
3695        ;; Disable automatic GStreamer plugin installation via PackageKit and
3696        ;; all that.
3697        #:configure-flags '("-D" "enable-easy-codec-installation=no"
3698
3699                            ;; Do not build .a files for the plugins, it's
3700                            ;; completely useless.  This saves 2 MiB.
3701                            "--default-library" "shared")
3702
3703        #:phases
3704        (modify-phases %standard-phases
3705          (add-before
3706           'install 'disable-cache-generation
3707           (lambda _
3708             (setenv "DESTDIR" "/")
3709             #t))
3710          (add-after
3711           'install 'wrap-totem
3712           (lambda* (#:key inputs outputs #:allow-other-keys)
3713             (let ((out             (assoc-ref outputs "out"))
3714                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
3715                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
3716               (wrap-program (string-append out "/bin/totem")
3717                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
3718                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
3719               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
3720                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
3721             #t)))))
3722     (home-page "https://wiki.gnome.org/Apps/Videos")
3723     (synopsis "Simple media player for GNOME based on GStreamer")
3724     (description "Totem is a simple yet featureful media player for GNOME
3725 which can read a large number of file formats.")
3726     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
3727     ;; to be used and distributed together with GStreamer and Totem.  See
3728     ;; file://COPYING in the source distribution for details.
3729     (license license:gpl2+)))
3730
3731 (define-public rhythmbox
3732  (package
3733    (name "rhythmbox")
3734    (version "3.4.2")
3735    (source (origin
3736             (method url-fetch)
3737             (uri (string-append "mirror://gnome/sources/" name "/"
3738                                 (version-major+minor version) "/"
3739                                 name "-" version ".tar.xz"))
3740             (sha256
3741              (base32
3742               "0hzcns8gf5yb0rm4ss8jd8qzarcaplp5cylk6plwilsqfvxj4xn2"))))
3743    (build-system glib-or-gtk-build-system)
3744    (arguments
3745     `(#:configure-flags
3746       (list "--enable-lirc"
3747             "--enable-python"
3748             "--enable-vala"
3749             "--with-brasero"
3750             "--with-gudev"
3751             "--with-libsecret")
3752       #:phases
3753       (modify-phases %standard-phases
3754         (add-after
3755          'install 'wrap-rhythmbox
3756          (lambda* (#:key inputs outputs #:allow-other-keys)
3757            (let ((out               (assoc-ref outputs "out"))
3758                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
3759                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
3760                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
3761                  (python-path       (getenv "PYTHONPATH")))
3762              (wrap-program (string-append out "/bin/rhythmbox")
3763                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
3764                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
3765                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
3766                `("PYTHONPATH"             ":" prefix (,python-path))))
3767            #t)))))
3768    (propagated-inputs
3769     `(("dconf" ,dconf)))
3770    (native-inputs
3771     `(("itstool" ,itstool)
3772       ("intltool" ,intltool)
3773       ("glib" ,glib "bin")
3774       ("gobject-introspection" ,gobject-introspection)
3775       ("desktop-file-utils" ,desktop-file-utils)
3776       ("pkg-config" ,pkg-config)
3777       ("xmllint" ,libxml2)))
3778    (inputs
3779     `(("json-glib" ,json-glib)
3780       ("tdb" ,tdb)
3781       ("gnome-desktop" ,gnome-desktop)
3782       ("python" ,python)
3783       ("python-pygobject" ,python2-pygobject)
3784       ("vala" ,vala)
3785       ("gmime" ,gmime)
3786       ("nettle" ,nettle)
3787       ("adwaita-icon-theme" ,adwaita-icon-theme)
3788       ("grilo" ,grilo)
3789       ("grilo-plugins" ,grilo-plugins)
3790       ("gstreamer" ,gstreamer)
3791       ("gst-plugins-base" ,gst-plugins-base)
3792       ("gst-plugins-good" ,gst-plugins-good)
3793       ("totem-pl-parser" ,totem-pl-parser)
3794       ("libgudev" ,libgudev)
3795       ;;("libmtp" ,libmtp) FIXME: Not detected
3796       ("libsecret" ,libsecret)
3797       ("libsoup" ,libsoup)
3798       ("libnotify" ,libnotify)
3799       ("libpeas" ,libpeas)
3800       ("lirc" ,lirc)
3801       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
3802       ;;("clutter" ,clutter)
3803       ;;("clutter-gtk" ,clutter-gtk)
3804       ;;("clutter-gst" ,clutter-gst)
3805       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3806       ("atk" ,atk)
3807       ("pango" ,pango)
3808       ("gtk+" ,gtk+)
3809       ;; TODO:
3810       ;;  * libgpod
3811       ;;  * mx
3812       ("brasero" ,brasero)))
3813    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
3814    (synopsis "Music player for GNOME")
3815    (description "Rhythmbox is a music playing application for GNOME.  It
3816 supports playlists, song ratings, and any codecs installed through gstreamer.")
3817    (license license:gpl2+)))
3818
3819 (define-public eog
3820  (package
3821    (name "eog")
3822    (version "3.26.2")
3823    (source (origin
3824             (method url-fetch)
3825             (uri (string-append "mirror://gnome/sources/" name "/"
3826                                 (version-major+minor version) "/"
3827                                 name "-" version ".tar.xz"))
3828             (sha256
3829              (base32
3830               "1b87i31mxzayd3knn9zg00y816d093qrbyx556w8a03xz96ksgmm"))))
3831    (build-system glib-or-gtk-build-system)
3832    (arguments
3833     `(#:phases
3834       (modify-phases %standard-phases
3835         (add-after
3836          'install 'wrap-eog
3837          (lambda* (#:key outputs #:allow-other-keys)
3838            (let ((out               (assoc-ref outputs "out"))
3839                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
3840              (wrap-program (string-append out "/bin/eog")
3841                `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
3842            #t)))))
3843    (propagated-inputs
3844     `(("dconf" ,dconf)))
3845    (native-inputs
3846     `(("intltool" ,intltool)
3847       ("itstool" ,itstool)
3848       ("glib" ,glib "bin")
3849       ("gobject-introspection" ,gobject-introspection)
3850       ("pkg-config" ,pkg-config)
3851       ("xmllint" ,libxml2)))
3852    (inputs
3853     `(("gnome-desktop" ,gnome-desktop)
3854       ("shared-mime-info" ,shared-mime-info)
3855       ("adwaita-icon-theme" ,adwaita-icon-theme)
3856       ("exempi" ,exempi)
3857       ("lcms" ,lcms)
3858       ("libexif" ,libexif)
3859       ("libpeas" ,libpeas)
3860       ("libjpeg" ,libjpeg)
3861       ("librsvg" ,librsvg)
3862       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3863       ("gtk+" ,gtk+)))
3864    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
3865    (synopsis "GNOME image viewer")
3866    (description "Eye of GNOME is the GNOME image viewer.  It
3867 supports image conversion, rotation, and slideshows.")
3868    (license license:gpl2+)))
3869
3870 (define-public eog-plugins
3871   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
3872   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
3873   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
3874   ;; 'XDG_DATA_DIRS' appropriately set.
3875   (package
3876     (name "eog-plugins")
3877     (version "3.26.1")
3878     (source (origin
3879               (method url-fetch)
3880               (uri (string-append "mirror://gnome/sources/" name "/"
3881                                   (version-major+minor version) "/"
3882                                   name "-" version ".tar.xz"))
3883               (sha256
3884                (base32
3885                 "0v45f2m3b60ygkwpq6jrl49nwrivw6qy0ciibpv821qrm73hsgd7"))))
3886     (build-system gnu-build-system)
3887     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
3888     (synopsis "Extensions for the Eye of GNOME image viewer")
3889     (native-inputs
3890      `(("pkg-config" ,pkg-config)
3891        ("gettext" ,gnu-gettext)))
3892     (inputs
3893      `(("eog" ,eog)
3894        ("glib" ,glib)
3895        ("gtk+" ,gtk+)
3896        ("libpeas" ,libpeas)
3897        ("libexif" ,libexif)
3898        ("libchamplain" ,libchamplain)))
3899     (description
3900      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
3901 notably:
3902
3903 @itemize
3904 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
3905 @item @dfn{Map}, which displays a map of where the picture was taken on the
3906 side panel;
3907 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
3908 @end itemize\n")
3909
3910     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
3911     ;; long suspicious byte stream that goes to a
3912     ;; ".gresource.eog_postasa_plugin" ELF section.
3913     (license license:gpl2+)))
3914
3915 (define-public libgudev
3916   (package
3917     (name "libgudev")
3918     (version "230")
3919     (source (origin
3920               (method url-fetch)
3921               (uri (string-append "mirror://gnome/sources/" name "/"
3922                                   version "/" name "-" version ".tar.xz"))
3923               (sha256
3924                (base32
3925                 "063w6j35n0i0ssmv58kivc1mw4070z6fzb83hi4xfrhcxnn7zrx2"))))
3926     (build-system gnu-build-system)
3927     (native-inputs
3928      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
3929        ("gobject-introspection" ,gobject-introspection)
3930        ("pkg-config" ,pkg-config)))
3931     (propagated-inputs
3932      `(("glib" ,glib))) ; required by gudev-1.0.pc
3933     (inputs
3934      `(("udev" ,eudev)))
3935     (home-page "https://wiki.gnome.org/Projects/libgudev")
3936     (synopsis "GObject bindings for libudev")
3937     (description
3938      "This library provides GObject bindings for libudev.  It was originally
3939 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
3940     (license license:lgpl2.1+)))
3941
3942 (define-public gvfs
3943   (package
3944     (name "gvfs")
3945     (version "1.32.1")
3946     (source (origin
3947               (method url-fetch)
3948               (uri (string-append "mirror://gnome/sources/" name "/"
3949                                   (version-major+minor version) "/"
3950                                   name "-" version ".tar.xz"))
3951               (sha256
3952                (base32
3953                 "1pkahczniar1yyas7awcqpkb4ca8l7qa4msn6mr29m89mgnwkdnh"))))
3954     (build-system gnu-build-system)
3955     (arguments
3956      '(#:tests? #f)) ; XXX: requiring `pidof'
3957     (native-inputs
3958      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
3959        ("intltool" ,intltool)
3960        ("pkg-config" ,pkg-config)
3961        ("xsltproc" ,libxslt)))
3962     (inputs
3963      `(("avahi" ,avahi)
3964        ("docbook-xml" ,docbook-xml-4.2)
3965        ("docbook-xsl" ,docbook-xsl)
3966        ("dbus" ,dbus)
3967        ("fuse" ,fuse)
3968        ("gcr" ,gcr)
3969        ("glib" ,glib)
3970        ("libarchive" ,libarchive)
3971        ("libbluray" ,libbluray)
3972        ("libcap" ,libcap)
3973        ("libcdio-paranoia" ,libcdio-paranoia)
3974        ("libgcrypt" ,libgcrypt)
3975        ("libgphoto2" ,libgphoto2)
3976        ("libgudev" ,libgudev)
3977        ("libmtp" ,libmtp)
3978        ("libsecret" ,libsecret)
3979        ("libsmbclient" ,samba)
3980        ("libsoup" ,libsoup)
3981        ("libxml2" ,libxml2)
3982        ("nettle" ,nettle) ; XXX: required by libarchive.pc
3983        ("polkit" ,polkit)
3984        ("udisks" ,udisks)))
3985     (home-page "https://wiki.gnome.org/gvfs/")
3986     (synopsis "Userspace virtual file system for GIO")
3987     (description
3988      "GVFS is a userspace virtual file system designed to work with the I/O
3989 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
3990 to all applications using the GIO API.  It also supports exposing the GVFS
3991 mounts to non-GIO applications using FUSE.
3992
3993 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
3994 DAV, and others.")
3995     (license license:lgpl2.0+)))
3996
3997 (define-public gusb
3998   (package
3999     (name "gusb")
4000     (version "0.2.9")
4001     (source (origin
4002               (method url-fetch)
4003               (uri (string-append "https://github.com/hughsie/libgusb/archive/"
4004                                   "gusb_"
4005                                   (string-join (string-split version #\.)
4006                                                "_")
4007                                   ".tar.gz"))
4008               (sha256
4009                (base32
4010                 "1500mgpidmnjfkcz1fzqkbqv547iy1cvr8bwf3k9vqgqcjx3844n"))))
4011     (build-system gnu-build-system)
4012     (native-inputs
4013      `(("glib:bin" ,glib "bin")         ; for glib-genmarshal, etc.
4014        ("gobject-introspection" ,gobject-introspection)
4015        ("pkg-config" ,pkg-config)
4016        ("vala" ,vala)
4017        ("autoconf" ,autoconf)
4018        ("automake" ,automake)
4019        ("libtool" ,libtool)
4020        ("gtk-doc" ,gtk-doc)))
4021     (propagated-inputs
4022      ;; Both of these are required by gusb.pc.
4023      `(("glib" ,glib)
4024        ("libusb" ,libusb)))
4025     (arguments
4026      `(#:tests? #f  ; libusb fails to initialize.  Wonder what that is.
4027        #:phases
4028        (modify-phases %standard-phases
4029          (add-after 'unpack 'autogen
4030                     (lambda _
4031                       (and (zero? (system* "gtkdocize"))
4032                            (zero? (system* "autoreconf" "-vif"))))))))
4033     (home-page "https://github.com/hughsie/libgusb")
4034     (synopsis "GLib binding for libusb1")
4035     (description
4036      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
4037 asynchronous control, bulk and interrupt transfers with proper cancellation
4038 and integration into a mainloop.  This makes it easy to integrate low level
4039 USB transfers with your high-level application or system daemon.")
4040     (license license:lgpl2.1+)))
4041
4042 (define-public simple-scan
4043   (package
4044     (name "simple-scan")
4045     (version "3.24.1")
4046     (source (origin
4047               (method url-fetch)
4048               (uri (string-append "https://launchpad.net/simple-scan/"
4049                                   (version-major+minor version) "/"
4050                                   version "/+download/simple-scan-"
4051                                   version ".tar.xz"))
4052               (sha256
4053                (base32
4054                 "1czg21cdbd2fgqylxfnzfhhzy69gycf816d5bbaq6hb62hmq7bjy"))))
4055     (build-system glib-or-gtk-build-system)
4056     (inputs
4057      `(("gtk" ,gtk+)
4058        ("zlib" ,zlib)
4059        ("cairo" ,cairo)
4060        ("gdk-pixbuf" ,gdk-pixbuf)
4061        ("gusb" ,gusb)
4062        ("libsane" ,sane-backends)))
4063     (native-inputs
4064      `(("gettext" ,gettext-minimal)
4065        ("itstool" ,itstool)
4066        ("colord" ,colord)
4067        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
4068        ("pkg-config" ,pkg-config)
4069        ("vala" ,vala)
4070        ("xmllint" ,libxml2)))
4071     (arguments
4072      '(#:configure-flags '("--disable-packagekit")
4073        #:phases
4074        (modify-phases %standard-phases
4075          (add-after 'unpack 'clean
4076                     (lambda _
4077                       ;; Remove a left-over reference to PackageKit.
4078
4079                       ;; https://bugs.launchpad.net/simple-scan/+bug/1462769
4080
4081                       ;; There are some generated C files erroneously
4082                       ;; included in the source distribution, and this
4083                       ;; one breaks the build by referring to a
4084                       ;; non-existent header (packagekit.h)
4085                       (delete-file "src/ui.c"))))))
4086     (home-page "https://launchpad.net/simple-scan")
4087     (synopsis "Document and image scanner")
4088     (description "Simple Scan is an easy-to-use application, designed to let
4089 users connect their scanner and quickly have the image/document in an
4090 appropriate format.  Simple Scan is basically a frontend for SANE - which is
4091 the same backend as XSANE uses. This means that all existing scanners will
4092 work and the interface is well tested.")
4093     (license license:gpl3+)))
4094
4095 (define-public eolie
4096   (package
4097     (name "eolie")
4098     (version "0.9.15")
4099     (source (origin
4100               (method url-fetch)
4101               (uri (string-append "https://github.com/gnumdk/eolie/"
4102                                   "releases/download/" version
4103                                   "/eolie-" version ".tar.xz"))
4104               (sha256
4105                (base32
4106                 "0glydxp1xh85gfidk1l9miqn6qxdbvvk5s3iy0pjlv8nrs3263jd"))))
4107     (build-system glib-or-gtk-build-system)
4108     (arguments
4109      `(#:phases
4110        (modify-phases %standard-phases
4111          (delete 'configure)
4112          (replace 'build
4113            (lambda* (#:key outputs #:allow-other-keys)
4114              (zero? (system* "meson" "build"
4115                              "--prefix" (assoc-ref outputs "out")))))
4116          (replace 'check
4117            (lambda _ (zero? (system* "ninja" "-C" "build" "test"))))
4118          (replace 'install
4119            (lambda* (#:key outputs #:allow-other-keys)
4120              (zero? (system* "ninja" "-C" "build" "install"))))
4121          (add-after 'wrap 'wrap-more
4122            (lambda* (#:key inputs outputs #:allow-other-keys)
4123              (let* ((out  (assoc-ref outputs "out"))
4124                     ;; These libraries must be on LD_LIBRARY_PATH.
4125                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
4126                             "atk" "gtk+" "gsettings-desktop-schemas"
4127                             "gobject-introspection"))
4128                     (path (string-join
4129                            (map (lambda (lib)
4130                                   (string-append (assoc-ref inputs lib) "/lib"))
4131                                 libs)
4132                            ":")))
4133                (wrap-program (string-append out "/bin/eolie")
4134                  `("LD_LIBRARY_PATH" ":" prefix (,path))
4135                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
4136                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
4137              #t)))))
4138     (native-inputs
4139      `(("intltool" ,intltool)
4140        ("itstool" ,itstool)
4141        ("pkg-config" ,pkg-config)
4142        ("meson" ,meson-for-build)
4143        ("ninja" ,ninja)
4144        ("python" ,python)
4145        ("gtk+" ,gtk+ "bin")))
4146     (inputs
4147      `(("gobject-introspection" ,gobject-introspection)
4148        ("glib-networking" ,glib-networking)
4149        ("cairo" ,cairo)
4150        ("gtk+" ,gtk+)
4151        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
4152        ("python" ,python-wrapper)
4153        ("python-dateutil" ,python-dateutil)
4154        ("python-pygobject" ,python-pygobject)
4155        ("python-pycairo" ,python-pycairo)
4156        ("libsecret" ,libsecret)
4157        ("gtkspell3" ,gtkspell3)
4158        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4159        ("webkitgtk" ,webkitgtk)))
4160     (home-page "https://github.com/gnumdk/eolie/")
4161     (synopsis "Web browser for GNOME")
4162     (description
4163      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
4164 a secret password store, an adblocker, and a modern UI.")
4165     (license license:gpl3+)))
4166
4167 (define-public epiphany
4168   (package
4169     (name "epiphany")
4170     (version "3.28.1")
4171     (source (origin
4172               (method url-fetch)
4173               (uri (string-append "mirror://gnome/sources/" name "/"
4174                                   (version-major+minor version) "/"
4175                                   name "-" version ".tar.xz"))
4176               (sha256
4177                (base32
4178                 "0zvxrwlswxadq4zbr4f73ms141d08j0lhi6rzmj83j1s3gan88md"))))
4179
4180     (build-system meson-build-system)
4181     (arguments
4182      ;; FIXME: tests run under Xvfb, but fail with:
4183      ;;   /src/bookmarks/ephy-bookmarks/create:
4184      ;;   ** (test-ephy-bookmarks:19591): WARNING **: Unable to start Zeroconf
4185      ;;      subsystem
4186      ;;   FAIL
4187      '(#:tests? #f
4188        #:glib-or-gtk? #t))
4189     (propagated-inputs
4190      `(("dconf" ,dconf)))
4191     (native-inputs
4192      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
4193        ("glib:bin" ,glib "bin") ; for glib-mkenums
4194        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
4195        ("intltool" ,intltool)
4196        ("itstool" ,itstool)
4197        ("pkg-config" ,pkg-config)
4198        ("xmllint" ,libxml2)))
4199     (inputs
4200      `(("avahi" ,avahi)
4201        ("gcr" ,gcr)
4202        ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
4203        ("glib-networking" ,glib-networking)
4204        ("gnome-desktop" ,gnome-desktop)
4205        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4206        ("json-glib" ,json-glib)
4207        ("iso-codes" ,iso-codes)
4208        ("libnotify" ,libnotify)
4209        ("libsecret" ,libsecret)
4210        ("libxslt" ,libxslt)
4211        ("nettle" ,nettle) ; for hogweed
4212        ("sqlite" ,sqlite)
4213        ("webkitgtk" ,webkitgtk)))
4214     (home-page "https://wiki.gnome.org/Apps/Web")
4215     (synopsis "GNOME web browser")
4216     (description
4217      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
4218 principles are simplicity and standards compliance.")
4219     (license license:gpl2+)))
4220
4221 (define-public d-feet
4222   (package
4223     (name "d-feet")
4224     (version "0.3.11")
4225     (source (origin
4226               (method url-fetch)
4227               (uri (string-append "mirror://gnome/sources/" name "/"
4228                                   (version-major+minor version) "/"
4229                                   name "-" version ".tar.xz"))
4230               (sha256
4231                (base32
4232                 "1hmrijm4d9vwzx2r8qzzsy8ccpj79l1y6cc569n9jjzqcq699p53"))))
4233     (build-system glib-or-gtk-build-system)
4234     (arguments
4235      '(#:out-of-source? #f ; tests need to run in the source directory.
4236        #:phases
4237        (modify-phases %standard-phases
4238          (add-before
4239           'check 'pre-check
4240           (lambda _
4241             ;; The test suite requires a running X server.
4242             (system "Xvfb :1 &")
4243             (setenv "DISPLAY" ":1")
4244             ;; Don't fail on missing '/etc/machine-id'.
4245             (setenv "DBUS_FATAL_WARNINGS" "0")
4246             ;; tests.py and window.py don't meet E402:
4247             ;;   E402 module level import not at top of file
4248             (substitute* "src/tests/Makefile"
4249               (("--ignore=E123") "--ignore=E123,E402"))
4250             #t))
4251          (add-after
4252           'install 'wrap-program
4253           (lambda* (#:key outputs #:allow-other-keys)
4254             (let ((prog (string-append (assoc-ref outputs "out")
4255                                        "/bin/d-feet")))
4256               (wrap-program prog
4257                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
4258                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
4259               #t))))))
4260     (native-inputs
4261      `(("intltool" ,intltool)
4262        ("itstool" ,itstool)
4263        ("pkg-config" ,pkg-config)
4264        ("python-pep8" ,python-pep8)
4265        ("xmllint" ,libxml2)
4266        ("xorg-server" ,xorg-server)))
4267     (inputs
4268      `(("gobject-introspection" ,gobject-introspection)
4269        ("gtk+" ,gtk+)
4270        ("python" ,python-wrapper)
4271        ("python-pygobject" ,python-pygobject)))
4272     (home-page "https://wiki.gnome.org/Apps/DFeet")
4273     (synopsis "D-Bus debugger")
4274     (description
4275      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
4276 of running programs and invoke methods on those interfaces.")
4277     (license license:gpl2+)))
4278
4279 (define-public yelp-xsl
4280   (package
4281     (name "yelp-xsl")
4282     (version "3.20.1")
4283     (source (origin
4284               (method url-fetch)
4285               (uri (string-append "mirror://gnome/sources/" name "/"
4286                                   (version-major+minor version) "/"
4287                                   name "-" version ".tar.xz"))
4288               (sha256
4289                (base32
4290                 "183vz4aw8fcmw8k8q7r4zrm1p76gwg2cca1fsdrkaiyabng88qfw"))))
4291     (build-system gnu-build-system)
4292     (native-inputs
4293      `(("intltool" ,intltool)
4294        ("itstool" ,itstool)
4295        ("xmllint" ,libxml2)))
4296     (home-page "https://wiki.gnome.org/Apps/Yelp")
4297     (synopsis "XSL stylesheets for Yelp")
4298     (description
4299      "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
4300 to format Docbook and Mallard documents.")
4301     (license license:gpl2+)))
4302
4303 (define-public yelp
4304   (package
4305     (name "yelp")
4306     (version "3.22.0")
4307     (source (origin
4308               (method url-fetch)
4309               (uri (string-append "mirror://gnome/sources/" name "/"
4310                                   (version-major+minor version) "/"
4311                                   name "-" version ".tar.xz"))
4312               (sha256
4313                (base32
4314                 "13kpi0qmnfx2xwizyhmf5i5xaw9ckcn1k7v0289p7als4dybf5l6"))))
4315     (build-system glib-or-gtk-build-system)
4316     (native-inputs
4317      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
4318        ("intltool" ,intltool)
4319        ("itstool" ,itstool)
4320        ("pkg-config" ,pkg-config)))
4321     (propagated-inputs
4322      `(("dconf" ,dconf)))
4323     (inputs
4324      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4325        ("libxslt" ,libxslt)
4326        ("sqlite" ,sqlite)
4327        ("webkitgtk" ,webkitgtk)
4328        ("yelp-xsl" ,yelp-xsl)))
4329     (home-page "https://wiki.gnome.org/Apps/Yelp")
4330     (synopsis "GNOME help browser")
4331     (description
4332      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
4333 man, info, and HTML documents.  It can locate documents according to the
4334 freedesktop.org help system specification.")
4335     (license license:gpl2+)))
4336
4337 (define-public yelp-tools
4338   (package
4339     (name "yelp-tools")
4340     (version "3.18.0")
4341     (source (origin
4342               (method url-fetch)
4343               (uri (string-append "mirror://gnome/sources/" name "/"
4344                                   (version-major+minor version) "/"
4345                                   name "-" version ".tar.xz"))
4346               (sha256
4347                (base32
4348                 "0ck9f78c1xka8a823bd7w1k0gdn4k19zvaj7viy2d5r3h1gxdhf6"))))
4349     (build-system gnu-build-system)
4350     (native-inputs
4351      `(("pkg-config" ,pkg-config)))
4352     (propagated-inputs
4353      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
4354      `(("itstool" ,itstool)
4355        ("xmllint" ,libxml2)
4356        ("xsltproc" ,libxslt)))
4357     (inputs
4358      `(("yelp-xsl" ,yelp-xsl)))
4359     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
4360     (synopsis "Yelp documentation tools")
4361     (description
4362      "Yelp-tools is a collection of scripts and build utilities to help create,
4363 manage, and publish documentation for Yelp and the web.  Most of the heavy
4364 lifting is done by packages like yelp-xsl and itstool.  This package just
4365 wraps things up in a developer-friendly way.")
4366     (license license:gpl2+)))
4367
4368 (define-public libgee
4369   (package
4370     (name "libgee")
4371     (version "0.20.1")
4372     (source (origin
4373               (method url-fetch)
4374               (uri (string-append "mirror://gnome/sources/" name "/"
4375                                   (version-major+minor version) "/"
4376                                   name "-" version ".tar.xz"))
4377               (sha256
4378                (base32
4379                 "0c26x8gi3ivmhlbqcmiag4jwrkvcy28ld24j55nqr3jikb904a5v"))))
4380     (build-system gnu-build-system)
4381     (arguments
4382      `(#:phases
4383        (modify-phases %standard-phases
4384          (add-after 'unpack 'fix-introspection-install-dir
4385           (lambda* (#:key outputs #:allow-other-keys)
4386             (let ((out (assoc-ref outputs "out")))
4387               (substitute* "gee/Makefile.in"
4388                 (("@INTROSPECTION_GIRDIR@")
4389                  (string-append out "/share/gir-1.0/"))
4390                 (("@INTROSPECTION_TYPELIBDIR@")
4391                  (string-append out "/lib/girepository-1.0/")))))))))
4392     (native-inputs
4393      `(("glib" ,glib "bin")
4394        ("pkg-config" ,pkg-config)))
4395     (inputs
4396      `(("glib" ,glib)
4397        ("gobject-introspection" ,gobject-introspection)))
4398     (home-page "https://wiki.gnome.org/Projects/Libgee")
4399     (synopsis "GObject collection library")
4400     (description
4401      "Libgee is a utility library providing GObject-based interfaces and
4402 classes for commonly used data structures.")
4403     (license license:lgpl2.1+)))
4404
4405 (define-public gexiv2
4406   (package
4407     (name "gexiv2")
4408     (version "0.10.8")
4409     (source (origin
4410               (method url-fetch)
4411               (uri (string-append "mirror://gnome/sources/" name "/"
4412                                   (version-major+minor version) "/"
4413                                   name "-" version ".tar.xz"))
4414               (sha256
4415                (base32
4416                 "0088m7p044n741ly1m6i7w25z513h9wpgyw0rmx5f0sy3vyjiic1"))))
4417     (build-system meson-build-system)
4418     (native-inputs
4419      `(("glib" ,glib "bin")
4420        ("pkg-config" ,pkg-config)))
4421     (propagated-inputs
4422      ;; Listed in "Requires" section of gexiv2.pc
4423      `(("exiv2" ,exiv2)))
4424     (inputs
4425      `(("glib" ,glib)
4426        ("gobject-introspection" ,gobject-introspection)))
4427     (home-page "https://wiki.gnome.org/Projects/gexiv2")
4428     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
4429     (description
4430      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
4431 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
4432 metadata in photo and video files of various formats.")
4433     (license license:gpl2+)))
4434
4435 (define-public shotwell
4436   (package
4437     (name "shotwell")
4438     (version "0.28.0")
4439     (source (origin
4440               (method url-fetch)
4441               (uri (string-append "mirror://gnome/sources/" name "/"
4442                                   (version-major+minor version) "/"
4443                                   name "-" version ".tar.xz"))
4444               (sha256
4445                (base32
4446                 "1d797nmlz9gs6ri0h65b76s40ss6ma6h6405xqx03lhg5xni3kmg"))))
4447     (build-system glib-or-gtk-build-system)
4448     (propagated-inputs
4449      `(("dconf" ,dconf)))
4450     (native-inputs
4451      `(("pkg-config" ,pkg-config)
4452        ("itstool" ,itstool)
4453        ("gettext" ,gettext-minimal)
4454        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
4455        ("itstool" ,itstool)
4456        ("vala" ,vala)))
4457     (inputs
4458      `(("glib:bin" ,glib "bin")
4459        ("gstreamer" ,gstreamer)
4460        ("gst-plugins-base" ,gst-plugins-base)
4461        ("libgdata" ,libgdata)
4462        ("libgee" ,libgee)
4463        ("gexiv2" ,gexiv2)
4464        ("libraw" ,libraw)
4465        ("json-glib" ,json-glib)
4466        ("webkitgtk" ,webkitgtk)
4467        ("sqlite" ,sqlite)
4468        ("libsoup" ,libsoup)
4469        ("libxml2" ,libxml2)
4470        ("libgudev" ,libgudev)
4471        ("libgphoto2" ,libgphoto2)
4472        ("gcr" ,gcr)))
4473     (home-page "https://wiki.gnome.org/Apps/Shotwell")
4474     (synopsis "Photo manager for GNOME 3")
4475     (description
4476      "Shotwell is a digital photo manager designed for the GNOME desktop
4477 environment.  It allows you to import photos from disk or camera, organize
4478 them by keywords and events, view them in full-window or fullscreen mode, and
4479 share them with others via social networking and more.")
4480     (license license:lgpl2.1+)))
4481
4482 (define-public file-roller
4483   (package
4484     (name "file-roller")
4485     (version "3.26.2")
4486     (source (origin
4487               (method url-fetch)
4488               (uri (string-append "mirror://gnome/sources/" name "/"
4489                                   (version-major+minor version) "/"
4490                                   name "-" version ".tar.xz"))
4491               (sha256
4492                (base32
4493                 "19d8pc5z2xzhnicgaysxmwx3ghwzl4cw8kygd6nsw69g3j77nrry"))))
4494     (build-system glib-or-gtk-build-system)
4495     (arguments
4496      '(#:phases
4497        (modify-phases %standard-phases
4498          (add-before 'install 'skip-gtk-update-icon-cache
4499            (lambda _
4500              ;; Don't create 'icon-theme.cache'
4501              (substitute* (find-files "data" "^Makefile$")
4502                (("gtk-update-icon-cache") (which "true")))
4503              #t)))))
4504     (native-inputs
4505      `(("intltool" ,intltool)
4506        ("pkg-config" ,pkg-config)))
4507     ;; TODO: Add libnautilus.
4508     (inputs
4509      `(("gtk+" ,gtk+)
4510        ("gdk-pixbuf" ,gdk-pixbuf)
4511        ("json-glib" ,json-glib)
4512        ("libarchive" ,libarchive)
4513        ("libnotify" ,libnotify)
4514        ("nettle" ,nettle)
4515        ("itstool" ,itstool)
4516        ("libxml2" ,libxml2)))
4517     (synopsis "Graphical archive manager for GNOME")
4518     (description "File Roller is an archive manager for the GNOME desktop
4519 environment that allows users to view, unpack, and create compressed archives
4520 such as gzip tarballs.")
4521     (home-page "http://fileroller.sourceforge.net/")
4522     (license license:gpl2+)))
4523
4524 (define-public gnome-session
4525   (package
4526     (name "gnome-session")
4527     (version "3.24.1")
4528     (source (origin
4529               (method url-fetch)
4530               (uri (string-append "mirror://gnome/sources/" name "/"
4531                                   (version-major+minor version) "/"
4532                                   name "-" version ".tar.xz"))
4533               (sha256
4534                (base32
4535                 "1vkfjsgks9czajivcg3y1krzlnilv2cnzzbdc7wrasrriqilji1v"))))
4536     (arguments
4537      '(#:phases
4538        (modify-phases %standard-phases
4539          (add-before 'configure 'pre-configure
4540            (lambda* (#:key outputs #:allow-other-keys)
4541              ;; Use elogind instead of systemd.
4542              (substitute* "configure"
4543                (("libsystemd-login >= 183 libsystemd-daemon libsystemd-journal")
4544                 "libelogind")
4545                (("systemd") "elogind"))
4546              (substitute* "gnome-session/gsm-systemd.c"
4547                (("#include <systemd/sd-login.h>")
4548                 "#include <elogind/sd-login.h>"))
4549              ;; Remove uses of the systemd journal.
4550              (substitute* "gnome-session/main.c"
4551                (("#ifdef HAVE_SYSTEMD") "#if 0"))
4552              (substitute* "gnome-session/gsm-manager.c"
4553                (("#ifdef HAVE_SYSTEMD") "#if 0"))
4554              (substitute* "gnome-session/gsm-autostart-app.c"
4555                (("#ifdef HAVE_SYSTEMD") "#if 0"))
4556              #t))
4557          (add-after 'install 'wrap-gnome-session
4558            (lambda* (#:key inputs outputs #:allow-other-keys)
4559              ;; Make sure 'gnome-session' finds the 'gsettings' program.
4560              (let ((glib (assoc-ref inputs "glib:bin"))
4561                    (out  (assoc-ref outputs "out")))
4562                (wrap-program (string-append out "/bin/gnome-session")
4563                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
4564                #t)))
4565          (add-after 'install 'disable-hardware-acceleration-check
4566            (lambda* (#:key outputs #:allow-other-keys)
4567              ;; Do not abort if hardware acceleration is missing.  This allows
4568              ;; GNOME to run in QEMU and on low-end devices.
4569              (let ((out (assoc-ref outputs "out")))
4570                (substitute* (string-append out
4571                                            "/share/xsessions/gnome.desktop")
4572                  (("gnome-session")
4573                   "gnome-session --disable-acceleration-check"))
4574                #t))))
4575
4576        #:configure-flags
4577        '("--enable-elogind")))
4578     (build-system glib-or-gtk-build-system)
4579     (native-inputs
4580      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4581        ("pkg-config" ,pkg-config)
4582        ("intltool" ,intltool)
4583        ("xsltproc" ,libxslt)))
4584     (inputs
4585      `(("elogind" ,elogind)
4586        ("gnome-desktop" ,gnome-desktop)
4587        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4588        ("gtk+" ,gtk+)
4589        ("json-glib" ,json-glib)
4590        ("libsm" ,libsm)
4591        ("libxcomposite" ,libxcomposite)
4592        ("libxtst" ,libxtst)
4593        ("mesa" ,mesa)
4594        ("upower" ,upower)
4595        ("xtrans" ,xtrans)))
4596     (synopsis "Session manager for GNOME")
4597     (description
4598      "This package contains the GNOME session manager, as well as a
4599 configuration program to choose applications starting on login.")
4600     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
4601     (license license:gpl2+)))
4602
4603 (define-public gjs
4604   (package
4605     (name "gjs")
4606     (version "1.48.6")
4607     (source (origin
4608               (method url-fetch)
4609               (uri (string-append "mirror://gnome/sources/" name "/"
4610                                   (version-major+minor version) "/"
4611                                   name "-" version ".tar.xz"))
4612               (sha256
4613                (base32
4614                 "04nkig077r7xq55dxg9v46w8i7p8zkkdyja92yv81grq9fx6apz8"))))
4615     (build-system gnu-build-system)
4616     (arguments
4617      '(#:phases
4618        (modify-phases %standard-phases
4619          (add-before
4620           'check 'pre-check
4621           (lambda _
4622             ;; The test suite requires a running X server.
4623             (system "Xvfb :1 &")
4624             (setenv "DISPLAY" ":1")
4625
4626             ;; For the missing /etc/machine-id.
4627             (setenv "DBUS_FATAL_WARNINGS" "0")
4628
4629             ;; Our mozjs-38 package does not compile the required Intl API
4630             ;; support for these failing tests.
4631             (substitute* "installed-tests/js/testLocale.js"
4632               ((".*toBeDefined.*") "")
4633               ((".*expect\\(datestr\\).*") ""))
4634             #t)))))
4635     (native-inputs
4636      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
4637        ("pkg-config" ,pkg-config)
4638        ("xmllint" ,libxml2)
4639        ;; For testing
4640        ("dbus-launch" ,dbus)
4641        ("uuidgen" ,util-linux)
4642        ("xvfb" ,xorg-server)))
4643     (propagated-inputs
4644      ;; These are all in the Requires.private field of gjs-1.0.pc.
4645      `(("cairo" ,cairo)
4646        ("gobject-introspection" ,gobject-introspection)
4647        ("mozjs" ,mozjs-38)))
4648     (inputs
4649      `(("gtk+" ,gtk+)
4650        ("readline" ,readline)))
4651     (synopsis "Javascript bindings for GNOME")
4652     (home-page "https://live.gnome.org/Gjs")
4653     (description
4654      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
4655 javascript engine and the GObject introspection framework.")
4656     (license license:gpl2+)))
4657
4658 (define-public gedit
4659   (package
4660     (name "gedit")
4661     (version "3.28.0")
4662     (source (origin
4663               (method url-fetch)
4664               (uri (string-append "mirror://gnome/sources/" name "/"
4665                                   (version-major+minor version) "/"
4666                                   name "-" version ".tar.xz"))
4667               (sha256
4668                (base32
4669                 "0pyam0zi44xq776x20ycqnvmf86l98jns8ldv4m81gnp9wnhmycv"))))
4670     (build-system glib-or-gtk-build-system)
4671     (arguments
4672      `(#:phases
4673        (modify-phases %standard-phases
4674          (add-after
4675           'install 'wrap-gedit
4676           (lambda* (#:key inputs outputs #:allow-other-keys)
4677             (let ((out               (assoc-ref outputs "out"))
4678                   (gtksourceview     (assoc-ref inputs "gtksourceview"))
4679                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
4680                   (python-path       (getenv "PYTHONPATH")))
4681               (wrap-program (string-append out "/bin/gedit")
4682                 ;; For plugins.
4683                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
4684                 `("PYTHONPATH" ":" prefix (,python-path))
4685                 ;; For language-specs.
4686                 `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
4687                                                               "/share")))))
4688             #t)))))
4689     (propagated-inputs
4690      `(("dconf" ,dconf)))
4691     (native-inputs
4692      `(("intltool" ,intltool)
4693        ("itstool" ,itstool)
4694        ("gobject-introspection" ,gobject-introspection)
4695        ("pkg-config" ,pkg-config)))
4696     (inputs
4697      `(("glib" ,glib)
4698        ("gspell" ,gspell)
4699        ("gtk+" ,gtk+)
4700        ("gtksourceview" ,gtksourceview)
4701        ("libpeas" ,libpeas)
4702        ("libxml2" ,libxml2)
4703        ("iso-codes" ,iso-codes)
4704        ("python-pygobject" ,python-pygobject)
4705        ("python" ,python)
4706        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4707        ("libx11" ,libx11)
4708        ("vala" ,vala)
4709        ("adwaita-icon-theme" ,adwaita-icon-theme)
4710        ("libsoup" ,libsoup)
4711        ("gnome-desktop" ,gnome-desktop)))
4712     (home-page "https://wiki.gnome.org/Apps/Gedit")
4713     (synopsis "GNOME text editor")
4714     (description "While aiming at simplicity and ease of use, gedit is a
4715 powerful general purpose text editor.")
4716     (license license:gpl2+)))
4717
4718 (define-public zenity
4719   (package
4720     (name "zenity")
4721     (version "3.24.0")
4722     (source (origin
4723               (method url-fetch)
4724               (uri (string-append "mirror://gnome/sources/" name "/"
4725                                   (version-major+minor version) "/"
4726                                   name "-" version ".tar.xz"))
4727               (sha256
4728                (base32
4729                 "1xzpm63cib2xzr99phplhbcjzy7lahggk3gp60dvrrclxhka1w3g"))))
4730     (build-system gnu-build-system)
4731     (native-inputs
4732      `(("gettext" ,gettext-minimal)
4733        ("itstool" ,itstool)
4734        ("pkg-config" ,pkg-config)))
4735     (inputs
4736      `(("libnotify" ,libnotify)
4737        ("webkitgtk" ,webkitgtk)))
4738     (synopsis "Display graphical dialog boxes from shell scripts")
4739     (home-page "https://www.gnome.org")
4740     (description
4741      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
4742 to display dialog boxes from the commandline and shell scripts.")
4743     (license license:lgpl2.0+)))
4744
4745 (define-public mutter
4746   (package
4747     (name "mutter")
4748     (version "3.24.4")
4749     (source (origin
4750               (method url-fetch)
4751               (uri (string-append "mirror://gnome/sources/" name "/"
4752                                   (version-major+minor version) "/"
4753                                   name "-" version ".tar.xz"))
4754               (sha256
4755                (base32
4756                 "1slspy5krbqfvnma72lvdnxjf8ag2cvxssa8bvi7y3xxy7xv603k"))))
4757     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
4758     ;; versions of cogl and clutter.  As a result, many of the inputs,
4759     ;; propagated-inputs, and configure flags used in cogl and clutter are
4760     ;; needed here as well.
4761     (build-system gnu-build-system)
4762     (arguments
4763      '(#:configure-flags
4764        ;; XXX: build fails with [-Werror]:
4765        ;;    backends/meta-cursor-renderer.c:112:5: error:
4766        ;;      implicit declaration of function ?roundf?
4767        (list "--enable-compile-warnings=minimum"
4768
4769              "--enable-native-backend"
4770
4771              ;; The following flags are needed for the bundled clutter
4772              "--enable-x11-backend=yes"
4773
4774              (string-append "--with-xwayland-path="
4775                             (assoc-ref %build-inputs "xorg-server-xwayland")
4776                             "/bin/Xwayland")
4777
4778              ;; the remaining flags are needed for the bundled cogl
4779              "--enable-cogl-gst"
4780              (string-append "--with-gl-libname="
4781                             (assoc-ref %build-inputs "mesa")
4782                             "/lib/libGL.so"))
4783        #:phases
4784        (modify-phases %standard-phases
4785          ;; Replace references to systemd libraries to elogind references.
4786          (add-before 'configure 'use-elogind
4787            (lambda _
4788              (substitute* (list "configure"
4789                                 "src/backends/native/meta-launcher.c"
4790                                 "src/core/main.c")
4791                (("systemd") "elogind"))
4792              #t)))))
4793     (native-inputs
4794      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4795        ("gobject-introspection" ,gobject-introspection)
4796        ("intltool" ,intltool)
4797        ("pkg-config" ,pkg-config)
4798        ;; For git build
4799        ("autoconf" ,autoconf)
4800        ("automake" ,automake)
4801        ("libtool" ,libtool)))
4802     (propagated-inputs
4803      `(;; libmutter.pc refers to these:
4804        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4805        ("gtk+" ,gtk+)
4806        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
4807        ("atk" ,atk)
4808        ("cairo" ,cairo)
4809        ("gdk-pixbuf" ,gdk-pixbuf)
4810        ("glib" ,glib)
4811        ("gtk+" ,gtk+)
4812        ("json-glib" ,json-glib)
4813        ("libinput" ,libinput)
4814        ("libx11" ,libx11)
4815        ("libxcomposite" ,libxcomposite)
4816        ("libxdamage" ,libxdamage)
4817        ("libxext" ,libxext)
4818        ("libxfixes" ,libxfixes)
4819        ("libxkbcommon" ,libxkbcommon)
4820        ("libxrandr" ,libxrandr)
4821        ("mesa" ,mesa)
4822        ("pango" ,pango)
4823        ("udev" ,eudev)
4824        ("xinput" ,xinput)))
4825     (inputs
4826      `(("elogind" ,elogind)
4827        ("gnome-desktop" ,gnome-desktop)
4828        ("libcanberra-gtk" ,libcanberra)
4829        ("libgudev" ,libgudev)
4830        ("libice" ,libice)
4831        ("libsm" ,libsm)
4832        ("libxkbfile" ,libxkbfile)
4833        ("libxrandr" ,libxrandr)
4834        ("libxtst" ,libxtst)
4835        ("startup-notification" ,startup-notification)
4836        ("upower-glib" ,upower)
4837        ("xkeyboard-config" ,xkeyboard-config)
4838        ("xorg-server-xwayland" ,xorg-server-xwayland)
4839        ("zenity" ,zenity)))
4840     (synopsis "Window and compositing manager")
4841     (home-page "https://www.gnome.org")
4842     (description
4843      "Mutter is a window and compositing manager that displays and manages your
4844 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
4845 Clutter toolkit with solid window-management logic inherited from the Metacity
4846 window manager.")
4847     (license license:gpl2+)))
4848
4849 (define-public gnome-online-accounts
4850   (package
4851     (name "gnome-online-accounts")
4852     (version "3.26.2")
4853     (source (origin
4854               (method url-fetch)
4855               (uri (string-append "mirror://gnome/sources/" name "/"
4856                                   (version-major+minor version) "/"
4857                                   name "-" version ".tar.xz"))
4858               (sha256
4859                (base32
4860                 "1l8p1ghknmkmjpnpl7jr53j66qbzpikickzbmrz0aczyhq6pdy29"))))
4861     (build-system glib-or-gtk-build-system)
4862     (native-inputs
4863      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4864        ("gobject-introspection" ,gobject-introspection)
4865        ("intltool" ,intltool)
4866        ("pkg-config" ,pkg-config)
4867        ("xsltproc" ,libxslt)))
4868     (propagated-inputs
4869      `(("glib" ,glib)           ; required by goa-1.0.pc
4870        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
4871     (inputs
4872      `(("docbook-xsl" ,docbook-xsl)
4873        ("json-glib" ,json-glib)
4874        ("libsecret" ,libsecret)
4875        ("rest" ,rest)
4876        ("webkitgtk" ,webkitgtk)))
4877     (synopsis "Single sign-on framework for GNOME")
4878     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
4879     (description
4880      "GNOME Online Accounts provides interfaces so that applications and
4881 libraries in GNOME can access the user's online accounts.  It has providers for
4882 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
4883 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
4884     (license license:lgpl2.0+)))
4885
4886 (define-public evolution-data-server
4887   (package
4888     (name "evolution-data-server")
4889     (version "3.28.1")
4890     (source (origin
4891               (method url-fetch)
4892               (uri (string-append "mirror://gnome/sources/" name "/"
4893                                   (version-major+minor version) "/"
4894                                   name "-" version ".tar.xz"))
4895               (sha256
4896                (base32
4897                 "12b9lfgwd57rzn9394xrbvl9ym5aqldpz9v7c9a421dsv8dgq13b"))))
4898     (build-system cmake-build-system)
4899     (arguments
4900      '(;; XXX FIXME: 11/85 tests are failing.
4901        #:tests? #f
4902        #:configure-flags
4903        (let* ((lib (string-append (assoc-ref %outputs "out")
4904                                   "/lib"))
4905               (runpaths (map (lambda (s) (string-append
4906                                           lib "/evolution-data-server/" s))
4907                              '("addressbook-backends" "calendar-backends"
4908                                "camel-providers" "credential-modules"
4909                                "registry-modules"))))
4910          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
4911                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
4912                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
4913                "-DENABLE_VALA_BINDINGS=ON"
4914                ;; FIXME: Building against ICU 60 requires C++11 or higher.  Remove
4915                ;; "-std=gnu++11" when our default compiler is >= GCC6.
4916                ;; FIXME: Temporarily use "-DU_USING_ICU_NAMESPACE=1" until
4917                ;; evolution-data-server has been updated to qualify ICU types
4918                ;; explicitly, as required by ICU 61 and later.  See:
4919                ;; <https://ssl.icu-project.org/repos/icu/trunk/icu4c/readme.html#RecBuild>
4920                "-DCMAKE_CXX_FLAGS=-std=gnu++11 -DU_USING_ICU_NAMESPACE=1"
4921                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
4922                               (string-append lib "/evolution-data-server;")
4923                               (string-join runpaths ";"))
4924                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
4925        #:phases
4926        (modify-phases %standard-phases
4927          (add-after 'unpack 'patch-paths
4928           (lambda _
4929             (substitute* "tests/test-server-utils/e-test-server-utils.c"
4930               (("/bin/rm") (which "rm")))
4931             #t))
4932          (add-before 'configure 'dont-override-rpath
4933            (lambda _
4934              (substitute* "CMakeLists.txt"
4935                ;; CMakeLists.txt hard-codes runpath to just the libdir.
4936                ;; Remove it so the configure flag is respected.
4937                (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
4938              #t)))))
4939     (native-inputs
4940      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
4941        ("gobject-introspection" ,gobject-introspection)
4942        ("gperf" ,gperf)
4943        ("intltool" ,intltool)
4944        ("pkg-config" ,pkg-config)
4945        ("vala" ,vala)
4946        ("python" ,python-wrapper)))
4947     (propagated-inputs
4948      ;; These are all in the Requires field of .pc files.
4949      `(("gtk+" ,gtk+)
4950        ("libical" ,libical)
4951        ("libsecret" ,libsecret)
4952        ("libsoup" ,libsoup)
4953        ("nss" ,nss)
4954        ("sqlite" ,sqlite)))
4955     (inputs
4956      `(("bdb" ,bdb)
4957        ("gcr" ,gcr)
4958        ("gnome-online-accounts" ,gnome-online-accounts)
4959        ("json-glib" ,json-glib)
4960        ("libgweather" ,libgweather)
4961        ("mit-krb5" ,mit-krb5)
4962        ("openldap" ,openldap)
4963        ("webkitgtk" ,webkitgtk)))
4964     (synopsis "Store address books and calendars")
4965     (home-page "https://wiki.gnome.org/Apps/Evolution")
4966     (description
4967      "This package provides a unified backend for programs that work with
4968 contacts, tasks, and calendar information.  It was originally developed for
4969 Evolution (hence the name), but is now used by other packages as well.")
4970     (license license:lgpl2.0)))
4971
4972 (define-public caribou
4973   (package
4974     (name "caribou")
4975     (version "0.4.21")
4976     (source (origin
4977               (method url-fetch)
4978               (uri (string-append "mirror://gnome/sources/" name "/"
4979                                   (version-major+minor version) "/"
4980                                   name "-" version ".tar.xz"))
4981               (sha256
4982                (base32
4983                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
4984     (build-system glib-or-gtk-build-system)
4985     (arguments
4986      '(#:phases
4987        (modify-phases %standard-phases
4988          (add-before
4989           'build 'pre-build
4990           (lambda* (#:key outputs #:allow-other-keys)
4991             (let ((out (assoc-ref outputs "out")))
4992               ;; Use absolute shared library path in Caribou-1.0.typelib.
4993               (substitute* "libcaribou/Makefile"
4994                 (("--shared-library=libcaribou.so")
4995                  (string-append "--shared-library="
4996                                 out "/lib/libcaribou.so")))
4997               #t)))
4998          (add-after 'install 'wrap-programs
4999           (lambda* (#:key outputs #:allow-other-keys)
5000             (let* ((out (assoc-ref outputs "out"))
5001                    (python-path (getenv "PYTHONPATH"))
5002                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
5003               (for-each
5004                (lambda (prog)
5005                  (wrap-program prog
5006                    `("PYTHONPATH"      ":" prefix (,python-path))
5007                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5008                (list (string-append out "/bin/caribou-preferences")
5009                      (string-append out "/libexec/antler-keyboard"))))
5010             #t)))))
5011     (native-inputs
5012      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5013        ("gobject-introspection" ,gobject-introspection)
5014        ("intltool" ,intltool)
5015        ("pkg-config" ,pkg-config)
5016        ("python" ,python-2) ; incompatible with Python 3 (print syntax)
5017        ("vala" ,vala)
5018        ("xsltproc" ,libxslt)))
5019     (propagated-inputs
5020      ;; caribou-1.0.pc refers to all these.
5021      `(("libgee" ,libgee)
5022        ("libxklavier" ,libxklavier)
5023        ("libxtst" ,libxtst)
5024        ("gtk+" ,gtk+)))
5025     (inputs
5026      `(("clutter" ,clutter)
5027        ("dconf" ,dconf)
5028        ("gtk+-2" ,gtk+-2)
5029        ("python-pygobject" ,python2-pygobject)))
5030     (synopsis "Text entry and UI navigation application")
5031     (home-page "https://wiki.gnome.org/Projects/Caribou")
5032     (description
5033      "Caribou is an input assistive technology intended for switch and pointer
5034 users.")
5035     (license license:lgpl2.1)))
5036
5037 (define-public network-manager
5038   (package
5039     (name "network-manager")
5040     (version "1.8.4")
5041     (source (origin
5042               (method url-fetch)
5043               (uri (string-append "mirror://gnome/sources/NetworkManager/"
5044                                   (version-major+minor version) "/"
5045                                   "NetworkManager-" version ".tar.xz"))
5046               (sha256
5047                (base32
5048                 "04lj081a5cdkhcnj1xs77chhy08d2h0648kmj1csxp46cfrjwpk2"))
5049               (snippet
5050               '(begin
5051                  (use-modules (guix build utils))
5052                  (substitute* "configure"
5053                    ;; Replace libsystemd-login with libelogind.
5054                    (("libsystemd-login") "libelogind"))
5055                  (substitute* "src/devices/wwan/nm-modem-manager.c"
5056                    (("systemd") "elogind"))
5057                  (substitute* "src/nm-session-monitor.c"
5058                    (("systemd") "elogind"))
5059                  (substitute* "./src/nm-logging.c"
5060                    (("systemd") "elogind"))
5061                  #t))))
5062     (build-system gnu-build-system)
5063     (outputs '("out"
5064                "doc")) ; 8 MiB of gtk-doc HTML
5065     (arguments
5066      '(#:configure-flags
5067        (let ((out      (assoc-ref %outputs "out"))
5068              (doc      (assoc-ref %outputs "doc"))
5069              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
5070                                       "/sbin/dhclient")))
5071          (list "--with-systemd-logind=yes" ;In GuixSD, this is provided by elogind.
5072                "--with-consolekit=no"
5073                "--with-crypto=gnutls"
5074                "--disable-config-plugin-ibft"
5075                "--sysconfdir=/etc"
5076                "--localstatedir=/var"
5077                (string-append "--with-udev-dir="
5078                               out "/lib/udev")
5079                (string-append "--with-dbus-sys-dir="
5080                               out "/etc/dbus-1/system.d")
5081                (string-append "--with-html-dir="
5082                               doc "/share/gtk-doc/html")
5083                (string-append "--with-dhclient=" dhclient)))
5084        #:phases
5085        (modify-phases %standard-phases
5086          (add-before 'configure 'pre-configure
5087            (lambda _
5088              ;; These tests try to test aspects of network-manager's
5089              ;; functionality within restricted containers, but they don't
5090              ;; cope with being already in the Guix build jail as that jail
5091              ;; lacks some features that they would like to proxy over (like
5092              ;; a /sys mount).
5093              (substitute* '("Makefile.in")
5094                (("src/platform/tests/test-address-linux") " ")
5095                (("src/platform/tests/test-cleanup-linux") " ")
5096                (("src/platform/tests/test-link-linux") " ")
5097                (("src/platform/tests/test-route-linux") " ")
5098                (("src/devices/tests/test-arping") " ")
5099                (("src/devices/tests/test-lldp") " ")
5100                (("src/tests/test-route-manager-linux") " "))
5101              #t))
5102          (add-before 'check 'pre-check
5103            (lambda _
5104              ;; For the missing /etc/machine-id.
5105              (setenv "DBUS_FATAL_WARNINGS" "0")
5106              #t))
5107          (replace 'install
5108            (lambda _
5109              (zero? (system* "make"
5110                              "sysconfdir=/tmp"
5111                              "rundir=/tmp"
5112                              "statedir=/tmp"
5113                              "nmstatedir=/tmp/nm"
5114                              "install")))))))
5115     (propagated-inputs
5116      `(("glib" ,glib)))
5117     (native-inputs
5118      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
5119        ("gobject-introspection" ,gobject-introspection)
5120        ("docbook-xsl" ,docbook-xsl)
5121        ("intltool" ,intltool)
5122        ("libxslt" ,libxslt)
5123        ("libxml2" ,libxml2)
5124        ("pkg-config" ,pkg-config)
5125        ;; For testing.
5126        ("python" ,python-wrapper)
5127        ("python-dbus" ,python-dbus)
5128        ("python-pygobject" ,python-pygobject)))
5129     (inputs
5130      `(("curl" ,curl)
5131        ("cyrus-sasl" ,cyrus-sasl)
5132        ("dbus-glib" ,dbus-glib)
5133        ("dnsmasq" ,dnsmasq)
5134        ("eudev" ,eudev)
5135        ("gnutls" ,gnutls)
5136        ("iptables" ,iptables)
5137        ("isc-dhcp" ,isc-dhcp)
5138        ("jansson" ,jansson)
5139        ("libgcrypt" ,libgcrypt)
5140        ("libgudev" ,libgudev)
5141        ("libndp" ,libndp)
5142        ("libnl" ,libnl)
5143        ("libsoup" ,libsoup)
5144        ("modem-manager" ,modem-manager)
5145        ("newt" ,newt)                       ;for the 'nmtui' console interface
5146        ("polkit" ,polkit)
5147        ("ppp" ,ppp)
5148        ("readline" ,readline)
5149        ("util-linux" ,util-linux)
5150        ("elogind" ,elogind)))
5151     (synopsis "Network connection manager")
5152     (home-page "https://www.gnome.org/projects/NetworkManager/")
5153     (description
5154      "NetworkManager is a system network service that manages your network
5155 devices and connections, attempting to keep active network connectivity when
5156 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
5157 devices, and provides VPN integration with a variety of different VPN
5158 services.")
5159     (license license:gpl2+)
5160     (properties '((upstream-name . "NetworkManager")))))
5161
5162 (define-public network-manager-openvpn
5163   (package
5164     (name "network-manager-openvpn")
5165     (version "1.8.0")
5166     (source (origin
5167               (method url-fetch)
5168               (uri (string-append
5169                     "mirror://gnome/sources/NetworkManager-openvpn/"
5170                     (version-major+minor version)
5171                     "/NetworkManager-openvpn-" version ".tar.xz"))
5172               (sha256
5173                (base32
5174                 "1973n89g66a3jfx8r45a811fga4kadh6r1w35cb25cz1mlii2vhn"))))
5175     (build-system gnu-build-system)
5176     (arguments
5177      '(#:configure-flags '("--enable-absolute-paths")))
5178     (native-inputs
5179      `(("pkg-config" ,pkg-config)
5180        ("intltool" ,intltool)))
5181     (inputs
5182      `(("gtk+" ,gtk+)
5183        ("openvpn" ,openvpn)
5184        ("network-manager" ,network-manager)
5185        ("network-manager-applet" ,network-manager-applet) ;for libnma
5186        ("libsecret" ,libsecret)))
5187     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
5188     (synopsis "OpenVPN plug-in for NetworkManager")
5189     (description
5190      "This extension of NetworkManager allows it to take care of connections
5191 to virtual private networks (VPNs) via OpenVPN.")
5192     (license license:gpl2+)
5193     (properties `((upstream-name . "NetworkManager-openvpn")))))
5194
5195 (define-public mobile-broadband-provider-info
5196   (package
5197     (name "mobile-broadband-provider-info")
5198     (version "20170310")
5199     (source (origin
5200               (method url-fetch)
5201               (uri (string-append
5202                     "mirror://gnome/sources/"
5203                     "mobile-broadband-provider-info/" version "/"
5204                     "mobile-broadband-provider-info-" version ".tar.xz"))
5205               (sha256
5206                (base32
5207                 "0fxm11x8k9hxjg8l5inaldfmmjnwkay3ibjv899jra03bv4h6kql"))))
5208     (build-system gnu-build-system)
5209     (arguments
5210      `(#:tests? #f)) ; No tests
5211     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
5212     (synopsis "Database of broadband connection configuration")
5213     (description "Database of broadband connection configuration.")
5214     (license license:public-domain)))
5215
5216 (define-public network-manager-applet
5217   (package
5218     (name "network-manager-applet")
5219     (version "1.8.4")
5220     (source (origin
5221               (method url-fetch)
5222               (uri (string-append "mirror://gnome/sources/" name "/"
5223                                   (version-major+minor version) "/"
5224                                   name "-" version ".tar.xz"))
5225               (sha256
5226                (base32
5227                 "0ag3pvjp58ykrzsjfbdxi0j5xd2i796jk7nns67zy03xwg9i0l0h"))))
5228     (build-system glib-or-gtk-build-system)
5229     (arguments '(#:configure-flags '("--disable-migration")))
5230     (native-inputs
5231      `(("intltool" ,intltool)
5232        ("gobject-introspection" ,gobject-introspection)
5233        ("pkg-config" ,pkg-config)))
5234     (propagated-inputs
5235      ;; libnm-gtk.pc refers to all these.
5236      `(("dbus-glib" ,dbus-glib)
5237        ("gtk+" ,gtk+)
5238        ("network-manager" ,network-manager)))
5239     (inputs
5240      `(("iso-codes" ,iso-codes)
5241        ("libgudev" ,libgudev)
5242        ("libnotify" ,libnotify)
5243        ("libsecret" ,libsecret)
5244        ("libselinux" ,libselinux)
5245        ("jansson" ,jansson) ; for team support
5246        ("modem-manager" ,modem-manager)))
5247     (synopsis "Applet for managing network connections")
5248     (home-page "https://www.gnome.org/projects/NetworkManager/")
5249     (description
5250      "This package contains a systray applet for NetworkManager.  It displays
5251 the available networks and allows users to easily switch between them.")
5252     (license license:gpl2+)))
5253
5254 (define-public libxml++
5255   (package
5256     (name "libxml++")
5257     (version "3.0.1")
5258     (source (origin
5259               (method url-fetch)
5260               (uri (string-append "mirror://gnome/sources/" name "/"
5261                                   (version-major+minor version) "/"
5262                                   name "-" version ".tar.xz"))
5263               (sha256
5264                (base32
5265                 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
5266     (build-system gnu-build-system)
5267     ;; libxml++-3.0.pc refers to all these.
5268     (propagated-inputs
5269      `(("libxml2" ,libxml2)
5270        ("glibmm" ,glibmm)))
5271     (native-inputs
5272      `(("perl" ,perl)
5273        ("pkg-config" ,pkg-config)))
5274     (home-page "http://libxmlplusplus.sourceforge.net/")
5275     (synopsis "C++ wrapper for XML parser library libxml2")
5276     (description
5277      "This package provides a C++ wrapper for the XML parser library
5278 libxml2.")
5279     (license license:lgpl2.1+)))
5280
5281 (define-public libxml++-2
5282   (package
5283     (inherit libxml++)
5284     (name "libxml++")
5285     (version "2.40.1")
5286     (source (origin
5287               (method url-fetch)
5288               (uri (string-append "mirror://gnome/sources/" name "/"
5289                                   (version-major+minor version) "/"
5290                                   name "-" version ".tar.xz"))
5291               (sha256
5292                (base32
5293                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
5294
5295 (define-public gdm
5296   (package
5297     (name "gdm")
5298     (version "3.26.2.1")
5299     (source (origin
5300               (method url-fetch)
5301               (uri (string-append "mirror://gnome/sources/" name "/"
5302                                   (version-major+minor version) "/"
5303                                   name "-" version ".tar.xz"))
5304               (sha256
5305                (base32
5306                 "0mxdal6hh345xk2xqmw5192jgpprkbcv1d4bwmnl4arcc00cpp8p"))))
5307     (build-system glib-or-gtk-build-system)
5308     (arguments
5309      '(#:configure-flags
5310        `("--without-plymouth"
5311          "--disable-systemd-journal"
5312
5313          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
5314          ;; instead of having to replace it (i.e., stopping the mingetty
5315          ;; service for TTY 1 before starting GDM).
5316          "--with-initial-vt=7"
5317
5318          ;; By default, GDM expects distributions to install a custom Xsession
5319          ;; script. It provides a generic one if --enable-gdm-xsession is set.
5320          "--enable-gdm-xsession"
5321
5322          "--localstatedir=/var"
5323          ,(string-append "--with-default-path="
5324                          (string-join '("/run/setuid-programs"
5325                                         "/run/current-system/profile/bin"
5326                                         "/run/current-system/profile/sbin")
5327                                       ":"))
5328          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
5329          ;; XDG_DATA_DIRS so that it finds its schemas.
5330          "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
5331        #:phases
5332        (modify-phases %standard-phases
5333          (add-before
5334           'configure 'pre-configure
5335           (lambda _
5336             ;; We don't have <systemd/sd-daemon.h>.
5337             (substitute* '("common/gdm-log.c"
5338                            "daemon/gdm-server.c"
5339                            "daemon/gdm-session-worker.c"
5340                            "daemon/gdm-session-worker-job.c")
5341               (("#include <systemd/sd-daemon\\.h>") ""))
5342             ;; Use elogind for sd-login.
5343             (substitute* '("common/gdm-common.c"
5344                            "daemon/gdm-manager.c"
5345                            "libgdm/gdm-user-switching.c")
5346               (("#include <systemd/sd-login\\.h>")
5347                "#include <elogind/sd-login.h>"))
5348             ;; Check for elogind.
5349             (substitute* '("configure")
5350               (("libsystemd")
5351                "libelogind"))
5352             ;; Look for system-installed sessions in
5353             ;; /run/current-system/profile/share.
5354             (substitute* '("libgdm/gdm-sessions.c"
5355                            "daemon/gdm-session.c"
5356                            "daemon/gdm-display.c"
5357                            "daemon/gdm-launch-environment.c")
5358               (("DATADIR \"/x")
5359                "\"/run/current-system/profile/share/x")
5360               (("DATADIR \"/wayland")
5361                "\"/run/current-system/profile/share/wayland")
5362               (("DATADIR \"/gnome")
5363                "\"/run/current-system/profile/share/gnome"))
5364             (substitute* '("daemon/gdm-session.c")
5365               (("set_up_session_environment \\(self\\);")
5366                (string-append
5367                 "set_up_session_environment (self);\n"
5368                 ;; Propagate GDM_X_SERVER environment variable (which is set
5369                 ;; by the GDM service, as it's a function of what X modules
5370                 ;; the user decides to have available) down to worker
5371                 ;; processes.
5372                 "gdm_session_set_environment_variable (self, \"GDM_X_SERVER\",\n"
5373                 "    g_getenv (\"GDM_X_SERVER\"));\n"
5374                 ;; FIXME: Really glib should be declaring XDG_CONFIG_DIRS as a
5375                 ;; variable, but it doesn't do that right now.  Anyway
5376                 ;; /run/current-system/profile/share/gnome-session/sessions/gnome.desktop
5377                 ;; requires that a number of .desktop files be present, and
5378                 ;; these special .desktop files are in $XDG_CONFIG_DIRS (which
5379                 ;; defaults to /etc/xdg if it's not set).  Here we need to
5380                 ;; provide a value such that the GNOME session's requirements
5381                 ;; are met (provided GNOME is installed of course).
5382                 "gdm_session_set_environment_variable (self, \"XDG_CONFIG_DIRS\",\n"
5383                 "    \"/run/current-system/profile/etc/xdg\");\n"
5384                 )))
5385             ;; Look for custom GDM conf in /run/current-system.
5386             (substitute* '("common/gdm-settings-desktop-backend.c")
5387               (("GDM_CUSTOM_CONF")
5388                "\"/run/current-system/etc/gdm/custom.conf\""))
5389             ;; Use service-supplied path to X.
5390             (substitute* '("daemon/gdm-server.c")
5391               (("\\(X_SERVER X_SERVER_ARG_FORMAT")
5392                "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
5393             (substitute* '("daemon/gdm-x-session.c")
5394               (("X_SERVER")
5395                "g_getenv (\"GDM_X_SERVER\")"))
5396             #t)))))
5397     (native-inputs
5398      `(("dconf" ,dconf)
5399        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5400        ("gobject-introspection" ,gobject-introspection)
5401        ("intltool" ,intltool)
5402        ("itstool" ,itstool)
5403        ("pkg-config" ,pkg-config)
5404        ("xmllint" ,libxml2)))
5405     (inputs
5406      `(("accountsservice" ,accountsservice)
5407        ("check" ,check) ; for testing
5408        ("elogind" ,elogind)
5409        ("gtk+" ,gtk+)
5410        ("iso-codes" ,iso-codes)
5411        ("libcanberra" ,libcanberra)
5412        ("linux-pam" ,linux-pam)))
5413     (synopsis "Display manager for GNOME")
5414     (home-page "https://wiki.gnome.org/Projects/GDM/")
5415     (description
5416      "GNOME Display Manager is a system service that is responsible for
5417 providing graphical log-ins and managing local and remote displays.")
5418     (license license:gpl2+)))
5419
5420 (define-public libgtop
5421   (package
5422     (name "libgtop")
5423     (version "2.38.0")
5424     (source (origin
5425               (method url-fetch)
5426               (uri (string-append "mirror://gnome/sources/" name "/"
5427                                   (version-major+minor version) "/"
5428                                   name "-" version ".tar.xz"))
5429               (sha256
5430                (base32
5431                 "04mnxgzyb26wqk6qij4iw8cxwl82r8pcsna5dg8vz2j3pdi0wv2g"))))
5432     (build-system gnu-build-system)
5433     (native-inputs
5434      `(("gobject-introspection" ,gobject-introspection)
5435        ("intltool" ,intltool)
5436        ("perl" ,perl)
5437        ("pkg-config" ,pkg-config)))
5438     (propagated-inputs
5439      `(("glib" ,glib))) ; required by libgtop-2.0.pc
5440     (synopsis "Portable system access library")
5441     (home-page "https://www.gnome.org/")
5442     (description
5443      "LibGTop is a library to get system specific data such as CPU and memory
5444 usage and information about running processes.")
5445     (license license:gpl2+)))
5446
5447 (define-public gnome-bluetooth
5448   (package
5449     (name "gnome-bluetooth")
5450     (version "3.20.1")
5451     (source (origin
5452               (method url-fetch)
5453               (uri (string-append "mirror://gnome/sources/" name "/"
5454                                   (version-major+minor version) "/"
5455                                   name "-" version ".tar.xz"))
5456               (sha256
5457                (base32
5458                 "1zlqcz6jz4vzzr8gd1678i9s4015kiwcpr5szrwz4kmryfsm147a"))))
5459     (build-system glib-or-gtk-build-system)
5460     (native-inputs
5461      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
5462        ("gobject-introspection" ,gobject-introspection)
5463        ("intltool" ,intltool)
5464        ("pkg-config" ,pkg-config)
5465        ("xmllint" ,libxml2)))
5466     (propagated-inputs
5467      ;; gnome-bluetooth-1.0.pc refers to all these.
5468      `(("gtk+" ,gtk+)
5469        ("udev" ,eudev)))
5470     (inputs
5471      `(("libcanberra" ,libcanberra)
5472        ("libnotify" ,libnotify)))
5473     (synopsis "GNOME Bluetooth subsystem")
5474     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
5475     (description
5476      "This package contains tools for managing and manipulating Bluetooth
5477 devices using the GNOME desktop.")
5478     (license license:lgpl2.1+)))
5479
5480 (define-public gnome-control-center
5481   (package
5482     (name "gnome-control-center")
5483     (version "3.24.3")
5484     (source (origin
5485               (method url-fetch)
5486               (uri (string-append "mirror://gnome/sources/" name "/"
5487                                   (version-major+minor version) "/"
5488                                   name "-" version ".tar.xz"))
5489               (sha256
5490                (base32
5491                 "18ncjqjj93a39sla2zjr9i6pw59yh87p4jla899lmvi2qajd5923"))))
5492     (build-system glib-or-gtk-build-system)
5493     (arguments
5494      '(#:phases
5495        (modify-phases %standard-phases
5496          (add-before 'configure 'patch-paths
5497            (lambda* (#:key inputs #:allow-other-keys)
5498              (let ((libc   (assoc-ref inputs "libc"))
5499                    (tzdata (assoc-ref inputs "tzdata")))
5500                (substitute* "panels/datetime/tz.h"
5501                  (("/usr/share/zoneinfo/zone.tab")
5502                   (string-append tzdata "/share/zoneinfo/zone.tab")))
5503                (substitute* "panels/datetime/test-endianess.c"
5504                  (("/usr/share/locale")
5505                   (string-append libc "/share/locale")))
5506                #t))))))
5507     (native-inputs
5508      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
5509        ("intltool" ,intltool)
5510        ("pkg-config" ,pkg-config)
5511        ("xsltproc" ,libxslt)))
5512     (inputs
5513      `(("accountsservice" ,accountsservice)
5514        ("clutter-gtk" ,clutter-gtk)
5515        ("colord-gtk" ,colord-gtk)
5516        ("cups" ,cups)
5517        ("dconf" ,dconf)
5518        ("docbook-xsl" ,docbook-xsl)
5519        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
5520        ("gnome-bluetooth" ,gnome-bluetooth)
5521        ("gnome-desktop" ,gnome-desktop)
5522        ("gnome-online-accounts" ,gnome-online-accounts)
5523        ("gnome-settings-daemon" ,gnome-settings-daemon)
5524        ("grilo" ,grilo)
5525        ("ibus" ,ibus)
5526        ("libcanberra" ,libcanberra)
5527        ("libgudev" ,libgudev)
5528        ("libgtop" ,libgtop)
5529        ("libpwquality" ,libpwquality)
5530        ("libsoup" ,libsoup)
5531        ("libxml2" ,libxml2)
5532        ("libwacom" ,libwacom)
5533        ("mesa" ,mesa)
5534        ("mit-krb5" ,mit-krb5)
5535        ("modem-manager" ,modem-manager)
5536        ("network-manager-applet" ,network-manager-applet)
5537        ("polkit" ,polkit)
5538        ("pulseaudio" ,pulseaudio)
5539        ("smbclient" ,samba)
5540        ("tzdata" ,tzdata)
5541        ("upower" ,upower)))
5542     (synopsis "Utilities to configure the GNOME desktop")
5543     (home-page "https://www.gnome.org/")
5544     (description
5545      "This package contains configuration applets for the GNOME desktop,
5546 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
5547 properties, sound setup, desktop theme and background, user interface
5548 properties, screen resolution, and other GNOME parameters.")
5549     (license license:gpl2+)))
5550
5551 (define-public gnome-shell
5552   (package
5553     (name "gnome-shell")
5554     (version "3.24.3")
5555     (source (origin
5556               (method url-fetch)
5557               (uri (string-append "mirror://gnome/sources/" name "/"
5558                                   (version-major+minor version) "/"
5559                                   name "-" version ".tar.xz"))
5560               (sha256
5561                (base32
5562                 "1f20x36ymkp1j667hb7s7byly2gqc4m0anldy3qwp38vm8437caq"))))
5563     (build-system glib-or-gtk-build-system)
5564     (arguments
5565      '(#:phases
5566        (modify-phases %standard-phases
5567          (replace 'install
5568            (lambda* (#:key outputs #:allow-other-keys)
5569              (let* ((out     (assoc-ref outputs "out"))
5570                     (keysdir (string-append
5571                               out "/share/gnome-control-center/keybindings")))
5572                (zero? (system* "make"
5573                                (string-append "keysdir=" keysdir)
5574                                "install")))))
5575          (add-after
5576           'install 'wrap-programs
5577           (lambda* (#:key outputs #:allow-other-keys)
5578             (let ((out              (assoc-ref outputs "out"))
5579                   (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
5580                   (python-path      (getenv "PYTHONPATH")))
5581               (wrap-program (string-append out "/bin/gnome-shell")
5582                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
5583               (for-each
5584                (lambda (prog)
5585                  (wrap-program (string-append out "/bin/" prog)
5586                    `("PYTHONPATH"      ":" prefix (,python-path))
5587                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5588                '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
5589               #t))))))
5590     (native-inputs
5591      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5592        ("gobject-introspection" ,gobject-introspection)
5593        ("intltool" ,intltool)
5594        ("pkg-config" ,pkg-config)
5595        ("python" ,python)
5596        ("xsltproc" ,libxslt)))
5597     (inputs
5598      `(("accountsservice" ,accountsservice)
5599        ("caribou" ,caribou)
5600        ("docbook-xsl" ,docbook-xsl)
5601        ("evolution-data-server" ,evolution-data-server)
5602        ("gcr" ,gcr)
5603        ("gdm" ,gdm)
5604        ("gjs" ,gjs)
5605        ("gnome-bluetooth" ,gnome-bluetooth)
5606        ("gnome-control-center" ,gnome-control-center)
5607        ("gnome-desktop" ,gnome-desktop)
5608        ("gnome-settings-daemon" ,gnome-settings-daemon)
5609        ("gst-plugins-base" ,gst-plugins-base)
5610        ("ibus" ,ibus)
5611        ("libcanberra" ,libcanberra)
5612        ("libcroco" ,libcroco)
5613        ("libgweather" ,libgweather)
5614        ("libsoup" ,libsoup)
5615        ("mesa-headers" ,mesa-headers)
5616        ("mutter" ,mutter)
5617        ("network-manager-applet" ,network-manager-applet)
5618        ("polkit" ,polkit)
5619        ("pulseaudio" ,pulseaudio)
5620        ("python-pygobject" ,python-pygobject)
5621        ("startup-notification" ,startup-notification)
5622        ("telepathy-logger" ,telepathy-logger)
5623        ("upower" ,upower)
5624        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
5625        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
5626        ("librsvg" ,librsvg)
5627        ("geoclue" ,geoclue)
5628        ;; XXX: required by libgjs.la.
5629        ("readline" ,readline)))
5630     (synopsis "Desktop shell for GNOME")
5631     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
5632     (description
5633      "GNOME Shell provides core user interface functions for the GNOME desktop,
5634 like switching to windows and launching applications.")
5635     (license license:gpl2+)))
5636
5637 (define-public gtk-vnc
5638   (package
5639     (name "gtk-vnc")
5640     (version "0.7.1")
5641     (source
5642      (origin
5643        (method url-fetch)
5644        (uri (string-append "mirror://gnome/sources/" name "/"
5645                            (version-major+minor version) "/"
5646                            name "-" version ".tar.xz"))
5647        (sha256
5648         (base32
5649          "1cdaywj5lqnl5b22qzd7k7lmacsnmk8b8rc4drk6gvqmcrlsljzk"))))
5650     (build-system gnu-build-system)
5651     (arguments
5652      '(#:configure-flags '("--with-gtk=3.0")))
5653     (propagated-inputs
5654      `(("gtk+" ,gtk+))) ; required by gtk-vnc-2.0.pc.
5655     (inputs
5656      `(("cyrus-sasl" ,cyrus-sasl)
5657        ("gnutls" ,gnutls)
5658        ("libgcrypt" ,libgcrypt)
5659        ("pulseaudio" ,pulseaudio)))
5660     (native-inputs
5661      `(("glib:bin" ,glib "bin")
5662        ("gobject-introspection" ,gobject-introspection)
5663        ("intltool" ,intltool)
5664        ("pkg-config" ,pkg-config)
5665        ("python-wrapper" ,python-wrapper)
5666        ("vala" ,vala)))
5667     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
5668     (synopsis "VNC viewer widget for GTK+")
5669     (description
5670      "GTK-VNC is a VNC viewer widget for GTK+, used by remote desktop viewing
5671 applications, for instance the Vinagre client, GNOME Boxes and virt-viewer.
5672 GTK-VNC implements client side RFB protocol and authentication extensions such
5673 as SASL, TLS and VeNCrypt.  Additionally it supports encoding extensions.")
5674     (license license:lgpl2.1+)))
5675
5676 (define-public gnome-autoar
5677   (package
5678     (name "gnome-autoar")
5679     (version "0.2.3")
5680     (source (origin
5681               (method url-fetch)
5682               (uri (string-append "mirror://gnome/sources/" name "/"
5683                                   (version-major+minor version) "/"
5684                                   name "-" version ".tar.xz"))
5685               (sha256
5686                (base32
5687                 "02i4zgqqqj56h7bcys6dz7n78m4nj2x4dv1ggjmnrk98n06xpsax"))))
5688     (build-system glib-or-gtk-build-system)
5689     (native-inputs
5690      `(("gnome-common" ,gnome-common)
5691        ("gobject-introspection" ,gobject-introspection)
5692        ("pkg-config" ,pkg-config)))
5693     (propagated-inputs
5694      `(("libarchive" ,libarchive)))  ; XXX document why
5695     (inputs
5696      `(("gtk+" ,gtk+)
5697        ("nettle" ,nettle))) ; XXX: required by libarchive.pc
5698     (synopsis "Archives integration support for GNOME")
5699     (home-page "https://git.gnome.org/browse/gnome-autoar/")
5700     (description
5701      "GNOME Autoar is a library which makes creating and extracting archives
5702 easy, safe, and automatic.")
5703     (license license:lgpl2.1+)))
5704
5705 (define-public tracker
5706   (package
5707     (name "tracker")
5708     (version "1.12.3")
5709     (source (origin
5710               (method url-fetch)
5711               (uri (string-append "mirror://gnome/sources/" name "/"
5712                                   (version-major+minor version) "/"
5713                                   name "-" version ".tar.xz"))
5714               (sha256
5715                (base32
5716                 "1mpq418lzba7fad0w0m3bnxvz3khf461b5zya8zmq5n1g0w99ki3"))))
5717     (build-system glib-or-gtk-build-system)
5718     (native-inputs
5719      `(("gnome-common" ,gnome-common)
5720        ("gobject-introspection" ,gobject-introspection)
5721        ("intltool" ,intltool)
5722        ("pkg-config" ,pkg-config)
5723        ("vala" ,vala)))
5724     (inputs
5725      `(("gtk+" ,gtk+)
5726        ("dbus" ,dbus)
5727        ("gstreamer" ,gstreamer)
5728        ("gst-plugins-base" ,gst-plugins-base)
5729        ("sqlite" ,sqlite-with-fts5)
5730        ("nettle" ,nettle)  ; XXX why is this needed?
5731        ("poppler" ,poppler)
5732        ("libgsf" ,libgsf)
5733        ("libexif" ,libexif)
5734        ("libpng" ,libpng)
5735        ("libtiff" ,libtiff)
5736        ("libvorbis" ,libvorbis)
5737        ("flac" ,flac)
5738        ("totem-pl-parser" ,totem-pl-parser)
5739        ("zlib" ,zlib)
5740        ("exempi" ,exempi)
5741        ("libxml2" ,libxml2)
5742        ("upower" ,upower)
5743        ("libunistring" ,libunistring)
5744        ("giflib" ,giflib)
5745        ("json-glib" ,json-glib)
5746        ("openjpeg" ,openjpeg-1)
5747        ("libosinfo" ,libosinfo)
5748        ("libcue" ,libcue)
5749        ("libseccomp" ,libseccomp)
5750        ("libsoup" ,libsoup)
5751        ("libuuid" ,util-linux)))
5752     (arguments `(#:tests? #f))  ; XXX FIXME enable tests (some fail)
5753     (synopsis "Metadata database, indexer and search tool")
5754     (home-page "https://wiki.gnome.org/Projects/Tracker")
5755     (description
5756      "Tracker is an advanced framework for first class objects with associated
5757 metadata and tags.  It provides a one stop solution for all metadata, tags,
5758 shared object databases, search tools and indexing.")
5759     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
5760     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
5761     (license (list license:gpl2+
5762                    license:lgpl2.1+
5763                    license:lgpl2.0+))))
5764
5765 (define-public nautilus
5766   (package
5767     (name "nautilus")
5768     (version "3.26.2")
5769     (source (origin
5770               (method url-fetch)
5771               (uri (string-append "mirror://gnome/sources/" name "/"
5772                                   (version-major+minor version) "/"
5773                                   name "-" version ".tar.xz"))
5774               (sha256
5775                (base32
5776                 "1d0l4vgcjqj4671hb6s2a56baqlasbxn3wl6vfrpdsk5qq299jbr"))))
5777     (build-system meson-build-system)
5778     (arguments
5779      '(#:glib-or-gtk? #t
5780        ;; XXX: FAIL: check-nautilus
5781        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
5782        #:tests? #f))
5783     (native-inputs
5784      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
5785        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
5786        ("gtk+:bin" ,gtk+ "bin")         ; for gtk-update-icon-cache
5787        ("gobject-introspection" ,gobject-introspection)
5788        ("intltool" ,intltool)
5789        ("pkg-config" ,pkg-config)))
5790     (inputs
5791      `(("dconf" ,dconf)
5792        ("gvfs" ,gvfs)
5793        ("exempi" ,exempi)
5794        ("gnome-desktop" ,gnome-desktop)
5795        ("gnome-autoar" ,gnome-autoar)
5796        ("libselinux" ,libselinux)
5797        ("nettle" ,nettle) ; XXX required by libarchive.pc via gnome-autoar
5798        ("tracker" ,tracker)
5799        ;; XXX: gtk+ is required by libnautilus-extension.pc
5800        ;;
5801        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
5802        ;; package.  See:
5803        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
5804        ("gtk+" ,gtk+)
5805        ("libexif" ,libexif)
5806        ("libxml2" ,libxml2)))
5807     (synopsis "File manager for GNOME")
5808     (home-page "https://wiki.gnome.org/Apps/Nautilus")
5809     (description
5810      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
5811 design and behaviour, giving the user a simple way to navigate and manage its
5812 files.")
5813     (license license:gpl2+)))
5814
5815 (define-public baobab
5816   (package
5817     (name "baobab")
5818     (version "3.26.1")
5819     (source (origin
5820               (method url-fetch)
5821               (uri (string-append
5822                     "mirror://gnome/sources/" name "/"
5823                     (version-major+minor version) "/"
5824                     name "-" version ".tar.xz"))
5825               (sha256
5826                (base32
5827                 "0zkqxyqyxd6j270jf5hbcrb3yh4k31ddh40v4cjhgngm8mcsnnbs"))))
5828     (build-system glib-or-gtk-build-system)
5829     (native-inputs
5830      `(("intltool" ,intltool)
5831        ("pkg-config" ,pkg-config)
5832        ("itstool" ,itstool)
5833        ("xmllint" ,libxml2)
5834        ("glib" ,glib "bin")
5835        ("vala" ,vala)))
5836     (inputs
5837      `(("gtk+" ,gtk+)))
5838     (synopsis "Disk usage analyzer for GNOME")
5839     (description
5840      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
5841 usage in the GNOME desktop environment.  It can easily scan device volumes or
5842 a specific user-requested directory branch (local or remote).  Once the scan
5843 is complete it provides a graphical representation of each selected folder.")
5844     (home-page "https://wiki.gnome.org/Apps/Baobab")
5845     (license license:gpl2+)))
5846
5847 (define-public gnome-backgrounds
5848   (package
5849     (name "gnome-backgrounds")
5850     (version "3.26.2")
5851     (source
5852      (origin
5853        (method url-fetch)
5854        (uri (string-append "mirror://gnome/sources/" name "/"
5855                            (version-major+minor version) "/"
5856                            name "-" version ".tar.xz"))
5857        (sha256
5858         (base32
5859          "0kzrh5h0cfby3rhsy31d1w1c0rr3wcc845kv6zibqw1x8v9si2rs"))))
5860     (build-system glib-or-gtk-build-system)
5861     (native-inputs
5862      `(("intltool" ,intltool)))
5863     (home-page "https://git.gnome.org/browse/gnome-backgrounds")
5864     (synopsis "Background images for the GNOME desktop")
5865     (description
5866      "GNOME backgrounds package contains a collection of graphics files which
5867 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
5868 the package creates the proper framework and directory structure so that you
5869 can add your own files to the collection.")
5870     (license (list license:gpl2+
5871                    license:cc-by2.0
5872                    license:cc-by-sa2.0
5873                    license:cc-by-sa3.0))))
5874
5875 (define-public gnome-screenshot
5876   (package
5877     (name "gnome-screenshot")
5878     (version "3.22.0")
5879     (source
5880      (origin
5881        (method url-fetch)
5882        (uri (string-append "mirror://gnome/sources/" name "/"
5883                            (version-major+minor version) "/"
5884                            name "-" version ".tar.xz"))
5885        (sha256
5886         (base32
5887          "0c02n1hgv21m4082jx399b1yazsc0cr07ba8k0pv8v3w7i5z21ca"))))
5888     (build-system glib-or-gtk-build-system)
5889     (native-inputs
5890      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5891        ("intltool" ,intltool)
5892        ("pkg-config" ,pkg-config)))
5893     (inputs
5894      `(("gtk+" ,gtk+)
5895        ("libcanberra" ,libcanberra)
5896        ("libx11" ,libx11)
5897        ("libxext" ,libxext)))
5898     (home-page "https://git.gnome.org/browse/gnome-screenshot")
5899     (synopsis "Take pictures of your screen")
5900     (description
5901      "GNOME Screenshot is a utility used for taking screenshots of the entire
5902 screen, a window or a user defined area of the screen, with optional
5903 beautifying border effects.")
5904     (license license:gpl2+)))
5905
5906 (define-public dconf-editor
5907   (package
5908     (name "dconf-editor")
5909     (version "3.26.2")
5910     (source
5911      (origin
5912        (method url-fetch)
5913        (uri (string-append "mirror://gnome/sources/" name "/"
5914                            (version-major+minor version) "/"
5915                            name "-" version ".tar.xz"))
5916        (sha256
5917         (base32
5918          "1lcarg8igsqpq4iv5834mf9kz4cmfhfw11bwy3x7v7f497z57d18"))))
5919     (build-system glib-or-gtk-build-system)
5920     (arguments
5921      '(#:phases
5922        (modify-phases %standard-phases
5923          (add-before 'install 'skip-gtk-update-icon-cache
5924            (lambda _
5925              ;; Don't create 'icon-theme.cache'.
5926              (substitute* "editor/Makefile"
5927                (("gtk-update-icon-cache") "true"))
5928              #t)))))
5929     (native-inputs
5930      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
5931        ("intltool" ,intltool)
5932        ("pkg-config" ,pkg-config)))
5933     (inputs
5934      `(("dconf" ,dconf)
5935        ("gtk+" ,gtk+)
5936        ("libxml2" ,libxml2)))
5937     (home-page "https://git.gnome.org/browse/dconf-editor")
5938     (synopsis "Graphical editor for GNOME's dconf configuration system")
5939     (description
5940      "Dconf-editor is a graphical tool for browsing and editing the dconf
5941 configuration system for GNOME.  It allows users to configure desktop
5942 software that do not provide their own configuration interface.")
5943     (license license:lgpl2.1+)))
5944
5945 (define-public gnome-default-applications
5946   (package
5947     (name "gnome-default-applications")
5948     (version "0")
5949     (build-system trivial-build-system)
5950     (source #f)
5951     (propagated-inputs
5952      `(("nautilus" ,nautilus)
5953        ("evince" ,evince)))
5954     (arguments
5955      `(#:modules ((guix build utils))
5956        #:builder
5957        (begin
5958          (use-modules (guix build utils))
5959          (let* ((out (assoc-ref %outputs "out"))
5960                 (apps (string-append out "/share/applications")))
5961            (mkdir-p apps)
5962            (call-with-output-file (string-append apps "/defaults.list")
5963              (lambda (port)
5964                (format port "[Default Applications]\n")
5965                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
5966                (format port "application/pdf=evince.desktop\n")
5967                (format port "application/postscript=evince.desktop\n")))
5968            #t))))
5969     (synopsis "Default MIME type associations for the GNOME desktop")
5970     (description
5971      "Given many installed packages which might handle a given MIME type, a
5972 user running the GNOME desktop probably has some preferences: for example,
5973 that folders be opened by default by the Nautilus file manager, not the Baobab
5974 disk usage analyzer.  This package establishes that set of default MIME type
5975 associations for GNOME.")
5976     (license license:gpl3+)
5977     (home-page #f)))
5978
5979 (define-public gnome
5980   (package
5981     (name "gnome")
5982     (version (package-version gnome-shell))
5983     (source #f)
5984     (build-system trivial-build-system)
5985     (arguments '(#:builder (begin (mkdir %output) #t)))
5986     (propagated-inputs
5987      ;; TODO: Add more packages according to:
5988      ;;       <https://packages.debian.org/jessie/gnome-core>.
5989      `(("adwaita-icon-theme"        ,adwaita-icon-theme)
5990        ("baobab"                    ,baobab)
5991        ("font-cantarell"            ,font-cantarell)
5992        ("font-dejavu"               ,font-dejavu)
5993        ("at-spi2-core"              ,at-spi2-core)
5994        ("dbus"                      ,dbus)
5995        ("dconf"                     ,dconf)
5996        ("desktop-file-utils"        ,desktop-file-utils)
5997        ("eog"                       ,eog)
5998        ("epiphany"                  ,epiphany)
5999        ("evince"                    ,evince)
6000        ("file-roller"               ,file-roller)
6001        ("gedit"                     ,gedit)
6002        ("glib-networking"           ,glib-networking)
6003        ("gnome-backgrounds"         ,gnome-backgrounds)
6004        ("gnome-bluetooth"           ,gnome-bluetooth)
6005        ("gnome-calculator"          ,gnome-calculator)
6006        ("gnome-control-center"      ,gnome-control-center)
6007        ("gnome-disk-utility"        ,gnome-disk-utility)
6008        ("gnome-default-applications" ,gnome-default-applications)
6009        ("gnome-keyring"             ,gnome-keyring)
6010        ("gnome-online-accounts"     ,gnome-online-accounts)
6011        ("gnome-session"             ,gnome-session)
6012        ("gnome-settings-daemon"     ,gnome-settings-daemon)
6013        ("gnome-shell"               ,gnome-shell)
6014        ("gnome-system-monitor"      ,gnome-system-monitor)
6015        ("gnome-terminal"            ,gnome-terminal)
6016        ("gnome-themes-standard"     ,gnome-themes-standard)
6017        ("gst-plugins-base"          ,gst-plugins-base)
6018        ("gst-plugins-good"          ,gst-plugins-good)
6019        ("gucharmap"                 ,gucharmap)
6020        ("gvfs"                      ,gvfs)
6021        ("hicolor-icon-theme"        ,hicolor-icon-theme)
6022        ("nautilus"                  ,nautilus)
6023        ("pinentry-gnome3"           ,pinentry-gnome3)
6024        ("pulseaudio"                ,pulseaudio)
6025        ("shared-mime-info"          ,shared-mime-info)
6026        ("totem"                     ,totem)
6027        ("xdg-user-dirs"             ,xdg-user-dirs)
6028        ("yelp"                      ,yelp)
6029        ("zenity"                    ,zenity)))
6030     (synopsis "The GNU desktop environment")
6031     (home-page "https://www.gnome.org/")
6032     (description
6033      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
6034 applications for browsing the web, editing text and images, creating
6035 documents and diagrams, playing media, scanning, and much more.")
6036     (license license:gpl2+)))
6037
6038 (define-public byzanz
6039   ;; The last stable release of Byzanz was in 2011, but there have been many
6040   ;; useful commits made to the Byzanz repository since then that it would be
6041   ;; silly to use such an old release.
6042   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
6043     (package
6044       (name "byzanz")
6045       (version (string-append "0.2-1." (string-take commit 7)))
6046       (source (origin
6047                 (method git-fetch)
6048                 (uri (git-reference
6049                       (url "https://git.gnome.org/browse/byzanz")
6050                       (commit commit)))
6051                 (file-name (string-append name "-" version "-checkout"))
6052                 (sha256
6053                  (base32
6054                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
6055       (build-system glib-or-gtk-build-system)
6056       (arguments
6057        '(#:phases
6058          (modify-phases %standard-phases
6059            (replace 'bootstrap
6060              (lambda _
6061                ;; The build system cleverly detects that we're not building from
6062                ;; a release tarball and turns on -Werror for GCC.
6063                ;; Unsurprisingly, there is a warning during compilation that
6064                ;; causes the build to fail unnecessarily, so we remove the flag.
6065                (substitute* '("configure.ac")
6066                  (("-Werror") ""))
6067                ;; The autogen.sh script in gnome-common will run ./configure
6068                ;; by default, which is problematic because source shebangs
6069                ;; have not yet been patched.
6070                (setenv "NOCONFIGURE" "t")
6071                (zero? (system* "sh" "autogen.sh")))))))
6072       (native-inputs
6073        `(("autoconf" ,autoconf)
6074          ("automake" ,automake)
6075          ("gnome-common" ,gnome-common)
6076          ("intltool" ,intltool)
6077          ("libtool" ,libtool)
6078          ("pkg-config" ,pkg-config)
6079          ("which" ,which)))
6080       (inputs
6081        `(("glib" ,glib)
6082          ("gstreamer" ,gstreamer)
6083          ("gst-plugins-base" ,gst-plugins-base)
6084          ("gtk+" ,gtk+)))
6085       (synopsis "Desktop recording program")
6086       (description "Byzanz is a simple desktop recording program with a
6087 command-line interface.  It can record part or all of an X display for a
6088 specified duration and save it as a GIF encoded animated image file.")
6089       (home-page "https://git.gnome.org/browse/byzanz")
6090       (license license:gpl2+))))
6091
6092 (define-public gsound
6093   (package
6094     (name "gsound")
6095     (version "1.0.2")
6096     (source (origin
6097               (method url-fetch)
6098               (uri (string-append "mirror://gnome/sources/" name "/"
6099                                   (version-major+minor version) "/"
6100                                   name "-" version ".tar.xz"))
6101               (sha256
6102                (base32
6103                 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
6104     (build-system glib-or-gtk-build-system)
6105     (native-inputs
6106      `(("pkg-config" ,pkg-config)
6107        ("gobject-introspection" ,gobject-introspection)
6108        ("vala" ,vala)))
6109     (inputs
6110      `(("glib" ,glib)
6111        ("libcanberra" ,libcanberra)))
6112     (home-page "https://wiki.gnome.org/Projects/GSound")
6113     (synopsis "GObject wrapper for libcanberra")
6114     (description
6115      "GSound is a small library for playing system sounds.  It's designed to be
6116 used via GObject Introspection, and is a thin wrapper around the libcanberra C
6117 library.")
6118     (license license:lgpl2.1+)))
6119
6120 (define-public libzapojit
6121   (package
6122     (name "libzapojit")
6123     (version "0.0.3")
6124     (source (origin
6125               (method url-fetch)
6126               (uri (string-append "mirror://gnome/sources/" name "/"
6127                                   (version-major+minor version) "/"
6128                                   name "-" version ".tar.xz"))
6129               (sha256
6130                (base32
6131                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
6132     (build-system gnu-build-system)
6133     (native-inputs
6134      `(("gobject-introspection" ,gobject-introspection)
6135        ("intltool" ,intltool)
6136        ("pkg-config" ,pkg-config)))
6137     (inputs
6138      `(("gnome-online-accounts" ,gnome-online-accounts)
6139        ("json-glib" ,json-glib)
6140        ("rest" ,rest)))
6141     (home-page "https://wiki.gnome.org/Projects/Zapojit")
6142     (synopsis "Library for accessing SkyDrive and Hotmail")
6143     (description
6144      "Libzapojit is a GLib-based library for accessing online service APIs of
6145 Microsoft SkyDrive and Hotmail, using their REST protocols.")
6146     (license license:lgpl2.1+)))
6147
6148 (define-public gnome-clocks
6149   (package
6150     (name "gnome-clocks")
6151     (version "3.26.1")
6152     (source (origin
6153               (method url-fetch)
6154               (uri (string-append "mirror://gnome/sources/" name "/"
6155                                   (version-major+minor version) "/"
6156                                   name "-" version ".tar.xz"))
6157               (sha256
6158                (base32
6159                 "1xqirnf7xkiv5vj3ng4slpyh50ihn625vhdgskfzx83a3pgxin1b"))))
6160     (build-system meson-build-system)
6161     (arguments
6162      '(#:glib-or-gtk? #t))
6163     (native-inputs
6164      `(("vala" ,vala)
6165        ("pkg-config" ,pkg-config)
6166        ("glib" ,glib "bin")             ; for glib-compile-resources
6167        ("gtk+-bin" ,gtk+ "bin")         ; for gtk-update-icon-cache
6168        ("desktop-file-utils" ,desktop-file-utils)
6169        ("gettext" ,gettext-minimal)
6170        ("itstool" ,itstool)))
6171     (inputs
6172      `(("glib" ,glib)
6173        ("gtk+" ,gtk+)
6174        ("gsound" ,gsound)
6175        ("geoclue" ,geoclue)
6176        ("geocode-glib" ,geocode-glib)
6177        ("libgweather" ,libgweather)
6178        ("gnome-desktop" ,gnome-desktop)))
6179     (home-page "https://wiki.gnome.org/Apps/Clocks")
6180     (synopsis "GNOME's clock application")
6181     (description
6182      "GNOME Clocks is a simple clocks application designed to fit the GNOME
6183 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
6184     (license license:gpl3+)))
6185
6186 (define-public gnome-calendar
6187   (package
6188     (name "gnome-calendar")
6189     (version "3.26.3")
6190     (source (origin
6191               (method url-fetch)
6192               (uri (string-append "mirror://gnome/sources/" name "/"
6193                                   (version-major+minor version) "/"
6194                                   name "-" version ".tar.xz"))
6195               (sha256
6196                (base32
6197                 "1clnfvvsaqw9vpxrs6qrxzmgpaw9x2nkjik2x2vwvm07pdvhddxn"))))
6198     (build-system meson-build-system)
6199     (arguments
6200      '(#:glib-or-gtk? #t
6201        ;; gnome-calendar has to be installed before the tests can be run
6202        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
6203        #:tests? #f))
6204     (native-inputs
6205      `(("gettext" ,gettext-minimal)
6206        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
6207        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
6208        ("pkg-config" ,pkg-config)))
6209     (inputs
6210      `(("evolution-data-server" ,evolution-data-server)
6211        ("gnome-online-accounts" ,gnome-online-accounts)
6212        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
6213     (home-page "https://wiki.gnome.org/Apps/Calendar")
6214     (synopsis "GNOME's calendar application")
6215     (description
6216      "GNOME Calendar is a simple calendar application designed to fit the GNOME
6217 desktop.  It supports multiple calendars, month, week and year view.")
6218     (license license:gpl3+)))
6219
6220 (define-public gnome-todo
6221   (package
6222     (name "gnome-todo")
6223     (version "3.26.2")
6224     (source (origin
6225               (method url-fetch)
6226               (uri (string-append "mirror://gnome/sources/" name "/"
6227                                   (version-major+minor version) "/"
6228                                   name "-" version ".tar.xz"))
6229               (patches (search-patches "gnome-todo-libical-compat.patch"))
6230               (sha256
6231                (base32
6232                 "106xx1w18pxjmj5k0k2qjzi6b3c3kaz7b5kyrpknykibnr401ff9"))))
6233     (build-system meson-build-system)
6234     (arguments
6235      '(#:glib-or-gtk? #t
6236        #:phases (modify-phases %standard-phases
6237                   (add-after
6238                       'install 'wrap-gnome-todo
6239                     (lambda* (#:key inputs outputs #:allow-other-keys)
6240                       (let ((out               (assoc-ref outputs "out"))
6241                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6242                             (python-path       (getenv "PYTHONPATH")))
6243                         (wrap-program (string-append out "/bin/gnome-todo")
6244                           ;; XXX: gi plugins are broken.
6245                           ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
6246                           ;; For plugins.
6247                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
6248                           `("PYTHONPATH" ":" prefix (,python-path))))
6249                       #t)))))
6250     (native-inputs
6251      `(("gettext" ,gettext-minimal)
6252        ("gobject-introspection" ,gobject-introspection)
6253        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
6254        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
6255        ("pkg-config" ,pkg-config)))
6256     (inputs
6257      `(("rest" ,rest)                   ; For Todoist plugin
6258        ("json-glib" ,json-glib)         ; For Todoist plugin
6259        ("libical" ,libical)
6260        ("libpeas" ,libpeas)
6261        ("python-pygobject" ,python-pygobject)
6262        ("evolution-data-server" ,evolution-data-server)
6263        ("gnome-online-accounts" ,gnome-online-accounts)
6264        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
6265     (home-page "https://wiki.gnome.org/Apps/Todo")
6266     (synopsis "GNOME's ToDo Application")
6267     (description
6268      "GNOME To Do is a simplistic personal task manager designed to perfectly
6269 fit the GNOME desktop.")
6270     (license license:gpl3+)))
6271
6272 (define-public gnome-dictionary
6273   (package
6274     (name "gnome-dictionary")
6275     (version "3.24.0")
6276     (source (origin
6277               (method url-fetch)
6278               (uri (string-append "mirror://gnome/sources/" name "/"
6279                                   (version-major+minor version) "/"
6280                                   name "-" version ".tar.xz"))
6281               (sha256
6282                (base32
6283                 "1wnrpg8yndacq0xnzc84d519yp7f28brzklm3a48xcgs1i50drs1"))))
6284     (build-system glib-or-gtk-build-system)
6285     (native-inputs
6286      `(("glib:bin" ,glib "bin")
6287        ("gobject-introspection" ,gobject-introspection)
6288        ("intltool" ,intltool)
6289        ("itstool" ,itstool)
6290        ("pkg-config" ,pkg-config)
6291        ("xmllint" ,libxml2)))
6292     (inputs
6293      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6294        ("gtk+" ,gtk+)))
6295     (home-page "https://wiki.gnome.org/Apps/Dictionary")
6296     (synopsis "Look up words in dictionary sources")
6297     (description
6298      "GNOME Dictionary can look for the definition or translation of a word in
6299 existing databases over the internet.")
6300     (license license:gpl3+)))
6301
6302 (define-public gnome-tweak-tool
6303   (package
6304     (name "gnome-tweak-tool")
6305     (version "3.26.4")
6306     (source (origin
6307               (method url-fetch)
6308               (uri (string-append "mirror://gnome/sources/gnome-tweak-tool/"
6309                                   (version-major+minor version) "/"
6310                                   "gnome-tweak-tool-" version ".tar.xz"))
6311               (patches (list
6312                         (search-patch "gnome-tweak-tool-search-paths.patch")))
6313               (sha256
6314                (base32
6315                 "1pq5a0kzh1sz7s7ax5c7p6212k9d51nk5bfvjfyqn99cs928187x"))))
6316     (build-system glib-or-gtk-build-system)
6317     (arguments
6318      `(#:configure-flags '("--localstatedir=/tmp"
6319                            "--sysconfdir=/tmp")
6320        #:imported-modules ((guix build python-build-system)
6321                            ,@%glib-or-gtk-build-system-modules)
6322        #:phases (modify-phases %standard-phases
6323                   (delete 'configure)
6324                   (replace 'build
6325                     (lambda* (#:key outputs #:allow-other-keys)
6326                       (invoke "meson" "build"
6327                                       "--prefix" (assoc-ref outputs "out"))))
6328                   (replace 'check
6329                     (lambda _ (invoke "ninja" "-C" "build" "test")))
6330                   (replace 'install
6331                     (lambda* (#:key outputs #:allow-other-keys)
6332                       (invoke "ninja" "-C" "build" "install")))
6333                   (add-after 'install 'wrap-program
6334                     (lambda* (#:key outputs #:allow-other-keys)
6335                       (let ((out               (assoc-ref outputs "out"))
6336                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6337                         (wrap-program (string-append out "/bin/gnome-tweak-tool")
6338                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6339                       #t))
6340                   (add-after 'install 'wrap
6341                     (@@ (guix build python-build-system) wrap)))))
6342     (native-inputs
6343      `(("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
6344        ("intltool" ,intltool)
6345        ("meson" ,meson-for-build)
6346        ("ninja" ,ninja)
6347        ("pkg-config" ,pkg-config)))
6348     (inputs
6349      `(("gnome-desktop" ,gnome-desktop)
6350        ("gtk+" ,gtk+)
6351        ("gobject-introspection" ,gobject-introspection)
6352        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6353        ("libnotify" ,libnotify)
6354        ("libsoup" ,libsoup)
6355        ("nautilus" ,nautilus)
6356        ("python" ,python)
6357        ("python-pygobject" ,python-pygobject)))
6358     (synopsis "Customize advanced GNOME 3 options")
6359     (home-page "https://wiki.gnome.org/action/show/Apps/GnomeTweakTool")
6360     (description
6361      "GNOME Tweak Tool allows adjusting advanced configuration settings in
6362 GNOME 3.  This includes things like the fonts used in user interface elements,
6363 alternative user interface themes, changes in window management behavior,
6364 GNOME Shell appearance and extension, etc.")
6365     (license license:gpl3+)))
6366
6367 (define-public gnome-shell-extensions
6368   (package
6369     (name "gnome-shell-extensions")
6370     (version "3.24.3")
6371     (source (origin
6372               (method url-fetch)
6373               (uri (string-append "mirror://gnome/sources/" name "/"
6374                                   (version-major+minor version)  "/"
6375                                   name "-" version ".tar.xz"))
6376               (sha256
6377                (base32
6378                 "0y8anpp9ymp0lxn15w63ra6zxxf8nvbl48xqkvqdjzida73fyz9w"))))
6379     (build-system gnu-build-system)
6380     (arguments
6381      '(#:configure-flags '("--enable-extensions=all")))
6382     (native-inputs
6383      `(("intltool" ,intltool)
6384        ("pkg-config" ,pkg-config)))
6385     (propagated-inputs
6386      `(("glib" ,glib)
6387        ("glib" ,glib "bin")))
6388     (synopsis "Extensions for GNOME Shell")
6389     (description "GNOME Shell extensions modify and extend GNOME Shell
6390 functionality and behavior.")
6391     (home-page "https://extensions.gnome.org/")
6392     (license license:gpl3+)))
6393
6394 (define-public arc-theme
6395   (package
6396     (name "arc-theme")
6397     (version "20170302")
6398     (source (origin
6399               (method url-fetch)
6400               (uri (string-append "https://github.com/horst3180/arc-theme"
6401                                   "/archive/" version ".tar.gz"))
6402               (file-name (string-append name "-" version ".tar.gz"))
6403               (sha256
6404                (base32
6405                 "0igxpngnkf1wpsg872a9jg3c9f5z8afm312yfbillz16mk8w39cw"))))
6406     (build-system gnu-build-system)
6407     (native-inputs
6408      `(("autoconf" ,autoconf)
6409        ("automake" ,automake)
6410        ("pkg-config" ,pkg-config)))
6411     (inputs
6412      `(("gtk+" ,gtk+)))
6413     (synopsis "A flat GTK+ theme with transparent elements")
6414     (description "Arc is a flat theme with transparent elements for GTK 3, GTK
6415 2, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
6416 like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
6417     (home-page "https://github.com/horst3180/arc-theme")
6418     ;; No "or later" language found.
6419     (license license:gpl3)))
6420
6421 (define-public faba-icon-theme
6422   (package
6423     (name "faba-icon-theme")
6424     (version "4.1.2")
6425     (source
6426      (origin
6427        (method url-fetch)
6428        (uri (string-append "https://github.com/moka-project/"
6429                            name "/archive/v" version ".tar.gz"))
6430        (file-name (string-append name "-" version ".tar.gz"))
6431        (sha256
6432         (base32
6433          "0hi2dl627ayfnihn3v6x9xzid668m4hp098hb7hrkxvahh4h9by7"))))
6434     (build-system gnu-build-system)
6435     (arguments
6436      '(#:phases
6437        (modify-phases %standard-phases
6438          (add-after 'unpack 'patch-makefile.am
6439            (lambda _
6440              (substitute* '("Makefile.am")
6441                (("\\$\\(DESTDIR\\)/usr/share")
6442                 "$(datadir)"))
6443              #t)))))
6444     (native-inputs
6445      `(("autoconf" ,autoconf)
6446        ("automake" ,automake)))
6447     (synopsis "Faba icon theme")
6448     (description
6449      "Faba is a minimal icon set used as a basis for other themes such as
6450 Moka")
6451     (home-page "https://snwh.org/moka")
6452     (license (list license:lgpl3+
6453                    license:cc-by-sa4.0))))
6454
6455 (define-public moka-icon-theme
6456   (package
6457     (inherit faba-icon-theme)
6458     (name "moka-icon-theme")
6459     (version "5.3.6")
6460     (source (origin
6461               (method url-fetch)
6462               (uri (string-append "https://github.com/moka-project"
6463                                   "/moka-icon-theme/archive/v"
6464                                   version ".tar.gz"))
6465               (file-name (string-append name "-" version ".tar.gz"))
6466               (sha256
6467                (base32
6468                 "04axinv79qnngsxkwqzi5j9lc3hn24rjqps5ai8d42pdnfaf0x37"))))
6469     (propagated-inputs
6470      ;; Moka is based on Faba by using it as a fallback icon set instead of
6471      ;; bundling it, so we need to add it as a propagated input.
6472      `(("faba-icon-theme" ,faba-icon-theme)))
6473     (synopsis "Moka icon theme")
6474     (description "Moka is a stylized desktop icon set, designed to be clear,
6475 simple and consistent.")
6476     (license (list license:gpl3+
6477                    license:cc-by-sa4.0))))
6478
6479 (define-public arc-icon-theme
6480   (package
6481     (name "arc-icon-theme")
6482     (version "20161122")
6483     (source (origin
6484               (method url-fetch)
6485               (uri (string-append "https://github.com/horst3180/arc-icon-theme"
6486                                   "/archive/" version ".tar.gz"))
6487               (file-name (string-append name "-" version ".tar.gz"))
6488               (sha256
6489                (base32
6490                 "1ya1cqvv8q847c0rpcg6apzky87q3h04y8jz5nmi52qk6kg8si0b"))))
6491     (build-system gnu-build-system)
6492     (native-inputs
6493      `(("autoconf" ,autoconf)
6494        ("automake" ,automake)))
6495     ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
6496     (propagated-inputs
6497      `(("moka-icon-theme" ,moka-icon-theme)))
6498     (synopsis "Arc icon theme")
6499     (description "The Arc icon theme provides a set of icons matching the
6500 style of the Arc GTK theme.  Icons missing from the Arc theme are provided by
6501 the Moka icon theme.")
6502     (home-page "https://github.com/horst3180/arc-icon-theme")
6503     (license license:gpl3+)))
6504
6505 (define-public folks
6506   (package
6507     (name "folks")
6508     (version "0.11.2")
6509     (source (origin
6510               (method url-fetch)
6511               (uri (string-append
6512                     "mirror://gnome/sources/" name "/"
6513                     (version-major+minor version) "/"
6514                     name "-" version ".tar.xz"))
6515               (sha256
6516                (base32
6517                 "1f51albxgfqxbax57i3pcgv2fx7i419xaapzdvldas6gw100ma1m"))))
6518     (build-system glib-or-gtk-build-system)
6519     (inputs
6520      `(("bdb" ,bdb)
6521        ("dbus-glib" ,dbus-glib)
6522        ("evolution-data-server" ,evolution-data-server)
6523        ("glib" ,glib)
6524        ("libgee" ,libgee)
6525        ("telepathy-glib" ,telepathy-glib)))
6526     (native-inputs
6527      `(("gobject-introspection" ,gobject-introspection)
6528        ("intltool" ,intltool)
6529        ("pkg-config" ,pkg-config)
6530        ("vala" ,vala)))
6531     (synopsis "Library to aggregate data about people")
6532     (description "Libfolks is a library that aggregates information about people
6533 from multiple sources (e.g., Telepathy connection managers for IM contacts,
6534 Evolution Data Server for local contacts, libsocialweb for web service contacts,
6535 etc.) to create metacontacts.  It's written in Vala, which generates C code when
6536 compiled.")
6537     (home-page "https://wiki.gnome.org/Projects/Folks")
6538     (license license:lgpl2.1+)))
6539
6540 (define-public gfbgraph
6541   (package
6542     (name "gfbgraph")
6543     (version "0.2.3")
6544     (source (origin
6545               (method url-fetch)
6546               (uri (string-append
6547                     "mirror://gnome/sources/" name "/"
6548                     (version-major+minor version) "/"
6549                     name "-" version ".tar.xz"))
6550               (sha256
6551                (base32
6552                 "1dp0v8ia35fxs9yhnqpxj3ir5lh018jlbiwifjfn8ayy7h47j4fs"))))
6553     (build-system glib-or-gtk-build-system)
6554     (arguments
6555      `(#:tests? #f ; Tests appear to require the network.
6556        ;; FIXME --enable-gtk-doc fails even with gtk-doc as a native-input.
6557        #:configure-flags '("--disable-gtk-doc"
6558                            "--disable-static"
6559                            "--enable-introspection")))
6560     (native-inputs
6561      `(("pkg-config" ,pkg-config)
6562        ("gobject-introspection" ,gobject-introspection)))
6563     (inputs
6564      `(("json-glib" ,json-glib)
6565        ("gnome-online-accounts" ,gnome-online-accounts)
6566        ("rest" ,rest)))
6567     (synopsis "GLib/GObject wrapper for the Facebook API")
6568     (description "This library allows you to use the Facebook API from
6569 GLib/GObject code.")
6570     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
6571     (license license:lgpl2.1+)))
6572
6573 (define-public libgnomekbd
6574   (package
6575     (name "libgnomekbd")
6576     (version "3.22.0.1")
6577     (source (origin
6578               (method url-fetch)
6579               (uri (string-append "mirror://gnome/sources/" name "/"
6580                                   (version-major+minor version)  "/"
6581                                   name "-" version ".tar.xz"))
6582               (sha256
6583                (base32
6584                 "1plkkack6s8b21gcmmly0lapgcjz53dmw2vixnn4rw4jxjwbdzaf"))))
6585     (build-system gnu-build-system)
6586     (native-inputs
6587      `(("pkg-config" ,pkg-config)
6588        ("glib" ,glib "bin")
6589        ("intltool" ,intltool)))
6590     (propagated-inputs
6591      ;; Referred to in .h files and .pc.
6592      `(("glib" ,glib)
6593        ("gtk+" ,gtk+)
6594        ("libxklavier" ,libxklavier)))
6595     (home-page "https://www.gnome.org")
6596     (synopsis "GNOME keyboard configuration library")
6597     (description
6598      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
6599 environment, which can notably display keyboard layouts.")
6600     (license license:lgpl2.0+)))
6601
6602 ;;; This package is no longer maintained:
6603 ;;; https://wiki.gnome.org/Attic/LibUnique
6604 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
6605 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
6606 (define-public libunique
6607   (package
6608     (name "libunique")
6609     (version "3.0.2")
6610     (source (origin
6611               (method url-fetch)
6612               (uri (string-append "mirror://gnome/sources/" name "/"
6613                                   (version-major+minor version)  "/"
6614                                   name "-" version ".tar.xz"))
6615               (sha256
6616                (base32
6617                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
6618     (build-system glib-or-gtk-build-system)
6619     (arguments
6620      `(#:configure-flags '("--disable-static"
6621                            "--disable-dbus" ; use gdbus
6622                            "--enable-introspection")))
6623     (native-inputs
6624      `(("pkg-config" ,pkg-config)
6625        ("gobject-introspection" ,gobject-introspection)
6626        ("glib:bin" ,glib "bin")
6627        ("gtk-doc" ,gtk-doc)))
6628     (propagated-inputs
6629      ;; Referred to in .h files and .pc.
6630      `(("gtk+" ,gtk+)))
6631     (home-page "https://wiki.gnome.org/Attic/LibUnique")
6632     (synopsis "Library for writing single instance applications")
6633     (description
6634      "Libunique is a library for writing single instance applications.  If you
6635 launch a single instance application twice, the second instance will either just
6636 quit or will send a message to the running instance.  Libunique makes it easy to
6637 write this kind of application, by providing a base class, taking care of all
6638 the IPC machinery needed to send messages to a running instance, and also
6639 handling the startup notification side.")
6640     (license license:lgpl2.1+)))
6641
6642 (define-public gnome-calculator
6643   (package
6644     (name "gnome-calculator")
6645     (version "3.26.0")
6646     (source
6647      (origin
6648        (method url-fetch)
6649        (uri (string-append "mirror://gnome/sources/" name "/"
6650                            (version-major+minor version) "/"
6651                            name "-" version ".tar.xz"))
6652        (sha256
6653         (base32
6654          "1iv3b3mvqxm17r5gv15dyq6gz08w0ljhzgbf22xnnfnpzhvmn8b2"))))
6655     (build-system glib-or-gtk-build-system)
6656     (native-inputs
6657      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
6658        ("intltool" ,intltool)
6659        ("itstool" ,itstool)
6660        ("pkg-config" ,pkg-config)))
6661     (inputs
6662      `(("gtksourceview" ,gtksourceview)
6663        ("libsoup" ,libsoup)
6664        ("mpc" ,mpc)
6665        ("mpfr" ,mpfr)))
6666     (home-page "https://wiki.gnome.org/Apps/Calculator")
6667     (synopsis "Desktop calculator")
6668     (description
6669      "Calculator is an application that solves mathematical equations and
6670 is suitable as a default application in a Desktop environment.")
6671     (license license:gpl3)))
6672
6673 (define-public xpad
6674   (package
6675     (name "xpad")
6676     (version "5.0.0")
6677     (source
6678      (origin
6679        (method url-fetch)
6680        (uri (string-append "https://launchpad.net/xpad/trunk/"
6681                            version "/+download/"
6682                            name "-" version ".tar.bz2"))
6683        (sha256
6684         (base32
6685          "02yikxg6z9bwla09ka001ppjlpbv5kbza3za9asazm5aiz376mkb"))))
6686     (build-system gnu-build-system)
6687     (arguments
6688      `(#:phases
6689        (modify-phases %standard-phases
6690          (add-after 'unpack 'run-autogen
6691            (lambda _
6692              (system* "sh" "autogen.sh"))))))
6693     (native-inputs
6694      `(("autoconf" ,autoconf)
6695        ("automake" ,automake)
6696        ("gtk+:bin" ,gtk+ "bin")
6697        ("intltool" ,intltool)
6698        ("pkg-config" ,pkg-config)))
6699     (inputs
6700      `(("gtksourceview" ,gtksourceview)
6701        ("libsm" ,libsm)))
6702     (home-page "https://wiki.gnome.org/Apps/Xpad")
6703     (synopsis "Virtual sticky note")
6704     (description
6705      "Xpad is a sticky note that strives to be simple, fault tolerant,
6706 and customizable.  Xpad consists of independent pad windows, each is
6707 basically a text box in which notes can be written.")
6708     (license license:gpl3+)))
6709
6710 (define-public gucharmap
6711   (package
6712     (name "gucharmap")
6713     (version "3.18.0")
6714     (source
6715      (origin
6716        (method url-fetch)
6717        (uri (string-append "mirror://gnome/sources/" name "/"
6718                            (version-major+minor version) "/"
6719                            name "-" version ".tar.xz"))
6720        (sha256
6721         (base32
6722          "0c1q9w5vql0vvg6g0knxfnv4ap19fg5cdrwndi1cj9lsym92c78j"))))
6723     (build-system glib-or-gtk-build-system)
6724     (native-inputs
6725      `(("desktop-file-utils" ,desktop-file-utils)
6726        ("glib:bin" ,glib "bin") ; for glib-compile-resources.
6727        ("gobject-introspection" ,gobject-introspection)
6728        ("intltool" ,intltool)
6729        ("itstool" ,itstool)
6730        ("pkg-config" ,pkg-config)))
6731     (inputs
6732      `(("gtk+" ,gtk+)
6733        ("xmllint" ,libxml2)))
6734     (home-page "https://wiki.gnome.org/Apps/Gucharmap")
6735     (synopsis "Unicode character picker and font browser")
6736     (description
6737      "This program allows you to browse through all the available Unicode
6738 characters and categories for the installed fonts, and to examine their
6739 detailed properties.  It is an easy way to find the character you might
6740 only know by its Unicode name or code point.")
6741     (license license:gpl3+)))
6742
6743 (define-public bluefish
6744   (package
6745     (name "bluefish")
6746     (version "2.2.10")
6747     (source
6748      (origin
6749        (method url-fetch)
6750        (uri (string-append "http://www.bennewitz.com/bluefish/stable/source/"
6751                            name "-" version ".tar.gz"))
6752        (sha256
6753         (base32
6754          "1jw4has7lbp77lqmzvnnjmqcf0lacjfnka873lkkwdyrpzc4c1q4"))))
6755     (build-system gnu-build-system)
6756     (native-inputs
6757      `(("desktop-file-utils" ,desktop-file-utils)
6758        ("intltool" ,intltool)
6759        ("pkg-config" ,pkg-config)))
6760     (inputs
6761      `(("enchant" ,enchant)
6762        ("gtk+" ,gtk+)
6763        ("python" ,python-2)
6764        ("xmllint" ,libxml2)
6765        ("gucharmap" ,gucharmap)))
6766     (home-page "http://bluefish.openoffice.nl")
6767     (synopsis "Web development studio")
6768     (description
6769      "Bluefish is an editor targeted towards programmers and web developers,
6770 with many options to write web sites, scripts and other code.
6771 Bluefish supports many programming and markup languages.")
6772     (license license:gpl3+)))
6773
6774 (define-public gnome-system-monitor
6775   (package
6776     (name "gnome-system-monitor")
6777     (version "3.26.0")
6778     (source
6779      (origin
6780        (method url-fetch)
6781        (uri (string-append "mirror://gnome/sources/" name "/"
6782                            (version-major+minor version) "/"
6783                            name "-" version ".tar.xz"))
6784        (sha256
6785         (base32
6786          "1cz6s0cvagj422f9dc231nvg8jsfkva5s81skpq4q5jyrb1ahj7q"))))
6787     (build-system glib-or-gtk-build-system)
6788     (native-inputs
6789      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
6790        ("intltool" ,intltool)
6791        ("itstool" ,itstool)
6792        ("libgtop" ,libgtop)
6793        ("pkg-config" ,pkg-config)))
6794     (inputs
6795      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
6796        ("gtk+" ,gtk+)
6797        ("gtkmm" ,gtkmm)
6798        ("librsvg" ,librsvg)
6799        ("libxml2" ,libxml2)))
6800     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
6801     (synopsis "Process viewer and system resource monitor for GNOME")
6802     (description
6803      "GNOME System Monitor is a GNOME process viewer and system monitor with
6804 an attractive, easy-to-use interface.  It has features, such as a tree view
6805 for process dependencies, icons for processes, the ability to hide processes,
6806 graphical time histories of CPU/memory/swap usage and the ability to
6807 kill/reinice processes.")
6808     (license license:gpl2+)))
6809
6810 (define-public python-pyatspi
6811   (package
6812     (name "python-pyatspi")
6813     (version "2.24.0")
6814     (source (origin
6815               (method url-fetch)
6816               (uri (string-append
6817                     "mirror://gnome/sources/pyatspi/"
6818                     (version-major+minor version)
6819                     "/pyatspi-" version ".tar.xz"))
6820               (sha256
6821                (base32
6822                 "14m6y27ziqc9f6339gjz49mlsk6mrsyg4bkj055cdzc7sfjlgvz7"))))
6823     (build-system gnu-build-system)
6824     (native-inputs
6825      `(("pkg-config" ,pkg-config)))
6826     (inputs
6827      `(("python" ,python)
6828        ("python-pygobject" ,python-pygobject)))
6829     (synopsis "Python client bindings for D-Bus AT-SPI")
6830     (home-page "https://wiki.linuxfoundation.org/accessibility\
6831 /atk/at-spi/at-spi_on_d-bus")
6832     (description
6833      "This package includes a python client library for the AT-SPI D-Bus
6834 accessibility infrastructure.")
6835     (license license:lgpl2.0)
6836     (properties '((upstream-name . "pyatspi")))))
6837
6838 (define-public orca
6839   (package
6840     (name "orca")
6841     (version "3.26.0")
6842     (source (origin
6843               (method url-fetch)
6844               (uri (string-append
6845                     "mirror://gnome/sources/" name "/"
6846                     (version-major+minor version) "/"
6847                     name "-" version ".tar.xz"))
6848               (sha256
6849                (base32
6850                 "0xk5k9cbswymma60nrfj00dl97wypx59c107fb1hwi75gm0i07a7"))))
6851     (build-system glib-or-gtk-build-system)
6852     (arguments
6853      '(#:phases
6854        (modify-phases %standard-phases
6855          (add-before 'configure 'qualify-xkbcomp
6856            (lambda* (#:key inputs #:allow-other-keys)
6857              (let ((xkbcomp (string-append
6858                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
6859                (substitute* "src/orca/orca.py"
6860                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
6861              #t))
6862          (add-after 'install 'wrap-orca
6863            (lambda* (#:key outputs #:allow-other-keys)
6864              (let* ((out  (assoc-ref outputs "out"))
6865                     (prog (string-append out "/bin/orca")))
6866                (wrap-program prog
6867                  `("GI_TYPELIB_PATH" ":" prefix
6868                    (,(getenv "GI_TYPELIB_PATH")))
6869                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
6870                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
6871                  `("PYTHONPATH" ":" prefix
6872                    (,(getenv "PYTHONPATH")))))
6873              #t)))))
6874     (native-inputs
6875      `(("intltool" ,intltool)
6876        ("itstool" ,itstool)
6877        ("pkg-config" ,pkg-config)
6878        ("xmllint" ,libxml2)))
6879     (inputs
6880      `(("at-spi2-atk" ,at-spi2-atk)
6881        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6882        ("gstreamer" ,gstreamer)
6883        ("gst-plugins-base" ,gst-plugins-base)
6884        ("gst-plugins-good" ,gst-plugins-good)
6885        ("gtk+" ,gtk+)
6886        ("python" ,python)
6887        ("python-pygobject" ,python-pygobject)
6888        ("python-pyatspi" ,python-pyatspi)
6889        ("python-speechd" ,speech-dispatcher)
6890        ("xkbcomp" ,xkbcomp)))
6891     (synopsis
6892      "Screen reader for individuals who are blind or visually impaired")
6893     (home-page "https://wiki.gnome.org/Projects/Orca")
6894     (description
6895      "Orca is a screen reader that provides access to the graphical desktop
6896 via speech and refreshable braille.  Orca works with applications and toolkits
6897 that support the Assistive Technology Service Provider Interface (AT-SPI).")
6898     (license license:lgpl2.1+)))
6899
6900 (define-public gspell
6901   (package
6902     (name "gspell")
6903     (version "1.4.2")
6904     (source (origin
6905               (method url-fetch)
6906               (uri (string-append "mirror://gnome/sources/" name "/"
6907                                   (version-major+minor version) "/"
6908                                   name "-" version ".tar.xz"))
6909               (sha256
6910                (base32
6911                 "1683vyyfq3q0ph665jj6id8hnlyid4qxzmqiwpv97gmz8zksg6x5"))
6912               (patches (search-patches "gspell-dash-test.patch"))))
6913     (build-system glib-or-gtk-build-system)
6914     (arguments
6915      '(#:phases
6916        (modify-phases %standard-phases
6917          (add-before 'check 'pre-check
6918            (lambda* (#:key inputs #:allow-other-keys)
6919              ;; Tests require a running X server.
6920              (system "Xvfb :1 &")
6921              (setenv "DISPLAY" ":1")
6922
6923              ;; For the missing /etc/machine-id.
6924              (setenv "DBUS_FATAL_WARNINGS" "0")
6925
6926              ;; Allow Enchant and its Aspell backend to find the en_US
6927              ;; dictionary.
6928              (setenv "ASPELL_DICT_DIR"
6929                      (string-append (assoc-ref inputs "aspell-dict-en")
6930                                     "/lib/aspell"))
6931              #t)))))
6932     (inputs
6933      `(("gtk+" ,gtk+)
6934        ("glib" ,glib)
6935        ("iso-codes" ,iso-codes)))
6936     (native-inputs
6937      `(("glib" ,glib "bin")
6938        ("pkg-config" ,pkg-config)
6939        ("xmllint" ,libxml2)
6940
6941        ;; For tests.
6942        ("aspell-dict-en" ,aspell-dict-en)
6943        ("xorg-server" ,xorg-server)))
6944     (propagated-inputs
6945      `(("enchant" ,enchant)))           ; enchant.pc is required by gspell-1.pc
6946     (home-page "https://wiki.gnome.org/Projects/gspell")
6947     (synopsis "GNOME's alternative spell checker")
6948     (description
6949      "gspell provides a flexible API to add spell-checking to a GTK+
6950 application.  It provides a GObject API, spell-checking to text entries and
6951 text views, and buttons to choose the language.")
6952     (license license:gpl2+)))
6953
6954 (define-public gnome-planner
6955   (package
6956     (name "gnome-planner")
6957     (version "0.14.6")
6958     (source (origin
6959               (method url-fetch)
6960               (uri (string-append "mirror://gnome/sources/planner/"
6961                                   (version-major+minor version) "/planner-"
6962                                   version ".tar.xz"))
6963               (sha256
6964                (base32
6965                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
6966     (build-system glib-or-gtk-build-system)
6967     (arguments
6968      ;; Disable the Python bindings because the Planner program functions
6969      ;; without them, and (as of 2017-06-13) we have not packaged all of
6970      ;; packages that are necessary for building the Python bindings.
6971      `(#:configure-flags
6972        (list "--disable-python"
6973              ,@(if (string=? "aarch64-linux" (%current-system))
6974                    '("--build=aarch64-unknown-linux-gnu")
6975                    '()))))
6976     (inputs
6977      `(("libgnomecanvas" ,libgnomecanvas)
6978        ("libgnomeui" ,libgnomeui)
6979        ("libglade" ,libglade)
6980        ("gnome-vfs" ,gnome-vfs)
6981        ("gconf" ,gconf)
6982        ("libxml2" ,libxml2)
6983        ("libxslt" ,libxslt)
6984        ("gtk+" ,gtk+)
6985        ("glib" ,glib)))
6986     (native-inputs
6987      `(("intltool" ,intltool)
6988        ("scrollkeeper" ,scrollkeeper)
6989        ("pkg-config" ,pkg-config)))
6990     (home-page "https://wiki.gnome.org/Apps/Planner")
6991     (synopsis "Project management software for the GNOME desktop")
6992     (description
6993      "GNOME Planner is a project management tool based on the Work Breakdown
6994 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
6995 the resources, tasks, and constraints that you define, Planner generates
6996 various views into a project.  For example, Planner can show a Gantt chart of
6997 the project.  It can show a detailed summary of tasks including their
6998 duration, cost, and current progress.  It can also show a report of resource
6999 utilization that highlights under-utilized and over-utilized resources.  These
7000 views can be printed as PDF or PostScript files, or exported to HTML.")
7001     (license license:gpl2+)))
7002
7003 (define-public lollypop
7004   (package
7005     (name "lollypop")
7006     (version "0.9.306")
7007     (source
7008      (origin
7009        (method url-fetch)
7010        (uri (string-append "https://gitlab.gnome.org/gnumdk/lollypop/uploads/"
7011                            "b769805b7063ef9807e4e832e7e87ad2/"
7012                            name "-" version ".tar.xz"))
7013        (sha256
7014         (base32
7015          "0c49v6793bywvh295xbii9yq21hh3qpmxwbgp9i71kj6r9grvhan"))))
7016     (build-system meson-build-system)
7017     (arguments
7018      `(#:imported-modules ((guix build python-build-system)
7019                            ,@%meson-build-system-modules)
7020        #:glib-or-gtk? #t
7021        #:tests? #f ; no test suite
7022        #:phases
7023        (modify-phases %standard-phases
7024          (add-after 'install 'wrap-program
7025            (lambda* (#:key outputs #:allow-other-keys)
7026              (let ((out               (assoc-ref outputs "out"))
7027                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
7028                (wrap-program (string-append out "/bin/lollypop")
7029                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7030              #t))
7031          (add-after 'install 'wrap
7032            (@@ (guix build python-build-system) wrap)))))
7033     (native-inputs
7034      `(("intltool" ,intltool)
7035        ("itstool" ,itstool)
7036        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
7037        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
7038        ("pkg-config" ,pkg-config)))
7039     (inputs
7040      `(("gobject-introspection" ,gobject-introspection)
7041        ("gst-plugins-base" ,gst-plugins-base)
7042        ("libnotify" ,libnotify)
7043        ("libsecret" ,libsecret)
7044        ("libsoup" ,libsoup)
7045        ("python" ,python)
7046        ("python-beautifulsoup4" ,python-beautifulsoup4)
7047        ("python-gst" ,python-gst)
7048        ("python-pycairo" ,python-pycairo)
7049        ("python-pygobject" ,python-pygobject)
7050        ("python-pylast" ,python-pylast)
7051        ("totem-pl-parser" ,totem-pl-parser)
7052        ("webkitgtk" ,webkitgtk)))
7053     (propagated-inputs
7054      `(;; gst-plugins-base is required to start Lollypop,
7055        ;; the others are required to play streaming.
7056        ("gst-plugins-good" ,gst-plugins-good)
7057        ("gst-plugins-ugly" ,gst-plugins-ugly)))
7058     (home-page "https://gnumdk.github.io/lollypop-web")
7059     (synopsis "GNOME music playing application")
7060     (description
7061      "Lollypop is a music player designed to play well with GNOME desktop.
7062 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
7063 from artists and tracks from the web.  It also fetches cover artworks
7064 automatically and it can stream songs from online music services and charts.")
7065     (license license:gpl3+)))
7066
7067 (define-public gnome-video-effects
7068   (package
7069     (name "gnome-video-effects")
7070     (version "0.4.3")
7071     (source (origin
7072               (method url-fetch)
7073               (uri (string-append "mirror://gnome/sources/" name "/"
7074                                   (version-major+minor version) "/" name "-"
7075                                   version ".tar.xz"))
7076               (sha256
7077                (base32
7078                 "06c2f1kihyhawap1s3zg5w7q7fypsybkp7xry4hxkdz4mpsy0zjs"))))
7079     (build-system glib-or-gtk-build-system)
7080     (arguments
7081      `(#:out-of-source? #f))
7082     (native-inputs
7083      `(("glib:bin" ,glib "bin")
7084        ("intltool" ,intltool)
7085        ("gettext" ,gettext-minimal)
7086        ("pkg-config" ,pkg-config)))
7087     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
7088     (synopsis "Video effects for Cheese and other GNOME applications")
7089     (description
7090      "A collection of GStreamer video filters and effects to be used in
7091 photo-booth-like software, such as Cheese.")
7092     (license license:gpl2+)))
7093
7094 (define-public cheese
7095   (package
7096     (name "cheese")
7097     (version "3.26.0")
7098     (source (origin
7099               (method url-fetch)
7100               (uri (string-append "mirror://gnome/sources/" name "/"
7101                                   (version-major+minor version) "/" name "-"
7102                                   version ".tar.xz"))
7103               (sha256
7104                (base32
7105                 "01f6lsp9jkhq5v2zxlghw15bca4xqavkxqkl8977r0g13p22zxcf"))))
7106     (arguments
7107      ;; Tests require GDK.
7108      `(#:tests? #f
7109        #:phases
7110        (modify-phases %standard-phases
7111          (add-before 'install 'skip-gtk-update-icon-cache
7112            (lambda _
7113              ;; Don't create 'icon-theme.cache'
7114              (substitute* "Makefile"
7115                (("gtk-update-icon-cache") (which "true")))
7116              #t))
7117          (add-after 'install 'wrap-cheese
7118            (lambda* (#:key inputs outputs #:allow-other-keys)
7119              (let ((out             (assoc-ref outputs "out"))
7120                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
7121                (wrap-program (string-append out "/bin/cheese")
7122                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
7123              #t)))))
7124     (build-system glib-or-gtk-build-system)
7125     (native-inputs
7126      `(("glib:bin" ,glib "bin")
7127        ("intltool" ,intltool)
7128        ("itstool" ,itstool)
7129        ("libxml2" ,libxml2)
7130        ("pkg-config" ,pkg-config)
7131        ("vala" ,vala)))
7132     (propagated-inputs
7133      `(("gnome-video-effects" ,gnome-video-effects)))
7134     (inputs
7135      `(("clutter" ,clutter)
7136        ("clutter-gst" ,clutter-gst)
7137        ("clutter-gtk" ,clutter-gtk)
7138        ("gdk-pixbuf" ,gdk-pixbuf)
7139        ("glib" ,glib)
7140        ("gnome-desktop" ,gnome-desktop)
7141        ("gobject-introspection" ,gobject-introspection)
7142        ("gstreamer" ,gstreamer)
7143        ("gst-plugins-base" ,gst-plugins-base)
7144        ("gst-plugins-bad" ,gst-plugins-bad)
7145        ("gtk+" ,gtk+)
7146        ("libcanberra" ,libcanberra)
7147        ("libx11" ,libx11)
7148        ("libxtst" ,libxtst)))
7149     (home-page "https://wiki.gnome.org/Apps/Cheese")
7150     (synopsis "Webcam photo booth software for GNOME")
7151     (description
7152      "Cheese uses your webcam to take photos and videos.  Cheese can also
7153 apply fancy special effects and lets you share the fun with others.")
7154     (license license:gpl2+)))
7155
7156 (define-public sound-juicer
7157   (package
7158     (name "sound-juicer")
7159     (version "3.24.0")
7160     (source
7161      (origin
7162        (method url-fetch)
7163        (uri (string-append "mirror://gnome/sources/" name "/"
7164                            (version-major+minor version) "/"
7165                            name "-" version ".tar.xz"))
7166        (sha256
7167         (base32
7168          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
7169     (build-system glib-or-gtk-build-system)
7170     (native-inputs
7171      `(("desktop-file-utils" ,desktop-file-utils)
7172        ("intltool" ,intltool)
7173        ("itstool" ,itstool)
7174        ("pkg-config" ,pkg-config)
7175        ("xmllint" ,libxml2)))
7176     (inputs
7177      `(("gtk+" ,gtk+)
7178        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7179        ("gstreamer" ,gstreamer)
7180        ("gst-plugins-base" ,gst-plugins-base)
7181        ("gst-plugins-good" ,gst-plugins-good)
7182        ("iso-codes" ,iso-codes)
7183        ("libbrasero-media3" ,brasero)
7184        ("libcanberra" ,libcanberra)
7185        ("libdiscid" ,libdiscid)
7186        ("libmusicbrainz" ,libmusicbrainz)
7187        ("neon" ,neon)))
7188     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
7189     (synopsis "Audio music cd ripper")
7190     (description "Sound Juicer extracts audio from compact discs and convert it
7191 into audio files that a personal computer or digital audio player can play.
7192 It supports ripping to any audio codec supported by a GStreamer plugin, such as
7193 mp3, Ogg Vorbis and FLAC")
7194     (license license:gpl2+)))