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