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