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