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.0")
3122     (source (origin
3123               (method url-fetch)
3124               (uri (string-append "mirror://gnome/sources/geocode-glib/"
3125                                   (version-major+minor version) "/"
3126                                   name "-" version ".tar.xz"))
3127               (sha256
3128                (base32
3129                 "1vmydxs5xizcmaxpkfrq75xpj6pqrpdjizxyb30m00h54yqqch7a"))))
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.2")
3459     (source
3460      (origin
3461        (method url-fetch)
3462        (uri (string-append "mirror://gnome/sources/" name "/"
3463                            (version-major+minor version) "/"
3464                            name "-" version ".tar.xz"))
3465        (sha256
3466         (base32
3467          "03f0ha3qk7ca0nnkkcr1garrm1n1vvfqhkz9lwjm592fnv6ii9rr"))))
3468     ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
3469     ;; cogl, corresponding changes may be appropriate in mutter as well.
3470     (build-system gnu-build-system)
3471     (native-inputs
3472      `(("glib:bin" ,glib "bin")     ; for glib-mkenums
3473        ("gobject-introspection" ,gobject-introspection)
3474        ;;("xorg-server" ,xorg-server) ; for the test suite
3475        ("pkg-config" ,pkg-config)))
3476     (propagated-inputs
3477      `(("glib" ,glib)
3478        ("gdk-pixbuf" ,gdk-pixbuf)
3479        ("libx11" ,libx11)
3480        ("libxext" ,libxext)
3481        ("libxfixes" ,libxfixes)
3482        ("libxdamage" ,libxdamage)
3483        ("libxcomposite" ,libxcomposite)
3484        ("libxrandr" ,libxrandr)))
3485     (inputs
3486      `(("mesa" ,mesa)
3487        ("cairo" ,cairo)
3488        ("pango" ,pango)
3489        ("gstreamer" ,gstreamer)
3490        ("gst-plugins-base" ,gst-plugins-base)
3491        ("wayland" ,wayland)))
3492     (arguments
3493      `(#:configure-flags (list "--enable-cogl-gst"
3494                                "--enable-wayland-egl-platform"
3495                                "--enable-wayland-egl-server"
3496
3497                                ;; Arrange to pass an absolute file name to
3498                                ;; dlopen for libGL.so.
3499                                (string-append "--with-gl-libname="
3500                                               (assoc-ref %build-inputs "mesa")
3501                                               "/lib/libGL.so"))
3502        ;; XXX FIXME: All tests fail, with many warnings printed like this:
3503        ;;   _FontTransOpen: Unable to Parse address
3504        ;;   ${prefix}/share/fonts/X11/misc/
3505        #:tests? #f
3506        #; #:phases
3507        #;
3508        (modify-phases %standard-phases
3509          (add-before 'check 'start-xorg-server
3510                      (lambda* (#:key inputs #:allow-other-keys)
3511                        ;; The test suite requires a running X server.
3512                        (system (format #f "~a/bin/Xvfb :1 &"
3513                                        (assoc-ref inputs "xorg-server")))
3514                        (setenv "DISPLAY" ":1")
3515                        #t)))))
3516     (home-page "http://www.cogl3d.org")
3517     (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
3518     (description
3519      "Cogl is a small library for using 3D graphics hardware to draw pretty
3520 pictures.  The API departs from the flat state machine style of OpenGL and is
3521 designed to make it easy to write orthogonal components that can render
3522 without stepping on each others toes.")
3523     (license (list license:expat       ; most of the code
3524                    license:bsd-3       ; cogl/cogl-point-in-poly.c
3525                    license:sgifreeb2.0 ; cogl-path/tesselator/
3526                    license:asl2.0))))  ; examples/android/
3527
3528 (define-public clutter
3529   (package
3530     (name "clutter")
3531     (version "1.26.2")
3532     (source
3533      (origin
3534        (method url-fetch)
3535        (uri (string-append "mirror://gnome/sources/" name "/"
3536                            (version-major+minor version) "/"
3537                            name "-" version ".tar.xz"))
3538        (sha256
3539         (base32
3540          "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
3541     ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
3542     ;; to clutter, corresponding changes may be appropriate in mutter as well.
3543     (build-system gnu-build-system)
3544     (outputs '("out"
3545                "doc"))                            ;9 MiB of gtk-doc HTML pages
3546     (native-inputs
3547      `(("glib:bin" ,glib "bin")     ; for glib-genmarshal
3548        ("gobject-introspection" ,gobject-introspection)
3549        ("pkg-config" ,pkg-config)
3550        ("xsltproc" ,libxslt)))
3551     (propagated-inputs
3552      `(("cogl" ,cogl)
3553        ("cairo" ,cairo)
3554        ("atk" ,atk)
3555        ("gtk+" ,gtk+)
3556        ("json-glib" ,json-glib)
3557        ("glib" ,glib)
3558        ("libxcomposite" ,libxcomposite)
3559        ("libxdamage" ,libxdamage)
3560        ("libxext" ,libxext)
3561        ("xinput" ,xinput)))
3562     (inputs
3563      `(("libxkbcommon" ,libxkbcommon)
3564        ("udev" ,eudev)))
3565     (arguments
3566      `(#:configure-flags (list "--enable-x11-backend=yes"
3567
3568                                ;; This produces share/doc/{clutter,cally}.
3569                                (string-append "--with-html-dir="
3570                                               (assoc-ref %outputs "doc")
3571                                               "/share/doc"))
3572        ;; XXX FIXME: Get test suite working.  It would probably fail in the
3573        ;; same way the cogl tests fail, since clutter is based on cogl.
3574        #:tests? #f))
3575     (home-page "http://www.clutter-project.org")
3576     (synopsis "OpenGL-based interactive canvas library")
3577     (description
3578      "Clutter is an OpenGL-based interactive canvas library, designed for
3579 creating fast, mainly 2D single window applications such as media box UIs,
3580 presentations, kiosk style applications and so on.")
3581     (license license:lgpl2.0+)))
3582
3583 (define-public clutter-gtk
3584   (package
3585     (name "clutter-gtk")
3586     (version "1.8.4")
3587     (source
3588      (origin
3589        (method url-fetch)
3590        (uri (string-append "mirror://gnome/sources/" name "/"
3591                            (version-major+minor version) "/"
3592                            name "-" version ".tar.xz"))
3593        (sha256
3594         (base32
3595          "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
3596     (build-system gnu-build-system)
3597     (native-inputs
3598      `(("pkg-config" ,pkg-config)
3599        ("gobject-introspection" ,gobject-introspection)))
3600     (propagated-inputs
3601      ;; clutter-gtk.pc refers to all these.
3602      `(("clutter" ,clutter)
3603        ("gtk+" ,gtk+)))
3604     (home-page "http://www.clutter-project.org")
3605     (synopsis "OpenGL-based interactive canvas library GTK+ widget")
3606     (description
3607      "Clutter is an OpenGL-based interactive canvas library, designed for
3608 creating fast, mainly 2D single window applications such as media box UIs,
3609 presentations, kiosk style applications and so on.")
3610     (license license:lgpl2.0+)))
3611
3612 (define-public clutter-gst
3613   (package
3614     (name "clutter-gst")
3615     (version "3.0.27")
3616     (source
3617      (origin
3618        (method url-fetch)
3619        (uri (string-append "mirror://gnome/sources/clutter-gst/"
3620                            (version-major+minor version) "/"
3621                            "clutter-gst-" version ".tar.xz"))
3622        (sha256
3623         (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
3624     (build-system gnu-build-system)
3625     (native-inputs
3626      `(("glib:bin" ,glib "bin")         ; for glib-mkenums
3627        ("pkg-config" ,pkg-config)
3628        ("gobject-introspection" ,gobject-introspection)))
3629     (inputs
3630      `(("clutter" ,clutter)
3631        ("gstreamer" ,gstreamer)
3632        ("gst-plugins-base" ,gst-plugins-base)))
3633     (home-page "http://www.clutter-project.org")
3634     (synopsis "Integration library for using GStreamer with Clutter")
3635     (description
3636      "Clutter-Gst is an integration library for using GStreamer with Clutter.
3637 It provides a GStreamer sink to upload frames to GL and an actor that
3638 implements the ClutterGstPlayer interface using playbin.  Clutter is an
3639 OpenGL-based interactive canvas library.")
3640     (license license:lgpl2.0+)))
3641
3642 (define-public libchamplain
3643   (package
3644     (name "libchamplain")
3645     (version "0.12.16")
3646     (source (origin
3647               (method url-fetch)
3648               (uri (string-append
3649                     "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
3650                     version ".tar.xz"))
3651               (sha256
3652                (base32
3653                 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
3654     (build-system gnu-build-system)
3655     (arguments '(#:configure-flags '("--enable-vala")))
3656     (native-inputs
3657      `(("gobject-introspection" ,gobject-introspection)
3658        ("pkg-config" ,pkg-config)
3659        ("vala" ,vala)))
3660     (propagated-inputs
3661      `(("libsoup" ,libsoup)
3662        ("sqlite" ,sqlite)
3663        ("clutter" ,clutter)
3664        ("clutter-gtk" ,clutter-gtk)
3665        ("glib:bin" ,glib "bin")                   ;glib-mkenums, etc.
3666        ("cairo" ,cairo)
3667        ("gtk+3" ,gtk+)
3668        ("glib" ,glib)))
3669     (home-page "https://projects.gnome.org/libchamplain/")
3670     (synopsis "C library providing a ClutterActor to display maps")
3671     (description
3672      "libchamplain is a C library providing a ClutterActor to display maps.
3673 It also provides a Gtk+ widget to display maps in Gtk+ applications.  Python
3674 and Perl bindings are also available.  It supports numerous free map sources
3675 such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
3676     (license license:lgpl2.1+)))
3677
3678 (define-public gom
3679   (package
3680     (name "gom")
3681     (version "0.3.2")
3682     (source
3683      (origin
3684        (method url-fetch)
3685        (uri (string-append "mirror://gnome/sources/gom/"
3686                            (version-major+minor version) "/"
3687                            "gom-" version ".tar.xz"))
3688        (sha256
3689         (base32
3690          "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
3691     (build-system gnu-build-system)
3692     (native-inputs
3693      `(("intltool" ,intltool)
3694        ("pkg-config" ,pkg-config)
3695        ("gobject-introspection" ,gobject-introspection)))
3696     (inputs
3697      `(("glib" ,glib)
3698        ("gdk-pixbuf" ,gdk-pixbuf)
3699        ("sqlite" ,sqlite)))
3700     ;; XXX TODO: Figure out how to run the test suite.
3701     (arguments `(#:tests? #f))
3702     (home-page "https://wiki.gnome.org/Projects/Gom")
3703     (synopsis "Object mapper from GObjects to SQLite")
3704     (description
3705      "Gom provides an object mapper from GObjects to SQLite.  It helps you
3706 write applications that need to store structured data as well as make complex
3707 queries upon that data.")
3708     (license license:lgpl2.1+)))
3709
3710 (define-public libgnome-games-support
3711   (package
3712     (name "libgnome-games-support")
3713     (version "1.4.2")
3714     (source (origin
3715               (method url-fetch)
3716               (uri (string-append "mirror://gnome/sources/" name "/"
3717                                   (version-major+minor version) "/"
3718                                   name "-" version ".tar.xz"))
3719               (sha256
3720                (base32
3721                 "02hirpk885jndwarbl3cl5fk7w2z5ziv677csyv1wi2n6rmpn088"))))
3722     (build-system gnu-build-system)
3723     (arguments
3724      '(#:phases
3725        (modify-phases %standard-phases
3726          (add-before 'check 'pre-check
3727            (lambda _
3728              ;; Tests require a writable HOME.
3729              (setenv "HOME" (getcwd))
3730              #t)))))
3731     (native-inputs
3732      `(("intltool" ,intltool)
3733        ("pkg-config" ,pkg-config)
3734        ("vala" ,vala)))
3735     (propagated-inputs
3736      ;; Required by libgnome-games-support-1.0.pc
3737      `(("gtk+" ,gtk+)
3738        ("libgee" ,libgee)))
3739     (home-page "https://www.gnome.org/")
3740     (synopsis "Useful functionality shared among GNOME games")
3741     (description
3742      "libgnome-games-support is a small library intended for internal use by
3743 GNOME Games, but it may be used by others.")
3744     (license license:lgpl3+)))
3745
3746 (define-public gnome-klotski
3747   (package
3748     (name "gnome-klotski")
3749     (version "3.22.3")
3750     (source (origin
3751               (method url-fetch)
3752               (uri (string-append "mirror://gnome/sources/" name "/"
3753                                   (version-major+minor version) "/"
3754                                   name "-" version ".tar.xz"))
3755               (sha256
3756                (base32
3757                 "0prc0s28pdflgzyvk1g0yfx982q2grivmz3858nwpqmbkha81r7f"))))
3758     (build-system glib-or-gtk-build-system)
3759     (native-inputs
3760      `(("desktop-file-utils" ,desktop-file-utils)
3761        ("intltool" ,intltool)
3762        ("itstool" ,itstool)
3763        ("pkg-config" ,pkg-config)
3764        ("xmllint" ,libxml2)))
3765     (inputs
3766      `(("gtk+" ,gtk+)
3767        ("libgnome-games-support" ,libgnome-games-support)
3768        ("librsvg" ,librsvg)))
3769     (home-page "https://wiki.gnome.org/Apps/Klotski")
3770     (synopsis "Sliding block puzzles")
3771     (description
3772      "GNOME Klotski is a set of block sliding puzzles.  The objective is to move
3773 the patterned block to the area bordered by green markers.  To do so, you will
3774 need to slide other blocks out of the way.  Complete each puzzle in as few moves
3775 as possible!")
3776     (license license:gpl2+)))
3777
3778 (define-public grilo
3779   (package
3780     (name "grilo")
3781     (version "0.3.3")
3782     (source
3783      (origin
3784        (method url-fetch)
3785        (uri (string-append "mirror://gnome/sources/" name "/"
3786                            (version-major+minor version) "/"
3787                            name "-" version ".tar.xz"))
3788        (sha256
3789         (base32
3790          "1qx072m0gl6m3d5g5cbbf13p4h217icmlxjnrn829x5xqwi451sw"))))
3791     (build-system gnu-build-system)
3792     (native-inputs
3793      `(("glib:bin" ,glib "bin")         ; for glib-mkenums and glib-genmarshal
3794        ("intltool" ,intltool)
3795        ("pkg-config" ,pkg-config)
3796        ("gobject-introspection" ,gobject-introspection)))
3797     (inputs
3798      `(("cyrus-sasl" ,cyrus-sasl)
3799        ("glib" ,glib)
3800        ("gtk+" ,gtk+)
3801        ("libxml2" ,libxml2)
3802        ("liboauth" ,liboauth)
3803        ("libsoup" ,libsoup)
3804        ("totem-pl-parser" ,totem-pl-parser)))
3805     (arguments
3806      `(#:phases
3807        (modify-phases %standard-phases
3808          (add-after 'unpack 'fix-introspection-install-dir
3809                     (lambda* (#:key outputs #:allow-other-keys)
3810                       (let ((out (assoc-ref outputs "out")))
3811                         (substitute* '("src/Makefile.in"
3812                                        "libs/pls/Makefile.in"
3813                                        "libs/net/Makefile.in")
3814                           (("@INTROSPECTION_GIRDIR@")
3815                            (string-append out "/share/gir-1.0/"))
3816                           (("@INTROSPECTION_TYPELIBDIR@")
3817                            (string-append out "/lib/girepository-1.0/")))
3818                         #t))))))
3819     (native-search-paths
3820      (list (search-path-specification
3821             (variable "GRL_PLUGIN_PATH")
3822             (files (list (string-append "lib/grilo-"
3823                                         (version-major+minor version)))))))
3824     (home-page "https://live.gnome.org/Grilo")
3825     (synopsis "Framework for discovering and browsing media")
3826     (description
3827      "Grilo is a framework focused on making media discovery and browsing easy
3828 for application developers.")
3829     (license license:lgpl2.1+)))
3830
3831 (define-public grilo-plugins
3832   (package
3833     (name "grilo-plugins")
3834     (version "0.3.3")
3835     (source
3836      (origin
3837        (method url-fetch)
3838        (uri (string-append "mirror://gnome/sources/" name "/"
3839                            (version-major+minor version) "/"
3840                            name "-" version ".tar.xz"))
3841        (sha256
3842         (base32
3843          "172vr1y98d2mzlmg5akjn4ibrcj3gh22cwnb3cv9rvvzhj3yhrpy"))))
3844     (build-system gnu-build-system)
3845     (native-inputs
3846      `(("glib:bin" ,glib "bin")     ; for glib-mkenums and glib-genmarshal
3847        ("intltool" ,intltool)
3848        ("itstool" ,itstool)
3849        ("pkg-config" ,pkg-config)))
3850     (inputs
3851      `(("grilo" ,grilo)
3852        ("glib" ,glib)
3853        ("libxml2" ,libxml2)
3854        ("sqlite" ,sqlite)
3855        ("gom" ,gom)
3856        ;; XXX TODO: Add oauth
3857        ;; XXX TODO: Add goa
3858        ;; XXX TODO: Add gdata (e.g. needed for youtube plugin)
3859        ;; XXX TODO: Add lua (needs help finding it)
3860        ("json-glib" ,json-glib)
3861        ("avahi" ,avahi)
3862        ("gmime" ,gmime)
3863        ("libsoup" ,libsoup)
3864        ("libarchive" ,libarchive)
3865        ("totem-pl-parser" ,totem-pl-parser)))
3866     (arguments
3867      `(#:make-flags (list (string-append "GRL_PLUGINS_DIR="
3868                                          %output
3869                                          "/lib/grilo-"
3870                                          ,(version-major+minor version)))
3871        ;; XXX FIXME: Try to get the test suite working.  It appears to require
3872        ;; a working system dbus.  Inside the build container, all tests fail
3873        ;; with: "assertion failed: (source)".  Outside of the build container,
3874        ;; most tests succeed.
3875        #:tests? #f))
3876     (home-page "https://live.gnome.org/Grilo")
3877     (synopsis "Plugins for the Grilo media discovery library")
3878     (description
3879      "Grilo is a framework focused on making media discovery and browsing easy
3880 for application developers.")
3881     (license license:lgpl2.1+)))
3882
3883 (define-public totem
3884   (package
3885     (name "totem")
3886     (version "3.30.0")
3887     (source
3888      (origin
3889        (method url-fetch)
3890        (uri (string-append "mirror://gnome/sources/" name "/"
3891                            (version-major+minor version) "/"
3892                            name "-" version ".tar.xz"))
3893        (sha256
3894         (base32
3895          "0rahkybxbmxhlmrrgrzxny1xm7wycx7ib4blxp1i2l1q3i8s84b0"))
3896        (patches (search-patches "totem-meson-easy-codec.patch"
3897                                 "totem-meson-compat.patch"))))
3898     (build-system meson-build-system)
3899     (native-inputs
3900      `(("pkg-config" ,pkg-config)
3901        ("desktop-file-utils" ,desktop-file-utils)
3902        ("gobject-introspection" ,gobject-introspection)
3903        ("glib:bin" ,glib "bin")                   ;for 'glib-mkenums'
3904        ("gtk:bin" ,gtk+ "bin")                    ;for 'gtk-update-icon-cache'
3905        ("intltool" ,intltool)
3906        ("itstool" ,itstool)
3907        ("xmllint" ,libxml2)))
3908     (propagated-inputs
3909      `(("dconf" ,dconf)))
3910     (inputs
3911      `(("gtk+" ,gtk+)
3912        ("gdk-pixbuf" ,gdk-pixbuf)
3913        ("atk" ,atk)
3914        ("cairo" ,cairo)
3915        ("dbus-glib" ,dbus-glib)
3916        ("clutter" ,clutter)
3917        ("clutter-gtk" ,clutter-gtk)
3918        ("clutter-gst" ,clutter-gst)
3919        ("xorgproto" ,xorgproto)
3920        ("libxxf86vm" ,libxxf86vm)
3921        ("libxtst" ,libxtst)
3922        ("libxrandr" ,libxrandr)
3923        ("libxml2" ,libxml2)
3924        ("libsoup" ,libsoup)
3925        ("libpeas" ,libpeas)
3926        ("librsvg" ,librsvg)
3927        ("lirc" ,lirc)
3928        ("gnome-desktop" ,gnome-desktop)
3929        ("gstreamer" ,gstreamer)
3930        ("gst-plugins-base" ,gst-plugins-base)
3931        ("gst-plugins-good" ,gst-plugins-good)
3932        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3933        ("adwaita-icon-theme" ,adwaita-icon-theme)
3934        ("python" ,python)
3935        ("python-pygobject" ,python2-pygobject)
3936        ;; XXX TODO pylint needed for python support
3937        ("totem-pl-parser" ,totem-pl-parser)
3938        ("grilo" ,grilo)
3939        ("grilo-plugins" ,grilo-plugins)
3940        ("vala" ,vala)))
3941     (arguments
3942      `(#:glib-or-gtk? #t
3943
3944        ;; Disable parallel builds until
3945        ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=28813 is
3946        ;; fixed.  Try enabling it when updating this package in case
3947        ;; upstream has fixed it.
3948        #:parallel-build? #f
3949
3950        ;; Disable automatic GStreamer plugin installation via PackageKit and
3951        ;; all that.
3952        #:configure-flags '("-D" "enable-easy-codec-installation=no"
3953
3954                            ;; Do not build .a files for the plugins, it's
3955                            ;; completely useless.  This saves 2 MiB.
3956                            "--default-library" "shared")
3957
3958        #:phases
3959        (modify-phases %standard-phases
3960          (add-before
3961           'install 'disable-cache-generation
3962           (lambda _
3963             (setenv "DESTDIR" "/")
3964             #t))
3965          (add-after
3966           'install 'wrap-totem
3967           (lambda* (#:key inputs outputs #:allow-other-keys)
3968             (let ((out             (assoc-ref outputs "out"))
3969                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
3970                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
3971               (wrap-program (string-append out "/bin/totem")
3972                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
3973                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
3974               (wrap-program (string-append out "/bin/totem-video-thumbnailer")
3975                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
3976             #t)))))
3977     (home-page "https://wiki.gnome.org/Apps/Videos")
3978     (synopsis "Simple media player for GNOME based on GStreamer")
3979     (description "Totem is a simple yet featureful media player for GNOME
3980 which can read a large number of file formats.")
3981     ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
3982     ;; to be used and distributed together with GStreamer and Totem.  See
3983     ;; file://COPYING in the source distribution for details.
3984     (license license:gpl2+)))
3985
3986 (define-public rhythmbox
3987  (package
3988    (name "rhythmbox")
3989    (version "3.4.3")
3990    (source (origin
3991             (method url-fetch)
3992             (uri (string-append "mirror://gnome/sources/" name "/"
3993                                 (version-major+minor version) "/"
3994                                 name "-" version ".tar.xz"))
3995             (sha256
3996              (base32
3997               "1yx3n7p9vmv23jsv98fxwq95n78awdxqm8idhyhxx2d6vk4w1hgx"))))
3998    (build-system glib-or-gtk-build-system)
3999    (arguments
4000     `(#:configure-flags
4001       (list "--enable-lirc"
4002             "--enable-python"
4003             "--enable-vala"
4004             "--with-brasero"
4005             "--with-gudev"
4006             "--with-libsecret")
4007       #:phases
4008       (modify-phases %standard-phases
4009         (add-after
4010          'install 'wrap-rhythmbox
4011          (lambda* (#:key inputs outputs #:allow-other-keys)
4012            (let ((out               (assoc-ref outputs "out"))
4013                  (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
4014                  (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH"))
4015                  (grl-plugin-path   (getenv "GRL_PLUGIN_PATH"))
4016                  (python-path       (getenv "PYTHONPATH")))
4017              (wrap-program (string-append out "/bin/rhythmbox")
4018                `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
4019                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
4020                `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path))
4021                `("PYTHONPATH"             ":" prefix (,python-path))))
4022            #t)))))
4023    (propagated-inputs
4024     `(("dconf" ,dconf)))
4025    (native-inputs
4026     `(("itstool" ,itstool)
4027       ("intltool" ,intltool)
4028       ("glib" ,glib "bin")
4029       ("gobject-introspection" ,gobject-introspection)
4030       ("desktop-file-utils" ,desktop-file-utils)
4031       ("pkg-config" ,pkg-config)
4032       ("xmllint" ,libxml2)))
4033    (inputs
4034     `(("json-glib" ,json-glib)
4035       ("tdb" ,tdb)
4036       ("gnome-desktop" ,gnome-desktop)
4037       ("python" ,python)
4038       ("python-pygobject" ,python2-pygobject)
4039       ("vala" ,vala)
4040       ("gmime" ,gmime)
4041       ("adwaita-icon-theme" ,adwaita-icon-theme)
4042       ("grilo" ,grilo)
4043       ("grilo-plugins" ,grilo-plugins)
4044       ("gstreamer" ,gstreamer)
4045       ("gst-plugins-base" ,gst-plugins-base)
4046       ("gst-plugins-good" ,gst-plugins-good)
4047       ("totem-pl-parser" ,totem-pl-parser)
4048       ("libgudev" ,libgudev)
4049       ;;("libmtp" ,libmtp) FIXME: Not detected
4050       ("libsecret" ,libsecret)
4051       ("libsoup" ,libsoup)
4052       ("libnotify" ,libnotify)
4053       ("libpeas" ,libpeas)
4054       ("lirc" ,lirc)
4055       ;; TODO: clutter* only used by visualizer plugin, which also requires mx
4056       ;;("clutter" ,clutter)
4057       ;;("clutter-gtk" ,clutter-gtk)
4058       ;;("clutter-gst" ,clutter-gst)
4059       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4060       ("atk" ,atk)
4061       ("pango" ,pango)
4062       ("gtk+" ,gtk+)
4063       ;; TODO:
4064       ;;  * libgpod
4065       ;;  * mx
4066       ("brasero" ,brasero)))
4067    (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
4068    (synopsis "Music player for GNOME")
4069    (description "Rhythmbox is a music playing application for GNOME.  It
4070 supports playlists, song ratings, and any codecs installed through gstreamer.")
4071    (license license:gpl2+)))
4072
4073 (define-public eog
4074  (package
4075    (name "eog")
4076    (version "3.28.4")
4077    (source (origin
4078             (method url-fetch)
4079             (uri (string-append "mirror://gnome/sources/" name "/"
4080                                 (version-major+minor version) "/"
4081                                 name "-" version ".tar.xz"))
4082             (sha256
4083              (base32
4084               "1wrq3l3z0x6q0hnc1vqr2hnyb1b14qw6aqvc5dldfgbs0yys6p55"))))
4085    (build-system meson-build-system)
4086    (arguments
4087     `(#:configure-flags
4088       ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
4089       (list (string-append "-Dc_link_args=-Wl,-rpath="
4090                            (assoc-ref %outputs "out") "/lib/eog"))
4091       #:phases
4092       (modify-phases %standard-phases
4093         (add-after 'install 'wrap-eog
4094           (lambda* (#:key outputs #:allow-other-keys)
4095             (let ((out               (assoc-ref outputs "out"))
4096                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
4097               (wrap-program (string-append out "/bin/eog")
4098                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
4099             #t)))))
4100    (propagated-inputs
4101     `(("dconf" ,dconf)))
4102    (native-inputs
4103     `(("intltool" ,intltool)
4104       ("itstool" ,itstool)
4105       ("glib" ,glib "bin")
4106       ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
4107       ("gobject-introspection" ,gobject-introspection)
4108       ("pkg-config" ,pkg-config)
4109       ("xmllint" ,libxml2)))
4110    (inputs
4111     `(("gnome-desktop" ,gnome-desktop)
4112       ("shared-mime-info" ,shared-mime-info)
4113       ("adwaita-icon-theme" ,adwaita-icon-theme)
4114       ("exempi" ,exempi)
4115       ("lcms" ,lcms)
4116       ("libexif" ,libexif)
4117       ("libpeas" ,libpeas)
4118       ("libjpeg" ,libjpeg)
4119       ("librsvg" ,librsvg)
4120       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4121       ("gtk+" ,gtk+)))
4122    (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
4123    (synopsis "GNOME image viewer")
4124    (description "Eye of GNOME is the GNOME image viewer.  It
4125 supports image conversion, rotation, and slideshows.")
4126    (license license:gpl2+)))
4127
4128 (define-public eog-plugins
4129   ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
4130   ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
4131   ;; $XDG_DATA_DIRS.  Thus, for EOG to find these, you have to have
4132   ;; 'XDG_DATA_DIRS' appropriately set.
4133   (package
4134     (name "eog-plugins")
4135     (version "3.26.3")
4136     (source (origin
4137               (method url-fetch)
4138               (uri (string-append "mirror://gnome/sources/eog-plugins/"
4139                                   (version-major+minor version) "/"
4140                                   "eog-plugins-" version ".tar.xz"))
4141               (sha256
4142                (base32
4143                 "06fnjs2p18ad5vk07z685cx26sc7d3azywss00w9xvz794b2i1g3"))))
4144     (build-system gnu-build-system)
4145     (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
4146     (synopsis "Extensions for the Eye of GNOME image viewer")
4147     (native-inputs
4148      `(("pkg-config" ,pkg-config)
4149        ("gettext" ,gnu-gettext)))
4150     (inputs
4151      `(("eog" ,eog)
4152        ("glib" ,glib)
4153        ("gtk+" ,gtk+)
4154        ("libpeas" ,libpeas)
4155        ("libexif" ,libexif)
4156        ("libchamplain" ,libchamplain)))
4157     (description
4158      "This package provides plugins for the Eye of GNOME (EOG) image viewer,
4159 notably:
4160
4161 @itemize
4162 @item @dfn{EXIF Display}, which displays camera (EXIF) information;
4163 @item @dfn{Map}, which displays a map of where the picture was taken on the
4164 side panel;
4165 @item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
4166 @end itemize\n")
4167
4168     ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
4169     ;; long suspicious byte stream that goes to a
4170     ;; ".gresource.eog_postasa_plugin" ELF section.
4171     (license license:gpl2+)))
4172
4173 (define-public libgudev
4174   (package
4175     (name "libgudev")
4176     (version "232")
4177     (source (origin
4178               (method url-fetch)
4179               (uri (string-append "mirror://gnome/sources/" name "/"
4180                                   version "/" name "-" version ".tar.xz"))
4181               (sha256
4182                (base32
4183                 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
4184     (build-system gnu-build-system)
4185     (arguments
4186      '(#:configure-flags
4187        ;; umockdev depends on libgudev.
4188        (list "--disable-umockdev")))
4189     (native-inputs
4190      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
4191        ("gobject-introspection" ,gobject-introspection)
4192        ("pkg-config" ,pkg-config)))
4193     (propagated-inputs
4194      `(("glib" ,glib))) ; required by gudev-1.0.pc
4195     (inputs
4196      `(("udev" ,eudev)))
4197     (home-page "https://wiki.gnome.org/Projects/libgudev")
4198     (synopsis "GObject bindings for libudev")
4199     (description
4200      "This library provides GObject bindings for libudev.  It was originally
4201 part of udev-extras, then udev, then systemd.  It's now a project on its own.")
4202     (license license:lgpl2.1+)))
4203
4204 (define-public gvfs
4205   (package
4206     (name "gvfs")
4207     (version "1.40.1")
4208     (source (origin
4209               (method url-fetch)
4210               (uri (string-append "mirror://gnome/sources/gvfs/"
4211                                   (version-major+minor version) "/"
4212                                   "gvfs-" version ".tar.xz"))
4213               (sha256
4214                (base32
4215                 "1cfnzamr4mvgpf6yhm28lh9cafy9z6842s8jpbqnfizfxybg8ylj"))))
4216     (build-system meson-build-system)
4217     (arguments
4218      '(#:glib-or-gtk? #t
4219        #:configure-flags
4220        (list "-Dsystemduserunitdir=no"
4221              "-Dtmpfilesdir=no"
4222              ;; Otherwise, the RUNPATH will lack the final path component.
4223              (string-append "-Dc_link_args=-Wl,-rpath="
4224                             (assoc-ref %outputs "out") "/lib/gvfs"))))
4225     (native-inputs
4226      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
4227        ("gettext" ,gettext-minimal)
4228        ("gtk-doc" ,gtk-doc)
4229        ("pkg-config" ,pkg-config)
4230        ("xsltproc" ,libxslt)))
4231     (inputs
4232      `(("avahi" ,avahi)
4233        ("docbook-xml" ,docbook-xml-4.2)
4234        ("docbook-xsl" ,docbook-xsl)
4235        ("dbus" ,dbus)
4236        ("elogind" ,elogind)
4237        ("fuse" ,fuse)
4238        ("gcr" ,gcr)
4239        ("glib" ,glib)
4240        ("gnome-online-accounts" ,gnome-online-accounts)
4241        ("libarchive" ,libarchive)
4242        ("libbluray" ,libbluray)
4243        ("libcap" ,libcap)
4244        ("libcdio-paranoia" ,libcdio-paranoia)
4245        ("libgcrypt" ,libgcrypt)
4246        ("libgdata" ,libgdata)
4247        ("libgphoto2" ,libgphoto2)
4248        ("libgudev" ,libgudev)
4249        ("libimobiledevice" ,libimobiledevice)
4250        ("libmtp" ,libmtp)
4251        ("libnfs" ,libnfs)
4252        ("libsecret" ,libsecret)
4253        ("libsmbclient" ,samba)
4254        ("libsoup" ,libsoup)
4255        ("libxml2" ,libxml2)
4256        ("openssh" ,openssh)
4257        ("polkit" ,polkit)
4258        ("udisks" ,udisks)))
4259     (home-page "https://wiki.gnome.org/gvfs/")
4260     (synopsis "Userspace virtual file system for GIO")
4261     (description
4262      "GVFS is a userspace virtual file system designed to work with the I/O
4263 abstraction of GIO.  It contains a GIO module that seamlessly adds GVFS support
4264 to all applications using the GIO API.  It also supports exposing the GVFS
4265 mounts to non-GIO applications using FUSE.
4266
4267 GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
4268 DAV, and others.")
4269     (license license:lgpl2.0+)))
4270
4271 (define-public gusb
4272   (package
4273     (name "gusb")
4274     (version "0.3.0")
4275     (source (origin
4276               (method url-fetch)
4277               (uri (string-append "https://github.com/hughsie/libgusb/archive/"
4278                                   version ".tar.gz"))
4279               (sha256
4280                (base32
4281                 "1wa9787ww7s1kl9jml6kiyrjgimlgagq4jmgdj7xcpsx83w10qxk"))))
4282     (build-system meson-build-system)
4283     (native-inputs
4284      `(("gobject-introspection" ,gobject-introspection)
4285        ("pkg-config" ,pkg-config)
4286        ("vala" ,vala)
4287        ("gtk-doc" ,gtk-doc)))
4288     (propagated-inputs
4289      ;; Both of these are required by gusb.pc.
4290      `(("glib" ,glib)
4291        ("libusb" ,libusb)))
4292     (arguments
4293      `(#:tests? #f)) ;libusb fails to initialize.  Wonder what that is.
4294     (home-page "https://github.com/hughsie/libgusb")
4295     (synopsis "GLib binding for libusb1")
4296     (description
4297      "GUsb is a GObject wrapper for libusb1 that makes it easy to do
4298 asynchronous control, bulk and interrupt transfers with proper cancellation
4299 and integration into a mainloop.  This makes it easy to integrate low level
4300 USB transfers with your high-level application or system daemon.")
4301     (license license:lgpl2.1+)))
4302
4303 (define-public simple-scan
4304   (package
4305     (name "simple-scan")
4306     (version "3.24.1")
4307     (source (origin
4308               (method url-fetch)
4309               (uri (string-append "https://launchpad.net/simple-scan/"
4310                                   (version-major+minor version) "/"
4311                                   version "/+download/simple-scan-"
4312                                   version ".tar.xz"))
4313               (sha256
4314                (base32
4315                 "1czg21cdbd2fgqylxfnzfhhzy69gycf816d5bbaq6hb62hmq7bjy"))))
4316     (build-system glib-or-gtk-build-system)
4317     (inputs
4318      `(("gtk" ,gtk+)
4319        ("zlib" ,zlib)
4320        ("cairo" ,cairo)
4321        ("gdk-pixbuf" ,gdk-pixbuf)
4322        ("gusb" ,gusb)
4323        ("libsane" ,sane-backends)))
4324     (native-inputs
4325      `(("gettext" ,gettext-minimal)
4326        ("itstool" ,itstool)
4327        ("colord" ,colord)
4328        ("glib" ,glib "bin")                       ; glib-compile-schemas, etc.
4329        ("pkg-config" ,pkg-config)
4330        ("vala" ,vala)
4331        ("xmllint" ,libxml2)))
4332     (arguments
4333      '(#:configure-flags '("--disable-packagekit")
4334        #:phases
4335        (modify-phases %standard-phases
4336          (add-after 'unpack 'clean
4337                     (lambda _
4338                       ;; Remove a left-over reference to PackageKit.
4339
4340                       ;; https://bugs.launchpad.net/simple-scan/+bug/1462769
4341
4342                       ;; There are some generated C files erroneously
4343                       ;; included in the source distribution, and this
4344                       ;; one breaks the build by referring to a
4345                       ;; non-existent header (packagekit.h)
4346                       (delete-file "src/ui.c"))))))
4347     (home-page "https://launchpad.net/simple-scan")
4348     (synopsis "Document and image scanner")
4349     (description "Simple Scan is an easy-to-use application, designed to let
4350 users connect their scanner and quickly have the image/document in an
4351 appropriate format.  Simple Scan is basically a frontend for SANE - which is
4352 the same backend as XSANE uses. This means that all existing scanners will
4353 work and the interface is well tested.")
4354     (license license:gpl3+)))
4355
4356 (define-public eolie
4357   (package
4358     (name "eolie")
4359     (version "0.9.63")
4360     (source (origin
4361               (method url-fetch)
4362               (uri (string-append "https://gitlab.gnome.org/World/eolie/"
4363                                   "uploads/d42b466752729a0d3fa828a721e25043/"
4364                                   "eolie-" version ".tar.xz"))
4365               (sha256
4366                (base32
4367                 "11pp8g0w22h1q0bbj9517l5838gcymvvp8fp9kh6h2dmgir2ssih"))))
4368     (build-system meson-build-system)
4369     (arguments
4370      `(#:glib-or-gtk? #t
4371        #:phases
4372        (modify-phases %standard-phases
4373          (add-after 'wrap 'wrap-more
4374            (lambda* (#:key inputs outputs #:allow-other-keys)
4375              (let* ((out  (assoc-ref outputs "out"))
4376                     ;; These libraries must be on LD_LIBRARY_PATH.
4377                     (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
4378                             "atk" "gtk+" "gsettings-desktop-schemas"
4379                             "gobject-introspection"))
4380                     (path (string-join
4381                            (map (lambda (lib)
4382                                   (string-append (assoc-ref inputs lib) "/lib"))
4383                                 libs)
4384                            ":")))
4385                (wrap-program (string-append out "/bin/eolie")
4386                  `("LD_LIBRARY_PATH" ":" prefix (,path))
4387                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
4388                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
4389              #t)))))
4390     (native-inputs
4391      `(("intltool" ,intltool)
4392        ("itstool" ,itstool)
4393        ("pkg-config" ,pkg-config)
4394        ("python" ,python)
4395        ("glib:bin" ,glib "bin")
4396        ("gtk+" ,gtk+ "bin")))
4397     (inputs
4398      `(("gobject-introspection" ,gobject-introspection)
4399        ("glib-networking" ,glib-networking)
4400        ("cairo" ,cairo)
4401        ("gtk+" ,gtk+)
4402        ("atk" ,atk)    ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
4403        ("python" ,python-wrapper)
4404        ("python-dateutil" ,python-dateutil)
4405        ("python-pyfxa" ,python-pyfxa)
4406        ("python-pygobject" ,python-pygobject)
4407        ("python-pycairo" ,python-pycairo)
4408        ("python-pycrypto" ,python-pycrypto)
4409        ("libsecret" ,libsecret)
4410        ("gtkspell3" ,gtkspell3)
4411        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4412        ("webkitgtk" ,webkitgtk)))
4413     (home-page "https://wiki.gnome.org/Apps/Eolie")
4414     (synopsis "Web browser for GNOME")
4415     (description
4416      "Eolie is a new web browser for GNOME.  It features Firefox sync support,
4417 a secret password store, an adblocker, and a modern UI.")
4418     (license license:gpl3+)))
4419
4420 (define-public epiphany
4421   (package
4422     (name "epiphany")
4423     (version "3.30.4")
4424     (source (origin
4425               (method url-fetch)
4426               (uri (string-append "mirror://gnome/sources/epiphany/"
4427                                   (version-major+minor version) "/"
4428                                   "epiphany-" version ".tar.xz"))
4429               (sha256
4430                (base32
4431                 "0nk0krzrfck6hhfs52f4sjmj93yjyvabm72bq8i8f9l1pass5vgd"))))
4432
4433     (build-system meson-build-system)
4434     (arguments
4435      ;; FIXME: tests run under Xvfb, but fail with:
4436      ;;   /src/bookmarks/ephy-bookmarks/create:
4437      ;;   ** (test-ephy-bookmarks:19591): WARNING **: Unable to start Zeroconf
4438      ;;      subsystem
4439      ;;   FAIL
4440      '(#:tests? #f
4441        #:glib-or-gtk? #t
4442        #:configure-flags
4443        ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
4444        (list (string-append "-Dc_link_args=-Wl,-rpath="
4445                             (assoc-ref %outputs "out") "/lib/epiphany"))))
4446     (propagated-inputs
4447      `(("dconf" ,dconf)))
4448     (native-inputs
4449      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
4450        ("glib:bin" ,glib "bin") ; for glib-mkenums
4451        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
4452        ("intltool" ,intltool)
4453        ("itstool" ,itstool)
4454        ("pkg-config" ,pkg-config)
4455        ("xmllint" ,libxml2)))
4456     (inputs
4457      `(("avahi" ,avahi)
4458        ("gcr" ,gcr)
4459        ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
4460        ("glib-networking" ,glib-networking)
4461        ("gnome-desktop" ,gnome-desktop)
4462        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4463        ("json-glib" ,json-glib)
4464        ("iso-codes" ,iso-codes)
4465        ("libdazzle" ,libdazzle)
4466        ("libnotify" ,libnotify)
4467        ("libsecret" ,libsecret)
4468        ("libxslt" ,libxslt)
4469        ("nettle" ,nettle) ; for hogweed
4470        ("sqlite" ,sqlite)
4471        ("webkitgtk" ,webkitgtk)))
4472     (home-page "https://wiki.gnome.org/Apps/Web")
4473     (synopsis "GNOME web browser")
4474     (description
4475      "Epiphany is a GNOME web browser targeted at non-technical users.  Its
4476 principles are simplicity and standards compliance.")
4477     (license license:gpl2+)))
4478
4479 (define-public d-feet
4480   (package
4481     (name "d-feet")
4482     (version "0.3.14")
4483     (source (origin
4484               (method url-fetch)
4485               (uri (string-append "mirror://gnome/sources/" name "/"
4486                                   (version-major+minor version) "/"
4487                                   name "-" version ".tar.xz"))
4488               (sha256
4489                (base32
4490                 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
4491     (build-system glib-or-gtk-build-system)
4492     (arguments
4493      '(#:out-of-source? #f ; tests need to run in the source directory.
4494        #:phases
4495        (modify-phases %standard-phases
4496          (add-before
4497           'check 'pre-check
4498           (lambda _
4499             ;; The test suite requires a running X server.
4500             (system "Xvfb :1 &")
4501             (setenv "DISPLAY" ":1")
4502             ;; Don't fail on missing '/etc/machine-id'.
4503             (setenv "DBUS_FATAL_WARNINGS" "0")
4504             ;; tests.py and window.py don't meet E402:
4505             ;;   E402 module level import not at top of file
4506             (substitute* "src/tests/Makefile"
4507               (("--ignore=E123") "--ignore=E123,E402"))
4508             #t))
4509          (add-after
4510           'install 'wrap-program
4511           (lambda* (#:key outputs #:allow-other-keys)
4512             (let ((prog (string-append (assoc-ref outputs "out")
4513                                        "/bin/d-feet")))
4514               (wrap-program prog
4515                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
4516                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
4517               #t))))))
4518     (native-inputs
4519      `(("intltool" ,intltool)
4520        ("itstool" ,itstool)
4521        ("pkg-config" ,pkg-config)
4522        ("python-pep8" ,python-pep8)
4523        ("xmllint" ,libxml2)
4524        ("xorg-server" ,xorg-server)))
4525     (inputs
4526      `(("gobject-introspection" ,gobject-introspection)
4527        ("gtk+" ,gtk+)
4528        ("python" ,python-wrapper)
4529        ("hicolor-icon-theme" ,hicolor-icon-theme)
4530        ("python-pygobject" ,python-pygobject)))
4531     (home-page "https://wiki.gnome.org/Apps/DFeet")
4532     (synopsis "D-Bus debugger")
4533     (description
4534      "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
4535 of running programs and invoke methods on those interfaces.")
4536     (license license:gpl2+)))
4537
4538 (define-public yelp-xsl
4539   (package
4540     (name "yelp-xsl")
4541     (version "3.32.1")
4542     (source (origin
4543               (method url-fetch)
4544               (uri (string-append "mirror://gnome/sources/" name "/"
4545                                   (version-major+minor version) "/"
4546                                   name "-" version ".tar.xz"))
4547               (sha256
4548                (base32
4549                 "013z2ixx9kfrs6hq79qpil093xfbc12y1p0mvsh6lpala30iphya"))))
4550     (build-system gnu-build-system)
4551     (native-inputs
4552      `(("intltool" ,intltool)
4553        ("itstool" ,itstool)
4554        ("xmllint" ,libxml2)))
4555     (home-page "https://wiki.gnome.org/Apps/Yelp")
4556     (synopsis "XSL stylesheets for Yelp")
4557     (description
4558      "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
4559 to format Docbook and Mallard documents.")
4560     (license license:gpl2+)))
4561
4562 (define-public yelp
4563   (package
4564     (name "yelp")
4565     (version "3.30.0")
4566     (source (origin
4567               (method url-fetch)
4568               (uri (string-append "mirror://gnome/sources/" name "/"
4569                                   (version-major+minor version) "/"
4570                                   name "-" version ".tar.xz"))
4571               (sha256
4572                (base32
4573                 "060a902j15k76fyhk8xfl38ipvrrcc0qd7nm2mcck4ifb45b0zv4"))))
4574     (build-system glib-or-gtk-build-system)
4575     (native-inputs
4576      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
4577        ("intltool" ,intltool)
4578        ("itstool" ,itstool)
4579        ("pkg-config" ,pkg-config)))
4580     (propagated-inputs
4581      `(("dconf" ,dconf)))
4582     (inputs
4583      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4584        ("libxslt" ,libxslt)
4585        ("sqlite" ,sqlite)
4586        ("webkitgtk" ,webkitgtk)
4587        ("yelp-xsl" ,yelp-xsl)))
4588     (home-page "https://wiki.gnome.org/Apps/Yelp")
4589     (synopsis "GNOME help browser")
4590     (description
4591      "Yelp is the help viewer in Gnome.  It natively views Mallard, DocBook,
4592 man, info, and HTML documents.  It can locate documents according to the
4593 freedesktop.org help system specification.")
4594     (license license:gpl2+)))
4595
4596 (define-public yelp-tools
4597   (package
4598     (name "yelp-tools")
4599     (version "3.28.0")
4600     (source (origin
4601               (method url-fetch)
4602               (uri (string-append "mirror://gnome/sources/" name "/"
4603                                   (version-major+minor version) "/"
4604                                   name "-" version ".tar.xz"))
4605               (sha256
4606                (base32
4607                 "1b61dmlb1sd50fgq6zgnkcpx2s1py33q0x9cx67fzpsr4gmgxnw2"))))
4608     (build-system gnu-build-system)
4609     (native-inputs
4610      `(("pkg-config" ,pkg-config)))
4611     (propagated-inputs
4612      ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
4613      `(("itstool" ,itstool)
4614        ("xmllint" ,libxml2)
4615        ("xsltproc" ,libxslt)))
4616     (inputs
4617      `(("yelp-xsl" ,yelp-xsl)))
4618     (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
4619     (synopsis "Yelp documentation tools")
4620     (description
4621      "Yelp-tools is a collection of scripts and build utilities to help create,
4622 manage, and publish documentation for Yelp and the web.  Most of the heavy
4623 lifting is done by packages like yelp-xsl and itstool.  This package just
4624 wraps things up in a developer-friendly way.")
4625     (license license:gpl2+)))
4626
4627 (define-public libgee
4628   (package
4629     (name "libgee")
4630     (version "0.20.1")
4631     (source (origin
4632               (method url-fetch)
4633               (uri (string-append "mirror://gnome/sources/" name "/"
4634                                   (version-major+minor version) "/"
4635                                   name "-" version ".tar.xz"))
4636               (sha256
4637                (base32
4638                 "0c26x8gi3ivmhlbqcmiag4jwrkvcy28ld24j55nqr3jikb904a5v"))))
4639     (build-system gnu-build-system)
4640     (arguments
4641      `(#:phases
4642        (modify-phases %standard-phases
4643          (add-after 'unpack 'fix-introspection-install-dir
4644           (lambda* (#:key outputs #:allow-other-keys)
4645             (let ((out (assoc-ref outputs "out")))
4646               (substitute* "gee/Makefile.in"
4647                 (("@INTROSPECTION_GIRDIR@")
4648                  (string-append out "/share/gir-1.0/"))
4649                 (("@INTROSPECTION_TYPELIBDIR@")
4650                  (string-append out "/lib/girepository-1.0/")))))))))
4651     (native-inputs
4652      `(("glib" ,glib "bin")
4653        ("pkg-config" ,pkg-config)))
4654     (inputs
4655      `(("glib" ,glib)
4656        ("gobject-introspection" ,gobject-introspection)))
4657     (home-page "https://wiki.gnome.org/Projects/Libgee")
4658     (synopsis "GObject collection library")
4659     (description
4660      "Libgee is a utility library providing GObject-based interfaces and
4661 classes for commonly used data structures.")
4662     (license license:lgpl2.1+)))
4663
4664 (define-public gexiv2
4665   (package
4666     (name "gexiv2")
4667     (version "0.12.0")
4668     (source (origin
4669               (method url-fetch)
4670               (uri (string-append "mirror://gnome/sources/" name "/"
4671                                   (version-major+minor version) "/"
4672                                   name "-" version ".tar.xz"))
4673               (sha256
4674                (base32
4675                 "0slj5yj8c90l9pp5i3z74x5r3r4da0xfmbzkfq5k0dkg72q3kxaq"))))
4676     (build-system meson-build-system)
4677     (native-inputs
4678      `(("gcr" ,gcr)
4679        ("glib" ,glib "bin")
4680        ("pkg-config" ,pkg-config)
4681        ("vala" ,vala)))
4682     (propagated-inputs
4683      ;; Listed in "Requires" section of gexiv2.pc
4684      `(("exiv2" ,exiv2)))
4685     (inputs
4686      `(("glib" ,glib)
4687        ("gobject-introspection" ,gobject-introspection)))
4688     (home-page "https://wiki.gnome.org/Projects/gexiv2")
4689     (synopsis "GObject wrapper around the Exiv2 photo metadata library")
4690     (description
4691      "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library.  It
4692 allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
4693 metadata in photo and video files of various formats.")
4694     (license license:gpl2+)))
4695
4696 (define-public shotwell
4697   (package
4698     (name "shotwell")
4699     (version "0.30.4")
4700     (source (origin
4701               (method url-fetch)
4702               (uri (string-append "mirror://gnome/sources/" name "/"
4703                                   (version-major+minor version) "/"
4704                                   name "-" version ".tar.xz"))
4705               (sha256
4706                (base32
4707                 "1yiz3j0y2yg6985y3alb3hpkfbv68n8ibys5gpwcjdhmhf3czg5p"))))
4708     (build-system meson-build-system)
4709     (arguments
4710      '(#:glib-or-gtk? #t))
4711     (propagated-inputs
4712      `(("dconf" ,dconf)))
4713     (native-inputs
4714      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
4715        ("gettext" ,gettext-minimal)
4716        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
4717        ("itstool" ,itstool)
4718        ("pkg-config" ,pkg-config)
4719        ("vala" ,vala)))
4720     (inputs
4721      `(("glib:bin" ,glib "bin")
4722        ("gstreamer" ,gstreamer)
4723        ("gst-plugins-base" ,gst-plugins-base)
4724        ("libgdata" ,libgdata)
4725        ("libgee" ,libgee)
4726        ("gexiv2" ,gexiv2)
4727        ("libraw" ,libraw)
4728        ("json-glib" ,json-glib)
4729        ("webkitgtk" ,webkitgtk)
4730        ("sqlite" ,sqlite)
4731        ("libsoup" ,libsoup)
4732        ("libxml2" ,libxml2)
4733        ("libgudev" ,libgudev)
4734        ("libgphoto2" ,libgphoto2)
4735        ("gcr" ,gcr)))
4736     (home-page "https://wiki.gnome.org/Apps/Shotwell")
4737     (synopsis "Photo manager for GNOME 3")
4738     (description
4739      "Shotwell is a digital photo manager designed for the GNOME desktop
4740 environment.  It allows you to import photos from disk or camera, organize
4741 them by keywords and events, view them in full-window or fullscreen mode, and
4742 share them with others via social networking and more.")
4743     (license license:lgpl2.1+)))
4744
4745 (define-public file-roller
4746   (package
4747     (name "file-roller")
4748     (version "3.30.1")
4749     (source (origin
4750               (method url-fetch)
4751               (uri (string-append "mirror://gnome/sources/" name "/"
4752                                   (version-major+minor version) "/"
4753                                   name "-" version ".tar.xz"))
4754               (sha256
4755                (base32
4756                 "0kiragsqyixyx15747b71qc4nw8y4jx9d55wgg612xb0hp5l9pj1"))))
4757     (build-system meson-build-system)
4758     (native-inputs
4759      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
4760        ("intltool" ,intltool)
4761        ("pkg-config" ,pkg-config)
4762        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
4763        ("glib:bin" ,glib "bin")))
4764     ;; TODO: Add libnautilus.
4765     (inputs
4766      `(("gtk+" ,gtk+)
4767        ("gdk-pixbuf" ,gdk-pixbuf)
4768        ("json-glib" ,json-glib)
4769        ("libarchive" ,libarchive)
4770        ("libnotify" ,libnotify)
4771        ("itstool" ,itstool)
4772        ("libxml2" ,libxml2)))
4773     (synopsis "Graphical archive manager for GNOME")
4774     (description "File Roller is an archive manager for the GNOME desktop
4775 environment that allows users to view, unpack, and create compressed archives
4776 such as gzip tarballs.")
4777     (home-page "http://fileroller.sourceforge.net/")
4778     (license license:gpl2+)))
4779
4780 (define-public gnome-session
4781   (package
4782     (name "gnome-session")
4783     (version "3.30.1")
4784     (source (origin
4785               (method url-fetch)
4786               (uri (string-append "mirror://gnome/sources/" name "/"
4787                                   (version-major+minor version) "/"
4788                                   name "-" version ".tar.xz"))
4789               (sha256
4790                (base32
4791                 "0fbpq103md4g9gi67rxnwvha21629nxx7qazddy6q6494sbqbzpa"))))
4792     (arguments
4793      '(#:glib-or-gtk? #t
4794        #:phases
4795        (modify-phases %standard-phases
4796          (add-before 'configure 'pre-configure
4797            (lambda* (#:key outputs #:allow-other-keys)
4798              ;; Use elogind instead of systemd.
4799              (substitute* "meson.build"
4800                (("libsystemd-login") "libelogind")
4801                (("and libsystemd_daemon_dep.found.*") ","))
4802              (substitute* "gnome-session/gsm-systemd.c"
4803                (("#include <systemd/sd-login.h>")
4804                 "#include <elogind/sd-login.h>"))
4805              ;; Remove uses of the systemd daemon.
4806              (substitute* "gnome-session/gsm-autostart-app.c"
4807                (("#ifdef HAVE_SYSTEMD") "#if 0"))
4808              #t))
4809          (add-after 'install 'wrap-gnome-session
4810            (lambda* (#:key inputs outputs #:allow-other-keys)
4811              ;; Make sure 'gnome-session' finds the 'gsettings' program.
4812              (let ((glib (assoc-ref inputs "glib:bin"))
4813                    (out  (assoc-ref outputs "out")))
4814                (wrap-program (string-append out "/bin/gnome-session")
4815                  `("PATH" ":" prefix (,(string-append glib "/bin"))))
4816                #t))))
4817
4818        #:configure-flags
4819        '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
4820          "-Dman=false" ; FIXME: disabled because of docbook validation error
4821          "-Dsystemd_journal=false")))
4822     (build-system meson-build-system)
4823     (native-inputs
4824      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4825        ("pkg-config" ,pkg-config)
4826        ("intltool" ,intltool)
4827        ("xsltproc" ,libxslt)
4828        ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
4829        ("docbook-xsl" ,docbook-xsl)
4830        ("docbook-xml" ,docbook-xml)
4831        ("xmlto" ,xmlto)))
4832     (inputs
4833      `(("elogind" ,elogind)
4834        ("gnome-desktop" ,gnome-desktop)
4835        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4836        ("gtk+" ,gtk+)
4837        ("json-glib" ,json-glib)
4838        ("libsm" ,libsm)
4839        ("libxcomposite" ,libxcomposite)
4840        ("libxtst" ,libxtst)
4841        ("mesa" ,mesa)
4842        ("upower" ,upower)
4843        ("xtrans" ,xtrans)))
4844     (synopsis "Session manager for GNOME")
4845     (description
4846      "This package contains the GNOME session manager, as well as a
4847 configuration program to choose applications starting on login.")
4848     (home-page "https://wiki.gnome.org/Projects/SessionManagement")
4849     (license license:gpl2+)))
4850
4851 (define-public gjs
4852   (package
4853     (name "gjs")
4854     (version "1.56.2")
4855     (source (origin
4856               (method url-fetch)
4857               (uri (string-append "mirror://gnome/sources/" name "/"
4858                                   (version-major+minor version) "/"
4859                                   name "-" version ".tar.xz"))
4860               (sha256
4861                (base32
4862                 "1b5321krn89p3f7s2ik6gpfnc61apzljhlnbqky8c88f7n6832ac"))))
4863     (build-system gnu-build-system)
4864     (arguments
4865      '(#:phases
4866        (modify-phases %standard-phases
4867          (add-before
4868           'check 'pre-check
4869           (lambda _
4870             ;; The test suite requires a running X server.
4871             (system "Xvfb :1 &")
4872             (setenv "DISPLAY" ":1")
4873
4874             ;; For the missing /etc/machine-id.
4875             (setenv "DBUS_FATAL_WARNINGS" "0")
4876
4877             ;; Our mozjs-38 package does not compile the required Intl API
4878             ;; support for these failing tests.
4879             (substitute* "installed-tests/js/testLocale.js"
4880               ((".*toBeDefined.*") "")
4881               ((".*expect\\(datestr\\).*") ""))
4882             (substitute* "installed-tests/scripts/testCommandLine.sh"
4883               (("Valentín") "")
4884               (("☭") ""))
4885             #t)))))
4886     (native-inputs
4887      `(("glib:bin" ,glib "bin")       ; for glib-compile-resources
4888        ("pkg-config" ,pkg-config)
4889        ("xmllint" ,libxml2)
4890        ;; For testing
4891        ("dbus-launch" ,dbus)
4892        ("uuidgen" ,util-linux)
4893        ("xvfb" ,xorg-server-for-tests)))
4894     (propagated-inputs
4895      ;; These are all in the Requires.private field of gjs-1.0.pc.
4896      `(("cairo" ,cairo)
4897        ("gobject-introspection" ,gobject-introspection)
4898        ("mozjs" ,mozjs-60)))
4899     (inputs
4900      `(("gtk+" ,gtk+)
4901        ("readline" ,readline)))
4902     (synopsis "Javascript bindings for GNOME")
4903     (home-page "https://live.gnome.org/Gjs")
4904     (description
4905      "Gjs is a javascript binding for GNOME.  It's mainly based on spidermonkey
4906 javascript engine and the GObject introspection framework.")
4907     (license license:gpl2+)))
4908
4909 (define-public gedit
4910   (package
4911     (name "gedit")
4912     (version "3.30.2")
4913     (source (origin
4914               (method url-fetch)
4915               (uri (string-append "mirror://gnome/sources/" name "/"
4916                                   (version-major+minor version) "/"
4917                                   name "-" version ".tar.xz"))
4918               (sha256
4919                (base32
4920                 "0qwig35hzvjaqic9x92jcpmycnvcybsbnbiw6rppryx0arwb3wza"))))
4921     (build-system glib-or-gtk-build-system)
4922     (arguments
4923      `(#:phases
4924        (modify-phases %standard-phases
4925          (add-after
4926           'install 'wrap-gedit
4927           (lambda* (#:key inputs outputs #:allow-other-keys)
4928             (let ((out               (assoc-ref outputs "out"))
4929                   (gtksourceview     (assoc-ref inputs "gtksourceview"))
4930                   (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
4931                   (python-path       (getenv "PYTHONPATH")))
4932               (wrap-program (string-append out "/bin/gedit")
4933                 ;; For plugins.
4934                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
4935                 `("PYTHONPATH" ":" prefix (,python-path))
4936                 ;; For language-specs.
4937                 `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
4938                                                               "/share")))))
4939             #t)))))
4940     (propagated-inputs
4941      `(("dconf" ,dconf)))
4942     (native-inputs
4943      `(("intltool" ,intltool)
4944        ("itstool" ,itstool)
4945        ("gobject-introspection" ,gobject-introspection)
4946        ("pkg-config" ,pkg-config)))
4947     (inputs
4948      `(("glib" ,glib)
4949        ("gspell" ,gspell)
4950        ("gtk+" ,gtk+)
4951        ("gtksourceview" ,gtksourceview-3)
4952        ("libpeas" ,libpeas)
4953        ("libxml2" ,libxml2)
4954        ("iso-codes" ,iso-codes)
4955        ("python-pygobject" ,python-pygobject)
4956        ("python" ,python)
4957        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4958        ("libx11" ,libx11)
4959        ("vala" ,vala)
4960        ("adwaita-icon-theme" ,adwaita-icon-theme)
4961        ("libsoup" ,libsoup)
4962        ("gnome-desktop" ,gnome-desktop)))
4963     (home-page "https://wiki.gnome.org/Apps/Gedit")
4964     (synopsis "GNOME text editor")
4965     (description "While aiming at simplicity and ease of use, gedit is a
4966 powerful general purpose text editor.")
4967     (license license:gpl2+)))
4968
4969 (define-public zenity
4970   (package
4971     (name "zenity")
4972     (version "3.30.0")
4973     (source (origin
4974               (method url-fetch)
4975               (uri (string-append "mirror://gnome/sources/" name "/"
4976                                   (version-major+minor version) "/"
4977                                   name "-" version ".tar.xz"))
4978               (sha256
4979                (base32
4980                 "1wipnp46pd238z9ck5rsckbaw7yla6c936fswq5w94k4c6bgcplr"))))
4981     (build-system gnu-build-system)
4982     (native-inputs
4983      `(("gettext" ,gettext-minimal)
4984        ("itstool" ,itstool)
4985        ("pkg-config" ,pkg-config)))
4986     (inputs
4987      `(("libnotify" ,libnotify)
4988        ("webkitgtk" ,webkitgtk)))
4989     (synopsis "Display graphical dialog boxes from shell scripts")
4990     (home-page "https://www.gnome.org")
4991     (description
4992      "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
4993 to display dialog boxes from the commandline and shell scripts.")
4994     (license license:lgpl2.0+)))
4995
4996 (define-public mutter
4997   (package
4998     (name "mutter")
4999     (version "3.30.2")
5000     (source (origin
5001               (method url-fetch)
5002               (uri (string-append "mirror://gnome/sources/" name "/"
5003                                   (version-major+minor version) "/"
5004                                   name "-" version ".tar.xz"))
5005               (sha256
5006                (base32
5007                 "0qr3w480p31nbiad49213rj9rk6p9fl82a68pzznpz36p30dq96z"))))
5008     ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
5009     ;; versions of cogl and clutter.  As a result, many of the inputs,
5010     ;; propagated-inputs, and configure flags used in cogl and clutter are
5011     ;; needed here as well.
5012     (build-system gnu-build-system)
5013     (arguments
5014      '(#:configure-flags
5015        ;; XXX: build fails with [-Werror]:
5016        ;;    backends/meta-cursor-renderer.c:112:5: error:
5017        ;;      implicit declaration of function ?roundf?
5018        (list "--enable-compile-warnings=minimum"
5019
5020              "--enable-native-backend"
5021
5022              ;; The following flags are needed for the bundled clutter
5023              "--enable-x11-backend=yes"
5024
5025              (string-append "--with-xwayland-path="
5026                             (assoc-ref %build-inputs "xorg-server-xwayland")
5027                             "/bin/Xwayland")
5028
5029              ;; the remaining flags are needed for the bundled cogl
5030              "--enable-cogl-gst"
5031              (string-append "--with-gl-libname="
5032                             (assoc-ref %build-inputs "mesa")
5033                             "/lib/libGL.so"))
5034        #:phases
5035        (modify-phases %standard-phases
5036          ;; Replace references to systemd libraries to elogind references.
5037          (add-before 'configure 'use-elogind
5038            (lambda _
5039              (substitute* (list "configure"
5040                                 "src/backends/native/meta-launcher.c"
5041                                 "src/core/main.c")
5042                (("systemd") "elogind"))
5043              #t)))))
5044     (native-inputs
5045      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5046        ("gobject-introspection" ,gobject-introspection)
5047        ("intltool" ,intltool)
5048        ("pkg-config" ,pkg-config)
5049        ;; For git build
5050        ("autoconf" ,autoconf)
5051        ("automake" ,automake)
5052        ("libtool" ,libtool)))
5053     (propagated-inputs
5054      `(;; libmutter.pc refers to these:
5055        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5056        ("gtk+" ,gtk+)
5057        ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
5058        ("atk" ,atk)
5059        ("cairo" ,cairo)
5060        ("gdk-pixbuf" ,gdk-pixbuf)
5061        ("glib" ,glib)
5062        ("json-glib" ,json-glib)
5063        ("libinput" ,libinput)
5064        ("libx11" ,libx11)
5065        ("libxcomposite" ,libxcomposite)
5066        ("libxdamage" ,libxdamage)
5067        ("libxext" ,libxext)
5068        ("libxfixes" ,libxfixes)
5069        ("libxkbcommon" ,libxkbcommon)
5070        ("libxrandr" ,libxrandr)
5071        ("mesa" ,mesa)
5072        ("pango" ,pango)
5073        ("udev" ,eudev)
5074        ("xinput" ,xinput)))
5075     (inputs
5076      `(("elogind" ,elogind)
5077        ("gnome-desktop" ,gnome-desktop)
5078        ("libcanberra-gtk" ,libcanberra)
5079        ("libgudev" ,libgudev)
5080        ("libice" ,libice)
5081        ("libsm" ,libsm)
5082        ("libxkbfile" ,libxkbfile)
5083        ("libxrandr" ,libxrandr)
5084        ("libxtst" ,libxtst)
5085        ("startup-notification" ,startup-notification)
5086        ("upower-glib" ,upower)
5087        ("xkeyboard-config" ,xkeyboard-config)
5088        ("xorg-server-xwayland" ,xorg-server-xwayland)
5089        ("zenity" ,zenity)))
5090     (synopsis "Window and compositing manager")
5091     (home-page "https://www.gnome.org")
5092     (description
5093      "Mutter is a window and compositing manager that displays and manages your
5094 desktop via OpenGL.  Mutter combines a sophisticated display engine using the
5095 Clutter toolkit with solid window-management logic inherited from the Metacity
5096 window manager.")
5097     (license license:gpl2+)))
5098
5099 (define-public gnome-online-accounts
5100   (package
5101     (name "gnome-online-accounts")
5102     (version "3.30.2")
5103     (source (origin
5104               (method url-fetch)
5105               (uri (string-append "mirror://gnome/sources/" name "/"
5106                                   (version-major+minor version) "/"
5107                                   name "-" version ".tar.xz"))
5108               (sha256
5109                (base32
5110                 "1p1gdgryziklrgngn6m13xnvfx4gb01h723nndfi9944r24fbiq5"))))
5111     (outputs '("out" "lib"))
5112     (build-system glib-or-gtk-build-system)
5113     (arguments
5114      `(#:configure-flags
5115        (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
5116        #:phases
5117        (modify-phases %standard-phases
5118          (add-before 'configure 'patch-libgoa-output
5119            (lambda* (#:key outputs #:allow-other-keys)
5120              (let ((lib (assoc-ref outputs "lib")))
5121                (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
5122                  (("@prefix@") lib)
5123                  (("@exec_prefix@") lib)
5124                  (("@libdir@") (string-append lib "/lib"))
5125                  (("@includedir@") (string-append lib "/include"))
5126                  (("@datadir@") (string-append lib "/share")))
5127                ;; Make sure gobject-introspection knows about the output
5128                ;; too (see <https://bugs.gnu.org/36535>).
5129                (setenv "outputs" "out lib")
5130                #t))))))
5131     (native-inputs
5132      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5133        ("gobject-introspection" ,gobject-introspection)
5134        ("intltool" ,intltool)
5135        ("pkg-config" ,pkg-config)
5136        ("xsltproc" ,libxslt)))
5137     (propagated-inputs
5138      `(("glib" ,glib)           ; required by goa-1.0.pc
5139        ("gtk+" ,gtk+)))         ; required by goa-backend-1.0.pc
5140     (inputs
5141      `(("docbook-xsl" ,docbook-xsl)
5142        ("json-glib" ,json-glib)
5143        ("libsecret" ,libsecret)
5144        ("rest" ,rest)
5145        ("webkitgtk" ,webkitgtk)))
5146     (synopsis "Single sign-on framework for GNOME")
5147     (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
5148     (description
5149      "GNOME Online Accounts provides interfaces so that applications and
5150 libraries in GNOME can access the user's online accounts.  It has providers for
5151 Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
5152 Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
5153     (license license:lgpl2.0+)))
5154
5155 (define-public evolution-data-server
5156   (package
5157     (name "evolution-data-server")
5158     (version "3.30.5")
5159     (source (origin
5160               (method url-fetch)
5161               (uri (string-append "mirror://gnome/sources/" name "/"
5162                                   (version-major+minor version) "/"
5163                                   name "-" version ".tar.xz"))
5164               (patches (search-patches "evolution-data-server-locales.patch"))
5165               (sha256
5166                (base32
5167                 "1s952wyhgcbmq9nfgk75v15zdy1h3wy5p5rmkqibaavmc0pk3mli"))))
5168     (build-system cmake-build-system)
5169     (arguments
5170      '(#:configure-flags
5171        (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
5172               (runpaths (map (lambda (s)
5173                                (string-append lib "/evolution-data-server/" s))
5174                              '("addressbook-backends" "calendar-backends"
5175                                "camel-providers" "credential-modules"
5176                                "registry-modules"))))
5177          (list "-DENABLE_UOA=OFF"             ;disable Ubuntu Online Accounts support
5178                "-DENABLE_GOOGLE=OFF"          ;disable Google Contacts support
5179                "-DENABLE_GOOGLE_AUTH=OFF"     ;disable Google authentication
5180                "-DENABLE_VALA_BINDINGS=ON"
5181                (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
5182                               (string-append lib "/evolution-data-server;")
5183                               (string-join runpaths ";"))
5184                "-DENABLE_INTROSPECTION=ON"))  ;required for Vala bindings
5185        #:phases
5186        (modify-phases %standard-phases
5187          (add-after 'unpack 'disable-failing-tests
5188            (lambda _
5189              ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
5190              ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
5191              (delete-file-recursively "tests/book-migration")
5192              (substitute* "tests/CMakeLists.txt"
5193                (("add_subdirectory\\(book-migration\\)") ""))
5194              ;; tests/libedata-cal/test-cal-meta-backend.c:1328:test_get_attachment_uris:
5195              ;; assertion failed (uris->data == expected_uri):
5196              ;; ("" == "file:///tests/libedata-cal/components/event-1.ics")
5197              (substitute* "tests/libedata-cal/CMakeLists.txt"
5198                (("test-cal-meta-backend") ""))
5199              #t))
5200          (add-after 'unpack 'patch-paths
5201           (lambda _
5202             (substitute* '("tests/test-server-utils/e-test-server-utils.c"
5203                            "tests/libedata-book/data-test-utils.c"
5204                            "tests/libedata-book/test-book-cache-utils.c"
5205                            "tests/libedata-cal/test-cal-cache-utils.c")
5206               (("/bin/rm") (which "rm")))
5207             #t))
5208          (add-before 'configure 'dont-override-rpath
5209            (lambda _
5210              (substitute* "CMakeLists.txt"
5211                ;; CMakeLists.txt hard-codes runpath to just the libdir.
5212                ;; Remove it so the configure flag is respected.
5213                (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
5214              #t)))))
5215     (native-inputs
5216      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
5217        ("gobject-introspection" ,gobject-introspection)
5218        ("gperf" ,gperf)
5219        ("intltool" ,intltool)
5220        ("pkg-config" ,pkg-config)
5221        ("vala" ,vala)
5222        ("python" ,python-wrapper)))
5223     (propagated-inputs
5224      ;; These are all in the Requires field of .pc files.
5225      `(("gtk+" ,gtk+)
5226        ("libical" ,libical)
5227        ("libsecret" ,libsecret)
5228        ("libsoup" ,libsoup)
5229        ("nss" ,nss)
5230        ("sqlite" ,sqlite)))
5231     (inputs
5232      `(("bdb" ,bdb)
5233        ("gcr" ,gcr)
5234        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
5235        ("json-glib" ,json-glib)
5236        ("libcanberra" ,libcanberra)
5237        ("libgweather" ,libgweather)
5238        ("mit-krb5" ,mit-krb5)
5239        ("openldap" ,openldap)
5240        ("webkitgtk" ,webkitgtk)))
5241     (synopsis "Store address books and calendars")
5242     (home-page "https://wiki.gnome.org/Apps/Evolution")
5243     (description
5244      "This package provides a unified backend for programs that work with
5245 contacts, tasks, and calendar information.  It was originally developed for
5246 Evolution (hence the name), but is now used by other packages as well.")
5247     (license license:lgpl2.0)))
5248
5249 (define-public caribou
5250   (package
5251     (name "caribou")
5252     (version "0.4.21")
5253     (source (origin
5254               (method url-fetch)
5255               (uri (string-append "mirror://gnome/sources/" name "/"
5256                                   (version-major+minor version) "/"
5257                                   name "-" version ".tar.xz"))
5258               (sha256
5259                (base32
5260                 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
5261     (build-system glib-or-gtk-build-system)
5262     (arguments
5263      '(#:phases
5264        (modify-phases %standard-phases
5265          (add-before
5266           'build 'pre-build
5267           (lambda* (#:key outputs #:allow-other-keys)
5268             (let ((out (assoc-ref outputs "out")))
5269               ;; Use absolute shared library path in Caribou-1.0.typelib.
5270               (substitute* "libcaribou/Makefile"
5271                 (("--shared-library=libcaribou.so")
5272                  (string-append "--shared-library="
5273                                 out "/lib/libcaribou.so")))
5274               #t)))
5275          (add-after 'install 'wrap-programs
5276           (lambda* (#:key outputs #:allow-other-keys)
5277             (let* ((out (assoc-ref outputs "out"))
5278                    (python-path (getenv "PYTHONPATH"))
5279                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
5280               (for-each
5281                (lambda (prog)
5282                  (wrap-program prog
5283                    `("PYTHONPATH"      ":" prefix (,python-path))
5284                    `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5285                (list (string-append out "/bin/caribou-preferences")
5286                      (string-append out "/libexec/antler-keyboard"))))
5287             #t)))))
5288     (native-inputs
5289      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5290        ("gobject-introspection" ,gobject-introspection)
5291        ("intltool" ,intltool)
5292        ("pkg-config" ,pkg-config)
5293        ("python" ,python-2) ; incompatible with Python 3 (print syntax)
5294        ("vala" ,vala)
5295        ("xsltproc" ,libxslt)))
5296     (propagated-inputs
5297      ;; caribou-1.0.pc refers to all these.
5298      `(("libgee" ,libgee)
5299        ("libxklavier" ,libxklavier)
5300        ("libxtst" ,libxtst)
5301        ("gtk+" ,gtk+)))
5302     (inputs
5303      `(("clutter" ,clutter)
5304        ("dconf" ,dconf)
5305        ("gtk+-2" ,gtk+-2)
5306        ("python-pygobject" ,python2-pygobject)))
5307     (synopsis "Text entry and UI navigation application")
5308     (home-page "https://wiki.gnome.org/Projects/Caribou")
5309     (description
5310      "Caribou is an input assistive technology intended for switch and pointer
5311 users.")
5312     (license license:lgpl2.1)))
5313
5314 (define-public network-manager
5315   (package
5316     (name "network-manager")
5317     (version "1.14.4")
5318     (source (origin
5319               (method url-fetch)
5320               (uri (string-append "mirror://gnome/sources/NetworkManager/"
5321                                   (version-major+minor version) "/"
5322                                   "NetworkManager-" version ".tar.xz"))
5323               (patches (search-patches "nm-plugin-path.patch"))
5324               (sha256
5325                (base32
5326                 "064cgj9za0kzarks0lrv0qw2ysdphb5l97iw0c964bfiqzjfv8rm"))
5327               (modules '((guix build utils)))
5328               (snippet
5329                '(begin
5330                   (substitute* "src/devices/wwan/nm-modem-manager.c"
5331                     (("systemd") "elogind"))
5332                   #t))))
5333     (build-system gnu-build-system)
5334     (outputs '("out"
5335                "doc")) ; 8 MiB of gtk-doc HTML
5336     (arguments
5337      '(#:configure-flags
5338        (let ((out      (assoc-ref %outputs "out"))
5339              (doc      (assoc-ref %outputs "doc"))
5340              (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
5341                                       "/sbin/dhclient")))
5342          (list "--with-libnm-glib" ; needed by network-manager-applet
5343                "--with-systemd-journal=no"
5344                "--with-session-tracking=elogind"
5345                "--with-suspend-resume=elogind"
5346                "--with-consolekit=no"
5347                "--with-crypto=gnutls"
5348                "--disable-config-plugin-ibft"
5349                "--sysconfdir=/etc"
5350                "--localstatedir=/var"
5351                (string-append "--with-udev-dir="
5352                               out "/lib/udev")
5353                (string-append "--with-dbus-sys-dir="
5354                               out "/etc/dbus-1/system.d")
5355                (string-append "--with-html-dir="
5356                               doc "/share/gtk-doc/html")
5357                (string-append "--with-dhclient=" dhclient)))
5358        #:phases
5359        (modify-phases %standard-phases
5360          ;; This bare "ls" invocation breaks some tests.
5361          (add-after 'unpack 'patch-ls-invocation
5362            (lambda _
5363              (substitute* "build-aux/ltmain.sh"
5364                (("`ls -")
5365                 (string-append "`" (which "ls") " -")))
5366              #t))
5367          (add-before 'configure 'pre-configure
5368            (lambda _
5369              ;; These tests try to test aspects of network-manager's
5370              ;; functionality within restricted containers, but they don't
5371              ;; cope with being already in the Guix build jail as that jail
5372              ;; lacks some features that they would like to proxy over (like
5373              ;; a /sys mount).
5374              (substitute* '("Makefile.in")
5375                (("src/platform/tests/test-address-linux") " ")
5376                (("src/platform/tests/test-cleanup-linux") " ")
5377                (("src/platform/tests/test-link-linux") " ")
5378                (("src/platform/tests/test-route-linux") " ")
5379                (("src/devices/tests/test-acd") "")
5380                (("src/devices/tests/test-arping") " ")
5381                (("src/devices/tests/test-lldp") " ")
5382                (("src/tests/test-route-manager-linux") " "))
5383              #t))
5384          (add-after 'unpack 'delete-failing-tests
5385            (lambda _
5386              ;; FIXME: These three tests fail for unknown reasons.
5387              ;; ERROR:libnm-core/tests/test-general.c:5842:
5388              ;;   _json_config_check_valid: assertion failed (res == expected): (1 == 0)
5389              ;; ERROR:libnm-core/tests/test-keyfile.c:647:
5390              ;;   test_team_conf_read_invalid: assertion failed: (nm_setting_team_get_config (s_team) == NULL)
5391              ;; ERROR:libnm-core/tests/test-setting.c:907:
5392              ;;   _test_team_config_sync: assertion failed: (nm_streq0 (nm_setting_team_get_runner (s_team), runner))
5393              (substitute* "Makefile.in"
5394                (("libnm-core/tests/test-general") " ")
5395                (("libnm-core/tests/test-keyfile") " ")
5396                (("libnm-core/tests/test-setting\\$\\(EXEEXT\\)") " "))
5397              #t))
5398          (add-before 'check 'pre-check
5399            (lambda _
5400              ;; For the missing /etc/machine-id.
5401              (setenv "DBUS_FATAL_WARNINGS" "0")
5402              #t))
5403          (replace 'install
5404            (lambda _
5405              (invoke "make"
5406                      "sysconfdir=/tmp"
5407                      "rundir=/tmp"
5408                      "statedir=/tmp"
5409                      "nmstatedir=/tmp/nm"
5410                      "install")
5411              #t)))))
5412     (propagated-inputs
5413      `(("glib" ,glib)))
5414     (native-inputs
5415      `(("glib:bin" ,glib "bin") ; for gdbus-codegen
5416        ("gobject-introspection" ,gobject-introspection)
5417        ("docbook-xsl" ,docbook-xsl)
5418        ("intltool" ,intltool)
5419        ("libxslt" ,libxslt)
5420        ("libxml2" ,libxml2)
5421        ("pkg-config" ,pkg-config)
5422        ;; For testing.
5423        ("python" ,python-wrapper)
5424        ("python-dbus" ,python-dbus)
5425        ("python-pygobject" ,python-pygobject)))
5426     (inputs
5427      `(("coreutils" ,coreutils) ; for ls
5428        ("curl" ,curl)
5429        ("cyrus-sasl" ,cyrus-sasl)
5430        ("dbus-glib" ,dbus-glib)
5431        ("dnsmasq" ,dnsmasq)
5432        ("eudev" ,eudev)
5433        ("gnutls" ,gnutls)
5434        ("iptables" ,iptables)
5435        ("isc-dhcp" ,isc-dhcp)
5436        ("jansson" ,jansson)
5437        ("libgcrypt" ,libgcrypt)
5438        ("libgudev" ,libgudev)
5439        ("libndp" ,libndp)
5440        ("libnl" ,libnl)
5441        ("libsoup" ,libsoup)
5442        ("modem-manager" ,modem-manager)
5443        ("newt" ,newt)                       ;for the 'nmtui' console interface
5444        ("polkit" ,polkit)
5445        ("ppp" ,ppp)
5446        ("readline" ,readline)
5447        ("util-linux" ,util-linux)
5448        ("elogind" ,elogind)))
5449     (synopsis "Network connection manager")
5450     (home-page "https://www.gnome.org/projects/NetworkManager/")
5451     (description
5452      "NetworkManager is a system network service that manages your network
5453 devices and connections, attempting to keep active network connectivity when
5454 available.  It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
5455 devices, and provides VPN integration with a variety of different VPN
5456 services.")
5457     (license license:gpl2+)
5458     (properties '((upstream-name . "NetworkManager")))))
5459
5460 (define-public network-manager-openvpn
5461   (package
5462     (name "network-manager-openvpn")
5463     (version "1.8.4")
5464     (source (origin
5465               (method url-fetch)
5466               (uri (string-append
5467                     "mirror://gnome/sources/NetworkManager-openvpn/"
5468                     (version-major+minor version)
5469                     "/NetworkManager-openvpn-" version ".tar.xz"))
5470               (sha256
5471                (base32
5472                 "0gyrv46h9k17qym48qacq4zpxbap6hi17shn921824zm98m2bdvr"))))
5473     (build-system gnu-build-system)
5474     (arguments
5475      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
5476        #:phases
5477        (modify-phases %standard-phases
5478          (add-after 'configure 'patch-path
5479            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
5480              (let* ((ovpn (string-append (assoc-ref inputs "openvpn")
5481                                          "/sbin/openvpn"))
5482                     (modprobe (string-append (assoc-ref inputs "kmod")
5483                                              "/bin/modprobe"))
5484                     (pretty-ovpn (string-append "\"" ovpn "\"")))
5485                (for-each
5486                 (lambda (file)
5487                   (substitute* file
5488                     (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
5489                     (("\"/usr/sbin/openvpn\"") pretty-ovpn)
5490                     (("\"/sbin/openvpn\"") pretty-ovpn)
5491                     (("/sbin/modprobe") modprobe)))
5492                 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
5493              #t)))))
5494     (native-inputs
5495      `(("pkg-config" ,pkg-config)
5496        ("intltool" ,intltool)))
5497     (inputs
5498      `(("gtk+" ,gtk+)
5499        ("kmod" ,kmod)
5500        ("openvpn" ,openvpn)
5501        ("network-manager" ,network-manager)
5502        ("network-manager-applet" ,network-manager-applet) ;for libnma
5503        ("libsecret" ,libsecret)))
5504     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
5505     (synopsis "OpenVPN plug-in for NetworkManager")
5506     (description
5507      "This extension of NetworkManager allows it to take care of connections
5508 to virtual private networks (VPNs) via OpenVPN.")
5509     (license license:gpl2+)
5510     (properties `((upstream-name . "NetworkManager-openvpn")))))
5511
5512 (define-public network-manager-vpnc
5513   (package
5514     (name "network-manager-vpnc")
5515     (version "1.2.6")
5516     (source (origin
5517               (method url-fetch)
5518               (uri (string-append
5519                     "mirror://gnome/sources/NetworkManager-vpnc/"
5520                     (version-major+minor version)
5521                     "/NetworkManager-vpnc-" version ".tar.xz"))
5522               (sha256
5523                (base32
5524                 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
5525     (build-system gnu-build-system)
5526     (arguments
5527      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
5528        #:phases
5529        (modify-phases %standard-phases
5530          (add-after 'configure 'patch-path
5531            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
5532              (let* ((vpnc (string-append (assoc-ref inputs "vpnc")
5533                                          "/sbin/vpnc"))
5534                     (modprobe (string-append (assoc-ref inputs "kmod")
5535                                              "/bin/modprobe"))
5536                     (pretty-ovpn (string-append "\"" vpnc "\"")))
5537                (substitute* "src/nm-vpnc-service.c"
5538                     (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
5539                     (("\"/usr/sbin/vpnc\"") pretty-ovpn)
5540                     (("\"/sbin/vpnc\"") pretty-ovpn)
5541                     (("/sbin/modprobe") modprobe)))
5542              #t)))))
5543     (native-inputs
5544      `(("pkg-config" ,pkg-config)
5545        ("intltool" ,intltool)))
5546     (inputs
5547      `(("gtk+" ,gtk+)
5548        ("kmod" ,kmod)
5549        ("vpnc" ,vpnc)
5550        ("network-manager" ,network-manager)
5551        ("network-manager-applet" ,network-manager-applet) ;for libnma
5552        ("libsecret" ,libsecret)))
5553     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
5554     (synopsis "VPNC plug-in for NetworkManager")
5555     (description
5556      "Support for configuring virtual private networks based on VPNC.
5557 Compatible with Cisco VPN concentrators configured to use IPsec.")
5558     (license license:gpl2+)
5559     (properties `((upstream-name . "NetworkManager-vpnc")))))
5560
5561 (define-public network-manager-openconnect
5562   (package
5563     (name "network-manager-openconnect")
5564     (version "1.2.6")
5565     (source (origin
5566               (method url-fetch)
5567               (uri (string-append
5568                     "mirror://gnome/sources/NetworkManager-openconnect/"
5569                     (version-major+minor version)
5570                     "/NetworkManager-openconnect-" version ".tar.xz"))
5571               (sha256
5572                (base32
5573                 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
5574     (build-system gnu-build-system)
5575     (arguments
5576      `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
5577        #:phases
5578        (modify-phases %standard-phases
5579          (add-after 'configure 'patch-path
5580            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
5581              (let* ((openconnect (string-append (assoc-ref inputs "openconnect")
5582                                          "/sbin/openconnect"))
5583                     (modprobe (string-append (assoc-ref inputs "kmod")
5584                                              "/bin/modprobe"))
5585                     (pretty-ovpn (string-append "\"" openconnect "\"")))
5586                (substitute* "src/nm-openconnect-service.c"
5587                  (("\"/usr/local/sbin/openconnect\"") pretty-ovpn)
5588                  (("\"/usr/sbin/openconnect\"") pretty-ovpn)
5589                  (("/sbin/modprobe") modprobe)))
5590              #t)))))
5591     (native-inputs
5592      `(("intltool" ,intltool)
5593        ("network-manager-applet" ,network-manager-applet) ;for libnma
5594        ("pkg-config" ,pkg-config)))
5595     (inputs
5596      `(("gcr" ,gcr)
5597        ("gtk+" ,gtk+)
5598        ("kmod" ,kmod)
5599        ("libsecret" ,libsecret)
5600        ("libxml2" ,libxml2)
5601        ("network-manager" ,network-manager)
5602        ("openconnect" ,openconnect)))
5603     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
5604     (synopsis "OpenConnect plug-in for NetworkManager")
5605     (description
5606      "This extension of NetworkManager allows it to take care of connections
5607 to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
5608 Cisco's AnyConnect SSL VPN.")
5609     (license license:gpl2+)
5610     (properties `((upstream-name . "NetworkManager-openconnect")))))
5611
5612 (define-public mobile-broadband-provider-info
5613   (package
5614     (name "mobile-broadband-provider-info")
5615     (version "20190116")
5616     (source (origin
5617               (method url-fetch)
5618               (uri (string-append
5619                     "mirror://gnome/sources/"
5620                     "mobile-broadband-provider-info/" version "/"
5621                     "mobile-broadband-provider-info-" version ".tar.xz"))
5622               (sha256
5623                (base32
5624                 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
5625     (build-system gnu-build-system)
5626     (arguments
5627      `(#:tests? #f))                    ; no tests
5628     (home-page "https://wiki.gnome.org/Projects/NetworkManager")
5629     (synopsis "Database of broadband connection configuration")
5630     (description "Database of broadband connection configuration.")
5631     (license license:public-domain)))
5632
5633 (define-public network-manager-applet
5634   (package
5635     (name "network-manager-applet")
5636     (version "1.8.18")
5637     (source (origin
5638               (method url-fetch)
5639               (uri (string-append "mirror://gnome/sources/" name "/"
5640                                   (version-major+minor version) "/"
5641                                   name "-" version ".tar.xz"))
5642               (sha256
5643                (base32
5644                 "0y31g0lxr93370xi74hbpvcy9m81n5wdkdhq8xy2nqp0y4219p13"))))
5645     (build-system meson-build-system)
5646     (arguments
5647      '(#:glib-or-gtk? #t))
5648     (native-inputs
5649      `(("intltool" ,intltool)
5650        ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
5651        ("gobject-introspection" ,gobject-introspection)
5652        ("gtk-doc" ,gtk-doc)
5653        ("pkg-config" ,pkg-config)))
5654     (propagated-inputs
5655      ;; libnm-gtk.pc refers to all these.
5656      `(("dbus-glib" ,dbus-glib)
5657        ("gtk+" ,gtk+)
5658        ("network-manager" ,network-manager)))
5659     (inputs
5660      `(("gcr" ,gcr)
5661        ("iso-codes" ,iso-codes)
5662        ("libgudev" ,libgudev)
5663        ("libnotify" ,libnotify)
5664        ("libsecret" ,libsecret)
5665        ("libselinux" ,libselinux)
5666        ("jansson" ,jansson) ; for team support
5667        ("modem-manager" ,modem-manager)
5668        ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)))
5669     (synopsis "Applet for managing network connections")
5670     (home-page "https://www.gnome.org/projects/NetworkManager/")
5671     (description
5672      "This package contains a systray applet for NetworkManager.  It displays
5673 the available networks and allows users to easily switch between them.")
5674     (license license:gpl2+)))
5675
5676 (define-public libxml++
5677   (package
5678     (name "libxml++")
5679     (version "3.0.1")
5680     (source (origin
5681               (method url-fetch)
5682               (uri (string-append "mirror://gnome/sources/" name "/"
5683                                   (version-major+minor version) "/"
5684                                   name "-" version ".tar.xz"))
5685               (sha256
5686                (base32
5687                 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
5688     (build-system gnu-build-system)
5689     ;; libxml++-3.0.pc refers to all these.
5690     (propagated-inputs
5691      `(("libxml2" ,libxml2)
5692        ("glibmm" ,glibmm)))
5693     (native-inputs
5694      `(("perl" ,perl)
5695        ("pkg-config" ,pkg-config)))
5696     (home-page "http://libxmlplusplus.sourceforge.net/")
5697     (synopsis "C++ wrapper for XML parser library libxml2")
5698     (description
5699      "This package provides a C++ wrapper for the XML parser library
5700 libxml2.")
5701     (license license:lgpl2.1+)))
5702
5703 (define-public libxml++-2
5704   (package
5705     (inherit libxml++)
5706     (name "libxml++")
5707     (version "2.40.1")
5708     (source (origin
5709               (method url-fetch)
5710               (uri (string-append "mirror://gnome/sources/" name "/"
5711                                   (version-major+minor version) "/"
5712                                   name "-" version ".tar.xz"))
5713               (sha256
5714                (base32
5715                 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
5716
5717 (define-public gdm
5718   (package
5719     (name "gdm")
5720     (version "3.30.3")
5721     (source (origin
5722               (method url-fetch)
5723               (uri (string-append "mirror://gnome/sources/" name "/"
5724                                   (version-major+minor version) "/"
5725                                   name "-" version ".tar.xz"))
5726               (sha256
5727                (base32
5728                 "15f7lz7z75krgbq8vb800afj96h8mw2fpy1s28za2911x5vgq0ak"))))
5729     (build-system glib-or-gtk-build-system)
5730     (arguments
5731      '(#:configure-flags
5732        `("--without-plymouth"
5733          "--disable-systemd-journal"
5734
5735          ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
5736          ;; instead of having to replace it (i.e., stopping the mingetty
5737          ;; service for TTY 1 before starting GDM).
5738          "--with-initial-vt=7"
5739
5740          ;; Use '/etc/environment' for locale settings instead of the
5741          ;; systemd-specific '/etc/locale.conf'.
5742          "--with-lang-file=/etc/environment"
5743
5744          ,(string-append "--with-udevdir="
5745                          (assoc-ref %outputs "out") "/lib/udev")
5746
5747          "--localstatedir=/var"
5748          ,(string-append "--with-default-path="
5749                          (string-join '("/run/setuid-programs"
5750                                         "/run/current-system/profile/bin"
5751                                         "/run/current-system/profile/sbin")
5752                                       ":"))
5753          ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
5754          ;; XDG_DATA_DIRS so that it finds its schemas.
5755          "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
5756        #:phases
5757        (modify-phases %standard-phases
5758          (add-before
5759           'configure 'pre-configure
5760           (lambda* (#:key inputs outputs #:allow-other-keys)
5761             ;; We don't have <systemd/sd-daemon.h>.
5762             (substitute* '("common/gdm-log.c"
5763                            "daemon/gdm-server.c"
5764                            "daemon/gdm-session-worker.c"
5765                            "daemon/gdm-session-worker-job.c")
5766               (("#include <systemd/sd-daemon\\.h>") ""))
5767             ;; Use elogind for sd-login.
5768             (substitute* '("common/gdm-common.c"
5769                            "daemon/gdm-manager.c"
5770                            "libgdm/gdm-user-switching.c")
5771               (("#include <systemd/sd-login\\.h>")
5772                "#include <elogind/sd-login.h>"))
5773             ;; Check for elogind.
5774             (substitute* '("configure")
5775               (("libsystemd")
5776                "libelogind"))
5777             ;; Look for system-installed sessions in
5778             ;; /run/current-system/profile/share.
5779             (substitute* '("libgdm/gdm-sessions.c"
5780                            "daemon/gdm-session.c"
5781                            "daemon/gdm-display.c"
5782                            "daemon/gdm-launch-environment.c")
5783               (("DATADIR \"/x")
5784                "\"/run/current-system/profile/share/x")
5785               (("DATADIR \"/wayland")
5786                "\"/run/current-system/profile/share/wayland")
5787               (("DATADIR \"/gnome")
5788                "\"/run/current-system/profile/share/gnome"))
5789             (let ((propagate '("GDM_CUSTOM_CONF"
5790                                "GDM_DBUS_DAEMON"
5791                                "GDM_X_SERVER"
5792                                "GDM_X_SESSION"
5793                                ;; XXX: Remove this once GNOME Shell is
5794                                ;; a dependency of GDM.
5795                                "XDG_DATA_DIRS")))
5796               (substitute* "daemon/gdm-session.c"
5797                 (("set_up_session_environment \\(self\\);")
5798                  (apply string-append
5799                         "set_up_session_environment (self);\n"
5800                         (map (lambda (name)
5801                                (string-append
5802                                 "gdm_session_set_environment_variable "
5803                                 "(self, \"" name "\","
5804                                 "g_getenv (\"" name "\"));\n"))
5805                              propagate)))))
5806             ;; Find the configuration file using an environment variable.
5807             (substitute* '("common/gdm-settings.c")
5808               (("GDM_CUSTOM_CONF")
5809                (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
5810                               " ? g_getenv(\"GDM_CUSTOM_CONF\")"
5811                               " : GDM_CUSTOM_CONF)")))
5812             ;; Use service-supplied path to X.
5813             (substitute* '("daemon/gdm-server.c")
5814               (("\\(X_SERVER X_SERVER_ARG_FORMAT")
5815                "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
5816             (substitute* '("daemon/gdm-x-session.c")
5817               (("\"dbus-daemon\"")
5818                "g_getenv (\"GDM_DBUS_DAEMON\")")
5819               (("X_SERVER")
5820                "g_getenv (\"GDM_X_SERVER\")")
5821               (("GDMCONFDIR \"/Xsession\"")
5822                "g_getenv (\"GDM_X_SESSION\")"))
5823             ;; Use an absolute path for GNOME Session.
5824             (substitute* "daemon/gdm-launch-environment.c"
5825               (("\"gnome-session\"")
5826                (string-append "\"" (assoc-ref inputs "gnome-session")
5827                               "/bin/gnome-session\"")))
5828             ;; Do not automatically select the placeholder session.
5829             (substitute* "daemon/gdm-session.c"
5830               (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
5831                (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
5832                               "(g_strcmp0(search_dirs[i], \""
5833                               (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
5834                               "\") == 0 && "
5835                               "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
5836               (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
5837                "{ self->priv->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
5838             #t))
5839          ;; GDM requires that there be at least one desktop entry
5840          ;; file.  This phase installs a hidden one that simply
5841          ;; fails.  This enables users to use GDM with a
5842          ;; '~/.xsession' script with no other desktop entry files.
5843          ;; See <https://bugs.gnu.org/35068>.
5844          (add-after 'install 'install-placeholder-desktop-entry
5845            (lambda* (#:key inputs outputs #:allow-other-keys)
5846              (let* ((out (assoc-ref outputs "out"))
5847                     (sessions (string-append out "/share/gdm/BuiltInSessions"))
5848                     (fail (string-append sessions "/fail.desktop")))
5849                (mkdir-p sessions)
5850                (with-output-to-file fail
5851                  (lambda ()
5852                    (for-each
5853                     display
5854                     '("[Desktop Entry]\n"
5855                       "Encoding=UTF-8\n"
5856                       "Type=Application\n"
5857                       "Name=Fail\n"
5858                       "Comment=This session fails immediately.\n"
5859                       "NoDisplay=true\n"
5860                       "Exec=false\n"))))
5861                #t)))
5862          ;; GDM needs GNOME Session to run these applications.  We link
5863          ;; their autostart files in `share/gdm/greeter/autostart'
5864          ;; because GDM explicitly tells GNOME Session to look there.
5865          ;;
5866          ;; XXX: GNOME Shell should be linked here too, but currently
5867          ;; GNOME Shell depends on GDM.
5868          (add-after 'install 'link-autostart-files
5869            (lambda* (#:key inputs outputs #:allow-other-keys)
5870              (let* ((out (assoc-ref outputs "out"))
5871                     (autostart (string-append out "/share/gdm/"
5872                                               "greeter/autostart"))
5873                     (settings (assoc-ref inputs "gnome-settings-daemon")))
5874                (mkdir-p autostart)
5875                (with-directory-excursion autostart
5876                  (for-each (lambda (desktop)
5877                              (symlink desktop (basename desktop)))
5878                            (find-files (string-append settings "/etc/xdg"))))
5879                #t))))))
5880     (native-inputs
5881      `(("dconf" ,dconf)
5882        ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5883        ("gobject-introspection" ,gobject-introspection)
5884        ("intltool" ,intltool)
5885        ("itstool" ,itstool)
5886        ("pkg-config" ,pkg-config)
5887        ("xmllint" ,libxml2)))
5888     (inputs
5889      `(("accountsservice" ,accountsservice)
5890        ("check" ,check) ; for testing
5891        ("elogind" ,elogind)
5892        ("gnome-session" ,gnome-session)
5893        ("gnome-settings-daemon" ,gnome-settings-daemon)
5894        ("gtk+" ,gtk+)
5895        ("iso-codes" ,iso-codes)
5896        ("libcanberra" ,libcanberra)
5897        ("linux-pam" ,linux-pam)))
5898     (synopsis "Display manager for GNOME")
5899     (home-page "https://wiki.gnome.org/Projects/GDM/")
5900     (description
5901      "GNOME Display Manager is a system service that is responsible for
5902 providing graphical log-ins and managing local and remote displays.")
5903     (license license:gpl2+)))
5904
5905 (define-public libgtop
5906   (package
5907     (name "libgtop")
5908     (version "2.40.0")
5909     (source (origin
5910               (method url-fetch)
5911               (uri (string-append "mirror://gnome/sources/libgtop/"
5912                                   (version-major+minor version) "/"
5913                                   "libgtop-" version ".tar.xz"))
5914               (sha256
5915                (base32
5916                 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
5917     (build-system gnu-build-system)
5918     (native-inputs
5919      `(("gobject-introspection" ,gobject-introspection)
5920        ("intltool" ,intltool)
5921        ("perl" ,perl)
5922        ("pkg-config" ,pkg-config)))
5923     (propagated-inputs
5924      `(("glib" ,glib))) ; required by libgtop-2.0.pc
5925     (synopsis "Portable system access library")
5926     (home-page "https://www.gnome.org/")
5927     (description
5928      "LibGTop is a library to get system specific data such as CPU and memory
5929 usage and information about running processes.")
5930     (license license:gpl2+)))
5931
5932 (define-public gnome-bluetooth
5933   (package
5934     (name "gnome-bluetooth")
5935     (version "3.28.0")
5936     (source (origin
5937               (method url-fetch)
5938               (uri (string-append "mirror://gnome/sources/" name "/"
5939                                   (version-major+minor version) "/"
5940                                   name "-" version ".tar.xz"))
5941               (sha256
5942                (base32
5943                 "0q7yzklrlayj99risj096mr5x35anx94wvr6nbf6pwbvvzv7453p"))))
5944     (build-system meson-build-system)
5945     (native-inputs
5946      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
5947        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
5948        ("gobject-introspection" ,gobject-introspection)
5949        ("intltool" ,intltool)
5950        ("pkg-config" ,pkg-config)
5951        ("xmllint" ,libxml2)))
5952     (propagated-inputs
5953      ;; gnome-bluetooth-1.0.pc refers to all these.
5954      `(("gtk+" ,gtk+)
5955        ("udev" ,eudev)))
5956     (inputs
5957      `(("libcanberra" ,libcanberra)
5958        ("libnotify" ,libnotify)))
5959     (synopsis "GNOME Bluetooth subsystem")
5960     (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
5961     (description
5962      "This package contains tools for managing and manipulating Bluetooth
5963 devices using the GNOME desktop.")
5964     (license license:lgpl2.1+)))
5965
5966 (define-public gnome-control-center
5967   (package
5968     (name "gnome-control-center")
5969     (version "3.30.3")
5970     (source (origin
5971               (method url-fetch)
5972               (uri (string-append "mirror://gnome/sources/" name "/"
5973                                   (version-major+minor version) "/"
5974                                   name "-" version ".tar.xz"))
5975               (sha256
5976                (base32
5977                 "0gih1cmqbv803kp30704sllghb0impa0mmv3j8pndfg4zr2mnq9r"))
5978               (patches
5979                (search-patches "gnome-control-center-udisks.patch"))))
5980     (build-system meson-build-system)
5981     (arguments
5982      '(#:glib-or-gtk? #t
5983        #:configure-flags
5984        (list "-Dcheese=false"
5985              (string-append "-Dgnome_session_libexecdir="
5986                             (assoc-ref %build-inputs "gnome-session")
5987                             "/libexec"))
5988        #:phases
5989        (modify-phases %standard-phases
5990          (add-before 'configure 'patch-paths
5991            (lambda* (#:key inputs #:allow-other-keys)
5992              (let ((libc   (assoc-ref inputs "libc"))
5993                    (tzdata (assoc-ref inputs "tzdata"))
5994                    (libgnomekbd (assoc-ref inputs "libgnomekbd"))
5995                    (nm-applet   (assoc-ref inputs "network-manager-applet"))
5996                    (gnome-desktop (assoc-ref inputs "gnome-desktop")))
5997                (substitute* "panels/datetime/tz.h"
5998                  (("/usr/share/zoneinfo/zone.tab")
5999                   (string-append tzdata "/share/zoneinfo/zone.tab")))
6000                (substitute* "tests/datetime/test-endianess.c"
6001                  (("/usr/share/locale")
6002                   (string-append libc "/share/locale")))
6003                (substitute* "panels/region/cc-region-panel.c"
6004                  (("\"gkbd-keyboard-display")
6005                   (string-append "\"" libgnomekbd
6006                                  "/bin/gkbd-keyboard-display")))
6007                (substitute* '("panels/network/net-device-wifi.c"
6008                               "panels/network/net-device.c"
6009                               "panels/network/connection-editor/net-connection-editor.c")
6010                  (("\"nm-connection-editor")
6011                   (string-append "\"" nm-applet
6012                                  "/bin/nm-connection-editor")))
6013                (substitute* '("panels/user-accounts/run-passwd.c")
6014                  (("/usr/bin/passwd")
6015                   "/run/setuid-programs/passwd"))
6016                (substitute* "panels/info/cc-info-overview-panel.c"
6017                  (("DATADIR \"/gnome/gnome-version.xml\"")
6018                   (string-append "\"" gnome-desktop
6019                                  "/share/gnome/gnome-version.xml\"")))
6020                #t))))))
6021     (native-inputs
6022      `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
6023        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
6024        ("intltool" ,intltool)
6025        ("pkg-config" ,pkg-config)
6026        ("xsltproc" ,libxslt)))
6027     (inputs
6028      `(("accountsservice" ,accountsservice)
6029        ("clutter-gtk" ,clutter-gtk)
6030        ("colord-gtk" ,colord-gtk)
6031        ("cups" ,cups)
6032        ("dconf" ,dconf)
6033        ("docbook-xsl" ,docbook-xsl)
6034        ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
6035        ("gnome-bluetooth" ,gnome-bluetooth)
6036        ("gnome-desktop" ,gnome-desktop)
6037        ("gnome-online-accounts" ,gnome-online-accounts)
6038        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6039        ("gnome-session" ,gnome-session)
6040        ("gnome-settings-daemon" ,gnome-settings-daemon)
6041        ("grilo" ,grilo)
6042        ("ibus" ,ibus)
6043        ("libcanberra" ,libcanberra)
6044        ("libgnomekbd" ,libgnomekbd)
6045        ("libgudev" ,libgudev)
6046        ("libgtop" ,libgtop)
6047        ("libpwquality" ,libpwquality)
6048        ("libsecret" ,libsecret)
6049        ("libsoup" ,libsoup)
6050        ("libxml2" ,libxml2)
6051        ("libwacom" ,libwacom)
6052        ("mesa" ,mesa)
6053        ("mit-krb5" ,mit-krb5)
6054        ("modem-manager" ,modem-manager)
6055        ("network-manager-applet" ,network-manager-applet)
6056        ("polkit" ,polkit)
6057        ("pulseaudio" ,pulseaudio)
6058        ("smbclient" ,samba)
6059        ("tzdata" ,tzdata)
6060        ("udisks" ,udisks)
6061        ("upower" ,upower)))
6062     (synopsis "Utilities to configure the GNOME desktop")
6063     (home-page "https://www.gnome.org/")
6064     (description
6065      "This package contains configuration applets for the GNOME desktop,
6066 allowing to set accessibility configuration, desktop fonts, keyboard and mouse
6067 properties, sound setup, desktop theme and background, user interface
6068 properties, screen resolution, and other GNOME parameters.")
6069     (license license:gpl2+)))
6070
6071 (define-public gnome-shell
6072   (package
6073     (name "gnome-shell")
6074     (version "3.30.2")
6075     (source (origin
6076               (method url-fetch)
6077               (uri (string-append "mirror://gnome/sources/" name "/"
6078                                   (version-major+minor version) "/"
6079                                   name "-" version ".tar.xz"))
6080               (sha256
6081                (base32
6082                 "0kacd4w9lc5finsvs170i7827qkxwd1ddj0g2giizwffpjdjqqr2"))
6083               (patches (search-patches "gnome-shell-theme.patch"))
6084               (modules '((guix build utils)))
6085               (snippet
6086                #~(begin
6087                    ;; Copy images for use on the GDM log-in screen.
6088                    (copy-file #$(file-append %artwork-repository
6089                                              "/slim/0.x/background.png")
6090                               "data/theme/guix-background.png")
6091                    (copy-file #$(file-append %artwork-repository
6092                                              "/logo/Guix-horizontal-white.svg")
6093                               "data/theme/guix-logo.svg")
6094                    #t))))
6095     (build-system meson-build-system)
6096     (arguments
6097      `(#:glib-or-gtk? #t
6098        #:disallowed-references ((,glib "bin")
6099                                 ,inkscape ,libxslt
6100                                 ,ruby-sass)
6101        #:configure-flags
6102        (list "-Dsystemd=false"
6103              ;; Otherwise, the RUNPATH will lack the final path component.
6104              (string-append "-Dc_link_args=-Wl,-rpath="
6105                             (assoc-ref %outputs "out")
6106                             "/lib/gnome-shell"))
6107
6108        #:modules ((guix build meson-build-system)
6109                   (guix build utils)
6110                   (srfi srfi-1))
6111
6112        #:phases
6113        (modify-phases %standard-phases
6114          (add-after 'unpack 'fix-keysdir
6115            (lambda* (#:key outputs #:allow-other-keys)
6116              (let* ((out     (assoc-ref outputs "out"))
6117                     (keysdir (string-append
6118                               out "/share/gnome-control-center/keybindings")))
6119                (substitute* "meson.build"
6120                  (("keysdir =.*")
6121                   (string-append "keysdir = '" keysdir "'\n")))
6122                #t)))
6123          (add-before 'configure 'convert-logo-to-png
6124            (lambda* (#:key inputs #:allow-other-keys)
6125              ;; Convert the logo from SVG to PNG.
6126              (invoke "inkscape" "--export-png=data/theme/guix-logo.png"
6127                      "data/theme/guix-logo.svg")))
6128          (add-before 'configure 'record-absolute-file-names
6129            (lambda* (#:key inputs #:allow-other-keys)
6130              (substitute* "js/misc/ibusManager.js"
6131                (("'ibus-daemon'")
6132                 (string-append "'" (assoc-ref inputs "ibus")
6133                                "/bin/ibus-daemon'")))
6134              (substitute* "js/ui/status/keyboard.js"
6135                (("'gkbd-keyboard-display'")
6136                 (string-append "'" (assoc-ref inputs "libgnomekbd")
6137                                "/bin/gkbd-keyboard-display'")))
6138              #t))
6139          (add-before 'check 'pre-check
6140            (lambda* (#:key inputs #:allow-other-keys)
6141              ;; Tests require a running X server.
6142              (system "Xvfb :1 &")
6143              (setenv "DISPLAY" ":1")
6144              #t))
6145          (add-after 'install 'wrap-programs
6146            (lambda* (#:key inputs outputs #:allow-other-keys)
6147              (let ((out              (assoc-ref outputs "out"))
6148                    (gi-typelib-path  (getenv "GI_TYPELIB_PATH"))
6149                    (python-path      (getenv "PYTHONPATH")))
6150                (wrap-program (string-append out "/bin/gnome-shell")
6151                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
6152                  ;; FIXME: gnome-shell loads these libraries with unqualified
6153                  ;; names only, so they need to be on LD_LIBRARY_PATH.  The
6154                  ;; alternative might be to patch gnome-shell.
6155                  `("LD_LIBRARY_PATH" ":" prefix
6156                    ,(map (lambda (pkg)
6157                            (string-append (assoc-ref inputs pkg) "/lib"))
6158                          '("gdk-pixbuf"
6159                            "gnome-bluetooth" "librsvg" "libgweather"))))
6160                (for-each
6161                 (lambda (prog)
6162                   (wrap-program (string-append out "/bin/" prog)
6163                     `("PYTHONPATH"      ":" prefix (,python-path))
6164                     `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6165                 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
6166                #t)))
6167          (replace 'glib-or-gtk-wrap
6168            (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
6169              (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
6170                ;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
6171                ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
6172                ;; phase.  Fix that since we don't need these.
6173                (wrap #:inputs (fold alist-delete inputs
6174                                     '("inkscape" "intltool" "glib:bin"))
6175                      #:outputs outputs)))))))
6176     (native-inputs
6177      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6178        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6179        ("gobject-introspection" ,gobject-introspection)
6180        ("inkscape" ,inkscape)
6181        ("intltool" ,intltool)
6182        ("pkg-config" ,pkg-config)
6183        ("python" ,python)
6184        ("ruby-sass" ,ruby-sass)
6185        ("sassc" ,sassc)
6186        ("xsltproc" ,libxslt)
6187        ;; For tests
6188        ("xorg-server" ,xorg-server-for-tests)))
6189     (inputs
6190      `(("accountsservice" ,accountsservice)
6191        ("caribou" ,caribou)
6192        ("docbook-xsl" ,docbook-xsl)
6193        ("evolution-data-server" ,evolution-data-server)
6194        ("gcr" ,gcr)
6195        ("gdm" ,gdm)
6196        ("gdk-pixbuf" ,gdk-pixbuf+svg)
6197        ("gjs" ,gjs)
6198        ("gnome-bluetooth" ,gnome-bluetooth)
6199        ("gnome-desktop" ,gnome-desktop)
6200        ("gnome-settings-daemon" ,gnome-settings-daemon)
6201        ("gst-plugins-base" ,gst-plugins-base)
6202        ("ibus" ,ibus)
6203        ("libcanberra" ,libcanberra)
6204        ("libcroco" ,libcroco)
6205        ("libgnomekbd" ,libgnomekbd)               ;for gkbd-keyboard-display
6206        ("libgweather" ,libgweather)
6207        ("libsoup" ,libsoup)
6208        ("mesa-headers" ,mesa-headers)
6209        ("mutter" ,mutter)
6210        ("network-manager-applet" ,network-manager-applet)
6211        ("polkit" ,polkit)
6212        ("pulseaudio" ,pulseaudio)
6213        ("python-pygobject" ,python-pygobject)
6214        ("startup-notification" ,startup-notification)
6215        ("telepathy-logger" ,telepathy-logger)
6216        ("upower" ,upower)
6217        ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
6218        ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
6219        ("librsvg" ,librsvg)
6220        ("geoclue" ,geoclue)))
6221     (synopsis "Desktop shell for GNOME")
6222     (home-page "https://wiki.gnome.org/Projects/GnomeShell")
6223     (description
6224      "GNOME Shell provides core user interface functions for the GNOME desktop,
6225 like switching to windows and launching applications.")
6226     (license license:gpl2+)))
6227
6228 (define-public gtk-vnc
6229   (package
6230     (name "gtk-vnc")
6231     (version "0.9.0")
6232     (source
6233      (origin
6234        (method url-fetch)
6235        (uri (string-append "mirror://gnome/sources/" name "/"
6236                            (version-major+minor version) "/"
6237                            name "-" version ".tar.xz"))
6238        (sha256
6239         (base32
6240          "1dya1wc9vis8h0fv625pii1n70cckf1xjg1m2hndz989d118i6is"))))
6241     (build-system gnu-build-system)
6242     (arguments
6243      '(#:configure-flags '("--with-gtk=3.0")))
6244     (propagated-inputs
6245      `(("gtk+" ,gtk+))) ; required by gtk-vnc-2.0.pc.
6246     (inputs
6247      `(("cyrus-sasl" ,cyrus-sasl)
6248        ("gnutls" ,gnutls)
6249        ("libgcrypt" ,libgcrypt)
6250        ("pulseaudio" ,pulseaudio)))
6251     (native-inputs
6252      `(("glib:bin" ,glib "bin")
6253        ("gobject-introspection" ,gobject-introspection)
6254        ("intltool" ,intltool)
6255        ("pkg-config" ,pkg-config)
6256        ("python-wrapper" ,python-wrapper)
6257        ("vala" ,vala)))
6258     (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
6259     (synopsis "VNC viewer widget for GTK+")
6260     (description
6261      "GTK-VNC is a VNC viewer widget for GTK+, used by remote desktop viewing
6262 applications, for instance the Vinagre client, GNOME Boxes and virt-viewer.
6263 GTK-VNC implements client side RFB protocol and authentication extensions such
6264 as SASL, TLS and VeNCrypt.  Additionally it supports encoding extensions.")
6265     (license license:lgpl2.1+)))
6266
6267 (define-public gnome-autoar
6268   (package
6269     (name "gnome-autoar")
6270     (version "0.2.3")
6271     (source (origin
6272               (method url-fetch)
6273               (uri (string-append "mirror://gnome/sources/" name "/"
6274                                   (version-major+minor version) "/"
6275                                   name "-" version ".tar.xz"))
6276               (sha256
6277                (base32
6278                 "02i4zgqqqj56h7bcys6dz7n78m4nj2x4dv1ggjmnrk98n06xpsax"))))
6279     (build-system glib-or-gtk-build-system)
6280     (native-inputs
6281      `(("gnome-common" ,gnome-common)
6282        ("gobject-introspection" ,gobject-introspection)
6283        ("pkg-config" ,pkg-config)))
6284     (propagated-inputs
6285      `(("libarchive" ,libarchive)))  ; XXX document why
6286     (inputs
6287      `(("gtk+" ,gtk+)))
6288     (synopsis "Archives integration support for GNOME")
6289     (home-page "https://git.gnome.org/browse/gnome-autoar/")
6290     (description
6291      "GNOME Autoar is a library which makes creating and extracting archives
6292 easy, safe, and automatic.")
6293     (license license:lgpl2.1+)))
6294
6295 (define-public tracker
6296   (package
6297     (name "tracker")
6298     (version "2.0.4")
6299     (source (origin
6300               (method url-fetch)
6301               (uri (string-append "mirror://gnome/sources/tracker/"
6302                                   (version-major+minor version) "/"
6303                                   "tracker-" version ".tar.xz"))
6304               (sha256
6305                (base32
6306                 "1mfc5lv820kr7ssi7hldn25gmshh65k19kh478qjsnb64sshsbyf"))))
6307     (build-system glib-or-gtk-build-system)
6308     (arguments
6309      `(#:phases
6310        (modify-phases %standard-phases
6311          (add-after 'unpack 'disable-broken-tests
6312            (lambda _
6313              ;; FIXME: Most of these fail with GLib-GIO-FATAL-ERROR: Settings
6314              ;; schema 'org.freedesktop.Tracker.FTS' is not installed.
6315              (substitute* "tests/libtracker-miner/Makefile.in"
6316                (("tracker-file-notifier-test\\$\\(EXEEXT\\)") "")
6317                (("tracker-miner-fs-test\\$\\(EXEEXT\\)") "")
6318                (("tracker-monitor-test\\$\\(EXEEXT\\)") ""))
6319              (substitute* "tests/libtracker-fts/Makefile.in"
6320                (("tracker-fts-test\\$\\(EXEEXT\\)") ""))
6321              (substitute* "tests/libtracker-data/Makefile.in"
6322                (("tracker-ontology\\$\\(EXEEXT\\)") "")
6323                (("tracker-ontology-change\\$\\(EXEEXT\\)") "")
6324                (("tracker-backup\\$\\(EXEEXT\\)") "")
6325                (("tracker-sparql-blank\\$\\(EXEEXT\\)") "")
6326                (("tracker-sparql\\$\\(EXEEXT\\)") ""))
6327              ;; These fail because the SPARQL backend could not be loaded.
6328              ;; That's because /etc/machine-id is missing, but
6329              ;; DBUS_FATAL_WARNINGS does not help here.
6330              (substitute* "tests/libtracker-sparql/Makefile.in"
6331                (("tracker-gb-737023-test\\$\\(EXEEXT\\)") "")
6332                (("tracker-sparql-test\\$\\(EXEEXT\\)") ""))
6333              (substitute* "tests/tracker-steroids/Makefile.in"
6334                (("tracker-test\\$\\(EXEEXT\\)") ""))
6335              #t))
6336          ;; Two tests fail if LANG is not set.
6337          (add-before 'check 'pre-check
6338            (lambda _
6339              (setenv "LANG" "en_US.UTF-8")
6340              ;; For the missing /etc/machine-id.
6341              (setenv "DBUS_FATAL_WARNINGS" "0")
6342              #t)))))
6343     (native-inputs
6344      `(("gnome-common" ,gnome-common)
6345        ("gobject-introspection" ,gobject-introspection)
6346        ("intltool" ,intltool)
6347        ("pkg-config" ,pkg-config)
6348        ("vala" ,vala)))
6349     (inputs
6350      `(("gtk+" ,gtk+)
6351        ("dbus" ,dbus)
6352        ("gstreamer" ,gstreamer)
6353        ("gst-plugins-base" ,gst-plugins-base)
6354        ("sqlite" ,sqlite)
6355        ("python" ,python)
6356        ("poppler" ,poppler)
6357        ("libgsf" ,libgsf)
6358        ("libexif" ,libexif)
6359        ("libpng" ,libpng)
6360        ("libtiff" ,libtiff)
6361        ("libvorbis" ,libvorbis)
6362        ("flac" ,flac)
6363        ("totem-pl-parser" ,totem-pl-parser)
6364        ("zlib" ,zlib)
6365        ("exempi" ,exempi)
6366        ("libxml2" ,libxml2)
6367        ("upower" ,upower)
6368        ("libunistring" ,libunistring)
6369        ("giflib" ,giflib)
6370        ("json-glib" ,json-glib)
6371        ("openjpeg" ,openjpeg-1)
6372        ("libosinfo" ,libosinfo)
6373        ("libcue" ,libcue)
6374        ("libseccomp" ,libseccomp)
6375        ("libsoup" ,libsoup)
6376        ("libuuid" ,util-linux)))
6377     (synopsis "Metadata database, indexer and search tool")
6378     (home-page "https://wiki.gnome.org/Projects/Tracker")
6379     (description
6380      "Tracker is an advanced framework for first class objects with associated
6381 metadata and tags.  It provides a one stop solution for all metadata, tags,
6382 shared object databases, search tools and indexing.")
6383     ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
6384     ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
6385     (license (list license:gpl2+
6386                    license:lgpl2.1+
6387                    license:lgpl2.0+))))
6388
6389 (define-public nautilus
6390   (package
6391     (name "nautilus")
6392     (version "3.30.5")
6393     (source (origin
6394               (method url-fetch)
6395               (uri (string-append "mirror://gnome/sources/" name "/"
6396                                   (version-major+minor version) "/"
6397                                   name "-" version ".tar.xz"))
6398               (sha256
6399                (base32
6400                 "144r4py9b8w9ycsg6fggjg05kwvymh003qsb3h6apgpch5y3zgnv"))))
6401     (build-system meson-build-system)
6402     (arguments
6403      '(#:glib-or-gtk? #t
6404        ;; XXX: FAIL: check-nautilus
6405        ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
6406        #:tests? #f))
6407     (native-inputs
6408      `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6409        ("glib:bin" ,glib "bin")         ; for glib-mkenums, etc.
6410        ("gtk+:bin" ,gtk+ "bin")         ; for gtk-update-icon-cache
6411        ("gobject-introspection" ,gobject-introspection)
6412        ("intltool" ,intltool)
6413        ("pkg-config" ,pkg-config)))
6414     (inputs
6415      `(("dconf" ,dconf)
6416        ("gexiv2" ,gexiv2)
6417        ("gvfs" ,gvfs)
6418        ("exempi" ,exempi)
6419        ("gnome-desktop" ,gnome-desktop)
6420        ("gnome-autoar" ,gnome-autoar)
6421        ("libseccomp" ,libseccomp)
6422        ("libselinux" ,libselinux)
6423        ("tracker" ,tracker)
6424        ;; XXX: gtk+ is required by libnautilus-extension.pc
6425        ;;
6426        ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
6427        ;; package.  See:
6428        ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
6429        ("gtk+" ,gtk+)
6430        ("libexif" ,libexif)
6431        ("libxml2" ,libxml2)))
6432     (synopsis "File manager for GNOME")
6433     (home-page "https://wiki.gnome.org/Apps/Nautilus")
6434     (description
6435      "Nautilus (Files) is a file manager designed to fit the GNOME desktop
6436 design and behaviour, giving the user a simple way to navigate and manage its
6437 files.")
6438     (license license:gpl2+)))
6439
6440 (define-public baobab
6441   (package
6442     (name "baobab")
6443     (version "3.30.0")
6444     (source (origin
6445               (method url-fetch)
6446               (uri (string-append
6447                     "mirror://gnome/sources/" name "/"
6448                     (version-major+minor version) "/"
6449                     name "-" version ".tar.xz"))
6450               (sha256
6451                (base32
6452                 "0kx721s1hhw1g0nvbqhb93g8iq6f852imyhfhl02zcqy4ipx0kay"))))
6453     (build-system meson-build-system)
6454     (arguments
6455      '(#:glib-or-gtk? #t))
6456     (native-inputs
6457      `(("intltool" ,intltool)
6458        ("pkg-config" ,pkg-config)
6459        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6460        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
6461        ("itstool" ,itstool)
6462        ("xmllint" ,libxml2)
6463        ("glib" ,glib "bin")
6464        ("vala" ,vala)))
6465     (inputs
6466      `(("gtk+" ,gtk+)))
6467     (synopsis "Disk usage analyzer for GNOME")
6468     (description
6469      "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
6470 usage in the GNOME desktop environment.  It can easily scan device volumes or
6471 a specific user-requested directory branch (local or remote).  Once the scan
6472 is complete it provides a graphical representation of each selected folder.")
6473     (home-page "https://wiki.gnome.org/Apps/Baobab")
6474     (license license:gpl2+)))
6475
6476 (define-public gnome-backgrounds
6477   (package
6478     (name "gnome-backgrounds")
6479     (version "3.30.0")
6480     (source
6481      (origin
6482        (method url-fetch)
6483        (uri (string-append "mirror://gnome/sources/" name "/"
6484                            (version-major+minor version) "/"
6485                            name "-" version ".tar.xz"))
6486        (sha256
6487         (base32
6488          "1179jrl16bp9gqabqhw7nnfp8qzf5y1vf9fi45bni6rfmwm3mrpc"))))
6489     (build-system meson-build-system)
6490     (native-inputs
6491      `(("intltool" ,intltool)))
6492     (home-page "https://git.gnome.org/browse/gnome-backgrounds")
6493     (synopsis "Background images for the GNOME desktop")
6494     (description
6495      "GNOME backgrounds package contains a collection of graphics files which
6496 can be used as backgrounds in the GNOME Desktop environment.  Additionally,
6497 the package creates the proper framework and directory structure so that you
6498 can add your own files to the collection.")
6499     (license (list license:gpl2+
6500                    license:cc-by2.0
6501                    license:cc-by-sa2.0
6502                    license:cc-by-sa3.0))))
6503
6504 (define-public gnome-screenshot
6505   (package
6506     (name "gnome-screenshot")
6507     (version "3.30.0")
6508     (source
6509      (origin
6510        (method url-fetch)
6511        (uri (string-append "mirror://gnome/sources/" name "/"
6512                            (version-major+minor version) "/"
6513                            name "-" version ".tar.xz"))
6514        (sha256
6515         (base32
6516          "06dx3svxq6sar4913mrz5lzb7hmc66wck138vmyxj8x8iv1iw0w8"))))
6517     (build-system meson-build-system)
6518     (native-inputs
6519      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6520        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
6521        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6522        ("intltool" ,intltool)
6523        ("appstream-glib" ,appstream-glib)
6524        ("pkg-config" ,pkg-config)))
6525     (inputs
6526      `(("gtk+" ,gtk+)
6527        ("libcanberra" ,libcanberra)
6528        ("libx11" ,libx11)
6529        ("libxext" ,libxext)))
6530     (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
6531     (synopsis "Take pictures of your screen")
6532     (description
6533      "GNOME Screenshot is a utility used for taking screenshots of the entire
6534 screen, a window or a user defined area of the screen, with optional
6535 beautifying border effects.")
6536     (license license:gpl2+)))
6537
6538 (define-public dconf-editor
6539   (package
6540     (name "dconf-editor")
6541     (version "3.30.2")
6542     (source
6543      (origin
6544        (method url-fetch)
6545        (uri (string-append "mirror://gnome/sources/" name "/"
6546                            (version-major+minor version) "/"
6547                            name "-" version ".tar.xz"))
6548        (sha256
6549         (base32
6550          "06f736spn20s7qjsz00xw44v8r8bjhyrz1v3bix6v416jc5jp6ia"))))
6551     (build-system meson-build-system)
6552     (native-inputs
6553      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
6554        ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
6555        ("intltool" ,intltool)
6556        ("pkg-config" ,pkg-config)
6557        ("vala" ,vala)))
6558     (inputs
6559      `(("dconf" ,dconf)
6560        ("gtk+" ,gtk+)
6561        ("libxml2" ,libxml2)))
6562     (home-page "https://git.gnome.org/browse/dconf-editor")
6563     (synopsis "Graphical editor for GNOME's dconf configuration system")
6564     (description
6565      "Dconf-editor is a graphical tool for browsing and editing the dconf
6566 configuration system for GNOME.  It allows users to configure desktop
6567 software that do not provide their own configuration interface.")
6568     (license license:lgpl2.1+)))
6569
6570 (define-public gnome-default-applications
6571   (package
6572     (name "gnome-default-applications")
6573     (version "0")
6574     (build-system trivial-build-system)
6575     (source #f)
6576     (propagated-inputs
6577      `(("nautilus" ,nautilus)
6578        ("evince" ,evince)))
6579     (arguments
6580      `(#:modules ((guix build utils))
6581        #:builder
6582        (begin
6583          (use-modules (guix build utils))
6584          (let* ((out (assoc-ref %outputs "out"))
6585                 (apps (string-append out "/share/applications")))
6586            (mkdir-p apps)
6587            (call-with-output-file (string-append apps "/defaults.list")
6588              (lambda (port)
6589                (format port "[Default Applications]\n")
6590                (format port "inode/directory=org.gnome.Nautilus.desktop\n")
6591                (format port "application/pdf=evince.desktop\n")
6592                (format port "application/postscript=evince.desktop\n")))
6593            #t))))
6594     (synopsis "Default MIME type associations for the GNOME desktop")
6595     (description
6596      "Given many installed packages which might handle a given MIME type, a
6597 user running the GNOME desktop probably has some preferences: for example,
6598 that folders be opened by default by the Nautilus file manager, not the Baobab
6599 disk usage analyzer.  This package establishes that set of default MIME type
6600 associations for GNOME.")
6601     (license license:gpl3+)
6602     (home-page #f)))
6603
6604 (define-public gnome
6605   (package
6606     (name "gnome")
6607     (version (package-version gnome-shell))
6608     (source #f)
6609     (build-system trivial-build-system)
6610     (arguments '(#:builder (begin (mkdir %output) #t)))
6611     (propagated-inputs
6612      ;; TODO: Add more packages according to:
6613      ;;       <https://packages.debian.org/jessie/gnome-core>.
6614      `(("adwaita-icon-theme"        ,adwaita-icon-theme)
6615        ("baobab"                    ,baobab)
6616        ("font-cantarell"            ,font-cantarell)
6617        ("font-dejavu"               ,font-dejavu)
6618        ("at-spi2-core"              ,at-spi2-core)
6619        ("dbus"                      ,dbus)
6620        ("dconf"                     ,dconf)
6621        ("desktop-file-utils"        ,desktop-file-utils)
6622        ("eog"                       ,eog)
6623        ("epiphany"                  ,epiphany)
6624        ("evince"                    ,evince)
6625        ("file-roller"               ,file-roller)
6626        ("gedit"                     ,gedit)
6627        ("glib-networking"           ,glib-networking)
6628        ("gnome-backgrounds"         ,gnome-backgrounds)
6629        ("gnome-bluetooth"           ,gnome-bluetooth)
6630        ("gnome-calculator"          ,gnome-calculator)
6631        ("gnome-control-center"      ,gnome-control-center)
6632        ("gnome-disk-utility"        ,gnome-disk-utility)
6633        ("gnome-default-applications" ,gnome-default-applications)
6634        ("gnome-keyring"             ,gnome-keyring)
6635        ("gnome-online-accounts"     ,gnome-online-accounts)
6636        ("gnome-session"             ,gnome-session)
6637        ("gnome-settings-daemon"     ,gnome-settings-daemon)
6638        ("gnome-shell"               ,gnome-shell)
6639        ("gnome-system-monitor"      ,gnome-system-monitor)
6640        ("gnome-terminal"            ,gnome-terminal)
6641        ("gnome-themes-standard"     ,gnome-themes-standard)
6642        ("gst-plugins-base"          ,gst-plugins-base)
6643        ("gst-plugins-good"          ,gst-plugins-good)
6644        ("gucharmap"                 ,gucharmap)
6645        ("gvfs"                      ,gvfs)
6646        ("hicolor-icon-theme"        ,hicolor-icon-theme)
6647        ("nautilus"                  ,nautilus)
6648        ("pinentry-gnome3"           ,pinentry-gnome3)
6649        ("pulseaudio"                ,pulseaudio)
6650        ("shared-mime-info"          ,shared-mime-info)
6651        ("system-config-printer"     ,system-config-printer)
6652        ("totem"                     ,totem)
6653        ("xdg-user-dirs"             ,xdg-user-dirs)
6654        ("yelp"                      ,yelp)
6655        ("zenity"                    ,zenity)))
6656     (synopsis "The GNU desktop environment")
6657     (home-page "https://www.gnome.org/")
6658     (description
6659      "GNOME is the graphical desktop for GNU.  It includes a wide variety of
6660 applications for browsing the web, editing text and images, creating
6661 documents and diagrams, playing media, scanning, and much more.")
6662     (license license:gpl2+)))
6663
6664 (define-public byzanz
6665   ;; The last stable release of Byzanz was in 2011, but there have been many
6666   ;; useful commits made to the Byzanz repository since then that it would be
6667   ;; silly to use such an old release.
6668   (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
6669     (package
6670       (name "byzanz")
6671       (version (string-append "0.2-1." (string-take commit 7)))
6672       (source (origin
6673                 (method git-fetch)
6674                 (uri (git-reference
6675                       (url "https://git.gnome.org/browse/byzanz")
6676                       (commit commit)))
6677                 (file-name (string-append name "-" version "-checkout"))
6678                 (sha256
6679                  (base32
6680                   "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
6681       (build-system glib-or-gtk-build-system)
6682       (arguments
6683        '(#:phases
6684          (modify-phases %standard-phases
6685            (replace 'bootstrap
6686              (lambda _
6687                ;; The build system cleverly detects that we're not building from
6688                ;; a release tarball and turns on -Werror for GCC.
6689                ;; Unsurprisingly, there is a warning during compilation that
6690                ;; causes the build to fail unnecessarily, so we remove the flag.
6691                (substitute* '("configure.ac")
6692                  (("-Werror") ""))
6693                ;; The autogen.sh script in gnome-common will run ./configure
6694                ;; by default, which is problematic because source shebangs
6695                ;; have not yet been patched.
6696                (setenv "NOCONFIGURE" "t")
6697                (zero? (system* "sh" "autogen.sh")))))))
6698       (native-inputs
6699        `(("autoconf" ,autoconf)
6700          ("automake" ,automake)
6701          ("gnome-common" ,gnome-common)
6702          ("intltool" ,intltool)
6703          ("libtool" ,libtool)
6704          ("pkg-config" ,pkg-config)
6705          ("which" ,which)))
6706       (inputs
6707        `(("glib" ,glib)
6708          ("gstreamer" ,gstreamer)
6709          ("gst-plugins-base" ,gst-plugins-base)
6710          ("gtk+" ,gtk+)))
6711       (synopsis "Desktop recording program")
6712       (description "Byzanz is a simple desktop recording program with a
6713 command-line interface.  It can record part or all of an X display for a
6714 specified duration and save it as a GIF encoded animated image file.")
6715       (home-page "https://git.gnome.org/browse/byzanz")
6716       (license license:gpl2+))))
6717
6718 (define-public gsound
6719   (package
6720     (name "gsound")
6721     (version "1.0.2")
6722     (source (origin
6723               (method url-fetch)
6724               (uri (string-append "mirror://gnome/sources/" name "/"
6725                                   (version-major+minor version) "/"
6726                                   name "-" version ".tar.xz"))
6727               (sha256
6728                (base32
6729                 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
6730     (build-system glib-or-gtk-build-system)
6731     (native-inputs
6732      `(("pkg-config" ,pkg-config)
6733        ("gobject-introspection" ,gobject-introspection)
6734        ("vala" ,vala)))
6735     (inputs
6736      `(("glib" ,glib)
6737        ("libcanberra" ,libcanberra)))
6738     (home-page "https://wiki.gnome.org/Projects/GSound")
6739     (synopsis "GObject wrapper for libcanberra")
6740     (description
6741      "GSound is a small library for playing system sounds.  It's designed to be
6742 used via GObject Introspection, and is a thin wrapper around the libcanberra C
6743 library.")
6744     (license license:lgpl2.1+)))
6745
6746 (define-public libzapojit
6747   (package
6748     (name "libzapojit")
6749     (version "0.0.3")
6750     (source (origin
6751               (method url-fetch)
6752               (uri (string-append "mirror://gnome/sources/" name "/"
6753                                   (version-major+minor version) "/"
6754                                   name "-" version ".tar.xz"))
6755               (sha256
6756                (base32
6757                 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
6758     (build-system gnu-build-system)
6759     (native-inputs
6760      `(("gobject-introspection" ,gobject-introspection)
6761        ("intltool" ,intltool)
6762        ("pkg-config" ,pkg-config)))
6763     (inputs
6764      `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6765        ("json-glib" ,json-glib)
6766        ("rest" ,rest)))
6767     (home-page "https://wiki.gnome.org/Projects/Zapojit")
6768     (synopsis "Library for accessing SkyDrive and Hotmail")
6769     (description
6770      "Libzapojit is a GLib-based library for accessing online service APIs of
6771 Microsoft SkyDrive and Hotmail, using their REST protocols.")
6772     (license license:lgpl2.1+)))
6773
6774 (define-public gnome-clocks
6775   (package
6776     (name "gnome-clocks")
6777     (version "3.30.1")
6778     (source (origin
6779               (method url-fetch)
6780               (uri (string-append "mirror://gnome/sources/" name "/"
6781                                   (version-major+minor version) "/"
6782                                   name "-" version ".tar.xz"))
6783               (sha256
6784                (base32
6785                 "009fr6zwv37wryi0c0syi4i7pxpdbn3gliws68l99cjsbn2qd6pc"))))
6786     (build-system meson-build-system)
6787     (arguments
6788      '(#:glib-or-gtk? #t))
6789     (native-inputs
6790      `(("vala" ,vala)
6791        ("pkg-config" ,pkg-config)
6792        ("glib" ,glib "bin")             ; for glib-compile-resources
6793        ("gtk+-bin" ,gtk+ "bin")         ; for gtk-update-icon-cache
6794        ("desktop-file-utils" ,desktop-file-utils)
6795        ("gettext" ,gettext-minimal)
6796        ("itstool" ,itstool)))
6797     (inputs
6798      `(("glib" ,glib)
6799        ("gtk+" ,gtk+)
6800        ("gsound" ,gsound)
6801        ("geoclue" ,geoclue)
6802        ("geocode-glib" ,geocode-glib)
6803        ("libgweather" ,libgweather)
6804        ("gnome-desktop" ,gnome-desktop)))
6805     (home-page "https://wiki.gnome.org/Apps/Clocks")
6806     (synopsis "GNOME's clock application")
6807     (description
6808      "GNOME Clocks is a simple clocks application designed to fit the GNOME
6809 desktop.  It supports world clock, stop watch, alarms, and count down timer.")
6810     (license license:gpl3+)))
6811
6812 (define-public gnome-calendar
6813   (package
6814     (name "gnome-calendar")
6815     (version "3.30.1")
6816     (source (origin
6817               (method url-fetch)
6818               (uri (string-append "mirror://gnome/sources/" name "/"
6819                                   (version-major+minor version) "/"
6820                                   name "-" version ".tar.xz"))
6821               (sha256
6822                (base32
6823                 "1avi7a29y8d8kzwslp51nwy6s692alms7917454j0xpfc6hnw62s"))))
6824     (build-system meson-build-system)
6825     (arguments
6826      '(#:glib-or-gtk? #t
6827        ;; gnome-calendar has to be installed before the tests can be run
6828        ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
6829        #:tests? #f))
6830     (native-inputs
6831      `(("gettext" ,gettext-minimal)
6832        ("glib-bin" ,glib "bin")         ; For glib-compile-schemas
6833        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
6834        ("pkg-config" ,pkg-config)))
6835     (inputs
6836      `(("evolution-data-server" ,evolution-data-server)
6837        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6838        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6839        ("libdazzle" ,libdazzle)
6840        ("libedataserverui" ,evolution-data-server)
6841        ("libgweather" ,libgweather)
6842        ("geoclue" ,geoclue)))
6843     (home-page "https://wiki.gnome.org/Apps/Calendar")
6844     (synopsis "GNOME's calendar application")
6845     (description
6846      "GNOME Calendar is a simple calendar application designed to fit the GNOME
6847 desktop.  It supports multiple calendars, month, week and year view.")
6848     (license license:gpl3+)))
6849
6850 (define-public gnome-todo
6851   (package
6852     (name "gnome-todo")
6853     (version "3.28.1")
6854     (source (origin
6855               (method url-fetch)
6856               (uri (string-append "mirror://gnome/sources/" name "/"
6857                                   (version-major+minor version) "/"
6858                                   name "-" version ".tar.xz"))
6859               (sha256
6860                (base32
6861                 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))))
6862     (build-system meson-build-system)
6863     (arguments
6864      '(#:glib-or-gtk? #t
6865        #:phases (modify-phases %standard-phases
6866                   (add-after
6867                       'install 'wrap-gnome-todo
6868                     (lambda* (#:key inputs outputs #:allow-other-keys)
6869                       (let ((out               (assoc-ref outputs "out"))
6870                             (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
6871                             (python-path       (getenv "PYTHONPATH")))
6872                         (wrap-program (string-append out "/bin/gnome-todo")
6873                           ;; XXX: gi plugins are broken.
6874                           ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
6875                           ;; For plugins.
6876                           `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
6877                           `("PYTHONPATH" ":" prefix (,python-path))))
6878                       #t)))))
6879     (native-inputs
6880      `(("gettext" ,gettext-minimal)
6881        ("gobject-introspection" ,gobject-introspection)
6882        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
6883        ("gtk+-bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
6884        ("pkg-config" ,pkg-config)))
6885     (inputs
6886      `(("rest" ,rest)                   ; For Todoist plugin
6887        ("json-glib" ,json-glib)         ; For Todoist plugin
6888        ("libedataserverui" ,evolution-data-server)
6889        ("libical" ,libical)
6890        ("libpeas" ,libpeas)
6891        ("python-pygobject" ,python-pygobject)
6892        ("evolution-data-server" ,evolution-data-server)
6893        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
6894        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
6895     (home-page "https://wiki.gnome.org/Apps/Todo")
6896     (synopsis "GNOME's ToDo Application")
6897     (description
6898      "GNOME To Do is a simplistic personal task manager designed to perfectly
6899 fit the GNOME desktop.")
6900     (license license:gpl3+)))
6901
6902 (define-public gnome-dictionary
6903   (package
6904     (name "gnome-dictionary")
6905     (version "3.26.1")
6906     (source (origin
6907               (method url-fetch)
6908               (uri (string-append "mirror://gnome/sources/" name "/"
6909                                   (version-major+minor version) "/"
6910                                   name "-" version ".tar.xz"))
6911               (sha256
6912                (base32
6913                 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
6914     (build-system meson-build-system)
6915     (arguments '(#:glib-or-gtk? #t
6916                  #:phases (modify-phases %standard-phases
6917                             (add-after 'unpack 'patch-install-script
6918                               (lambda _
6919                                 ;; This script attempts to compile glib schemas
6920                                 ;; and create an empty MIME database.  We do
6921                                 ;; that elsewhere, so prevent it from running.
6922                                 (substitute* "build-aux/post-install.sh"
6923                                   (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
6924                                 #t)))))
6925     (native-inputs
6926      `(("glib:bin" ,glib "bin")
6927        ("gobject-introspection" ,gobject-introspection)
6928        ("intltool" ,intltool)
6929        ("itstool" ,itstool)
6930        ("pkg-config" ,pkg-config)
6931        ("xmllint" ,libxml2)))
6932     (inputs
6933      `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6934        ("gtk+" ,gtk+)))
6935     (home-page "https://wiki.gnome.org/Apps/Dictionary")
6936     (synopsis "Look up words in dictionary sources")
6937     (description
6938      "GNOME Dictionary can look for the definition or translation of a word in
6939 existing databases over the internet.")
6940     (license license:gpl3+)))
6941
6942 (define-public gnome-tweaks
6943   (package
6944     (name "gnome-tweaks")
6945     (version "3.30.2")
6946     (source (origin
6947               (method url-fetch)
6948               (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
6949                                   (version-major+minor version) "/"
6950                                   "gnome-tweaks-" version ".tar.xz"))
6951               (patches
6952                (list (search-patch "gnome-tweaks-search-paths.patch")))
6953               (sha256
6954                (base32
6955                 "0j63siy1i5pl2g6di1r9vjn54m9ahh42wj20j6689pza2lamay1z"))))
6956     (build-system meson-build-system)
6957     (arguments
6958      `(#:glib-or-gtk? #t
6959        #:configure-flags '("-Dlocalstatedir=/tmp"
6960                            "-Dsysconfdir=/tmp")
6961        #:imported-modules ((guix build python-build-system)
6962                            ,@%meson-build-system-modules)
6963        #:phases
6964        (modify-phases %standard-phases
6965          (add-after 'install 'wrap
6966            (@@ (guix build python-build-system) wrap))
6967          (add-after 'wrap 'wrap-gi-typelib
6968            (lambda* (#:key inputs outputs #:allow-other-keys)
6969              (let ((out               (assoc-ref outputs "out"))
6970                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
6971                (wrap-program (string-append out "/bin/gnome-tweaks")
6972                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6973              #t)))))
6974     (native-inputs
6975      `(("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
6976        ("intltool" ,intltool)
6977        ("pkg-config" ,pkg-config)))
6978     (inputs
6979      `(("gnome-desktop" ,gnome-desktop)
6980        ("gtk+" ,gtk+)
6981        ("gobject-introspection" ,gobject-introspection)
6982        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6983        ("libnotify" ,libnotify)
6984        ("libsoup" ,libsoup)
6985        ("nautilus" ,nautilus)
6986        ("python" ,python)
6987        ("python-pygobject" ,python-pygobject)))
6988     (synopsis "Customize advanced GNOME 3 options")
6989     (home-page "https://wiki.gnome.org/Apps/Tweaks")
6990     (description
6991      "GNOME Tweaks allows adjusting advanced configuration settings in
6992 GNOME 3.  This includes things like the fonts used in user interface elements,
6993 alternative user interface themes, changes in window management behavior,
6994 GNOME Shell appearance and extension, etc.")
6995     (license license:gpl3+)))
6996
6997 ;; This package has been renamed by upstream.
6998 (define-public gnome-tweak-tool
6999   (deprecated-package "gnome-tweak-tool" gnome-tweaks))
7000
7001 (define-public gnome-shell-extensions
7002   (package
7003     (name "gnome-shell-extensions")
7004     (version "3.30.1")
7005     (source (origin
7006               (method url-fetch)
7007               (uri (string-append "mirror://gnome/sources/" name "/"
7008                                   (version-major+minor version)  "/"
7009                                   name "-" version ".tar.xz"))
7010               (sha256
7011                (base32
7012                 "1grxn4f5x754r172wmnf0h0xpy69afmj359zsj1rwgqlzw4i4c5p"))))
7013     (build-system meson-build-system)
7014     (arguments
7015      '(#:configure-flags '("-Dextension_set=all")))
7016     (native-inputs
7017      `(("intltool" ,intltool)
7018        ("pkg-config" ,pkg-config)))
7019     (propagated-inputs
7020      `(("glib" ,glib)
7021        ("glib" ,glib "bin")))
7022     (synopsis "Extensions for GNOME Shell")
7023     (description "GNOME Shell extensions modify and extend GNOME Shell
7024 functionality and behavior.")
7025     (home-page "https://extensions.gnome.org/")
7026     (license license:gpl3+)))
7027
7028 (define-public numix-theme
7029   (package
7030     (name "numix-theme")
7031     (version "2.6.7")
7032     (source (origin
7033               (method git-fetch)
7034               (uri (git-reference
7035                     (url "https://github.com/numixproject/numix-gtk-theme.git")
7036                     (commit version)))
7037               (file-name (git-file-name name version))
7038               (sha256
7039                (base32
7040                 "12mw0kr0kkvg395qlbsvkvaqccr90cmxw5rrsl236zh43kj8grb7"))))
7041     (build-system gnu-build-system)
7042     (arguments
7043      '(#:make-flags (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
7044        #:phases
7045        (modify-phases %standard-phases
7046          (delete 'configure)
7047          (delete 'check))))
7048     (native-inputs
7049      `(("glib:bin" ,glib "bin")             ; for glib-compile-schemas
7050        ("gnome-shell" ,gnome-shell)
7051        ("gtk+" ,gtk+)
7052        ("xmllint" ,libxml2)
7053        ("ruby-sass" ,ruby-sass)))
7054     (synopsis "Flat theme with light and dark elements")
7055     (description "Numix is a modern flat theme with a combination of light and
7056 dark elements.  It supports GNOME, Unity, Xfce, and Openbox.")
7057     (home-page "https://numixproject.github.io")
7058     (license license:gpl3+)))
7059
7060 (define-public arc-theme
7061   (package
7062     (name "arc-theme")
7063     (version "20181022")
7064     (source (origin
7065               (method git-fetch)
7066               (uri (git-reference
7067                     (url "https://github.com/NicoHood/arc-theme.git")
7068                     (commit version)))
7069               (file-name (git-file-name name version))
7070               (sha256
7071                (base32
7072                 "08951dk1irfadwpr3p323a4fprmxg53rk2r2niwq3v62ryhi3663"))))
7073     (build-system gnu-build-system)
7074     (arguments
7075      '(#:phases
7076        (modify-phases %standard-phases
7077          ;; autogen.sh calls configure at the end of the script.
7078          (replace 'bootstrap
7079            (lambda _ (invoke "autoreconf" "-vfi"))))))
7080     (native-inputs
7081      `(("autoconf" ,autoconf)
7082        ("automake" ,automake)
7083        ("glib" ,glib "bin")             ; for glib-compile-resources
7084        ("gnome-shell" ,gnome-shell)
7085        ("gtk+" ,gtk+)
7086        ("inkscape" ,inkscape)
7087        ("optipng" ,optipng)
7088        ("pkg-config" ,pkg-config)
7089        ("sassc" ,sassc)))
7090     (synopsis "A flat GTK+ theme with transparent elements")
7091     (description "Arc is a flat theme with transparent elements for GTK 3, GTK
7092 2, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
7093 like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
7094     (home-page "https://github.com/horst3180/arc-theme")
7095     ;; No "or later" language found.
7096     (license license:gpl3+)))
7097
7098 (define-public faba-icon-theme
7099   (package
7100     (name "faba-icon-theme")
7101     (version "4.3")
7102     (source
7103      (origin
7104        (method url-fetch)
7105        (uri (string-append "https://github.com/moka-project/"
7106                            name "/archive/v" version ".tar.gz"))
7107        (file-name (string-append name "-" version ".tar.gz"))
7108        (sha256
7109         (base32
7110          "18ln06xl60qzvzz61zq9q72hdbfgjsza3flph8i2asyzx3dffz68"))))
7111     (build-system meson-build-system)
7112     (arguments
7113      `(#:phases
7114        (modify-phases %standard-phases
7115          (add-before 'configure 'disable-post-install
7116            (lambda _
7117              (substitute* "meson.build"
7118                (("meson.add_install_script.*") "")))))))
7119     (native-inputs
7120      `(("autoconf" ,autoconf)
7121        ("automake" ,automake)))
7122     (synopsis "Faba icon theme")
7123     (description
7124      "Faba is a minimal icon set used as a basis for other themes such as
7125 Moka")
7126     (home-page "https://snwh.org/moka")
7127     (license (list license:lgpl3+
7128                    license:cc-by-sa4.0))))
7129
7130 (define-public moka-icon-theme
7131   (package
7132     (inherit faba-icon-theme)
7133     (name "moka-icon-theme")
7134     (version "5.4.0")
7135     (source (origin
7136               (method url-fetch)
7137               (uri (string-append "https://github.com/moka-project"
7138                                   "/moka-icon-theme/archive/v"
7139                                   version ".tar.gz"))
7140               (file-name (string-append name "-" version ".tar.gz"))
7141               (sha256
7142                (base32
7143                 "1nbwdjj268hxv9lfagd9aylily9f0hhallp841v0i3imljp84bmk"))))
7144     (propagated-inputs
7145      ;; Moka is based on Faba by using it as a fallback icon set instead of
7146      ;; bundling it, so we need to add it as a propagated input.
7147      `(("faba-icon-theme" ,faba-icon-theme)))
7148     (synopsis "Moka icon theme")
7149     (description "Moka is a stylized desktop icon set, designed to be clear,
7150 simple and consistent.")
7151     (license (list license:gpl3+
7152                    license:cc-by-sa4.0))))
7153
7154 (define-public arc-icon-theme
7155   (package
7156     (name "arc-icon-theme")
7157     (version "20161122")
7158     (source (origin
7159               (method url-fetch)
7160               (uri (string-append "https://github.com/horst3180/arc-icon-theme"
7161                                   "/archive/" version ".tar.gz"))
7162               (file-name (string-append name "-" version ".tar.gz"))
7163               (sha256
7164                (base32
7165                 "1ya1cqvv8q847c0rpcg6apzky87q3h04y8jz5nmi52qk6kg8si0b"))))
7166     (build-system gnu-build-system)
7167     (arguments
7168      `(#:phases
7169        (modify-phases %standard-phases
7170          (add-after 'unpack 'disable-configure-during-bootstrap
7171            (lambda _
7172              (substitute* "autogen.sh"
7173                (("^\"\\$srcdir/configure\".*") ""))
7174              #t)))))
7175     (native-inputs
7176      `(("autoconf" ,autoconf)
7177        ("automake" ,automake)))
7178     ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
7179     (propagated-inputs
7180      `(("moka-icon-theme" ,moka-icon-theme)))
7181     (synopsis "Arc icon theme")
7182     (description "The Arc icon theme provides a set of icons matching the
7183 style of the Arc GTK theme.  Icons missing from the Arc theme are provided by
7184 the Moka icon theme.")
7185     (home-page "https://github.com/horst3180/arc-icon-theme")
7186     (license license:gpl3+)))
7187
7188 (define-public folks
7189   (package
7190     (name "folks")
7191     (version "0.11.4")
7192     (source (origin
7193               (method url-fetch)
7194               (uri (string-append
7195                     "mirror://gnome/sources/folks/"
7196                     (version-major+minor version) "/"
7197                     "folks-" version ".tar.xz"))
7198               (sha256
7199                (base32
7200                 "16hqh2gxlbx0b0hgq216hndr1m72vj54jvryzii9zqkk0g9kxc57"))))
7201     (build-system glib-or-gtk-build-system)
7202     (inputs
7203      `(("bdb" ,bdb)
7204        ("dbus-glib" ,dbus-glib)
7205        ("evolution-data-server" ,evolution-data-server)
7206        ("glib" ,glib)
7207        ("libgee" ,libgee)
7208        ("telepathy-glib" ,telepathy-glib)))
7209     (native-inputs
7210      `(("gobject-introspection" ,gobject-introspection)
7211        ("intltool" ,intltool)
7212        ("pkg-config" ,pkg-config)
7213        ("vala" ,vala)))
7214     (synopsis "Library to aggregate data about people")
7215     (description "Libfolks is a library that aggregates information about people
7216 from multiple sources (e.g., Telepathy connection managers for IM contacts,
7217 Evolution Data Server for local contacts, libsocialweb for web service contacts,
7218 etc.) to create metacontacts.  It's written in Vala, which generates C code when
7219 compiled.")
7220     (home-page "https://wiki.gnome.org/Projects/Folks")
7221     (license license:lgpl2.1+)))
7222
7223 (define-public gfbgraph
7224   (package
7225     (name "gfbgraph")
7226     (version "0.2.3")
7227     (source (origin
7228               (method url-fetch)
7229               (uri (string-append
7230                     "mirror://gnome/sources/gfbgraph/"
7231                     (version-major+minor version) "/"
7232                     "gfbgraph-" version ".tar.xz"))
7233               (sha256
7234                (base32
7235                 "1dp0v8ia35fxs9yhnqpxj3ir5lh018jlbiwifjfn8ayy7h47j4fs"))))
7236     (build-system glib-or-gtk-build-system)
7237     (arguments
7238      `(#:tests? #f ; Tests appear to require the network.
7239        ;; FIXME --enable-gtk-doc fails even with gtk-doc as a native-input.
7240        #:configure-flags '("--disable-gtk-doc"
7241                            "--disable-static"
7242                            "--enable-introspection")))
7243     (native-inputs
7244      `(("pkg-config" ,pkg-config)
7245        ("gobject-introspection" ,gobject-introspection)))
7246     (inputs
7247      `(("json-glib" ,json-glib)
7248        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7249        ("rest" ,rest)))
7250     (synopsis "GLib/GObject wrapper for the Facebook API")
7251     (description "This library allows you to use the Facebook API from
7252 GLib/GObject code.")
7253     (home-page "https://wiki.gnome.org/Projects/GFBGraph")
7254     (license license:lgpl2.1+)))
7255
7256 (define-public libgnomekbd
7257   (package
7258     (name "libgnomekbd")
7259     (version "3.26.1")
7260     (source (origin
7261               (method url-fetch)
7262               (uri (string-append "mirror://gnome/sources/libgnomekbd/"
7263                                   (version-major+minor version)  "/"
7264                                   "libgnomekbd-" version ".tar.xz"))
7265               (sha256
7266                (base32
7267                 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
7268     (build-system gnu-build-system)
7269     (native-inputs
7270      `(("pkg-config" ,pkg-config)
7271        ("glib" ,glib "bin")
7272        ("intltool" ,intltool)))
7273     (propagated-inputs
7274      ;; Referred to in .h files and .pc.
7275      `(("glib" ,glib)
7276        ("gtk+" ,gtk+)
7277        ("libxklavier" ,libxklavier)))
7278     (home-page "https://www.gnome.org")
7279     (synopsis "GNOME keyboard configuration library")
7280     (description
7281      "Libgnomekbd is a keyboard configuration library for the GNOME desktop
7282 environment, which can notably display keyboard layouts.")
7283     (license license:lgpl2.0+)))
7284
7285 ;;; This package is no longer maintained:
7286 ;;; https://wiki.gnome.org/Attic/LibUnique
7287 ;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
7288 ;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
7289 (define-public libunique
7290   (package
7291     (name "libunique")
7292     (version "3.0.2")
7293     (source (origin
7294               (method url-fetch)
7295               (uri (string-append "mirror://gnome/sources/" name "/"
7296                                   (version-major+minor version)  "/"
7297                                   name "-" version ".tar.xz"))
7298               (sha256
7299                (base32
7300                 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
7301     (build-system glib-or-gtk-build-system)
7302     (arguments
7303      `(#:configure-flags '("--disable-static"
7304                            "--disable-dbus" ; use gdbus
7305                            "--enable-introspection")))
7306     (native-inputs
7307      `(("pkg-config" ,pkg-config)
7308        ("gobject-introspection" ,gobject-introspection)
7309        ("glib:bin" ,glib "bin")
7310        ("gtk-doc" ,gtk-doc)))
7311     (propagated-inputs
7312      ;; Referred to in .h files and .pc.
7313      `(("gtk+" ,gtk+)))
7314     (home-page "https://wiki.gnome.org/Attic/LibUnique")
7315     (synopsis "Library for writing single instance applications")
7316     (description
7317      "Libunique is a library for writing single instance applications.  If you
7318 launch a single instance application twice, the second instance will either just
7319 quit or will send a message to the running instance.  Libunique makes it easy to
7320 write this kind of application, by providing a base class, taking care of all
7321 the IPC machinery needed to send messages to a running instance, and also
7322 handling the startup notification side.")
7323     (license license:lgpl2.1+)))
7324
7325 (define-public gnome-calculator
7326   (package
7327     (name "gnome-calculator")
7328     (version "3.32.2")
7329     (source
7330      (origin
7331        (method url-fetch)
7332        (uri (string-append "mirror://gnome/sources/" name "/"
7333                            (version-major+minor version) "/"
7334                            name "-" version ".tar.xz"))
7335        (sha256
7336         (base32
7337          "0fgpn3sc226s9fpzhik5rkkrf669037gc659ga2kn9jsyckj6p41"))))
7338     (build-system meson-build-system)
7339     (arguments '(#:glib-or-gtk? #t))
7340     (native-inputs
7341      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
7342        ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
7343        ("intltool" ,intltool)
7344        ("itstool" ,itstool)
7345        ("vala" ,vala)
7346        ("pkg-config" ,pkg-config)))
7347     (inputs
7348      `(("glib" ,glib)
7349        ("gtksourceview" ,gtksourceview)
7350        ("libsoup" ,libsoup)
7351        ("libxml2" ,libxml2)
7352        ("mpc" ,mpc)
7353        ("mpfr" ,mpfr)))
7354     (home-page "https://wiki.gnome.org/Apps/Calculator")
7355     (synopsis "Desktop calculator")
7356     (description
7357      "Calculator is an application that solves mathematical equations and
7358 is suitable as a default application in a Desktop environment.")
7359     (license license:gpl3)))
7360
7361 (define-public xpad
7362   (package
7363     (name "xpad")
7364     (version "5.1.0")
7365     (source
7366      (origin
7367        (method url-fetch)
7368        (uri (string-append "https://launchpad.net/xpad/trunk/"
7369                            version "/+download/"
7370                            name "-" version ".tar.bz2"))
7371        (sha256
7372         (base32
7373          "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
7374     (build-system gnu-build-system)
7375     (native-inputs
7376      `(("autoconf" ,autoconf)
7377        ("automake" ,automake)
7378        ("gtk+:bin" ,gtk+ "bin")
7379        ("intltool" ,intltool)
7380        ("pkg-config" ,pkg-config)))
7381     (inputs
7382      `(("gtksourceview" ,gtksourceview-3)
7383        ("libsm" ,libsm)))
7384     (home-page "https://wiki.gnome.org/Apps/Xpad")
7385     (synopsis "Virtual sticky note")
7386     (description
7387      "Xpad is a sticky note that strives to be simple, fault tolerant,
7388 and customizable.  Xpad consists of independent pad windows, each is
7389 basically a text box in which notes can be written.")
7390     (license license:gpl3+)))
7391
7392 (define-public gucharmap
7393   (let ((unicode-files
7394          '(("Blocks.txt"
7395             "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
7396            ("DerivedAge.txt"
7397             "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
7398            ("NamesList.txt"
7399             "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
7400            ("Scripts.txt"
7401             "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
7402            ("UnicodeData.txt"
7403             "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
7404            ("Unihan.zip"
7405             "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
7406     (package
7407       (name "gucharmap")
7408       (version "12.0.1")
7409       (source
7410        (origin
7411          (method url-fetch)
7412          (uri (string-append "mirror://gnome/sources/" name "/"
7413                              (version-major+minor version) "/"
7414                              name "-" version ".tar.xz"))
7415          (sha256
7416           (base32
7417            "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
7418       (build-system glib-or-gtk-build-system)
7419       (arguments
7420        `(#:modules ((ice-9 match)
7421                     (guix build glib-or-gtk-build-system)
7422                     (guix build utils))
7423          #:configure-flags
7424          (list "--with-unicode-data=../unicode-data")
7425          #:phases
7426          (modify-phases %standard-phases
7427            (add-after 'unpack 'prepare-unicode-data
7428              (lambda* (#:key inputs #:allow-other-keys)
7429                (mkdir-p "../unicode-data")
7430                (with-directory-excursion "../unicode-data"
7431                  (for-each (match-lambda
7432                              ((file _)
7433                               (install-file (assoc-ref inputs file) ".")))
7434                            ',unicode-files))
7435                #t)))))
7436       (native-inputs
7437        `(("desktop-file-utils" ,desktop-file-utils)
7438          ("glib:bin" ,glib "bin")       ; for glib-compile-resources.
7439          ("gobject-introspection" ,gobject-introspection)
7440          ("intltool" ,intltool)
7441          ("itstool" ,itstool)
7442          ("pkg-config" ,pkg-config)
7443          ,@(map (match-lambda
7444                   ((file hash)
7445                    `(,file
7446                      ,(origin
7447                         (method url-fetch)
7448                         (uri (string-append
7449                               "http://www.unicode.org/Public/12.0.0/ucd/"
7450                               file))
7451                         (sha256 (base32 hash))))))
7452                 unicode-files)
7453          ("unzip" ,unzip)))
7454       (inputs
7455        `(("gtk+" ,gtk+)
7456          ("xmllint" ,libxml2)))
7457       (home-page "https://wiki.gnome.org/Apps/Gucharmap")
7458       (synopsis "Unicode character picker and font browser")
7459       (description
7460        "This program allows you to browse through all the available Unicode
7461 characters and categories for the installed fonts, and to examine their
7462 detailed properties.  It is an easy way to find the character you might
7463 only know by its Unicode name or code point.")
7464       (license license:gpl3+))))
7465
7466 (define-public bluefish
7467   (package
7468     (name "bluefish")
7469     (version "2.2.10")
7470     (source
7471      (origin
7472        (method url-fetch)
7473        (uri (string-append "http://www.bennewitz.com/bluefish/stable/source/"
7474                            name "-" version ".tar.gz"))
7475        (sha256
7476         (base32
7477          "1jw4has7lbp77lqmzvnnjmqcf0lacjfnka873lkkwdyrpzc4c1q4"))))
7478     (build-system gnu-build-system)
7479     (native-inputs
7480      `(("desktop-file-utils" ,desktop-file-utils)
7481        ("intltool" ,intltool)
7482        ("pkg-config" ,pkg-config)))
7483     (inputs
7484      `(("enchant" ,enchant)
7485        ("gtk+" ,gtk+)
7486        ("python" ,python-2)
7487        ("xmllint" ,libxml2)
7488        ("gucharmap" ,gucharmap)))
7489     (home-page "http://bluefish.openoffice.nl")
7490     (synopsis "Web development studio")
7491     (description
7492      "Bluefish is an editor targeted towards programmers and web developers,
7493 with many options to write web sites, scripts and other code.
7494 Bluefish supports many programming and markup languages.")
7495     (license license:gpl3+)))
7496
7497 (define-public gnome-system-monitor
7498   (package
7499     (name "gnome-system-monitor")
7500     (version "3.30.0")
7501     (source
7502      (origin
7503        (method url-fetch)
7504        (uri (string-append "mirror://gnome/sources/" name "/"
7505                            (version-major+minor version) "/"
7506                            name "-" version ".tar.xz"))
7507        (sha256
7508         (base32
7509          "0g0y565bjs6bdszrnxsz1f7hcm1x59i3mfvplysirh7nz3hpz888"))))
7510     (build-system meson-build-system)
7511     (arguments
7512      '(#:glib-or-gtk? #t
7513        #:configure-flags '("-Dsystemd=false")))
7514     (native-inputs
7515      `(("glib:bin" ,glib "bin") ; for glib-mkenums.
7516        ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
7517        ("intltool" ,intltool)
7518        ("itstool" ,itstool)
7519        ("libgtop" ,libgtop)
7520        ("polkit" ,polkit)
7521        ("pkg-config" ,pkg-config)))
7522     (inputs
7523      `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
7524        ("gtk+" ,gtk+)
7525        ("gtkmm" ,gtkmm)
7526        ("librsvg" ,librsvg)
7527        ("libxml2" ,libxml2)
7528        ("libwnck" ,libwnck)))
7529     (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
7530     (synopsis "Process viewer and system resource monitor for GNOME")
7531     (description
7532      "GNOME System Monitor is a GNOME process viewer and system monitor with
7533 an attractive, easy-to-use interface.  It has features, such as a tree view
7534 for process dependencies, icons for processes, the ability to hide processes,
7535 graphical time histories of CPU/memory/swap usage and the ability to
7536 kill/reinice processes.")
7537     (license license:gpl2+)))
7538
7539 (define-public python-pyatspi
7540   (package
7541     (name "python-pyatspi")
7542     (version "2.26.0")
7543     (source (origin
7544               (method url-fetch)
7545               (uri (string-append
7546                     "mirror://gnome/sources/pyatspi/"
7547                     (version-major+minor version)
7548                     "/pyatspi-" version ".tar.xz"))
7549               (sha256
7550                (base32
7551                 "0xdnix7gxzgf75xy9ris4dd6b05mqwicw190b98xqmypydyf95n6"))
7552               ;; Patch from upstream, fixed in newer versions.
7553               (patches (search-patches "python-pyatspi-python-37.patch"))))
7554     (build-system gnu-build-system)
7555     (arguments
7556      `(#:phases
7557        (modify-phases %standard-phases
7558          (add-before 'build 'fix-atk-load
7559            (lambda _
7560              (substitute* "pyatspi/__init__.py"
7561                (("from gi.repository import Atspi")
7562                 "gi.require_version('Gtk', '3.0')
7563 from gi.repository import Gtk
7564 from gi.repository import Atspi"))
7565              #t)))))
7566     (native-inputs
7567      `(("pkg-config" ,pkg-config)))
7568     (inputs
7569      `(("python" ,python)
7570        ("python-pygobject" ,python-pygobject)))
7571     (synopsis "Python client bindings for D-Bus AT-SPI")
7572     (home-page "https://wiki.linuxfoundation.org/accessibility\
7573 /atk/at-spi/at-spi_on_d-bus")
7574     (description
7575      "This package includes a python client library for the AT-SPI D-Bus
7576 accessibility infrastructure.")
7577     (license license:lgpl2.0)
7578     (properties '((upstream-name . "pyatspi")))))
7579
7580 (define-public orca
7581   (package
7582     (name "orca")
7583     (version "3.30.2")
7584     (source (origin
7585               (method url-fetch)
7586               (uri (string-append
7587                     "mirror://gnome/sources/" name "/"
7588                     (version-major+minor version) "/"
7589                     name "-" version ".tar.xz"))
7590               (sha256
7591                (base32
7592                 "17asibc46i5gr2fw04jvvdi85zzmxwlnhyq7r6cr3m5prrdr8a53"))))
7593     (build-system glib-or-gtk-build-system)
7594     (arguments
7595      '(#:phases
7596        (modify-phases %standard-phases
7597          (add-before 'configure 'qualify-xkbcomp
7598            (lambda* (#:key inputs #:allow-other-keys)
7599              (let ((xkbcomp (string-append
7600                              (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
7601                (substitute* "src/orca/orca.py"
7602                  (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
7603              #t))
7604          (add-after 'install 'wrap-orca
7605            (lambda* (#:key outputs #:allow-other-keys)
7606              (let* ((out  (assoc-ref outputs "out"))
7607                     (prog (string-append out "/bin/orca")))
7608                (wrap-program prog
7609                  `("GI_TYPELIB_PATH" ":" prefix
7610                    (,(getenv "GI_TYPELIB_PATH")))
7611                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
7612                    (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
7613                  `("PYTHONPATH" ":" prefix
7614                    (,(getenv "PYTHONPATH")))))
7615              #t)))))
7616     (native-inputs
7617      `(("intltool" ,intltool)
7618        ("itstool" ,itstool)
7619        ("pkg-config" ,pkg-config)
7620        ("xmllint" ,libxml2)))
7621     (inputs
7622      `(("at-spi2-atk" ,at-spi2-atk)
7623        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7624        ("gstreamer" ,gstreamer)
7625        ("gst-plugins-base" ,gst-plugins-base)
7626        ("gst-plugins-good" ,gst-plugins-good)
7627        ("gtk+" ,gtk+)
7628        ("python" ,python)
7629        ("python-pygobject" ,python-pygobject)
7630        ("python-pyatspi" ,python-pyatspi)
7631        ("python-speechd" ,speech-dispatcher)
7632        ("xkbcomp" ,xkbcomp)))
7633     (synopsis
7634      "Screen reader for individuals who are blind or visually impaired")
7635     (home-page "https://wiki.gnome.org/Projects/Orca")
7636     (description
7637      "Orca is a screen reader that provides access to the graphical desktop
7638 via speech and refreshable braille.  Orca works with applications and toolkits
7639 that support the Assistive Technology Service Provider Interface (AT-SPI).")
7640     (license license:lgpl2.1+)))
7641
7642 (define-public gspell
7643   (package
7644     (name "gspell")
7645     (version "1.8.1")
7646     (source (origin
7647               (method url-fetch)
7648               (uri (string-append "mirror://gnome/sources/" name "/"
7649                                   (version-major+minor version) "/"
7650                                   name "-" version ".tar.xz"))
7651               (sha256
7652                (base32
7653                 "1rdv873ixhwr15jwgc2z6k6y0hj353fqnwsy7zkh0c30qwiiv6l1"))
7654               (patches (search-patches "gspell-dash-test.patch"))))
7655     (build-system glib-or-gtk-build-system)
7656     (arguments
7657      '(#:phases
7658        (modify-phases %standard-phases
7659          (add-before 'check 'pre-check
7660            (lambda* (#:key inputs #:allow-other-keys)
7661              ;; Tests require a running X server.
7662              (system "Xvfb :1 &")
7663              (setenv "DISPLAY" ":1")
7664
7665              ;; For the missing /etc/machine-id.
7666              (setenv "DBUS_FATAL_WARNINGS" "0")
7667
7668              ;; Allow Enchant and its Aspell backend to find the en_US
7669              ;; dictionary.
7670              (setenv "ASPELL_DICT_DIR"
7671                      (string-append (assoc-ref inputs "aspell-dict-en")
7672                                     "/lib/aspell"))
7673              #t)))))
7674     (inputs
7675      `(("gtk+" ,gtk+)
7676        ("glib" ,glib)
7677        ("iso-codes" ,iso-codes)))
7678     (native-inputs
7679      `(("glib" ,glib "bin")
7680        ("pkg-config" ,pkg-config)
7681        ("xmllint" ,libxml2)
7682
7683        ;; For tests.
7684        ("aspell-dict-en" ,aspell-dict-en)
7685        ("xorg-server" ,xorg-server)))
7686     (propagated-inputs
7687      `(("enchant" ,enchant)))            ;enchant.pc is required by gspell-1.pc
7688     (home-page "https://wiki.gnome.org/Projects/gspell")
7689     (synopsis "GNOME's alternative spell checker")
7690     (description
7691      "gspell provides a flexible API to add spell-checking to a GTK+
7692 application.  It provides a GObject API, spell-checking to text entries and
7693 text views, and buttons to choose the language.")
7694     (license license:gpl2+)))
7695
7696 (define-public gnome-planner
7697   (package
7698     (name "gnome-planner")
7699     (version "0.14.6")
7700     (source (origin
7701               (method url-fetch)
7702               (uri (string-append "mirror://gnome/sources/planner/"
7703                                   (version-major+minor version) "/planner-"
7704                                   version ".tar.xz"))
7705               (sha256
7706                (base32
7707                 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
7708     (build-system glib-or-gtk-build-system)
7709     (arguments
7710      ;; Disable the Python bindings because the Planner program functions
7711      ;; without them, and (as of 2017-06-13) we have not packaged all of
7712      ;; packages that are necessary for building the Python bindings.
7713      `(#:configure-flags
7714        (list "--disable-python"
7715              ,@(if (string=? "aarch64-linux" (%current-system))
7716                    '("--build=aarch64-unknown-linux-gnu")
7717                    '()))))
7718     (inputs
7719      `(("libgnomecanvas" ,libgnomecanvas)
7720        ("libgnomeui" ,libgnomeui)
7721        ("libglade" ,libglade)
7722        ("gnome-vfs" ,gnome-vfs)
7723        ("gconf" ,gconf)
7724        ("libxml2" ,libxml2)
7725        ("libxslt" ,libxslt)
7726        ("gtk+" ,gtk+)
7727        ("glib" ,glib)))
7728     (native-inputs
7729      `(("intltool" ,intltool)
7730        ("scrollkeeper" ,scrollkeeper)
7731        ("pkg-config" ,pkg-config)))
7732     (home-page "https://wiki.gnome.org/Apps/Planner")
7733     (synopsis "Project management software for the GNOME desktop")
7734     (description
7735      "GNOME Planner is a project management tool based on the Work Breakdown
7736 Structure (WBS).  Its goal is to enable you to easily plan projects.  Based on
7737 the resources, tasks, and constraints that you define, Planner generates
7738 various views into a project.  For example, Planner can show a Gantt chart of
7739 the project.  It can show a detailed summary of tasks including their
7740 duration, cost, and current progress.  It can also show a report of resource
7741 utilization that highlights under-utilized and over-utilized resources.  These
7742 views can be printed as PDF or PostScript files, or exported to HTML.")
7743     (license license:gpl2+)))
7744
7745 (define-public lollypop
7746   (package
7747     (name "lollypop")
7748     (version "1.1.3.1")
7749     (source
7750      (origin
7751        (method url-fetch)
7752        (uri (string-append "https://gitlab.gnome.org/World/lollypop/uploads/"
7753                            "5a7cd7c72b6d83ae08d0c54c4691f9df/"
7754                            name "-" version ".tar.xz"))
7755        (sha256
7756         (base32
7757          "1r5wn0bja9psz6nr1rcaysdkkwz84rbyzpdfw66cxa6wiy52pkjm"))))
7758     (build-system meson-build-system)
7759     (arguments
7760      `(#:imported-modules ((guix build python-build-system)
7761                            ,@%meson-build-system-modules)
7762        #:glib-or-gtk? #t
7763        #:tests? #f ; no test suite
7764        #:phases
7765        (modify-phases %standard-phases
7766          (add-after 'install 'wrap-program
7767            (lambda* (#:key outputs #:allow-other-keys)
7768              (let ((out               (assoc-ref outputs "out"))
7769                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
7770                (wrap-program (string-append out "/bin/lollypop")
7771                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7772              #t))
7773          (add-after 'install 'wrap
7774            (@@ (guix build python-build-system) wrap)))))
7775     (native-inputs
7776      `(("intltool" ,intltool)
7777        ("itstool" ,itstool)
7778        ("glib:bin" ,glib "bin")         ; For glib-compile-resources
7779        ("gtk+:bin" ,gtk+ "bin")         ; For gtk-update-icon-cache
7780        ("pkg-config" ,pkg-config)))
7781     (inputs
7782      `(("gobject-introspection" ,gobject-introspection)
7783        ("gst-plugins-base" ,gst-plugins-base)
7784        ("libnotify" ,libnotify)
7785        ("libsecret" ,libsecret)
7786        ("libsoup" ,libsoup)
7787        ("python" ,python)
7788        ("python-beautifulsoup4" ,python-beautifulsoup4)
7789        ("python-gst" ,python-gst)
7790        ("python-pil" ,python-pillow)
7791        ("python-pycairo" ,python-pycairo)
7792        ("python-pygobject" ,python-pygobject)
7793        ("python-pylast" ,python-pylast)
7794        ("totem-pl-parser" ,totem-pl-parser)
7795        ("webkitgtk" ,webkitgtk)))
7796     (propagated-inputs
7797      `(;; gst-plugins-base is required to start Lollypop,
7798        ;; the others are required to play streaming.
7799        ("gst-plugins-good" ,gst-plugins-good)
7800        ("gst-plugins-ugly" ,gst-plugins-ugly)))
7801     (home-page "https://wiki.gnome.org/Apps/Lollypop")
7802     (synopsis "GNOME music playing application")
7803     (description
7804      "Lollypop is a music player designed to play well with GNOME desktop.
7805 Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
7806 from artists and tracks from the web.  It also fetches cover artworks
7807 automatically and it can stream songs from online music services and charts.")
7808     (license license:gpl3+)))
7809
7810 (define-public gnome-video-effects
7811   (package
7812     (name "gnome-video-effects")
7813     (version "0.4.3")
7814     (source (origin
7815               (method url-fetch)
7816               (uri (string-append "mirror://gnome/sources/" name "/"
7817                                   (version-major+minor version) "/" name "-"
7818                                   version ".tar.xz"))
7819               (sha256
7820                (base32
7821                 "06c2f1kihyhawap1s3zg5w7q7fypsybkp7xry4hxkdz4mpsy0zjs"))))
7822     (build-system glib-or-gtk-build-system)
7823     (arguments
7824      `(#:out-of-source? #f))
7825     (native-inputs
7826      `(("glib:bin" ,glib "bin")
7827        ("intltool" ,intltool)
7828        ("gettext" ,gettext-minimal)
7829        ("pkg-config" ,pkg-config)))
7830     (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
7831     (synopsis "Video effects for Cheese and other GNOME applications")
7832     (description
7833      "A collection of GStreamer video filters and effects to be used in
7834 photo-booth-like software, such as Cheese.")
7835     (license license:gpl2+)))
7836
7837 (define-public cheese
7838   (package
7839     (name "cheese")
7840     (version "3.30.0")
7841     (source (origin
7842               (method url-fetch)
7843               (uri (string-append "mirror://gnome/sources/" name "/"
7844                                   (version-major+minor version) "/" name "-"
7845                                   version ".tar.xz"))
7846               (sha256
7847                (base32
7848                 "0zz2bgjaf2lsmfs3zn24925vbjb0rycr39i288brlbzixrpcyljr"))))
7849     (arguments
7850      ;; Tests require GDK.
7851      `(#:tests? #f
7852        #:phases
7853        (modify-phases %standard-phases
7854          (add-before 'install 'skip-gtk-update-icon-cache
7855            (lambda _
7856              ;; Don't create 'icon-theme.cache'
7857              (substitute* "Makefile"
7858                (("gtk-update-icon-cache") (which "true")))
7859              #t))
7860          (add-after 'install 'wrap-cheese
7861            (lambda* (#:key inputs outputs #:allow-other-keys)
7862              (let ((out             (assoc-ref outputs "out"))
7863                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
7864                (wrap-program (string-append out "/bin/cheese")
7865                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
7866              #t)))))
7867     (build-system glib-or-gtk-build-system)
7868     (native-inputs
7869      `(("glib:bin" ,glib "bin")
7870        ("intltool" ,intltool)
7871        ("itstool" ,itstool)
7872        ("libxml2" ,libxml2)
7873        ("pkg-config" ,pkg-config)
7874        ("vala" ,vala)))
7875     (propagated-inputs
7876      `(("gnome-video-effects" ,gnome-video-effects)
7877        ("clutter" ,clutter)
7878        ("clutter-gst" ,clutter-gst)
7879        ("clutter-gtk" ,clutter-gtk)
7880        ("libcanberra" ,libcanberra)
7881        ("gdk-pixbuf" ,gdk-pixbuf)
7882        ("glib" ,glib)
7883        ("gstreamer" ,gstreamer)))
7884     (inputs
7885      `(("gnome-desktop" ,gnome-desktop)
7886        ("gobject-introspection" ,gobject-introspection)
7887        ("gst-plugins-base" ,gst-plugins-base)
7888        ("gst-plugins-bad" ,gst-plugins-bad)
7889        ("gtk+" ,gtk+)
7890        ("libx11" ,libx11)
7891        ("libxtst" ,libxtst)))
7892     (home-page "https://wiki.gnome.org/Apps/Cheese")
7893     (synopsis "Webcam photo booth software for GNOME")
7894     (description
7895      "Cheese uses your webcam to take photos and videos.  Cheese can also
7896 apply fancy special effects and lets you share the fun with others.")
7897     (license license:gpl2+)))
7898
7899 (define-public sound-juicer
7900   (package
7901     (name "sound-juicer")
7902     (version "3.24.0")
7903     (source
7904      (origin
7905        (method url-fetch)
7906        (uri (string-append "mirror://gnome/sources/" name "/"
7907                            (version-major+minor version) "/"
7908                            name "-" version ".tar.xz"))
7909        (sha256
7910         (base32
7911          "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
7912     (build-system glib-or-gtk-build-system)
7913     (native-inputs
7914      `(("desktop-file-utils" ,desktop-file-utils)
7915        ("intltool" ,intltool)
7916        ("itstool" ,itstool)
7917        ("pkg-config" ,pkg-config)
7918        ("xmllint" ,libxml2)))
7919     (inputs
7920      `(("gtk+" ,gtk+)
7921        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7922        ("gstreamer" ,gstreamer)
7923        ("gst-plugins-base" ,gst-plugins-base)
7924        ("gst-plugins-good" ,gst-plugins-good)
7925        ("iso-codes" ,iso-codes)
7926        ("libbrasero-media3" ,brasero)
7927        ("libcanberra" ,libcanberra)
7928        ("libdiscid" ,libdiscid)
7929        ("libmusicbrainz" ,libmusicbrainz)
7930        ("neon" ,neon)))
7931     (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
7932     (synopsis "Audio music cd ripper")
7933     (description "Sound Juicer extracts audio from compact discs and convert it
7934 into audio files that a personal computer or digital audio player can play.
7935 It supports ripping to any audio codec supported by a GStreamer plugin, such as
7936 mp3, Ogg Vorbis and FLAC")
7937     (license license:gpl2+)))
7938
7939 (define-public soundconverter
7940   (package
7941     (name "soundconverter")
7942     (version "3.0.1")
7943     (source
7944      (origin
7945        (method url-fetch)
7946        (uri (string-append "https://launchpad.net/soundconverter/trunk/"
7947                            version "/+download/"
7948                            "soundconverter-" version ".tar.xz"))
7949
7950        (sha256
7951         (base32 "1d6x1yf8psqbd9zbybxivfqg55khcnngp2mn92l161dfdk9512c5"))
7952        (patches
7953         (search-patches
7954          "soundconverter-remove-gconf-dependency.patch"))))
7955     (build-system glib-or-gtk-build-system)
7956     (arguments
7957      `(#:imported-modules ((guix build python-build-system)
7958                            (guix build glib-or-gtk-build-system)
7959                            ,@%gnu-build-system-modules)
7960
7961        #:modules ((guix build glib-or-gtk-build-system)
7962                   (guix build utils)
7963                   ((guix build gnu-build-system) #:prefix gnu:)
7964                   ((guix build python-build-system) #:prefix python:))
7965
7966        #:phases
7967        (modify-phases %standard-phases
7968          (add-after 'install 'wrap-soundconverter-for-python
7969            (assoc-ref python:%standard-phases 'wrap))
7970          (add-after 'install 'wrap-soundconverter
7971            (lambda* (#:key inputs outputs #:allow-other-keys)
7972              (let ((out               (assoc-ref outputs "out"))
7973                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH"))
7974                    (gst-plugin-path   (getenv "GST_PLUGIN_SYSTEM_PATH")))
7975                (wrap-program (string-append out "/bin/soundconverter")
7976                  `("GI_TYPELIB_PATH"        ":" prefix (,gi-typelib-path))
7977                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
7978              #t)))))
7979     (native-inputs
7980      `(("intltool" ,intltool)
7981        ("pkg-config" ,pkg-config)
7982        ("glib:bin" ,glib "bin")))
7983     (inputs
7984      `(("gtk+" ,gtk+)
7985        ("python" ,python)
7986        ("python-pygobject" ,python-pygobject)
7987        ("gstreamer" ,gstreamer)
7988        ("gst-plugins-base" ,gst-plugins-base)))
7989     (home-page "http://soundconverter.org/")
7990     (synopsis "Convert between audio formats with a graphical interface")
7991     (description
7992      "SoundConverter supports converting between many audio formats including
7993 Opus, Ogg Vorbis, FLAC and more.  It supports parallel conversion, and
7994 configurable file renaming. ")
7995     (license license:gpl3)))
7996
7997 (define-public workrave
7998   (package
7999     (name "workrave")
8000     (version "1.10.34")
8001     (source
8002      (origin
8003        (method git-fetch)
8004        (uri (git-reference
8005              (url "https://github.com/rcaelers/workrave.git")
8006              (commit (string-append "v" (string-map
8007                                          (match-lambda (#\. #\_) (chr chr))
8008                                          version)))))
8009        (file-name (git-file-name name version))
8010        (sha256
8011         (base32 "0czwhr7nw523753ajcjjfwrf91mq8pmzr19gp0srqsvb1dsn1zcf"))))
8012     (build-system glib-or-gtk-build-system)
8013     (inputs `(("glib" ,glib)
8014               ("gtk+" ,gtk+)
8015               ("gdk-pixbuf" ,gdk-pixbuf)
8016               ("gtkmm" ,gtkmm)
8017               ("glibmm" ,glibmm)
8018               ("libx11" ,libx11)
8019               ("libxtst" ,libxtst)
8020               ("dconf" ,dconf)
8021               ("libice" ,libice)
8022               ("libsm" ,libsm)
8023               ("libxscrnsaver" ,libxscrnsaver)))
8024     (native-inputs `(("boost" ,boost)
8025                      ("pkg-config" ,pkg-config)
8026                      ("gettext" ,gnu-gettext)
8027                      ("autoconf" ,autoconf)
8028                      ("autoconf-archive" , autoconf-archive)
8029                      ("automake" ,automake)
8030                      ("libtool" ,libtool)
8031                      ("intltool" ,intltool)
8032                      ("gobject-introspection" ,gobject-introspection)
8033                      ("python3" ,python-3)
8034                      ("python-jinja2" ,python-jinja2)))
8035     (synopsis "Tool to help prevent repetitive strain injury (RSI)")
8036     (description
8037      "Workrave is a program that assists in the recovery and prevention of
8038 repetitive strain injury (@dfn{RSI}).  The program frequently alerts you to take
8039 micro-pauses and rest breaks, and restricts you to your daily limit.")
8040     (home-page "http://www.workrave.org")
8041     (license license:gpl3+)))
8042
8043 (define-public ghex
8044   (package
8045     (name "ghex")
8046     (version "3.18.3")
8047     (source (origin
8048               (method url-fetch)
8049               (uri (string-append "mirror://gnome/sources/ghex/"
8050                                   (version-major+minor version) "/"
8051                                   "ghex-" version ".tar.xz"))
8052               (sha256
8053                (base32
8054                 "1lq8920ad2chi9ibmyq0x9hg9yk63b0kdbzid03w42cwdzw50x66"))))
8055     (build-system glib-or-gtk-build-system)
8056     (native-inputs
8057      `(("pkg-config" ,pkg-config)
8058        ("gnome-common" ,gnome-common)
8059        ("which" ,which)
8060        ("intltool" ,intltool)
8061        ("yelp-tools" ,yelp-tools)
8062        ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
8063     (inputs
8064      `(("atk" ,atk)
8065        ("gtk" ,gtk+)))
8066     (synopsis "GNOME hexadecimal editor")
8067     (description "The GHex program can view and edit files in two ways:
8068 hexadecimal or ASCII.  It is useful for editing binary files in general.")
8069     (home-page "https://wiki.gnome.org/Apps/Ghex")
8070     (license license:gpl2)))
8071
8072 (define-public libdazzle
8073   (package
8074     (name "libdazzle")
8075     (version "3.33.90")
8076     (source (origin
8077               (method url-fetch)
8078               (uri (string-append "mirror://gnome/sources/libdazzle/"
8079                                   (version-major+minor version) "/"
8080                                   "libdazzle-" version ".tar.xz"))
8081               (sha256
8082                (base32
8083                 "189m7q88d1a7bq0yyal9f3yhm9kz46lb61379nn4wsnnhpa1d0qs"))))
8084     (build-system meson-build-system)
8085     (arguments
8086      `(#:phases
8087        (modify-phases %standard-phases
8088          (add-before 'check 'pre-check
8089            (lambda _
8090              ;; Tests require a running X server.
8091              (system "Xvfb :1 &")
8092              (setenv "DISPLAY" ":1")
8093              #t)))))
8094     (native-inputs
8095      `(("glib" ,glib "bin")             ; glib-compile-resources
8096        ("pkg-config" ,pkg-config)
8097        ;; For tests.
8098        ("xorg-server" ,xorg-server)))
8099     (inputs
8100      `(("glib" ,glib)
8101        ("gobject-introspection" ,gobject-introspection)
8102        ("gtk+" ,gtk+)
8103        ("vala" ,vala)))
8104     (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
8105     (synopsis "Companion library to GObject and Gtk+")
8106     (description "The libdazzle library is a companion library to GObject and
8107 Gtk+.  It provides various features that the authors wish were in the
8108 underlying library but cannot for various reasons.  In most cases, they are
8109 wildly out of scope for those libraries.  In other cases, they are not quite
8110 generic enough to work for everyone.")
8111     (license license:gpl3+)))
8112
8113 (define-public evolution
8114   (package
8115     (name "evolution")
8116     (version "3.30.5")
8117     (source (origin
8118               (method url-fetch)
8119               (uri (string-append "mirror://gnome/sources/evolution/"
8120                                   (version-major+minor version) "/"
8121                                   "evolution-" version ".tar.xz"))
8122               (sha256
8123                (base32
8124                 "1hhxj3rh921pp3l3c5k33bdypcas1p66krzs65k1qn82c5fpgl2h"))))
8125     (build-system cmake-build-system)
8126     (arguments
8127      `(#:imported-modules (,@%cmake-build-system-modules
8128                            (guix build glib-or-gtk-build-system))
8129        #:modules ((guix build cmake-build-system)
8130                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
8131                   (guix build utils))
8132        #:configure-flags
8133        (list "-DENABLE_PST_IMPORT=OFF"    ; libpst is not packaged
8134              "-DENABLE_LIBCRYPTUI=OFF")   ; libcryptui hasn't seen a release
8135                                           ; in four years and cannot be built.
8136        #:phases
8137        (modify-phases %standard-phases
8138          ;; The build system attempts to install user interface modules to the
8139          ;; output directory of the "evolution-data-server" package.  This
8140          ;; change redirects that change.
8141          (add-after 'unpack 'patch-ui-module-dir
8142            (lambda* (#:key outputs #:allow-other-keys)
8143              (substitute* "src/modules/alarm-notify/CMakeLists.txt"
8144                (("\\$\\{edsuimoduledir\\}")
8145                 (string-append (assoc-ref outputs "out")
8146                                "/lib/evolution-data-server/ui-modules")))
8147              #t))
8148          (add-after 'install 'glib-or-gtk-compile-schemas
8149            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
8150          (add-after 'install 'glib-or-gtk-wrap
8151            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
8152     (native-inputs
8153      `(("glib" ,glib "bin")             ; glib-mkenums
8154        ("pkg-config" ,pkg-config)
8155        ("intltool" ,intltool)
8156        ("itstool" ,itstool)))
8157     (inputs
8158      `(("enchant" ,enchant)
8159        ("evolution-data-server" ,evolution-data-server) ; must be the same version
8160        ("gcr" ,gcr)
8161        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8162        ("gnome-autoar" ,gnome-autoar)
8163        ("gnome-desktop" ,gnome-desktop)
8164        ("gtkspell3" ,gtkspell3)
8165        ("highlight" ,highlight)
8166        ("libcanberra" ,libcanberra)
8167        ("libedataserverui" ,evolution-data-server)
8168        ("libgweather" ,libgweather)
8169        ("libnotify" ,libnotify)
8170        ("libsoup" ,libsoup)
8171        ("nss" ,nss)
8172        ("openldap" ,openldap)
8173        ("webkitgtk" ,webkitgtk)
8174        ("ytnef" ,ytnef)))
8175     (home-page "https://gitlab.gnome.org/GNOME/evolution")
8176     (synopsis "Manage your email, contacts and schedule")
8177     (description "Evolution is a personal information management application
8178 that provides integrated mail, calendaring and address book
8179 functionality.")
8180     ;; See COPYING for details.
8181     (license (list license:lgpl2.1 license:lgpl3 ; either one of these
8182                    license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
8183                    license:lgpl2.1+))))  ; smime/lib/*
8184
8185 (define-public gthumb
8186   (package
8187     (name "gthumb")
8188     (version "3.8.0")
8189     (source (origin
8190               (method url-fetch)
8191               (uri (string-append "mirror://gnome/sources/gthumb/"
8192                                   (version-major+minor version) "/"
8193                                   "gthumb-" version ".tar.xz"))
8194               (sha256
8195                (base32
8196                 "1l2s1facq1r6yvqjqc34aqfzlvb3nhkhn79xisxbbdlgrrxdq52f"))))
8197     (build-system meson-build-system)
8198     (arguments
8199      `(#:glib-or-gtk? #t
8200        #:configure-flags
8201        ;; Ensure the RUNPATH contains all installed library locations.
8202        (list (string-append "-Dc_link_args=-Wl,-rpath="
8203                             (assoc-ref %outputs "out")
8204                             "/lib/gthumb/extensions")
8205              (string-append "-Dcpp_link_args=-Wl,-rpath="
8206                             (assoc-ref %outputs "out")
8207                             "/lib/gthumb/extensions"))))
8208     (native-inputs
8209      `(("pkg-config" ,pkg-config)
8210        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
8211        ("gtk+:bin" ,gtk+ "bin")                   ; for gtk-update-icon-cache
8212        ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8213        ("intltool" ,intltool)
8214        ("itstool" ,itstool)))
8215     (inputs
8216      `(("exiv2" ,exiv2)
8217        ("gtk" ,gtk+)
8218        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8219        ("gstreamer" ,gstreamer)
8220        ("clutter" ,clutter)
8221        ("clutter-gst" ,clutter-gst)
8222        ("clutter-gtk" ,clutter-gtk)
8223        ("libjpeg" ,libjpeg)
8224        ("libtiff" ,libtiff)
8225        ("libraw" ,libraw)))
8226     (home-page "https://wiki.gnome.org/Apps/Gthumb")
8227     (synopsis "GNOME image viewer and browser")
8228     (description "GThumb is an image viewer, browser, organizer, editor and
8229 advanced image management tool")
8230     (license license:gpl2+)))
8231
8232 (define-public terminator
8233   (package
8234     (name "terminator")
8235     (version "1.91")
8236     (source (origin
8237               (method url-fetch)
8238               (uri (string-append "https://launchpad.net/" name "/"
8239                                   "gtk3/" version "/" "+download/"
8240                                   name "-" version ".tar.gz"))
8241               (sha256
8242                (base32
8243                 "0sdyqwydmdnh7j6mn74vrywz35m416kqsbxbrqcnv5ak08y6xxwm"))))
8244     (build-system python-build-system)
8245     (native-inputs
8246      `(("intltool" ,intltool)
8247        ("glib:bin" ,glib "bin")                   ; for glib-compile-resources
8248        ("gettext" ,gettext-minimal)
8249        ("pkg-config" ,pkg-config)))
8250     (inputs
8251      `(("cairo" ,cairo)
8252        ("gobject-introspection" ,gobject-introspection)
8253        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8254        ("python2-pycairo" ,python2-pycairo)
8255        ("python2-pygobject" ,python2-pygobject)
8256        ("python2-psutil" ,python2-psutil)
8257        ("vte" ,vte)))
8258     (arguments
8259      `(#:python ,python-2                          ; Python 3 isn't supported
8260        #:imported-modules ((guix build glib-or-gtk-build-system)
8261                            ,@%python-build-system-modules)
8262        #:modules ((guix build python-build-system)
8263                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
8264                   (guix build utils))
8265        #:phases
8266        (modify-phases %standard-phases
8267          (add-after
8268           'install 'wrap-program
8269           (lambda* (#:key outputs #:allow-other-keys)
8270             (let ((prog (string-append (assoc-ref outputs "out")
8271                                        "/bin/terminator")))
8272               (wrap-program prog
8273                 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
8274                 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
8275               #t)))
8276          (add-after 'wrap-program 'glib-or-gtk-wrap
8277            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
8278     (home-page "https://gnometerminator.blogspot.com/")
8279     (synopsis "Store and run multiple GNOME terminals in one window")
8280     (description
8281      "Terminator allows you to run multiple GNOME terminals in a grid and
8282 +tabs, and it supports drag and drop re-ordering of terminals.")
8283     (license license:gpl2)))
8284
8285 (define-public libhandy
8286   (package
8287     (name "libhandy")
8288     (version "0.0.11")
8289     (source
8290      (origin
8291        (method git-fetch)
8292        (uri (git-reference
8293              (url "https://source.puri.sm/Librem5/libhandy")
8294              (commit (string-append "v" version))))
8295        (file-name (git-file-name name version))
8296        (sha256
8297         (base32 "0622zp5wrvn5bvgardijxd11y76g1i54fs32y03dw9nrar7i6vb0"))))
8298     (build-system meson-build-system)
8299     (arguments
8300      `(#:configure-flags
8301        '("-Dglade_catalog=disabled"
8302          "-Dgtk_doc=true")
8303        #:phases
8304        (modify-phases %standard-phases
8305          (add-before 'check 'pre-check
8306            (lambda _
8307              ;; Tests require a running X server.
8308              (system "Xvfb :1 &")
8309              (setenv "DISPLAY" ":1")
8310              #t)))))
8311     (inputs
8312      `(("gtk+" ,gtk+)))
8313     (native-inputs
8314      `(("glib:bin" ,glib "bin")
8315        ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
8316        ("vala" ,vala)
8317        ("gtk-doc" ,gtk-doc)
8318        ("pkg-config" ,pkg-config)
8319        ("gettext" ,gettext-minimal)
8320        ("xorg-server" ,xorg-server)
8321
8322        ;; Test suite dependencies.
8323        ("hicolor-icon-theme" ,hicolor-icon-theme)))
8324     (home-page "https://source.puri.sm/Librem5/libhandy")
8325     (synopsis "Library full of GTK+ widgets for mobile phones")
8326     (description "The aim of the handy library is to help with developing user
8327 intefaces for mobile devices using GTK+.")
8328     (license license:lgpl2.1+)))
8329
8330 (define-public libgit2-glib
8331   (package
8332     (name "libgit2-glib")
8333     (version "0.28.0.1")
8334     (source (origin
8335               (method url-fetch)
8336               (uri (string-append "mirror://gnome/sources/" name "/"
8337                                   (version-major+minor version) "/"
8338                                   name "-" version ".tar.xz"))
8339               (sha256
8340                (base32
8341                 "0a0g7aw66rfgnqr4z7fgbk5zzcjq66m4rp8v4val3a212941h0g7"))))
8342     (build-system meson-build-system)
8343     (native-inputs
8344      `(("glib:bin" ,glib "bin") ;; For glib-mkenums
8345        ("gobject-introspection" ,gobject-introspection)
8346        ("intltool" ,intltool)
8347        ("libssh2" ,libssh2)
8348        ("pkg-config" ,pkg-config)
8349        ("python-pygobject" ,python-pygobject)
8350        ("python-wrapper" ,python-wrapper)
8351        ("vala" ,vala)))
8352     (inputs
8353      `(("glib" ,glib)
8354        ("libgit2" ,libgit2)))
8355     (synopsis "GLib wrapper around the libgit2 Git access library")
8356     (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
8357 access library.  It only implements the core plumbing functions, not really the
8358 higher level porcelain stuff.")
8359     (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
8360     (license license:gpl2+)))