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