gnu/packages/gnome.scm

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