gnu/packages/gnome.scm

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