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