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 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 Andy Wingo <wingo@igalia.com>
  10 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
  11 ;;; Copyright © 2015, 2016 Ricardo Wurmus <rekado@elephly.net>
  12 ;;; Copyright © 2015, 2016 Mark H Weaver <mhw@netris.org>
  13 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
  14 ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org>
  16 ;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
  17 ;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
  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 ng0 <ng0@we.make.ritual.n0.is>
  23 ;;; Copyright © 2016 David Craven <david@craven.ch>
  24 ;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
  25 ;;;
  26 ;;; This file is part of GNU Guix.
  27 ;;;
  28 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  29 ;;; under the terms of the GNU General Public License as published by
  30 ;;; the Free Software Foundation; either version 3 of the License, or (at
  31 ;;; your option) any later version.
  32 ;;;
  33 ;;; GNU Guix is distributed in the hope that it will be useful, but
  34 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  35 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  36 ;;; GNU General Public License for more details.
  37 ;;;
  38 ;;; You should have received a copy of the GNU General Public License
  39 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  40
  41 (define-module (gnu packages gnome)
  42   #:use-module ((guix licenses) #:prefix license:)
  43   #:use-module (guix packages)
  44   #:use-module (guix download)
  45   #:use-module (guix git-download)
  46   #:use-module (guix utils)
  47   #:use-module (guix build-system gnu)
  48   #:use-module (guix build-system glib-or-gtk)
  49   #:use-module (guix build-system trivial)
  50   #:use-module (gnu packages)
  51   #:use-module (gnu packages admin)
  52   #:use-module (gnu packages autotools)
  53   #:use-module (gnu packages avahi)
  54   #:use-module (gnu packages base)
  55   #:use-module (gnu packages bison)
  56   #:use-module (gnu packages calendar)
  57   #:use-module (gnu packages check)
  58   #:use-module (gnu packages cups)
  59   #:use-module (gnu packages curl)
  60   #:use-module (gnu packages cyrus-sasl)
  61   #:use-module (gnu packages databases)
  62   #:use-module (gnu packages djvu)
  63   #:use-module (gnu packages dns)
  64   #:use-module (gnu packages flex)
  65   #:use-module (gnu packages docbook)
  66   #:use-module (gnu packages enchant)
  67   #:use-module (gnu packages fontutils)
  68   #:use-module (gnu packages game-development)
  69   #:use-module (gnu packages gettext)
  70   #:use-module (gnu packages glib)
  71   #:use-module (gnu packages gnupg)
  72   #:use-module (gnu packages gnuzilla)
  73   #:use-module (gnu packages gstreamer)
  74   #:use-module (gnu packages gtk)
  75   #:use-module (gnu packages gperf)
  76   #:use-module (gnu packages guile)
  77   #:use-module (gnu packages openldap)
  78   #:use-module (gnu packages pdf)
  79   #:use-module (gnu packages polkit)
  80   #:use-module (gnu packages popt)
  81   #:use-module (gnu packages ghostscript)
  82   #:use-module (gnu packages ibus)
  83   #:use-module (gnu packages iso-codes)
  84   #:use-module (gnu packages libcanberra)
  85   #:use-module (gnu packages linux)
  86   #:use-module (gnu packages libusb)
  87   #:use-module (gnu packages lirc)
  88   #:use-module (gnu packages lua)
  89   #:use-module (gnu packages image)
  90   #:use-module (gnu packages networking)
  91   #:use-module (gnu packages password-utils)
  92   #:use-module (gnu packages perl)
  93   #:use-module (gnu packages photo)
  94   #:use-module (gnu packages pkg-config)
  95   #:use-module (gnu packages pulseaudio)
  96   #:use-module (gnu packages python)
  97   #:use-module (gnu packages scanner)
  98   #:use-module (gnu packages ssh)
  99   #:use-module (gnu packages xml)
 100   #:use-module (gnu packages geeqie)
 101   #:use-module (gnu packages gl)
 102   #:use-module (gnu packages compression)
 103   #:use-module (gnu packages tex)
 104   #:use-module (gnu packages tls)
 105   #:use-module (gnu packages web)
 106   #:use-module (gnu packages webkit)
 107   #:use-module (gnu packages xorg)
 108   #:use-module (gnu packages xdisorg)
 109   #:use-module (gnu packages freedesktop)
 110   #:use-module (gnu packages mail)
 111   #:use-module (gnu packages mit-krb5)
 112   #:use-module (gnu packages multiprecision)
 113   #:use-module (gnu packages backup)
 114   #:use-module (gnu packages nettle)
 115   #:use-module (gnu packages ncurses)
 116   #:use-module (gnu packages video)
 117   #:use-module (gnu packages cdrom)
 118   #:use-module (gnu packages samba)
 119   #:use-module (gnu packages readline)
 120   #:use-module (gnu packages fonts)
 121   #:use-module (srfi srfi-1))
 122
 123 (define-public brasero
 124   (package
 125     (name "brasero")
 126     (version "3.12.1")
 127     (source (origin
 128              (method url-fetch)
 129              (uri (string-append "mirror://gnome/sources/" name "/"
 130                                  (version-major+minor version) "/"
 131                                  name "-" version ".tar.xz"))
 132              (sha256
 133               (base32
 134                "09vi2hyhl0bz7imv3ky6h7x5m3d546n968wcghydwrkvwm9ylpls"))))
 135     (build-system glib-or-gtk-build-system)
 136     (arguments
 137      `(#:configure-flags (list
 138                           (string-append "--with-girdir="
 139                                          (assoc-ref %outputs "out")
 140                                          "/share/gir-1.0")
 141                           (string-append "--with-typelibdir="
 142                                          (assoc-ref %outputs "out")
 143                                          "/lib/girepository-1.0"))))
 144     (propagated-inputs
 145      `(("hicolor-icon-theme" ,hicolor-icon-theme)))
 146     (native-inputs
 147      `(("intltool" ,intltool)
 148        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 149        ("gobject-introspection" ,gobject-introspection)
 150        ("pkg-config" ,pkg-config)))
 151     (inputs
 152      `(("glib" ,glib)
 153        ("gnome-doc-utils" ,gnome-doc-utils)
 154        ("gstreamer" ,gstreamer)
 155        ("gst-plugins-base" ,gst-plugins-base)
 156        ("gtk+" ,gtk+)
 157        ("itstool" ,itstool)
 158        ("libcanberra" ,libcanberra)
 159        ("libice" ,libice)
 160        ("libnotify" ,libnotify)
 161        ("libsm" ,libsm)
 162        ("libxml2" ,libxml2)
 163        ("nettle" ,nettle)
 164        ("totem-pl-parser" ,totem-pl-parser)))
 165     (home-page "https://projects.gnome.org/brasero/")
 166     (synopsis "CD/DVD burning tool for Gnome")
 167     (description "Brasero is an application to burn CD/DVD for the Gnome
 168 Desktop.  It is designed to be as simple as possible and has some unique
 169 features to enable users to create their discs easily and quickly.")
 170     (license license:gpl2+)))
 171
 172 (define-public dia
 173   ;; This version from GNOME's repository includes fixes for compiling with
 174   ;; recent versions of the build tools.  The latest activity on the
 175   ;; pre-GNOME version has been in 2014, while GNOME has continued applying
 176   ;; fixes in 2016.
 177   (let ((commit "fbc306168edab63db80b904956117cbbdc514ee4"))
 178     (package
 179       (name "dia")
 180       (version (string-append "0.97.2-" (string-take commit 7)))
 181       (source (origin
 182                 (method git-fetch)
 183                 (uri (git-reference
 184                       (url "https://git.gnome.org/browse/dia")
 185                       (commit commit)))
 186                 (file-name (string-append name "-" version "-checkout"))
 187                 (sha256
 188                  (base32
 189                   "1b4bba0k8ph4cwgw8xjglss0p6n111bpd5app67lrq79mp0ad06l"))))
 190       (build-system gnu-build-system)
 191       (inputs
 192        `(("glib" ,glib "bin")
 193          ("pango" ,pango)
 194          ("gdk-pixbuf" ,gdk-pixbuf)
 195          ("gtk+" ,gtk+-2)
 196          ("libxml2" ,libxml2)
 197          ("freetype" ,freetype)
 198          ("libart-lgpl" ,libart-lgpl)))
 199       (native-inputs
 200        `(("intltool" ,intltool)
 201          ("pkg-config" ,pkg-config)
 202          ("automake" ,automake)
 203          ("autoconf" ,autoconf)
 204          ("libtool" ,libtool)
 205          ("perl" ,perl)
 206          ("python-wrapper" ,python-wrapper)))
 207       (arguments
 208        `(#:phases
 209          (modify-phases %standard-phases
 210            (add-before 'configure 'run-autogen
 211              (lambda _
 212                (system* "sh" "autogen.sh"))))))
 213       (home-page "https://wiki.gnome.org/Apps/Dia")
 214       (synopsis "Diagram creation for GNOME")
 215       (description "Dia can be used to draw different types of diagrams, and
 216 includes support for UML static structure diagrams (class diagrams), entity
 217 relationship modeling, and network diagrams.  The program supports various file
 218 formats like PNG, SVG, PDF and EPS.")
 219       (license license:gpl2+))))
 220
 221 (define-public gnome-common
 222   (package
 223     (name "gnome-common")
 224     (version "3.18.0")
 225     (source
 226      (origin
 227        (method url-fetch)
 228        (uri (string-append "mirror://gnome/sources/" name "/"
 229                            (version-major+minor version)  "/"
 230                            name "-" version ".tar.xz"))
 231        (sha256
 232         (base32
 233          "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
 234     (build-system gnu-build-system)
 235     (home-page "https://www.gnome.org/")
 236     (synopsis "Bootstrap GNOME modules built from Git")
 237     (description "gnome-common contains various files needed to bootstrap
 238 GNOME modules built from Git.  It contains a common \"autogen.sh\" script that
 239 can be used to configure a source directory checked out from Git and some
 240 commonly used macros.")
 241     (license license:gpl2+)))
 242
 243 (define-public gnome-desktop
 244   (package
 245     (name "gnome-desktop")
 246     (version "3.20.2")
 247     (source
 248      (origin
 249       (method url-fetch)
 250       (uri (string-append "mirror://gnome/sources/" name "/"
 251                           (version-major+minor version)  "/"
 252                           name "-" version ".tar.xz"))
 253       (sha256
 254        (base32
 255         "1cp2c6q1ybirfq6rqyfj5lr5vyqdizy730bfg5jqnflcmakjsb29"))))
 256     (build-system gnu-build-system)
 257     (native-inputs
 258      `(("gobject-introspection" ,gobject-introspection)
 259        ("itstool" ,itstool)
 260        ("intltool" ,intltool)
 261        ("pkg-config" ,pkg-config)
 262        ("xmllint" ,libxml2)))
 263     (propagated-inputs
 264      ;; Required by gnome-desktop-3.0.pc.
 265      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 266        ("gtk+" ,gtk+)))
 267     (inputs
 268      `(("gdk-pixbuf" ,gdk-pixbuf)
 269        ("glib" ,glib)
 270        ("iso-codes" ,iso-codes)
 271        ("libx11" ,libx11)
 272        ("libxext" ,libxext)
 273        ("libxkbfile" ,libxkbfile)
 274        ("libxrandr" ,libxrandr)
 275        ("xkeyboard-config" ,xkeyboard-config)))
 276     (home-page "https://www.gnome.org/")
 277     (synopsis
 278      "Libgnome-desktop, gnome-about, and desktop-wide documents")
 279     (description
 280      "The libgnome-desktop library provides API shared by several applications
 281 on the desktop, but that cannot live in the platform for various reasons.
 282 There is no API or ABI guarantee, although we are doing our best to provide
 283 stability.  Documentation for the API is available with gtk-doc.
 284
 285 The gnome-about program helps find which version of GNOME is installed.")
 286     ; Some bits under the LGPL.
 287     (license license:gpl2+)))
 288
 289 (define-public gnome-doc-utils
 290   (package
 291     (name "gnome-doc-utils")
 292     (version "0.20.10")
 293     (source
 294      (origin
 295       (method url-fetch)
 296       (uri (string-append "mirror://gnome/sources/" name "/"
 297                           (version-major+minor version)  "/"
 298                           name "-" version ".tar.xz"))
 299       (sha256
 300        (base32
 301         "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
 302     (build-system gnu-build-system)
 303     (native-inputs
 304      `(("intltool" ,intltool)
 305        ("docbook-xml" ,docbook-xml-4.4)
 306        ("python2-libxml2" ,python2-libxml2)
 307        ("libxml2" ,libxml2)
 308        ("libxslt" ,libxslt)
 309        ("pkg-config" ,pkg-config)
 310        ("python-2" ,python-2)))
 311     (home-page "https://wiki.gnome.org/GnomeDocUtils")
 312     (synopsis
 313      "Documentation utilities for the Gnome project")
 314     (description
 315      "Gnome-doc-utils is a collection of documentation utilities for the
 316 Gnome project.  It includes xml2po tool which makes it easier to translate
 317 and keep up to date translations of documentation.")
 318     (license license:gpl2+))) ; xslt under lgpl
 319
 320 (define-public gcr
 321   (package
 322     (name "gcr")
 323     (version "3.20.0")
 324     (source (origin
 325              (method url-fetch)
 326              (uri (string-append "mirror://gnome/sources/" name "/"
 327                                  (version-major+minor version)  "/"
 328                                  name "-" version ".tar.xz"))
 329              (sha256
 330               (base32
 331                "0ydk9dzxx6snxza7j5ps8x932hbr3x1b8hhcaqjq4w4admi2qmwh"))))
 332     (build-system gnu-build-system)
 333     (arguments
 334      '(#:tests? #f ;25 of 598 tests fail because /var/lib/dbus/machine-id does
 335                    ;not exist
 336        #:phases (modify-phases %standard-phases
 337                   (add-before
 338                    'check 'pre-check
 339                    (lambda* (#:key inputs #:allow-other-keys)
 340                      (substitute* "build/tap-driver"
 341                        (("/usr/bin/env python") (which "python"))))))))
 342     (inputs
 343      `(("dbus" ,dbus)
 344        ("gnupg" ,gnupg) ;called as a child process during tests
 345        ("libgcrypt" ,libgcrypt)))
 346     (native-inputs
 347      `(("python" ,python-2) ;for tests
 348        ("pkg-config" ,pkg-config)
 349        ("glib" ,glib "bin")
 350        ("gobject-introspection" ,gobject-introspection)
 351        ("intltool" ,intltool)
 352        ("xsltproc" ,libxslt)))
 353     ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
 354     (propagated-inputs
 355      `(("p11-kit" ,p11-kit)
 356        ("glib" ,glib)
 357        ("gtk+" ,gtk+)))
 358     (home-page "http://www.gnome.org")
 359     (synopsis "Libraries for displaying certificates and accessing key stores")
 360     (description
 361      "The GCR package contains libraries used for displaying certificates and
 362 accessing key stores.  It also provides the viewer for crypto files on the
 363 GNOME Desktop.")
 364     (license license:lgpl2.1+)))
 365
 366 (define-public libgnome-keyring
 367   (package
 368     (name "libgnome-keyring")
 369     (version "3.12.0")
 370     (source (origin
 371              (method url-fetch)
 372              (uri (string-append "mirror://gnome/sources/" name "/"
 373                                  (version-major+minor version)  "/"
 374                                  name "-" version ".tar.xz"))
 375              (sha256
 376               (base32
 377                "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
 378     (build-system gnu-build-system)
 379     (inputs
 380      `(("libgcrypt" ,libgcrypt)
 381        ("dbus" ,dbus)))
 382     (native-inputs
 383      `(("pkg-config" ,pkg-config)
 384        ("glib" ,glib "bin")
 385        ("intltool" ,intltool)))
 386     (propagated-inputs
 387      ;; Referred to in .h files and .pc.
 388      `(("glib" ,glib)))
 389     (home-page "http://www.gnome.org")
 390     (synopsis "Accessing passwords from the GNOME keyring")
 391     (description
 392      "Client library to access passwords from the GNOME keyring.")
 393
 394     ;; Though a couple of files are LGPLv2.1+.
 395     (license license:lgpl2.0+)))
 396
 397 (define-public gnome-keyring
 398   (package
 399     (name "gnome-keyring")
 400     (version "3.20.0")
 401     (source (origin
 402              (method url-fetch)
 403              (uri (string-append "mirror://gnome/sources/" name "/"
 404                                  (version-major+minor version)  "/"
 405                                  name "-" version ".tar.xz"))
 406              (sha256
 407               (base32
 408                "16gcwwcg91ipxjmiyi4c4njvnxixmv1i278p0bilc3lafk6ww5xw"))))
 409     (build-system gnu-build-system)
 410     (arguments
 411      `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
 412                    ;not exist
 413        #:configure-flags
 414        (list
 415         (string-append "--with-pkcs11-config="
 416                        (assoc-ref %outputs "out") "/share/p11-kit/modules/")
 417         (string-append "--with-pkcs11-modules="
 418                        (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
 419        #:phases
 420        (modify-phases %standard-phases
 421          (add-before
 422           'check 'pre-check
 423           (lambda* (#:key inputs #:allow-other-keys)
 424             (substitute* "build/tap-driver"
 425               (("/usr/bin/env python") (which "python")))))
 426          (add-before
 427           'configure 'fix-docbook
 428           (lambda* (#:key inputs #:allow-other-keys)
 429             (substitute* "docs/Makefile.am"
 430               (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
 431                (string-append (assoc-ref inputs "docbook-xsl")
 432                               "/xml/xsl/docbook-xsl-"
 433                               ,(package-version docbook-xsl)
 434                               "/manpages/docbook.xsl")))
 435             (setenv "XML_CATALOG_FILES"
 436                     (string-append (assoc-ref inputs "docbook-xml")
 437                                    "/xml/dtd/docbook/catalog.xml")))))))
 438     (inputs
 439      `(("libgcrypt" ,libgcrypt)
 440        ("linux-pam" ,linux-pam)
 441        ("dbus" ,dbus)
 442        ("gcr" ,gcr)))
 443     (native-inputs
 444      `(("pkg-config" ,pkg-config)
 445        ("glib" ,glib "bin")
 446        ("python" ,python-2) ;for tests
 447        ("intltool" ,intltool)
 448        ("autoconf" ,autoconf)
 449        ("automake" ,automake)
 450        ("libxslt" ,libxslt) ;for documentation
 451        ("docbook-xml" ,docbook-xml-4.2)
 452        ("docbook-xsl" ,docbook-xsl)))
 453     (home-page "http://www.gnome.org")
 454     (synopsis "Daemon to store passwords and encryption keys")
 455     (description
 456      "gnome-keyring is a program that keeps passwords and other secrets for
 457 users.  It is run as a daemon in the session, similar to ssh-agent, and other
 458 applications locate it via an environment variable or D-Bus.
 459
 460 The program can manage several keyrings, each with its own master password,
 461 and there is also a session keyring which is never stored to disk, but
 462 forgotten when the session ends.")
 463     (license license:lgpl2.1+)))
 464
 465 (define-public evince
 466   (package
 467     (name "evince")
 468     (version "3.20.1")
 469     (source (origin
 470              (method url-fetch)
 471              (uri (string-append "mirror://gnome/sources/" name "/"
 472                                  (version-major+minor version) "/"
 473                                  name "-" version ".tar.xz"))
 474              (sha256
 475               (base32
 476                "0m80s98k4i463dclpyk01fqb91cawbb6vvcz5vq2974k6qqc4ypw"))))
 477     (build-system glib-or-gtk-build-system)
 478     (arguments
 479      `(#:configure-flags '("--disable-nautilus")
 480
 481        ;; FIXME: Tests fail with:
 482        ;;   ImportError: No module named gi.repository
 483        ;; Where should that module come from?
 484        #:tests? #f
 485        #:phases
 486        (modify-phases %standard-phases
 487          (add-before 'install 'skip-gtk-update-icon-cache
 488            ;; Don't create 'icon-theme.cache'.
 489            (lambda _
 490              (substitute* "data/Makefile"
 491                (("gtk-update-icon-cache") "true"))
 492              #t)))))
 493     (inputs
 494      `(("libspectre" ,libspectre)
 495        ("djvulibre" ,djvulibre)
 496        ("ghostscript" ,ghostscript)
 497        ("poppler" ,poppler)
 498        ("libtiff" ,libtiff)
 499        ;; TODO:
 500        ;;   Add libgxps for XPS support.
 501        ;;   Build libkpathsea as a shared library for DVI support.
 502        ;; ("libkpathsea" ,texlive-bin)
 503        ("gnome-desktop" ,gnome-desktop)
 504        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 505        ("libgnome-keyring" ,libgnome-keyring)
 506        ("adwaita-icon-theme" ,adwaita-icon-theme)
 507        ("gdk-pixbuf" ,gdk-pixbuf)
 508        ("atk" ,atk)
 509        ("pango" ,pango)
 510        ("gtk+" ,gtk+)
 511        ("glib" ,glib)
 512        ("libxml2" ,libxml2)
 513        ("libsm" ,libsm)
 514        ("libice" ,libice)
 515        ("shared-mime-info" ,shared-mime-info)
 516        ("dconf" ,dconf)
 517        ("libcanberra" ,libcanberra)
 518        ("libsecret" ,libsecret)
 519        ;; For tests.
 520        ("dogtail" ,python2-dogtail)))
 521     (native-inputs
 522      `(("itstool" ,itstool)
 523        ("intltool" ,intltool)
 524        ("glib" ,glib "bin")
 525        ("pkg-config" ,pkg-config)
 526        ("xmllint" ,libxml2)))
 527     (home-page
 528      "http://www.gnome.org/projects/evince/")
 529     (synopsis "GNOME's document viewer")
 530     (description
 531      "Evince is a document viewer for multiple document formats.  It
 532 currently supports PDF, PostScript, DjVu, TIFF and DVI.  The goal
 533 of Evince is to replace the multiple document viewers that exist
 534 on the GNOME Desktop with a single simple application.")
 535     (license license:gpl2+)))
 536
 537 (define-public gsettings-desktop-schemas
 538   (package
 539     (name "gsettings-desktop-schemas")
 540     (version "3.20.0")
 541     (source
 542      (origin
 543       (method url-fetch)
 544       (uri (string-append "mirror://gnome/sources/" name "/"
 545                           (version-major+minor version)  "/"
 546                           name "-" version ".tar.xz"))
 547       (sha256
 548        (base32
 549         "1hfrqqsmqscgbnaikmyq4yq8h72554wdg13algh5bf8a7i9ip92m"))))
 550     (build-system gnu-build-system)
 551     (inputs
 552      `(("glib" ,glib)))
 553     (native-inputs
 554      `(("intltool" ,intltool)
 555        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
 556        ("gobject-introspection" ,gobject-introspection)
 557        ("pkg-config" ,pkg-config)))
 558     (home-page "https://launchpad.net/gsettings-desktop-schemas")
 559     (synopsis
 560      "GNOME settings for various desktop components")
 561     (description
 562      "Gsettings-desktop-schemas contains a collection of GSettings schemas
 563 for settings shared by various components of the GNOME desktop.")
 564     (license license:lgpl2.1+)))
 565
 566 (define-public icon-naming-utils
 567   (package
 568     (name "icon-naming-utils")
 569     (version "0.8.90")
 570     (source
 571      (origin
 572       (method url-fetch)
 573       (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
 574                           version ".tar.bz2"))
 575       (sha256
 576        (base32
 577         "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
 578     (build-system gnu-build-system)
 579     (inputs
 580      `(("perl" ,perl)
 581        ("perl-xml-simple" ,perl-xml-simple)))
 582     (arguments
 583      '(#:phases
 584        (alist-cons-after
 585         'install 'set-load-paths
 586         ;; Tell 'icon-name-mapping' where XML::Simple is.
 587         (lambda* (#:key outputs #:allow-other-keys)
 588           (let* ((out  (assoc-ref outputs "out"))
 589                  (prog (string-append out "/libexec/icon-name-mapping")))
 590             (wrap-program
 591              prog
 592              `("PERL5LIB" = ,(list (getenv "PERL5LIB"))))))
 593         %standard-phases)))
 594     (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
 595     (synopsis
 596      "Utility to implement the Freedesktop Icon Naming Specification")
 597     (description
 598      "To help with the transition to the Freedesktop Icon Naming
 599 Specification, the icon naming utility maps the icon names used by the
 600 GNOME and KDE desktops to the icon names proposed in the specification.")
 601     (license license:lgpl2.1+)))
 602
 603 (define-public desktop-file-utils
 604   (package
 605     (name "desktop-file-utils")
 606     (version "0.22")
 607     (source (origin
 608               (method url-fetch)
 609               (uri (string-append "https://www.freedesktop.org/software/" name
 610                                   "/releases/" name "-" version ".tar.xz"))
 611               (sha256
 612                (base32
 613                 "1ianvr2a69yjv4rpyv30w7yjsmnsb23crrka5ndqxycj4rkk4dc4"))))
 614     (build-system gnu-build-system)
 615     (native-inputs
 616      `(("pkg-config" ,pkg-config)))
 617     (inputs
 618      `(("glib" ,glib)))
 619     (home-page "http://www.freedesktop.org/wiki/Software/desktop-file-utils/")
 620     (synopsis "Utilities for working with desktop entries")
 621     (description
 622      "This package contains a few command line utilities for working with
 623 desktop entries:
 624
 625 desktop-file-validate: validates a desktop file and prints warnings/errors
 626                        about desktop entry specification violations.
 627
 628 desktop-file-install: installs a desktop file to the applications directory,
 629                       optionally munging it a bit in transit.
 630
 631 update-desktop-database: updates the database containing a cache of MIME types
 632                          handled by desktop files.")
 633     (license license:gpl2+)))
 634
 635 (define-public gnome-icon-theme
 636   (package
 637     (name "gnome-icon-theme")
 638     (version "3.12.0")
 639     (source
 640      (origin
 641       (method url-fetch)
 642       (uri (string-append "mirror://gnome/sources/" name "/"
 643                           (version-major+minor version)  "/"
 644                           name "-" version ".tar.xz"))
 645       (sha256
 646        (base32
 647         "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
 648     (build-system gnu-build-system)
 649     (arguments
 650      '(#:configure-flags
 651        ;; Don't create 'icon-theme.cache'.
 652        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
 653               (true      (string-append coreutils "/bin/true")))
 654          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
 655     (native-inputs
 656      `(("icon-naming-utils" ,icon-naming-utils)
 657        ("intltool" ,intltool)
 658        ("pkg-config" ,pkg-config)))
 659     (home-page "http://art.gnome.org/")
 660     (synopsis
 661      "GNOME icon theme")
 662     (description
 663      "Icons for the GNOME desktop.")
 664     (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
 665
 666 ;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
 667 (define-public adwaita-icon-theme
 668   (package (inherit gnome-icon-theme)
 669     (name "adwaita-icon-theme")
 670     (version "3.20")
 671     (source (origin
 672               (method url-fetch)
 673               (uri (string-append "mirror://gnome/sources/" name "/"
 674                                   (version-major+minor version) "/"
 675                                   name "-" version ".tar.xz"))
 676               (sha256
 677                (base32
 678                 "0ddfwwqx8s63qbqimmbb015lqsab4s0rvy1j81jdsh7k95rqh2ks"))))
 679     (native-inputs
 680      `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
 681
 682 (define-public shared-mime-info
 683   (package
 684     (name "shared-mime-info")
 685     (version "1.6")
 686     (source (origin
 687              (method url-fetch)
 688              (uri (string-append "https://freedesktop.org/~hadess/"
 689                                  "shared-mime-info-" version ".tar.xz"))
 690              (sha256
 691               (base32
 692                "0k637g047gci8g69bg4g19akylpfraxm40hd30j3i4v7cidziy5j"))))
 693     (build-system gnu-build-system)
 694     (arguments
 695      ;; The build system appears not to be parallel-safe.
 696      '(#:parallel-build? #f))
 697     (inputs
 698      `(("glib" ,glib)
 699        ("libxml2" ,libxml2)))
 700     (native-inputs
 701      `(("intltool" ,intltool)
 702        ("pkg-config" ,pkg-config)))
 703     (home-page "http://freedesktop.org/wiki/Software/shared-mime-info")
 704     (synopsis "Database of common MIME types")
 705     (description
 706      "The shared-mime-info package contains the core database of common types
 707 and the update-mime-database command used to extend it.  It requires glib2 to
 708 be installed for building the update command.  Additionally, it uses intltool
 709 for translations, though this is only a dependency for the maintainers.  This
 710 database is translated at Transifex.")
 711     (license license:gpl2+)))
 712
 713 (define-public hicolor-icon-theme
 714   (package
 715     (name "hicolor-icon-theme")
 716     (version "0.12")
 717     (source
 718      (origin
 719       (method url-fetch)
 720       (uri (string-append "https://icon-theme.freedesktop.org/releases/"
 721                           "hicolor-icon-theme-" version ".tar.gz"))
 722       (sha256
 723        (base32
 724         "0wzc7g4ldb2l8zc0x2785ck808c03i857jji942ikakyc68adp4y"))))
 725     (build-system gnu-build-system)
 726     (arguments
 727      `(#:tests? #f)) ; no check target
 728     (home-page "http://icon-theme.freedesktop.org/releases/")
 729     (synopsis
 730      "Freedesktop icon theme")
 731     (description
 732      "Freedesktop icon theme.")
 733     (license license:gpl2)))
 734
 735 (define-public libnotify
 736   (package
 737     (name "libnotify")
 738     (version "0.7.6")
 739     (source
 740      (origin
 741       (method url-fetch)
 742       (uri (string-append "mirror://gnome/sources/" name "/"
 743                           (version-major+minor version)  "/"
 744                           name "-" version ".tar.xz"))
 745       (sha256
 746        (base32
 747         "0dyq8zgjnnzcah31axnx6afb21kl7bks1gvrg4hjh3nk02j1rxhf"))))
 748     (build-system gnu-build-system)
 749     (inputs
 750      `(("gdk-pixbuf" ,gdk-pixbuf)
 751        ("glib" ,glib)
 752        ("gtk+" ,gtk+)
 753        ("libpng" ,libpng)))
 754     (native-inputs
 755       `(("pkg-config" ,pkg-config)
 756         ("glib" ,glib "bin")
 757         ("gobject-introspection" ,gobject-introspection)))
 758     (home-page "https://developer-next.gnome.org/libnotify/")
 759     (synopsis
 760      "GNOME desktop notification library")
 761     (description
 762      "Libnotify is a library that sends desktop notifications to a
 763 notification daemon, as defined in the Desktop Notifications spec.  These
 764 notifications can be used to inform the user about an event or display
 765 some form of information without getting in the user's way.")
 766     (license license:lgpl2.1+)))
 767
 768 (define-public libpeas
 769   (package
 770     (name "libpeas")
 771     (version "1.18.0")
 772     (source
 773      (origin
 774       (method url-fetch)
 775       (uri (string-append "mirror://gnome/sources/" name "/"
 776                           (version-major+minor version)  "/"
 777                           name "-" version ".tar.xz"))
 778       (sha256
 779        (base32
 780         "09jy2rwwgp0xx7cnypxl56m7zzxnj3j4v58xqjxjasf3chn88jdz"))))
 781     (build-system gnu-build-system)
 782     (inputs
 783      `(("gtk+" ,gtk+)
 784        ("glade" ,glade3)
 785        ("libxml2" ,libxml2) ; XXX: required by gladeui-2.0.pc
 786        ("python" ,python)
 787        ("python-pygobject" ,python-pygobject)))
 788     (native-inputs
 789      `(("pkg-config" ,pkg-config)
 790        ("glib:bin" ,glib "bin")
 791        ("gobject-introspection" ,gobject-introspection)
 792        ("intltool" ,intltool)))
 793     (home-page "https://wiki.gnome.org/Libpeas")
 794     (synopsis "GObject plugin system")
 795     (description
 796      "Libpeas is a gobject-based plugins engine, and is targetted at giving
 797 every application the chance to assume its own extensibility.  It also has a
 798 set of features including, but not limited to: multiple extension points; on
 799 demand (lazy) programming language support for C, Python and JS; simplicity of
 800 the API.")
 801     (license license:lgpl2.0+)))
 802
 803 (define-public gtkglext
 804   (package
 805     (name "gtkglext")
 806     (version "1.2.0")
 807     (source (origin
 808               (method url-fetch)
 809               (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
 810                                   version "/gtkglext-" version ".tar.gz"))
 811               (sha256
 812                (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
 813               (patches (search-patches
 814                         "gtkglext-disable-disable-deprecated.patch"))))
 815     (build-system gnu-build-system)
 816     (inputs `(("gtk+" ,gtk+-2)
 817               ("mesa" ,mesa)
 818               ("glu" ,glu)
 819               ("libx11" ,libx11)
 820               ("libxt" ,libxt)))
 821     (native-inputs `(("pkg-config" ,pkg-config)
 822                      ("glib" ,glib "bin")))
 823     (propagated-inputs `(("pangox-compat" ,pangox-compat)))
 824     (home-page "https://projects.gnome.org/gtkglext")
 825     (synopsis "OpenGL extension to GTK+")
 826     (description "GtkGLExt is an OpenGL extension to GTK+.  It provides
 827 additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
 828 API add-ons to make GTK+ widgets OpenGL-capable.")
 829     (license license:lgpl2.1+)))
 830
 831 (define-public glade3
 832   (package
 833     (name "glade")
 834     (version "3.20.0")
 835     (source (origin
 836               (method url-fetch)
 837               (uri (string-append "mirror://gnome/sources/" name "/"
 838                                   (version-major+minor version)  "/"
 839                                   name "-" version ".tar.xz"))
 840               (sha256
 841                (base32
 842                 "1zhqvhagy0m85p54jfiayfl0v9af7g0lj7glw8sfwh7cbp56vnc2"))))
 843     (build-system glib-or-gtk-build-system)
 844     (arguments
 845      `(#:tests? #f ; needs X, GL, and software rendering
 846        #:phases
 847        (modify-phases %standard-phases
 848          (add-before 'configure 'fix-docbook
 849            (lambda* (#:key inputs #:allow-other-keys)
 850              (substitute* "man/Makefile.in"
 851                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
 852                 (string-append (assoc-ref inputs "docbook-xsl")
 853                                "/xml/xsl/docbook-xsl-"
 854                                ,(package-version docbook-xsl)
 855                                "/manpages/docbook.xsl")))
 856              #t)))))
 857     (inputs
 858      `(("gtk+" ,gtk+)
 859        ("libxml2" ,libxml2)))
 860     (native-inputs
 861      `(("intltool" ,intltool)
 862        ("itstool" ,itstool)
 863        ("libxslt" ,libxslt) ;for xsltproc
 864        ("docbook-xml" ,docbook-xml-4.2)
 865        ("docbook-xsl" ,docbook-xsl)
 866        ("python" ,python-2)
 867        ("pkg-config" ,pkg-config)))
 868     (home-page "https://glade.gnome.org")
 869     (synopsis "GTK+ rapid application development tool")
 870     (description "Glade is a rapid application development (RAD) tool to
 871 enable quick & easy development of user interfaces for the GTK+ toolkit and
 872 the GNOME desktop environment.")
 873     (license license:lgpl2.0+)))
 874
 875 (define-public libcroco
 876   (package
 877     (name "libcroco")
 878     (version "0.6.11")
 879     (source (origin
 880               (method url-fetch)
 881               (uri (string-append "mirror://gnome/sources/" name "/"
 882                                   (version-major+minor version)  "/"
 883                                   name "-" version ".tar.xz"))
 884               (sha256
 885                (base32
 886                 "0mm0wldbi40am5qn0nv7psisbg01k42rwzjxl3gv11l5jj554aqk"))))
 887     (build-system gnu-build-system)
 888     (native-inputs
 889      `(("pkg-config" ,pkg-config)))
 890     (inputs
 891      `(("glib" ,glib)
 892        ("libxml2" ,libxml2)
 893        ("zlib" ,zlib)))
 894     (home-page "https://github.com/GNOME/libcroco")
 895     (synopsis "CSS2 parsing and manipulation library")
 896     (description
 897      "Libcroco is a standalone CSS2 parsing and manipulation library.
 898 The parser provides a low level event driven SAC-like API and a CSS object
 899 model like API.  Libcroco provides a CSS2 selection engine and an experimental
 900 XML/CSS rendering engine.")
 901
 902     ;; LGPLv2.1-only.
 903     (license license:lgpl2.1)))
 904
 905 (define-public libgsf
 906   (package
 907     (name "libgsf")
 908     (version "1.14.40")
 909     (source (origin
 910               (method url-fetch)
 911               (uri (string-append "mirror://gnome/sources/" name "/"
 912                                   (version-major+minor version)  "/"
 913                                   name "-" version ".tar.xz"))
 914               (sha256
 915                (base32
 916                 "1q2i5p9s5zw0y0502risykrzkfma7p24n3mmh244scjy9f4kh1im"))))
 917     (build-system gnu-build-system)
 918     (native-inputs
 919      `(("intltool" ,intltool)
 920        ("pkg-config" ,pkg-config)))
 921     (inputs
 922      `(("python" ,python)
 923        ("zlib" ,zlib)
 924        ("bzip2" ,bzip2)))
 925     (propagated-inputs
 926      `(("gdk-pixbuf" ,gdk-pixbuf)
 927        ("glib" ,glib)
 928        ("libxml2" ,libxml2)))
 929     (home-page "http://www.gnome.org/projects/libgsf")
 930     (synopsis "GNOME's Structured File Library")
 931     (description
 932      "Libgsf aims to provide an efficient extensible I/O abstraction for
 933 dealing with different structured file formats.")
 934
 935     ;; LGPLv2.1-only.
 936     (license license:lgpl2.1)))
 937
 938 (define-public librsvg
 939   (package
 940     (name "librsvg")
 941     (version "2.40.16")
 942     (source (origin
 943               (method url-fetch)
 944               (uri (string-append "mirror://gnome/sources/" name "/"
 945                                   (version-major+minor version)  "/"
 946                                   name "-" version ".tar.xz"))
 947               (sha256
 948                (base32
 949                 "0bpz6gsq8xi1pb5k9ax6vinph460v14znch3y5yz167s0dmwz2yl"))))
 950     (build-system gnu-build-system)
 951     (arguments
 952      `(#:phases
 953        (alist-cons-before
 954         'configure 'pre-configure
 955         (lambda* (#:key inputs #:allow-other-keys)
 956           (substitute* "gdk-pixbuf-loader/Makefile.in"
 957             ;; By default the gdk-pixbuf loader is installed under
 958             ;; gdk-pixbuf's prefix.  Work around that.
 959             (("gdk_pixbuf_moduledir = .*$")
 960              (string-append "gdk_pixbuf_moduledir = "
 961                             "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
 962                              "loaders\n"))
 963             ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
 964             (("gdk_pixbuf_cache_file = .*$")
 965              "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n")))
 966         %standard-phases)))
 967     (native-inputs
 968      `(("pkg-config" ,pkg-config)
 969        ("glib" ,glib "bin")                               ; glib-mkenums, etc.
 970        ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
 971     (inputs
 972      `(("pango" ,pango)
 973        ("libcroco" ,libcroco)
 974        ("bzip2" ,bzip2)
 975        ("libgsf" ,libgsf)
 976        ("libxml2" ,libxml2)))
 977     (propagated-inputs
 978      ;; librsvg-2.0.pc refers to all of that.
 979      `(("cairo" ,cairo)
 980        ("gdk-pixbuf" ,gdk-pixbuf)
 981        ("glib" ,glib)))
 982     (home-page "https://wiki.gnome.org/LibRsvg")
 983     (synopsis "Render SVG files using Cairo")
 984     (description
 985      "Librsvg is a C library to render SVG files using the Cairo 2D graphics
 986 library.")
 987     (license license:lgpl2.0+)))
 988
 989 (define-public libidl
 990   (package
 991     (name "libidl")
 992     (version "0.8.14")
 993     (source (origin
 994               (method url-fetch)
 995               (uri (let ((upstream-name "libIDL"))
 996                      (string-append "mirror://gnome/sources/" upstream-name "/"
 997                                     (version-major+minor version) "/"
 998                                     upstream-name "-" version ".tar.bz2")))
 999               (sha256
1000                (base32
1001                 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
1002     (build-system gnu-build-system)
1003     (inputs `(("glib" ,glib)))
1004     (native-inputs
1005      `(("pkg-config" ,pkg-config)
1006        ("flex" ,flex)
1007        ("bison" ,bison)))
1008     (home-page "http://freecode.com/projects/libidl")
1009     (synopsis "Create trees of CORBA Interface Definition Language files")
1010     (description  "Libidl is a library for creating trees of CORBA Interface
1011 Definition Language (idl) files, which is a specification for defining
1012 portable interfaces. libidl was initially written for orbit (the orb from the
1013 GNOME project, and the primary means of libidl distribution).  However, the
1014 functionality was designed to be as reusable and portable as possible.")
1015     (license license:lgpl2.0+)))
1016
1017
1018 (define-public orbit2
1019   (package
1020     (name "orbit2")
1021     (version "2.14.19")
1022     (source (origin
1023               (method url-fetch)
1024               (uri (let ((upstream-name "ORBit2"))
1025                      (string-append "mirror://gnome/sources/" upstream-name "/"
1026                                     (version-major+minor version) "/"
1027                                     upstream-name "-" version ".tar.bz2")))
1028               (sha256
1029                (base32
1030                 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
1031     (build-system gnu-build-system)
1032     (arguments
1033      `(#:configure-flags
1034        ;; The programmer kindly gives us a hook to turn off deprecation
1035        ;; warnings ...
1036        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
1037        ;; ... which they then completly ignore !!
1038        #:phases
1039        (alist-cons-before
1040         'configure 'ignore-deprecations
1041         (lambda _
1042           (substitute* "linc2/src/Makefile.in"
1043             (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS")))
1044         %standard-phases)))
1045     (inputs `(("glib" ,glib)
1046               ("libidl" ,libidl)))
1047     (native-inputs
1048      `(("pkg-config" ,pkg-config)))
1049     (home-page "https://projects.gnome.org/orbit2/")
1050     (synopsis "CORBA 2.4-compliant Object Request Broker")
1051     (description  "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
1052 featuring mature C, C++ and Python bindings.")
1053     ;; Licence notice is unclear.  The Web page simply say "GPL" without giving
1054     ;; a version.  SOME of the code files have licence notices for GPLv2+.
1055     ;; The tarball contains files of the text of GPLv2 and LGPLv2.
1056     (license license:gpl2+)))
1057
1058
1059 (define-public libbonobo
1060   (package
1061     (name "libbonobo")
1062     (version "2.32.1")
1063     (source (origin
1064               (method url-fetch)
1065               (uri (string-append "mirror://gnome/sources/" name "/"
1066                                   (version-major+minor version)
1067                                   "/" name "-" version ".tar.bz2"))
1068               (sha256
1069                (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
1070               (patches (search-patches
1071                         "libbonobo-activation-test-race.patch"))))
1072     (build-system gnu-build-system)
1073     (arguments
1074      ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
1075      `(#:configure-flags
1076        '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
1077        ;; ... which they then completly ignore !!
1078        #:phases
1079        (alist-cons-before
1080         'configure 'ignore-deprecations
1081         (lambda _
1082           (substitute* "activation-server/Makefile.in"
1083             (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS")))
1084         %standard-phases)))
1085     (inputs `(("popt" ,popt)
1086               ("libxml2" ,libxml2)))
1087     ;; The following are Required by the .pc file
1088     (propagated-inputs
1089      `(("glib" ,glib)
1090        ("orbit2" ,orbit2)))
1091     (native-inputs
1092      `(("intltool" ,intltool)
1093        ("pkg-config" ,pkg-config)
1094        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1095        ("flex" ,flex)
1096        ("bison" ,bison)))
1097     (home-page "https://developer.gnome.org/libbonobo/")
1098     (synopsis "Framework for creating reusable components for use in GNOME applications")
1099     (description "Bonobo is a framework for creating reusable components for
1100 use in GNOME applications, built on top of CORBA.")
1101     ;; Licence not explicitly stated.  Source files contain no licence notices.
1102     ;; Tarball contains text of both GPLv2 and LGPLv2
1103     ;; GPLv2 covers both conditions
1104     (license license:gpl2+)))
1105
1106
1107 (define-public gconf
1108   (package
1109     (name "gconf")
1110     (version "3.2.6")
1111     (source (origin
1112               (method url-fetch)
1113               (uri
1114                (let ((upstream-name "GConf"))
1115                  (string-append "mirror://gnome/sources/" upstream-name "/"
1116                                 (version-major+minor version) "/"
1117                                 upstream-name "-" version ".tar.xz")))
1118               (sha256
1119                (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
1120     (build-system gnu-build-system)
1121     (inputs `(("dbus-glib" ,dbus-glib)
1122               ("libxml2" ,libxml2)))
1123     (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
1124                          ("orbit2" ,orbit2)))
1125     (native-inputs
1126      `(("intltool" ,intltool)
1127        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1128        ("pkg-config" ,pkg-config)))
1129     (home-page "https://projects.gnome.org/gconf/")
1130     (synopsis "Store application preferences")
1131     (description "Gconf is a system for storing application preferences.  It
1132 is intended for user preferences; not arbitrary data storage.")
1133     (license license:lgpl2.0+)))
1134
1135
1136 (define-public gnome-mime-data
1137   (package
1138     (name "gnome-mime-data")
1139     (version "2.18.0")
1140     (source (origin
1141               (method url-fetch)
1142               (uri (string-append "mirror://gnome/sources/" name "/"
1143                                   (version-major+minor version)  "/"
1144                                   name "-" version ".tar.bz2"))
1145               (sha256
1146                (base32
1147                 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
1148     (build-system gnu-build-system)
1149     (native-inputs
1150      `(("perl" ,perl)
1151        ("intltool" ,intltool)))
1152     (home-page "http://www.gnome.org")
1153     (synopsis "Base MIME and Application database for GNOME")
1154     (description  "GNOME Mime Data is a module which contains the base MIME
1155 and Application database for GNOME.  The data stored by this module is
1156 designed to be accessed through the MIME functions in GnomeVFS.")
1157     (license license:gpl2+)))
1158
1159
1160 (define-public gnome-vfs
1161   (package
1162     (name "gnome-vfs")
1163     (version "2.24.4")
1164     (source (origin
1165               (method url-fetch)
1166               (uri (string-append "mirror://gnome/sources/" name "/"
1167                                   (version-major+minor version)  "/"
1168                                   name "-" version ".tar.bz2"))
1169               (sha256
1170                (base32
1171                 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
1172     (build-system gnu-build-system)
1173     (arguments
1174      `(#:phases
1175        (alist-cons-before
1176         'configure 'ignore-deprecations
1177         (lambda _
1178           (substitute* '("libgnomevfs/Makefile.in"
1179                          "daemon/Makefile.in")
1180             (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
1181           #t)
1182         (alist-cons-before
1183          'configure 'patch-test-async-cancel-to-never-fail
1184          (lambda _
1185            (substitute* "test/test-async-cancel.c"
1186              (("EXIT_FAILURE") "77")))
1187          %standard-phases))))
1188     (inputs `(("libxml2" ,libxml2)
1189               ("dbus-glib" ,dbus-glib)
1190               ("gconf" ,gconf)
1191               ("gnome-mime-data" ,gnome-mime-data)
1192               ("zlib" ,zlib)))
1193     (native-inputs
1194      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
1195        ("intltool" ,intltool)
1196        ("pkg-config" ,pkg-config)))
1197     (home-page "https://developer.gnome.org/gnome-vfs/")
1198     (synopsis "Access files and folders in GNOME applications")
1199     (description
1200      "GnomeVFS is the core library used to access files and folders in GNOME
1201 applications.  It provides a file system abstraction which allows applications
1202 to access local and remote files with a single consistent API.")
1203     (license license:lgpl2.0+)))
1204
1205
1206
1207 (define-public libgnome
1208   (package
1209     (name "libgnome")
1210     (version "2.32.1")
1211     (source (origin
1212               (method url-fetch)
1213               (uri (string-append "mirror://gnome/sources/" name "/"
1214                                   (version-major+minor version)  "/"
1215                                   name "-" version ".tar.bz2"))
1216               (sha256
1217                (base32
1218                 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))))
1219     (build-system gnu-build-system)
1220     (arguments
1221      `(#:phases
1222        (alist-cons-before
1223         'configure 'enable-deprecated
1224         (lambda _
1225           (substitute* "libgnome/Makefile.in"
1226             (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS")))
1227         %standard-phases)))
1228     (inputs `(("libxml2" ,libxml2)))
1229     (native-inputs
1230      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
1231        ("intltool" ,intltool)
1232        ("pkg-config" ,pkg-config)))
1233     ;; The following are listed as Required in the .pc file
1234     ;; (except for libcanberra -- which seems to be oversight on the part
1235     ;; of the upstream developers -- anything that links against libgnome,
1236     ;; must also link against libcanberra
1237     (propagated-inputs
1238      `(("libcanberra" ,libcanberra)
1239        ("libbonobo" ,libbonobo)
1240        ("gconf" ,gconf)
1241        ("gnome-vfs" ,gnome-vfs)
1242        ("popt" ,popt)))                       ;gnome-program.h includes popt.h
1243     (home-page "https://developer.gnome.org/libgnome/")
1244     (synopsis "Useful routines for building applications")
1245     (description  "The libgnome library provides a number of useful routines
1246 for building modern applications, including session management, activation of
1247 files and URIs, and displaying help.")
1248     (license license:lgpl2.0+)))
1249
1250
1251 (define-public libart-lgpl
1252   (package
1253     (name "libart-lgpl")
1254     (version "2.3.21")
1255     (source (origin
1256               (method url-fetch)
1257               (uri (let ((upstream-name "libart_lgpl"))
1258                      (string-append "mirror://gnome/sources/" upstream-name "/"
1259                                     (version-major+minor version) "/"
1260                                     upstream-name "-" version ".tar.bz2")))
1261               (sha256
1262                (base32
1263                 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
1264     (build-system gnu-build-system)
1265     (native-inputs
1266      `(("pkg-config" ,pkg-config)))
1267     (home-page "https://people.gnome.org/~mathieu/libart")
1268     (synopsis "2D drawing library")
1269     (description  "Libart is a 2D drawing library intended as a
1270 high-quality vector-based 2D library with antialiasing and alpha composition.")
1271     (license license:lgpl2.0+)))
1272
1273
1274
1275 (define-public libgnomecanvas
1276   (package
1277     (name "libgnomecanvas")
1278     (version "2.30.3")
1279     (source (origin
1280               (method url-fetch)
1281               (uri (string-append "mirror://gnome/sources/" name "/"
1282                                   (version-major+minor version)  "/"
1283                                   name "-" version ".tar.gz"))
1284               (sha256
1285                (base32
1286                 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
1287     (build-system gnu-build-system)
1288     ;; Mentioned as Required in the .pc file
1289     (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
1290                          ("gtk+" ,gtk+-2)))
1291     (native-inputs
1292      `(("intltool" ,intltool)
1293        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1294        ("pkg-config" ,pkg-config)))
1295     (home-page "https://developer.gnome.org/libgnomecanvas/")
1296     (synopsis "Flexible widget for creating interactive structured graphics")
1297     (description  "The GnomeCanvas widget provides a flexible widget for
1298 creating interactive structured graphics.")
1299     (license license:lgpl2.0+)))
1300
1301 (define-public libgnomecanvasmm
1302   (package
1303     (name "libgnomecanvasmm")
1304     (version "2.26.0")
1305     (source (origin
1306               (method url-fetch)
1307               (uri (string-append "mirror://gnome/sources/" name "/"
1308                                   (version-major+minor version)  "/"
1309                                   name "-" version ".tar.bz2"))
1310               (sha256
1311                (base32
1312                 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
1313     (build-system gnu-build-system)
1314     (arguments
1315      '(#:configure-flags '("CXXFLAGS=-std=c++11"))) ; required by gtkmm
1316     (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
1317     (native-inputs
1318      `(("gtkmm-2" ,gtkmm-2)
1319        ("pkg-config" ,pkg-config)))
1320     (home-page "http://gtkmm.org")
1321     (synopsis "C++ bindings to the GNOME Canvas library")
1322     (description "C++ bindings to the GNOME Canvas library.")
1323     (license license:lgpl2.0+)))
1324
1325 (define-public libgnomeui
1326   (package
1327     (name "libgnomeui")
1328     (version "2.24.5")
1329     (source (origin
1330               (method url-fetch)
1331               (uri (string-append "mirror://gnome/sources/" name "/"
1332                                   (version-major+minor version)  "/"
1333                                   name "-" version ".tar.bz2"))
1334               (sha256
1335                (base32
1336                 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
1337     (build-system gnu-build-system)
1338     ;; Mentioned as Required in the .pc file
1339     (propagated-inputs `(("libbonoboui" ,libbonoboui)
1340                          ("libgnome" ,libgnome)
1341                          ("libgnomecanvas" ,libgnomecanvas)
1342                          ("libgnome-keyring" ,libgnome-keyring)))
1343     (inputs `(("libjpeg" ,libjpeg)
1344               ("popt" ,popt)
1345               ("libbonobo" ,libbonobo)
1346               ("libxml2" ,libxml2)
1347               ("libglade" ,libglade)))
1348     (native-inputs
1349      `(("glib" ,glib "bin")             ; for glib-mkenums, etc.
1350        ("intltool" ,intltool)
1351        ("pkg-config" ,pkg-config)))
1352     (home-page "https://developer.gnome.org/libgnomeui/")
1353     (synopsis "Additional widgets for applications")
1354     (description "The libgnomeui library provides additional widgets for
1355 applications.  Many of the widgets from libgnomeui have already been
1356 ported to GTK+.")
1357     (license license:lgpl2.0+)))
1358
1359 (define-public libglade
1360   (package
1361     (name "libglade")
1362     (version "2.6.4")
1363     (source (origin
1364               (method url-fetch)
1365               (uri (string-append "mirror://gnome/sources/" name "/"
1366                                   (version-major+minor version)  "/"
1367                                   name "-" version ".tar.bz2"))
1368               (sha256
1369                (base32
1370                 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
1371     (build-system gnu-build-system)
1372     (inputs
1373      `(("python" ,python))) ;; needed for the optional libglade-convert program
1374     (propagated-inputs
1375      `(("gtk+-2" ,gtk+-2)
1376        ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
1377     (native-inputs
1378      `(("pkg-config" ,pkg-config)))
1379     (home-page "https://developer.gnome.org/libglade")
1380     (synopsis "Load glade interfaces and access the glade built widgets")
1381     (description "Libglade is a library that provides interfaces for loading
1382 graphical interfaces described in glade files and for accessing the
1383 widgets built in the loading process.")
1384     (license license:gpl2+))) ; This is correct.  GPL not LGPL
1385
1386 (define-public libgnomeprint
1387   ;; This library has been deprecated since 2006; see
1388   ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
1389   (package
1390     (name "libgnomeprint")
1391     (version "2.8.2")
1392     (source (origin
1393               (method url-fetch)
1394               (uri (string-append "mirror://gnome/sources/" name "/"
1395                                   (version-major+minor version)  "/"
1396                                   name "-" version ".tar.bz2"))
1397               (sha256
1398                (base32
1399                 "129ka3nn8gx9dlfry17ib79azxk45wzfv5rgqzw6dwx2b5ns8phm"))))
1400     (build-system gnu-build-system)
1401     (inputs
1402      `(("popt" ,popt)
1403        ("libart-lgpl" ,libart-lgpl)
1404        ("gtk+" ,gtk+-2)
1405        ("libxml2" ,libxml2)))
1406     (native-inputs
1407      `(("intltool" ,intltool)
1408        ("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1409        ("pkg-config" ,pkg-config)))
1410     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
1411     (synopsis "Printing framework for GNOME")
1412     (description
1413      "GNOME-print was a printing framework for GNOME.  It has been deprecated
1414 since ca. 2006, when GTK+ itself incorporated printing support.")
1415     (license license:lgpl2.0+)))
1416
1417
1418 (define-public libgnomeprintui
1419   ;; Deprecated; see libgnomeprint.
1420   (package
1421     (name "libgnomeprintui")
1422     (version "2.8.2")
1423     (source (origin
1424               (method url-fetch)
1425               (uri (string-append "mirror://gnome/sources/" name "/"
1426                                   (version-major+minor version)  "/"
1427                                   name "-" version ".tar.bz2"))
1428               (sha256
1429                (base32
1430                 "1ivipk7r61rg90p9kp889j28xlyyj6466ypvwa4jvnrcllnaajsw"))))
1431     (build-system gnu-build-system)
1432     ;; Mentioned as Required in the .pc file
1433     (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
1434     (inputs `(("gtk+" ,gtk+-2)
1435               ("glib" ,glib)
1436               ("gnome-icon-theme" ,gnome-icon-theme)
1437               ("libgnomecanvas" ,libgnomecanvas)
1438               ("libxml2" ,libxml2)))
1439     (native-inputs
1440      `(("intltool" ,intltool)
1441        ("pkg-config" ,pkg-config)))
1442     (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
1443     (synopsis "Printing framework for GNOME")
1444     (description (package-description libgnomeprint))
1445     (license license:lgpl2.0+)))
1446
1447 (define-public libbonoboui
1448   (package
1449     (name "libbonoboui")
1450     (version "2.24.5")
1451     (source (origin
1452               (method url-fetch)
1453               (uri (string-append "mirror://gnome/sources/" name "/"
1454                                   (version-major+minor version)  "/"
1455                                   name "-" version ".tar.bz2"))
1456               (sha256
1457                (base32
1458                 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
1459     (build-system gnu-build-system)
1460     (arguments
1461      `(#:phases
1462        (alist-cons-before
1463         'check 'start-xserver
1464         (lambda* (#:key inputs #:allow-other-keys)
1465           (let ((xorg-server (assoc-ref inputs "xorg-server"))
1466                 (disp ":1"))
1467
1468             (setenv "HOME" (getcwd))
1469             (setenv "DISPLAY" disp)
1470             ;; There must be a running X server and make check doesn't start one.
1471             ;; Therefore we must do it.
1472             (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))
1473         %standard-phases)))
1474     ;; Mentioned as Required by the .pc file
1475     (propagated-inputs `(("libxml2" ,libxml2)))
1476     (inputs
1477      `(("popt" ,popt)
1478        ("pangox-compat" ,pangox-compat)
1479        ("libgnome" ,libgnome)
1480        ("libgnomecanvas" ,libgnomecanvas)
1481        ("libglade" ,libglade)))
1482     (native-inputs
1483      `(("glib" ,glib "bin")             ; for glib-genmarshal, etc.
1484        ("intltool" ,intltool)
1485        ("xorg-server" ,xorg-server) ; For running the tests
1486        ("pkg-config" ,pkg-config)))
1487     (home-page "https://developer.gnome.org/libbonoboui/")
1488     (synopsis "Some user interface controls using Bonobo")
1489     (description  "The Bonobo UI library provides a number of user interface
1490 controls using the Bonobo component framework.")
1491     (license license:lgpl2.0+)))
1492
1493 (define-public libwnck
1494   (package
1495     (name "libwnck")
1496     (version "3.20.1")
1497     (source (origin
1498               (method url-fetch)
1499               (uri (string-append "mirror://gnome/sources/" name "/"
1500                                   (version-major+minor version) "/"
1501                                   name "-" version ".tar.xz"))
1502               (sha256
1503                (base32 "0wms3hli6y0b9l3cszq6maqi6fyy6kss9gryvzgmhw27phb3gc0w"))))
1504     (build-system gnu-build-system)
1505     (native-inputs
1506      `(("pkg-config" ,pkg-config)
1507        ("intltool" ,intltool)))
1508     (propagated-inputs
1509      `(("gtk+" ,gtk+)
1510        ("libxres" ,libxres)
1511        ("startup-notification" ,startup-notification)))
1512     (home-page "https://developer.gnome.org/libwnck/")
1513     (synopsis "Window Navigator Construction Kit")
1514     (description
1515      "Libwnck is the Window Navigator Construction Kit, a library for use in
1516 writing pagers, tasklists, and more generally applications that are dealing
1517 with window management.  It tries hard to respect the Extended Window Manager
1518 Hints specification (EWMH).")
1519     (license license:lgpl2.0+)))
1520
1521 ;; stable version for gtk2, required by xfwm4.
1522 (define-public libwnck-2
1523   (package (inherit libwnck)
1524     (name "libwnck")
1525     (version "2.30.7")
1526     (source (origin
1527               (method url-fetch)
1528               (uri (string-append "mirror://gnome/sources/" name "/"
1529                                   (version-major+minor version) "/"
1530                                   name "-" version ".tar.xz"))
1531               (sha256
1532                (base32
1533                 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
1534     (propagated-inputs
1535      `(("gtk+" ,gtk+-2)
1536        ("libxres" ,libxres)
1537        ("startup-notification" ,startup-notification)))))
1538
1539 (define-public goffice
1540   (package
1541     (name "goffice")
1542     (version "0.10.32")
1543     (source (origin
1544               (method url-fetch)
1545               (uri (string-append "mirror://gnome/sources/" name "/"
1546                                   (version-major+minor version)  "/"
1547                                   name "-" version ".tar.xz"))
1548               (sha256
1549                (base32 "1hvs5558x98yzm43dc3f93v596x45lfmv1vkp4jjgfagynlpvcq2"))))
1550     (build-system gnu-build-system)
1551     (outputs '("out"
1552                "doc"))                            ;4.1 MiB of gtk-doc
1553     (arguments
1554      '(#:configure-flags (list (string-append "--with-html-dir="
1555                                               (assoc-ref %outputs "doc")
1556                                               "/share/gtk-doc/html"))))
1557     (inputs
1558      `(("gtk+" ,gtk+)
1559        ("libgsf" ,libgsf)
1560        ("librsvg" ,librsvg)
1561        ("libxslt" ,libxslt)
1562        ("libxml2" ,libxml2)))
1563     (native-inputs
1564      `(("intltool" ,intltool)
1565        ("glib" ,glib "bin")
1566        ("pkg-config" ,pkg-config)))
1567     (home-page "https://developer.gnome.org/goffice/")
1568     (synopsis "Document-centric objects and utilities")
1569     (description "A GLib/GTK+ set of document-centric objects and utilities.")
1570     (license
1571      ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
1572      ;; Note: NOT LGPL
1573      (list license:gpl2 license:gpl3))))
1574
1575 (define-public goffice-0.8
1576   (package (inherit goffice)
1577     (version "0.8.17")
1578     (source (origin
1579               (method url-fetch)
1580               (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
1581                                   (version-major+minor version)  "/"
1582                                   (package-name goffice) "-" version ".tar.xz"))
1583               (sha256
1584                (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
1585     (arguments
1586      `(#:phases
1587        (alist-cons-after
1588         'unpack 'fix-pcre-check
1589         (lambda _
1590           ;; Only glib.h can be included directly.  See
1591           ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
1592           (substitute* "configure"
1593             (("glib/gregex\\.h") "glib.h")) #t)
1594         %standard-phases)
1595
1596        ,@(package-arguments goffice)))
1597     (propagated-inputs
1598      ;; libgoffice-0.8.pc mentions libgsf-1
1599      `(("libgsf" ,libgsf)))
1600     (inputs
1601      `(("gtk" ,gtk+-2)
1602        ,@(alist-delete "gtk" (package-inputs goffice))))))
1603
1604 (define-public gnumeric
1605   (package
1606     (name "gnumeric")
1607     (version "1.12.32")
1608     (source (origin
1609               (method url-fetch)
1610               (uri (string-append "mirror://gnome/sources/" name "/"
1611                                   (version-major+minor version)  "/"
1612                                   name "-" version ".tar.xz"))
1613               (sha256
1614                (base32
1615                 "1s3dxvdwzmppsp2dfg90rccilf4hknhwjdy7lazr9sys58zchyx0"))))
1616     (build-system gnu-build-system)
1617     (arguments
1618      `(;; The gnumeric developers don't worry much about failing tests.
1619        ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
1620        #:tests? #f
1621        #:phases
1622        (modify-phases %standard-phases
1623          (add-before
1624           'configure 'pre-conf
1625            (lambda* (#:key outputs #:allow-other-keys)
1626              ;; Make install tries to write into the directory of goffice
1627              ;; I am informed that this only affects the possibility to embed a
1628              ;; spreadsheet inside an Abiword document.   So presumably when we
1629              ;; package Abiword we'll have to refer it to this directory.
1630              (substitute* "configure"
1631                (("^GOFFICE_PLUGINS_DIR=.*")
1632                 (string-append "GOFFICE_PLUGINS_DIR="
1633                                (assoc-ref outputs "out")
1634                                "/goffice/plugins"))))))))
1635     (inputs
1636      `(("glib" ,glib)
1637        ("gtk+" ,gtk+)
1638        ("goffice" ,goffice)
1639        ("libgsf" ,libgsf)
1640        ("librsvg" ,librsvg)
1641        ("libxml2" ,libxml2)
1642        ("libxslt" ,libxslt)
1643        ("python" ,python-2)
1644        ("python2-pygobject" ,python2-pygobject)
1645        ("zlib" ,zlib)))
1646     (native-inputs
1647      `(("bison" ,bison)
1648        ("intltool" ,intltool)
1649        ("glib:bin" ,glib "bin")
1650        ("pkg-config" ,pkg-config)))
1651     (home-page "http://www.gnumeric.org")
1652     (synopsis "Spreadsheet application")
1653     (description
1654      "GNUmeric is a GNU spreadsheet application, running under GNOME.  It is
1655 interoperable with other spreadsheet applications.  It has a vast array of
1656 features beyond typical spreadsheet functionality, such as support for linear
1657 and non-linear solvers, statistical analysis, and telecommunication
1658 engineering.")
1659     (license
1660     ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
1661      (list license:gpl2 license:gpl3))))
1662
1663 (define-public gnome-themes-standard
1664   (package
1665     (name "gnome-themes-standard")
1666     (version "3.20.2")
1667     (source
1668      (origin
1669        (method url-fetch)
1670        (uri (string-append "mirror://gnome/sources/" name "/"
1671                            (version-major+minor version) "/" name "-"
1672                            version ".tar.xz"))
1673        (sha256
1674         (base32
1675          "05br99z67f82i18nljpxnwssfnaqp7mph61w3hq0i44z5i5rq3cx"))))
1676     (build-system gnu-build-system)
1677     (arguments
1678      '(#:configure-flags
1679        ;; Don't create 'icon-theme.cache'.
1680        (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
1681               (true      (string-append coreutils "/bin/true")))
1682          (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
1683     (inputs
1684      `(("gtk+" ,gtk+)
1685        ("gtk+-2" ,gtk+-2)
1686        ("librsvg" ,librsvg)
1687        ("libxml2" ,libxml2)
1688        ("glib" ,glib)))
1689     (native-inputs
1690      `(("intltool" ,intltool)
1691        ("glib:bin" ,glib "bin")
1692        ("pkg-config" ,pkg-config)))
1693     (home-page "https://launchpad.net/gnome-themes-standard")
1694     (synopsis "Default GNOME 3 themes")
1695     (description
1696      "The default GNOME 3 themes (Adwaita and some accessibility themes).")
1697     (license license:lgpl2.1+)))
1698
1699 (define-public seahorse
1700   (package
1701     (name "seahorse")
1702     (version "3.20.0")
1703     (source
1704      (origin
1705        (method url-fetch)
1706        (uri (string-append "mirror://gnome/sources/" name "/"
1707                            (version-major+minor version) "/" name "-"
1708                            version ".tar.xz"))
1709        (sha256
1710         (base32
1711          "1py6fj19kb8aaxvg6yrpd0876azc2zjvis98aqz37a2lxmhp9c72"))))
1712     (build-system glib-or-gtk-build-system)
1713     (inputs
1714      `(("gtk+" ,gtk+)
1715        ("gcr" ,gcr)
1716        ("gnupg" ,gnupg)
1717        ("gpgme" ,gpgme)
1718        ("openldap" ,openldap)
1719        ("openssh" ,openssh)
1720        ("libsecret" ,libsecret)
1721        ("libsoup" ,libsoup)))
1722     (native-inputs
1723      `(("intltool" ,intltool)
1724        ("glib:bin" ,glib "bin")
1725        ("itstool" ,itstool)
1726        ("pkg-config" ,pkg-config)
1727        ("xmllint" ,libxml2)))
1728     (home-page "https://launchpad.net/gnome-themes-standard")
1729     (synopsis "Manage encryption keys and passwords in the GNOME keyring")
1730     (description
1731      "Seahorse is a GNOME application for managing encryption keys and
1732 passwords in the GNOME keyring.")
1733     (license license:gpl2+)))
1734
1735 (define-public vala
1736   (package
1737     (name "vala")
1738     (version "0.32.1")
1739     (source (origin
1740               (method url-fetch)
1741               (uri (string-append "mirror://gnome/sources/" name "/"
1742                                   (version-major+minor version) "/"
1743                                   name "-" version ".tar.xz"))
1744               (sha256
1745                (base32
1746                 "1ab1l44abf9fj1wznzq5956431ia136rl5049cggnk5393jlf3fx"))))
1747     (build-system gnu-build-system)
1748     (arguments
1749      '(#:phases
1750        (modify-phases %standard-phases
1751          (add-before 'check 'pre-check
1752                      (lambda _
1753                        (setenv "CC" "gcc")
1754                        ;; For missing '/etc/machine-id'.
1755                        (setenv "DBUS_FATAL_WARNINGS" "0")
1756                        #t)))
1757        ;; Build the Vala API generator
1758        #:configure-flags '("--enable-vapigen")))
1759     (native-inputs
1760      `(("pkg-config" ,pkg-config)
1761        ("flex" ,flex)
1762        ("bison" ,bison)
1763        ("xsltproc" ,libxslt)
1764        ("dbus" ,dbus)                                     ; for dbus tests
1765        ("gobject-introspection" ,gobject-introspection))) ; for gir tests
1766     (propagated-inputs
1767      `(("glib" ,glib))) ; required by libvala-0.26.pc
1768     (home-page "http://live.gnome.org/Vala/")
1769     (synopsis "Compiler for the GObject type system")
1770     (description
1771      "Vala is a programming language that aims to bring modern programming
1772 language features to GNOME developers without imposing any additional runtime
1773 requirements and without using a different ABI compared to applications and
1774 libraries written in C.")
1775     (license license:lgpl2.1+)))
1776
1777 (define-public vte
1778   (package
1779     (name "vte")
1780     (version "0.44.2")
1781     (source (origin
1782               (method url-fetch)
1783               (uri (string-append "mirror://gnome/sources/" name "/"
1784                                   (version-major+minor version) "/"
1785                                   name "-" version ".tar.xz"))
1786               (sha256
1787                (base32
1788                 "0j899ccrkzh7208w29c835m1yms0cas5cxkck8x6l4xv2i45ksm1"))))
1789     (build-system gnu-build-system)
1790     (arguments
1791      ;; XXX: fails to compile tests with the default flags.
1792      ;; vteconv.cc:774:40:
1793      ;;    error: missing sentinel in function call [-Werror=format=]
1794      ;;    g_test_init (&argc, &argv, NULL);
1795      ;;
1796      ;; cc1plus: some warnings being treated as errors
1797      '(#:configure-flags '("CXXFLAGS=-Wformat=0")))
1798     (native-inputs
1799      `(("pkg-config" ,pkg-config)
1800        ("intltool" ,intltool)
1801        ("vala" ,vala)
1802        ("gobject-introspection" ,gobject-introspection)
1803        ("glib" ,glib "bin") ; for glib-genmarshal, etc.
1804        ("xmllint" ,libxml2)))
1805     (propagated-inputs
1806      `(("gtk+" ,gtk+)                             ;required by vte-2.91.pc
1807        ("gnutls" ,gnutls)))                       ;ditto
1808     (home-page "http://www.gnome.org/")
1809     (synopsis "Virtual Terminal Emulator")
1810     (description
1811      "VTE is a library (libvte) implementing a terminal emulator widget for
1812 GTK+, and a minimal sample application (vte) using that.  Vte is mainly used in
1813 gnome-terminal, but can also be used to embed a console/terminal in games,
1814 editors, IDEs, etc.")
1815     (license license:lgpl2.1+)))
1816
1817 (define-public vte-ng
1818   (package
1819     (inherit vte)
1820     (name "vte-ng")
1821     (version "0.44.1.b")
1822     (native-inputs
1823      `(("gtk-doc" ,gtk-doc)
1824        ("gperf" ,gperf)
1825        ("autoconf" ,autoconf)
1826        ("automake" ,automake)
1827        ("libtool" ,libtool)
1828        ,@(package-native-inputs vte)))
1829     (source (origin
1830               (method url-fetch)
1831               (uri (string-append "https://github.com/thestinger/"
1832                                   name "/archive/" version ".tar.gz"))
1833               (file-name (string-append name "-" version ".tar.gz"))
1834               (sha256
1835                (base32
1836                 "1mhz4i1qkdlrs49vgm7nsrb60lry9v6wsgwsmji7fln1nyrp1pag"))))
1837     (arguments
1838       `(#:configure-flags '("CXXFLAGS=-Wformat=0")
1839         #:phases (modify-phases %standard-phases
1840                   (add-after 'unpack 'bootstrap
1841                     (lambda _
1842                       (setenv "NOCONFIGURE" "true")
1843                       (zero? (system* "sh" "autogen.sh")))))))
1844   (synopsis "Enhanced VTE terminal widget")
1845   (description
1846    "VTE is a library (libvte) implementing a terminal emulator widget for
1847 GTK+, this fork provides additional functions exposed for keyboard text
1848 selection and URL hints.")))
1849
1850 ;; provides vte 2.90, required for some terminal emulators
1851 ;; tilda bug: https://github.com/lanoxx/tilda/issues/94
1852 ;; pantheon-terminal bug: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=788021
1853 ;; roxterm bug: http://sourceforge.net/p/roxterm/bugs/107/
1854 ;; pantheon-terminal, roxterm are not currently packaged
1855 (define-public vte-0.36
1856   (package (inherit vte)
1857     (name "vte")
1858     (version "0.36.5")
1859     (source (origin
1860               (method url-fetch)
1861               (uri (string-append "mirror://gnome/sources/" name "/"
1862                                   (version-major+minor version) "/"
1863                                   name "-" version ".tar.xz"))
1864               (sha256
1865                (base32
1866                 "1psfnqsmxx4qzc55qwvb8jai824ix4pqcdqhgxk0g2zh82bcxhn2"))))
1867     (propagated-inputs
1868      `(("gtk" ,gtk+)
1869        ("ncurses" ,ncurses)))))
1870
1871 ;; stable version for gtk2, required by xfce4-terminal.
1872 (define-public vte/gtk+-2
1873   (package (inherit vte)
1874     (name "vte")
1875     (version "0.28.2")
1876     (source (origin
1877               (method url-fetch)
1878               (uri (string-append "mirror://gnome/sources/" name "/"
1879                                   (version-major+minor version) "/"
1880                                   name "-" version ".tar.xz"))
1881               (sha256
1882                (base32
1883                 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
1884               (patches (search-patches
1885                          "vte-CVE-2012-2738-pt1.patch"
1886                          "vte-CVE-2012-2738-pt2.patch"))))
1887     (arguments
1888      '(#:configure-flags '("--disable-python")))
1889     (native-inputs
1890      `(("pkg-config" ,pkg-config)
1891        ("intltool" ,intltool)
1892        ("glib" ,glib "bin")))   ; for glib-genmarshal, etc.
1893     (propagated-inputs
1894      `(("gtk+" ,gtk+-2)         ; required by libvte.pc
1895        ("ncurses" ,ncurses))))) ; required by libvte.la
1896
1897 (define-public dconf
1898   (package
1899     (name "dconf")
1900     (version "0.26.0")
1901     (source (origin
1902               (method url-fetch)
1903               (uri (string-append
1904                     "mirror://gnome/sources/" name "/"
1905                     (version-major+minor version) "/"
1906                     name "-" version ".tar.xz"))
1907               (sha256
1908                (base32
1909                 "1jaqsr1r0grpd25rbsc2v3vb0sc51lia9w31wlqswgqsncp2k0w6"))))
1910     (build-system glib-or-gtk-build-system)
1911     (inputs
1912      `(("gtk+" ,gtk+)
1913        ("glib" ,glib)
1914        ("dbus" ,dbus)
1915        ("libxml2" ,libxml2)))
1916     (native-inputs
1917      `(("libxslt" ,libxslt)
1918        ("docbook-xml" ,docbook-xml-4.2)
1919        ("docbook-xsl" ,docbook-xsl)
1920        ("intltool" ,intltool)
1921        ("pkg-config" ,pkg-config)))
1922     (arguments
1923      `(#:tests? #f ; To contact dbus it needs to load /var/lib/dbus/machine-id
1924                    ; or /etc/machine-id.
1925        #:configure-flags
1926        ;; Set the correct RUNPATH in binaries.
1927        (list (string-append "LDFLAGS=-Wl,-rpath="
1928                             (assoc-ref %outputs "out") "/lib")
1929              "--disable-gtk-doc-html") ; FIXME: requires gtk-doc
1930        #:phases
1931        (alist-cons-before
1932         'configure 'fix-docbook
1933         (lambda* (#:key inputs #:allow-other-keys)
1934           (substitute* "docs/Makefile.in"
1935             (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1936              (string-append (assoc-ref inputs "docbook-xsl")
1937                             "/xml/xsl/docbook-xsl-"
1938                             ,(package-version docbook-xsl)
1939                             "/manpages/docbook.xsl")))
1940           (setenv "XML_CATALOG_FILES"
1941                   (string-append (assoc-ref inputs "docbook-xml")
1942                                  "/xml/dtd/docbook/catalog.xml")))
1943         %standard-phases)))
1944     (home-page "https://developer.gnome.org/dconf")
1945     (synopsis "Low-level GNOME configuration system")
1946     (description "Dconf is a low-level configuration system.  Its main purpose
1947 is to provide a backend to GSettings on platforms that don't already have
1948 configuration storage systems.")
1949     (license license:lgpl2.1)))
1950
1951 (define-public json-glib
1952   (package
1953     (name "json-glib")
1954     (version "1.2.2")
1955     (source (origin
1956               (method url-fetch)
1957               (uri (string-append "mirror://gnome/sources/" name "/"
1958                                   (version-major+minor version) "/"
1959                                   name "-" version ".tar.xz"))
1960               (sha256
1961                (base32
1962                 "08d6449sgnwfh92x8rhwsm03g8frv0mvp3s4wl3cskw25asql4pa"))
1963               (modules '((guix build utils)))
1964               (snippet
1965                ;; Don't duplicate test names.
1966                ;; <https://bugzilla.gnome.org/show_bug.cgi?id=755977>.
1967                '(substitute* "json-glib/tests/builder.c"
1968                   (("\"/builder/complex\", test_builder_empty")
1969                    "\"/builder/empty\", test_builder_empty")))))
1970     (build-system gnu-build-system)
1971     (native-inputs
1972      `(("glib" ,glib "bin")              ;for glib-mkenums and glib-genmarshal
1973        ("gobject-introspection" ,gobject-introspection)
1974        ("pkg-config" ,pkg-config)))
1975     (propagated-inputs
1976      `(("glib" ,glib)))                         ;according to json-glib-1.0.pc
1977     (home-page "https://wiki.gnome.org/Projects/JsonGlib")
1978     (synopsis "Compiler for the GObject type system")
1979     (description
1980      "JSON-GLib is a C library based on GLib providing serialization and
1981 deserialization support for the JavaScript Object Notation (JSON) format
1982 described by RFC 4627.  It provides parser and generator GObject classes and
1983 various wrappers for the complex data types employed by JSON, such as arrays
1984 and objects.")
1985     (license license:lgpl2.1+)))
1986
1987 (define-public libxklavier
1988   (package
1989     (name "libxklavier")
1990     (version "5.3")
1991     (source (origin
1992               (method url-fetch)
1993               (uri (string-append "mirror://gnome/sources/" name "/"
1994                                   version "/" name "-" version ".tar.xz"))
1995               (sha256
1996                (base32
1997                 "016lpdv35z0qsw1cprdc2k5qzkdi5waj6qmr0a2q6ljn9g2kpv7b"))))
1998     (build-system gnu-build-system)
1999     (arguments
2000      '(#:configure-flags
2001        (list (string-append "--with-xkb-base="
2002                             (assoc-ref %build-inputs "xkeyboard-config")
2003                             "/share/X11/xkb"))))
2004     (native-inputs
2005      `(("glib:bin"              ,glib "bin") ; for glib-mkenums, etc.
2006        ("gobject-introspection" ,gobject-introspection)
2007        ("pkg-config"            ,pkg-config)))
2008     (propagated-inputs
2009      ;; Required by libxklavier.pc.
2010      `(("glib"    ,glib)
2011        ("libxml2" ,libxml2)))
2012     (inputs
2013      `(("iso-codes"        ,iso-codes)
2014        ("libxi"            ,libxi)
2015        ("libxkbfile"       ,libxkbfile)
2016        ("xkbcomp"          ,xkbcomp)
2017        ("xkeyboard-config" ,xkeyboard-config)))
2018     (home-page "http://www.freedesktop.org/wiki/Software/LibXklavier/")
2019     (synopsis "High-level API for X Keyboard Extension")
2020     (description
2021      "LibXklavier is a library providing high-level API for X Keyboard
2022 Extension known as XKB.  This library is intended to support XFree86 and other
2023 commercial X servers.  It is useful for creating XKB-related software (layout
2024 indicators etc).")
2025     (license license:lgpl2.0+)))
2026
2027 (define-public python2-rsvg
2028   ;; XXX: This is actually a subset of gnome-python-desktop.
2029   (package
2030     (name "python2-rsvg")
2031     (version "2.32.0")
2032     (source
2033      (origin
2034        (method url-fetch)
2035        (uri (string-append
2036              "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
2037              version ".tar.bz2"))
2038        (sha256
2039         (base32
2040          "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
2041     (build-system gnu-build-system)
2042     (native-inputs
2043      `(("pkg-config" ,pkg-config)))
2044     (inputs
2045      `(("python" ,python-2)
2046        ("python2-pygtk" ,python2-pygtk)
2047        ("librsvg" ,librsvg)))
2048     (home-page "http://www.gnome.org")
2049     (synopsis "Python bindings to librsvg")
2050     (description
2051      "This packages provides Python bindings to librsvg, the SVG rendering
2052 library.")
2053
2054     ;; This is the license of the rsvg bindings.  The license of each module
2055     ;; of gnome-python-desktop is given in 'COPYING'.
2056     (license license:lgpl2.1+)))
2057
2058 (define-public glib-networking
2059   (package
2060     (name "glib-networking")
2061     (version "2.48.2")
2062     (source (origin
2063               (method url-fetch)
2064               (uri (string-append "mirror://gnome/sources/glib-networking/"
2065                                   (version-major+minor version) "/"
2066                                   name "-" version ".tar.xz"))
2067               (sha256
2068                (base32
2069                 "111spcar6wbp6m0rdxzjscc7vfqx5nawscrfbxlvbf5jsr4hqp4j"))
2070               (patches
2071                (search-patches "glib-networking-ssl-cert-file.patch"))))
2072     (build-system gnu-build-system)
2073     (arguments
2074      `(#:configure-flags
2075        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")
2076        #:phases
2077        (modify-phases %standard-phases
2078          (add-before 'configure 'patch-giomoduledir
2079                      ;; Install GIO modules into $out/lib/gio/modules.
2080                      (lambda _
2081                        (substitute* "configure"
2082                          (("GIO_MODULE_DIR=.*")
2083                           (string-append "GIO_MODULE_DIR=" %output
2084                                          "/lib/gio/modules\n")))))
2085          (add-before 'check 'use-empty-ssl-cert-file
2086                      (lambda _
2087                        ;; The ca-certificates.crt is not available in the build
2088                        ;; environment.
2089                        (setenv "SSL_CERT_FILE" "/dev/null")
2090                        #t)))))
2091     (native-inputs
2092      `(("pkg-config" ,pkg-config)
2093        ("intltool" ,intltool)))
2094     (inputs
2095      `(("glib" ,glib)
2096        ("gnutls" ,gnutls)
2097        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2098        ("p11-kit" ,p11-kit)))
2099     (home-page "http://www.gnome.org")
2100     (synopsis "Network-related GIO modules")
2101     (description
2102      "This package contains various network related extensions for the GIO
2103 library.")
2104     (license license:lgpl2.0+)))
2105
2106 (define-public rest
2107   (package
2108     (name "rest")
2109     (version "0.8.0")
2110     (source (origin
2111               (method url-fetch)
2112               (uri (string-append "mirror://gnome/sources/rest/"
2113                                   (version-major+minor version) "/"
2114                                   name "-" version ".tar.xz"))
2115               (sha256
2116                (base32
2117                 "0iznvzhab1jq9z3nwy97dh2pid9azwkqm7kkxwx0f5ql1hh9pf77"))))
2118     (build-system gnu-build-system)
2119     (arguments
2120      '(#:tests? #f ; tests require internet connection
2121        #:configure-flags
2122        '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
2123     (native-inputs
2124      `(("glib-mkenums" ,glib "bin")
2125        ("gobject-introspection" ,gobject-introspection)
2126        ("pkg-config" ,pkg-config)))
2127     (propagated-inputs
2128      ;; rest-0.7.pc refers to all these.
2129      `(("glib"    ,glib)
2130        ("libsoup" ,libsoup)
2131        ("libxml2" ,libxml2)))
2132     (home-page "http://www.gtk.org/")
2133     (synopsis "RESTful web api query library")
2134     (description
2135      "This library was designed to make it easier to access web services that
2136 claim to be \"RESTful\".  It includes convenience wrappers for libsoup and
2137 libxml to ease remote use of the RESTful API.")
2138     (license license:lgpl2.1+)))
2139
2140 (define-public libsoup
2141   (package
2142     (name "libsoup")
2143     (version "2.54.1")
2144     (source (origin
2145               (method url-fetch)
2146               (uri (string-append "mirror://gnome/sources/libsoup/"
2147                                   (version-major+minor version) "/"
2148                                   name "-" version ".tar.xz"))
2149               (sha256
2150                (base32
2151                 "0cyn5pq4xl1gb8413h2p4d5wrn558dc054zhwmk4swrl40ijrd27"))))
2152     (build-system gnu-build-system)
2153     (outputs '("out" "doc"))
2154     (arguments
2155      `(#:configure-flags
2156        (list (string-append "--with-html-dir="
2157                             (assoc-ref %outputs "doc")
2158                             "/share/gtk-doc/html"))
2159        #:phases
2160        (modify-phases %standard-phases
2161          (add-before 'configure 'disable-unconnected-socket-test
2162                      ;; This test fails due to missing /etc/nsswitch.conf
2163                      ;; in the build environment.
2164                      (lambda _
2165                        (substitute* "tests/socket-test.c"
2166                          ((".*/sockets/unconnected.*") ""))
2167                        #t))
2168          (add-before 'check 'pre-check
2169                      (lambda _
2170                        ;; The 'check-local' target runs 'env LANG=C sort -u',
2171                        ;; unset 'LC_ALL' to make 'LANG' working.
2172                        (unsetenv "LC_ALL")
2173                        ;; The ca-certificates.crt is not available in the build
2174                        ;; environment.
2175                        (setenv "SSL_CERT_FILE" "/dev/null")
2176                        #t))
2177          (replace 'install
2178                   (lambda _
2179                     (zero?
2180                      (system* "make"
2181                               ;; Install vala bindings into $out.
2182                               (string-append "vapidir=" %output
2183                                              "/share/vala/vapi")
2184                               "install")))))))
2185     (native-inputs
2186      `(("glib:bin" ,glib "bin") ; for glib-mkenums
2187        ("gobject-introspection" ,gobject-introspection)
2188        ("intltool" ,intltool)
2189        ("pkg-config" ,pkg-config)
2190        ("python" ,python-wrapper)
2191        ("vala" ,vala)
2192        ;; These are needed for the tests.
2193        ;; FIXME: Add PHP once available.
2194        ("curl" ,curl)
2195        ("httpd" ,httpd)))
2196     (propagated-inputs
2197      ;; libsoup-2.4.pc refers to all these.
2198      `(("glib" ,glib)
2199        ("libxml2" ,libxml2)))
2200     (inputs
2201      `(("glib-networking" ,glib-networking)
2202        ("sqlite" ,sqlite)))
2203     (home-page "https://live.gnome.org/LibSoup/")
2204     (synopsis "GLib-based HTTP Library")
2205     (description
2206      "LibSoup is an HTTP client/server library for GNOME.  It uses GObjects
2207 and the GLib main loop, to integrate well with GNOME applications.")
2208     (license license:lgpl2.0+)))
2209
2210 (define-public libsecret
2211   (package
2212     (name "libsecret")
2213     (version "0.18.5")
2214     (source (origin
2215               (method url-fetch)
2216               (uri (string-append
2217                     "mirror://gnome/sources/libsecret/"
2218                     (version-major+minor version) "/"
2219                     name "-" version ".tar.xz"))
2220               (sha256
2221                (base32
2222                 "1cychxc3ff8fp857iikw0n2s13s2mhw2dn1mr632f7w3sn6vvrww"))))
2223     (build-system gnu-build-system)
2224     (outputs '("out" "doc"))
2225     (arguments
2226      `(#:tests? #f ; FIXME: Testing hangs.
2227        #:configure-flags
2228        (list (string-append "--with-html-dir="
2229                             (assoc-ref %outputs "doc")
2230                             "/share/gtk-doc/html"))))
2231     (native-inputs
2232      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
2233        ("gobject-introspection" ,gobject-introspection)
2234        ("intltool" ,intltool)
2235        ("pkg-config" ,pkg-config)
2236        ("vala" ,vala)
2237        ("xsltproc" ,libxslt)))
2238        ;; These are needed for the tests.
2239        ;; FIXME: Add gjs once available.
2240        ;("dbus" ,dbus)
2241        ;("python2" ,python-2)
2242        ;("python2-dbus" ,python2-dbus)
2243        ;("python2-pygobject" ,python2-pygobject)
2244        ;("python2-pygobject-2" ,python2-pygobject-2)))
2245     (propagated-inputs
2246      `(("glib" ,glib))) ; required by libsecret-1.pc
2247     (inputs
2248      `(("docbook-xsl" ,docbook-xsl)
2249        ("libgcrypt" ,libgcrypt)
2250        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
2251     (home-page "https://wiki.gnome.org/Projects/Libsecret/")
2252     (synopsis "GObject bindings for \"Secret Service\" API")
2253     (description
2254      "Libsecret is a GObject based library for storing and retrieving passwords
2255 and other secrets.  It communicates with the \"Secret Service\" using DBus.")
2256     (license license:lgpl2.1+)))
2257
2258 (define-public gnome-mines
2259   (package
2260     (name "gnome-mines")
2261     (version "3.20.1")
2262     (source
2263      (origin
2264        (method url-fetch)
2265        (uri (string-append "mirror://gnome/sources/" name "/"
2266                            (version-major+minor version) "/"
2267                            name "-" version ".tar.xz"))
2268        (sha256
2269         (base32
2270          "0frb1r0f55giz7yqxl9920vvzqlirdivz54ygc9d85r8v63fh5aq"))))
2271     (build-system glib-or-gtk-build-system)
2272     (arguments
2273      '(#:phases
2274        (modify-phases %standard-phases
2275          (add-before 'configure 'patch-/bin/true
2276                      (lambda _
2277                        (substitute* "configure"
2278                          (("/bin/true") (which "true"))))))))
2279     (native-inputs
2280      `(("pkg-config" ,pkg-config)
2281        ("desktop-file-utils" ,desktop-file-utils)
2282        ("intltool" ,intltool)
2283        ("itstool" ,itstool)
2284        ("xmllint" ,libxml2)))
2285     (inputs
2286      `(("gtk+" ,gtk+)
2287        ("librsvg" ,librsvg)))
2288     (home-page "https://wiki.gnome.org/Apps/Mines")
2289     (synopsis "Minesweeper game")
2290     (description
2291      "Mines (previously gnomine) is a puzzle game where you locate mines
2292 floating in an ocean using only your brain and a little bit of luck.")
2293     (license license:gpl2+)))
2294
2295 (define-public gnome-sudoku
2296   (package
2297     (name "gnome-sudoku")
2298     (version "3.20.5")
2299     (source
2300      (origin
2301        (method url-fetch)
2302        (uri (string-append "mirror://gnome/sources/" name "/"
2303                            (version-major+minor version) "/"
2304                            name "-" version ".tar.xz"))
2305        (sha256
2306         (base32
2307          "166bbv5k50v7pjp3wbl2rmxcmv1adwr14hxg5rw2ws8kams8151k"))))
2308     (build-system glib-or-gtk-build-system)
2309     (native-inputs
2310      `(("pkg-config" ,pkg-config)
2311        ("desktop-file-utils" ,desktop-file-utils)
2312        ("intltool" ,intltool)
2313        ("itstool" ,itstool)
2314        ("xmllint" ,libxml2)))
2315     (inputs
2316      `(("gtk+" ,gtk+)
2317        ("json-glib" ,json-glib)
2318        ("libgee" ,libgee)
2319        ("librsvg" ,librsvg)
2320        ("qqwing" ,qqwing)))
2321     (home-page "https://wiki.gnome.org/Apps/Sudoku")
2322     (synopsis "Japanese logic game")
2323     (description
2324      "Sudoku is a Japanese logic game that exploded in popularity in 2005.
2325 GNOME Sudoku is meant to have an interface as simple and unobstrusive as
2326 possible while still providing features that make playing difficult Sudoku
2327 more fun.")
2328     (license license:gpl2+)))
2329
2330 (define-public gnome-terminal
2331   (package
2332     (name "gnome-terminal")
2333     (version "3.20.2")
2334     (source
2335      (origin
2336        (method url-fetch)
2337        (uri (string-append "mirror://gnome/sources/" name "/"
2338                            (version-major+minor version) "/"
2339                            name "-" version ".tar.xz"))
2340        (sha256
2341         (base32
2342          "08ssch8h1y85wyhddkyr7ab4v8dnsn17z4ayyc5ff78gfdh30f7m"))))
2343     (build-system glib-or-gtk-build-system)
2344     (arguments
2345      '(#:configure-flags
2346        (list "--disable-migration" "--disable-search-provider"
2347              "--without-nautilus-extension")
2348        #:phases
2349        (modify-phases %standard-phases
2350          (add-before 'configure 'patch-/bin/true
2351                      (lambda _
2352                        (substitute* "configure"
2353                          (("/bin/true") (which "true"))))))))
2354     (native-inputs
2355      `(("pkg-config" ,pkg-config)
2356        ("desktop-file-utils" ,desktop-file-utils)
2357        ("intltool" ,intltool)
2358        ("itstool" ,itstool)
2359        ("xmllint" ,libxml2)))
2360     (propagated-inputs
2361      `(("dconf" ,dconf)))
2362     (inputs
2363      `(("gtk+" ,gtk+)
2364        ("vte" ,vte)
2365        ("gnutls" ,gnutls)
2366        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2367        ("util-linux" ,util-linux)
2368        ("vala" ,vala)))
2369     (home-page "https://wiki.gnome.org/Apps/Terminal")
2370     (synopsis "Terminal emulator")
2371     (description
2372      "GNOME Terminal is a terminal emulator application for accessing a
2373 UNIX shell environment which can be used to run programs available on
2374 your system.
2375
2376 It supports several profiles, multiple tabs and implements several
2377 keyboard shortcuts.")
2378     (license license:gpl3+)))
2379
2380 (define-public colord
2381   (package
2382     (name "colord")
2383     (version "1.1.8")
2384     (source
2385      (origin
2386        (method url-fetch)
2387        (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
2388                            name "-" version ".tar.xz"))
2389        (sha256
2390         (base32
2391          "01w97rgzk4qi6fp03scq5jyw0ayx11b479p7dkm2r77k84b9agph"))))
2392     (build-system glib-or-gtk-build-system)
2393     (arguments
2394      '(;; The tests want to run valgrind.  Punt for now.
2395        #:tests? #f
2396        #:configure-flags (list "--localstatedir=/var"
2397                                ;; GUSB not packaged yet.
2398                                "--disable-gusb"
2399                                ;; No dep on systemd.
2400                                "--disable-systemd-login"
2401                                ;; Wants to install to global completion dir;
2402                                ;; punt.
2403                                "--disable-bash-completion"
2404                                ;; colord-gtk not packaged yet.
2405                                "--disable-session-example"
2406                                "--with-daemon-user=colord"
2407                                "--enable-sane"
2408                                (string-append "--with-udevrulesdir="
2409                                               (assoc-ref %outputs "out")
2410                                               "/lib/udev/rules.d"))
2411        #:phases
2412        (modify-phases %standard-phases
2413          (add-before 'configure 'patch-/bin/true
2414                      (lambda _
2415                        (substitute* "configure"
2416                          (("/bin/true") (which "true")))
2417                        (substitute* "src/Makefile.in"
2418                          (("if test -w \\$\\(DESTDIR\\)\\$\\(prefix\\)/;")
2419                           "if test -w $(DESTDIR)$(localstatedir);")))))))
2420     (native-inputs
2421      `(("pkg-config" ,pkg-config)
2422        ("gobject-introspection" ,gobject-introspection)
2423        ("libtool" ,libtool)
2424        ("intltool" ,intltool)))
2425     (propagated-inputs
2426      ;; colord.pc refers to all these.
2427      `(("glib" ,glib)
2428        ("udev" ,eudev)
2429        ("lcms" ,lcms)))
2430     (inputs
2431      `(("dbus-glib" ,dbus-glib)
2432        ("libgudev" ,libgudev)
2433        ("libusb" ,libusb)
2434        ("sqlite" ,sqlite)
2435        ("polkit" ,polkit)
2436        ("sane-backends" ,sane-backends)))
2437     (home-page "http://www.freedesktop.org/software/colord/")
2438     (synopsis "Color management service")
2439     (description "Colord is a system service that makes it easy to manage,
2440 install and generate color profiles to accurately color manage input and
2441 output devices.")
2442     (license license:gpl2+)))
2443
2444 (define-public geoclue
2445   (package
2446     (name "geoclue")
2447     (version "2.4.4")
2448     (source
2449      (origin
2450        (method url-fetch)
2451        (uri (string-append "https://www.freedesktop.org/software/" name
2452                            "/releases/" (version-major+minor version) "/"
2453                            name "-" version ".tar.xz"))
2454        (sha256
2455         (base32
2456          "0p1ibjf5vzjsahw5xif2si3lj6a00sxhll008jk7w1hj1jfznhww"))
2457        (patches (search-patches "geoclue-config.patch"))))
2458     (build-system glib-or-gtk-build-system)
2459     (arguments
2460      '(;; The tests want to run the system bus.
2461        #:tests? #f
2462        #:configure-flags (list ;; Disable bits requiring ModemManager.
2463                                "--disable-3g-source"
2464                                "--disable-cdma-source"
2465                                "--disable-modem-gps-source"
2466                                "--with-dbus-service-user=geoclue")
2467        #:phases
2468        (modify-phases %standard-phases
2469          (add-before 'configure 'patch-/bin/true
2470                      (lambda _
2471                        (substitute* "configure"
2472                          (("/bin/true") (which "true"))))))))
2473     (native-inputs
2474      `(("pkg-config" ,pkg-config)
2475        ("intltool" ,intltool)))
2476     (inputs
2477      `(("avahi" ,avahi)
2478        ("glib" ,glib)
2479        ("json-glib" ,json-glib)
2480        ("libsoup" ,libsoup)))
2481     (home-page "http://freedesktop.org/wiki/Software/GeoClue/")
2482     (synopsis "Geolocation service")
2483     (description "Geoclue is a D-Bus service that provides location
2484 information.  The primary goal of the Geoclue project is to make creating
2485 location-aware applications as simple as possible, while the secondary goal is
2486 to ensure that no application can access location information without explicit
2487 permission from user.")
2488     (license license:gpl2+)))
2489
2490 (define-public geocode-glib
2491   (package
2492     (name "geocode-glib")
2493     (version "3.20.1")
2494     (source (origin
2495               (method url-fetch)
2496               (uri (string-append "mirror://gnome/sources/geocode-glib/"
2497                                   (version-major+minor version) "/"
2498                                   name "-" version ".tar.xz"))
2499               (sha256
2500                (base32
2501                 "18iphsx3bybw7lssbb7rxc1rrnsc8vxai521zkqc535zr8rci7v6"))))
2502     (build-system gnu-build-system)
2503     (arguments
2504      `(;; The tests want to write to $HOME/.cache/geocode-glib, which doesn't
2505        ;; work for the builder.  Punt.
2506        #:tests? #f))
2507     (native-inputs
2508      `(("glib:bin" ,glib "bin") ; for glib-mkenums
2509        ("gobject-introspection" ,gobject-introspection)
2510        ("pkg-config" ,pkg-config)
2511        ("json-glib" ,json-glib)))
2512     (propagated-inputs
2513      ;; geocode-glib-1.0.pc refers to GIO.
2514      `(("glib" ,glib)))
2515     (inputs
2516      `(("libsoup" ,libsoup)))
2517     (home-page "https://github.com/GNOME/geocode-glib/")
2518     (synopsis "Geocoding and reverse-geocoding library")
2519     (description
2520      "geocode-glib is a convenience library for geocoding (finding longitude,
2521 and latitude from an address) and reverse geocoding (finding an address from
2522 coordinates) using the Nominatim service.  geocode-glib caches requests for
2523 faster results and to avoid unnecessary server load.")
2524     (license license:lgpl2.0+)))
2525
2526 (define-public upower
2527   (package
2528     (name "upower")
2529     (version "0.99.3")
2530     (source (origin
2531               (method url-fetch)
2532               (uri (string-append "https://upower.freedesktop.org/releases/"
2533                                   name "-" version ".tar.xz"))
2534               (sha256
2535                (base32
2536                 "0f6x9mi1jzgqdpycaikyhjljnw3aacsl3gxndyg0dfqkq6y9jwb9"))
2537               (patches (search-patches "upower-builddir.patch"))))
2538     (build-system glib-or-gtk-build-system)
2539     (arguments
2540      '( ;; The tests want to contact the system bus, which can't be done in the
2541        ;; build environment.  The integration test can run, but the last of
2542        ;; the up-self-tests doesn't.  Disable tests for now.
2543        #:tests? #f
2544        #:configure-flags (list "--localstatedir=/var"
2545                                (string-append "--with-udevrulesdir="
2546                                               (assoc-ref %outputs "out")
2547                                               "/lib/udev/rules.d"))
2548        #:phases
2549        (modify-phases %standard-phases
2550          (add-before 'configure 'patch-/bin/true
2551                      (lambda _
2552                        (substitute* "configure"
2553                          (("/bin/true") (which "true")))))
2554          (add-before 'configure 'patch-integration-test
2555                      (lambda _
2556                        (substitute* "src/linux/integration-test"
2557                          (("/usr/bin/python3") (which "python3"))))))))
2558     (native-inputs
2559      `(("gobject-introspection" ,gobject-introspection)
2560        ("pkg-config" ,pkg-config)
2561        ("intltool" ,intltool)
2562        ("python" ,python)
2563
2564        ;; For man pages.
2565        ("libxslt" ,libxslt)                       ;for 'xsltproc'
2566        ("libxml2" ,libxml2)                       ;for 'XML_CATALOG_FILES'
2567        ("docbook-xsl" ,docbook-xsl)))
2568     (inputs
2569      `(("dbus-glib" ,dbus-glib)
2570        ("libgudev" ,libgudev)
2571        ("libusb" ,libusb)))
2572     (home-page "http://upower.freedesktop.org/")
2573     (synopsis "System daemon for managing power devices")
2574     (description
2575      "UPower is an abstraction for enumerating power devices,
2576 listening to device events and querying history and statistics.  Any
2577 application or service on the system can access the org.freedesktop.UPower
2578 service via the system message bus.")
2579     (license license:gpl2+)))
2580
2581 (define-public libgweather
2582   (package
2583     (name "libgweather")
2584     (version "3.20.2")
2585     (source (origin
2586               (method url-fetch)
2587               (uri (string-append "mirror://gnome/sources/" name "/"
2588                                   (version-major+minor version) "/"
2589                                   name "-" version ".tar.xz"))
2590               (sha256
2591                (base32
2592                 "15ycgvdvika57rhnb46j6pj1907nj5y5nyy7sgj0yvpjbqsiskzp"))))
2593     (build-system gnu-build-system)
2594     (arguments
2595      `(#:configure-flags
2596        `(,(string-append "--with-zoneinfo-dir="
2597                          (assoc-ref %build-inputs "tzdata")
2598                          "/share/zoneinfo"))
2599        #:phases
2600        (modify-phases %standard-phases
2601          (add-before
2602           'check 'pre-check
2603           (lambda* (#:key inputs #:allow-other-keys)
2604             (substitute* "data/check-timezones.sh"
2605               (("/usr/share/zoneinfo/zone.tab")
2606                (string-append (assoc-ref inputs "tzdata")
2607                               "/share/zoneinfo/zone.tab")))
2608             #t)))))
2609     (native-inputs
2610      `(("glib:bin" ,glib "bin") ; for glib-mkenums
2611        ("gobject-introspection" ,gobject-introspection)
2612        ("pkg-config" ,pkg-config)
2613        ("intltool" ,intltool)))
2614     (propagated-inputs
2615      ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
2616      ;; libsoup.
2617      `(("gtk+" ,gtk+)
2618        ("gdk-pixbuf" ,gdk-pixbuf)
2619        ("libxml2" ,libxml2)
2620        ("libsoup" ,libsoup)))
2621     (inputs
2622      `(("tzdata" ,tzdata)
2623        ("geocode-glib" ,geocode-glib)))
2624     (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
2625     (synopsis "Location, time zone, and weather library for GNOME")
2626     (description
2627      "libgweather is a library to access weather information from online
2628 services for numerous locations.")
2629     (license license:gpl2+)))
2630
2631 (define-public gnome-settings-daemon
2632   (package
2633     (name "gnome-settings-daemon")
2634     (version "3.20.1")
2635     (source
2636      (origin
2637        (method url-fetch)
2638        (uri (string-append "mirror://gnome/sources/" name "/"
2639                            (version-major+minor version) "/"
2640                            name "-" version ".tar.xz"))
2641        (sha256
2642         (base32
2643          "1rvqisrh3lridsb8rvm7spvncyq206ly0245zgpbm8swi5fhfjp8"))))
2644     (build-system glib-or-gtk-build-system)
2645     (arguments
2646      `(;; Network manager not yet packaged.
2647        #:configure-flags '("--disable-network-manager")
2648        ;; Color management test can't reach the colord system service.
2649        #:tests? #f))
2650     (native-inputs
2651      `(("pkg-config" ,pkg-config)
2652        ("intltool" ,intltool)
2653        ("xsltproc" ,libxslt)
2654        ("libxml2" ,libxml2)                       ;for XML_CATALOG_FILES
2655        ("docbook-xml" ,docbook-xml-4.2)
2656        ("docbook-xsl" ,docbook-xsl)))
2657     (inputs
2658      `(("colord" ,colord)
2659        ("libgudev" ,libgudev)
2660        ("upower" ,upower)
2661        ("polkit" ,polkit)
2662        ("pulseaudio" ,pulseaudio)
2663        ("libcanberra" ,libcanberra)
2664        ("libx11" ,libx11)
2665        ("libxtst" ,libxtst)
2666        ("lcms" ,lcms)
2667        ("libnotify" ,libnotify)
2668        ("geoclue" ,geoclue)
2669        ("geocode-glib" ,geocode-glib)
2670        ("libgweather" ,libgweather)
2671        ("gnome-desktop" ,gnome-desktop)
2672        ("nss" ,nss)
2673        ("cups" ,cups)
2674        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2675        ("libwacom" ,libwacom)
2676        ("librsvg" ,librsvg)
2677        ("xf86-input-wacom" ,xf86-input-wacom)))
2678     (home-page "http://www.gnome.org")
2679     (synopsis "GNOME settings daemon")
2680     (description
2681      "This package contains the daemon responsible for setting the various
2682 parameters of a GNOME session and the applications that run under it.  It
2683 handles settings such keyboard layout, shortcuts, and accessibility, clipboard
2684 settings, themes, mouse settings, and startup of other daemons.")
2685     (license license:gpl2+)))
2686
2687 (define-public totem-pl-parser
2688  (package
2689    (name "totem-pl-parser")
2690    (version "3.10.6")
2691    (source (origin
2692             (method url-fetch)
2693             (uri (string-append "mirror://gnome/sources/totem-pl-parser/3.10/"
2694                                 "totem-pl-parser-" version ".tar.xz"))
2695             (sha256
2696              (base32
2697               "0mv7aw9mw77w04zg95zjf0zmk6ckshpysbb9nap15h5is6zdk9cq"))))
2698    (build-system gnu-build-system)
2699    (arguments
2700     ;; FIXME: Tests require gvfs.
2701     `(#:tests? #f))
2702    (native-inputs
2703     `(("intltool" ,intltool)
2704       ("glib" ,glib "bin")
2705       ("gobject-introspection" ,gobject-introspection)
2706       ("pkg-config" ,pkg-config)))
2707    (propagated-inputs
2708     `(("glib" ,glib)
2709       ("gmime" ,gmime)
2710       ("libxml2" ,libxml2)))
2711    (inputs
2712     `(("libarchive" ,libarchive)
2713       ("libgcrypt" ,libgcrypt)
2714       ("nettle" ,nettle)
2715       ("libsoup" ,libsoup)))
2716    (home-page "https://projects.gnome.org/totem")
2717    (synopsis "Library to parse and save media playlists for GNOME")
2718    (description "Totem-pl-parser is a GObjects-based library to parse and save
2719 playlists in a variety of formats.")
2720    (license license:lgpl2.0+)))
2721
2722 (define-public aisleriot
2723   (package
2724     (name "aisleriot")
2725     (version "3.20.2")
2726     (source (origin
2727               (method url-fetch)
2728               (uri (string-append "mirror://gnome/sources/" name "/"
2729                                   (version-major+minor version) "/"
2730                                   name "-" version ".tar.xz"))
2731               (sha256
2732                (base32
2733                 "0vhpi7bzm4gbraky1d3ma26rbwnylcqdakav82j67bpqd7f6n0v2"))))
2734     (build-system glib-or-gtk-build-system)
2735     (arguments
2736      '(#:configure-flags
2737        '("--with-platform=gtk-only"
2738          "--with-card-theme-formats=svg")))
2739     (native-inputs
2740      `(("desktop-file-utils" ,desktop-file-utils)
2741        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
2742        ("intltool" ,intltool)
2743        ("itstool" ,itstool)
2744        ("pkg-config" ,pkg-config)
2745        ("xmllint" ,libxml2)))
2746     (inputs
2747      `(("gtk+" ,gtk+)
2748        ("guile" ,guile-2.0)
2749        ("libcanberra" ,libcanberra)
2750        ("librsvg" ,librsvg)))
2751     (home-page "https://wiki.gnome.org/Apps/Aisleriot")
2752     (synopsis "Solitaire card games")
2753     (description
2754      "Aisleriot (also known as Solitaire or sol) is a collection of card games
2755 which are easy to play with the aid of a mouse.")
2756     (license license:gpl3+)))
2757
2758 (define-public devhelp
2759   (package
2760     (name "devhelp")
2761     (version "3.20.0")
2762     (source (origin
2763               (method url-fetch)
2764               (uri (string-append "mirror://gnome/sources/" name "/"
2765                                   (version-major+minor version) "/"
2766                                   name "-" version ".tar.xz"))
2767               (sha256
2768                (base32
2769                 "078zr92xs5ifp862v1vdmw1j9m6gr9zk5hjbk5065vxjwb17acx2"))))
2770     (build-system glib-or-gtk-build-system)
2771     (native-inputs
2772      `(("intltool" ,intltool)
2773        ("pkg-config" ,pkg-config)))
2774     (inputs
2775      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2776        ("webkitgtk" ,webkitgtk)))
2777     (home-page "https://wiki.gnome.org/Apps/Devhelp")
2778     (synopsis "API documentation browser for GNOME")
2779     (description
2780      "Devhelp is an API documentation browser for GTK+ and GNOME.  It works
2781 natively with GTK-Doc (the API reference system developed for GTK+ and used
2782 throughout GNOME for API documentation).")
2783     (license license:gpl2+)))
2784
2785 (define-public cogl
2786   (package
2787     (name "cogl")
2788     (version "1.22.0")
2789     (source
2790      (origin
2791        (method url-fetch)
2792        (uri (string-append "mirror://gnome/sources/" name "/"
2793                            (version-major+minor version) "/"
2794                            name "-" version ".tar.xz"))
2795        (sha256
2796         (base32
2797          "14daxqrid5039xmq9yl4pk86awng1n9zgl6ysblhc4gw2ifzp7b8"))))
2798     (build-system gnu-build-system)
2799     (native-inputs
2800      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
2801        ("gobject-introspection" ,gobject-introspection)
2802        ;;("xorg-server" ,xorg-server) ; for the test suite
2803        ("pkg-config" ,pkg-config)))
2804     (propagated-inputs
2805      `(("glib" ,glib)
2806        ("gdk-pixbuf" ,gdk-pixbuf)
2807        ("libx11" ,libx11)
2808        ("libxext" ,libxext)
2809        ("libxfixes" ,libxfixes)
2810        ("libxdamage" ,libxdamage)
2811        ("libxcomposite" ,libxcomposite)
2812        ("libxrandr" ,libxrandr)))
2813     (inputs
2814      `(("mesa" ,mesa)
2815        ("cairo" ,cairo)
2816        ("pango" ,pango)
2817        ("gstreamer" ,gstreamer)
2818        ("gst-plugins-base" ,gst-plugins-base)))
2819     (arguments
2820      `(#:configure-flags (list "--enable-cogl-gst"
2821                                ;; Arrange to pass an absolute file name to
2822                                ;; dlopen for libGL.so.
2823                                (string-append "--with-gl-libname="
2824                                               (assoc-ref %build-inputs "mesa")
2825                                               "/lib/libGL.so"))
2826        ;; XXX FIXME: All tests fail, with many warnings printed like this:
2827        ;;   _FontTransOpen: Unable to Parse address
2828        ;;   ${prefix}/share/fonts/X11/misc/
2829        #:tests? #f
2830        #; #:phases
2831        #;
2832        (modify-phases %standard-phases
2833          (add-before 'check 'start-xorg-server
2834                      (lambda* (#:key inputs #:allow-other-keys)
2835                        ;; The test suite requires a running X server.
2836                        (system (format #f "~a/bin/Xvfb :1 &"
2837                                        (assoc-ref inputs "xorg-server")))
2838                        (setenv "DISPLAY" ":1")
2839                        #t)))))
2840     (home-page "http://www.cogl3d.org")
2841     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
2842     (description
2843      "Cogl is a small library for using 3D graphics hardware to draw pretty
2844 pictures.  The API departs from the flat state machine style of OpenGL and is
2845 designed to make it easy to write orthogonal components that can render
2846 without stepping on each others toes.")
2847     (license (list license:expat       ; most of the code
2848                    license:bsd-3       ; cogl/cogl-point-in-poly.c
2849                    license:sgifreeb2.0 ; cogl-path/tesselator/
2850                    license:asl2.0))))  ; examples/android/
2851
2852 (define-public clutter
2853   (package
2854     (name "clutter")
2855     (version "1.26.0")
2856     (source
2857      (origin
2858        (method url-fetch)
2859        (uri (string-append "mirror://gnome/sources/" name "/"
2860                            (version-major+minor version) "/"
2861                            name "-" version ".tar.xz"))
2862        (sha256
2863         (base32
2864          "01nfjd4k7j2n3agpx2d9ncff86nfsqv4n23465rb9zmk4iw4wlb7"))))
2865     (build-system gnu-build-system)
2866     (outputs '("out"
2867                "doc"))                            ;9 MiB of gtk-doc HTML pages
2868     (native-inputs
2869      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
2870        ("gobject-introspection" ,gobject-introspection)
2871        ("pkg-config" ,pkg-config)
2872        ("xsltproc" ,libxslt)))
2873     (propagated-inputs
2874      `(("cogl" ,cogl)
2875        ("cairo" ,cairo)
2876        ("atk" ,atk)
2877        ("gtk+" ,gtk+)
2878        ("json-glib" ,json-glib)
2879        ("glib" ,glib)
2880        ("libxcomposite" ,libxcomposite)
2881        ("libxdamage" ,libxdamage)
2882        ("libxext" ,libxext)
2883        ("xinput" ,xinput)))
2884     (inputs
2885      `(("libxkbcommon" ,libxkbcommon)
2886        ("udev" ,eudev)))
2887     (arguments
2888      `(#:configure-flags (list "--enable-x11-backend=yes"
2889
2890                                ;; This produces share/doc/{clutter,cally}.
2891                                (string-append "--with-html-dir="
2892                                               (assoc-ref %outputs "doc")
2893                                               "/share/doc"))
2894        ;; XXX FIXME: Get test suite working.  It would probably fail in the
2895        ;; same way the cogl tests fail, since clutter is based on cogl.
2896        #:tests? #f))
2897     (home-page "http://www.clutter-project.org")
2898     (synopsis "Open GL based interactive canvas library")
2899     (description
2900      "Clutter is an Open GL based interactive canvas library, designed for
2901 creating fast, mainly 2D single window applications such as media box UIs,
2902 presentations, kiosk style applications and so on.")
2903     (license license:lgpl2.0+)))
2904
2905 (define-public clutter-gtk
2906   (package
2907     (name "clutter-gtk")
2908     (version "1.8.0")
2909     (source
2910      (origin
2911        (method url-fetch)
2912        (uri (string-append "mirror://gnome/sources/" name "/"
2913                            (version-major+minor version) "/"
2914                            name "-" version ".tar.xz"))
2915        (sha256
2916         (base32
2917          "07dzvx0b3fsswxnpxgk0adjgccnrvbxsd971naqwndnfivbgjbkl"))))
2918     (build-system gnu-build-system)
2919     (native-inputs
2920      `(("pkg-config" ,pkg-config)
2921        ("gobject-introspection" ,gobject-introspection)))
2922     (propagated-inputs
2923      ;; clutter-gtk.pc refers to all these.
2924      `(("clutter" ,clutter)
2925        ("gtk+" ,gtk+)))
2926     (home-page "http://www.clutter-project.org")
2927     (synopsis "Open GL based interactive canvas library GTK+ widget")
2928     (description
2929      "Clutter is an Open GL based interactive canvas library, designed for
2930 creating fast, mainly 2D single window applications such as media box UIs,
2931 presentations, kiosk style applications and so on.")
2932     (license license:lgpl2.0+)))
2933
2934 (define-public clutter-gst
2935   (package
2936     (name "clutter-gst")
2937     (version "3.0.18")
2938     (source
2939      (origin
2940        (method url-fetch)
2941        (uri (string-append "mirror://gnome/sources/" name "/"
2942                            (version-major+minor version) "/"
2943                            name "-" version ".tar.xz"))
2944        (sha256
2945         (base32
2946          "14w0pi9myvcn1yxzmk9sk8dghj17m5ji3aqdpfjikk90c060vv0a"))))
2947     (build-system gnu-build-system)
2948     (native-inputs
2949      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
2950        ("pkg-config" ,pkg-config)
2951        ("gobject-introspection" ,gobject-introspection)))
2952     (inputs
2953      `(("clutter" ,clutter)
2954        ("gstreamer" ,gstreamer)
2955        ("gst-plugins-base" ,gst-plugins-base)))
2956     (home-page "http://www.clutter-project.org")
2957     (synopsis "Integration library for using GStreamer with Clutter")
2958     (description
2959      "Clutter-Gst is an integration library for using GStreamer with Clutter.
2960 It provides a GStreamer sink to upload frames to GL and an actor that
2961 implements the ClutterGstPlayer interface using playbin.  Clutter is an Open
2962 GL based interactive canvas library.")
2963     (license license:lgpl2.0+)))
2964
2965 (define-public libchamplain
2966   (package
2967     (name "libchamplain")
2968     (version "0.12.13")
2969     (source (origin
2970               (method url-fetch)
2971               (uri (string-append
2972                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
2973                     version ".tar.xz"))
2974               (sha256
2975                (base32
2976                 "1arzd1hsgq14rbiwa1ih2g250x6ljna2s2kiqfrw155c612s9cxk"))))
2977     (build-system gnu-build-system)
2978     (arguments '(#:configure-flags '("--enable-vala")))
2979     (native-inputs
2980      `(("gobject-introspection" ,gobject-introspection)
2981        ("pkg-config" ,pkg-config)
2982        ("vala" ,vala)))
2983     (propagated-inputs
2984      `(("libsoup" ,libsoup)
2985        ("sqlite" ,sqlite)
2986        ("clutter" ,clutter)
2987        ("clutter-gtk" ,clutter-gtk)
2988        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
2989        ("cairo" ,cairo)
2990        ("gtk+3" ,gtk+)
2991        ("glib" ,glib)))
2992     (home-page "http://projects.gnome.org/libchamplain/")
2993     (synopsis "C library providing a ClutterActor to display maps")
2994     (description
2995      "libchamplain is a C library providing a ClutterActor to display maps.
2996 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
2997 and Perl bindings are also available.  It supports numerous free map sources
2998 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
2999     (license license:lgpl2.1+)))
3000
3001 (define-public gom
3002   (package
3003     (name "gom")
3004     (version "0.3.2")
3005     (source
3006      (origin
3007        (method url-fetch)
3008        (uri (string-append "mirror://gnome/sources/" name "/"
3009                            (version-major+minor version) "/"
3010                            name "-" version ".tar.xz"))
3011        (sha256
3012         (base32
3013          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
3014     (build-system gnu-build-system)
3015     (native-inputs
3016      `(("intltool" ,intltool)
3017        ("pkg-config" ,pkg-config)
3018        ("gobject-introspection" ,gobject-introspection)))
3019     (inputs
3020      `(("glib" ,glib)
3021        ("gdk-pixbuf" ,gdk-pixbuf)
3022        ("sqlite" ,sqlite)))
3023     ;; XXX TODO: Figure out how to run the test suite.
3024     (arguments `(#:tests? #f))
3025     (home-page "https://wiki.gnome.org/Projects/Gom")
3026     (synopsis "Object mapper from GObjects to SQLite")
3027     (description
3028      "Gom provides an object mapper from GObjects to SQLite.  It helps you
3029 write applications that need to store structured data as well as make complex
3030 queries upon that data.")
3031     (license license:lgpl2.1+)))
3032
3033 (define-public libgames-support
3034   (package
3035     (name "libgames-support")
3036     (version "1.0.2")
3037     (source (origin
3038               (method url-fetch)
3039               (uri (string-append "mirror://gnome/sources/" name "/"
3040                                   (version-major+minor version) "/"
3041                                   name "-" version ".tar.xz"))
3042               (sha256
3043                (base32
3044                 "0rms2ksiv7j9944km7r87q22nh05si1fisn5xm3z4zy5vpcfi5mh"))))
3045     (build-system gnu-build-system)
3046     (arguments
3047      '(#:phases
3048        (modify-phases %standard-phases
3049          (add-before 'check 'pre-check
3050            (lambda _
3051              ;; tests require a writable HOME.
3052              (setenv "HOME" (getcwd))
3053              #t)))))
3054     (native-inputs
3055      `(("intltool" ,intltool)
3056        ("pkg-config" ,pkg-config)
3057        ("vala" ,vala)))
3058     (propagated-inputs
3059      ;; Required by libgames-support-1.0.pc
3060      `(("gtk+" ,gtk+)
3061        ("libgee" ,libgee)))
3062     (home-page "https://www.gnome.org/")
3063     (synopsis "Useful functionality shared among GNOME games")
3064     (description
3065      "libgames-support is a small library intended for internal use by
3066 GNOME Games, but it may be used by others.")
3067     (license license:lgpl3+)))
3068
3069 (define-public gnome-klotski
3070   (package
3071     (name "gnome-klotski")
3072     (version "3.20.2")
3073     (source (origin
3074               (method url-fetch)
3075               (uri (string-append "mirror://gnome/sources/" name "/"
3076                                   (version-major+minor version) "/"
3077                                   name "-" version ".tar.xz"))
3078               (sha256
3079                (base32
3080                 "14w40a1gjlg4l1vhcy0qcf3scmwm2v3vhxnxj269pfqlv8s7alaw"))))
3081     (build-system glib-or-gtk-build-system)
3082     (native-inputs
3083      `(("desktop-file-utils" ,desktop-file-utils)
3084        ("intltool" ,intltool)
3085        ("itstool" ,itstool)
3086        ("pkg-config" ,pkg-config)
3087        ("xmllint" ,libxml2)))
3088     (inputs
3089      `(("gtk+" ,gtk+)
3090        ("libgames-support" ,libgames-support)
3091        ("librsvg" ,librsvg)))
3092     (home-page "https://wiki.gnome.org/Apps/Klotski")
3093     (synopsis "Sliding block puzzles")
3094     (description
3095      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
3096 the patterned block to the area bordered by green markers.  To do so, you will
3097 need to slide other blocks out of the way.  Complete each puzzle in as few moves
3098 as possible!")
3099     (license license:gpl2+)))
3100
3101 (define-public grilo
3102   (package
3103     (name "grilo")
3104     (version "0.3.0")
3105     (source
3106      (origin
3107        (method url-fetch)
3108        (uri (string-append "mirror://gnome/sources/" name "/"
3109                            (version-major+minor version) "/"
3110                            name "-" version ".tar.xz"))
3111        (sha256
3112         (base32
3113          "0q5wcvnckpfks48hy0gvlfdmvqm67vnblm3912rssmkgc1ysil8z"))))
3114     (build-system gnu-build-system)
3115     (native-inputs
3116      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
3117        ("intltool" ,intltool)
3118        ("pkg-config" ,pkg-config)
3119        ("gobject-introspection" ,gobject-introspection)))
3120     (inputs
3121      `(("glib" ,glib)
3122        ("gtk+" ,gtk+)
3123        ("libxml2" ,libxml2)
3124        ;; XXX TODO: Add oauth
3125        ("libsoup" ,libsoup)
3126        ("totem-pl-parser" ,totem-pl-parser)))
3127     (arguments
3128      `(#:phases
3129        (modify-phases %standard-phases
3130          (add-after 'unpack 'fix-introspection-install-dir
3131                     (lambda* (#:key outputs #:allow-other-keys)
3132                       (let ((out (assoc-ref outputs "out")))
3133                         (substitute* '("src/Makefile.in"
3134                                        "libs/pls/Makefile.in"
3135                                        "libs/net/Makefile.in")
3136                           (("@INTROSPECTION_GIRDIR@")
3137                            (string-append out "/share/gir-1.0/"))
3138                           (("@INTROSPECTION_TYPELIBDIR@")
3139                            (string-append out "/lib/girepository-1.0/")))))))))
3140     (native-search-paths
3141      (list (search-path-specification
3142             (variable "GRL_PLUGIN_PATH")
3143             (files (list (string-append "lib/grilo-"
3144                                         (version-major+minor version)))))))
3145     (home-page "http://live.gnome.org/Grilo")
3146     (synopsis "Framework for discovering and browsing media")
3147     (description
3148      "Grilo is a framework focused on making media discovery and browsing easy
3149 for application developers.")
3150     (license license:lgpl2.1+)))
3151
3152 (define-public grilo-plugins
3153   (package
3154     (name "grilo-plugins")
3155     (version "0.3.1")
3156     (source
3157      (origin
3158        (method url-fetch)
3159        (uri (string-append "mirror://gnome/sources/" name "/"
3160                            (version-major+minor version) "/"
3161                            name "-" version ".tar.xz"))
3162        (sha256
3163         (base32
3164          "1akd7q6pqnkcnayrdfjb0qx5w5yyl06kxzwhqp2gxm4y1b208pb0"))))
3165     (build-system gnu-build-system)
3166     (native-inputs
3167      `(("glib:bin" ,glib "bin")     ; for glib-mkenums and glib-genmarshal
3168        ("intltool" ,intltool)
3169        ("itstool" ,itstool)
3170        ("pkg-config" ,pkg-config)))
3171     (inputs
3172      `(("grilo" ,grilo)
3173        ("nettle" ,nettle) ; XXX: required by libgrlpls-0.3.la
3174        ("glib" ,glib)
3175        ("libxml2" ,libxml2)
3176        ("sqlite" ,sqlite)
3177        ("gom" ,gom)
3178        ;; XXX TODO: Add oauth
3179        ;; XXX TODO: Add goa
3180        ;; XXX TODO: Add gdata (e.g. needed for youtube plugin)
3181        ;; XXX TODO: Add lua (needs help finding it)
3182        ("json-glib" ,json-glib)
3183        ("avahi" ,avahi)
3184        ("gmime" ,gmime)
3185        ("libsoup" ,libsoup)
3186        ("libarchive" ,libarchive)
3187        ("totem-pl-parser" ,totem-pl-parser)))
3188     (arguments
3189      `(#:make-flags (list (string-append "GRL_PLUGINS_DIR="
3190                                          %output
3191                                          "/lib/grilo-"
3192                                          ,(version-major+minor version)))
3193        ;; XXX FIXME: Try to get the test suite working.  It appears to require
3194        ;; a working system dbus.  Inside the build container, all tests fail
3195        ;; with: "assertion failed: (source)".  Outside of the build container,
3196        ;; most tests succeed.
3197        #:tests? #f))
3198     (home-page "http://live.gnome.org/Grilo")
3199     (synopsis "Plugins for the Grilo media discovery library")
3200     (description
3201      "Grilo is a framework focused on making media discovery and browsing easy
3202 for application developers.")
3203     (license license:lgpl2.1+)))
3204
3205 (define-public totem
3206   (package
3207     (name "totem")
3208     (version "3.20.1")
3209     (source
3210      (origin
3211        (method url-fetch)
3212        (uri (string-append "mirror://gnome/sources/" name "/"
3213                            (version-major+minor version) "/"
3214                            name "-" version ".tar.xz"))
3215        (sha256
3216         (base32
3217          "09swnhp46cyy2svqx02fzy555pjgc61lyjw56v9rz1mfc41lh8kg"))
3218        (patches (search-patches "totem-debug-format-fix.patch"))))
3219     (build-system glib-or-gtk-build-system)
3220     (native-inputs
3221      `(("pkg-config" ,pkg-config)
3222        ("desktop-file-utils" ,desktop-file-utils)
3223        ("gobject-introspection" ,gobject-introspection)
3224        ("intltool" ,intltool)
3225        ("itstool" ,itstool)
3226        ("xmllint" ,libxml2)))
3227     (propagated-inputs
3228      `(("dconf" ,dconf)))
3229     (inputs
3230      `(("gtk+" ,gtk+)
3231        ("gdk-pixbuf" ,gdk-pixbuf)
3232        ("atk" ,atk)
3233        ("cairo" ,cairo)
3234        ("dbus-glib" ,dbus-glib)
3235        ("clutter" ,clutter)
3236        ("clutter-gtk" ,clutter-gtk)
3237        ("clutter-gst" ,clutter-gst)
3238        ("xproto" ,xproto)
3239        ("libxxf86vm" ,libxxf86vm)
3240        ("libxtst" ,libxtst)
3241        ("libxrandr" ,libxrandr)
3242        ("libxml2" ,libxml2)
3243        ("libsoup" ,libsoup)
3244        ("libpeas" ,libpeas)
3245        ("librsvg" ,librsvg)
3246        ("lirc" ,lirc)
3247        ("gnome-desktop" ,gnome-desktop)
3248        ("gstreamer" ,gstreamer)
3249        ("gst-plugins-base" ,gst-plugins-base)
3250        ("gst-plugins-good" ,gst-plugins-good)
3251        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3252        ("adwaita-icon-theme" ,adwaita-icon-theme)
3253        ;; XXX We use python-2 because libxml2 because itstool (which needs
3254        ;; libxml) currently uses python-2.
3255        ("python" ,python-2)
3256        ("python-pygobject" ,python2-pygobject)
3257        ;; XXX TODO pylint needed for python support
3258        ("totem-pl-parser" ,totem-pl-parser)
3259        ("grilo" ,grilo)
3260        ("grilo-plugins" ,grilo-plugins)
3261        ("nettle" ,nettle)
3262        ("vala" ,vala)))
3263     (arguments
3264      `(#:phases
3265        (modify-phases %standard-phases
3266          (add-after
3267           'install 'wrap-totem
3268           (lambda* (#:key inputs outputs #:allow-other-keys)
3269             (let ((out             (assoc-ref outputs "out"))
3270                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
3271                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
3272               (wrap-program (string-append out "/bin/totem")
3273                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
3274                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))))
3275             #t)))))
3276     (home-page "https://wiki.gnome.org/Apps/Videos")
3277     (synopsis "Simple media player for GNOME based on GStreamer")
3278     (description "Totem is a simple yet featureful media player for GNOME
3279 which can read a large number of file formats.")
3280     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
3281     ;; to be used and distributed together with GStreamer and Totem.  See
3282     ;; file://COPYING in the source distribution for details.
3283     (license license:gpl2+)))
3284
3285 (define-public rhythmbox
3286  (package
3287    (name "rhythmbox")
3288    (version "3.4")
3289    (source (origin
3290             (method url-fetch)
3291             (uri (string-append "mirror://gnome/sources/" name "/"
3292                                 (version-major+minor version) "/"
3293                                 name "-" version ".tar.xz"))
3294             (sha256
3295              (base32
3296               "1347747m90aiz47wny1f8rdk5195qf2ph0554c6y91711sm951gg"))))
3297    (build-system glib-or-gtk-build-system)
3298    (arguments
3299     `(#:configure-flags
3300       (list "--enable-lirc"
3301             "--enable-python"
3302             "--enable-vala"
3303             "--with-brasero"
3304             "--with-gudev"
3305             "--with-libsecret")
3306       #:phases
3307       (modify-phases %standard-phases
3308         (add-after
3309          'install 'wrap-rhythmbox
3310          (lambda* (#:key inputs outputs #:allow-other-keys)
3311            (let ((out               (assoc-ref outputs "out"))
3312                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
3313                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
3314                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
3315                  (python-path       (getenv "PYTHONPATH")))
3316              (wrap-program (string-append out "/bin/rhythmbox")
3317                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
3318                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
3319                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
3320                `("PYTHONPATH"             ":" prefix (,python-path))))
3321            #t)))))
3322    (propagated-inputs
3323     `(("dconf" ,dconf)))
3324    (native-inputs
3325     `(("itstool" ,itstool)
3326       ("intltool" ,intltool)
3327       ("glib" ,glib "bin")
3328       ("gobject-introspection" ,gobject-introspection)
3329       ("desktop-file-utils" ,desktop-file-utils)
3330       ("pkg-config" ,pkg-config)
3331       ("xmllint" ,libxml2)))
3332    (inputs
3333     `(("json-glib" ,json-glib)
3334       ("tdb" ,tdb)
3335       ("gnome-desktop" ,gnome-desktop)
3336       ("python" ,python)
3337       ("python-pygobject" ,python2-pygobject)
3338       ("vala" ,vala)
3339       ("gmime" ,gmime)
3340       ("nettle" ,nettle)
3341       ("adwaita-icon-theme" ,adwaita-icon-theme)
3342       ("grilo" ,grilo)
3343       ("grilo-plugins" ,grilo-plugins)
3344       ("gstreamer" ,gstreamer)
3345       ("gst-plugins-base" ,gst-plugins-base)
3346       ("gst-plugins-good" ,gst-plugins-good)
3347       ("totem-pl-parser" ,totem-pl-parser)
3348       ("libgudev" ,libgudev)
3349       ;;("libmtp" ,libmtp) FIXME: Not detected
3350       ("libsecret" ,libsecret)
3351       ("libsoup" ,libsoup)
3352       ("libnotify" ,libnotify)
3353       ("libpeas" ,libpeas)
3354       ("lirc" ,lirc)
3355       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
3356       ;;("clutter" ,clutter)
3357       ;;("clutter-gtk" ,clutter-gtk)
3358       ;;("clutter-gst" ,clutter-gst)
3359       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3360       ("atk" ,atk)
3361       ("pango" ,pango)
3362       ("gtk+" ,gtk+)
3363       ;; TODO:
3364       ;;  * libgpod
3365       ;;  * mx
3366       ("brasero" ,brasero)))
3367    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
3368    (synopsis "Music player for GNOME")
3369    (description "Rhythmbox is a music playing application for GNOME.  It
3370 supports playlists, song ratings, and any codecs installed through gstreamer.")
3371    (license license:gpl2+)))
3372
3373 (define-public eog
3374  (package
3375    (name "eog")
3376    (version "3.20.4")
3377    (source (origin
3378             (method url-fetch)
3379             (uri (string-append "mirror://gnome/sources/" name "/"
3380                                 (version-major+minor version) "/"
3381                                 name "-" version ".tar.xz"))
3382             (sha256
3383              (base32
3384               "1qsv3brhi8l8fr22nd3d0fwq5xhwspqw0bammhkkq3ga0z6791wn"))))
3385    (build-system glib-or-gtk-build-system)
3386    (arguments
3387     `(#:phases
3388       (modify-phases %standard-phases
3389         (add-after
3390          'install 'wrap-eog
3391          (lambda* (#:key outputs #:allow-other-keys)
3392            (let ((out               (assoc-ref outputs "out"))
3393                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
3394              (wrap-program (string-append out "/bin/eog")
3395                `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
3396            #t)))))
3397    (propagated-inputs
3398     `(("dconf" ,dconf)))
3399    (native-inputs
3400     `(("intltool" ,intltool)
3401       ("itstool" ,itstool)
3402       ("glib" ,glib "bin")
3403       ("gobject-introspection" ,gobject-introspection)
3404       ("pkg-config" ,pkg-config)
3405       ("xmllint" ,libxml2)))
3406    (inputs
3407     `(("gnome-desktop" ,gnome-desktop)
3408       ("shared-mime-info" ,shared-mime-info)
3409       ("adwaita-icon-theme" ,adwaita-icon-theme)
3410       ("exempi" ,exempi)
3411       ("lcms" ,lcms)
3412       ("libexif" ,libexif)
3413       ("libpeas" ,libpeas)
3414       ("libjpeg" ,libjpeg)
3415       ("librsvg" ,librsvg)
3416       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3417       ("gtk+" ,gtk+)))
3418    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
3419    (synopsis "GNOME image viewer")
3420    (description "Eye of GNOME is the GNOME image viewer.  It
3421 supports image conversion, rotation, and slideshows.")
3422    (license license:gpl2+)))
3423
3424 (define-public libgudev
3425   (package
3426     (name "libgudev")
3427     (version "230")
3428     (source (origin
3429               (method url-fetch)
3430               (uri (string-append "mirror://gnome/sources/" name "/"
3431                                   version "/" name "-" version ".tar.xz"))
3432               (sha256
3433                (base32
3434                 "063w6j35n0i0ssmv58kivc1mw4070z6fzb83hi4xfrhcxnn7zrx2"))))
3435     (build-system gnu-build-system)
3436     (native-inputs
3437      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
3438        ("gobject-introspection" ,gobject-introspection)
3439        ("pkg-config" ,pkg-config)))
3440     (propagated-inputs
3441      `(("glib" ,glib))) ; required by gudev-1.0.pc
3442     (inputs
3443      `(("udev" ,eudev)))
3444     (home-page "https://wiki.gnome.org/Projects/libgudev")
3445     (synopsis "GObject bindings for libudev")
3446     (description
3447      "This library provides GObject bindings for libudev.  It was originally
3448 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
3449     (license license:lgpl2.1+)))
3450
3451 (define-public gvfs
3452   (package
3453     (name "gvfs")
3454     (version "1.28.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                 "05xxy0ids310qy24vmkyl3hc6mq05p39aa8mkr5fzxkhhnv4r325"))))
3463     (build-system gnu-build-system)
3464     (arguments
3465      '(#:tests? #f)) ; XXX: requiring `pidof'
3466     (native-inputs
3467      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
3468        ("intltool" ,intltool)
3469        ("pkg-config" ,pkg-config)
3470        ("xsltproc" ,libxslt)))
3471     (inputs
3472      `(("avahi" ,avahi)
3473        ("docbook-xml" ,docbook-xml-4.2)
3474        ("docbook-xsl" ,docbook-xsl)
3475        ("dbus" ,dbus)
3476        ("fuse" ,fuse)
3477        ("gcr" ,gcr)
3478        ("glib" ,glib)
3479        ("libarchive" ,libarchive)
3480        ("libbluray" ,libbluray)
3481        ("libcdio-paranoia" ,libcdio-paranoia)
3482        ("libgcrypt" ,libgcrypt)
3483        ("libgphoto2" ,libgphoto2)
3484        ("libgudev" ,libgudev)
3485        ("libmtp" ,libmtp)
3486        ("libsecret" ,libsecret)
3487        ("libsmbclient" ,samba)
3488        ("libsoup" ,libsoup)
3489        ("libxml2" ,libxml2)
3490        ("nettle" ,nettle) ; XXX: required by libarchive.pc
3491        ("udisks" ,udisks)))
3492     (home-page "https://wiki.gnome.org/gvfs/")
3493     (synopsis "Userspace virtual file system for GIO")
3494     (description
3495      "GVFS is a userspace virtual file system designed to work with the I/O
3496 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
3497 to all applications using the GIO API.  It also supports exposing the GVFS
3498 mounts to non-GIO applications using FUSE.
3499
3500 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
3501 DAV, and others.")
3502     (license license:lgpl2.0+)))
3503
3504 (define-public gusb
3505   (package
3506     (name "gusb")
3507     (version "0.2.6")
3508     (source (origin
3509               (method url-fetch)
3510               (uri (string-append "https://github.com/hughsie/libgusb/archive/"
3511                                   "gusb_"
3512                                   (string-join (string-split version #\.)
3513                                                "_")
3514                                   ".tar.gz"))
3515               (sha256
3516                (base32
3517                 "0h9dzaza81b0mx5jfh5cnc31xdynl0jsxgwvl6vqyhy8mnwfi5nr"))))
3518     (build-system gnu-build-system)
3519     (native-inputs
3520      `(("glib:bin" ,glib "bin")         ; for glib-genmarshal, etc.
3521        ("gobject-introspection" ,gobject-introspection)
3522        ("pkg-config" ,pkg-config)
3523        ("vala" ,vala)
3524        ("autoconf" ,autoconf)
3525        ("automake" ,automake)
3526        ("libtool" ,libtool)
3527        ("gtk-doc" ,gtk-doc)))
3528     (propagated-inputs
3529      ;; Both of these are required by gusb.pc.
3530      `(("glib" ,glib)
3531        ("libusb" ,libusb)))
3532     (arguments
3533      `(#:tests? #f  ; libusb fails to initialize.  Wonder what that is.
3534        #:phases
3535        (modify-phases %standard-phases
3536          (add-after 'unpack 'autogen
3537                     (lambda _
3538                       (and (zero? (system* "gtkdocize"))
3539                            (zero? (system* "autoreconf" "-vif"))))))))
3540     (home-page "https://github.com/hughsie/libgusb")
3541     (synopsis "GLib binding for libusb1")
3542     (description
3543      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
3544 asynchronous control, bulk and interrupt transfers with proper cancellation
3545 and integration into a mainloop.  This makes it easy to integrate low level
3546 USB transfers with your high-level application or system daemon.")
3547     (license license:lgpl2.1+)))
3548
3549 (define-public simple-scan
3550   (package
3551     (name "simple-scan")
3552     (version "3.22.0.1")
3553     (source (origin
3554               (method url-fetch)
3555               (uri (string-append "https://launchpad.net/simple-scan/"
3556                                   (version-major+minor version) "/"
3557                                   version "/+download/simple-scan-"
3558                                   version ".tar.xz"))
3559               (sha256
3560                (base32
3561                 "0l1b3llkdlqq0bcjx1cadba67l2zb4zfykdaprpjbjbr6gkbc1f5"))))
3562     (build-system glib-or-gtk-build-system)
3563     (inputs
3564      `(("gtk" ,gtk+)
3565        ("zlib" ,zlib)
3566        ("cairo" ,cairo)
3567        ("gdk-pixbuf" ,gdk-pixbuf)
3568        ("gusb" ,gusb)
3569        ("libsane" ,sane-backends)))
3570     (native-inputs
3571      `(("gettext" ,gettext-minimal)
3572        ("itstool" ,itstool)
3573        ("colord" ,colord)
3574        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
3575        ("pkg-config" ,pkg-config)
3576        ("vala" ,vala)
3577        ("xmllint" ,libxml2)))
3578     (arguments
3579      '(#:configure-flags '("--disable-packagekit")
3580        #:phases
3581        (modify-phases %standard-phases
3582          (add-after 'unpack 'clean
3583                     (lambda _
3584                       ;; Remove a left-over reference to PackageKit.
3585
3586                       ;; https://bugs.launchpad.net/simple-scan/+bug/1462769
3587
3588                       ;; There are some generated C files erroneously
3589                       ;; included in the source distribution, and this
3590                       ;; one breaks the build by referring to a
3591                       ;; non-existent header (packagekit.h)
3592                       (delete-file "src/ui.c"))))))
3593     (home-page "https://launchpad.net/simple-scan")
3594     (synopsis "Document and image scanner")
3595     (description "Simple Scan is an easy-to-use application, designed to let
3596 users connect their scanner and quickly have the image/document in an
3597 appropriate format.  Simple Scan is basically a frontend for SANE - which is
3598 the same backend as XSANE uses. This means that all existing scanners will
3599 work and the interface is well tested.")
3600     (license license:gpl3+)))
3601
3602 (define-public epiphany
3603   (package
3604     (name "epiphany")
3605     (version "3.22.0")
3606     (source (origin
3607               (method url-fetch)
3608               (uri (string-append "mirror://gnome/sources/" name "/"
3609                                   (version-major+minor version) "/"
3610                                   name "-" version ".tar.xz"))
3611               (sha256
3612                (base32
3613                 "09rscbmyjxzd8wlibn1fbmbwmlwnahzfl1kkcka6dhm121yd2id6"))))
3614     (build-system glib-or-gtk-build-system)
3615     (arguments
3616      ;; FIXME: tests run under Xvfb, but fail with:
3617      ;;   /src/bookmarks/ephy-bookmarks/create:
3618      ;;   ** (test-ephy-bookmarks:19591): WARNING **: Unable to start Zeroconf
3619      ;;      subsystem
3620      ;;   FAIL
3621      '(#:tests? #f))
3622     (propagated-inputs
3623      `(("dconf" ,dconf)))
3624     (native-inputs
3625      `(("intltool" ,intltool)
3626        ("itstool" ,itstool)
3627        ("pkg-config" ,pkg-config)
3628        ("xmllint" ,libxml2)))
3629     (inputs
3630      `(("avahi" ,avahi)
3631        ("gcr" ,gcr)
3632        ("glib-networking" ,glib-networking)
3633        ("gnome-desktop" ,gnome-desktop)
3634        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3635        ("iso-codes" ,iso-codes)
3636        ("libnotify" ,libnotify)
3637        ("libsecret" ,libsecret)
3638        ("libxslt" ,libxslt)
3639        ("sqlite" ,sqlite)
3640        ("webkitgtk" ,webkitgtk)))
3641     (home-page "https://wiki.gnome.org/Apps/Web")
3642     (synopsis "GNOME web browser")
3643     (description
3644      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
3645 principles are simplicity and standards compliance.")
3646     (license license:gpl2+)))
3647
3648 (define-public d-feet
3649   (package
3650     (name "d-feet")
3651     (version "0.3.10")
3652     (source (origin
3653               (method url-fetch)
3654               (uri (string-append "mirror://gnome/sources/" name "/"
3655                                   (version-major+minor version) "/"
3656                                   name "-" version ".tar.xz"))
3657               (sha256
3658                (base32
3659                 "0nb31bvwnj7pcpm85g8bvgjc6s5kbqy8g4qp7pzqf8w6rdgxzw48"))))
3660     (build-system glib-or-gtk-build-system)
3661     (arguments
3662      '(#:out-of-source? #f ; tests need to run in the source directory.
3663        #:phases
3664        (modify-phases %standard-phases
3665          (add-before
3666           'check 'pre-check
3667           (lambda _
3668             ;; The test suite requires a running X server.
3669             (system "Xvfb :1 &")
3670             (setenv "DISPLAY" ":1")
3671             ;; Don't fail on missing '/etc/machine-id'.
3672             (setenv "DBUS_FATAL_WARNINGS" "0")
3673             ;; tests.py and window.py don't meet E402:
3674             ;;   E402 module level import not at top of file
3675             (substitute* "src/tests/Makefile"
3676               (("--ignore=E123") "--ignore=E123,E402"))
3677             #t))
3678          (add-after
3679           'install 'wrap-program
3680           (lambda* (#:key outputs #:allow-other-keys)
3681             (let ((prog (string-append (assoc-ref outputs "out")
3682                                        "/bin/d-feet")))
3683               (wrap-program prog
3684                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
3685                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
3686               #t))))))
3687     (native-inputs
3688      `(("intltool" ,intltool)
3689        ("itstool" ,itstool)
3690        ("pkg-config" ,pkg-config)
3691        ("python-pep8" ,python-pep8)
3692        ("xmllint" ,libxml2)
3693        ("xorg-server" ,xorg-server)))
3694     (inputs
3695      `(("gobject-introspection" ,gobject-introspection)
3696        ("gtk+" ,gtk+)
3697        ("python" ,python-wrapper)
3698        ("python-pygobject" ,python-pygobject)))
3699     (home-page "https://wiki.gnome.org/Apps/DFeet")
3700     (synopsis "D-Bus debugger")
3701     (description
3702      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
3703 of running programs and invoke methods on those interfaces.")
3704     (license license:gpl2+)))
3705
3706 (define-public yelp-xsl
3707   (package
3708     (name "yelp-xsl")
3709     (version "3.20.1")
3710     (source (origin
3711               (method url-fetch)
3712               (uri (string-append "mirror://gnome/sources/" name "/"
3713                                   (version-major+minor version) "/"
3714                                   name "-" version ".tar.xz"))
3715               (sha256
3716                (base32
3717                 "183vz4aw8fcmw8k8q7r4zrm1p76gwg2cca1fsdrkaiyabng88qfw"))))
3718     (build-system gnu-build-system)
3719     (native-inputs
3720      `(("intltool" ,intltool)
3721        ("itstool" ,itstool)
3722        ("xmllint" ,libxml2)))
3723     (home-page "https://wiki.gnome.org/Apps/Yelp")
3724     (synopsis "XSL stylesheets for Yelp")
3725     (description
3726      "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
3727 to format Docbook and Mallard documents.")
3728     (license license:gpl2+)))
3729
3730 (define-public yelp
3731   (package
3732     (name "yelp")
3733     (version "3.20.1")
3734     (source (origin
3735               (method url-fetch)
3736               (uri (string-append "mirror://gnome/sources/" name "/"
3737                                   (version-major+minor version) "/"
3738                                   name "-" version ".tar.xz"))
3739               (sha256
3740                (base32
3741                 "1hh8yqbv0scn9nksk9mq94cb4sdczlzxplclv2wqr41jmm8v186x"))))
3742     (build-system glib-or-gtk-build-system)
3743     (native-inputs
3744      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
3745        ("intltool" ,intltool)
3746        ("itstool" ,itstool)
3747        ("pkg-config" ,pkg-config)))
3748     (propagated-inputs
3749      `(("dconf" ,dconf)))
3750     (inputs
3751      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3752        ("libxslt" ,libxslt)
3753        ("sqlite" ,sqlite)
3754        ("webkitgtk" ,webkitgtk)
3755        ("yelp-xsl" ,yelp-xsl)))
3756     (home-page "https://wiki.gnome.org/Apps/Yelp")
3757     (synopsis "GNOME help browser")
3758     (description
3759      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
3760 man, info, and HTML documents.  It can locate documents according to the
3761 freedesktop.org help system specification.")
3762     (license license:gpl2+)))
3763
3764 (define-public yelp-tools
3765   (package
3766     (name "yelp-tools")
3767     (version "3.18.0")
3768     (source (origin
3769               (method url-fetch)
3770               (uri (string-append "mirror://gnome/sources/" name "/"
3771                                   (version-major+minor version) "/"
3772                                   name "-" version ".tar.xz"))
3773               (sha256
3774                (base32
3775                 "0ck9f78c1xka8a823bd7w1k0gdn4k19zvaj7viy2d5r3h1gxdhf6"))))
3776     (build-system gnu-build-system)
3777     (native-inputs
3778      `(("pkg-config" ,pkg-config)))
3779     (propagated-inputs
3780      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
3781      `(("itstool" ,itstool)
3782        ("xmllint" ,libxml2)
3783        ("xsltproc" ,libxslt)))
3784     (inputs
3785      `(("yelp-xsl" ,yelp-xsl)))
3786     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
3787     (synopsis "Yelp documentation tools")
3788     (description
3789      "Yelp-tools is a collection of scripts and build utilities to help create,
3790 manage, and publish documentation for Yelp and the web.  Most of the heavy
3791 lifting is done by packages like yelp-xsl and itstool.  This package just
3792 wraps things up in a developer-friendly way.")
3793     (license license:gpl2+)))
3794
3795 (define-public libgee
3796   (package
3797     (name "libgee")
3798     (version "0.18.0")
3799     (source (origin
3800               (method url-fetch)
3801               (uri (string-append "mirror://gnome/sources/" name "/"
3802                                   (version-major+minor version) "/"
3803                                   name "-" version ".tar.xz"))
3804               (sha256
3805                (base32
3806                 "16a34js81w9m2bw4qd8csm4pcgr3zq5z87867j4b8wfh6zwrxnaa"))))
3807     (build-system gnu-build-system)
3808     (arguments
3809      `(#:phases
3810        (modify-phases %standard-phases
3811          (add-after 'unpack 'fix-introspection-install-dir
3812           (lambda* (#:key outputs #:allow-other-keys)
3813             (let ((out (assoc-ref outputs "out")))
3814               (substitute* "gee/Makefile.in"
3815                 (("@INTROSPECTION_GIRDIR@")
3816                  (string-append out "/share/gir-1.0/"))
3817                 (("@INTROSPECTION_TYPELIBDIR@")
3818                  (string-append out "/lib/girepository-1.0/")))))))))
3819     (native-inputs
3820      `(("glib" ,glib "bin")
3821        ("pkg-config" ,pkg-config)))
3822     (inputs
3823      `(("glib" ,glib)
3824        ("gobject-introspection" ,gobject-introspection)))
3825     (home-page "https://wiki.gnome.org/Projects/Libgee")
3826     (synopsis "GObject collection library")
3827     (description
3828      "Libgee is a utility library providing GObject-based interfaces and
3829 classes for commonly used data structures.")
3830     (license license:lgpl2.1+)))
3831
3832 (define-public gexiv2
3833   (package
3834     (name "gexiv2")
3835     (version "0.10.4")
3836     (source (origin
3837               (method url-fetch)
3838               (uri (string-append "mirror://gnome/sources/" name "/"
3839                                   (version-major+minor version) "/"
3840                                   name "-" version ".tar.xz"))
3841               (sha256
3842                (base32
3843                 "190www3b61spfgwx42jw8h5hsz2996jcxky48k63468avjpk33dd"))))
3844     (build-system gnu-build-system)
3845     (native-inputs
3846      `(("glib" ,glib "bin")
3847        ("pkg-config" ,pkg-config)))
3848     (propagated-inputs
3849      ;; Listed in "Requires" section of gexiv2.pc
3850      `(("exiv2" ,exiv2)))
3851     (inputs
3852      `(("glib" ,glib)
3853        ("gobject-introspection" ,gobject-introspection)))
3854     (home-page "https://wiki.gnome.org/Projects/gexiv2")
3855     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
3856     (description
3857      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
3858 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
3859 metadata in photo and video files of various formats.")
3860     (license license:gpl2+)))
3861
3862 (define-public shotwell
3863   (package
3864     (name "shotwell")
3865     (version "0.23.5")
3866     (source (origin
3867               (method url-fetch)
3868               (uri (string-append "mirror://gnome/sources/" name "/"
3869                                   (version-major+minor version) "/"
3870                                   name "-" version ".tar.xz"))
3871               (sha256
3872                (base32
3873                 "0fgs1rgvkmy79bmpxrsvm5w8rvqml4l1vnwma0xqx5zzm02p8a07"))))
3874     (build-system glib-or-gtk-build-system)
3875     (propagated-inputs
3876      `(("dconf" ,dconf)))
3877     (native-inputs
3878      `(("pkg-config" ,pkg-config)
3879        ("itstool" ,itstool)
3880        ("gettext" ,gettext-minimal)
3881        ("itstool" ,itstool)
3882        ("vala" ,vala)))
3883     (inputs
3884      `(("glib:bin" ,glib "bin")
3885        ("gstreamer" ,gstreamer)
3886        ("gst-plugins-base" ,gst-plugins-base)
3887        ("libgee" ,libgee)
3888        ("gexiv2" ,gexiv2)
3889        ("libraw" ,libraw)
3890        ("json-glib" ,json-glib)
3891        ("webkitgtk" ,webkitgtk)
3892        ("sqlite" ,sqlite)
3893        ("libsoup" ,libsoup)
3894        ("libxml2" ,libxml2)
3895        ("libgudev" ,libgudev)
3896        ("libgphoto2" ,libgphoto2)))
3897     (home-page "https://wiki.gnome.org/Apps/Shotwell")
3898     (synopsis "Photo manager for GNOME 3")
3899     (description
3900      "Shotwell is a digital photo manager designed for the GNOME desktop
3901 environment.  It allows you to import photos from disk or camera, organize
3902 them by keywords and events, view them in full-window or fullscreen mode, and
3903 share them with others via social networking and more.")
3904     (license license:lgpl2.1+)))
3905
3906 (define-public file-roller
3907   (package
3908     (name "file-roller")
3909     (version "3.20.3")
3910     (source (origin
3911               (method url-fetch)
3912               (uri (string-append "mirror://gnome/sources/" name "/"
3913                                   (version-major+minor version) "/"
3914                                   name "-" version ".tar.xz"))
3915               (sha256
3916                (base32
3917                 "1sa46vjx78d670m6bikpibgz39a5zb6ri8yjmj632lmxqvj2sp3b"))))
3918     (build-system glib-or-gtk-build-system)
3919     (arguments
3920      '(#:phases
3921        (modify-phases %standard-phases
3922          (add-before 'install 'skip-gtk-update-icon-cache
3923            (lambda _
3924              ;; Don't create 'icon-theme.cache'
3925              (substitute* (find-files "data" "^Makefile$")
3926                (("gtk-update-icon-cache") (which "true")))
3927              #t)))))
3928     (native-inputs
3929      `(("intltool" ,intltool)
3930        ("pkg-config" ,pkg-config)))
3931     ;; TODO: Add libnautilus.
3932     (inputs
3933      `(("gtk+" ,gtk+)
3934        ("gdk-pixbuf" ,gdk-pixbuf)
3935        ("json-glib" ,json-glib)
3936        ("libarchive" ,libarchive)
3937        ("libnotify" ,libnotify)
3938        ("nettle" ,nettle)
3939        ("itstool" ,itstool)
3940        ("libxml2" ,libxml2)))
3941     (synopsis "Graphical archive manager for GNOME")
3942     (description "File Roller is an archive manager for the GNOME desktop
3943 environment that allows users to view, unpack, and create compressed archives
3944 such as gzip tarballs.")
3945     (home-page "http://fileroller.sourceforge.net/")
3946     (license license:gpl2+)))
3947
3948 (define-public gnome-session
3949   (package
3950     (name "gnome-session")
3951     (version "3.20.2")
3952     (source (origin
3953               (method url-fetch)
3954               (uri (string-append "mirror://gnome/sources/" name "/"
3955                                   (version-major+minor version) "/"
3956                                   name "-" version ".tar.xz"))
3957               (sha256
3958                (base32
3959                 "1npnjm6wirz2v0liv7n23ivp2w0y1q230qcdb681hhzmp7h9fpq2"))))
3960     (arguments
3961      '(#:phases
3962        (modify-phases %standard-phases
3963          (add-before 'configure 'pre-configure
3964            (lambda* (#:key outputs #:allow-other-keys)
3965              ;; Use elogind instead of systemd.
3966              (substitute* "configure"
3967                (("libsystemd-login >= 183 libsystemd-daemon libsystemd-journal")
3968                 "libelogind")
3969                (("systemd") "elogind"))
3970              (substitute* "gnome-session/gsm-systemd.c"
3971                (("#include <systemd/sd-login.h>")
3972                 "#include <elogind/sd-login.h>"))
3973              ;; Remove uses of the systemd journal.
3974              (substitute* "gnome-session/main.c"
3975                (("#ifdef HAVE_SYSTEMD") "#if 0"))
3976              (substitute* "gnome-session/gsm-manager.c"
3977                (("#ifdef HAVE_SYSTEMD") "#if 0"))
3978              (substitute* "gnome-session/gsm-autostart-app.c"
3979                (("#ifdef HAVE_SYSTEMD") "#if 0"))
3980              #t))
3981          (add-after 'install 'wrap-gnome-session
3982            (lambda* (#:key inputs outputs #:allow-other-keys)
3983              ;; Make sure 'gnome-session' finds the 'gsettings' program.
3984              (let ((glib (assoc-ref inputs "glib:bin"))
3985                    (out  (assoc-ref outputs "out")))
3986                (wrap-program (string-append out "/bin/gnome-session")
3987                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
3988                #t)))
3989          (add-after 'install 'disable-hardware-acceleration-check
3990            (lambda* (#:key outputs #:allow-other-keys)
3991              ;; Do not abort if hardware acceleration is missing.  This allows
3992              ;; GNOME to run in QEMU and on low-end devices.
3993              (let ((out (assoc-ref outputs "out")))
3994                (substitute* (string-append out
3995                                            "/share/xsessions/gnome.desktop")
3996                  (("gnome-session")
3997                   "gnome-session --disable-acceleration-check"))
3998                #t))))
3999
4000        #:configure-flags
4001        '("--enable-elogind")))
4002     (build-system glib-or-gtk-build-system)
4003     (native-inputs
4004      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4005        ("pkg-config" ,pkg-config)
4006        ("intltool" ,intltool)
4007        ("xsltproc" ,libxslt)))
4008     (inputs
4009      `(("elogind" ,elogind)
4010        ("gnome-desktop" ,gnome-desktop)
4011        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4012        ("gtk+" ,gtk+)
4013        ("json-glib" ,json-glib)
4014        ("libsm" ,libsm)
4015        ("libxcomposite" ,libxcomposite)
4016        ("libxtst" ,libxtst)
4017        ("mesa" ,mesa)
4018        ("upower" ,upower)
4019        ("xtrans" ,xtrans)))
4020     (synopsis "Session manager for GNOME")
4021     (description
4022      "This package contains the GNOME session manager, as well as a
4023 configuration program to choose applications starting on login.")
4024     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
4025     (license license:gpl2+)))
4026
4027 (define-public gjs
4028   (package
4029     (name "gjs")
4030     (version "1.44.0")
4031     (source (origin
4032               (method url-fetch)
4033               (uri (string-append "mirror://gnome/sources/" name "/"
4034                                   (version-major+minor version) "/"
4035                                   name "-" version ".tar.xz"))
4036               (sha256
4037                (base32
4038                 "106fgpr4y99sj68l72pnfa2za11ps4bn6p9z28fr79j7mpv61jc8"))
4039               (modules '((guix build utils)))
4040               (snippet '(substitute* "test/run-with-dbus"
4041                           (("/bin/rm") "rm")))))
4042     (build-system gnu-build-system)
4043     (arguments
4044      '(#:phases
4045        (modify-phases %standard-phases
4046          (add-before
4047           'check 'pre-check
4048           (lambda _
4049             ;; For the missing /etc/machine-id.
4050             (setenv "DBUS_FATAL_WARNINGS" "0")
4051
4052             ;; XXX: fails with:
4053             ;;   Failed to convert UTF-8 string to JS string: ...
4054             ;; TODO: actually fix it.
4055             (substitute* "installed-tests/js/testEverythingBasic.js"
4056               ((".*test_utf8_inout.*") ""))
4057             #t)))))
4058     (native-inputs
4059      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
4060        ("pkg-config" ,pkg-config)
4061        ("xmllint" ,libxml2)
4062        ;; For testing
4063        ("dbus-launch" ,dbus)
4064        ("uuidgen" ,util-linux)
4065        ("xvfb" ,xorg-server)))
4066     (propagated-inputs
4067      ;; These are all in the Requires.private field of gjs-1.0.pc.
4068      `(("gobject-introspection" ,gobject-introspection)
4069        ("mozjs" ,mozjs-24)))
4070     (inputs
4071      `(("gtk+" ,gtk+)
4072        ("readline" ,readline)))
4073     (synopsis "Javascript bindings for GNOME")
4074     (home-page "http://live.gnome.org/Gjs")
4075     (description
4076      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
4077 javascript engine and the GObject introspection framework.")
4078     (license license:gpl2+)))
4079
4080 (define-public gedit
4081   (package
4082     (name "gedit")
4083     (version "3.20.2")
4084     (source (origin
4085               (method url-fetch)
4086               (uri (string-append "mirror://gnome/sources/" name "/"
4087                                   (version-major+minor version) "/"
4088                                   name "-" version ".tar.xz"))
4089               (sha256
4090                (base32
4091                 "1y330hanqfld3kssf77wfphah2qpfg17pa109spsbm50f5m2g89j"))))
4092     (build-system glib-or-gtk-build-system)
4093     (arguments
4094      `(#:configure-flags '("--disable-spell") ; XXX: gspell not packaged yet
4095        #:phases
4096        (modify-phases %standard-phases
4097          (add-after
4098           'install 'wrap-gedit
4099           (lambda* (#:key inputs outputs #:allow-other-keys)
4100             (let ((out               (assoc-ref outputs "out"))
4101                   (gtksourceview     (assoc-ref inputs "gtksourceview"))
4102                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
4103                   (python-path       (getenv "PYTHONPATH")))
4104               (wrap-program (string-append out "/bin/gedit")
4105                 ;; For plugins.
4106                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
4107                 `("PYTHONPATH" ":" prefix (,python-path))
4108                 ;; For language-specs.
4109                 `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
4110                                                               "/share")))))
4111             #t)))))
4112     (propagated-inputs
4113      `(("dconf" ,dconf)))
4114     (native-inputs
4115      `(("intltool" ,intltool)
4116        ("itstool" ,itstool)
4117        ("gobject-introspection" ,gobject-introspection)
4118        ("pkg-config" ,pkg-config)))
4119     (inputs
4120      `(("glib" ,glib)
4121        ("gtk+" ,gtk+)
4122        ("gtksourceview" ,gtksourceview)
4123        ("libpeas" ,libpeas)
4124        ("libxml2" ,libxml2)
4125        ("iso-codes" ,iso-codes)
4126        ("python-pygobject" ,python-pygobject)
4127        ("python" ,python)
4128        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4129        ("libx11" ,libx11)
4130        ("vala" ,vala)
4131        ("adwaita-icon-theme" ,adwaita-icon-theme)
4132        ("libsoup" ,libsoup)
4133        ("gnome-desktop" ,gnome-desktop)))
4134     (home-page "https://wiki.gnome.org/Apps/Gedit")
4135     (synopsis "GNOME text editor")
4136     (description "While aiming at simplicity and ease of use, gedit is a
4137 powerful general purpose text editor.")
4138     (license license:gpl2+)))
4139
4140 (define-public zenity
4141   (package
4142     (name "zenity")
4143     (version "3.20.0")
4144     (source (origin
4145               (method url-fetch)
4146               (uri (string-append "mirror://gnome/sources/" name "/"
4147                                   (version-major+minor version) "/"
4148                                   name "-" version ".tar.xz"))
4149               (sha256
4150                (base32
4151                 "0j2sy6imwp41l75hy3fwr68n35drvanbwgmr42kc04zqjy9pbs02"))))
4152     (build-system gnu-build-system)
4153     (native-inputs
4154      `(("gettext" ,gettext-minimal)
4155        ("itstool" ,itstool)
4156        ("pkg-config" ,pkg-config)))
4157     (inputs
4158      `(("libnotify" ,libnotify)
4159        ("webkitgtk" ,webkitgtk)))
4160     (synopsis "Display graphical dialog boxes from shell scripts")
4161     (home-page "http://www.gnome.org")
4162     (description
4163      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
4164 to display dialog boxes from the commandline and shell scripts.")
4165     (license license:lgpl2.0+)))
4166
4167 (define-public mutter
4168   (package
4169     (name "mutter")
4170     (version "3.20.3")
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                 "05pr78vgq52bkkqpbfnp9mxw14ij2wk91l2yfa69dpjbvxqm4b0l"))))
4179     (build-system gnu-build-system)
4180     (arguments
4181      '(#:configure-flags
4182        ;; XXX: build fails with [-Werror]:
4183        ;;    backends/meta-cursor-renderer.c:112:5: error:
4184        ;;      implicit declaration of function ?roundf?
4185        '("--enable-compile-warnings=minimum")))
4186     (native-inputs
4187      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4188        ("gobject-introspection" ,gobject-introspection)
4189        ("intltool" ,intltool)
4190        ("pkg-config" ,pkg-config)))
4191     (propagated-inputs
4192      ;; libmutter.pc refers to all these.
4193      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4194        ("gtk+" ,gtk+)
4195        ("clutter" ,clutter)))
4196     (inputs
4197      `(("gnome-desktop" ,gnome-desktop)
4198        ("libcanberra-gtk" ,libcanberra)
4199        ("libice" ,libice)
4200        ("libsm" ,libsm)
4201        ("libxkbcommon" ,libxkbcommon)
4202        ("libxkbfile" ,libxkbfile)
4203        ("mesa-headers" ,mesa-headers)
4204        ("startup-notification" ,startup-notification)
4205        ("upower-glib" ,upower)
4206        ("xkeyboard-config" ,xkeyboard-config)
4207        ("zenity" ,zenity)))
4208     (synopsis "Window and compositing manager")
4209     (home-page "http://www.gnome.org")
4210     (description
4211      "Mutter is a window and compositing manager that displays and manages your
4212 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
4213 Clutter toolkit with solid window-management logic inherited from the Metacity
4214 window manager.")
4215     (license license:gpl2+)))
4216
4217 (define-public gnome-online-accounts
4218   (package
4219     (name "gnome-online-accounts")
4220     (version "3.20.3")
4221     (source (origin
4222               (method url-fetch)
4223               (uri (string-append "mirror://gnome/sources/" name "/"
4224                                   (version-major+minor version) "/"
4225                                   name "-" version ".tar.xz"))
4226               (sha256
4227                (base32
4228                 "0ip0q539bik3wqwl867rjc63w2d5rjyvbqzwczkard70yd6c0kq9"))))
4229     (build-system glib-or-gtk-build-system)
4230     (native-inputs
4231      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4232        ("gobject-introspection" ,gobject-introspection)
4233        ("intltool" ,intltool)
4234        ("pkg-config" ,pkg-config)
4235        ("xsltproc" ,libxslt)))
4236     (propagated-inputs
4237      `(("glib" ,glib)           ; required by goa-1.0.pc
4238        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
4239     (inputs
4240      `(("docbook-xsl" ,docbook-xsl)
4241        ("json-glib" ,json-glib)
4242        ("libsecret" ,libsecret)
4243        ("rest" ,rest)
4244        ("telepathy-glib" ,telepathy-glib)
4245        ("webkitgtk" ,webkitgtk)))
4246     (synopsis "Single sign-on framework for GNOME")
4247     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
4248     (description
4249      "GNOME Online Accounts provides interfaces so that applications and
4250 libraries in GNOME can access the user's online accounts.  It has providers for
4251 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
4252 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
4253     (license license:lgpl2.0+)))
4254
4255 (define-public evolution-data-server
4256   (package
4257     (name "evolution-data-server")
4258     (version "3.20.5")
4259     (source (origin
4260               (method url-fetch)
4261               (uri (string-append "mirror://gnome/sources/" name "/"
4262                                   (version-major+minor version) "/"
4263                                   name "-" version ".tar.xz"))
4264               (sha256
4265                (base32
4266                 "0zmybf63y0d5zn48q3xjgkh2p2c3ka9xvzd6labp96bd6b6qc58d"))))
4267     (build-system gnu-build-system)
4268     (arguments
4269      '(;; XXX: fails with:
4270        ;;   /Fixture/Calendar0: cleaning up pid xxxx
4271        ;;   t status: 139)
4272        #:tests? #f
4273        #:configure-flags
4274        (let ((nss  (assoc-ref %build-inputs "nss"))
4275              (nspr (assoc-ref %build-inputs "nspr")))
4276          (list "--disable-uoa"    ; disable Ubuntu Online Accounts support
4277                "--disable-google" ; disable Google Contacts support
4278                "--disable-google-auth" ; disable Google authentication
4279                "--enable-vala-bindings"
4280                (string-append "--with-nspr-includes=" nspr "/include/nspr")
4281                (string-append "--with-nss-includes=" nss "/include/nss")
4282                (string-append "--with-nss-libs=" nss "/lib/nss")))
4283        #:phases
4284        (modify-phases %standard-phases
4285          (add-before 'check 'pre-check
4286           (lambda _
4287             (substitute* "tests/test-server-utils/e-test-server-utils.c"
4288               (("/bin/rm") (which "rm")))
4289             #t)))))
4290     (native-inputs
4291      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
4292        ("gobject-introspection" ,gobject-introspection)
4293        ("gperf" ,gperf)
4294        ("intltool" ,intltool)
4295        ("pkg-config" ,pkg-config)
4296        ("vala" ,vala)
4297        ("python" ,python)))
4298     (propagated-inputs
4299      ;; These are all in the Requires field of .pc files.
4300      `(("gtk+" ,gtk+)
4301        ("libical" ,libical)
4302        ("libsecret" ,libsecret)
4303        ("libsoup" ,libsoup)
4304        ("nss" ,nss)
4305        ("sqlite" ,sqlite)))
4306     (inputs
4307      `(("bdb" ,bdb)
4308        ("gcr" ,gcr)
4309        ("gnome-online-accounts" ,gnome-online-accounts)
4310        ("libgweather" ,libgweather)))
4311     (synopsis "Store address books and calendars")
4312     (home-page "https://wiki.gnome.org/Apps/Evolution")
4313     (description
4314      "This package provides a unified backend for programs that work with
4315 contacts, tasks, and calendar information.  It was originally developed for
4316 Evolution (hence the name), but is now used by other packages as well.")
4317     (license license:lgpl2.0)))
4318
4319 (define-public caribou
4320   (package
4321     (name "caribou")
4322     (version "0.4.21")
4323     (source (origin
4324               (method url-fetch)
4325               (uri (string-append "mirror://gnome/sources/" name "/"
4326                                   (version-major+minor version) "/"
4327                                   name "-" version ".tar.xz"))
4328               (sha256
4329                (base32
4330                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
4331     (build-system glib-or-gtk-build-system)
4332     (arguments
4333      '(#:phases
4334        (modify-phases %standard-phases
4335          (add-before
4336           'build 'pre-build
4337           (lambda* (#:key outputs #:allow-other-keys)
4338             (let ((out (assoc-ref outputs "out")))
4339               ;; Use absolute shared library path in Caribou-1.0.typelib.
4340               (substitute* "libcaribou/Makefile"
4341                 (("--shared-library=libcaribou.so")
4342                  (string-append "--shared-library="
4343                                 out "/lib/libcaribou.so")))
4344               #t)))
4345          (add-after 'install 'wrap-programs
4346           (lambda* (#:key outputs #:allow-other-keys)
4347             (let* ((out (assoc-ref outputs "out"))
4348                    (python-path (getenv "PYTHONPATH"))
4349                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
4350               (for-each
4351                (lambda (prog)
4352                  (wrap-program prog
4353                    `("PYTHONPATH"      ":" prefix (,python-path))
4354                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
4355                (list (string-append out "/bin/caribou-preferences")
4356                      (string-append out "/libexec/antler-keyboard"))))
4357             #t)))))
4358     (native-inputs
4359      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4360        ("gobject-introspection" ,gobject-introspection)
4361        ("intltool" ,intltool)
4362        ("pkg-config" ,pkg-config)
4363        ("python" ,python-2) ; incompatible with Python 3 (print syntax)
4364        ("vala" ,vala)
4365        ("xsltproc" ,libxslt)))
4366     (propagated-inputs
4367      ;; caribou-1.0.pc refers to all these.
4368      `(("libgee" ,libgee)
4369        ("libxklavier" ,libxklavier)
4370        ("libxtst" ,libxtst)
4371        ("gtk+" ,gtk+)))
4372     (inputs
4373      `(("clutter" ,clutter)
4374        ("dconf" ,dconf)
4375        ("gtk+-2" ,gtk+-2)
4376        ("python-pygobject" ,python2-pygobject)))
4377     (synopsis "Text entry and UI navigation application")
4378     (home-page "https://wiki.gnome.org/Projects/Caribou")
4379     (description
4380      "Caribou is an input assistive technology intended for switch and pointer
4381 users.")
4382     (license license:lgpl2.1)))
4383
4384 (define-public network-manager
4385   (package
4386     (name "network-manager")
4387     (version "1.2.0")
4388     (source (origin
4389               (method url-fetch)
4390               (uri (string-append "mirror://gnome/sources/NetworkManager/"
4391                                   (version-major+minor version) "/"
4392                                   "NetworkManager-" version ".tar.xz"))
4393               (sha256
4394                (base32
4395                 "101axwk3bc1pm9m98vwrnxyjna6w0qgzaskgivldq69xz8qcyiz9"))))
4396     (build-system gnu-build-system)
4397     (outputs '("out"
4398                "doc")) ; 8 MiB of gtk-doc HTML
4399     (arguments
4400      '(#:configure-flags
4401        (let ((out      (assoc-ref %outputs "out"))
4402              (doc      (assoc-ref %outputs "doc"))
4403              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
4404                                       "/sbin/dhclient")))
4405          (list "--with-crypto=gnutls"
4406                "--disable-config-plugin-ibft"
4407                "--sysconfdir=/etc"
4408                "--localstatedir=/var"
4409                (string-append "--with-udev-dir="
4410                               out "/lib/udev")
4411                (string-append "--with-dbus-sys-dir="
4412                               out "/etc/dbus-1/system.d")
4413                (string-append "--with-html-dir="
4414                               doc "/share/gtk-doc/html")
4415                (string-append "--with-dhclient=" dhclient)))
4416        #:phases
4417        (modify-phases %standard-phases
4418          (add-before 'configure 'pre-configure
4419            (lambda _
4420              ;; These tests try to test aspects of network-manager's
4421              ;; functionality within restricted containers, but they don't
4422              ;; cope with being already in the Guix build jail as that jail
4423              ;; lacks some features that they would like to proxy over (like
4424              ;; a /sys mount).
4425              (substitute* '("src/platform/Makefile.in"
4426                             "src/devices/Makefile.in")
4427                (("SUBDIRS = tests") ""))
4428              (substitute* '("src/tests/Makefile.in")
4429                (("\ttest-route-manager-linux") "\t")
4430                (("\ttest-route-manager-fake") "\t"))
4431              #t))
4432          (add-before 'check 'pre-check
4433            (lambda _
4434              ;; For the missing /etc/machine-id.
4435              (setenv "DBUS_FATAL_WARNINGS" "0")
4436              #t))
4437          (replace 'install
4438            (lambda _
4439              (zero? (system* "make"
4440                              "sysconfdir=/tmp"
4441                              "rundir=/tmp"
4442                              "statedir=/tmp"
4443                              "install")))))))
4444     (propagated-inputs
4445      `(("glib" ,glib)))
4446     (native-inputs
4447      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
4448        ("gobject-introspection" ,gobject-introspection)
4449        ("intltool" ,intltool)
4450        ("pkg-config" ,pkg-config)
4451        ;; For testing.
4452        ("python" ,python-wrapper)
4453        ("python-dbus" ,python-dbus)
4454        ("python-pygobject" ,python-pygobject)))
4455     (inputs
4456      `(("dbus-glib" ,dbus-glib)
4457        ("dnsmasq" ,dnsmasq)
4458        ("gnutls" ,gnutls)
4459        ("iptables" ,iptables)
4460        ("isc-dhcp" ,isc-dhcp)
4461        ("libgcrypt" ,libgcrypt)
4462        ("libgudev" ,libgudev)
4463        ("libndp" ,libndp)
4464        ("libnl" ,libnl)
4465        ("libsoup" ,libsoup)
4466        ("modem-manager" ,modem-manager)
4467        ("polkit" ,polkit)
4468        ("ppp" ,ppp)
4469        ("readline" ,readline)
4470        ("util-linux" ,util-linux)))
4471     (synopsis "Network connection manager")
4472     (home-page "http://www.gnome.org/projects/NetworkManager/")
4473     (description
4474      "NetworkManager is a system network service that manages your network
4475 devices and connections, attempting to keep active network connectivity when
4476 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
4477 devices, and provides VPN integration with a variety of different VPN
4478 services.")
4479     (license license:gpl2+)))
4480
4481 (define-public mobile-broadband-provider-info
4482   (package
4483     (name "mobile-broadband-provider-info")
4484     (version "20151214")
4485     (source (origin
4486               (method url-fetch)
4487               (uri (string-append
4488                     "mirror://gnome/sources/"
4489                     "mobile-broadband-provider-info/" version "/"
4490                     "mobile-broadband-provider-info-" version ".tar.xz"))
4491               (sha256
4492                (base32
4493                 "1905nab1h8p4hx0m1w0rn4mkg9209x680dcr4l77bngy21pmvr4a"))))
4494     (build-system gnu-build-system)
4495     (arguments
4496      `(#:tests? #f)) ; No tests
4497     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
4498     (synopsis "Database of broadband connection configuration")
4499     (description "Database of broadband connection configuration.")
4500     (license license:public-domain)))
4501
4502 (define-public network-manager-applet
4503   (package
4504     (name "network-manager-applet")
4505     (version "1.2.4")
4506     (source (origin
4507               (method url-fetch)
4508               (uri (string-append "mirror://gnome/sources/" name "/"
4509                                   (version-major+minor version) "/"
4510                                   name "-" version ".tar.xz"))
4511               (sha256
4512                (base32
4513                 "0ym31m55hj65mmbq2yihy49z5x5z1qpx7jalk64kwx1rr5b2kxyz"))))
4514     (build-system glib-or-gtk-build-system)
4515     (arguments '(#:configure-flags '("--disable-migration")))
4516     (native-inputs
4517      `(("intltool" ,intltool)
4518        ("gobject-introspection" ,gobject-introspection)
4519        ("pkg-config" ,pkg-config)))
4520     (propagated-inputs
4521      ;; libnm-gtk.pc refers to all these.
4522      `(("dbus-glib" ,dbus-glib)
4523        ("gtk+" ,gtk+)
4524        ("network-manager" ,network-manager)))
4525     (inputs
4526      `(("iso-codes" ,iso-codes)
4527        ("libgudev" ,libgudev)
4528        ("libnotify" ,libnotify)
4529        ("libsecret" ,libsecret)))
4530     (synopsis "Applet for managing network connections")
4531     (home-page "http://www.gnome.org/projects/NetworkManager/")
4532     (description
4533      "This package contains a systray applet for NetworkManager.  It displays
4534 the available networks and allows users to easily switch between them.")
4535     (license license:gpl2+)))
4536
4537 (define-public libxml++
4538   (package
4539     (name "libxml++")
4540     (version "3.0.0")
4541     (source (origin
4542               (method url-fetch)
4543               (uri (string-append "mirror://gnome/sources/" name "/"
4544                                   (version-major+minor version) "/"
4545                                   name "-" version ".tar.xz"))
4546               (sha256
4547                (base32
4548                 "0lkrajbdys5f6w6qwfijih3hnbk4c6809qx2mmxkb7bj2w269wrg"))))
4549     (build-system gnu-build-system)
4550     ;; libxml++-3.0.pc refers to all these.
4551     (propagated-inputs
4552      `(("libxml2" ,libxml2)
4553        ("glibmm" ,glibmm)))
4554     (native-inputs
4555      `(("perl" ,perl)
4556        ("pkg-config" ,pkg-config)))
4557     (home-page "http://libxmlplusplus.sourceforge.net/")
4558     (synopsis "C++ wrapper for XML parser library libxml2")
4559     (description
4560      "This package provides a C++ wrapper for the XML parser library
4561 libxml2.")
4562     (license license:lgpl2.1+)))
4563
4564 (define-public libxml++-2
4565   (package
4566     (inherit libxml++)
4567     (name "libxml++")
4568     (version "2.40.1")
4569     (source (origin
4570               (method url-fetch)
4571               (uri (string-append "mirror://gnome/sources/" name "/"
4572                                   (version-major+minor version) "/"
4573                                   name "-" version ".tar.xz"))
4574               (sha256
4575                (base32
4576                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
4577
4578 (define-public gdm
4579   (package
4580     (name "gdm")
4581     (version "3.20.1")
4582     (source (origin
4583               (method url-fetch)
4584               (uri (string-append "mirror://gnome/sources/" name "/"
4585                                   (version-major+minor version) "/"
4586                                   name "-" version ".tar.xz"))
4587               (sha256
4588                (base32
4589                 "17vqcnqnwx7s5xzgn358gsgbmpz7k90sh1qrwrh3wnj5r0pm38hh"))))
4590     (build-system gnu-build-system)
4591     (arguments
4592      '(#:configure-flags
4593        '("--without-plymouth")
4594        #:phases
4595        (modify-phases %standard-phases
4596          (add-before
4597           'configure 'pre-configure
4598           (lambda _
4599             ;; We don't have <systemd/sd-daemon.h>.
4600             (substitute* '("common/gdm-log.c"
4601                            "daemon/gdm-server.c"
4602                            "daemon/gdm-session-worker.c"
4603                            "daemon/gdm-session-worker-job.c")
4604               (("#include <systemd/sd-daemon\\.h>") ""))
4605             ;; Use elogind for sd-login.
4606             (substitute* '("common/gdm-common.c"
4607                            "daemon/gdm-manager.c"
4608                            "libgdm/gdm-user-switching.c")
4609               (("#include <systemd/sd-login\\.h>")
4610                "#include <elogind/sd-login.h>"))
4611             ;; Avoid checking SYSTEMD using pkg-config.
4612             (setenv "SYSTEMD_CFLAGS" " ")
4613             (setenv "SYSTEMD_LIBS" "-lelogind")
4614             #t)))))
4615     (native-inputs
4616      `(("dconf" ,dconf)
4617        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4618        ("gobject-introspection" ,gobject-introspection)
4619        ("intltool" ,intltool)
4620        ("itstool" ,itstool)
4621        ("pkg-config" ,pkg-config)
4622        ("xmllint" ,libxml2)))
4623     (inputs
4624      `(("accountsservice" ,accountsservice)
4625        ("check" ,check) ; for testing
4626        ("elogind" ,elogind)
4627        ("gtk+" ,gtk+)
4628        ("iso-codes" ,iso-codes)
4629        ("libcanberra" ,libcanberra)
4630        ("linux-pam" ,linux-pam)))
4631     (synopsis "Display manager for GNOME")
4632     (home-page "http://wiki.gnome.org/Projects/GDM/")
4633     (description
4634      "GNOME Display Manager is a system service that is responsible for
4635 providing graphical log-ins and managing local and remote displays.")
4636     (license license:gpl2+)))
4637
4638 (define-public libgtop
4639   (package
4640     (name "libgtop")
4641     (version "2.34.1")
4642     (source (origin
4643               (method url-fetch)
4644               (uri (string-append "mirror://gnome/sources/" name "/"
4645                                   (version-major+minor version) "/"
4646                                   name "-" version ".tar.xz"))
4647               (sha256
4648                (base32
4649                 "1qh9srg8pqmrsl12mwnclncs7agmjjvx3q6v5qwqvcb2cskpi6f8"))))
4650     (build-system gnu-build-system)
4651     (native-inputs
4652      `(("gobject-introspection" ,gobject-introspection)
4653        ("intltool" ,intltool)
4654        ("perl" ,perl)
4655        ("pkg-config" ,pkg-config)))
4656     (propagated-inputs
4657      `(("glib" ,glib))) ; required by libgtop-2.0.pc
4658     (synopsis "Portable system access library")
4659     (home-page "https://www.gnome.org/")
4660     (description
4661      "LibGTop is a library to get system specific data such as CPU and memory
4662 usage and information about running processes.")
4663     (license license:gpl2+)))
4664
4665 (define-public gnome-bluetooth
4666   (package
4667     (name "gnome-bluetooth")
4668     (version "3.20.0")
4669     (source (origin
4670               (method url-fetch)
4671               (uri (string-append "mirror://gnome/sources/" name "/"
4672                                   (version-major+minor version) "/"
4673                                   name "-" version ".tar.xz"))
4674               (sha256
4675                (base32
4676                 "0lzbwk2kn7kp39sv5bf4ja92mfkxkc27gxxk8k86i8a8ncbcmcwk"))))
4677     (build-system glib-or-gtk-build-system)
4678     (native-inputs
4679      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
4680        ("gobject-introspection" ,gobject-introspection)
4681        ("intltool" ,intltool)
4682        ("pkg-config" ,pkg-config)
4683        ("xmllint" ,libxml2)))
4684     (propagated-inputs
4685      ;; gnome-bluetooth-1.0.pc refers to all these.
4686      `(("gtk+" ,gtk+)
4687        ("udev" ,eudev)))
4688     (inputs
4689      `(("libcanberra" ,libcanberra)
4690        ("libnotify" ,libnotify)))
4691     (synopsis "GNOME Bluetooth subsystem")
4692     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
4693     (description
4694      "This package contains tools for managing and manipulating Bluetooth
4695 devices using the GNOME desktop.")
4696     (license license:lgpl2.1+)))
4697
4698 (define-public gnome-control-center
4699   (package
4700     (name "gnome-control-center")
4701     (version "3.20.1")
4702     (source (origin
4703               (method url-fetch)
4704               (uri (string-append "mirror://gnome/sources/" name "/"
4705                                   (version-major+minor version) "/"
4706                                   name "-" version ".tar.xz"))
4707               (sha256
4708                (base32
4709                 "1vd1h31vwyq7ss5f1151gx1vdsy35sjmapjmmz7x73ppc3y78r6f"))))
4710     (build-system glib-or-gtk-build-system)
4711     (arguments
4712      '(#:phases
4713        (modify-phases %standard-phases
4714          (add-before 'configure 'patch-paths
4715            (lambda* (#:key inputs #:allow-other-keys)
4716              (let ((libc   (assoc-ref inputs "libc"))
4717                    (tzdata (assoc-ref inputs "tzdata")))
4718                (substitute* "panels/datetime/tz.h"
4719                  (("/usr/share/zoneinfo/zone.tab")
4720                   (string-append tzdata "/share/zoneinfo/zone.tab")))
4721                (substitute* "panels/datetime/test-endianess.c"
4722                  (("/usr/share/locale")
4723                   (string-append libc "/share/locale")))
4724                #t))))))
4725     (native-inputs
4726      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
4727        ("intltool" ,intltool)
4728        ("pkg-config" ,pkg-config)
4729        ("xsltproc" ,libxslt)))
4730     (inputs
4731      `(("accountsservice" ,accountsservice)
4732        ("clutter-gtk" ,clutter-gtk)
4733        ("colord-gtk" ,colord-gtk)
4734        ("cups" ,cups)
4735        ("dconf" ,dconf)
4736        ("docbook-xsl" ,docbook-xsl)
4737        ("gnome-bluetooth" ,gnome-bluetooth)
4738        ("gnome-desktop" ,gnome-desktop)
4739        ("gnome-online-accounts" ,gnome-online-accounts)
4740        ("gnome-settings-daemon" ,gnome-settings-daemon)
4741        ("grilo" ,grilo)
4742        ("ibus" ,ibus)
4743        ("libcanberra" ,libcanberra)
4744        ("libgudev" ,libgudev)
4745        ("libgtop" ,libgtop)
4746        ("libpwquality" ,libpwquality)
4747        ("libsoup" ,libsoup)
4748        ("libxml2" ,libxml2)
4749        ("libwacom" ,libwacom)
4750        ("mesa" ,mesa)
4751        ("mit-krb5" ,mit-krb5)
4752        ("modem-manager" ,modem-manager)
4753        ("network-manager-applet" ,network-manager-applet)
4754        ("polkit" ,polkit)
4755        ("pulseaudio" ,pulseaudio)
4756        ("smbclient" ,samba)
4757        ("tzdata" ,tzdata)
4758        ("upower" ,upower)))
4759     (synopsis "Utilities to configure the GNOME desktop")
4760     (home-page "https://www.gnome.org/")
4761     (description
4762      "This package contains configuration applets for the GNOME desktop,
4763 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
4764 properties, sound setup, desktop theme and background, user interface
4765 properties, screen resolution, and other GNOME parameters.")
4766     (license license:gpl2+)))
4767
4768 (define-public gnome-shell
4769   (package
4770     (name "gnome-shell")
4771     (version "3.20.4")
4772     (source (origin
4773               (method url-fetch)
4774               (uri (string-append "mirror://gnome/sources/" name "/"
4775                                   (version-major+minor version) "/"
4776                                   name "-" version ".tar.xz"))
4777               (sha256
4778                (base32
4779                 "0kd9y847pw9v3zl0g52ly7xdcjz0b9v37aqmi19iddfkxjjyn4qc"))))
4780     (build-system glib-or-gtk-build-system)
4781     (arguments
4782      '(#:phases
4783        (modify-phases %standard-phases
4784          (replace 'install
4785            (lambda* (#:key outputs #:allow-other-keys)
4786              (let* ((out     (assoc-ref outputs "out"))
4787                     (keysdir (string-append
4788                               out "/share/gnome-control-center/keybindings")))
4789                (zero? (system* "make"
4790                                (string-append "keysdir=" keysdir)
4791                                "install")))))
4792          (add-after
4793           'install 'wrap-programs
4794           (lambda* (#:key outputs #:allow-other-keys)
4795             (let ((out              (assoc-ref outputs "out"))
4796                   (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
4797                   (python-path      (getenv "PYTHONPATH")))
4798               (wrap-program (string-append out "/bin/gnome-shell")
4799                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
4800               (for-each
4801                (lambda (prog)
4802                  (wrap-program (string-append out "/bin/" prog)
4803                    `("PYTHONPATH"      ":" prefix (,python-path))
4804                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
4805                '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
4806               #t))))))
4807     (native-inputs
4808      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4809        ("gobject-introspection" ,gobject-introspection)
4810        ("intltool" ,intltool)
4811        ("pkg-config" ,pkg-config)
4812        ("python" ,python)
4813        ("xsltproc" ,libxslt)))
4814     (inputs
4815      `(("accountsservice" ,accountsservice)
4816        ("caribou" ,caribou)
4817        ("docbook-xsl" ,docbook-xsl)
4818        ("evolution-data-server" ,evolution-data-server)
4819        ("gcr" ,gcr)
4820        ("gdm" ,gdm)
4821        ("gjs" ,gjs)
4822        ("gnome-bluetooth" ,gnome-bluetooth)
4823        ("gnome-control-center" ,gnome-control-center)
4824        ("gnome-desktop" ,gnome-desktop)
4825        ("gnome-settings-daemon" ,gnome-settings-daemon)
4826        ("gst-plugins-base" ,gst-plugins-base)
4827        ("ibus" ,ibus)
4828        ("libcanberra" ,libcanberra)
4829        ("libcroco" ,libcroco)
4830        ("libgweather" ,libgweather)
4831        ("libsoup" ,libsoup)
4832        ("mesa-headers" ,mesa-headers)
4833        ("mutter" ,mutter)
4834        ("network-manager-applet" ,network-manager-applet)
4835        ("polkit" ,polkit)
4836        ("pulseaudio" ,pulseaudio)
4837        ("python-pygobject" ,python-pygobject)
4838        ("startup-notification" ,startup-notification)
4839        ("telepathy-logger" ,telepathy-logger)
4840        ("upower" ,upower)
4841        ;; XXX: required by libgjs.la.
4842        ("readline" ,readline)))
4843     (synopsis "Desktop shell for GNOME")
4844     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
4845     (description
4846      "GNOME Shell provides core user interface functions for the GNOME desktop,
4847 like switching to windows and launching applications.")
4848     (license license:gpl2+)))
4849
4850 (define-public gtk-vnc
4851   (package
4852     (name "gtk-vnc")
4853     (version "0.6.0")
4854     (source
4855      (origin
4856        (method url-fetch)
4857        (uri (string-append "mirror://gnome/sources/" name "/"
4858                            (version-major+minor version) "/"
4859                            name "-" version ".tar.xz"))
4860        (sha256
4861         (base32
4862          "0cq42dghjp4bhsxlj9hd2nz5s5rhd53fx7snmq6i6kg60n438ncm"))))
4863     (build-system gnu-build-system)
4864     (arguments
4865      '(#:configure-flags '("--with-gtk=3.0")))
4866     (propagated-inputs
4867      `(("gtk+" ,gtk+))) ; required by gtk-vnc-2.0.pc.
4868     (inputs
4869      `(("cyrus-sasl" ,cyrus-sasl)
4870        ("gnutls" ,gnutls)
4871        ("libgcrypt" ,libgcrypt)
4872        ("pulseaudio" ,pulseaudio)))
4873     (native-inputs
4874      `(("glib:bin" ,glib "bin")
4875        ("gobject-introspection" ,gobject-introspection)
4876        ("intltool" ,intltool)
4877        ("pkg-config" ,pkg-config)
4878        ("vala" ,vala)))
4879     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
4880     (synopsis "VNC viewer widget for GTK+")
4881     (description
4882      "GTK-VNC is a VNC viewer widget for GTK+, used by remote desktop viewing
4883 applications, for instance the Vinagre client, GNOME Boxes and virt-viewer.
4884 GTK-VNC implements client side RFB protocol and authentication extensions such
4885 as SASL, TLS and VeNCrypt.  Additionally it supports encoding extensions.")
4886     (license license:lgpl2.1+)))
4887
4888 (define-public nautilus
4889   (package
4890     (name "nautilus")
4891     (version "3.20.2")
4892     (source (origin
4893               (method url-fetch)
4894               (uri (string-append "mirror://gnome/sources/" name "/"
4895                                   (version-major+minor version) "/"
4896                                   name "-" version ".tar.xz"))
4897               (sha256
4898                (base32
4899                 "1bnalv0ljdjzqzvh3rfyg7r4z8vdbq1gdard5q68riqdi2dnfvld"))))
4900     (build-system glib-or-gtk-build-system)
4901     (arguments
4902      '(#:configure-flags
4903        '("--disable-tracker" "--disable-selinux") ; XXX: not packaged
4904        ;; XXX: FAIL: check-nautilus
4905        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
4906        #:tests? #f))
4907     (native-inputs
4908      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
4909        ("gobject-introspection" ,gobject-introspection)
4910        ("intltool" ,intltool)
4911        ("pkg-config" ,pkg-config)))
4912     (inputs
4913      `(("dconf" ,dconf)
4914        ("gvfs" ,gvfs)
4915        ("exempi" ,exempi)
4916        ("gnome-desktop" ,gnome-desktop)
4917        ;; XXX: gtk+ is required by libnautilus-extension.pc
4918        ;;
4919        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
4920        ;; package.  See:
4921        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
4922        ("gtk+" ,gtk+)
4923        ("libexif" ,libexif)
4924        ("libxml2" ,libxml2)))
4925     (synopsis "File manager for GNOME")
4926     (home-page "https://wiki.gnome.org/Apps/Nautilus")
4927     (description
4928      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
4929 design and behaviour, giving the user a simple way to navigate and manage its
4930 files.")
4931     (license license:gpl2+)))
4932
4933 (define-public baobab
4934   (package
4935     (name "baobab")
4936     (version "3.20.1")
4937     (source (origin
4938               (method url-fetch)
4939               (uri (string-append
4940                     "mirror://gnome/sources/" name "/"
4941                     (version-major+minor version) "/"
4942                     name "-" version ".tar.xz"))
4943               (sha256
4944                (base32
4945                 "07wx4jb3nmipd4caybv21hl8h0gb282qc5a24b731mxhfqmg3pz9"))))
4946     (build-system glib-or-gtk-build-system)
4947     (native-inputs
4948      `(("intltool" ,intltool)
4949        ("pkg-config" ,pkg-config)
4950        ("itstool" ,itstool)
4951        ("xmllint" ,libxml2)
4952        ("glib" ,glib "bin")
4953        ("vala" ,vala)))
4954     (inputs
4955      `(("gtk+" ,gtk+)))
4956     (synopsis "Disk usage analyzer for GNOME")
4957     (description
4958      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
4959 usage in the GNOME desktop environment.  It can easily scan device volumes or
4960 a specific user-requested directory branch (local or remote).  Once the scan
4961 is complete it provides a graphical representation of each selected folder.")
4962     (home-page "https://wiki.gnome.org/Apps/Baobab")
4963     (license license:gpl2+)))
4964
4965 (define-public gnome-backgrounds
4966   (package
4967     (name "gnome-backgrounds")
4968     (version "3.20")
4969     (source
4970      (origin
4971        (method url-fetch)
4972        (uri (string-append "mirror://gnome/sources/" name "/"
4973                            (version-major+minor version) "/"
4974                            name "-" version ".tar.xz"))
4975        (sha256
4976         (base32
4977          "09viag7q53lfwrp074a1w7j0r8izlwpi10xbwjgbf5jwbqb6wv6n"))))
4978     (build-system glib-or-gtk-build-system)
4979     (native-inputs
4980      `(("intltool" ,intltool)))
4981     (home-page "https://git.gnome.org/browse/gnome-backgrounds")
4982     (synopsis "Background images for the GNOME desktop")
4983     (description
4984      "GNOME backgrounds package contains a collection of graphics files which
4985 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
4986 the package creates the proper framework and directory structure so that you
4987 can add your own files to the collection.")
4988     (license (list license:gpl2+
4989                    license:cc-by2.0
4990                    license:cc-by-sa2.0
4991                    license:cc-by-sa3.0))))
4992
4993 (define-public gnome-screenshot
4994   (package
4995     (name "gnome-screenshot")
4996     (version "3.20.1")
4997     (source
4998      (origin
4999        (method url-fetch)
5000        (uri (string-append "mirror://gnome/sources/" name "/"
5001                            (version-major+minor version) "/"
5002                            name "-" version ".tar.xz"))
5003        (sha256
5004         (base32
5005          "0hz1ywgb5vbfqr0p0cr20hmz5b11msyi3psanszdnv0lhxl9pa06"))))
5006     (build-system glib-or-gtk-build-system)
5007     (native-inputs
5008      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5009        ("intltool" ,intltool)
5010        ("pkg-config" ,pkg-config)))
5011     (inputs
5012      `(("gtk+" ,gtk+)
5013        ("libcanberra" ,libcanberra)
5014        ("libx11" ,libx11)
5015        ("libxext" ,libxext)))
5016     (home-page "https://git.gnome.org/browse/gnome-screenshot")
5017     (synopsis "Take pictures of your screen")
5018     (description
5019      "GNOME Screenshot is a utility used for taking screenshots of the entire
5020 screen, a window or a user defined area of the screen, with optional
5021 beautifying border effects.")
5022     (license license:gpl2+)))
5023
5024 (define-public dconf-editor
5025   (package
5026     (name "dconf-editor")
5027     (version "3.20.3")
5028     (source
5029      (origin
5030        (method url-fetch)
5031        (uri (string-append "mirror://gnome/sources/" name "/"
5032                            (version-major+minor version) "/"
5033                            name "-" version ".tar.xz"))
5034        (sha256
5035         (base32
5036          "0yf553bd9l030shhs0jkl5gvkzkfxbxxm56xv0l0nmbplaci8wm8"))))
5037     (build-system glib-or-gtk-build-system)
5038     (arguments
5039      '(#:phases
5040        (modify-phases %standard-phases
5041          (add-before 'install 'skip-gtk-update-icon-cache
5042            (lambda _
5043              ;; Don't create 'icon-theme.cache'.
5044              (substitute* "editor/Makefile"
5045                (("gtk-update-icon-cache") "true"))
5046              #t)))))
5047     (native-inputs
5048      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
5049        ("intltool" ,intltool)
5050        ("pkg-config" ,pkg-config)))
5051     (inputs
5052      `(("dconf" ,dconf)
5053        ("gtk+" ,gtk+)
5054        ("libxml2" ,libxml2)))
5055     (home-page "https://git.gnome.org/browse/dconf-editor")
5056     (synopsis "Graphical editor for GNOME's dconf configuration system")
5057     (description
5058      "Dconf-editor is a graphical tool for browsing and editing the dconf
5059 configuration system for GNOME.  It allows users to configure desktop
5060 software that do not provide their own configuration interface.")
5061     (license license:lgpl2.1+)))
5062
5063 (define-public gnome
5064   (package
5065     (name "gnome")
5066     (version (package-version gnome-shell))
5067     (source #f)
5068     (build-system trivial-build-system)
5069     (arguments '(#:builder (mkdir %output)))
5070     (propagated-inputs
5071      ;; TODO: Add more packages according to:
5072      ;;       <https://packages.debian.org/jessie/gnome-core>.
5073      `(("adwaita-icon-theme"        ,adwaita-icon-theme)
5074        ("baobab"                    ,baobab)
5075        ("font-cantarell"            ,font-cantarell)
5076        ("at-spi2-core"              ,at-spi2-core)
5077        ("dbus"                      ,dbus)
5078        ("dconf"                     ,dconf)
5079        ("desktop-file-utils"        ,desktop-file-utils)
5080        ("eog"                       ,eog)
5081        ("epiphany"                  ,epiphany)
5082        ("evince"                    ,evince)
5083        ("file-roller"               ,file-roller)
5084        ("gedit"                     ,gedit)
5085        ("glib-networking"           ,glib-networking)
5086        ("gnome-backgrounds"         ,gnome-backgrounds)
5087        ("gnome-control-center"      ,gnome-control-center)
5088        ("gnome-keyring"             ,gnome-keyring)
5089        ("gnome-session"             ,gnome-session)
5090        ("gnome-settings-daemon"     ,gnome-settings-daemon)
5091        ("gnome-shell"               ,gnome-shell)
5092        ("gnome-terminal"            ,gnome-terminal)
5093        ("gnome-themes-standard"     ,gnome-themes-standard)
5094        ("gvfs"                      ,gvfs)
5095        ("hicolor-icon-theme"        ,hicolor-icon-theme)
5096        ("nautilus"                  ,nautilus)
5097        ("pinentry-gnome3"           ,pinentry-gnome3)
5098        ("pulseaudio"                ,pulseaudio)
5099        ("shared-mime-info"          ,shared-mime-info)
5100        ("totem"                     ,totem)
5101        ("yelp"                      ,yelp)
5102        ("zenity"                    ,zenity)))
5103     (synopsis "The GNU desktop environment")
5104     (home-page "https://www.gnome.org/")
5105     (description
5106      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
5107 applications for browsing the web, editing text and images, creating
5108 documents and diagrams, playing media, scanning, and much more.")
5109     (license license:gpl2+)))
5110
5111 (define-public byzanz
5112   ;; The last stable release of Byzanz was in 2011, but there have been many
5113   ;; useful commits made to the Byzanz repository since then that it would be
5114   ;; silly to use such an old release.
5115   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
5116     (package
5117       (name "byzanz")
5118       (version (string-append "0.2-1." (string-take commit 7)))
5119       (source (origin
5120                 (method git-fetch)
5121                 (uri (git-reference
5122                       (url "git://git.gnome.org/byzanz")
5123                       (commit commit)))
5124                 (sha256
5125                  (base32
5126                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
5127       (build-system glib-or-gtk-build-system)
5128       (arguments
5129        '(#:phases
5130          (modify-phases %standard-phases
5131            (add-after 'unpack 'bootstrap
5132              (lambda _
5133                ;; The build system cleverly detects that we're not building from
5134                ;; a release tarball and turns on -Werror for GCC.
5135                ;; Unsurprisingly, there is a warning during compilation that
5136                ;; causes the build to fail unnecessarily, so we remove the flag.
5137                (substitute* '("configure.ac")
5138                  (("-Werror") ""))
5139                ;; The autogen.sh script in gnome-common will run ./configure
5140                ;; by default, which is problematic because source shebangs
5141                ;; have not yet been patched.
5142                (setenv "NOCONFIGURE" "t")
5143                (zero? (system* "sh" "autogen.sh")))))))
5144       (native-inputs
5145        `(("autoconf" ,autoconf)
5146          ("automake" ,automake)
5147          ("gnome-common" ,gnome-common)
5148          ("intltool" ,intltool)
5149          ("libtool" ,libtool)
5150          ("pkg-config" ,pkg-config)
5151          ("which" ,which)))
5152       (inputs
5153        `(("glib" ,glib)
5154          ("gstreamer" ,gstreamer)
5155          ("gst-plugins-base" ,gst-plugins-base)
5156          ("gtk+" ,gtk+)))
5157       (synopsis "Desktop recording program")
5158       (description "Byzanz is a simple desktop recording program with a
5159 command-line interface.  It can record part or all of an X display for a
5160 specified duration and save it as a GIF encoded animated image file.")
5161       (home-page "https://git.gnome.org/browse/byzanz")
5162       (license license:gpl2+))))
5163
5164 (define-public libzapojit
5165   (package
5166     (name "libzapojit")
5167     (version "0.0.3")
5168     (source (origin
5169               (method url-fetch)
5170               (uri (string-append "mirror://gnome/sources/" name "/"
5171                                   (version-major+minor version) "/"
5172                                   name "-" version ".tar.xz"))
5173               (sha256
5174                (base32
5175                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
5176     (build-system gnu-build-system)
5177     (native-inputs
5178      `(("gobject-introspection" ,gobject-introspection)
5179        ("intltool" ,intltool)
5180        ("pkg-config" ,pkg-config)))
5181     (inputs
5182      `(("gnome-online-accounts" ,gnome-online-accounts)
5183        ("json-glib" ,json-glib)
5184        ("rest" ,rest)))
5185     (home-page "https://wiki.gnome.org/Projects/Zapojit")
5186     (synopsis "Library for accessing SkyDrive and Hotmail")
5187     (description
5188      "Libzapojit is a GLib-based library for accessing online service APIs of
5189 Microsoft SkyDrive and Hotmail, using their REST protocols.")
5190     (license license:lgpl2.1+)))
5191
5192 (define-public gnome-calendar
5193   (package
5194     (name "gnome-calendar")
5195     (version "3.20.2")
5196     (source (origin
5197               (method url-fetch)
5198               (uri (string-append "mirror://gnome/sources/" name "/"
5199                                   (version-major+minor version) "/"
5200                                   name "-" version ".tar.xz"))
5201               (sha256
5202                (base32
5203                 "1vny8fclwglapdyxd2g9fbwdlk5hhnb993k2hvq3rf0hcgswycpi"))))
5204     (build-system glib-or-gtk-build-system)
5205     (native-inputs
5206      `(("intltool" ,intltool)
5207        ("pkg-config" ,pkg-config)))
5208     (inputs
5209      `(("bdb" ,bdb)
5210        ("desktop-file-utils" ,desktop-file-utils)
5211        ("evolution-data-server" ,evolution-data-server)
5212        ("gnome-online-accounts" ,gnome-online-accounts)))
5213     (home-page "https://wiki.gnome.org/Apps/Calendar")
5214     (synopsis "GNOME's calendar application")
5215     (description
5216      "GNOME Calendar is a simple calendar application designed to fit the GNOME
5217 desktop.  It supports multiple calendars, monthly view and yearly view.")
5218     (license license:gpl3+)))
5219
5220 (define-public gnome-dictionary
5221   (package
5222     (name "gnome-dictionary")
5223     (version "3.20.0")
5224     (source (origin
5225               (method url-fetch)
5226               (uri (string-append "mirror://gnome/sources/" name "/"
5227                                   (version-major+minor version) "/"
5228                                   name "-" version ".tar.xz"))
5229               (sha256
5230                (base32
5231                 "08b1f5s5aqka3dwxnzmwr2fmyddjm9xw7zmqsf8r5zvfsivn7czg"))))
5232     (build-system glib-or-gtk-build-system)
5233     (native-inputs
5234      `(("glib:bin" ,glib "bin")
5235        ("gobject-introspection" ,gobject-introspection)
5236        ("intltool" ,intltool)
5237        ("itstool" ,itstool)
5238        ("pkg-config" ,pkg-config)
5239        ("xmllint" ,libxml2)))
5240     (inputs
5241      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5242        ("gtk+" ,gtk+)))
5243     (home-page "https://wiki.gnome.org/Apps/Dictionary")
5244     (synopsis "Look up words in dictionary sources")
5245     (description
5246      "GNOME Dictionary can look for the definition or translation of a word in
5247 existing databases over the internet.")
5248     (license license:gpl3+)))
5249
5250 (define-public gnome-tweak-tool
5251   (package
5252     (name "gnome-tweak-tool")
5253     (version "3.20.1")
5254     (source (origin
5255               (method url-fetch)
5256               (uri (string-append "mirror://gnome/sources/gnome-tweak-tool/"
5257                                   (version-major+minor version) "/"
5258                                   "gnome-tweak-tool-" version ".tar.xz"))
5259               (patches (list
5260                         (search-patch "gnome-tweak-tool-search-paths.patch")))
5261               (sha256
5262                (base32
5263                 "1fj6wjvnjygzm9br3sw9gya6d18yly1rm69yaiar9spfbkvv4wai"))))
5264     (build-system gnu-build-system)
5265     (arguments
5266      `(#:configure-flags '("--localstatedir=/tmp"
5267                            "--sysconfdir=/tmp")
5268        #:imported-modules ((guix build python-build-system)
5269                            ,@%gnu-build-system-modules)
5270        #:phases (modify-phases %standard-phases
5271                   (add-after 'install 'wrap
5272                     (@@ (guix build python-build-system) wrap)))))
5273     (native-inputs
5274      `(("intltool" ,intltool)
5275        ("pkg-config" ,pkg-config)))
5276     (inputs
5277      `(("python" ,python-2)
5278        ("python2-pygobject" ,python2-pygobject)))
5279     (propagated-inputs
5280      `(("libnotify" ,libnotify)
5281        ("gobject-introspection" ,gobject-introspection)
5282        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5283        ("gtk+" ,gtk+)))
5284     (synopsis "Customize advanced GNOME 3 options")
5285     (home-page "https://wiki.gnome.org/action/show/Apps/GnomeTweakTool")
5286     (description
5287      "GNOME Tweak Tool allows adjusting advanced configuration settings in
5288 GNOME 3.  This includes things like the fonts used in user interface elements,
5289 alternative user interface themes, changes in window management behavior,
5290 GNOME Shell appearance and extension, etc.")
5291     (license license:gpl3+)))
5292
5293 (define-public gnome-shell-extensions
5294   (package
5295     (name "gnome-shell-extensions")
5296     (version "3.20.1")
5297     (source (origin
5298               (method url-fetch)
5299               (uri (string-append "mirror://gnome/sources/" name "/"
5300                                   (version-major+minor version)  "/"
5301                                   name "-" version ".tar.xz"))
5302               (sha256
5303                (base32
5304                 "18rr55krnqx1nzrzlj6kfzh4n67f3crakmwh28rr95y7cg0jwhxw"))))
5305     (build-system gnu-build-system)
5306     (arguments
5307      '(#:configure-flags '("--enable-extensions=all")))
5308     (native-inputs
5309      `(("intltool" ,intltool)
5310        ("pkg-config" ,pkg-config)))
5311     (propagated-inputs
5312      `(("glib" ,glib)
5313        ("glib" ,glib "bin")))
5314     (synopsis "Extensions for GNOME Shell")
5315     (description "GNOME Shell extensions modify and extend GNOME Shell
5316 functionality and behavior.")
5317     (home-page "https://extensions.gnome.org/")
5318     (license license:gpl3+)))
5319
5320 (define-public arc-theme
5321   (package
5322     (name "arc-theme")
5323     (version "20160605")
5324     (source (origin
5325               (method url-fetch)
5326               (uri (string-append "https://github.com/horst3180/arc-theme"
5327                                   "/archive/" version ".tar.gz"))
5328               (file-name (string-append name "-" version ".tar.gz"))
5329               (sha256
5330                (base32
5331                 "0sq2031xda8jn2ws0x2bvhq77jfh7xy0c3kg86v6vm2kbrrss7y6"))))
5332     (build-system gnu-build-system)
5333     (arguments
5334      '(#:phases
5335        (modify-phases %standard-phases
5336          (add-after 'unpack 'bootstrap
5337            (lambda _
5338              (zero? (system* "autoreconf" "-vif")))))))
5339     (native-inputs
5340      `(("autoconf" ,autoconf)
5341        ("automake" ,automake)
5342        ("pkg-config" ,pkg-config)))
5343     (inputs
5344      `(("gtk+" ,gtk+)))
5345     (synopsis "A flat GTK+ theme with transparent elements")
5346     (description "Arc is a flat theme with transparent elements for GTK 3, GTK
5347 2, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
5348 like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
5349     (home-page "https://github.com/horst3180/arc-theme")
5350     ;; No "or later" language found.
5351     (license license:gpl3)))
5352
5353 (define-public moka-icon-theme
5354   (package
5355     (name "moka-icon-theme")
5356     (version "5.3.1")
5357     (source (origin
5358               (method url-fetch)
5359               (uri (string-append "https://github.com/moka-project"
5360                                   "/moka-icon-theme/archive/v"
5361                                   version ".tar.gz"))
5362               (file-name (string-append name "-" version ".tar.gz"))
5363               (sha256
5364                (base32
5365                 "1lnk7p8dsd9xh6cgz5krvlcr457w8yl4m6p6s5c2g5narsjswzrm"))))
5366     (build-system gnu-build-system)
5367     (arguments
5368      '(#:phases
5369        (modify-phases %standard-phases
5370          (add-after 'unpack 'patch-makefile.am
5371            (lambda _
5372              (substitute* '("Makefile.am")
5373                (("\\$\\(DESTDIR\\)/usr/share")
5374                 "$(datadir)"))
5375              #t))
5376          (add-after 'patch-makefile.am 'bootstrap
5377            (lambda _
5378              (zero? (system* "autoreconf" "-vif")))))))
5379     (native-inputs
5380      `(("autoconf" ,autoconf)
5381        ("automake" ,automake)))
5382     (synopsis "Moka icon theme")
5383     (description "Moka is a stylized desktop icon set, designed to be clear,
5384 simple and consistent.")
5385     (home-page "http://snwh.org/moka")
5386     (license license:gpl3+)))
5387
5388 (define-public arc-icon-theme
5389   (package
5390     (name "arc-icon-theme")
5391     (version "20160605")
5392     (source (origin
5393               (method url-fetch)
5394               (uri (string-append "https://github.com/horst3180/arc-icon-theme"
5395                                   "/archive/" version ".tar.gz"))
5396               (file-name (string-append name "-" version ".tar.gz"))
5397               (sha256
5398                (base32
5399                 "1npf0ki0j0llrw9wbffhxxa1cdms0q7b8xlg9m943dd9g7pgdm2p"))))
5400     (build-system gnu-build-system)
5401     (arguments
5402      '(#:phases
5403        (modify-phases %standard-phases
5404          (add-after 'unpack 'bootstrap
5405            (lambda _
5406              (zero? (system* "autoreconf" "-vif")))))))
5407     (native-inputs
5408      `(("autoconf" ,autoconf)
5409        ("automake" ,automake)))
5410     ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
5411     (propagated-inputs
5412      `(("moka-icon-theme" ,moka-icon-theme)))
5413     (synopsis "Arc icon theme")
5414     (description "The Arc icon theme provides a set of icons matching the
5415 style of the Arc GTK theme.  Icons missing from the Arc theme are provided by
5416 the Moka icon theme.")
5417     (home-page "https://github.com/horst3180/arc-icon-theme")
5418     (license license:gpl3+)))
5419
5420 (define-public folks
5421   (package
5422     (name "folks")
5423     (version "0.11.2")
5424     (source (origin
5425               (method url-fetch)
5426               (uri (string-append
5427                     "mirror://gnome/sources/" name "/"
5428                     (version-major+minor version) "/"
5429                     name "-" version ".tar.xz"))
5430               (sha256
5431                (base32
5432                 "1f51albxgfqxbax57i3pcgv2fx7i419xaapzdvldas6gw100ma1m"))))
5433     (build-system glib-or-gtk-build-system)
5434     (inputs
5435      `(("bdb" ,bdb)
5436        ("dbus-glib" ,dbus-glib)
5437        ("evolution-data-server" ,evolution-data-server)
5438        ("glib" ,glib)
5439        ("libgee" ,libgee)
5440        ("telepathy-glib" ,telepathy-glib)))
5441     (native-inputs
5442      `(("gobject-introspection" ,gobject-introspection)
5443        ("intltool" ,intltool)
5444        ("pkg-config" ,pkg-config)
5445        ("vala" ,vala)))
5446     (synopsis "Library to aggregate data about people")
5447     (description "Libfolks is a library that aggregates information about people
5448 from multiple sources (e.g., Telepathy connection managers for IM contacts,
5449 Evolution Data Server for local contacts, libsocialweb for web service contacts,
5450 etc.) to create metacontacts.  It's written in Vala, which generates C code when
5451 compiled.")
5452     (home-page "https://wiki.gnome.org/Projects/Folks")
5453     (license license:lgpl2.1+)))
5454
5455 (define-public gfbgraph
5456   (package
5457     (name "gfbgraph")
5458     (version "0.2.3")
5459     (source (origin
5460               (method url-fetch)
5461               (uri (string-append
5462                     "mirror://gnome/sources/" name "/"
5463                     (version-major+minor version) "/"
5464                     name "-" version ".tar.xz"))
5465               (sha256
5466                (base32
5467                 "1dp0v8ia35fxs9yhnqpxj3ir5lh018jlbiwifjfn8ayy7h47j4fs"))))
5468     (build-system glib-or-gtk-build-system)
5469     (arguments
5470      `(#:tests? #f ; Tests appear to require the network.
5471        ;; FIXME --enable-gtk-doc fails even with gtk-doc as a native-input.
5472        #:configure-flags '("--disable-gtk-doc"
5473                            "--disable-static"
5474                            "--enable-introspection")))
5475     (native-inputs
5476      `(("pkg-config" ,pkg-config)
5477        ("gobject-introspection" ,gobject-introspection)))
5478     (inputs
5479      `(("json-glib" ,json-glib)
5480        ("gnome-online-accounts" ,gnome-online-accounts)
5481        ("rest" ,rest)))
5482     (synopsis "GLib/GObject wrapper for the Facebook API")
5483     (description "This library allows you to use the Facebook API from
5484 GLib/GObject code.")
5485     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
5486     (license license:lgpl2.1+)))
5487
5488 (define-public libgnomekbd
5489   (package
5490     (name "libgnomekbd")
5491     (version "3.6.0")
5492     (source (origin
5493               (method url-fetch)
5494               (uri (string-append "mirror://gnome/sources/" name "/"
5495                                   (version-major+minor version)  "/"
5496                                   name "-" version ".tar.xz"))
5497               (sha256
5498                (base32
5499                 "02bahnl3vaqyqyr99r9kwka84sxj8qdrz7x0bf97192dysqaa7n4"))))
5500     (build-system gnu-build-system)
5501     (native-inputs
5502      `(("pkg-config" ,pkg-config)
5503        ("glib" ,glib "bin")
5504        ("intltool" ,intltool)))
5505     (propagated-inputs
5506      ;; Referred to in .h files and .pc.
5507      `(("glib" ,glib)
5508        ("gtk+" ,gtk+)
5509        ("libxklavier" ,libxklavier)))
5510     (home-page "https://www.gnome.org")
5511     (synopsis "GNOME keyboard configuration library")
5512     (description
5513      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
5514 environment, which can notably display keyboard layouts.")
5515     (license license:lgpl2.0+)))
5516
5517 ;;; This package is no longer maintained:
5518 ;;; https://wiki.gnome.org/Attic/LibUnique
5519 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
5520 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
5521 (define-public libunique
5522   (package
5523     (name "libunique")
5524     (version "3.0.2")
5525     (source (origin
5526               (method url-fetch)
5527               (uri (string-append "mirror://gnome/sources/" name "/"
5528                                   (version-major+minor version)  "/"
5529                                   name "-" version ".tar.xz"))
5530               (sha256
5531                (base32
5532                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
5533     (build-system glib-or-gtk-build-system)
5534     (arguments
5535      `(#:configure-flags '("--disable-static"
5536                            "--disable-dbus" ; use gdbus
5537                            "--enable-introspection")))
5538     (native-inputs
5539      `(("pkg-config" ,pkg-config)
5540        ("gobject-introspection" ,gobject-introspection)
5541        ("glib:bin" ,glib "bin")
5542        ("gtk-doc" ,gtk-doc)))
5543     (propagated-inputs
5544      ;; Referred to in .h files and .pc.
5545      `(("gtk+" ,gtk+)))
5546     (home-page "https://wiki.gnome.org/Attic/LibUnique")
5547     (synopsis "Library for writing single instance applications")
5548     (description
5549      "Libunique is a library for writing single instance applications.  If you
5550 launch a single instance application twice, the second instance will either just
5551 quit or will send a message to the running instance.  Libunique makes it easy to
5552 write this kind of application, by providing a base class, taking care of all
5553 the IPC machinery needed to send messages to a running instance, and also
5554 handling the startup notification side.")
5555     (license license:lgpl2.1+)))
5556
5557 (define-public gnome-calculator
5558   (package
5559     (name "gnome-calculator")
5560     (version "3.20.2")
5561     (source
5562      (origin
5563        (method url-fetch)
5564        (uri (string-append "mirror://gnome/sources/" name "/"
5565                            (version-major+minor version) "/"
5566                            name "-" version ".tar.xz"))
5567        (sha256
5568         (base32
5569          "1yx86kyd54y3k3b6rmdazvmpxzl0zn791zr1q87zjc5228mc3w9a"))))
5570     (build-system glib-or-gtk-build-system)
5571     (native-inputs
5572      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
5573        ("intltool" ,intltool)
5574        ("itstool" ,itstool)
5575        ("pkg-config" ,pkg-config)))
5576     (inputs
5577      `(("gtksourceview" ,gtksourceview)
5578        ("libsoup" ,libsoup)
5579        ("mpfr" ,mpfr)))
5580     (home-page "https://wiki.gnome.org/Apps/Calculator")
5581     (synopsis "Desktop calculator")
5582     (description
5583      "Calculator is an application that solves mathematical equations and
5584 is suitable as a default application in a Desktop environment.")
5585     (license license:gpl3)))
5586
5587 (define-public xpad
5588   (package
5589     (name "xpad")
5590     (version "4.8.0")
5591     (source
5592      (origin
5593        (method url-fetch)
5594        (uri (string-append "https://launchpad.net/xpad/trunk/4.8.0/+download/"
5595                            name "-" version ".tar.bz2"))
5596        (sha256
5597         (base32
5598          "17f915yyvfa2fsavq6wh0q0dfhib28b4k1gc0292b9xdlrvy7f22"))))
5599     (build-system gnu-build-system)
5600     (native-inputs
5601      `(("intltool" ,intltool)
5602        ("pkg-config" ,pkg-config)))
5603     (inputs
5604      `(("gtk+" ,gtk+)
5605        ("gtksourceview" ,gtksourceview)
5606        ("libsm" ,libsm)))
5607     (home-page "https://wiki.gnome.org/Apps/Xpad")
5608     (synopsis "Virtual sticky note")
5609     (description
5610      "Xpad is a sticky note that strives to be simple, fault tolerant,
5611 and customizable.  Xpad consists of independent pad windows, each is
5612 basically a text box in which notes can be written.")
5613     (license license:gpl3+)))