HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: eog: Ensure RUNPATH contains output library directory.
[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")
00815eea 2599 (version "2.64.2")
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
00815eea 2607 "1il6lyrmfi0hfh3ysw8w1qzc1rdz0igkb7dv6d8g5mmilnac3pbm"))))
6e1bb642
SB		 2608 (build-system gnu-build-system)
2609 (outputs '("out" "doc"))
2610 (arguments
2deb146f
LC		 2611 `(#:modules ((guix build utils)
2612 (guix build gnu-build-system)
2613 (ice-9 popen))
2614
2615 #:configure-flags
6e1bb642
SB		 2616 (list (string-append "--with-html-dir="
2617 (assoc-ref %outputs "doc")
ffaf5cbd
MB		 2618 "/share/gtk-doc/html")
2619 (string-append "--with-apache-module-dir="
2620 (assoc-ref %build-inputs "httpd")
2621 "/modules"))
6e1bb642
SB		 2622 #:phases
2623 (modify-phases %standard-phases
3a4de6b2 2624 (add-before 'configure 'disable-unconnected-socket-test
26c228f9
LC		 2625 ;; This test fails due to missing /etc/nsswitch.conf
2626 ;; in the build environment.
2627 (lambda _
2628 (substitute* "tests/socket-test.c"
2629 ((".*/sockets/unconnected.*") ""))
2630 #t))
907f939b 2631 (add-before 'check 'pre-check
26c228f9
LC		 2632 (lambda _
2633 ;; The 'check-local' target runs 'env LANG=C sort -u',
2634 ;; unset 'LC_ALL' to make 'LANG' working.
2635 (unsetenv "LC_ALL")
26c228f9
LC		 2636 ;; HTTPD in Guix uses mod_event and does not build prefork.
2637 (substitute* "tests/httpd.conf"
2638 (("^LoadModule mpm_prefork_module.*$") "\n"))
2deb146f
LC		 2639
2640 ;; Generate a self-signed certificate that has "localhost" as its
2641 ;; 'dnsName'. Failing to do that, and starting with GnuTLS
2642 ;; 3.5.12, tests such as "ssl-tests" fail:
2643 ;;
2644 ;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
2645 ;;
2646 ;; 'certtool' is interactive so we have to pipe it the answers.
2647 ;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
2648 (let ((pipe (open-output-pipe "certtool --generate-self-signed \
2649 --load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
2650 (for-each (lambda (line)
2651 (display line pipe)
2652 (newline pipe))
2653 '("" ;Common name
2654 "" ;UID
2655 "Guix" ;Organizational unit name
2656 "GNU" ;Organization name
2657 "" ;Locality name
2658 "" ;State or province
2659 "" ;Country
2660 "" ;subject's domain component (DC)
2661 "" ;E-mail
2662 "" ;serial number
2663 "-1" ;expiration time
2664 "N" ;belong to authority?
2665 "N" ;web client certificate?
2666 "N" ;IPsec IKE?
2667 "Y" ;web server certificate?
2668 "localhost" ;dnsName of subject
2669 "" ;dnsName of subject (end)
2670 "" ;URI of subject
2671 "127.0.0.1" ;IP address of subject
2672 "" ;signing?
06f5bc4e
MB		 2673 "" ;encryption (RSA)?
2674 "" ;data encryption?
2deb146f
LC		 2675 "" ;sign OCSP requests?
2676 "" ;sign code?
2677 "" ;time stamping?
2678 "" ;email protection?
2679 "" ;URI of the CRL distribution point
2680 "y" ;above info OK?
2681 ))
2682 (close-pipe pipe))
26c228f9 2683 #t))
fd730590 2684 (replace 'install
26c228f9 2685 (lambda _
4bd9f465
MW		 2686 (invoke "make"
2687 ;; Install vala bindings into $out.
2688 (string-append "vapidir=" %output
2689 "/share/vala/vapi")
2690 "install"))))))
6e1bb642 2691 (native-inputs
26c228f9 2692 `(("glib:bin" ,glib "bin") ; for glib-mkenums
6e1bb642
SB		 2693 ("gobject-introspection" ,gobject-introspection)
2694 ("intltool" ,intltool)
2695 ("pkg-config" ,pkg-config)
2696 ("python" ,python-wrapper)
fd730590 2697 ("vala" ,vala)
6e1bb642
SB		 2698 ;; These are needed for the tests.
2699 ;; FIXME: Add PHP once available.
2700 ("curl" ,curl)
2deb146f 2701 ("gnutls" ,gnutls) ;for 'certtool'
6e1bb642
SB		 2702 ("httpd" ,httpd)))
2703 (propagated-inputs
2704 ;; libsoup-2.4.pc refers to all these.
2705 `(("glib" ,glib)
2706 ("libxml2" ,libxml2)))
2707 (inputs
2708 `(("glib-networking" ,glib-networking)
249846bf 2709 ("libpsl" ,libpsl)
6e1bb642
SB		 2710 ("sqlite" ,sqlite)))
2711 (home-page "https://live.gnome.org/LibSoup/")
2712 (synopsis "GLib-based HTTP Library")
2713 (description
2714 "LibSoup is an HTTP client/server library for GNOME. It uses GObjects
2715and the GLib main loop, to integrate well with GNOME applications.")
2716 (license license:lgpl2.0+)))
2717
bba229a3
SB		 2718(define-public libsecret
2719 (package
2720 (name "libsecret")
b0251c71 2721 (version "0.18.8")
bba229a3
SB		 2722 (source (origin
2723 (method url-fetch)
2724 (uri (string-append
896dcbc7
EF		 2725 "mirror://gnome/sources/libsecret/"
2726 (version-major+minor version) "/"
bba229a3
SB		 2727 name "-" version ".tar.xz"))
2728 (sha256
2729 (base32
b0251c71 2730 "058x64689k55wxfkdp4svhnwvv8jmqm7z5mrynybl38f4sfqiyiv"))))
bba229a3
SB		 2731 (build-system gnu-build-system)
2732 (outputs '("out" "doc"))
2733 (arguments
2734 `(#:tests? #f ; FIXME: Testing hangs.
bba229a3
SB		 2735 #:configure-flags
2736 (list (string-append "--with-html-dir="
2737 (assoc-ref %outputs "doc")
2738 "/share/gtk-doc/html"))))
2739 (native-inputs
c06ef010
MB		 2740 `(("gettext" ,gettext-minimal)
2741 ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
bba229a3 2742 ("gobject-introspection" ,gobject-introspection)
bba229a3
SB		 2743 ("pkg-config" ,pkg-config)
2744 ("vala" ,vala)
2745 ("xsltproc" ,libxslt)))
2746 ;; These are needed for the tests.
2747 ;; FIXME: Add gjs once available.
2748 ;("dbus" ,dbus)
2749 ;("python2" ,python-2)
2750 ;("python2-dbus" ,python2-dbus)
2751 ;("python2-pygobject" ,python2-pygobject)
2752 ;("python2-pygobject-2" ,python2-pygobject-2)))
2753 (propagated-inputs
2754 `(("glib" ,glib))) ; required by libsecret-1.pc
2755 (inputs
2756 `(("docbook-xsl" ,docbook-xsl)
2757 ("libgcrypt" ,libgcrypt)
2758 ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
2759 (home-page "https://wiki.gnome.org/Projects/Libsecret/")
2760 (synopsis "GObject bindings for \"Secret Service\" API")
2761 (description
2762 "Libsecret is a GObject based library for storing and retrieving passwords
2763and other secrets. It communicates with the \"Secret Service\" using DBus.")
2764 (license license:lgpl2.1+)))
2765
b6821ee0 2766(define-public five-or-more
2767 (package
2768 (name "five-or-more")
83232ba2 2769 (version "3.28.0")
b6821ee0 2770 (source
2771 (origin
2772 (method url-fetch)
2773 (uri (string-append "mirror://gnome/sources/" name "/"
2774 (version-major+minor version) "/"
2775 name "-" version ".tar.xz"))
2776 (sha256
2777 (base32
83232ba2 2778 "1fy4a7qdjqvabm0cl45d6xlx6hy4paxvm0b2paifff73bl250d5c"))))
b6821ee0 2779 (build-system glib-or-gtk-build-system)
2780 (native-inputs
2781 `(("pkg-config" ,pkg-config)
2782 ("desktop-file-utils" ,desktop-file-utils)
2783 ("intltool" ,intltool)
2784 ("itstool" ,itstool)
2785 ("xmllint" ,libxml2)))
2786 (inputs
2787 `(("gtk+" ,gtk+)
2788 ("librsvg" ,librsvg)))
2789 (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
2790 (synopsis "Logic puzzle game")
2791 (description "Five or More is a game where you try to align
2792 five or more objects of the same color and shape causing them to disappear.
2793 On every turn more objects will appear, until the board is full.
2794 Try to last as long as possible.")
2795 (license license:gpl2+)))
2796
a31a6d22
SB		 2797(define-public gnome-mines
2798 (package
2799 (name "gnome-mines")
8c0fab36 2800 (version "3.28.0")
a31a6d22
SB		 2801 (source
2802 (origin
2803 (method url-fetch)
2804 (uri (string-append "mirror://gnome/sources/" name "/"
2805 (version-major+minor version) "/"
2806 name "-" version ".tar.xz"))
2807 (sha256
2808 (base32
8c0fab36
RW		 2809 "16w55hqaxipcv870n9gpn6qiywbqbyg7bjshaa02r75ias8dfxvf"))))
2810 (build-system meson-build-system)
a31a6d22 2811 (arguments
8c0fab36 2812 `(#:phases
a31a6d22 2813 (modify-phases %standard-phases
8c0fab36 2814 (delete 'bootstrap))))
a31a6d22 2815 (native-inputs
8c0fab36
RW		 2816 `(("glib:bin" ,glib "bin") ; for glib-compile-resources
2817 ("pkg-config" ,pkg-config)
a31a6d22
SB		 2818 ("desktop-file-utils" ,desktop-file-utils)
2819 ("intltool" ,intltool)
bcb354ad 2820 ("itstool" ,itstool)
8c0fab36
RW		 2821 ("vala" ,vala)
2822 ("yelp" ,yelp)
2823 ("appstream-glib" ,appstream-glib)))
a31a6d22
SB		 2824 (inputs
2825 `(("gtk+" ,gtk+)
73992962 2826 ("libgnome-games-support" ,libgnome-games-support)
a31a6d22
SB		 2827 ("librsvg" ,librsvg)))
2828 (home-page "https://wiki.gnome.org/Apps/Mines")
2829 (synopsis "Minesweeper game")
2830 (description
2831 "Mines (previously gnomine) is a puzzle game where you locate mines
2832floating in an ocean using only your brain and a little bit of luck.")
2833 (license license:gpl2+)))
88f70665 2834
dfc407f3
KY		 2835(define-public gnome-sudoku
2836 (package
2837 (name "gnome-sudoku")
7d20d983 2838 (version "3.28.0")
dfc407f3
KY		 2839 (source
2840 (origin
2841 (method url-fetch)
2842 (uri (string-append "mirror://gnome/sources/" name "/"
2843 (version-major+minor version) "/"
2844 name "-" version ".tar.xz"))
2845 (sha256
2846 (base32
7d20d983 2847 "07b4lzniaf3gjsss6zl1lslv18smwc4nrijykvn2z90f423q2xav"))))
dfc407f3
KY		 2848 (build-system glib-or-gtk-build-system)
2849 (native-inputs
2850 `(("pkg-config" ,pkg-config)
2851 ("desktop-file-utils" ,desktop-file-utils)
2852 ("intltool" ,intltool)
2853 ("itstool" ,itstool)
2854 ("xmllint" ,libxml2)))
2855 (inputs
2856 `(("gtk+" ,gtk+)
2857 ("json-glib" ,json-glib)
2858 ("libgee" ,libgee)
2859 ("librsvg" ,librsvg)
2860 ("qqwing" ,qqwing)))
2861 (home-page "https://wiki.gnome.org/Apps/Sudoku")
2862 (synopsis "Japanese logic game")
2863 (description
2864 "Sudoku is a Japanese logic game that exploded in popularity in 2005.
2865GNOME Sudoku is meant to have an interface as simple and unobstrusive as
2866possible while still providing features that make playing difficult Sudoku
2867more fun.")
2868 (license license:gpl2+)))
2869
88f70665
AW		 2870(define-public gnome-terminal
2871 (package
2872 (name "gnome-terminal")
9cf329ae 2873 (version "3.28.2")
88f70665
AW		 2874 (source
2875 (origin
2876 (method url-fetch)
2877 (uri (string-append "mirror://gnome/sources/" name "/"
2878 (version-major+minor version) "/"
2879 name "-" version ".tar.xz"))
2880 (sha256
2881 (base32
9cf329ae 2882 "0ybjansg6lr279191w8z8r45gy4rxwzw1ajm98cgkv0fk2jdr0x2"))))
88f70665
AW		 2883 (build-system glib-or-gtk-build-system)
2884 (arguments
2885 '(#:configure-flags
2886 (list "--disable-migration" "--disable-search-provider"
2887 "--without-nautilus-extension")
2888 #:phases
2889 (modify-phases %standard-phases
3a4de6b2 2890 (add-before 'configure 'patch-/bin/true
88f70665
AW		 2891 (lambda _
2892 (substitute* "configure"
2893 (("/bin/true") (which "true"))))))))
2894 (native-inputs
2895 `(("pkg-config" ,pkg-config)
2896 ("desktop-file-utils" ,desktop-file-utils)
2897 ("intltool" ,intltool)
bcb354ad
SB		 2898 ("itstool" ,itstool)
2899 ("xmllint" ,libxml2)))
68702167
MW		 2900 (propagated-inputs
2901 `(("dconf" ,dconf)))
88f70665
AW		 2902 (inputs
2903 `(("gtk+" ,gtk+)
2904 ("vte" ,vte)
2905 ("gnutls" ,gnutls)
88f70665
AW		 2906 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2907 ("util-linux" ,util-linux)
2908 ("vala" ,vala)))
2909 (home-page "https://wiki.gnome.org/Apps/Terminal")
2910 (synopsis "Terminal emulator")
2911 (description
2912 "GNOME Terminal is a terminal emulator application for accessing a
2913UNIX shell environment which can be used to run programs available on
2914your system.
2915
2916It supports several profiles, multiple tabs and implements several
2917keyboard shortcuts.")
2918 (license license:gpl3+)))
75016d07
AW		 2919
2920(define-public colord
2921 (package
2922 (name "colord")
2923 (version "1.1.8")
2924 (source
2925 (origin
2926 (method url-fetch)
5cc3096c 2927 (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
75016d07
AW		 2928 name "-" version ".tar.xz"))
2929 (sha256
2930 (base32
2931 "01w97rgzk4qi6fp03scq5jyw0ayx11b479p7dkm2r77k84b9agph"))))
2932 (build-system glib-or-gtk-build-system)
2933 (arguments
2934 '(;; The tests want to run valgrind. Punt for now.
2935 #:tests? #f
2936 #:configure-flags (list "--localstatedir=/var"
2937 ;; GUSB not packaged yet.
2938 "--disable-gusb"
2939 ;; No dep on systemd.
2940 "--disable-systemd-login"
2941 ;; Wants to install to global completion dir;
2942 ;; punt.
2943 "--disable-bash-completion"
2944 ;; colord-gtk not packaged yet.
2945 "--disable-session-example"
2946 "--with-daemon-user=colord"
2947 "--enable-sane"
2948 (string-append "--with-udevrulesdir="
2949 (assoc-ref %outputs "out")
2950 "/lib/udev/rules.d"))
2951 #:phases
2952 (modify-phases %standard-phases
3a4de6b2 2953 (add-before 'configure 'patch-/bin/true
75016d07
AW		 2954 (lambda _
2955 (substitute* "configure"
2956 (("/bin/true") (which "true")))
2957 (substitute* "src/Makefile.in"
2958 (("if test -w \\$\\(DESTDIR\\)\\$\\(prefix\\)/;")
b19d6805 2959 "if test -w $(DESTDIR)$(localstatedir);")))))))
75016d07
AW		 2960 (native-inputs
2961 `(("pkg-config" ,pkg-config)
2962 ("gobject-introspection" ,gobject-introspection)
2963 ("libtool" ,libtool)
2964 ("intltool" ,intltool)))
65cb2d61
SB		 2965 (propagated-inputs
2966 ;; colord.pc refers to all these.
2967 `(("glib" ,glib)
2968 ("udev" ,eudev)
2969 ("lcms" ,lcms)))
75016d07 2970 (inputs
65cb2d61 2971 `(("dbus-glib" ,dbus-glib)
80c7dd1a 2972 ("libgudev" ,libgudev)
75016d07 2973 ("libusb" ,libusb)
75016d07
AW		 2974 ("sqlite" ,sqlite)
2975 ("polkit" ,polkit)
4c928743 2976 ("sane-backends" ,sane-backends)))
57e7d748 2977 (home-page "https://www.freedesktop.org/software/colord/")
75016d07
AW		 2978 (synopsis "Color management service")
2979 (description "Colord is a system service that makes it easy to manage,
2980install and generate color profiles to accurately color manage input and
2981output devices.")
2982 (license license:gpl2+)))
7b2abd00
AW		 2983
2984(define-public geoclue
2985 (package
2986 (name "geoclue")
b433c7b3 2987 (version "2.4.8")
7b2abd00
AW		 2988 (source
2989 (origin
2990 (method url-fetch)
5cc3096c 2991 (uri (string-append "https://www.freedesktop.org/software/" name
7b2abd00
AW		 2992 "/releases/" (version-major+minor version) "/"
2993 name "-" version ".tar.xz"))
2994 (sha256
2995 (base32
b433c7b3 2996 "08yg1r7m0n9hwyvcy769qkmkf8lslqwv69cjfffwnc3zm5km25qj"))
fc1adab1 2997 (patches (search-patches "geoclue-config.patch"))))
7b2abd00
AW		 2998 (build-system glib-or-gtk-build-system)
2999 (arguments
3000 '(;; The tests want to run the system bus.
3001 #:tests? #f
3002 #:configure-flags (list ;; Disable bits requiring ModemManager.
3003 "--disable-3g-source"
3004 "--disable-cdma-source"
3005 "--disable-modem-gps-source"
3006 "--with-dbus-service-user=geoclue")
3007 #:phases
3008 (modify-phases %standard-phases
3a4de6b2 3009 (add-before 'configure 'patch-/bin/true
7b2abd00
AW		 3010 (lambda _
3011 (substitute* "configure"
e3eb53e7
MW		 3012 (("/bin/true") (which "true")))
3013 #t)))))
7b2abd00
AW		 3014 (native-inputs
3015 `(("pkg-config" ,pkg-config)
758798a9 3016 ("gobject-introspection" ,gobject-introspection)
7b2abd00
AW		 3017 ("intltool" ,intltool)))
3018 (inputs
54e911bc
SB		 3019 `(("avahi" ,avahi)
3020 ("glib" ,glib)
7b2abd00
AW		 3021 ("json-glib" ,json-glib)
3022 ("libsoup" ,libsoup)))
99adfd7d 3023 (home-page "https://www.freedesktop.org/wiki/Software/GeoClue/")
7b2abd00
AW		 3024 (synopsis "Geolocation service")
3025 (description "Geoclue is a D-Bus service that provides location
3026information. The primary goal of the Geoclue project is to make creating
3027location-aware applications as simple as possible, while the secondary goal is
3028to ensure that no application can access location information without explicit
e881752c 3029permission from user.")
7b2abd00 3030 (license license:gpl2+)))
2bfe7437
AW		 3031
3032(define-public geocode-glib
3033 (package
3034 (name "geocode-glib")
a7dd0c02 3035 (version "3.26.0")
2bfe7437
AW		 3036 (source (origin
3037 (method url-fetch)
3038 (uri (string-append "mirror://gnome/sources/geocode-glib/"
3039 (version-major+minor version) "/"
3040 name "-" version ".tar.xz"))
3041 (sha256
3042 (base32
a7dd0c02
RW		 3043 "1vmydxs5xizcmaxpkfrq75xpj6pqrpdjizxyb30m00h54yqqch7a"))))
3044 (build-system meson-build-system)
2bfe7437 3045 (arguments
a7dd0c02
RW		 3046 `(#:phases
3047 (modify-phases %standard-phases
3048 ;; The tests require a bunch of locales.
3049 (add-before 'check 'set-locales
3050 (lambda* (#:key inputs #:allow-other-keys)
3051 (setenv "GUIX_LOCPATH"
3052 (string-append (assoc-ref inputs "glibc-locales")
3053 "/lib/locale"))
3054 #t)))))
2bfe7437
AW		 3055 (native-inputs
3056 `(("glib:bin" ,glib "bin") ; for glib-mkenums
a7dd0c02
RW		 3057 ("glibc-locales" ,glibc-locales) ; for tests
3058 ("gettext" ,gettext-minimal)
2bfe7437 3059 ("gobject-introspection" ,gobject-introspection)
a7dd0c02 3060 ("gtk-doc" ,gtk-doc)
2bfe7437
AW		 3061 ("pkg-config" ,pkg-config)
3062 ("json-glib" ,json-glib)))
3063 (propagated-inputs
3064 ;; geocode-glib-1.0.pc refers to GIO.
3065 `(("glib" ,glib)))
3066 (inputs
3067 `(("libsoup" ,libsoup)))
3068 (home-page "https://github.com/GNOME/geocode-glib/")
3069 (synopsis "Geocoding and reverse-geocoding library")
3070 (description
3071 "geocode-glib is a convenience library for geocoding (finding longitude,
3072and latitude from an address) and reverse geocoding (finding an address from
3073coordinates) using the Nominatim service. geocode-glib caches requests for
3074faster results and to avoid unnecessary server load.")
3075 (license license:lgpl2.0+)))
a1d5bb0e
AW		 3076
3077(define-public upower
3078 (package
3079 (name "upower")
9ec54965 3080 (version "0.99.8")
a1d5bb0e
AW		 3081 (source (origin
3082 (method url-fetch)
9ec54965
MB		 3083 (uri (string-append "https://gitlab.freedesktop.org/upower/upower/"
3084 "uploads/9125ab7ee96fdc4ecc68cfefb50c1cab/"
3085 "upower-" version ".tar.xz"))
a1d5bb0e
AW		 3086 (sha256
3087 (base32
9ec54965 3088 "00lzr0vyxz5lvmgya48gdb2cdgmfdim4b34jlfdyqakk1i9sl8xv"))
fc1adab1 3089 (patches (search-patches "upower-builddir.patch"))))
a1d5bb0e
AW		 3090 (build-system glib-or-gtk-build-system)
3091 (arguments
3092 '( ;; The tests want to contact the system bus, which can't be done in the
3093 ;; build environment. The integration test can run, but the last of
3094 ;; the up-self-tests doesn't. Disable tests for now.
3095 #:tests? #f
3096 #:configure-flags (list "--localstatedir=/var"
3097 (string-append "--with-udevrulesdir="
3098 (assoc-ref %outputs "out")
9ec54965 3099 "/lib/udev/rules.d"))))
a1d5bb0e 3100 (native-inputs
ebeabe2d
SB		 3101 `(("gobject-introspection" ,gobject-introspection)
3102 ("pkg-config" ,pkg-config)
a1d5bb0e 3103 ("intltool" ,intltool)
55409295
LC		 3104 ("python" ,python)
3105
3106 ;; For man pages.
3107 ("libxslt" ,libxslt) ;for 'xsltproc'
3108 ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
3109 ("docbook-xsl" ,docbook-xsl)))
a1d5bb0e 3110 (inputs
ea226291
SB		 3111 `(("dbus-glib" ,dbus-glib)
3112 ("libgudev" ,libgudev)
a1d5bb0e 3113 ("libusb" ,libusb)))
d7a503fc
MB		 3114 (propagated-inputs
3115 ;; In Requires of upower-glib.pc.
3116 `(("glib" ,glib)))
57e7d748 3117 (home-page "https://upower.freedesktop.org/")
a1d5bb0e
AW		 3118 (synopsis "System daemon for managing power devices")
3119 (description
3120 "UPower is an abstraction for enumerating power devices,
3121listening to device events and querying history and statistics. Any
3122application or service on the system can access the org.freedesktop.UPower
3123service via the system message bus.")
3124 (license license:gpl2+)))
6a180f6f
AW		 3125
3126(define-public libgweather
3127 (package
3128 (name "libgweather")
cf6cbc34 3129 (version "3.28.2")
6a180f6f
AW		 3130 (source (origin
3131 (method url-fetch)
3132 (uri (string-append "mirror://gnome/sources/" name "/"
3133 (version-major+minor version) "/"
3134 name "-" version ".tar.xz"))
3135 (sha256
3136 (base32
cf6cbc34
RW		 3137 "0xfy5ghwvnz2g9074dy6512m4z2pv66pmja14vhi9imgacbfh708"))))
3138 (build-system meson-build-system)
6a180f6f 3139 (arguments
cf6cbc34
RW		 3140 `(#:tests? #f ; one of two tests requires network access
3141 #:configure-flags
3142 `(,(string-append "-Dzoneinfo_dir="
b6072e6b 3143 (assoc-ref %build-inputs "tzdata")
cf6cbc34 3144 "/share/zoneinfo"))))
6a180f6f
AW		 3145 (native-inputs
3146 `(("glib:bin" ,glib "bin") ; for glib-mkenums
b6072e6b 3147 ("gobject-introspection" ,gobject-introspection)
6a180f6f 3148 ("pkg-config" ,pkg-config)
1d3fcf94 3149 ("vala" ,vala)
6a180f6f
AW		 3150 ("intltool" ,intltool)))
3151 (propagated-inputs
3152 ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
3153 ;; libsoup.
3154 `(("gtk+" ,gtk+)
3155 ("gdk-pixbuf" ,gdk-pixbuf)
3156 ("libxml2" ,libxml2)
cf6cbc34 3157 ("libsoup" ,libsoup)
6a180f6f 3158 ("geocode-glib" ,geocode-glib)))
cf6cbc34
RW		 3159 (inputs
3160 `(("tzdata" ,tzdata)))
6a180f6f
AW		 3161 (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
3162 (synopsis "Location, time zone, and weather library for GNOME")
3163 (description
3164 "libgweather is a library to access weather information from online
3165services for numerous locations.")
3166 (license license:gpl2+)))
23a22af6
AW		 3167
3168(define-public gnome-settings-daemon
3169 (package
3170 (name "gnome-settings-daemon")
e644f9fa 3171 (version "3.28.1")
23a22af6
AW		 3172 (source
3173 (origin
3174 (method url-fetch)
3175 (uri (string-append "mirror://gnome/sources/" name "/"
3176 (version-major+minor version) "/"
3177 name "-" version ".tar.xz"))
3178 (sha256
3179 (base32
e644f9fa
RW		 3180 "0z9dip9p0iav646cmxisii5sbkdr9hmaklc5fzvschpbjkhphksr"))))
3181 (build-system meson-build-system)
23a22af6 3182 (arguments
e644f9fa
RW		 3183 `(#:glib-or-gtk? #t
3184 #:configure-flags
3185 (list (string-append "-Dudev_dir="
3186 (assoc-ref %outputs "out")
3187 "/lib/udev/rules.d/"))
3188 ;; Color management test can't reach the colord system service.
23a22af6
AW		 3189 #:tests? #f))
3190 (native-inputs
e644f9fa
RW		 3191 `(("glib:bin" ,glib "bin") ; for glib-mkenums
3192 ("pkg-config" ,pkg-config)
23a22af6
AW		 3193 ("intltool" ,intltool)
3194 ("xsltproc" ,libxslt)
3195 ("libxml2" ,libxml2) ;for XML_CATALOG_FILES
3196 ("docbook-xml" ,docbook-xml-4.2)
3197 ("docbook-xsl" ,docbook-xsl)))
3198 (inputs
e644f9fa
RW		 3199 `(("alsa-lib" ,alsa-lib)
3200 ("colord" ,colord)
ea226291 3201 ("libgudev" ,libgudev)
23a22af6
AW		 3202 ("upower" ,upower)
3203 ("polkit" ,polkit)
3204 ("pulseaudio" ,pulseaudio)
3205 ("libcanberra" ,libcanberra)
3206 ("libx11" ,libx11)
3207 ("libxtst" ,libxtst)
3208 ("lcms" ,lcms)
3209 ("libnotify" ,libnotify)
3210 ("geoclue" ,geoclue)
3211 ("geocode-glib" ,geocode-glib)
3212 ("libgweather" ,libgweather)
3213 ("gnome-desktop" ,gnome-desktop)
3214 ("nss" ,nss)
3215 ("cups" ,cups)
ec2b1921
AW		 3216 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3217 ("libwacom" ,libwacom)
3218 ("librsvg" ,librsvg)
eee7878f 3219 ("xf86-input-wacom" ,xf86-input-wacom)
e644f9fa 3220 ("wayland" ,wayland)
eee7878f 3221 ("network-manager" ,network-manager)))
f032d0be 3222 (home-page "https://www.gnome.org")
23a22af6
AW		 3223 (synopsis "GNOME settings daemon")
3224 (description
3225 "This package contains the daemon responsible for setting the various
3226parameters of a GNOME session and the applications that run under it. It
3227handles settings such keyboard layout, shortcuts, and accessibility, clipboard
3228settings, themes, mouse settings, and startup of other daemons.")
3229 (license license:gpl2+)))
1e7464a9
DH		 3230
3231(define-public totem-pl-parser
3232 (package
3233 (name "totem-pl-parser")
1e9b19dd 3234 (version "3.26.1")
1e7464a9
DH		 3235 (source (origin
3236 (method url-fetch)
e980cbe9
MW		 3237 (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
3238 (version-major+minor version) "/"
1e7464a9
DH		 3239 "totem-pl-parser-" version ".tar.xz"))
3240 (sha256
3241 (base32
1e9b19dd
RW		 3242 "0k5pnka907invgds48d73c1xx1a366v5dcld3gr2l1dgmjwc9qka"))))
3243 (build-system meson-build-system)
1e7464a9
DH		 3244 (arguments
3245 ;; FIXME: Tests require gvfs.
3246 `(#:tests? #f))
3247 (native-inputs
3248 `(("intltool" ,intltool)
3249 ("glib" ,glib "bin")
4d6d8281 3250 ("gobject-introspection" ,gobject-introspection)
1e7464a9 3251 ("pkg-config" ,pkg-config)))
22a6ad6a 3252 (propagated-inputs
1e7464a9
DH		 3253 `(("glib" ,glib)
3254 ("gmime" ,gmime)
1e9b19dd
RW		 3255 ("libarchive" ,libarchive)
3256 ("libgcrypt" ,libgcrypt)
22a6ad6a
MW		 3257 ("libxml2" ,libxml2)))
3258 (inputs
1e9b19dd 3259 `(("nettle" ,nettle)
22a6ad6a 3260 ("libsoup" ,libsoup)))
1e7464a9
DH		 3261 (home-page "https://projects.gnome.org/totem")
3262 (synopsis "Library to parse and save media playlists for GNOME")
3263 (description "Totem-pl-parser is a GObjects-based library to parse and save
3264playlists in a variety of formats.")
3265 (license license:lgpl2.0+)))
3266
6b888eff
SB		 3267(define-public aisleriot
3268 (package
3269 (name "aisleriot")
491883a6 3270 (version "3.22.5")
6b888eff
SB		 3271 (source (origin
3272 (method url-fetch)
3273 (uri (string-append "mirror://gnome/sources/" name "/"
3274 (version-major+minor version) "/"
3275 name "-" version ".tar.xz"))
3276 (sha256
3277 (base32
491883a6 3278 "0rl39psr5xi584310pyrgw36ini4wn7yr2m1q5118w3a3v1dkhzh"))))
6b888eff
SB		 3279 (build-system glib-or-gtk-build-system)
3280 (arguments
3281 '(#:configure-flags
3282 '("--with-platform=gtk-only"
3283 "--with-card-theme-formats=svg")))
3284 (native-inputs
3285 `(("desktop-file-utils" ,desktop-file-utils)
3286 ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
3287 ("intltool" ,intltool)
3288 ("itstool" ,itstool)
3289 ("pkg-config" ,pkg-config)
3290 ("xmllint" ,libxml2)))
3291 (inputs
3292 `(("gtk+" ,gtk+)
226e57d6 3293 ("guile" ,guile-2.2)
6b888eff
SB		 3294 ("libcanberra" ,libcanberra)
3295 ("librsvg" ,librsvg)))
3296 (home-page "https://wiki.gnome.org/Apps/Aisleriot")
3297 (synopsis "Solitaire card games")
3298 (description
3299 "Aisleriot (also known as Solitaire or sol) is a collection of card games
3300which are easy to play with the aid of a mouse.")
3301 (license license:gpl3+)))
4a79e256
SB		 3302
3303(define-public devhelp
3304 (package
3305 (name "devhelp")
5dd12afc 3306 (version "3.28.1")
4a79e256
SB		 3307 (source (origin
3308 (method url-fetch)
3309 (uri (string-append "mirror://gnome/sources/" name "/"
3310 (version-major+minor version) "/"
3311 name "-" version ".tar.xz"))
3312 (sha256
3313 (base32
5dd12afc 3314 "08a8xizjqz68k30zd37r7g516azhan9bbrjsvv10hjd5dg3f476s"))))
4a79e256
SB		 3315 (build-system glib-or-gtk-build-system)
3316 (native-inputs
3317 `(("intltool" ,intltool)
5dd12afc 3318 ("itstool" ,itstool)
4a79e256
SB		 3319 ("pkg-config" ,pkg-config)))
3320 (inputs
3321 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3322 ("webkitgtk" ,webkitgtk)))
3323 (home-page "https://wiki.gnome.org/Apps/Devhelp")
3324 (synopsis "API documentation browser for GNOME")
3325 (description
3326 "Devhelp is an API documentation browser for GTK+ and GNOME. It works
3327natively with GTK-Doc (the API reference system developed for GTK+ and used
3328throughout GNOME for API documentation).")
3329 (license license:gpl2+)))
ba421ab7
MW		 3330
3331(define-public cogl
3332 (package
3333 (name "cogl")
6a55accc 3334 (version "1.22.2")
ba421ab7
MW		 3335 (source
3336 (origin
3337 (method url-fetch)
3338 (uri (string-append "mirror://gnome/sources/" name "/"
3339 (version-major+minor version) "/"
3340 name "-" version ".tar.xz"))
3341 (sha256
3342 (base32
6a55accc 3343 "03f0ha3qk7ca0nnkkcr1garrm1n1vvfqhkz9lwjm592fnv6ii9rr"))))
a88d5a0c
MW		 3344 ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
3345 ;; cogl, corresponding changes may be appropriate in mutter as well.
ba421ab7
MW		 3346 (build-system gnu-build-system)
3347 (native-inputs
3348 `(("glib:bin" ,glib "bin") ; for glib-mkenums
3349 ("gobject-introspection" ,gobject-introspection)
3350 ;;("xorg-server" ,xorg-server) ; for the test suite
3351 ("pkg-config" ,pkg-config)))
3352 (propagated-inputs
3353 `(("glib" ,glib)
3354 ("gdk-pixbuf" ,gdk-pixbuf)
3355 ("libx11" ,libx11)
3356 ("libxext" ,libxext)
3357 ("libxfixes" ,libxfixes)
3358 ("libxdamage" ,libxdamage)
3359 ("libxcomposite" ,libxcomposite)
3360 ("libxrandr" ,libxrandr)))
3361 (inputs
3362 `(("mesa" ,mesa)
3363 ("cairo" ,cairo)
3364 ("pango" ,pango)
3365 ("gstreamer" ,gstreamer)
31860852
KK		 3366 ("gst-plugins-base" ,gst-plugins-base)
3367 ("wayland" ,wayland)))
ba421ab7
MW		 3368 (arguments
3369 `(#:configure-flags (list "--enable-cogl-gst"
31860852
KK		 3370 "--enable-wayland-egl-platform"
3371 "--enable-wayland-egl-server"
3372
ba421ab7
MW		 3373 ;; Arrange to pass an absolute file name to
3374 ;; dlopen for libGL.so.
3375 (string-append "--with-gl-libname="
3376 (assoc-ref %build-inputs "mesa")
3377 "/lib/libGL.so"))
3378 ;; XXX FIXME: All tests fail, with many warnings printed like this:
3379 ;; _FontTransOpen: Unable to Parse address
3380 ;; ${prefix}/share/fonts/X11/misc/
3381 #:tests? #f
3382 #; #:phases
3383 #;
3384 (modify-phases %standard-phases
3385 (add-before 'check 'start-xorg-server
3386 (lambda* (#:key inputs #:allow-other-keys)
3387 ;; The test suite requires a running X server.
3388 (system (format #f "~a/bin/Xvfb :1 &"
3389 (assoc-ref inputs "xorg-server")))
3390 (setenv "DISPLAY" ":1")
3391 #t)))))
3392 (home-page "http://www.cogl3d.org")
3393 (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
3394 (description
3395 "Cogl is a small library for using 3D graphics hardware to draw pretty
3396pictures. The API departs from the flat state machine style of OpenGL and is
3397designed to make it easy to write orthogonal components that can render
3398without stepping on each others toes.")
3399 (license (list license:expat ; most of the code
3400 license:bsd-3 ; cogl/cogl-point-in-poly.c
3401 license:sgifreeb2.0 ; cogl-path/tesselator/
3402 license:asl2.0)))) ; examples/android/
fb182b8a
MW		 3403
3404(define-public clutter
3405 (package
3406 (name "clutter")
6a88e4ee 3407 (version "1.26.2")
fb182b8a
MW		 3408 (source
3409 (origin
3410 (method url-fetch)
3411 (uri (string-append "mirror://gnome/sources/" name "/"
3412 (version-major+minor version) "/"
3413 name "-" version ".tar.xz"))
3414 (sha256
3415 (base32
6a88e4ee 3416 "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
a88d5a0c
MW		 3417 ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
3418 ;; to clutter, corresponding changes may be appropriate in mutter as well.
fb182b8a 3419 (build-system gnu-build-system)
600233bd
LC		 3420 (outputs '("out"
3421 "doc")) ;9 MiB of gtk-doc HTML pages
fb182b8a
MW		 3422 (native-inputs
3423 `(("glib:bin" ,glib "bin") ; for glib-genmarshal
3424 ("gobject-introspection" ,gobject-introspection)
3425 ("pkg-config" ,pkg-config)
3426 ("xsltproc" ,libxslt)))
3427 (propagated-inputs
3428 `(("cogl" ,cogl)
3429 ("cairo" ,cairo)
3430 ("atk" ,atk)
3431 ("gtk+" ,gtk+)
3432 ("json-glib" ,json-glib)
3433 ("glib" ,glib)
3434 ("libxcomposite" ,libxcomposite)
3435 ("libxdamage" ,libxdamage)
3436 ("libxext" ,libxext)
3437 ("xinput" ,xinput)))
3438 (inputs
3439 `(("libxkbcommon" ,libxkbcommon)
3440 ("udev" ,eudev)))
3441 (arguments
600233bd
LC		 3442 `(#:configure-flags (list "--enable-x11-backend=yes"
3443
3444 ;; This produces share/doc/{clutter,cally}.
3445 (string-append "--with-html-dir="
3446 (assoc-ref %outputs "doc")
3447 "/share/doc"))
fb182b8a
MW		 3448 ;; XXX FIXME: Get test suite working. It would probably fail in the
3449 ;; same way the cogl tests fail, since clutter is based on cogl.
3450 #:tests? #f))
3451 (home-page "http://www.clutter-project.org")
476af713 3452 (synopsis "OpenGL-based interactive canvas library")
fb182b8a 3453 (description
476af713 3454 "Clutter is an OpenGL-based interactive canvas library, designed for
fb182b8a
MW		 3455creating fast, mainly 2D single window applications such as media box UIs,
3456presentations, kiosk style applications and so on.")
3457 (license license:lgpl2.0+)))
bf7f17ba
MW		 3458
3459(define-public clutter-gtk
3460 (package
3461 (name "clutter-gtk")
5d1a3219 3462 (version "1.8.4")
bf7f17ba
MW		 3463 (source
3464 (origin
3465 (method url-fetch)
3466 (uri (string-append "mirror://gnome/sources/" name "/"
3467 (version-major+minor version) "/"
3468 name "-" version ".tar.xz"))
3469 (sha256
3470 (base32
5d1a3219 3471 "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
bf7f17ba
MW		 3472 (build-system gnu-build-system)
3473 (native-inputs
3474 `(("pkg-config" ,pkg-config)
3475 ("gobject-introspection" ,gobject-introspection)))
9a3a8b8e
SB		 3476 (propagated-inputs
3477 ;; clutter-gtk.pc refers to all these.
bf7f17ba
MW		 3478 `(("clutter" ,clutter)
3479 ("gtk+" ,gtk+)))
3480 (home-page "http://www.clutter-project.org")
476af713 3481 (synopsis "OpenGL-based interactive canvas library GTK+ widget")
bf7f17ba 3482 (description
476af713 3483 "Clutter is an OpenGL-based interactive canvas library, designed for
bf7f17ba
MW		 3484creating fast, mainly 2D single window applications such as media box UIs,
3485presentations, kiosk style applications and so on.")
3486 (license license:lgpl2.0+)))
86d6a893
MW		 3487
3488(define-public clutter-gst
3489 (package
3490 (name "clutter-gst")
ba07ac19 3491 (version "3.0.27")
86d6a893
MW		 3492 (source
3493 (origin
3494 (method url-fetch)
f010f89b 3495 (uri (string-append "mirror://gnome/sources/clutter-gst/"
86d6a893 3496 (version-major+minor version) "/"
f010f89b 3497 "clutter-gst-" version ".tar.xz"))
86d6a893 3498 (sha256
ba07ac19 3499 (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
86d6a893
MW		 3500 (build-system gnu-build-system)
3501 (native-inputs
ba07ac19 3502 `(("glib:bin" ,glib "bin") ; for glib-mkenums
86d6a893
MW		 3503 ("pkg-config" ,pkg-config)
3504 ("gobject-introspection" ,gobject-introspection)))
3505 (inputs
3506 `(("clutter" ,clutter)
3507 ("gstreamer" ,gstreamer)
3508 ("gst-plugins-base" ,gst-plugins-base)))
3509 (home-page "http://www.clutter-project.org")
3510 (synopsis "Integration library for using GStreamer with Clutter")
3511 (description
3512 "Clutter-Gst is an integration library for using GStreamer with Clutter.
3513It provides a GStreamer sink to upload frames to GL and an actor that
476af713
TGR		 3514implements the ClutterGstPlayer interface using playbin. Clutter is an
3515OpenGL-based interactive canvas library.")
86d6a893 3516 (license license:lgpl2.0+)))
607a04ae 3517
30dc88d9
LC		 3518(define-public libchamplain
3519 (package
3520 (name "libchamplain")
5564b2c5 3521 (version "0.12.16")
30dc88d9
LC		 3522 (source (origin
3523 (method url-fetch)
3524 (uri (string-append
3525 "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
3526 version ".tar.xz"))
3527 (sha256
3528 (base32
5564b2c5 3529 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
30dc88d9 3530 (build-system gnu-build-system)
f7c6833f
LF		 3531 (arguments '(#:configure-flags '("--enable-vala")))
3532 (native-inputs
3533 `(("gobject-introspection" ,gobject-introspection)
3534 ("pkg-config" ,pkg-config)
3535 ("vala" ,vala)))
30dc88d9
LC		 3536 (propagated-inputs
3537 `(("libsoup" ,libsoup)
3538 ("sqlite" ,sqlite)
3539 ("clutter" ,clutter)
3540 ("clutter-gtk" ,clutter-gtk)
3541 ("glib:bin" ,glib "bin") ;glib-mkenums, etc.
3542 ("cairo" ,cairo)
3543 ("gtk+3" ,gtk+)
3544 ("glib" ,glib)))
f032d0be 3545 (home-page "https://projects.gnome.org/libchamplain/")
30dc88d9
LC		 3546 (synopsis "C library providing a ClutterActor to display maps")
3547 (description
3548 "libchamplain is a C library providing a ClutterActor to display maps.
3549It also provides a Gtk+ widget to display maps in Gtk+ applications. Python
3550and Perl bindings are also available. It supports numerous free map sources
3551such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
3552 (license license:lgpl2.1+)))
3553
607a04ae
MW		 3554(define-public gom
3555 (package
3556 (name "gom")
0510440b 3557 (version "0.3.2")
607a04ae
MW		 3558 (source
3559 (origin
3560 (method url-fetch)
6c8a0b6f 3561 (uri (string-append "mirror://gnome/sources/gom/"
607a04ae 3562 (version-major+minor version) "/"
6c8a0b6f 3563 "gom-" version ".tar.xz"))
607a04ae
MW		 3564 (sha256
3565 (base32
0510440b 3566 "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
607a04ae
MW		 3567 (build-system gnu-build-system)
3568 (native-inputs
3569 `(("intltool" ,intltool)
3570 ("pkg-config" ,pkg-config)
3571 ("gobject-introspection" ,gobject-introspection)))
3572 (inputs
3573 `(("glib" ,glib)
3574 ("gdk-pixbuf" ,gdk-pixbuf)
3575 ("sqlite" ,sqlite)))
3576 ;; XXX TODO: Figure out how to run the test suite.
3577 (arguments `(#:tests? #f))
3578 (home-page "https://wiki.gnome.org/Projects/Gom")
3579 (synopsis "Object mapper from GObjects to SQLite")
3580 (description
3581 "Gom provides an object mapper from GObjects to SQLite. It helps you
3582write applications that need to store structured data as well as make complex
3583queries upon that data.")
3584 (license license:lgpl2.1+)))
b7a3cf11 3585
865aacc9 3586(define-public libgnome-games-support
f09520db 3587 (package
865aacc9 3588 (name "libgnome-games-support")
dd7a2446 3589 (version "1.4.1")
f09520db
SB		 3590 (source (origin
3591 (method url-fetch)
3592 (uri (string-append "mirror://gnome/sources/" name "/"
3593 (version-major+minor version) "/"
3594 name "-" version ".tar.xz"))
3595 (sha256
3596 (base32
dd7a2446 3597 "1j7lfcnc29lgn8ppn13wkn9w2y1n3lsapagwp91zh3bf0h2h4hv1"))))
f09520db
SB		 3598 (build-system gnu-build-system)
3599 (arguments
3600 '(#:phases
3601 (modify-phases %standard-phases
3602 (add-before 'check 'pre-check
3603 (lambda _
865aacc9 3604 ;; Tests require a writable HOME.
f09520db
SB		 3605 (setenv "HOME" (getcwd))
3606 #t)))))
3607 (native-inputs
3608 `(("intltool" ,intltool)
3609 ("pkg-config" ,pkg-config)
3610 ("vala" ,vala)))
3611 (propagated-inputs
865aacc9 3612 ;; Required by libgnome-games-support-1.0.pc
f09520db
SB		 3613 `(("gtk+" ,gtk+)
3614 ("libgee" ,libgee)))
3615 (home-page "https://www.gnome.org/")
3616 (synopsis "Useful functionality shared among GNOME games")
3617 (description
865aacc9 3618 "libgnome-games-support is a small library intended for internal use by
f09520db
SB		 3619GNOME Games, but it may be used by others.")
3620 (license license:lgpl3+)))
3621
b7a3cf11
SB		 3622(define-public gnome-klotski
3623 (package
3624 (name "gnome-klotski")
36828576 3625 (version "3.22.3")
b7a3cf11
SB		 3626 (source (origin
3627 (method url-fetch)
3628 (uri (string-append "mirror://gnome/sources/" name "/"
3629 (version-major+minor version) "/"
3630 name "-" version ".tar.xz"))
3631 (sha256
3632 (base32
36828576 3633 "0prc0s28pdflgzyvk1g0yfx982q2grivmz3858nwpqmbkha81r7f"))))
b7a3cf11
SB		 3634 (build-system glib-or-gtk-build-system)
3635 (native-inputs
3636 `(("desktop-file-utils" ,desktop-file-utils)
3637 ("intltool" ,intltool)
3638 ("itstool" ,itstool)
bcb354ad
SB		 3639 ("pkg-config" ,pkg-config)
3640 ("xmllint" ,libxml2)))
b7a3cf11
SB		 3641 (inputs
3642 `(("gtk+" ,gtk+)
f4eae76f 3643 ("libgnome-games-support" ,libgnome-games-support)
b7a3cf11
SB		 3644 ("librsvg" ,librsvg)))
3645 (home-page "https://wiki.gnome.org/Apps/Klotski")
3646 (synopsis "Sliding block puzzles")
3647 (description
3648 "GNOME Klotski is a set of block sliding puzzles. The objective is to move
3649the patterned block to the area bordered by green markers. To do so, you will
3650need to slide other blocks out of the way. Complete each puzzle in as few moves
3651as possible!")
3652 (license license:gpl2+)))
8d4791bf
MW		 3653
3654(define-public grilo
3655 (package
3656 (name "grilo")
99dd2af9 3657 (version "0.3.3")
8d4791bf
MW		 3658 (source
3659 (origin
3660 (method url-fetch)
3661 (uri (string-append "mirror://gnome/sources/" name "/"
3662 (version-major+minor version) "/"
3663 name "-" version ".tar.xz"))
3664 (sha256
3665 (base32
99dd2af9 3666 "1qx072m0gl6m3d5g5cbbf13p4h217icmlxjnrn829x5xqwi451sw"))))
8d4791bf
MW		 3667 (build-system gnu-build-system)
3668 (native-inputs
3669 `(("glib:bin" ,glib "bin") ; for glib-mkenums and glib-genmarshal
3670 ("intltool" ,intltool)
3671 ("pkg-config" ,pkg-config)
3672 ("gobject-introspection" ,gobject-introspection)))
3673 (inputs
6d7273a0
KK		 3674 `(("cyrus-sasl" ,cyrus-sasl)
3675 ("glib" ,glib)
8d4791bf
MW		 3676 ("gtk+" ,gtk+)
3677 ("libxml2" ,libxml2)
6d7273a0 3678 ("liboauth" ,liboauth)
8d4791bf 3679 ("libsoup" ,libsoup)
e7305878 3680 ("nettle" ,nettle)
8d4791bf
MW		 3681 ("totem-pl-parser" ,totem-pl-parser)))
3682 (arguments
3683 `(#:phases
3684 (modify-phases %standard-phases
3685 (add-after 'unpack 'fix-introspection-install-dir
3686 (lambda* (#:key outputs #:allow-other-keys)
3687 (let ((out (assoc-ref outputs "out")))
3688 (substitute* '("src/Makefile.in"
3689 "libs/pls/Makefile.in"
3690 "libs/net/Makefile.in")
3691 (("@INTROSPECTION_GIRDIR@")
3692 (string-append out "/share/gir-1.0/"))
3693 (("@INTROSPECTION_TYPELIBDIR@")
8c52aab4
MW		 3694 (string-append out "/lib/girepository-1.0/")))
3695 #t))))))
8d4791bf
MW		 3696 (native-search-paths
3697 (list (search-path-specification
3698 (variable "GRL_PLUGIN_PATH")
3699 (files (list (string-append "lib/grilo-"
3700 (version-major+minor version)))))))
f032d0be 3701 (home-page "https://live.gnome.org/Grilo")
8d4791bf
MW		 3702 (synopsis "Framework for discovering and browsing media")
3703 (description
3704 "Grilo is a framework focused on making media discovery and browsing easy
3705for application developers.")
3706 (license license:lgpl2.1+)))
7b212526
MW		 3707
3708(define-public grilo-plugins
3709 (package
3710 (name "grilo-plugins")
22753632 3711 (version "0.3.3")
7b212526
MW		 3712 (source
3713 (origin
3714 (method url-fetch)
3715 (uri (string-append "mirror://gnome/sources/" name "/"
3716 (version-major+minor version) "/"
3717 name "-" version ".tar.xz"))
3718 (sha256
3719 (base32
22753632 3720 "172vr1y98d2mzlmg5akjn4ibrcj3gh22cwnb3cv9rvvzhj3yhrpy"))))
7b212526
MW		 3721 (build-system gnu-build-system)
3722 (native-inputs
3723 `(("glib:bin" ,glib "bin") ; for glib-mkenums and glib-genmarshal
3724 ("intltool" ,intltool)
3725 ("itstool" ,itstool)
3726 ("pkg-config" ,pkg-config)))
3727 (inputs
3728 `(("grilo" ,grilo)
924ae80f 3729 ("nettle" ,nettle) ; XXX: required by libgrlpls-0.3.la
7b212526
MW		 3730 ("glib" ,glib)
3731 ("libxml2" ,libxml2)
3732 ("sqlite" ,sqlite)
3733 ("gom" ,gom)
3734 ;; XXX TODO: Add oauth
3735 ;; XXX TODO: Add goa
3736 ;; XXX TODO: Add gdata (e.g. needed for youtube plugin)
3737 ;; XXX TODO: Add lua (needs help finding it)
3738 ("json-glib" ,json-glib)
3739 ("avahi" ,avahi)
3740 ("gmime" ,gmime)
3741 ("libsoup" ,libsoup)
3742 ("libarchive" ,libarchive)
3743 ("totem-pl-parser" ,totem-pl-parser)))
3744 (arguments
3745 `(#:make-flags (list (string-append "GRL_PLUGINS_DIR="
3746 %output
3747 "/lib/grilo-"
3748 ,(version-major+minor version)))
3749 ;; XXX FIXME: Try to get the test suite working. It appears to require
3750 ;; a working system dbus. Inside the build container, all tests fail
3751 ;; with: "assertion failed: (source)". Outside of the build container,
3752 ;; most tests succeed.
3753 #:tests? #f))
f032d0be 3754 (home-page "https://live.gnome.org/Grilo")
7b212526
MW		 3755 (synopsis "Plugins for the Grilo media discovery library")
3756 (description
3757 "Grilo is a framework focused on making media discovery and browsing easy
3758for application developers.")
3759 (license license:lgpl2.1+)))
4e3fc547
MW		 3760
3761(define-public totem
3762 (package
3763 (name "totem")
0e091b3e 3764 (version "3.26.2")
4e3fc547
MW		 3765 (source
3766 (origin
3767 (method url-fetch)
3768 (uri (string-append "mirror://gnome/sources/" name "/"
3769 (version-major+minor version) "/"
3770 name "-" version ".tar.xz"))
3771 (sha256
3772 (base32
0e091b3e 3773 "1llyisls3pzf5bwkpxyfyxc2d3gpa09n5pjy7qsjdqrp3ya4k36g"))
7ad81b8b
LC		 3774 (patches (search-patches "totem-meson-easy-codec.patch"))))
3775 (build-system meson-build-system)
4e3fc547
MW		 3776 (native-inputs
3777 `(("pkg-config" ,pkg-config)
3778 ("desktop-file-utils" ,desktop-file-utils)
3779 ("gobject-introspection" ,gobject-introspection)
7ad81b8b
LC		 3780 ("glib:bin" ,glib "bin") ;for 'glib-mkenums'
3781 ("gtk:bin" ,gtk+ "bin") ;for 'gtk-update-icon-cache'
4e3fc547 3782 ("intltool" ,intltool)
bcb354ad
SB		 3783 ("itstool" ,itstool)
3784 ("xmllint" ,libxml2)))
4e3fc547
MW		 3785 (propagated-inputs
3786 `(("dconf" ,dconf)))
3787 (inputs
3788 `(("gtk+" ,gtk+)
3789 ("gdk-pixbuf" ,gdk-pixbuf)
3790 ("atk" ,atk)
3791 ("cairo" ,cairo)
3792 ("dbus-glib" ,dbus-glib)
3793 ("clutter" ,clutter)
3794 ("clutter-gtk" ,clutter-gtk)
3795 ("clutter-gst" ,clutter-gst)
6a6db57f 3796 ("xorgproto" ,xorgproto)
4e3fc547
MW		 3797 ("libxxf86vm" ,libxxf86vm)
3798 ("libxtst" ,libxtst)
3799 ("libxrandr" ,libxrandr)
3800 ("libxml2" ,libxml2)
3801 ("libsoup" ,libsoup)
3802 ("libpeas" ,libpeas)
3803 ("librsvg" ,librsvg)
3804 ("lirc" ,lirc)
3805 ("gnome-desktop" ,gnome-desktop)
3806 ("gstreamer" ,gstreamer)
3807 ("gst-plugins-base" ,gst-plugins-base)
3808 ("gst-plugins-good" ,gst-plugins-good)
3809 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3810 ("adwaita-icon-theme" ,adwaita-icon-theme)
3811 ;; XXX We use python-2 because libxml2 because itstool (which needs
3812 ;; libxml) currently uses python-2.
3813 ("python" ,python-2)
3814 ("python-pygobject" ,python2-pygobject)
3815 ;; XXX TODO pylint needed for python support
3816 ("totem-pl-parser" ,totem-pl-parser)
3817 ("grilo" ,grilo)
3818 ("grilo-plugins" ,grilo-plugins)
3819 ("nettle" ,nettle)
3820 ("vala" ,vala)))
3821 (arguments
7ad81b8b
LC		 3822 `(#:glib-or-gtk? #t
3823
a97bfa46
AVY		 3824 ;; Disable parallel builds until
3825 ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=28813 is
3826 ;; fixed. Try enabling it when updating this package in case
3827 ;; upstream has fixed it.
3828 #:parallel-build? #f
3829
7ad81b8b 3830 ;; Disable automatic GStreamer plugin installation via PackageKit and
ec5c24f9 3831 ;; all that.
7ad81b8b 3832 #:configure-flags '("-D" "enable-easy-codec-installation=no"
a388c951
LC		 3833
3834 ;; Do not build .a files for the plugins, it's
3835 ;; completely useless. This saves 2 MiB.
7ad81b8b 3836 "--default-library" "shared")
ec5c24f9
LC		 3837
3838 #:phases
4e3fc547 3839 (modify-phases %standard-phases
6368eb39
DM		 3840 (add-before
3841 'install 'disable-cache-generation
3842 (lambda _
3843 (setenv "DESTDIR" "/")
3844 #t))
4e3fc547
MW		 3845 (add-after
3846 'install 'wrap-totem
3847 (lambda* (#:key inputs outputs #:allow-other-keys)
3848 (let ((out (assoc-ref outputs "out"))
3849 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
3850 (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
3851 (wrap-program (string-append out "/bin/totem")
3852 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
39c853bd
AW		 3853 `("GRL_PLUGIN_PATH" ":" prefix (,grl-plugin-path)))
3854 (wrap-program (string-append out "/bin/totem-video-thumbnailer")
3855 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
4e3fc547
MW		 3856 #t)))))
3857 (home-page "https://wiki.gnome.org/Apps/Videos")
3858 (synopsis "Simple media player for GNOME based on GStreamer")
3859 (description "Totem is a simple yet featureful media player for GNOME
3860which can read a large number of file formats.")
3861 ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
3862 ;; to be used and distributed together with GStreamer and Totem. See
3863 ;; file://COPYING in the source distribution for details.
3864 (license license:gpl2+)))
f0afb0c8
DH		 3865
3866(define-public rhythmbox
3867 (package
3868 (name "rhythmbox")
778c4a2f 3869 (version "3.4.2")
f0afb0c8
DH		 3870 (source (origin
3871 (method url-fetch)
3872 (uri (string-append "mirror://gnome/sources/" name "/"
3873 (version-major+minor version) "/"
3874 name "-" version ".tar.xz"))
aa758763
CB		 3875 (patches
3876 (list
3877 ;; fmradio: Fix build with GStreamer master
3878 (origin
3879 (method url-fetch)
3880 (uri (string-append
3881 "https://gitlab.gnome.org/GNOME/rhythmbox/commit/"
3882 "b182c6b9e1d09e601bac0b703cc5f8b159ebbc3a.patch"))
3883 (sha256
3884 (base32
e1d97c4e 3885 "06n87xgf927djmv1vshal84nqx7g8nwgljza3g2vydhy7g2n1csq")))))
f0afb0c8
DH		 3886 (sha256
3887 (base32
778c4a2f 3888 "0hzcns8gf5yb0rm4ss8jd8qzarcaplp5cylk6plwilsqfvxj4xn2"))))
f0afb0c8
DH		 3889 (build-system glib-or-gtk-build-system)
3890 (arguments
3891 `(#:configure-flags
3892 (list "--enable-lirc"
3893 "--enable-python"
3894 "--enable-vala"
3895 "--with-brasero"
3896 "--with-gudev"
3897 "--with-libsecret")
3898 #:phases
3899 (modify-phases %standard-phases
3900 (add-after
3901 'install 'wrap-rhythmbox
3902 (lambda* (#:key inputs outputs #:allow-other-keys)
3903 (let ((out (assoc-ref outputs "out"))
3904 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
3905 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
349cef58
TGR		 3906 (grl-plugin-path (getenv "GRL_PLUGIN_PATH"))
3907 (python-path (getenv "PYTHONPATH")))
f0afb0c8
DH		 3908 (wrap-program (string-append out "/bin/rhythmbox")
3909 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
3910 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
349cef58
TGR		 3911 `("GRL_PLUGIN_PATH" ":" prefix (,grl-plugin-path))
3912 `("PYTHONPATH" ":" prefix (,python-path))))
f0afb0c8
DH		 3913 #t)))))
3914 (propagated-inputs
3915 `(("dconf" ,dconf)))
3916 (native-inputs
bcb354ad
SB		 3917 `(("itstool" ,itstool)
3918 ("intltool" ,intltool)
f0afb0c8
DH		 3919 ("glib" ,glib "bin")
3920 ("gobject-introspection" ,gobject-introspection)
3921 ("desktop-file-utils" ,desktop-file-utils)
bcb354ad
SB		 3922 ("pkg-config" ,pkg-config)
3923 ("xmllint" ,libxml2)))
f0afb0c8
DH		 3924 (inputs
3925 `(("json-glib" ,json-glib)
3926 ("tdb" ,tdb)
3927 ("gnome-desktop" ,gnome-desktop)
3928 ("python" ,python)
3929 ("python-pygobject" ,python2-pygobject)
3930 ("vala" ,vala)
3931 ("gmime" ,gmime)
3932 ("nettle" ,nettle)
f0afb0c8
DH		 3933 ("adwaita-icon-theme" ,adwaita-icon-theme)
3934 ("grilo" ,grilo)
3935 ("grilo-plugins" ,grilo-plugins)
3936 ("gstreamer" ,gstreamer)
3937 ("gst-plugins-base" ,gst-plugins-base)
3938 ("gst-plugins-good" ,gst-plugins-good)
f0afb0c8 3939 ("totem-pl-parser" ,totem-pl-parser)
ea226291 3940 ("libgudev" ,libgudev)
f0afb0c8
DH		 3941 ;;("libmtp" ,libmtp) FIXME: Not detected
3942 ("libsecret" ,libsecret)
3943 ("libsoup" ,libsoup)
3944 ("libnotify" ,libnotify)
3945 ("libpeas" ,libpeas)
3946 ("lirc" ,lirc)
3947 ;; TODO: clutter* only used by visualizer plugin, which also requires mx
3948 ;;("clutter" ,clutter)
3949 ;;("clutter-gtk" ,clutter-gtk)
3950 ;;("clutter-gst" ,clutter-gst)
3951 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
3952 ("atk" ,atk)
3953 ("pango" ,pango)
3954 ("gtk+" ,gtk+)
3955 ;; TODO:
3956 ;; * libgpod
3957 ;; * mx
f0afb0c8
DH		 3958 ("brasero" ,brasero)))
3959 (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
3960 (synopsis "Music player for GNOME")
3961 (description "Rhythmbox is a music playing application for GNOME. It
3962supports playlists, song ratings, and any codecs installed through gstreamer.")
3963 (license license:gpl2+)))
f70d8383
DH		 3964
3965(define-public eog
3966 (package
3967 (name "eog")
61fb581f 3968 (version "3.28.2")
f70d8383
DH		 3969 (source (origin
3970 (method url-fetch)
3971 (uri (string-append "mirror://gnome/sources/" name "/"
3972 (version-major+minor version) "/"
3973 name "-" version ".tar.xz"))
3974 (sha256
3975 (base32
61fb581f
RW		 3976 "1gasrfqi7qrzdq1idh29r0n6ikkqjb6pbp7a8k5krfz5hkhyfin0"))))
3977 (build-system meson-build-system)
f70d8383 3978 (arguments
34c44a34
RW		 3979 `(#:configure-flags
3980 ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
3981 (list (string-append "-Dc_link_args=-Wl,-rpath="
3982 (assoc-ref %outputs "out") "/lib/eog"))
3983 #:phases
f70d8383 3984 (modify-phases %standard-phases
61fb581f
RW		 3985 (add-after 'install 'wrap-eog
3986 (lambda* (#:key outputs #:allow-other-keys)
3987 (let ((out (assoc-ref outputs "out"))
3988 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
3989 (wrap-program (string-append out "/bin/eog")
3990 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
3991 #t)))))
f70d8383
DH		 3992 (propagated-inputs
3993 `(("dconf" ,dconf)))
3994 (native-inputs
3995 `(("intltool" ,intltool)
b3546174 3996 ("itstool" ,itstool)
f70d8383 3997 ("glib" ,glib "bin")
61fb581f 3998 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
f70d8383 3999 ("gobject-introspection" ,gobject-introspection)
bcb354ad
SB		 4000 ("pkg-config" ,pkg-config)
4001 ("xmllint" ,libxml2)))
f70d8383
DH		 4002 (inputs
4003 `(("gnome-desktop" ,gnome-desktop)
4004 ("shared-mime-info" ,shared-mime-info)
4005 ("adwaita-icon-theme" ,adwaita-icon-theme)
4006 ("exempi" ,exempi)
4007 ("lcms" ,lcms)
4008 ("libexif" ,libexif)
4009 ("libpeas" ,libpeas)
4010 ("libjpeg" ,libjpeg)
4011 ("librsvg" ,librsvg)
4012 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4013 ("gtk+" ,gtk+)))
4014 (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
4015 (synopsis "GNOME image viewer")
4016 (description "Eye of GNOME is the GNOME image viewer. It
4017supports image conversion, rotation, and slideshows.")
4018 (license license:gpl2+)))
41af5e7b 4019
0c3f8cb8
LC		 4020(define-public eog-plugins
4021 ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
4022 ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
4023 ;; $XDG_DATA_DIRS. Thus, for EOG to find these, you have to have
4024 ;; 'XDG_DATA_DIRS' appropriately set.
4025 (package
4026 (name "eog-plugins")
5fed63dd 4027 (version "3.26.3")
0c3f8cb8
LC		 4028 (source (origin
4029 (method url-fetch)
f3b88ed2 4030 (uri (string-append "mirror://gnome/sources/eog-plugins/"
0c3f8cb8 4031 (version-major+minor version) "/"
f3b88ed2 4032 "eog-plugins-" version ".tar.xz"))
0c3f8cb8
LC		 4033 (sha256
4034 (base32
5fed63dd 4035 "06fnjs2p18ad5vk07z685cx26sc7d3azywss00w9xvz794b2i1g3"))))
0c3f8cb8
LC		 4036 (build-system gnu-build-system)
4037 (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
4038 (synopsis "Extensions for the Eye of GNOME image viewer")
4039 (native-inputs
4040 `(("pkg-config" ,pkg-config)
4041 ("gettext" ,gnu-gettext)))
4042 (inputs
4043 `(("eog" ,eog)
4044 ("glib" ,glib)
4045 ("gtk+" ,gtk+)
4046 ("libpeas" ,libpeas)
4047 ("libexif" ,libexif)
4048 ("libchamplain" ,libchamplain)))
4049 (description
4050 "This package provides plugins for the Eye of GNOME (EOG) image viewer,
4051notably:
4052
4053@itemize
4054@item @dfn{EXIF Display}, which displays camera (EXIF) information;
4055@item @dfn{Map}, which displays a map of where the picture was taken on the
4056side panel;
4057@item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
4058@end itemize\n")
4059
4060 ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
4061 ;; long suspicious byte stream that goes to a
4062 ;; ".gresource.eog_postasa_plugin" ELF section.
4063 (license license:gpl2+)))
4064
41af5e7b
SB		 4065(define-public libgudev
4066 (package
4067 (name "libgudev")
b78f5118 4068 (version "232")
41af5e7b
SB		 4069 (source (origin
4070 (method url-fetch)
4071 (uri (string-append "mirror://gnome/sources/" name "/"
4072 version "/" name "-" version ".tar.xz"))
4073 (sha256
4074 (base32
b78f5118 4075 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
41af5e7b 4076 (build-system gnu-build-system)
b78f5118
RW		 4077 (arguments
4078 '(#:configure-flags
4079 ;; umockdev depends on libgudev.
4080 (list "--disable-umockdev")))
41af5e7b
SB		 4081 (native-inputs
4082 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
4083 ("gobject-introspection" ,gobject-introspection)
4084 ("pkg-config" ,pkg-config)))
4085 (propagated-inputs
4086 `(("glib" ,glib))) ; required by gudev-1.0.pc
4087 (inputs
4088 `(("udev" ,eudev)))
4089 (home-page "https://wiki.gnome.org/Projects/libgudev")
4090 (synopsis "GObject bindings for libudev")
4091 (description
4092 "This library provides GObject bindings for libudev. It was originally
4093part of udev-extras, then udev, then systemd. It's now a project on its own.")
4094 (license license:lgpl2.1+)))
3dc8828f
SB		 4095
4096(define-public gvfs
4097 (package
4098 (name "gvfs")
0ab9f949 4099 (version "1.36.2")
3dc8828f
SB		 4100 (source (origin
4101 (method url-fetch)
4102 (uri (string-append "mirror://gnome/sources/" name "/"
4103 (version-major+minor version) "/"
4104 name "-" version ".tar.xz"))
4105 (sha256
4106 (base32
0ab9f949 4107 "1xq105596sk9yram5a143b369wpaiiwc9gz86n0j1kfr7nipkqn4"))))
3dc8828f
SB		 4108 (build-system gnu-build-system)
4109 (arguments
0ab9f949
RW		 4110 '(#:tests? #f ; XXX: requiring `pidof'
4111 #:phases
4112 (modify-phases %standard-phases
4113 (add-after 'unpack 'remove-broken-autogen-script
4114 (lambda _ (delete-file "autogen.sh") #t)))))
3dc8828f
SB		 4115 (native-inputs
4116 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
0ab9f949
RW		 4117 ("autoconf" ,autoconf)
4118 ("automake" ,automake)
4119 ("gettext" ,gettext-minimal)
4120 ("gtk-doc" ,gtk-doc)
4121 ("libtool" ,libtool)
3dc8828f
SB		 4122 ("pkg-config" ,pkg-config)
4123 ("xsltproc" ,libxslt)))
4124 (inputs
4125 `(("avahi" ,avahi)
4126 ("docbook-xml" ,docbook-xml-4.2)
4127 ("docbook-xsl" ,docbook-xsl)
4128 ("dbus" ,dbus)
4129 ("fuse" ,fuse)
24a78aa6 4130 ("gcr" ,gcr)
3dc8828f
SB		 4131 ("glib" ,glib)
4132 ("libarchive" ,libarchive)
4133 ("libbluray" ,libbluray)
8852ca24 4134 ("libcap" ,libcap)
3dc8828f
SB		 4135 ("libcdio-paranoia" ,libcdio-paranoia)
4136 ("libgcrypt" ,libgcrypt)
4137 ("libgphoto2" ,libgphoto2)
4138 ("libgudev" ,libgudev)
0ab9f949 4139 ("libimobiledevice" ,libimobiledevice)
3dc8828f
SB		 4140 ("libmtp" ,libmtp)
4141 ("libsecret" ,libsecret)
4142 ("libsmbclient" ,samba)
4143 ("libsoup" ,libsoup)
4144 ("libxml2" ,libxml2)
4145 ("nettle" ,nettle) ; XXX: required by libarchive.pc
8852ca24 4146 ("polkit" ,polkit)
3dc8828f
SB		 4147 ("udisks" ,udisks)))
4148 (home-page "https://wiki.gnome.org/gvfs/")
8f65585b 4149 (synopsis "Userspace virtual file system for GIO")
3dc8828f 4150 (description
8f65585b 4151 "GVFS is a userspace virtual file system designed to work with the I/O
3dc8828f
SB		 4152abstraction of GIO. It contains a GIO module that seamlessly adds GVFS support
4153to all applications using the GIO API. It also supports exposing the GVFS
4154mounts to non-GIO applications using FUSE.
4155
4156GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
4157DAV, and others.")
4158 (license license:lgpl2.0+)))
7c88b6bd
AW		 4159
4160(define-public gusb
4161 (package
4162 (name "gusb")
536b3274 4163 (version "0.3.0")
7c88b6bd
AW		 4164 (source (origin
4165 (method url-fetch)
4166 (uri (string-append "https://github.com/hughsie/libgusb/archive/"
536b3274 4167 version ".tar.gz"))
7c88b6bd
AW		 4168 (sha256
4169 (base32
536b3274
MB		 4170 "1wa9787ww7s1kl9jml6kiyrjgimlgagq4jmgdj7xcpsx83w10qxk"))))
4171 (build-system meson-build-system)
7c88b6bd 4172 (native-inputs
536b3274 4173 `(("gobject-introspection" ,gobject-introspection)
7c88b6bd
AW		 4174 ("pkg-config" ,pkg-config)
4175 ("vala" ,vala)
7c88b6bd
AW		 4176 ("gtk-doc" ,gtk-doc)))
4177 (propagated-inputs
4178 ;; Both of these are required by gusb.pc.
4179 `(("glib" ,glib)
4180 ("libusb" ,libusb)))
4181 (arguments
536b3274 4182 `(#:tests? #f)) ;libusb fails to initialize. Wonder what that is.
8f1640ed 4183 (home-page "https://github.com/hughsie/libgusb")
a124bbd2 4184 (synopsis "GLib binding for libusb1")
7c88b6bd
AW		 4185 (description
4186 "GUsb is a GObject wrapper for libusb1 that makes it easy to do
4187asynchronous control, bulk and interrupt transfers with proper cancellation
4188and integration into a mainloop. This makes it easy to integrate low level
4189USB transfers with your high-level application or system daemon.")
4190 (license license:lgpl2.1+)))
0abe1d86
AW		 4191
4192(define-public simple-scan
4193 (package
4194 (name "simple-scan")
baca5333 4195 (version "3.24.1")
0abe1d86
AW		 4196 (source (origin
4197 (method url-fetch)
4198 (uri (string-append "https://launchpad.net/simple-scan/"
4199 (version-major+minor version) "/"
4200 version "/+download/simple-scan-"
4201 version ".tar.xz"))
4202 (sha256
4203 (base32
baca5333 4204 "1czg21cdbd2fgqylxfnzfhhzy69gycf816d5bbaq6hb62hmq7bjy"))))
0abe1d86
AW		 4205 (build-system glib-or-gtk-build-system)
4206 (inputs
4207 `(("gtk" ,gtk+)
4208 ("zlib" ,zlib)
4209 ("cairo" ,cairo)
4210 ("gdk-pixbuf" ,gdk-pixbuf)
4211 ("gusb" ,gusb)
4c928743 4212 ("libsane" ,sane-backends)))
0abe1d86 4213 (native-inputs
b94a6ca0 4214 `(("gettext" ,gettext-minimal)
0abe1d86
AW		 4215 ("itstool" ,itstool)
4216 ("colord" ,colord)
4217 ("glib" ,glib "bin") ; glib-compile-schemas, etc.
4218 ("pkg-config" ,pkg-config)
bcb354ad
SB		 4219 ("vala" ,vala)
4220 ("xmllint" ,libxml2)))
fb9ca511
TGR		 4221 (arguments
4222 '(#:configure-flags '("--disable-packagekit")
4223 #:phases
4224 (modify-phases %standard-phases
4225 (add-after 'unpack 'clean
4226 (lambda _
4227 ;; Remove a left-over reference to PackageKit.
4228
4229 ;; https://bugs.launchpad.net/simple-scan/+bug/1462769
4230
4231 ;; There are some generated C files erroneously
4232 ;; included in the source distribution, and this
4233 ;; one breaks the build by referring to a
4234 ;; non-existent header (packagekit.h)
4235 (delete-file "src/ui.c"))))))
0abe1d86
AW		 4236 (home-page "https://launchpad.net/simple-scan")
4237 (synopsis "Document and image scanner")
4238 (description "Simple Scan is an easy-to-use application, designed to let
4239users connect their scanner and quickly have the image/document in an
4240appropriate format. Simple Scan is basically a frontend for SANE - which is
4241the same backend as XSANE uses. This means that all existing scanners will
4242work and the interface is well tested.")
4243 (license license:gpl3+)))
7549f984 4244
ab466d79
RW		 4245(define-public eolie
4246 (package
4247 (name "eolie")
d74656ea 4248 (version "0.9.52")
ab466d79
RW		 4249 (source (origin
4250 (method url-fetch)
00014781 4251 (uri (string-append "https://gitlab.gnome.org/World/eolie/"
d74656ea 4252 "uploads/d95bf72958276c80dfaca8cce0e4e92c/"
00014781 4253 "eolie-" version ".tar.xz"))
ab466d79
RW		 4254 (sha256
4255 (base32
d74656ea 4256 "1s3b0rkm8sxmhzzi624snzqvz61i1rja5wxyzw6jg2kcdjcylwln"))))
00014781 4257 (build-system meson-build-system)
ab466d79 4258 (arguments
00014781
RW		 4259 `(#:glib-or-gtk? #t
4260 #:phases
ab466d79
RW		 4261 (modify-phases %standard-phases
4262 (add-after 'wrap 'wrap-more
4263 (lambda* (#:key inputs outputs #:allow-other-keys)
4264 (let* ((out (assoc-ref outputs "out"))
4265 ;; These libraries must be on LD_LIBRARY_PATH.
4266 (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
4267 "atk" "gtk+" "gsettings-desktop-schemas"
84b33436 4268 "gcc:lib" ; needed b/c webkitgtk is built with gcc-7
ab466d79
RW		 4269 "gobject-introspection"))
4270 (path (string-join
4271 (map (lambda (lib)
4272 (string-append (assoc-ref inputs lib) "/lib"))
4273 libs)
4274 ":")))
4275 (wrap-program (string-append out "/bin/eolie")
4276 `("LD_LIBRARY_PATH" ":" prefix (,path))
4277 `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
4278 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
4279 #t)))))
4280 (native-inputs
84b33436
MW		 4281 `(("gcc:lib" ,gcc-7 "lib") ; needed because webkitgtk is built with gcc-7
4282 ("intltool" ,intltool)
ab466d79 4283 ("itstool" ,itstool)
d95f1041 4284 ("pkg-config" ,pkg-config)
d95f1041 4285 ("python" ,python)
00014781 4286 ("glib:bin" ,glib "bin")
d95f1041 4287 ("gtk+" ,gtk+ "bin")))
ab466d79
RW		 4288 (inputs
4289 `(("gobject-introspection" ,gobject-introspection)
4290 ("glib-networking" ,glib-networking)
4291 ("cairo" ,cairo)
4292 ("gtk+" ,gtk+)
4293 ("atk" ,atk) ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
4294 ("python" ,python-wrapper)
d72f76df 4295 ("python-dateutil" ,python-dateutil)
00014781 4296 ("python-pyfxa" ,python-pyfxa)
ab466d79
RW		 4297 ("python-pygobject" ,python-pygobject)
4298 ("python-pycairo" ,python-pycairo)
00014781 4299 ("python-pycrypto" ,python-pycrypto)
ab466d79
RW		 4300 ("libsecret" ,libsecret)
4301 ("gtkspell3" ,gtkspell3)
4302 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
84b33436 4303 ("webkitgtk" ,webkitgtk-2.22)))
166b2c97 4304 (home-page "https://wiki.gnome.org/Apps/Eolie")
ab466d79
RW		 4305 (synopsis "Web browser for GNOME")
4306 (description
4307 "Eolie is a new web browser for GNOME. It features Firefox sync support,
4308a secret password store, an adblocker, and a modern UI.")
4309 (license license:gpl3+)))
4310
7549f984
SB		 4311(define-public epiphany
4312 (package
4313 (name "epiphany")
0e4d4d98 4314 (version "3.28.3.1")
7549f984
SB		 4315 (source (origin
4316 (method url-fetch)
4317 (uri (string-append "mirror://gnome/sources/" name "/"
4318 (version-major+minor version) "/"
4319 name "-" version ".tar.xz"))
4320 (sha256
4321 (base32
0e4d4d98 4322 "1xz6xl6b0iihvczyr0cs1z5ifvpai6anb4m0ng1caiph06klc1b9"))))
fc5c5b92
R		 4323
4324 (build-system meson-build-system)
7549f984
SB		 4325 (arguments
4326 ;; FIXME: tests run under Xvfb, but fail with:
4327 ;; /src/bookmarks/ephy-bookmarks/create:
4328 ;; ** (test-ephy-bookmarks:19591): WARNING **: Unable to start Zeroconf
4329 ;; subsystem
4330 ;; FAIL
6f48d9db 4331 '(#:tests? #f
e19f9c24
LF		 4332 #:glib-or-gtk? #t
4333 #:configure-flags
4334 ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
4335 (list (string-append "-Dc_link_args=-Wl,-rpath="
4336 (assoc-ref %outputs "out") "/lib/epiphany"))))
80a747c4
SB		 4337 (propagated-inputs
4338 `(("dconf" ,dconf)))
7549f984 4339 (native-inputs
fc5c5b92 4340 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
480d39a6 4341 ("gcc" ,gcc-7) ; needed because webkitgtk-2.22 is compiled with gcc-7
fc5c5b92
R		 4342 ("glib:bin" ,glib "bin") ; for glib-mkenums
4343 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
4344 ("intltool" ,intltool)
7549f984 4345 ("itstool" ,itstool)
bcb354ad
SB		 4346 ("pkg-config" ,pkg-config)
4347 ("xmllint" ,libxml2)))
7549f984
SB		 4348 (inputs
4349 `(("avahi" ,avahi)
4350 ("gcr" ,gcr)
fc5c5b92 4351 ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
7549f984
SB		 4352 ("glib-networking" ,glib-networking)
4353 ("gnome-desktop" ,gnome-desktop)
4354 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
eb6f315b 4355 ("json-glib" ,json-glib)
7549f984
SB		 4356 ("iso-codes" ,iso-codes)
4357 ("libnotify" ,libnotify)
4358 ("libsecret" ,libsecret)
7549f984 4359 ("libxslt" ,libxslt)
fc5c5b92 4360 ("nettle" ,nettle) ; for hogweed
7549f984 4361 ("sqlite" ,sqlite)
480d39a6 4362 ("webkitgtk" ,webkitgtk-2.22)))
7549f984
SB		 4363 (home-page "https://wiki.gnome.org/Apps/Web")
4364 (synopsis "GNOME web browser")
4365 (description
4366 "Epiphany is a GNOME web browser targeted at non-technical users. Its
4367principles are simplicity and standards compliance.")
4368 (license license:gpl2+)))
a3856b2c
SB		 4369
4370(define-public d-feet
4371 (package
4372 (name "d-feet")
7d04b13c 4373 (version "0.3.11")
a3856b2c
SB		 4374 (source (origin
4375 (method url-fetch)
4376 (uri (string-append "mirror://gnome/sources/" name "/"
4377 (version-major+minor version) "/"
4378 name "-" version ".tar.xz"))
4379 (sha256
4380 (base32
7d04b13c 4381 "1hmrijm4d9vwzx2r8qzzsy8ccpj79l1y6cc569n9jjzqcq699p53"))))
a3856b2c
SB		 4382 (build-system glib-or-gtk-build-system)
4383 (arguments
4384 '(#:out-of-source? #f ; tests need to run in the source directory.
4385 #:phases
4386 (modify-phases %standard-phases
4387 (add-before
4388 'check 'pre-check
86aff791 4389 (lambda _
a3856b2c
SB		 4390 ;; The test suite requires a running X server.
4391 (system "Xvfb :1 &")
4392 (setenv "DISPLAY" ":1")
4393 ;; Don't fail on missing '/etc/machine-id'.
4394 (setenv "DBUS_FATAL_WARNINGS" "0")
4395 ;; tests.py and window.py don't meet E402:
4396 ;; E402 module level import not at top of file
4397 (substitute* "src/tests/Makefile"
86aff791
MW		 4398 (("--ignore=E123") "--ignore=E123,E402"))
4399 #t))
a3856b2c
SB		 4400 (add-after
4401 'install 'wrap-program
4402 (lambda* (#:key outputs #:allow-other-keys)
4403 (let ((prog (string-append (assoc-ref outputs "out")
4404 "/bin/d-feet")))
4405 (wrap-program prog
4406 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
86aff791
MW		 4407 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
4408 #t))))))
a3856b2c
SB		 4409 (native-inputs
4410 `(("intltool" ,intltool)
4411 ("itstool" ,itstool)
4412 ("pkg-config" ,pkg-config)
4413 ("python-pep8" ,python-pep8)
4414 ("xmllint" ,libxml2)
4415 ("xorg-server" ,xorg-server)))
4416 (inputs
4417 `(("gobject-introspection" ,gobject-introspection)
4418 ("gtk+" ,gtk+)
4419 ("python" ,python-wrapper)
4420 ("python-pygobject" ,python-pygobject)))
4421 (home-page "https://wiki.gnome.org/Apps/DFeet")
4422 (synopsis "D-Bus debugger")
4423 (description
4424 "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
4425of running programs and invoke methods on those interfaces.")
4426 (license license:gpl2+)))
c3b97bd9
SB		 4427
4428(define-public yelp-xsl
4429 (package
4430 (name "yelp-xsl")
7c213900 4431 (version "3.28.0")
c3b97bd9
SB		 4432 (source (origin
4433 (method url-fetch)
4434 (uri (string-append "mirror://gnome/sources/" name "/"
4435 (version-major+minor version) "/"
4436 name "-" version ".tar.xz"))
4437 (sha256
4438 (base32
7c213900 4439 "14rznm1qpsnmkwksnkd5j7zplakl01kvrcw0fdmd5gdc65xz9kcc"))))
c3b97bd9
SB		 4440 (build-system gnu-build-system)
4441 (native-inputs
4442 `(("intltool" ,intltool)
4443 ("itstool" ,itstool)
4444 ("xmllint" ,libxml2)))
4445 (home-page "https://wiki.gnome.org/Apps/Yelp")
4446 (synopsis "XSL stylesheets for Yelp")
4447 (description
4448 "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
4449to format Docbook and Mallard documents.")
4450 (license license:gpl2+)))
de3d612a
SB		 4451
4452(define-public yelp
4453 (package
4454 (name "yelp")
ef7f084f 4455 (version "3.28.1")
de3d612a
SB		 4456 (source (origin
4457 (method url-fetch)
4458 (uri (string-append "mirror://gnome/sources/" name "/"
4459 (version-major+minor version) "/"
4460 name "-" version ".tar.xz"))
4461 (sha256
4462 (base32
ef7f084f 4463 "033w5qnhm495pnvscnb3k2dagzgq4fsnzcrh0k2rgr10mw2mv2p8"))))
de3d612a
SB		 4464 (build-system glib-or-gtk-build-system)
4465 (native-inputs
4466 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
4467 ("intltool" ,intltool)
4468 ("itstool" ,itstool)
4469 ("pkg-config" ,pkg-config)))
4470 (propagated-inputs
4471 `(("dconf" ,dconf)))
4472 (inputs
ad1b7d8b
SB		 4473 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4474 ("libxslt" ,libxslt)
de3d612a 4475 ("sqlite" ,sqlite)
4c28ca1d
SB		 4476 ("webkitgtk" ,webkitgtk)
4477 ("yelp-xsl" ,yelp-xsl)))
de3d612a
SB		 4478 (home-page "https://wiki.gnome.org/Apps/Yelp")
4479 (synopsis "GNOME help browser")
4480 (description
4481 "Yelp is the help viewer in Gnome. It natively views Mallard, DocBook,
4482man, info, and HTML documents. It can locate documents according to the
4483freedesktop.org help system specification.")
4484 (license license:gpl2+)))
122d0d10
SB		 4485
4486(define-public yelp-tools
4487 (package
4488 (name "yelp-tools")
2089bca5 4489 (version "3.28.0")
122d0d10
SB		 4490 (source (origin
4491 (method url-fetch)
4492 (uri (string-append "mirror://gnome/sources/" name "/"
4493 (version-major+minor version) "/"
4494 name "-" version ".tar.xz"))
4495 (sha256
4496 (base32
2089bca5 4497 "1b61dmlb1sd50fgq6zgnkcpx2s1py33q0x9cx67fzpsr4gmgxnw2"))))
122d0d10
SB		 4498 (build-system gnu-build-system)
4499 (native-inputs
4500 `(("pkg-config" ,pkg-config)))
4501 (propagated-inputs
4502 ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
4503 `(("itstool" ,itstool)
4504 ("xmllint" ,libxml2)
4505 ("xsltproc" ,libxslt)))
4506 (inputs
4507 `(("yelp-xsl" ,yelp-xsl)))
4508 (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
4509 (synopsis "Yelp documentation tools")
4510 (description
4511 "Yelp-tools is a collection of scripts and build utilities to help create,
4512manage, and publish documentation for Yelp and the web. Most of the heavy
4513lifting is done by packages like yelp-xsl and itstool. This package just
4514wraps things up in a developer-friendly way.")
4515 (license license:gpl2+)))
af8f9f23
RW		 4516
4517(define-public libgee
4518 (package
4519 (name "libgee")
b1be07cf 4520 (version "0.20.1")
af8f9f23
RW		 4521 (source (origin
4522 (method url-fetch)
4523 (uri (string-append "mirror://gnome/sources/" name "/"
4524 (version-major+minor version) "/"
4525 name "-" version ".tar.xz"))
4526 (sha256
4527 (base32
b1be07cf 4528 "0c26x8gi3ivmhlbqcmiag4jwrkvcy28ld24j55nqr3jikb904a5v"))))
af8f9f23
RW		 4529 (build-system gnu-build-system)
4530 (arguments
4531 `(#:phases
4532 (modify-phases %standard-phases
4533 (add-after 'unpack 'fix-introspection-install-dir
4534 (lambda* (#:key outputs #:allow-other-keys)
4535 (let ((out (assoc-ref outputs "out")))
4536 (substitute* "gee/Makefile.in"
4537 (("@INTROSPECTION_GIRDIR@")
4538 (string-append out "/share/gir-1.0/"))
4539 (("@INTROSPECTION_TYPELIBDIR@")
4540 (string-append out "/lib/girepository-1.0/")))))))))
4541 (native-inputs
4542 `(("glib" ,glib "bin")
4543 ("pkg-config" ,pkg-config)))
4544 (inputs
4545 `(("glib" ,glib)
4546 ("gobject-introspection" ,gobject-introspection)))
4547 (home-page "https://wiki.gnome.org/Projects/Libgee")
4548 (synopsis "GObject collection library")
4549 (description
4550 "Libgee is a utility library providing GObject-based interfaces and
4551classes for commonly used data structures.")
4552 (license license:lgpl2.1+)))
b0f9c4b8
RW		 4553
4554(define-public gexiv2
4555 (package
4556 (name "gexiv2")
adf0b482 4557 (version "0.10.10")
b0f9c4b8
RW		 4558 (source (origin
4559 (method url-fetch)
4560 (uri (string-append "mirror://gnome/sources/" name "/"
4561 (version-major+minor version) "/"
4562 name "-" version ".tar.xz"))
4563 (sha256
4564 (base32
adf0b482 4565 "1qbcwq89g4r67k1dj4laqj441pj4195c8hzhxn8vc6mmg8adg6kx"))))
51c482e4 4566 (build-system meson-build-system)
b0f9c4b8
RW		 4567 (native-inputs
4568 `(("glib" ,glib "bin")
4569 ("pkg-config" ,pkg-config)))
4570 (propagated-inputs
4571 ;; Listed in "Requires" section of gexiv2.pc
4572 `(("exiv2" ,exiv2)))
4573 (inputs
4574 `(("glib" ,glib)
4575 ("gobject-introspection" ,gobject-introspection)))
4576 (home-page "https://wiki.gnome.org/Projects/gexiv2")
4577 (synopsis "GObject wrapper around the Exiv2 photo metadata library")
4578 (description
4579 "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library. It
4580allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
4581metadata in photo and video files of various formats.")
4582 (license license:gpl2+)))
fed5a689
RW		 4583
4584(define-public shotwell
4585 (package
4586 (name "shotwell")
e266043e 4587 (version "0.28.4")
fed5a689
RW		 4588 (source (origin
4589 (method url-fetch)
4590 (uri (string-append "mirror://gnome/sources/" name "/"
4591 (version-major+minor version) "/"
4592 name "-" version ".tar.xz"))
4593 (sha256
4594 (base32
e266043e 4595 "03k7n2kmzqn11kf3733w7m6xjh2b5q9xr84za2hli11fjymzaxm9"))))
fed5a689 4596 (build-system glib-or-gtk-build-system)
735b8db6
TGR		 4597 (propagated-inputs
4598 `(("dconf" ,dconf)))
fed5a689
RW		 4599 (native-inputs
4600 `(("pkg-config" ,pkg-config)
f819c21d 4601 ("itstool" ,itstool)
b94a6ca0 4602 ("gettext" ,gettext-minimal)
77e9c993 4603 ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
735b8db6
TGR		 4604 ("itstool" ,itstool)
4605 ("vala" ,vala)))
fed5a689 4606 (inputs
735b8db6
TGR		 4607 `(("glib:bin" ,glib "bin")
4608 ("gstreamer" ,gstreamer)
fed5a689 4609 ("gst-plugins-base" ,gst-plugins-base)
dfb0323d 4610 ("libgdata" ,libgdata)
fed5a689
RW		 4611 ("libgee" ,libgee)
4612 ("gexiv2" ,gexiv2)
4613 ("libraw" ,libraw)
4614 ("json-glib" ,json-glib)
7108425c 4615 ("webkitgtk" ,webkitgtk)
fed5a689
RW		 4616 ("sqlite" ,sqlite)
4617 ("libsoup" ,libsoup)
4618 ("libxml2" ,libxml2)
fed5a689 4619 ("libgudev" ,libgudev)
522fc32e
LF		 4620 ("libgphoto2" ,libgphoto2)
4621 ("gcr" ,gcr)))
fed5a689
RW		 4622 (home-page "https://wiki.gnome.org/Apps/Shotwell")
4623 (synopsis "Photo manager for GNOME 3")
4624 (description
4625 "Shotwell is a digital photo manager designed for the GNOME desktop
4626environment. It allows you to import photos from disk or camera, organize
4627them by keywords and events, view them in full-window or fullscreen mode, and
4628share them with others via social networking and more.")
4629 (license license:lgpl2.1+)))
293ff8b2
DT		 4630
4631(define-public file-roller
4632 (package
4633 (name "file-roller")
0a500745 4634 (version "3.28.0")
293ff8b2
DT		 4635 (source (origin
4636 (method url-fetch)
4637 (uri (string-append "mirror://gnome/sources/" name "/"
4638 (version-major+minor version) "/"
4639 name "-" version ".tar.xz"))
4640 (sha256
4641 (base32
0a500745
RW		 4642 "15pn2m80x45bzibig4zrqybnbr0n1f9wpqx7f2p6difldns3jwf1"))))
4643 (build-system meson-build-system)
293ff8b2 4644 (native-inputs
0a500745
RW		 4645 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
4646 ("intltool" ,intltool)
4647 ("pkg-config" ,pkg-config)
4648 ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
4649 ("glib:bin" ,glib "bin")))
293ff8b2
DT		 4650 ;; TODO: Add libnautilus.
4651 (inputs
4652 `(("gtk+" ,gtk+)
4653 ("gdk-pixbuf" ,gdk-pixbuf)
4654 ("json-glib" ,json-glib)
4655 ("libarchive" ,libarchive)
4656 ("libnotify" ,libnotify)
4657 ("nettle" ,nettle)
4658 ("itstool" ,itstool)
4659 ("libxml2" ,libxml2)))
4660 (synopsis "Graphical archive manager for GNOME")
4661 (description "File Roller is an archive manager for the GNOME desktop
4662environment that allows users to view, unpack, and create compressed archives
4663such as gzip tarballs.")
4664 (home-page "http://fileroller.sourceforge.net/")
4665 (license license:gpl2+)))
7ce49365
SB		 4666
4667(define-public gnome-session
4668 (package
4669 (name "gnome-session")
df278071 4670 (version "3.28.1")
7ce49365
SB		 4671 (source (origin
4672 (method url-fetch)
4673 (uri (string-append "mirror://gnome/sources/" name "/"
4674 (version-major+minor version) "/"
4675 name "-" version ".tar.xz"))
4676 (sha256
4677 (base32
df278071 4678 "14nmbirgrp2nm16khbz109saqdlinlbrlhjnbjydpnrlimfgg4xq"))))
2914af3c 4679 (arguments
df278071
RW		 4680 '(#:glib-or-gtk? #t
4681 #:phases
2914af3c
AW		 4682 (modify-phases %standard-phases
4683 (add-before 'configure 'pre-configure
4684 (lambda* (#:key outputs #:allow-other-keys)
4685 ;; Use elogind instead of systemd.
df278071
RW		 4686 (substitute* "meson.build"
4687 (("libsystemd-login") "libelogind")
4688 (("and libsystemd_daemon_dep.found.*") ","))
2914af3c
AW		 4689 (substitute* "gnome-session/gsm-systemd.c"
4690 (("#include <systemd/sd-login.h>")
4691 "#include <elogind/sd-login.h>"))
df278071 4692 ;; Remove uses of the systemd daemon.
803ab416
SB		 4693 (substitute* "gnome-session/gsm-autostart-app.c"
4694 (("#ifdef HAVE_SYSTEMD") "#if 0"))
a0d7baaf
LC		 4695 #t))
4696 (add-after 'install 'wrap-gnome-session
4697 (lambda* (#:key inputs outputs #:allow-other-keys)
4698 ;; Make sure 'gnome-session' finds the 'gsettings' program.
4699 (let ((glib (assoc-ref inputs "glib:bin"))
4700 (out (assoc-ref outputs "out")))
4701 (wrap-program (string-append out "/bin/gnome-session")
4702 `("PATH" ":" prefix (,(string-append glib "/bin"))))
1d7bff4b
TS		 4703 #t)))
4704 (add-after 'install 'add-absolute-paths-to-desktop-files
4705 (lambda* (#:key outputs #:allow-other-keys)
4706 (let* ((out (assoc-ref outputs "out")))
4707 (substitute* (map (lambda (x)
4708 (string-append out "/share/xsessions/" x))
4709 '("gnome.desktop" "gnome-xorg.desktop"))
4710 (("gnome-session") (string-append out "/bin/gnome-session")))
a0d7baaf 4711 #t))))
6cbc8d57 4712
2914af3c 4713 #:configure-flags
df278071
RW		 4714 '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
4715 "-Dman=false" ; FIXME: disabled because of docbook validation error
4716 "-Dsystemd_journal=false")))
4717 (build-system meson-build-system)
7ce49365
SB		 4718 (native-inputs
4719 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4720 ("pkg-config" ,pkg-config)
4721 ("intltool" ,intltool)
df278071
RW		 4722 ("xsltproc" ,libxslt)
4723 ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
4724 ("docbook-xsl" ,docbook-xsl)
4725 ("docbook-xml" ,docbook-xml)
4726 ("xmlto" ,xmlto)))
7ce49365 4727 (inputs
2914af3c
AW		 4728 `(("elogind" ,elogind)
4729 ("gnome-desktop" ,gnome-desktop)
ba3cb5ab 4730 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7ce49365
SB		 4731 ("gtk+" ,gtk+)
4732 ("json-glib" ,json-glib)
4733 ("libsm" ,libsm)
4734 ("libxcomposite" ,libxcomposite)
4735 ("libxtst" ,libxtst)
4736 ("mesa" ,mesa)
4737 ("upower" ,upower)
4738 ("xtrans" ,xtrans)))
4739 (synopsis "Session manager for GNOME")
4740 (description
4741 "This package contains the GNOME session manager, as well as a
4742configuration program to choose applications starting on login.")
4743 (home-page "https://wiki.gnome.org/Projects/SessionManagement")
4744 (license license:gpl2+)))
f47ba77e
SB		 4745
4746(define-public gjs
4747 (package
4748 (name "gjs")
72717817 4749 (version "1.52.3")
f47ba77e
SB		 4750 (source (origin
4751 (method url-fetch)
4752 (uri (string-append "mirror://gnome/sources/" name "/"
4753 (version-major+minor version) "/"
4754 name "-" version ".tar.xz"))
4755 (sha256
4756 (base32
72717817 4757 "1z4n15wdz6pbqd2hfzrqc8mmprhv50v4jk43p08v0xv07yldh8ff"))))
f47ba77e
SB		 4758 (build-system gnu-build-system)
4759 (arguments
4760 '(#:phases
4761 (modify-phases %standard-phases
4762 (add-before
4763 'check 'pre-check
4764 (lambda _
fc119619
MW		 4765 ;; The test suite requires a running X server.
4766 (system "Xvfb :1 &")
4767 (setenv "DISPLAY" ":1")
4768
f47ba77e
SB		 4769 ;; For the missing /etc/machine-id.
4770 (setenv "DBUS_FATAL_WARNINGS" "0")
ba666b07 4771
144f94d0
KK		 4772 ;; Our mozjs-38 package does not compile the required Intl API
4773 ;; support for these failing tests.
4774 (substitute* "installed-tests/js/testLocale.js"
4775 ((".*toBeDefined.*") "")
4776 ((".*expect\\(datestr\\).*") ""))
f47ba77e
SB		 4777 #t)))))
4778 (native-inputs
8a831c6f 4779 `(("glib:bin" ,glib "bin") ; for glib-compile-resources
f47ba77e
SB		 4780 ("pkg-config" ,pkg-config)
4781 ("xmllint" ,libxml2)
4782 ;; For testing
4783 ("dbus-launch" ,dbus)
4784 ("uuidgen" ,util-linux)
4785 ("xvfb" ,xorg-server)))
4786 (propagated-inputs
4787 ;; These are all in the Requires.private field of gjs-1.0.pc.
144f94d0
KK		 4788 `(("cairo" ,cairo)
4789 ("gobject-introspection" ,gobject-introspection)
72717817 4790 ("mozjs" ,mozjs-52)))
f47ba77e
SB		 4791 (inputs
4792 `(("gtk+" ,gtk+)
4793 ("readline" ,readline)))
4794 (synopsis "Javascript bindings for GNOME")
f032d0be 4795 (home-page "https://live.gnome.org/Gjs")
f47ba77e
SB		 4796 (description
4797 "Gjs is a javascript binding for GNOME. It's mainly based on spidermonkey
4798javascript engine and the GObject introspection framework.")
4799 (license license:gpl2+)))
329d731b
DH		 4800
4801(define-public gedit
4802 (package
4803 (name "gedit")
6a29c8d3 4804 (version "3.28.1")
329d731b
DH		 4805 (source (origin
4806 (method url-fetch)
4807 (uri (string-append "mirror://gnome/sources/" name "/"
4808 (version-major+minor version) "/"
4809 name "-" version ".tar.xz"))
4810 (sha256
4811 (base32
6a29c8d3 4812 "0791r07d3ixmmfk68lvhp3d5i4vnlrnx10csxwgpfqyfb04vwx7i"))))
329d731b
DH		 4813 (build-system glib-or-gtk-build-system)
4814 (arguments
0d2df50c 4815 `(#:phases
329d731b
DH		 4816 (modify-phases %standard-phases
4817 (add-after
4818 'install 'wrap-gedit
4819 (lambda* (#:key inputs outputs #:allow-other-keys)
4820 (let ((out (assoc-ref outputs "out"))
4821 (gtksourceview (assoc-ref inputs "gtksourceview"))
afc25242
SB		 4822 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
4823 (python-path (getenv "PYTHONPATH")))
329d731b 4824 (wrap-program (string-append out "/bin/gedit")
afc25242 4825 ;; For plugins.
329d731b 4826 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
afc25242 4827 `("PYTHONPATH" ":" prefix (,python-path))
329d731b
DH		 4828 ;; For language-specs.
4829 `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
4830 "/share")))))
4831 #t)))))
4832 (propagated-inputs
4833 `(("dconf" ,dconf)))
4834 (native-inputs
4835 `(("intltool" ,intltool)
b3546174 4836 ("itstool" ,itstool)
329d731b
DH		 4837 ("gobject-introspection" ,gobject-introspection)
4838 ("pkg-config" ,pkg-config)))
4839 (inputs
4840 `(("glib" ,glib)
0d2df50c 4841 ("gspell" ,gspell)
329d731b 4842 ("gtk+" ,gtk+)
b54c2289 4843 ("gtksourceview" ,gtksourceview-3)
329d731b
DH		 4844 ("libpeas" ,libpeas)
4845 ("libxml2" ,libxml2)
329d731b
DH		 4846 ("iso-codes" ,iso-codes)
4847 ("python-pygobject" ,python-pygobject)
4848 ("python" ,python)
4849 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4850 ("libx11" ,libx11)
4851 ("vala" ,vala)
4852 ("adwaita-icon-theme" ,adwaita-icon-theme)
4853 ("libsoup" ,libsoup)
4854 ("gnome-desktop" ,gnome-desktop)))
4855 (home-page "https://wiki.gnome.org/Apps/Gedit")
4856 (synopsis "GNOME text editor")
4857 (description "While aiming at simplicity and ease of use, gedit is a
4858powerful general purpose text editor.")
4859 (license license:gpl2+)))
b7179363
SB		 4860
4861(define-public zenity
4862 (package
4863 (name "zenity")
f8e2b577 4864 (version "3.28.1")
b7179363
SB		 4865 (source (origin
4866 (method url-fetch)
4867 (uri (string-append "mirror://gnome/sources/" name "/"
4868 (version-major+minor version) "/"
4869 name "-" version ".tar.xz"))
4870 (sha256
4871 (base32
f8e2b577 4872 "0swavrkc5ps3fwzy6h6l5mmim0wwy10xrq0qqkay5d0zf9a965yv"))))
b7179363
SB		 4873 (build-system gnu-build-system)
4874 (native-inputs
b94a6ca0 4875 `(("gettext" ,gettext-minimal)
b7179363
SB		 4876 ("itstool" ,itstool)
4877 ("pkg-config" ,pkg-config)))
4878 (inputs
4879 `(("libnotify" ,libnotify)
4880 ("webkitgtk" ,webkitgtk)))
4881 (synopsis "Display graphical dialog boxes from shell scripts")
f032d0be 4882 (home-page "https://www.gnome.org")
b7179363
SB		 4883 (description
4884 "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
4885to display dialog boxes from the commandline and shell scripts.")
4886 (license license:lgpl2.0+)))
60c3627c
SB		 4887
4888(define-public mutter
4889 (package
4890 (name "mutter")
5055d385 4891 (version "3.28.2")
60c3627c 4892 (source (origin
86c44e72
KK		 4893 (method url-fetch)
4894 (uri (string-append "mirror://gnome/sources/" name "/"
4895 (version-major+minor version) "/"
4896 name "-" version ".tar.xz"))
60c3627c
SB		 4897 (sha256
4898 (base32
5055d385 4899 "0ighs1zvlssgq16v1h3vg280za7y448snq65gc5m1zmqqawqkymg"))))
86c44e72
KK		 4900 ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
4901 ;; versions of cogl and clutter. As a result, many of the inputs,
4902 ;; propagated-inputs, and configure flags used in cogl and clutter are
4903 ;; needed here as well.
60c3627c
SB		 4904 (build-system gnu-build-system)
4905 (arguments
4906 '(#:configure-flags
4907 ;; XXX: build fails with [-Werror]:
4908 ;; backends/meta-cursor-renderer.c:112:5: error:
4909 ;; implicit declaration of function ?roundf?
a88d5a0c
MW		 4910 (list "--enable-compile-warnings=minimum"
4911
86c44e72 4912 "--enable-native-backend"
a88d5a0c
MW		 4913
4914 ;; The following flags are needed for the bundled clutter
4915 "--enable-x11-backend=yes"
4916
d633f2f6
RH		 4917 (string-append "--with-xwayland-path="
4918 (assoc-ref %build-inputs "xorg-server-xwayland")
4919 "/bin/Xwayland")
4920
a88d5a0c
MW		 4921 ;; the remaining flags are needed for the bundled cogl
4922 "--enable-cogl-gst"
4923 (string-append "--with-gl-libname="
4924 (assoc-ref %build-inputs "mesa")
f23052a6
DC		 4925 "/lib/libGL.so"))
4926 #:phases
4927 (modify-phases %standard-phases
86c44e72
KK		 4928 ;; Replace references to systemd libraries to elogind references.
4929 (add-before 'configure 'use-elogind
4930 (lambda _
4931 (substitute* (list "configure"
4932 "src/backends/native/meta-launcher.c"
4933 "src/core/main.c")
4934 (("systemd") "elogind"))
4935 #t)))))
60c3627c
SB		 4936 (native-inputs
4937 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4938 ("gobject-introspection" ,gobject-introspection)
4939 ("intltool" ,intltool)
f23052a6
DC		 4940 ("pkg-config" ,pkg-config)
4941 ;; For git build
4942 ("autoconf" ,autoconf)
4943 ("automake" ,automake)
4944 ("libtool" ,libtool)))
60c3627c 4945 (propagated-inputs
a88d5a0c
MW		 4946 `(;; libmutter.pc refers to these:
4947 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4948 ("gtk+" ,gtk+)
4949 ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
4950 ("atk" ,atk)
4951 ("cairo" ,cairo)
4952 ("gdk-pixbuf" ,gdk-pixbuf)
4953 ("glib" ,glib)
60c3627c 4954 ("gtk+" ,gtk+)
a88d5a0c
MW		 4955 ("json-glib" ,json-glib)
4956 ("libinput" ,libinput)
4957 ("libx11" ,libx11)
4958 ("libxcomposite" ,libxcomposite)
4959 ("libxdamage" ,libxdamage)
4960 ("libxext" ,libxext)
4961 ("libxfixes" ,libxfixes)
4962 ("libxkbcommon" ,libxkbcommon)
4963 ("libxrandr" ,libxrandr)
4964 ("mesa" ,mesa)
4965 ("pango" ,pango)
4966 ("udev" ,eudev)
a88d5a0c 4967 ("xinput" ,xinput)))
60c3627c 4968 (inputs
86c44e72
KK		 4969 `(("elogind" ,elogind)
4970 ("gnome-desktop" ,gnome-desktop)
60c3627c 4971 ("libcanberra-gtk" ,libcanberra)
a88d5a0c 4972 ("libgudev" ,libgudev)
60c3627c
SB		 4973 ("libice" ,libice)
4974 ("libsm" ,libsm)
60c3627c 4975 ("libxkbfile" ,libxkbfile)
a88d5a0c 4976 ("libxrandr" ,libxrandr)
86c44e72 4977 ("libxtst" ,libxtst)
60c3627c
SB		 4978 ("startup-notification" ,startup-notification)
4979 ("upower-glib" ,upower)
4980 ("xkeyboard-config" ,xkeyboard-config)
d633f2f6 4981 ("xorg-server-xwayland" ,xorg-server-xwayland)
60c3627c
SB		 4982 ("zenity" ,zenity)))
4983 (synopsis "Window and compositing manager")
f032d0be 4984 (home-page "https://www.gnome.org")
60c3627c
SB		 4985 (description
4986 "Mutter is a window and compositing manager that displays and manages your
4987desktop via OpenGL. Mutter combines a sophisticated display engine using the
4988Clutter toolkit with solid window-management logic inherited from the Metacity
4989window manager.")
86c44e72 4990 (license license:gpl2+)))
685cee87
SB		 4991
4992(define-public gnome-online-accounts
4993 (package
4994 (name "gnome-online-accounts")
fc984c85 4995 (version "3.28.0")
685cee87
SB		 4996 (source (origin
4997 (method url-fetch)
4998 (uri (string-append "mirror://gnome/sources/" name "/"
4999 (version-major+minor version) "/"
5000 name "-" version ".tar.xz"))
5001 (sha256
5002 (base32
fc984c85 5003 "035lmm21imr7ddpzffqabv53g3ggjscmqvlzy3j1qkv00zrlxg47"))))
685cee87
SB		 5004 (build-system glib-or-gtk-build-system)
5005 (native-inputs
5006 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5007 ("gobject-introspection" ,gobject-introspection)
5008 ("intltool" ,intltool)
5009 ("pkg-config" ,pkg-config)
5010 ("xsltproc" ,libxslt)))
5011 (propagated-inputs
5012 `(("glib" ,glib) ; required by goa-1.0.pc
5013 ("gtk+" ,gtk+))) ; required by goa-backend-1.0.pc
5014 (inputs
5015 `(("docbook-xsl" ,docbook-xsl)
5016 ("json-glib" ,json-glib)
5017 ("libsecret" ,libsecret)
5018 ("rest" ,rest)
685cee87
SB		 5019 ("webkitgtk" ,webkitgtk)))
5020 (synopsis "Single sign-on framework for GNOME")
5021 (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
5022 (description
5023 "GNOME Online Accounts provides interfaces so that applications and
5024libraries in GNOME can access the user's online accounts. It has providers for
5025Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
5026Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
5027 (license license:lgpl2.0+)))
df217748
SB		 5028
5029(define-public evolution-data-server
5030 (package
5031 (name "evolution-data-server")
bb10e7c8 5032 (version "3.28.3")
df217748
SB		 5033 (source (origin
5034 (method url-fetch)
5035 (uri (string-append "mirror://gnome/sources/" name "/"
5036 (version-major+minor version) "/"
5037 name "-" version ".tar.xz"))
5038 (sha256
5039 (base32
bb10e7c8 5040 "11sq795115vrcgxl9svscm6wg8isjj784c3d84qzb6z47zq92zj3"))))
743aebd7 5041 (build-system cmake-build-system)
df217748 5042 (arguments
743aebd7 5043 '(;; XXX FIXME: 11/85 tests are failing.
df217748
SB		 5044 #:tests? #f
5045 #:configure-flags
ac033c7b
MB		 5046 (let* ((lib (string-append (assoc-ref %outputs "out")
5047 "/lib"))
5048 (runpaths (map (lambda (s) (string-append
5049 lib "/evolution-data-server/" s))
5050 '("addressbook-backends" "calendar-backends"
5051 "camel-providers" "credential-modules"
5052 "registry-modules"))))
5053 (list "-DENABLE_UOA=OFF" ;disable Ubuntu Online Accounts support
5054 "-DENABLE_GOOGLE=OFF" ;disable Google Contacts support
5055 "-DENABLE_GOOGLE_AUTH=OFF" ;disable Google authentication
5056 "-DENABLE_VALA_BINDINGS=ON"
5057 ;; FIXME: Building against ICU 60 requires C++11 or higher. Remove
c97f2f70
MW		 5058 ;; "-std=gnu++11" when our default compiler is >= GCC6.
5059 ;; FIXME: Temporarily use "-DU_USING_ICU_NAMESPACE=1" until
5060 ;; evolution-data-server has been updated to qualify ICU types
5061 ;; explicitly, as required by ICU 61 and later. See:
5062 ;; <https://ssl.icu-project.org/repos/icu/trunk/icu4c/readme.html#RecBuild>
5063 "-DCMAKE_CXX_FLAGS=-std=gnu++11 -DU_USING_ICU_NAMESPACE=1"
ac033c7b
MB		 5064 (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
5065 (string-append lib "/evolution-data-server;")
5066 (string-join runpaths ";"))
5067 "-DENABLE_INTROSPECTION=ON")) ;required for Vala bindings
df217748
SB		 5068 #:phases
5069 (modify-phases %standard-phases
743aebd7 5070 (add-after 'unpack 'patch-paths
df217748
SB		 5071 (lambda _
5072 (substitute* "tests/test-server-utils/e-test-server-utils.c"
5073 (("/bin/rm") (which "rm")))
ac033c7b
MB		 5074 #t))
5075 (add-before 'configure 'dont-override-rpath
5076 (lambda _
5077 (substitute* "CMakeLists.txt"
5078 ;; CMakeLists.txt hard-codes runpath to just the libdir.
5079 ;; Remove it so the configure flag is respected.
5080 (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
5081 #t)))))
df217748
SB		 5082 (native-inputs
5083 `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
5084 ("gobject-introspection" ,gobject-introspection)
5085 ("gperf" ,gperf)
5086 ("intltool" ,intltool)
5087 ("pkg-config" ,pkg-config)
a73c1cf8 5088 ("vala" ,vala)
743aebd7 5089 ("python" ,python-wrapper)))
df217748
SB		 5090 (propagated-inputs
5091 ;; These are all in the Requires field of .pc files.
5092 `(("gtk+" ,gtk+)
5093 ("libical" ,libical)
5094 ("libsecret" ,libsecret)
5095 ("libsoup" ,libsoup)
5096 ("nss" ,nss)
5097 ("sqlite" ,sqlite)))
5098 (inputs
5099 `(("bdb" ,bdb)
5100 ("gcr" ,gcr)
5101 ("gnome-online-accounts" ,gnome-online-accounts)
891199c6 5102 ("json-glib" ,json-glib)
743aebd7
MB		 5103 ("libgweather" ,libgweather)
5104 ("mit-krb5" ,mit-krb5)
891199c6
MW		 5105 ("openldap" ,openldap)
5106 ("webkitgtk" ,webkitgtk)))
df217748
SB		 5107 (synopsis "Store address books and calendars")
5108 (home-page "https://wiki.gnome.org/Apps/Evolution")
5109 (description
5110 "This package provides a unified backend for programs that work with
5111contacts, tasks, and calendar information. It was originally developed for
5112Evolution (hence the name), but is now used by other packages as well.")
5113 (license license:lgpl2.0)))
bd7dfafa
SB		 5114
5115(define-public caribou
5116 (package
5117 (name "caribou")
fe964bb5 5118 (version "0.4.21")
bd7dfafa
SB		 5119 (source (origin
5120 (method url-fetch)
5121 (uri (string-append "mirror://gnome/sources/" name "/"
5122 (version-major+minor version) "/"
5123 name "-" version ".tar.xz"))
5124 (sha256
5125 (base32
fe964bb5 5126 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
bd7dfafa
SB		 5127 (build-system glib-or-gtk-build-system)
5128 (arguments
5129 '(#:phases
5130 (modify-phases %standard-phases
5131 (add-before
5132 'build 'pre-build
5133 (lambda* (#:key outputs #:allow-other-keys)
5134 (let ((out (assoc-ref outputs "out")))
5135 ;; Use absolute shared library path in Caribou-1.0.typelib.
5136 (substitute* "libcaribou/Makefile"
5137 (("--shared-library=libcaribou.so")
5138 (string-append "--shared-library="
5139 out "/lib/libcaribou.so")))
5140 #t)))
5141 (add-after 'install 'wrap-programs
5142 (lambda* (#:key outputs #:allow-other-keys)
5143 (let* ((out (assoc-ref outputs "out"))
5144 (python-path (getenv "PYTHONPATH"))
5145 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
5146 (for-each
5147 (lambda (prog)
5148 (wrap-program prog
5149 `("PYTHONPATH" ":" prefix (,python-path))
5150 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5151 (list (string-append out "/bin/caribou-preferences")
5152 (string-append out "/libexec/antler-keyboard"))))
5153 #t)))))
5154 (native-inputs
5155 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5156 ("gobject-introspection" ,gobject-introspection)
5157 ("intltool" ,intltool)
5158 ("pkg-config" ,pkg-config)
5159 ("python" ,python-2) ; incompatible with Python 3 (print syntax)
5160 ("vala" ,vala)
5161 ("xsltproc" ,libxslt)))
5162 (propagated-inputs
5163 ;; caribou-1.0.pc refers to all these.
5164 `(("libgee" ,libgee)
5165 ("libxklavier" ,libxklavier)
5166 ("libxtst" ,libxtst)
5167 ("gtk+" ,gtk+)))
5168 (inputs
5169 `(("clutter" ,clutter)
5170 ("dconf" ,dconf)
5171 ("gtk+-2" ,gtk+-2)
5172 ("python-pygobject" ,python2-pygobject)))
5173 (synopsis "Text entry and UI navigation application")
5174 (home-page "https://wiki.gnome.org/Projects/Caribou")
5175 (description
5176 "Caribou is an input assistive technology intended for switch and pointer
5177users.")
5178 (license license:lgpl2.1)))
ba5dd105 5179
ba5dd105
SB		 5180(define-public network-manager
5181 (package
5182 (name "network-manager")
45f80fce 5183 (version "1.10.10")
ba5dd105
SB		 5184 (source (origin
5185 (method url-fetch)
5186 (uri (string-append "mirror://gnome/sources/NetworkManager/"
5187 (version-major+minor version) "/"
5188 "NetworkManager-" version ".tar.xz"))
5189 (sha256
5190 (base32
45f80fce 5191 "1jn3g0f2x1irc88awqp8m3gnpdx1whqqqbdgkbgr4x55s702jki4"))
fd070f35
CM		 5192 (snippet
5193 '(begin
5194 (use-modules (guix build utils))
5195 (substitute* "configure"
5196 ;; Replace libsystemd-login with libelogind.
5197 (("libsystemd-login") "libelogind"))
5198 (substitute* "src/devices/wwan/nm-modem-manager.c"
5199 (("systemd") "elogind"))
5200 (substitute* "src/nm-session-monitor.c"
5201 (("systemd") "elogind"))
5202 (substitute* "./src/nm-logging.c"
6cbee49d
MW		 5203 (("systemd") "elogind"))
5204 #t))))
ba5dd105
SB		 5205 (build-system gnu-build-system)
5206 (outputs '("out"
5207 "doc")) ; 8 MiB of gtk-doc HTML
5208 (arguments
5209 '(#:configure-flags
5210 (let ((out (assoc-ref %outputs "out"))
5211 (doc (assoc-ref %outputs "doc"))
5212 (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
5213 "/sbin/dhclient")))
fd070f35
CM		 5214 (list "--with-systemd-logind=yes" ;In GuixSD, this is provided by elogind.
5215 "--with-consolekit=no"
5216 "--with-crypto=gnutls"
ba5dd105
SB		 5217 "--disable-config-plugin-ibft"
5218 "--sysconfdir=/etc"
5219 "--localstatedir=/var"
5220 (string-append "--with-udev-dir="
5221 out "/lib/udev")
5222 (string-append "--with-dbus-sys-dir="
5223 out "/etc/dbus-1/system.d")
5224 (string-append "--with-html-dir="
5225 doc "/share/gtk-doc/html")
5226 (string-append "--with-dhclient=" dhclient)))
5227 #:phases
5228 (modify-phases %standard-phases
b4f59d87
AW		 5229 (add-before 'configure 'pre-configure
5230 (lambda _
5231 ;; These tests try to test aspects of network-manager's
5232 ;; functionality within restricted containers, but they don't
5233 ;; cope with being already in the Guix build jail as that jail
5234 ;; lacks some features that they would like to proxy over (like
5235 ;; a /sys mount).
d04687dc
HG		 5236 (substitute* '("Makefile.in")
5237 (("src/platform/tests/test-address-linux") " ")
5238 (("src/platform/tests/test-cleanup-linux") " ")
5239 (("src/platform/tests/test-link-linux") " ")
5240 (("src/platform/tests/test-route-linux") " ")
5241 (("src/devices/tests/test-arping") " ")
5242 (("src/devices/tests/test-lldp") " ")
5243 (("src/tests/test-route-manager-linux") " "))
b4f59d87 5244 #t))
45f80fce
RW		 5245 (add-after 'unpack 'delete-failing-tests
5246 (lambda _
5247 ;; FIXME: These four tests fail for unknown reasons.
5248 ;; ERROR:libnm-core/tests/test-general.c:5842:
5249 ;; _json_config_check_valid: assertion failed (res == expected): (1 == 0)
5250 ;; ERROR:libnm-core/tests/test-keyfile.c:647:
5251 ;; test_team_conf_read_invalid: assertion failed: (nm_setting_team_get_config (s_team) == NULL)
5252 ;; ERROR:libnm-core/tests/test-setting.c:907:
5253 ;; _test_team_config_sync: assertion failed: (nm_streq0 (nm_setting_team_get_runner (s_team), runner))
5254 ;; NetworkManager:ERROR:src/platform/tests/test-nmp-object.c:397:
5255 ;; test_cache_link: assertion failed: (nmp_object_is_visible (obj_new))
5256 (substitute* "Makefile.in"
5257 (("libnm-core/tests/test-general") " ")
5258 (("libnm-core/tests/test-keyfile") " ")
5259 (("libnm-core/tests/test-setting\\$\\(EXEEXT\\)") " ")
5260 (("src/platform/tests/test-nmp-object") " "))
5261 #t))
ba5dd105
SB		 5262 (add-before 'check 'pre-check
5263 (lambda _
5264 ;; For the missing /etc/machine-id.
5265 (setenv "DBUS_FATAL_WARNINGS" "0")
5266 #t))
5267 (replace 'install
5268 (lambda _
45f80fce
RW		 5269 (invoke "make"
5270 "sysconfdir=/tmp"
5271 "rundir=/tmp"
5272 "statedir=/tmp"
5273 "nmstatedir=/tmp/nm"
5274 "install")
5275 #t)))))
b93502d6
DC		 5276 (propagated-inputs
5277 `(("glib" ,glib)))
ba5dd105
SB		 5278 (native-inputs
5279 `(("glib:bin" ,glib "bin") ; for gdbus-codegen
5280 ("gobject-introspection" ,gobject-introspection)
d04687dc 5281 ("docbook-xsl" ,docbook-xsl)
ba5dd105 5282 ("intltool" ,intltool)
d04687dc
HG		 5283 ("libxslt" ,libxslt)
5284 ("libxml2" ,libxml2)
ba5dd105
SB		 5285 ("pkg-config" ,pkg-config)
5286 ;; For testing.
5287 ("python" ,python-wrapper)
5288 ("python-dbus" ,python-dbus)
5289 ("python-pygobject" ,python-pygobject)))
5290 (inputs
856ca567
KK		 5291 `(("curl" ,curl)
5292 ("cyrus-sasl" ,cyrus-sasl)
5293 ("dbus-glib" ,dbus-glib)
ba5dd105 5294 ("dnsmasq" ,dnsmasq)
856ca567 5295 ("eudev" ,eudev)
ba5dd105
SB		 5296 ("gnutls" ,gnutls)
5297 ("iptables" ,iptables)
5298 ("isc-dhcp" ,isc-dhcp)
d04687dc 5299 ("jansson" ,jansson)
ba5dd105
SB		 5300 ("libgcrypt" ,libgcrypt)
5301 ("libgudev" ,libgudev)
5302 ("libndp" ,libndp)
5303 ("libnl" ,libnl)
5304 ("libsoup" ,libsoup)
142bdcbc 5305 ("modem-manager" ,modem-manager)
c27e02bf 5306 ("newt" ,newt) ;for the 'nmtui' console interface
ba5dd105
SB		 5307 ("polkit" ,polkit)
5308 ("ppp" ,ppp)
5309 ("readline" ,readline)
fd070f35
CM		 5310 ("util-linux" ,util-linux)
5311 ("elogind" ,elogind)))
ba5dd105 5312 (synopsis "Network connection manager")
f032d0be 5313 (home-page "https://www.gnome.org/projects/NetworkManager/")
ba5dd105
SB		 5314 (description
5315 "NetworkManager is a system network service that manages your network
5316devices and connections, attempting to keep active network connectivity when
5317available. It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
5318devices, and provides VPN integration with a variety of different VPN
5319services.")
29d2f451
LC		 5320 (license license:gpl2+)
5321 (properties '((upstream-name . "NetworkManager")))))
4d62a9d3 5322
f2b96b3a
LC		 5323(define-public network-manager-openvpn
5324 (package
5325 (name "network-manager-openvpn")
0310eb96 5326 (version "1.8.4")
f2b96b3a
LC		 5327 (source (origin
5328 (method url-fetch)
5329 (uri (string-append
5330 "mirror://gnome/sources/NetworkManager-openvpn/"
5331 (version-major+minor version)
5332 "/NetworkManager-openvpn-" version ".tar.xz"))
5333 (sha256
5334 (base32
0310eb96 5335 "0gyrv46h9k17qym48qacq4zpxbap6hi17shn921824zm98m2bdvr"))))
f2b96b3a
LC		 5336 (build-system gnu-build-system)
5337 (arguments
5338 '(#:configure-flags '("--enable-absolute-paths")))
5339 (native-inputs
5340 `(("pkg-config" ,pkg-config)
5341 ("intltool" ,intltool)))
5342 (inputs
5343 `(("gtk+" ,gtk+)
5344 ("openvpn" ,openvpn)
5345 ("network-manager" ,network-manager)
5346 ("network-manager-applet" ,network-manager-applet) ;for libnma
5347 ("libsecret" ,libsecret)))
5348 (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
5349 (synopsis "OpenVPN plug-in for NetworkManager")
5350 (description
5351 "This extension of NetworkManager allows it to take care of connections
5352to virtual private networks (VPNs) via OpenVPN.")
5353 (license license:gpl2+)
5354 (properties `((upstream-name . "NetworkManager-openvpn")))))
5355
e5e1df4d
DC		 5356(define-public mobile-broadband-provider-info
5357 (package
5358 (name "mobile-broadband-provider-info")
22345a8e 5359 (version "20170310")
e5e1df4d
DC		 5360 (source (origin
5361 (method url-fetch)
5362 (uri (string-append
5363 "mirror://gnome/sources/"
5364 "mobile-broadband-provider-info/" version "/"
5365 "mobile-broadband-provider-info-" version ".tar.xz"))
5366 (sha256
5367 (base32
22345a8e 5368 "0fxm11x8k9hxjg8l5inaldfmmjnwkay3ibjv899jra03bv4h6kql"))))
e5e1df4d
DC		 5369 (build-system gnu-build-system)
5370 (arguments
5371 `(#:tests? #f)) ; No tests
5372 (home-page "https://wiki.gnome.org/Projects/NetworkManager")
5373 (synopsis "Database of broadband connection configuration")
5374 (description "Database of broadband connection configuration.")
5375 (license license:public-domain)))
5376
4d62a9d3
SB		 5377(define-public network-manager-applet
5378 (package
5379 (name "network-manager-applet")
9f475e3c 5380 (version "1.8.14")
4d62a9d3
SB		 5381 (source (origin
5382 (method url-fetch)
5383 (uri (string-append "mirror://gnome/sources/" name "/"
5384 (version-major+minor version) "/"
5385 name "-" version ".tar.xz"))
5386 (sha256
5387 (base32
9f475e3c 5388 "1js0i2kwfklahsn77qgxzdscy33drrlym3mrj1qhlw0zf8ri56ya"))))
4d62a9d3 5389 (build-system glib-or-gtk-build-system)
240cee8a 5390 (arguments '(#:configure-flags '("--disable-migration")))
4d62a9d3
SB		 5391 (native-inputs
5392 `(("intltool" ,intltool)
5393 ("gobject-introspection" ,gobject-introspection)
5394 ("pkg-config" ,pkg-config)))
5395 (propagated-inputs
5396 ;; libnm-gtk.pc refers to all these.
5397 `(("dbus-glib" ,dbus-glib)
5398 ("gtk+" ,gtk+)
5399 ("network-manager" ,network-manager)))
5400 (inputs
5401 `(("iso-codes" ,iso-codes)
5402 ("libgudev" ,libgudev)
5403 ("libnotify" ,libnotify)
2116bfb3 5404 ("libsecret" ,libsecret)
240cee8a
KK		 5405 ("libselinux" ,libselinux)
5406 ("jansson" ,jansson) ; for team support
5407 ("modem-manager" ,modem-manager)))
4d62a9d3 5408 (synopsis "Applet for managing network connections")
f032d0be 5409 (home-page "https://www.gnome.org/projects/NetworkManager/")
4d62a9d3
SB		 5410 (description
5411 "This package contains a systray applet for NetworkManager. It displays
5412the available networks and allows users to easily switch between them.")
5413 (license license:gpl2+)))
56196594
RW		 5414
5415(define-public libxml++
5416 (package
5417 (name "libxml++")
8344a85e 5418 (version "3.0.1")
56196594
RW		 5419 (source (origin
5420 (method url-fetch)
5421 (uri (string-append "mirror://gnome/sources/" name "/"
5422 (version-major+minor version) "/"
5423 name "-" version ".tar.xz"))
5424 (sha256
5425 (base32
8344a85e 5426 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
56196594
RW		 5427 (build-system gnu-build-system)
5428 ;; libxml++-3.0.pc refers to all these.
5429 (propagated-inputs
5430 `(("libxml2" ,libxml2)
5431 ("glibmm" ,glibmm)))
5432 (native-inputs
5433 `(("perl" ,perl)
5434 ("pkg-config" ,pkg-config)))
5435 (home-page "http://libxmlplusplus.sourceforge.net/")
5436 (synopsis "C++ wrapper for XML parser library libxml2")
5437 (description
5438 "This package provides a C++ wrapper for the XML parser library
5439libxml2.")
5440 (license license:lgpl2.1+)))
df12f04a 5441
b61d9627
AW		 5442(define-public libxml++-2
5443 (package
5444 (inherit libxml++)
5445 (name "libxml++")
5446 (version "2.40.1")
5447 (source (origin
5448 (method url-fetch)
5449 (uri (string-append "mirror://gnome/sources/" name "/"
5450 (version-major+minor version) "/"
5451 name "-" version ".tar.xz"))
5452 (sha256
5453 (base32
5454 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
5455
df12f04a
SB		 5456(define-public gdm
5457 (package
5458 (name "gdm")
0a76f2bd 5459 (version "3.28.2")
df12f04a
SB		 5460 (source (origin
5461 (method url-fetch)
5462 (uri (string-append "mirror://gnome/sources/" name "/"
5463 (version-major+minor version) "/"
5464 name "-" version ".tar.xz"))
feccc810 5465 (patches (search-patches "gdm-CVE-2018-14424.patch"))
df12f04a
SB		 5466 (sha256
5467 (base32
0a76f2bd 5468 "0wdm1503x66n1crdlmzmincbd2hccpxsdgjsl5anx3yjpdzs0hb0"))))
957dbc0a 5469 (build-system glib-or-gtk-build-system)
df12f04a
SB		 5470 (arguments
5471 '(#:configure-flags
af37e6bb 5472 `("--without-plymouth"
957dbc0a 5473 "--disable-systemd-journal"
51bc8357
TS		 5474
5475 ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
5476 ;; instead of having to replace it (i.e., stopping the mingetty
5477 ;; service for TTY 1 before starting GDM).
5478 "--with-initial-vt=7"
5479
89c86562
TS		 5480 ;; Use '/etc/environment' for locale settings instead of the
5481 ;; systemd-specific '/etc/locale.conf'.
5482 "--with-lang-file=/etc/environment"
5483
af37e6bb
AW		 5484 "--localstatedir=/var"
5485 ,(string-append "--with-default-path="
5486 (string-join '("/run/setuid-programs"
5487 "/run/current-system/profile/bin"
5488 "/run/current-system/profile/sbin")
957dbc0a
AW		 5489 ":"))
5490 ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
5491 ;; XDG_DATA_DIRS so that it finds its schemas.
5492 "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
df12f04a
SB		 5493 #:phases
5494 (modify-phases %standard-phases
5495 (add-before
5496 'configure 'pre-configure
def6d6b6 5497 (lambda* (#:key inputs #:allow-other-keys)
df12f04a
SB		 5498 ;; We don't have <systemd/sd-daemon.h>.
5499 (substitute* '("common/gdm-log.c"
5500 "daemon/gdm-server.c"
5501 "daemon/gdm-session-worker.c"
5502 "daemon/gdm-session-worker-job.c")
5503 (("#include <systemd/sd-daemon\\.h>") ""))
5504 ;; Use elogind for sd-login.
5505 (substitute* '("common/gdm-common.c"
5506 "daemon/gdm-manager.c"
5507 "libgdm/gdm-user-switching.c")
5508 (("#include <systemd/sd-login\\.h>")
5509 "#include <elogind/sd-login.h>"))
957dbc0a
AW		 5510 ;; Check for elogind.
5511 (substitute* '("configure")
5512 (("libsystemd")
5513 "libelogind"))
af37e6bb
AW		 5514 ;; Look for system-installed sessions in
5515 ;; /run/current-system/profile/share.
5516 (substitute* '("libgdm/gdm-sessions.c"
5517 "daemon/gdm-session.c"
5518 "daemon/gdm-display.c"
5519 "daemon/gdm-launch-environment.c")
5520 (("DATADIR \"/x")
5521 "\"/run/current-system/profile/share/x")
5522 (("DATADIR \"/wayland")
5523 "\"/run/current-system/profile/share/wayland")
5524 (("DATADIR \"/gnome")
5525 "\"/run/current-system/profile/share/gnome"))
c9ff92b5 5526 (let ((propagate '("GDM_CUSTOM_CONF"
1f564c15 5527 "GDM_DBUS_DAEMON"
c9ff92b5 5528 "GDM_X_SERVER"
41fa9f18 5529 "GDM_X_SESSION"
c9ff92b5
TS		 5530 ;; XXX: Remove this once GNOME Shell is
5531 ;; a dependency of GDM.
5532 "XDG_DATA_DIRS")))
5533 (substitute* "daemon/gdm-session.c"
5534 (("set_up_session_environment \\(self\\);")
5535 (apply string-append
5536 "set_up_session_environment (self);\n"
5537 (map (lambda (name)
5538 (string-append
5539 "gdm_session_set_environment_variable "
5540 "(self, \"" name "\","
5541 "g_getenv (\"" name "\"));\n"))
5542 propagate)))))
e0e6756f 5543 ;; Look for custom GDM conf in /run/current-system.
950d8e5d 5544 (substitute* '("common/gdm-settings-desktop-backend.c")
e0e6756f 5545 (("GDM_CUSTOM_CONF")
e57c2adb
TS		 5546 (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
5547 " ? g_getenv(\"GDM_CUSTOM_CONF\")"
5548 " : GDM_CUSTOM_CONF)")))
e0e6756f
AW		 5549 ;; Use service-supplied path to X.
5550 (substitute* '("daemon/gdm-server.c")
5551 (("\\(X_SERVER X_SERVER_ARG_FORMAT")
5552 "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
5553 (substitute* '("daemon/gdm-x-session.c")
1f564c15
TS		 5554 (("\"dbus-daemon\"")
5555 "g_getenv (\"GDM_DBUS_DAEMON\")")
e0e6756f 5556 (("X_SERVER")
41fa9f18
TS		 5557 "g_getenv (\"GDM_X_SERVER\")")
5558 (("GDMCONFDIR \"/Xsession\"")
5559 "g_getenv (\"GDM_X_SESSION\")"))
def6d6b6
TS		 5560 ;; Use an absolute path for GNOME Session.
5561 (substitute* "daemon/gdm-launch-environment.c"
5562 (("\"gnome-session\"")
5563 (string-append "\"" (assoc-ref inputs "gnome-session")
5564 "/bin/gnome-session\"")))
69544798
TS		 5565 #t))
5566 ;; GDM needs GNOME Session to run these applications. We link
5567 ;; their autostart files in `share/gdm/greeter/autostart'
5568 ;; because GDM explicitly tells GNOME Session to look there.
5569 ;;
5570 ;; XXX: GNOME Shell should be linked here too, but currently
5571 ;; GNOME Shell depends on GDM.
5572 (add-after 'install 'link-autostart-files
5573 (lambda* (#:key inputs outputs #:allow-other-keys)
5574 (let* ((out (assoc-ref outputs "out"))
5575 (autostart (string-append out "/share/gdm/"
5576 "greeter/autostart"))
5577 (settings (assoc-ref inputs "gnome-settings-daemon")))
5578 (mkdir-p autostart)
5579 (with-directory-excursion autostart
5580 (for-each (lambda (desktop)
5581 (symlink desktop (basename desktop)))
5582 (find-files (string-append settings "/etc/xdg"))))
5583 #t))))))
df12f04a
SB		 5584 (native-inputs
5585 `(("dconf" ,dconf)
5586 ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5587 ("gobject-introspection" ,gobject-introspection)
5588 ("intltool" ,intltool)
5589 ("itstool" ,itstool)
5590 ("pkg-config" ,pkg-config)
5591 ("xmllint" ,libxml2)))
5592 (inputs
5593 `(("accountsservice" ,accountsservice)
5594 ("check" ,check) ; for testing
5595 ("elogind" ,elogind)
def6d6b6 5596 ("gnome-session" ,gnome-session)
69544798 5597 ("gnome-settings-daemon" ,gnome-settings-daemon)
df12f04a
SB		 5598 ("gtk+" ,gtk+)
5599 ("iso-codes" ,iso-codes)
5600 ("libcanberra" ,libcanberra)
5601 ("linux-pam" ,linux-pam)))
5602 (synopsis "Display manager for GNOME")
f032d0be 5603 (home-page "https://wiki.gnome.org/Projects/GDM/")
df12f04a
SB		 5604 (description
5605 "GNOME Display Manager is a system service that is responsible for
5606providing graphical log-ins and managing local and remote displays.")
5607 (license license:gpl2+)))
8e1dd04f
SB		 5608
5609(define-public libgtop
5610 (package
5611 (name "libgtop")
4f80158d 5612 (version "2.38.0")
8e1dd04f
SB		 5613 (source (origin
5614 (method url-fetch)
5615 (uri (string-append "mirror://gnome/sources/" name "/"
5616 (version-major+minor version) "/"
5617 name "-" version ".tar.xz"))
5618 (sha256
5619 (base32
4f80158d 5620 "04mnxgzyb26wqk6qij4iw8cxwl82r8pcsna5dg8vz2j3pdi0wv2g"))))
8e1dd04f
SB		 5621 (build-system gnu-build-system)
5622 (native-inputs
5623 `(("gobject-introspection" ,gobject-introspection)
5624 ("intltool" ,intltool)
5625 ("perl" ,perl)
5626 ("pkg-config" ,pkg-config)))
5627 (propagated-inputs
5628 `(("glib" ,glib))) ; required by libgtop-2.0.pc
5629 (synopsis "Portable system access library")
5630 (home-page "https://www.gnome.org/")
5631 (description
5632 "LibGTop is a library to get system specific data such as CPU and memory
5633usage and information about running processes.")
5634 (license license:gpl2+)))
b96c4260
SB		 5635
5636(define-public gnome-bluetooth
5637 (package
5638 (name "gnome-bluetooth")
fd3b1171 5639 (version "3.28.0")
b96c4260
SB		 5640 (source (origin
5641 (method url-fetch)
5642 (uri (string-append "mirror://gnome/sources/" name "/"
5643 (version-major+minor version) "/"
5644 name "-" version ".tar.xz"))
5645 (sha256
5646 (base32
fd3b1171
RW		 5647 "0q7yzklrlayj99risj096mr5x35anx94wvr6nbf6pwbvvzv7453p"))))
5648 (build-system meson-build-system)
b96c4260
SB		 5649 (native-inputs
5650 `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
fd3b1171 5651 ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
b96c4260
SB		 5652 ("gobject-introspection" ,gobject-introspection)
5653 ("intltool" ,intltool)
5654 ("pkg-config" ,pkg-config)
5655 ("xmllint" ,libxml2)))
5656 (propagated-inputs
5657 ;; gnome-bluetooth-1.0.pc refers to all these.
5658 `(("gtk+" ,gtk+)
5659 ("udev" ,eudev)))
5660 (inputs
5661 `(("libcanberra" ,libcanberra)
5662 ("libnotify" ,libnotify)))
5663 (synopsis "GNOME Bluetooth subsystem")
5664 (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
5665 (description
5666 "This package contains tools for managing and manipulating Bluetooth
5667devices using the GNOME desktop.")
5668 (license license:lgpl2.1+)))
b645146f
SB		 5669
5670(define-public gnome-control-center
5671 (package
5672 (name "gnome-control-center")
59dac026 5673 (version "3.28.2")
b645146f
SB		 5674 (source (origin
5675 (method url-fetch)
5676 (uri (string-append "mirror://gnome/sources/" name "/"
5677 (version-major+minor version) "/"
5678 name "-" version ".tar.xz"))
5679 (sha256
5680 (base32
59dac026
RW		 5681 "0d6pjdbsra16nav8201kaadja5yma92bhziki9601ilk2ry3v7pz"))))
5682 (build-system meson-build-system)
b645146f 5683 (arguments
59dac026
RW		 5684 '(#:glib-or-gtk? #t
5685 #:configure-flags
5686 (list "-Dcheese=false")
5687 #:phases
b645146f
SB		 5688 (modify-phases %standard-phases
5689 (add-before 'configure 'patch-paths
5690 (lambda* (#:key inputs #:allow-other-keys)
5691 (let ((libc (assoc-ref inputs "libc"))
5692 (tzdata (assoc-ref inputs "tzdata")))
5693 (substitute* "panels/datetime/tz.h"
5694 (("/usr/share/zoneinfo/zone.tab")
5695 (string-append tzdata "/share/zoneinfo/zone.tab")))
5696 (substitute* "panels/datetime/test-endianess.c"
5697 (("/usr/share/locale")
5698 (string-append libc "/share/locale")))
5699 #t))))))
5700 (native-inputs
5701 `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
59dac026 5702 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
b645146f
SB		 5703 ("intltool" ,intltool)
5704 ("pkg-config" ,pkg-config)
5705 ("xsltproc" ,libxslt)))
5706 (inputs
5707 `(("accountsservice" ,accountsservice)
5708 ("clutter-gtk" ,clutter-gtk)
5709 ("colord-gtk" ,colord-gtk)
5710 ("cups" ,cups)
5711 ("dconf" ,dconf)
5712 ("docbook-xsl" ,docbook-xsl)
3446ffb5 5713 ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
b645146f
SB		 5714 ("gnome-bluetooth" ,gnome-bluetooth)
5715 ("gnome-desktop" ,gnome-desktop)
5716 ("gnome-online-accounts" ,gnome-online-accounts)
5717 ("gnome-settings-daemon" ,gnome-settings-daemon)
5718 ("grilo" ,grilo)
5719 ("ibus" ,ibus)
5720 ("libcanberra" ,libcanberra)
5721 ("libgudev" ,libgudev)
5722 ("libgtop" ,libgtop)
5723 ("libpwquality" ,libpwquality)
5724 ("libsoup" ,libsoup)
5725 ("libxml2" ,libxml2)
5726 ("libwacom" ,libwacom)
5727 ("mesa" ,mesa)
5728 ("mit-krb5" ,mit-krb5)
5729 ("modem-manager" ,modem-manager)
5730 ("network-manager-applet" ,network-manager-applet)
5731 ("polkit" ,polkit)
5732 ("pulseaudio" ,pulseaudio)
5733 ("smbclient" ,samba)
5734 ("tzdata" ,tzdata)
5735 ("upower" ,upower)))
5736 (synopsis "Utilities to configure the GNOME desktop")
5737 (home-page "https://www.gnome.org/")
5738 (description
5739 "This package contains configuration applets for the GNOME desktop,
5740allowing to set accessibility configuration, desktop fonts, keyboard and mouse
5741properties, sound setup, desktop theme and background, user interface
5742properties, screen resolution, and other GNOME parameters.")
5743 (license license:gpl2+)))
a4df5756
SB		 5744
5745(define-public gnome-shell
5746 (package
5747 (name "gnome-shell")
1f9c2351 5748 (version "3.24.3")
a4df5756
SB		 5749 (source (origin
5750 (method url-fetch)
5751 (uri (string-append "mirror://gnome/sources/" name "/"
5752 (version-major+minor version) "/"
5753 name "-" version ".tar.xz"))
5754 (sha256
5755 (base32
a76d0f03
LC		 5756 "1f20x36ymkp1j667hb7s7byly2gqc4m0anldy3qwp38vm8437caq"))
5757 (patches (search-patches "gnome-shell-theme.patch"))
5758 (modules '((guix build utils)))
5759 (snippet
5760 #~(begin
5761 ;; CSS files have to be regenerated from the .scss source
5762 ;; that 'gnome-shell-theme.patch' modifies.
5763 (for-each delete-file
5764 (find-files "data/theme"
5765 "^gnome-shell.*\\.css$"))
5766
5767 ;; Copy images for use on the GDM log-in screen.
5768 (copy-file #$(file-append %artwork-repository
5769 "/slim/0.x/background.png")
5770 "data/theme/guix-background.png")
5771 (invoke #+(file-append inkscape "/bin/inkscape")
5772 "--export-png=data/theme/guix-logo.png"
5773 #$(file-append %artwork-repository
5774 "/logo/Guix-horizontal-white.svg"))
5775 #t))))
a4df5756
SB		 5776 (build-system glib-or-gtk-build-system)
5777 (arguments
5778 '(#:phases
5779 (modify-phases %standard-phases
a76d0f03
LC		 5780 (add-before 'build 'rebuild-css
5781 (lambda _
5782 ;; Rebuild the CSS files from the .scss files that our patch
5783 ;; modifies.
5784 (invoke "make" "-C" "data"
5785 "theme/gnome-shell.css"
5786 "theme/gnome-shell-high-contrast.css")))
a4df5756
SB		 5787 (replace 'install
5788 (lambda* (#:key outputs #:allow-other-keys)
5789 (let* ((out (assoc-ref outputs "out"))
5790 (keysdir (string-append
5791 out "/share/gnome-control-center/keybindings")))
5792 (zero? (system* "make"
5793 (string-append "keysdir=" keysdir)
5794 "install")))))
5795 (add-after
5796 'install 'wrap-programs
5797 (lambda* (#:key outputs #:allow-other-keys)
5798 (let ((out (assoc-ref outputs "out"))
5799 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
5800 (python-path (getenv "PYTHONPATH")))
5801 (wrap-program (string-append out "/bin/gnome-shell")
5802 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
5803 (for-each
5804 (lambda (prog)
5805 (wrap-program (string-append out "/bin/" prog)
5806 `("PYTHONPATH" ":" prefix (,python-path))
5807 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5808 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
5809 #t))))))
5810 (native-inputs
5811 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5812 ("gobject-introspection" ,gobject-introspection)
5813 ("intltool" ,intltool)
5814 ("pkg-config" ,pkg-config)
5815 ("python" ,python)
a76d0f03
LC		 5816 ("xsltproc" ,libxslt)
5817 ("ruby-sass" ,ruby-sass)))
a4df5756
SB		 5818 (inputs
5819 `(("accountsservice" ,accountsservice)
5820 ("caribou" ,caribou)
5821 ("docbook-xsl" ,docbook-xsl)
5822 ("evolution-data-server" ,evolution-data-server)
5823 ("gcr" ,gcr)
5824 ("gdm" ,gdm)
5825 ("gjs" ,gjs)
5826 ("gnome-bluetooth" ,gnome-bluetooth)
5827 ("gnome-control-center" ,gnome-control-center)
5828 ("gnome-desktop" ,gnome-desktop)
5829 ("gnome-settings-daemon" ,gnome-settings-daemon)
5830 ("gst-plugins-base" ,gst-plugins-base)
5831 ("ibus" ,ibus)
5832 ("libcanberra" ,libcanberra)
5833 ("libcroco" ,libcroco)
5834 ("libgweather" ,libgweather)
5835 ("libsoup" ,libsoup)
5836 ("mesa-headers" ,mesa-headers)
5837 ("mutter" ,mutter)
5838 ("network-manager-applet" ,network-manager-applet)
5839 ("polkit" ,polkit)
5840 ("pulseaudio" ,pulseaudio)
5841 ("python-pygobject" ,python-pygobject)
5842 ("startup-notification" ,startup-notification)
5843 ("telepathy-logger" ,telepathy-logger)
5844 ("upower" ,upower)
30e760f0
MB		 5845 ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
5846 ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
5847 ("librsvg" ,librsvg)
5848 ("geoclue" ,geoclue)
a4df5756
SB		 5849 ;; XXX: required by libgjs.la.
5850 ("readline" ,readline)))
5851 (synopsis "Desktop shell for GNOME")
5852 (home-page "https://wiki.gnome.org/Projects/GnomeShell")
5853 (description
5854 "GNOME Shell provides core user interface functions for the GNOME desktop,
5855like switching to windows and launching applications.")
5856 (license license:gpl2+)))
c3f29bc9
RS		 5857
5858(define-public gtk-vnc
5859 (package
5860 (name "gtk-vnc")
965ff023 5861 (version "0.9.0")
c3f29bc9
RS		 5862 (source
5863 (origin
5864 (method url-fetch)
5865 (uri (string-append "mirror://gnome/sources/" name "/"
5866 (version-major+minor version) "/"
5867 name "-" version ".tar.xz"))
5868 (sha256
5869 (base32
965ff023 5870 "1dya1wc9vis8h0fv625pii1n70cckf1xjg1m2hndz989d118i6is"))))
c3f29bc9
RS		 5871 (build-system gnu-build-system)
5872 (arguments
5873 '(#:configure-flags '("--with-gtk=3.0")))
5874 (propagated-inputs
5875 `(("gtk+" ,gtk+))) ; required by gtk-vnc-2.0.pc.
5876 (inputs
5877 `(("cyrus-sasl" ,cyrus-sasl)
5878 ("gnutls" ,gnutls)
5879 ("libgcrypt" ,libgcrypt)
5880 ("pulseaudio" ,pulseaudio)))
5881 (native-inputs
5882 `(("glib:bin" ,glib "bin")
5883 ("gobject-introspection" ,gobject-introspection)
5884 ("intltool" ,intltool)
5885 ("pkg-config" ,pkg-config)
2f17e939 5886 ("python-wrapper" ,python-wrapper)
c3f29bc9
RS		 5887 ("vala" ,vala)))
5888 (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
5889 (synopsis "VNC viewer widget for GTK+")
5890 (description
5891 "GTK-VNC is a VNC viewer widget for GTK+, used by remote desktop viewing
5892applications, for instance the Vinagre client, GNOME Boxes and virt-viewer.
5893GTK-VNC implements client side RFB protocol and authentication extensions such
5894as SASL, TLS and VeNCrypt. Additionally it supports encoding extensions.")
5895 (license license:lgpl2.1+)))
8b877545 5896
dc69fe18
MW		 5897(define-public gnome-autoar
5898 (package
5899 (name "gnome-autoar")
c7da8510 5900 (version "0.2.3")
dc69fe18
MW		 5901 (source (origin
5902 (method url-fetch)
5903 (uri (string-append "mirror://gnome/sources/" name "/"
5904 (version-major+minor version) "/"
5905 name "-" version ".tar.xz"))
5906 (sha256
5907 (base32
c7da8510 5908 "02i4zgqqqj56h7bcys6dz7n78m4nj2x4dv1ggjmnrk98n06xpsax"))))
dc69fe18
MW		 5909 (build-system glib-or-gtk-build-system)
5910 (native-inputs
5911 `(("gnome-common" ,gnome-common)
5912 ("gobject-introspection" ,gobject-introspection)
5913 ("pkg-config" ,pkg-config)))
5914 (propagated-inputs
5915 `(("libarchive" ,libarchive))) ; XXX document why
5916 (inputs
5917 `(("gtk+" ,gtk+)
5918 ("nettle" ,nettle))) ; XXX: required by libarchive.pc
5919 (synopsis "Archives integration support for GNOME")
5920 (home-page "https://git.gnome.org/browse/gnome-autoar/")
5921 (description
5922 "GNOME Autoar is a library which makes creating and extracting archives
5923easy, safe, and automatic.")
5924 (license license:lgpl2.1+)))
5925
b64e217f
MW		 5926(define-public tracker
5927 (package
5928 (name "tracker")
c8bdf589 5929 (version "2.0.4")
b64e217f
MW		 5930 (source (origin
5931 (method url-fetch)
5932 (uri (string-append "mirror://gnome/sources/" name "/"
5933 (version-major+minor version) "/"
5934 name "-" version ".tar.xz"))
5935 (sha256
5936 (base32
c8bdf589 5937 "1mfc5lv820kr7ssi7hldn25gmshh65k19kh478qjsnb64sshsbyf"))))
b64e217f 5938 (build-system glib-or-gtk-build-system)
c8bdf589
RW		 5939 (arguments
5940 `(#:phases
5941 (modify-phases %standard-phases
5942 (add-after 'unpack 'disable-broken-tests
5943 (lambda _
5944 ;; FIXME: Most of these fail with GLib-GIO-FATAL-ERROR: Settings
5945 ;; schema 'org.freedesktop.Tracker.FTS' is not installed.
5946 (substitute* "tests/libtracker-miner/Makefile.in"
5947 (("tracker-file-notifier-test\\$\\(EXEEXT\\)") "")
5948 (("tracker-miner-fs-test\\$\\(EXEEXT\\)") "")
5949 (("tracker-monitor-test\\$\\(EXEEXT\\)") ""))
5950 (substitute* "tests/libtracker-fts/Makefile.in"
5951 (("tracker-fts-test\\$\\(EXEEXT\\)") ""))
5952 (substitute* "tests/libtracker-data/Makefile.in"
5953 (("tracker-ontology\\$\\(EXEEXT\\)") "")
5954 (("tracker-ontology-change\\$\\(EXEEXT\\)") "")
5955 (("tracker-backup\\$\\(EXEEXT\\)") "")
5956 (("tracker-sparql-blank\\$\\(EXEEXT\\)") "")
5957 (("tracker-sparql\\$\\(EXEEXT\\)") ""))
5958 ;; These fail because the SPARQL backend could not be loaded.
5959 ;; That's because /etc/machine-id is missing, but
5960 ;; DBUS_FATAL_WARNINGS does not help here.
5961 (substitute* "tests/libtracker-sparql/Makefile.in"
5962 (("tracker-gb-737023-test\\$\\(EXEEXT\\)") "")
5963 (("tracker-sparql-test\\$\\(EXEEXT\\)") ""))
5964 (substitute* "tests/tracker-steroids/Makefile.in"
5965 (("tracker-test\\$\\(EXEEXT\\)") ""))
5966 #t))
5967 ;; Two tests fail if LANG is not set.
5968 (add-before 'check 'pre-check
5969 (lambda _
5970 (setenv "LANG" "en_US.UTF-8")
5971 ;; For the missing /etc/machine-id.
5972 (setenv "DBUS_FATAL_WARNINGS" "0")
5973 #t)))))
b64e217f
MW		 5974 (native-inputs
5975 `(("gnome-common" ,gnome-common)
5976 ("gobject-introspection" ,gobject-introspection)
5977 ("intltool" ,intltool)
5978 ("pkg-config" ,pkg-config)
5979 ("vala" ,vala)))
5980 (inputs
5981 `(("gtk+" ,gtk+)
5982 ("dbus" ,dbus)
5983 ("gstreamer" ,gstreamer)
5984 ("gst-plugins-base" ,gst-plugins-base)
44ed6284 5985 ("sqlite" ,sqlite)
b64e217f 5986 ("nettle" ,nettle) ; XXX why is this needed?
c8bdf589 5987 ("python" ,python)
b64e217f
MW		 5988 ("poppler" ,poppler)
5989 ("libgsf" ,libgsf)
5990 ("libexif" ,libexif)
5991 ("libpng" ,libpng)
5992 ("libtiff" ,libtiff)
5993 ("libvorbis" ,libvorbis)
5994 ("flac" ,flac)
5995 ("totem-pl-parser" ,totem-pl-parser)
5996 ("zlib" ,zlib)
5997 ("exempi" ,exempi)
5998 ("libxml2" ,libxml2)
5999 ("upower" ,upower)
b64e217f
MW		 6000 ("libunistring" ,libunistring)
6001 ("giflib" ,giflib)
0ef48cd9 6002 ("json-glib" ,json-glib)
b64e217f
MW		 6003 ("openjpeg" ,openjpeg-1)
6004 ("libosinfo" ,libosinfo)
6005 ("libcue" ,libcue)
6006 ("libseccomp" ,libseccomp)
0ef48cd9 6007 ("libsoup" ,libsoup)
b64e217f 6008 ("libuuid" ,util-linux)))
b64e217f
MW		 6009 (synopsis "Metadata database, indexer and search tool")
6010 (home-page "https://wiki.gnome.org/Projects/Tracker")
6011 (description
6012 "Tracker is an advanced framework for first class objects with associated
6013metadata and tags. It provides a one stop solution for all metadata, tags,
6014shared object databases, search tools and indexing.")
6015 ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
6016 ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
6017 (license (list license:gpl2+
6018 license:lgpl2.1+
6019 license:lgpl2.0+))))
6020
8b877545
RS		 6021(define-public nautilus
6022 (package
6023 (name "nautilus")
caf6c363 6024 (version "3.28.1")
8b877545
RS		 6025 (source (origin
6026 (method url-fetch)
6027 (uri (string-append "mirror://gnome/sources/" name "/"
6028 (version-major+minor version) "/"
6029 name "-" version ".tar.xz"))
6030 (sha256
6031 (base32
caf6c363 6032 "19dhpa2ylrg8d5274lahy7xqr2p9z3jnq1h4qmsh95czkpy7is4w"))))
35e2d0cf 6033 (build-system meson-build-system)
8b877545 6034 (arguments
35e2d0cf 6035 '(#:glib-or-gtk? #t
8b877545
RS		 6036 ;; XXX: FAIL: check-nautilus
6037 ;; Settings schema 'org.gnome.nautilus.preferences' is not installed
6038 #:tests? #f))
6039 (native-inputs
35e2d0cf
R		 6040 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6041 ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
6042 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8b877545
RS		 6043 ("gobject-introspection" ,gobject-introspection)
6044 ("intltool" ,intltool)
6045 ("pkg-config" ,pkg-config)))
8b877545 6046 (inputs
8b877545 6047 `(("dconf" ,dconf)
caf6c363 6048 ("gexiv2" ,gexiv2)
dd05e731 6049 ("gvfs" ,gvfs)
8b877545
RS		 6050 ("exempi" ,exempi)
6051 ("gnome-desktop" ,gnome-desktop)
09d88905 6052 ("gnome-autoar" ,gnome-autoar)
35e2d0cf
R		 6053 ("libselinux" ,libselinux)
6054 ("nettle" ,nettle) ; XXX required by libarchive.pc via gnome-autoar
09d88905 6055 ("tracker" ,tracker)
ce6027bf
SB		 6056 ;; XXX: gtk+ is required by libnautilus-extension.pc
6057 ;;
6058 ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
6059 ;; package. See:
6060 ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
6061 ("gtk+" ,gtk+)
8b877545
RS		 6062 ("libexif" ,libexif)
6063 ("libxml2" ,libxml2)))
6064 (synopsis "File manager for GNOME")
6065 (home-page "https://wiki.gnome.org/Apps/Nautilus")
6066 (description
6067 "Nautilus (Files) is a file manager designed to fit the GNOME desktop
6068design and behaviour, giving the user a simple way to navigate and manage its
6069files.")
6070 (license license:gpl2+)))
3c697ffd
JR		 6071
6072(define-public baobab
6073 (package
6074 (name "baobab")
d233d373 6075 (version "3.28.0")
3c697ffd
JR		 6076 (source (origin
6077 (method url-fetch)
6078 (uri (string-append
6079 "mirror://gnome/sources/" name "/"
6080 (version-major+minor version) "/"
6081 name "-" version ".tar.xz"))
6082 (sha256
6083 (base32
d233d373
RJ		 6084 "0qsx7vx5c3n4yxlxbr11sppw7qwcv9z3g45b5xb9y7wxw5lv42sk"))))
6085 (build-system meson-build-system)
6086 (arguments
6087 '(#:glib-or-gtk? #t))
3c697ffd
JR		 6088 (native-inputs
6089 `(("intltool" ,intltool)
6090 ("pkg-config" ,pkg-config)
d233d373
RJ		 6091 ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6092 ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
3c697ffd
JR		 6093 ("itstool" ,itstool)
6094 ("xmllint" ,libxml2)
6095 ("glib" ,glib "bin")
6096 ("vala" ,vala)))
6097 (inputs
6098 `(("gtk+" ,gtk+)))
6099 (synopsis "Disk usage analyzer for GNOME")
6100 (description
6101 "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
6102usage in the GNOME desktop environment. It can easily scan device volumes or
6103a specific user-requested directory branch (local or remote). Once the scan
6104is complete it provides a graphical representation of each selected folder.")
6105 (home-page "https://wiki.gnome.org/Apps/Baobab")
6106 (license license:gpl2+)))
dc050251 6107
fdba447c
RS		 6108(define-public gnome-backgrounds
6109 (package
6110 (name "gnome-backgrounds")
9ca381f0 6111 (version "3.28.0")
fdba447c
RS		 6112 (source
6113 (origin
6114 (method url-fetch)
6115 (uri (string-append "mirror://gnome/sources/" name "/"
6116 (version-major+minor version) "/"
6117 name "-" version ".tar.xz"))
6118 (sha256
6119 (base32
9ca381f0
RW		 6120 "1qgim0yhzjgcq172y4vp5hqz4rh1ak38a7pgi6s7dq0wklyrcnxj"))))
6121 (build-system meson-build-system)
fdba447c
RS		 6122 (native-inputs
6123 `(("intltool" ,intltool)))
6124 (home-page "https://git.gnome.org/browse/gnome-backgrounds")
6125 (synopsis "Background images for the GNOME desktop")
6126 (description
6127 "GNOME backgrounds package contains a collection of graphics files which
6128can be used as backgrounds in the GNOME Desktop environment. Additionally,
6129the package creates the proper framework and directory structure so that you
6130can add your own files to the collection.")
6131 (license (list license:gpl2+
6132 license:cc-by2.0
6133 license:cc-by-sa2.0
6134 license:cc-by-sa3.0))))
6135
b784b1a9
RS		 6136(define-public gnome-screenshot
6137 (package
6138 (name "gnome-screenshot")
8356aefa 6139 (version "3.26.0")
b784b1a9
RS		 6140 (source
6141 (origin
6142 (method url-fetch)
6143 (uri (string-append "mirror://gnome/sources/" name "/"
6144 (version-major+minor version) "/"
6145 name "-" version ".tar.xz"))
6146 (sha256
6147 (base32
8356aefa
RW		 6148 "1fy8fjl29i3xhj8caik03d3za06x96xgkk8r4fwz88iqbmci3g0v"))))
6149 (build-system meson-build-system)
b784b1a9
RS		 6150 (native-inputs
6151 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8356aefa
RW		 6152 ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
6153 ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
b784b1a9 6154 ("intltool" ,intltool)
8356aefa 6155 ("appstream-glib" ,appstream-glib)
b784b1a9
RS		 6156 ("pkg-config" ,pkg-config)))
6157 (inputs
6158 `(("gtk+" ,gtk+)
6159 ("libcanberra" ,libcanberra)
6160 ("libx11" ,libx11)
6161 ("libxext" ,libxext)))
6162 (home-page "https://git.gnome.org/browse/gnome-screenshot")
6163 (synopsis "Take pictures of your screen")
6164 (description
6165 "GNOME Screenshot is a utility used for taking screenshots of the entire
6166screen, a window or a user defined area of the screen, with optional
6167beautifying border effects.")
6168 (license license:gpl2+)))
6169
66d59111
RS		 6170(define-public dconf-editor
6171 (package
6172 (name "dconf-editor")
294ff39d 6173 (version "3.28.0")
66d59111
RS		 6174 (source
6175 (origin
6176 (method url-fetch)
6177 (uri (string-append "mirror://gnome/sources/" name "/"
6178 (version-major+minor version) "/"
6179 name "-" version ".tar.xz"))
6180 (sha256
6181 (base32
294ff39d
RW		 6182 "0nhcpwqrkmpxbhaf0cafvy6dlp6s7vhm5vknl4lgs3l24zc56ns5"))))
6183 (build-system meson-build-system)
66d59111
RS		 6184 (native-inputs
6185 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
294ff39d 6186 ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
66d59111 6187 ("intltool" ,intltool)
294ff39d
RW		 6188 ("pkg-config" ,pkg-config)
6189 ("vala" ,vala)))
66d59111
RS		 6190 (inputs
6191 `(("dconf" ,dconf)
6192 ("gtk+" ,gtk+)
6193 ("libxml2" ,libxml2)))
6194 (home-page "https://git.gnome.org/browse/dconf-editor")
6195 (synopsis "Graphical editor for GNOME's dconf configuration system")
6196 (description
6197 "Dconf-editor is a graphical tool for browsing and editing the dconf
6198configuration system for GNOME. It allows users to configure desktop
6199software that do not provide their own configuration interface.")
6200 (license license:lgpl2.1+)))
6201
96d36f38
AW		 6202(define-public gnome-default-applications
6203 (package
6204 (name "gnome-default-applications")
6205 (version "0")
6206 (build-system trivial-build-system)
6207 (source #f)
6208 (propagated-inputs
8ad4f0aa
LC		 6209 `(("nautilus" ,nautilus)
6210 ("evince" ,evince)))
96d36f38
AW		 6211 (arguments
6212 `(#:modules ((guix build utils))
6213 #:builder
6214 (begin
6215 (use-modules (guix build utils))
6216 (let* ((out (assoc-ref %outputs "out"))
6217 (apps (string-append out "/share/applications")))
6218 (mkdir-p apps)
6219 (call-with-output-file (string-append apps "/defaults.list")
6220 (lambda (port)
6221 (format port "[Default Applications]\n")
8ad4f0aa
LC		 6222 (format port "inode/directory=org.gnome.Nautilus.desktop\n")
6223 (format port "application/pdf=evince.desktop\n")
6224 (format port "application/postscript=evince.desktop\n")))
96d36f38
AW		 6225 #t))))
6226 (synopsis "Default MIME type associations for the GNOME desktop")
6227 (description
6228 "Given many installed packages which might handle a given MIME type, a
6229user running the GNOME desktop probably has some preferences: for example,
6230that folders be opened by default by the Nautilus file manager, not the Baobab
6231disk usage analyzer. This package establishes that set of default MIME type
6232associations for GNOME.")
6233 (license license:gpl3+)
6234 (home-page #f)))
6235
dc050251
SB		 6236(define-public gnome
6237 (package
6238 (name "gnome")
6239 (version (package-version gnome-shell))
6240 (source #f)
6241 (build-system trivial-build-system)
e3cfef22 6242 (arguments '(#:builder (begin (mkdir %output) #t)))
dc050251
SB		 6243 (propagated-inputs
6244 ;; TODO: Add more packages according to:
6245 ;; <https://packages.debian.org/jessie/gnome-core>.
6246 `(("adwaita-icon-theme" ,adwaita-icon-theme)
05f651c4 6247 ("baobab" ,baobab)
0bd3597b 6248 ("font-cantarell" ,font-cantarell)
a9dbefdc 6249 ("font-dejavu" ,font-dejavu)
dc050251
SB		 6250 ("at-spi2-core" ,at-spi2-core)
6251 ("dbus" ,dbus)
6252 ("dconf" ,dconf)
72360453 6253 ("desktop-file-utils" ,desktop-file-utils)
dc050251
SB		 6254 ("eog" ,eog)
6255 ("epiphany" ,epiphany)
6256 ("evince" ,evince)
71d9b980 6257 ("file-roller" ,file-roller)
dc050251
SB		 6258 ("gedit" ,gedit)
6259 ("glib-networking" ,glib-networking)
05f651c4 6260 ("gnome-backgrounds" ,gnome-backgrounds)
63ad9b80
AW		 6261 ("gnome-bluetooth" ,gnome-bluetooth)
6262 ("gnome-calculator" ,gnome-calculator)
dc050251 6263 ("gnome-control-center" ,gnome-control-center)
63ad9b80 6264 ("gnome-disk-utility" ,gnome-disk-utility)
96d36f38 6265 ("gnome-default-applications" ,gnome-default-applications)
dc050251 6266 ("gnome-keyring" ,gnome-keyring)
63ad9b80 6267 ("gnome-online-accounts" ,gnome-online-accounts)
dc050251
SB		 6268 ("gnome-session" ,gnome-session)
6269 ("gnome-settings-daemon" ,gnome-settings-daemon)
6270 ("gnome-shell" ,gnome-shell)
63ad9b80 6271 ("gnome-system-monitor" ,gnome-system-monitor)
dc050251
SB		 6272 ("gnome-terminal" ,gnome-terminal)
6273 ("gnome-themes-standard" ,gnome-themes-standard)
2999dcd5
AW		 6274 ("gst-plugins-base" ,gst-plugins-base)
6275 ("gst-plugins-good" ,gst-plugins-good)
63ad9b80 6276 ("gucharmap" ,gucharmap)
05f651c4 6277 ("gvfs" ,gvfs)
dc050251
SB		 6278 ("hicolor-icon-theme" ,hicolor-icon-theme)
6279 ("nautilus" ,nautilus)
69308043 6280 ("pinentry-gnome3" ,pinentry-gnome3)
dc050251
SB		 6281 ("pulseaudio" ,pulseaudio)
6282 ("shared-mime-info" ,shared-mime-info)
f6f4370f 6283 ("system-config-printer" ,system-config-printer)
dc050251 6284 ("totem" ,totem)
c20cd0d2 6285 ("xdg-user-dirs" ,xdg-user-dirs)
dc050251
SB		 6286 ("yelp" ,yelp)
6287 ("zenity" ,zenity)))
fe4e698d 6288 (synopsis "The GNU desktop environment")
dc050251
SB		 6289 (home-page "https://www.gnome.org/")
6290 (description
fe4e698d
LC		 6291 "GNOME is the graphical desktop for GNU. It includes a wide variety of
6292applications for browsing the web, editing text and images, creating
6293documents and diagrams, playing media, scanning, and much more.")
dc050251 6294 (license license:gpl2+)))
4a526711
DT		 6295
6296(define-public byzanz
6297 ;; The last stable release of Byzanz was in 2011, but there have been many
6298 ;; useful commits made to the Byzanz repository since then that it would be
6299 ;; silly to use such an old release.
6300 (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
6301 (package
6302 (name "byzanz")
6303 (version (string-append "0.2-1." (string-take commit 7)))
6304 (source (origin
6305 (method git-fetch)
6306 (uri (git-reference
5f13bf09 6307 (url "https://git.gnome.org/browse/byzanz")
4a526711 6308 (commit commit)))
5a6527e4 6309 (file-name (string-append name "-" version "-checkout"))
4a526711
DT		 6310 (sha256
6311 (base32
6312 "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
6313 (build-system glib-or-gtk-build-system)
6314 (arguments
6315 '(#:phases
6316 (modify-phases %standard-phases
189be331 6317 (replace 'bootstrap
4a526711
DT		 6318 (lambda _
6319 ;; The build system cleverly detects that we're not building from
6320 ;; a release tarball and turns on -Werror for GCC.
6321 ;; Unsurprisingly, there is a warning during compilation that
6322 ;; causes the build to fail unnecessarily, so we remove the flag.
6323 (substitute* '("configure.ac")
6324 (("-Werror") ""))
6325 ;; The autogen.sh script in gnome-common will run ./configure
6326 ;; by default, which is problematic because source shebangs
6327 ;; have not yet been patched.
6328 (setenv "NOCONFIGURE" "t")
6329 (zero? (system* "sh" "autogen.sh")))))))
6330 (native-inputs
6331 `(("autoconf" ,autoconf)
6332 ("automake" ,automake)
6333 ("gnome-common" ,gnome-common)
6334 ("intltool" ,intltool)
6335 ("libtool" ,libtool)
6336 ("pkg-config" ,pkg-config)
6337 ("which" ,which)))
6338 (inputs
6339 `(("glib" ,glib)
6340 ("gstreamer" ,gstreamer)
6341 ("gst-plugins-base" ,gst-plugins-base)
6342 ("gtk+" ,gtk+)))
6343 (synopsis "Desktop recording program")
6344 (description "Byzanz is a simple desktop recording program with a
6345command-line interface. It can record part or all of an X display for a
6346specified duration and save it as a GIF encoded animated image file.")
6347 (home-page "https://git.gnome.org/browse/byzanz")
6348 (license license:gpl2+))))
3a9a4c51 6349
0ec171ec
MS		 6350(define-public gsound
6351 (package
6352 (name "gsound")
6353 (version "1.0.2")
6354 (source (origin
6355 (method url-fetch)
6356 (uri (string-append "mirror://gnome/sources/" name "/"
6357 (version-major+minor version) "/"
6358 name "-" version ".tar.xz"))
6359 (sha256
6360 (base32
6361 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
6362 (build-system glib-or-gtk-build-system)
6363 (native-inputs
6364 `(("pkg-config" ,pkg-config)
6365 ("gobject-introspection" ,gobject-introspection)
6366 ("vala" ,vala)))
6367 (inputs
6368 `(("glib" ,glib)
6369 ("libcanberra" ,libcanberra)))
6370 (home-page "https://wiki.gnome.org/Projects/GSound")
6371 (synopsis "GObject wrapper for libcanberra")
6372 (description
6373 "GSound is a small library for playing system sounds. It's designed to be
6374used via GObject Introspection, and is a thin wrapper around the libcanberra C
6375library.")
6376 (license license:lgpl2.1+)))
6377
3a9a4c51
RS		 6378(define-public libzapojit
6379 (package
6380 (name "libzapojit")
6381 (version "0.0.3")
6382 (source (origin
6383 (method url-fetch)
6384 (uri (string-append "mirror://gnome/sources/" name "/"
6385 (version-major+minor version) "/"
6386 name "-" version ".tar.xz"))
6387 (sha256
6388 (base32
6389 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
6390 (build-system gnu-build-system)
6391 (native-inputs
6392 `(("gobject-introspection" ,gobject-introspection)
6393 ("intltool" ,intltool)
6394 ("pkg-config" ,pkg-config)))
6395 (inputs
6396 `(("gnome-online-accounts" ,gnome-online-accounts)
6397 ("json-glib" ,json-glib)
6398 ("rest" ,rest)))
6399 (home-page "https://wiki.gnome.org/Projects/Zapojit")
6400 (synopsis "Library for accessing SkyDrive and Hotmail")
6401 (description
6402 "Libzapojit is a GLib-based library for accessing online service APIs of
6403Microsoft SkyDrive and Hotmail, using their REST protocols.")
6404 (license license:lgpl2.1+)))
9365ee1c 6405
60e2a9ae
MS		 6406(define-public gnome-clocks
6407 (package
6408 (name "gnome-clocks")
80d1e4c0 6409 (version "3.28.0")
60e2a9ae
MS		 6410 (source (origin
6411 (method url-fetch)
6412 (uri (string-append "mirror://gnome/sources/" name "/"
6413 (version-major+minor version) "/"
6414 name "-" version ".tar.xz"))
6415 (sha256
6416 (base32
80d1e4c0 6417 "1dd739vchb592mck1dia2hkywn4213cpramyqzgmlmwv8z80p3nl"))))
60e2a9ae
MS		 6418 (build-system meson-build-system)
6419 (arguments
6420 '(#:glib-or-gtk? #t))
6421 (native-inputs
6422 `(("vala" ,vala)
6423 ("pkg-config" ,pkg-config)
6424 ("glib" ,glib "bin") ; for glib-compile-resources
6425 ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
6426 ("desktop-file-utils" ,desktop-file-utils)
6427 ("gettext" ,gettext-minimal)
6428 ("itstool" ,itstool)))
6429 (inputs
6430 `(("glib" ,glib)
6431 ("gtk+" ,gtk+)
6432 ("gsound" ,gsound)
6433 ("geoclue" ,geoclue)
6434 ("geocode-glib" ,geocode-glib)
6435 ("libgweather" ,libgweather)
6436 ("gnome-desktop" ,gnome-desktop)))
6437 (home-page "https://wiki.gnome.org/Apps/Clocks")
6438 (synopsis "GNOME's clock application")
6439 (description
6440 "GNOME Clocks is a simple clocks application designed to fit the GNOME
6441desktop. It supports world clock, stop watch, alarms, and count down timer.")
6442 (license license:gpl3+)))
6443
3c474897
KY		 6444(define-public gnome-calendar
6445 (package
6446 (name "gnome-calendar")
a286b5eb 6447 (version "3.28.2")
3c474897
KY		 6448 (source (origin
6449 (method url-fetch)
6450 (uri (string-append "mirror://gnome/sources/" name "/"
6451 (version-major+minor version) "/"
6452 name "-" version ".tar.xz"))
6453 (sha256
6454 (base32
a286b5eb 6455 "0x6wxngf8fkwgbl6x7rzp0srrb43rm55klpb2vfjk2hahpbjvxyw"))))
a49d3e37
MS		 6456 (build-system meson-build-system)
6457 (arguments
6458 '(#:glib-or-gtk? #t
6459 ;; gnome-calendar has to be installed before the tests can be run
6460 ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
6461 #:tests? #f))
3c474897 6462 (native-inputs
a49d3e37
MS		 6463 `(("gettext" ,gettext-minimal)
6464 ("glib-bin" ,glib "bin") ; For glib-compile-schemas
6465 ("gtk+-bin" ,gtk+ "bin") ; For gtk-update-icon-cache
3c474897
KY		 6466 ("pkg-config" ,pkg-config)))
6467 (inputs
a49d3e37 6468 `(("evolution-data-server" ,evolution-data-server)
4b8aae41 6469 ("gnome-online-accounts" ,gnome-online-accounts)
a286b5eb
RW		 6470 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6471 ("libdazzle" ,libdazzle)
6472 ("libgweather" ,libgweather)
6473 ("geoclue" ,geoclue)))
3c474897
KY		 6474 (home-page "https://wiki.gnome.org/Apps/Calendar")
6475 (synopsis "GNOME's calendar application")
6476 (description
6477 "GNOME Calendar is a simple calendar application designed to fit the GNOME
a49d3e37 6478desktop. It supports multiple calendars, month, week and year view.")
3c474897
KY		 6479 (license license:gpl3+)))
6480
57b14665
MS		 6481(define-public gnome-todo
6482 (package
6483 (name "gnome-todo")
9f3c6c88 6484 (version "3.28.1")
57b14665
MS		 6485 (source (origin
6486 (method url-fetch)
6487 (uri (string-append "mirror://gnome/sources/" name "/"
6488 (version-major+minor version) "/"
6489 name "-" version ".tar.xz"))
6490 (sha256
6491 (base32
9f3c6c88 6492 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))))
57b14665
MS		 6493 (build-system meson-build-system)
6494 (arguments
6495 '(#:glib-or-gtk? #t
6496 #:phases (modify-phases %standard-phases
6497 (add-after
6498 'install 'wrap-gnome-todo
6499 (lambda* (#:key inputs outputs #:allow-other-keys)
6500 (let ((out (assoc-ref outputs "out"))
6501 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
6502 (python-path (getenv "PYTHONPATH")))
6503 (wrap-program (string-append out "/bin/gnome-todo")
6504 ;; XXX: gi plugins are broken.
6505 ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
6506 ;; For plugins.
6507 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
6508 `("PYTHONPATH" ":" prefix (,python-path))))
6509 #t)))))
6510 (native-inputs
6511 `(("gettext" ,gettext-minimal)
6512 ("gobject-introspection" ,gobject-introspection)
6513 ("glib:bin" ,glib "bin") ; For glib-compile-resources
6514 ("gtk+-bin" ,gtk+ "bin") ; For gtk-update-icon-cache
6515 ("pkg-config" ,pkg-config)))
6516 (inputs
6517 `(("rest" ,rest) ; For Todoist plugin
6518 ("json-glib" ,json-glib) ; For Todoist plugin
6519 ("libical" ,libical)
6520 ("libpeas" ,libpeas)
6521 ("python-pygobject" ,python-pygobject)
6522 ("evolution-data-server" ,evolution-data-server)
6523 ("gnome-online-accounts" ,gnome-online-accounts)
6524 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
6525 (home-page "https://wiki.gnome.org/Apps/Todo")
6526 (synopsis "GNOME's ToDo Application")
6527 (description
6528 "GNOME To Do is a simplistic personal task manager designed to perfectly
6529fit the GNOME desktop.")
6530 (license license:gpl3+)))
6531
ab179eaf
SB		 6532(define-public gnome-dictionary
6533 (package
6534 (name "gnome-dictionary")
cf81ddef 6535 (version "3.26.1")
ab179eaf
SB		 6536 (source (origin
6537 (method url-fetch)
6538 (uri (string-append "mirror://gnome/sources/" name "/"
6539 (version-major+minor version) "/"
6540 name "-" version ".tar.xz"))
6541 (sha256
6542 (base32
cf81ddef
LC		 6543 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
6544 (build-system meson-build-system)
2776b5d5
MB		 6545 (arguments '(#:glib-or-gtk? #t
6546 #:phases (modify-phases %standard-phases
6547 (add-after 'unpack 'patch-install-script
6548 (lambda _
6549 ;; This script attempts to compile glib schemas
6550 ;; and create an empty MIME database. We do
6551 ;; that elsewhere, so prevent it from running.
6552 (substitute* "build-aux/post-install.sh"
6553 (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
6554 #t)))))
ab179eaf
SB		 6555 (native-inputs
6556 `(("glib:bin" ,glib "bin")
6557 ("gobject-introspection" ,gobject-introspection)
6558 ("intltool" ,intltool)
6559 ("itstool" ,itstool)
6560 ("pkg-config" ,pkg-config)
6561 ("xmllint" ,libxml2)))
6562 (inputs
6563 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6564 ("gtk+" ,gtk+)))
6565 (home-page "https://wiki.gnome.org/Apps/Dictionary")
6566 (synopsis "Look up words in dictionary sources")
6567 (description
6568 "GNOME Dictionary can look for the definition or translation of a word in
6569existing databases over the internet.")
6570 (license license:gpl3+)))
6571
9365ee1c
JN		 6572(define-public gnome-tweak-tool
6573 (package
6574 (name "gnome-tweak-tool")
c7fc414e 6575 (version "3.26.4")
9365ee1c
JN		 6576 (source (origin
6577 (method url-fetch)
6578 (uri (string-append "mirror://gnome/sources/gnome-tweak-tool/"
6579 (version-major+minor version) "/"
6580 "gnome-tweak-tool-" version ".tar.xz"))
6581 (patches (list
6582 (search-patch "gnome-tweak-tool-search-paths.patch")))
6583 (sha256
6584 (base32
c7fc414e 6585 "1pq5a0kzh1sz7s7ax5c7p6212k9d51nk5bfvjfyqn99cs928187x"))))
7ef335b0 6586 (build-system glib-or-gtk-build-system)
9365ee1c
JN		 6587 (arguments
6588 `(#:configure-flags '("--localstatedir=/tmp"
6589 "--sysconfdir=/tmp")
6590 #:imported-modules ((guix build python-build-system)
7ef335b0 6591 ,@%glib-or-gtk-build-system-modules)
9365ee1c 6592 #:phases (modify-phases %standard-phases
c7fc414e
RH		 6593 (delete 'configure)
6594 (replace 'build
6595 (lambda* (#:key outputs #:allow-other-keys)
6596 (invoke "meson" "build"
6597 "--prefix" (assoc-ref outputs "out"))))
6598 (replace 'check
6599 (lambda _ (invoke "ninja" "-C" "build" "test")))
6600 (replace 'install
6601 (lambda* (#:key outputs #:allow-other-keys)
6602 (invoke "ninja" "-C" "build" "install")))
9af6bce1
CB		 6603 (add-after 'install 'wrap-program
6604 (lambda* (#:key outputs #:allow-other-keys)
6605 (let ((out (assoc-ref outputs "out"))
6606 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
6607 (wrap-program (string-append out "/bin/gnome-tweak-tool")
6608 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6609 #t))
9365ee1c
JN		 6610 (add-after 'install 'wrap
6611 (@@ (guix build python-build-system) wrap)))))
6612 (native-inputs
c7fc414e
RH		 6613 `(("gtk+:bin" ,gtk+ "bin") ; For gtk-update-icon-cache
6614 ("intltool" ,intltool)
6615 ("meson" ,meson-for-build)
6616 ("ninja" ,ninja)
9365ee1c
JN		 6617 ("pkg-config" ,pkg-config)))
6618 (inputs
c7fc414e
RH		 6619 `(("gnome-desktop" ,gnome-desktop)
6620 ("gtk+" ,gtk+)
9365ee1c
JN		 6621 ("gobject-introspection" ,gobject-introspection)
6622 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
c7fc414e
RH		 6623 ("libnotify" ,libnotify)
6624 ("libsoup" ,libsoup)
6625 ("nautilus" ,nautilus)
6626 ("python" ,python)
6627 ("python-pygobject" ,python-pygobject)))
9365ee1c
JN		 6628 (synopsis "Customize advanced GNOME 3 options")
6629 (home-page "https://wiki.gnome.org/action/show/Apps/GnomeTweakTool")
6630 (description
6631 "GNOME Tweak Tool allows adjusting advanced configuration settings in
6632GNOME 3. This includes things like the fonts used in user interface elements,
6633alternative user interface themes, changes in window management behavior,
6634GNOME Shell appearance and extension, etc.")
6635 (license license:gpl3+)))
813f814a 6636
32ac717c
DT		 6637(define-public gnome-shell-extensions
6638 (package
6639 (name "gnome-shell-extensions")
100f625b 6640 (version "3.28.1")
32ac717c
DT		 6641 (source (origin
6642 (method url-fetch)
6643 (uri (string-append "mirror://gnome/sources/" name "/"
6644 (version-major+minor version) "/"
6645 name "-" version ".tar.xz"))
6646 (sha256
6647 (base32
100f625b
RW		 6648 "0n4h8rdnq3knrvlg6inrl62a73h20dbhfgniwy18572jicrh5ip9"))))
6649 (build-system meson-build-system)
32ac717c 6650 (arguments
100f625b 6651 '(#:configure-flags '("-Dextension_set=all")))
32ac717c
DT		 6652 (native-inputs
6653 `(("intltool" ,intltool)
6654 ("pkg-config" ,pkg-config)))
6655 (propagated-inputs
6656 `(("glib" ,glib)
6657 ("glib" ,glib "bin")))
6658 (synopsis "Extensions for GNOME Shell")
6659 (description "GNOME Shell extensions modify and extend GNOME Shell
6660functionality and behavior.")
6661 (home-page "https://extensions.gnome.org/")
6662 (license license:gpl3+)))
6663
813f814a
DT		 6664(define-public arc-theme
6665 (package
6666 (name "arc-theme")
a18f8eaf 6667 (version "20181022")
813f814a 6668 (source (origin
a18f8eaf
BH		 6669 (method git-fetch)
6670 (uri (git-reference
6671 (url "https://github.com/NicoHood/arc-theme.git")
6672 (commit version)))
6673 (file-name (git-file-name name version))
813f814a
DT		 6674 (sha256
6675 (base32
a18f8eaf 6676 "08951dk1irfadwpr3p323a4fprmxg53rk2r2niwq3v62ryhi3663"))))
813f814a 6677 (build-system gnu-build-system)
d88884fa
EF		 6678 (arguments
6679 '(#:phases
6680 (modify-phases %standard-phases
6681 ;; autogen.sh calls configure at the end of the script.
6682 (replace 'bootstrap
6683 (lambda _ (invoke "autoreconf" "-vfi"))))))
813f814a
DT		 6684 (native-inputs
6685 `(("autoconf" ,autoconf)
6686 ("automake" ,automake)
a18f8eaf
BH		 6687 ("glib" ,glib "bin") ; for glib-compile-resources
6688 ("gnome-shell" ,gnome-shell)
6689 ("gtk+" ,gtk+)
6690 ("inkscape" ,inkscape)
6691 ("optipng" ,optipng)
6692 ("pkg-config" ,pkg-config)
6693 ("sassc" ,sassc)))
813f814a
DT		 6694 (synopsis "A flat GTK+ theme with transparent elements")
6695 (description "Arc is a flat theme with transparent elements for GTK 3, GTK
66962, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
6697like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
6698 (home-page "https://github.com/horst3180/arc-theme")
6699 ;; No "or later" language found.
a18f8eaf 6700 (license license:gpl3+)))
9987c57c 6701
d935e6a1 6702(define-public faba-icon-theme
9987c57c 6703 (package
d935e6a1 6704 (name "faba-icon-theme")
2eee7ee3 6705 (version "4.3")
d935e6a1
BT		 6706 (source
6707 (origin
6708 (method url-fetch)
6709 (uri (string-append "https://github.com/moka-project/"
6710 name "/archive/v" version ".tar.gz"))
6711 (file-name (string-append name "-" version ".tar.gz"))
6712 (sha256
6713 (base32
2eee7ee3 6714 "18ln06xl60qzvzz61zq9q72hdbfgjsza3flph8i2asyzx3dffz68"))))
f6a9b345 6715 (build-system meson-build-system)
9987c57c 6716 (arguments
82da291a 6717 `(#:phases
9987c57c 6718 (modify-phases %standard-phases
82da291a 6719 (add-before 'configure 'disable-post-install
9987c57c 6720 (lambda _
82da291a
JL		 6721 (substitute* "meson.build"
6722 (("meson.add_install_script.*") "")))))))
9987c57c
DT		 6723 (native-inputs
6724 `(("autoconf" ,autoconf)
6725 ("automake" ,automake)))
d935e6a1
BT		 6726 (synopsis "Faba icon theme")
6727 (description
6728 "Faba is a minimal icon set used as a basis for other themes such as
6729Moka")
6730 (home-page "https://snwh.org/moka")
6731 (license (list license:lgpl3+
6732 license:cc-by-sa4.0))))
6733
9987c57c
DT		 6734(define-public moka-icon-theme
6735 (package
8b0e4177 6736 (inherit faba-icon-theme)
9987c57c 6737 (name "moka-icon-theme")
105a3625 6738 (version "5.4.0")
9987c57c
DT		 6739 (source (origin
6740 (method url-fetch)
6741 (uri (string-append "https://github.com/moka-project"
6742 "/moka-icon-theme/archive/v"
6743 version ".tar.gz"))
6744 (file-name (string-append name "-" version ".tar.gz"))
6745 (sha256
6746 (base32
105a3625 6747 "1nbwdjj268hxv9lfagd9aylily9f0hhallp841v0i3imljp84bmk"))))
550281fb
BT		 6748 (propagated-inputs
6749 ;; Moka is based on Faba by using it as a fallback icon set instead of
6750 ;; bundling it, so we need to add it as a propagated input.
6751 `(("faba-icon-theme" ,faba-icon-theme)))
9987c57c
DT		 6752 (synopsis "Moka icon theme")
6753 (description "Moka is a stylized desktop icon set, designed to be clear,
6754simple and consistent.")
fedde43b
BT		 6755 (license (list license:gpl3+
6756 license:cc-by-sa4.0))))
6fd8f8d6
DT		 6757
6758(define-public arc-icon-theme
6759 (package
6760 (name "arc-icon-theme")
c4180240 6761 (version "20161122")
6fd8f8d6
DT		 6762 (source (origin
6763 (method url-fetch)
6764 (uri (string-append "https://github.com/horst3180/arc-icon-theme"
6765 "/archive/" version ".tar.gz"))
6766 (file-name (string-append name "-" version ".tar.gz"))
6767 (sha256
6768 (base32
c4180240 6769 "1ya1cqvv8q847c0rpcg6apzky87q3h04y8jz5nmi52qk6kg8si0b"))))
6fd8f8d6 6770 (build-system gnu-build-system)
9e1ede95
JL		 6771 (arguments
6772 `(#:phases
6773 (modify-phases %standard-phases
6774 (add-after 'unpack 'disable-configure-during-bootstrap
6775 (lambda _
6776 (substitute* "autogen.sh"
6777 (("^\"\\$srcdir/configure\".*") ""))
6778 #t)))))
6fd8f8d6
DT		 6779 (native-inputs
6780 `(("autoconf" ,autoconf)
6781 ("automake" ,automake)))
6782 ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
6783 (propagated-inputs
6784 `(("moka-icon-theme" ,moka-icon-theme)))
6785 (synopsis "Arc icon theme")
6786 (description "The Arc icon theme provides a set of icons matching the
6787style of the Arc GTK theme. Icons missing from the Arc theme are provided by
6788the Moka icon theme.")
6789 (home-page "https://github.com/horst3180/arc-icon-theme")
6790 (license license:gpl3+)))
6064a4e8
LF		 6791
6792(define-public folks
6793 (package
6794 (name "folks")
d23495fa 6795 (version "0.11.4")
6064a4e8
LF		 6796 (source (origin
6797 (method url-fetch)
6798 (uri (string-append
e5f4796e 6799 "mirror://gnome/sources/folks/"
6064a4e8 6800 (version-major+minor version) "/"
e5f4796e 6801 "folks-" version ".tar.xz"))
6064a4e8
LF		 6802 (sha256
6803 (base32
d23495fa 6804 "16hqh2gxlbx0b0hgq216hndr1m72vj54jvryzii9zqkk0g9kxc57"))))
6064a4e8
LF		 6805 (build-system glib-or-gtk-build-system)
6806 (inputs
6807 `(("bdb" ,bdb)
6808 ("dbus-glib" ,dbus-glib)
6809 ("evolution-data-server" ,evolution-data-server)
6810 ("glib" ,glib)
6811 ("libgee" ,libgee)
6812 ("telepathy-glib" ,telepathy-glib)))
6813 (native-inputs
6814 `(("gobject-introspection" ,gobject-introspection)
6815 ("intltool" ,intltool)
6816 ("pkg-config" ,pkg-config)
6817 ("vala" ,vala)))
6818 (synopsis "Library to aggregate data about people")
6819 (description "Libfolks is a library that aggregates information about people
6820from multiple sources (e.g., Telepathy connection managers for IM contacts,
6821Evolution Data Server for local contacts, libsocialweb for web service contacts,
6822etc.) to create metacontacts. It's written in Vala, which generates C code when
6823compiled.")
6824 (home-page "https://wiki.gnome.org/Projects/Folks")
6825 (license license:lgpl2.1+)))
01ea778f
LF		 6826
6827(define-public gfbgraph
6828 (package
6829 (name "gfbgraph")
6830 (version "0.2.3")
6831 (source (origin
6832 (method url-fetch)
6833 (uri (string-append
6834 "mirror://gnome/sources/" name "/"
6835 (version-major+minor version) "/"
6836 name "-" version ".tar.xz"))
6837 (sha256
6838 (base32
6839 "1dp0v8ia35fxs9yhnqpxj3ir5lh018jlbiwifjfn8ayy7h47j4fs"))))
6840 (build-system glib-or-gtk-build-system)
6841 (arguments
6842 `(#:tests? #f ; Tests appear to require the network.
6843 ;; FIXME --enable-gtk-doc fails even with gtk-doc as a native-input.
6844 #:configure-flags '("--disable-gtk-doc"
6845 "--disable-static"
6846 "--enable-introspection")))
6847 (native-inputs
6848 `(("pkg-config" ,pkg-config)
6849 ("gobject-introspection" ,gobject-introspection)))
6850 (inputs
6851 `(("json-glib" ,json-glib)
6852 ("gnome-online-accounts" ,gnome-online-accounts)
6853 ("rest" ,rest)))
6854 (synopsis "GLib/GObject wrapper for the Facebook API")
6855 (description "This library allows you to use the Facebook API from
6856GLib/GObject code.")
6857 (home-page "https://wiki.gnome.org/Projects/GFBGraph")
6858 (license license:lgpl2.1+)))
3920868c 6859
6860(define-public libgnomekbd
6861 (package
6862 (name "libgnomekbd")
4a3f6e02 6863 (version "3.26.0")
3920868c 6864 (source (origin
6865 (method url-fetch)
6866 (uri (string-append "mirror://gnome/sources/" name "/"
6867 (version-major+minor version) "/"
6868 name "-" version ".tar.xz"))
6869 (sha256
6870 (base32
4a3f6e02 6871 "0xc8jrc44x2h24v28wv36k70k7bwxy6p2vsvxvvia1n3ay642fza"))))
3920868c 6872 (build-system gnu-build-system)
6873 (native-inputs
6874 `(("pkg-config" ,pkg-config)
6875 ("glib" ,glib "bin")
6876 ("intltool" ,intltool)))
6877 (propagated-inputs
6878 ;; Referred to in .h files and .pc.
6879 `(("glib" ,glib)
6880 ("gtk+" ,gtk+)
6881 ("libxklavier" ,libxklavier)))
6882 (home-page "https://www.gnome.org")
6883 (synopsis "GNOME keyboard configuration library")
6884 (description
6885 "Libgnomekbd is a keyboard configuration library for the GNOME desktop
6886environment, which can notably display keyboard layouts.")
6887 (license license:lgpl2.0+)))
85327d0d 6888
6889;;; This package is no longer maintained:
6890;;; https://wiki.gnome.org/Attic/LibUnique
6891;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
6892;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
6893(define-public libunique
6894 (package
6895 (name "libunique")
6896 (version "3.0.2")
6897 (source (origin
6898 (method url-fetch)
6899 (uri (string-append "mirror://gnome/sources/" name "/"
6900 (version-major+minor version) "/"
6901 name "-" version ".tar.xz"))
6902 (sha256
6903 (base32
6904 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
6905 (build-system glib-or-gtk-build-system)
6906 (arguments
6907 `(#:configure-flags '("--disable-static"
6908 "--disable-dbus" ; use gdbus
6909 "--enable-introspection")))
6910 (native-inputs
6911 `(("pkg-config" ,pkg-config)
6912 ("gobject-introspection" ,gobject-introspection)
6913 ("glib:bin" ,glib "bin")
6914 ("gtk-doc" ,gtk-doc)))
6915 (propagated-inputs
6916 ;; Referred to in .h files and .pc.
6917 `(("gtk+" ,gtk+)))
6918 (home-page "https://wiki.gnome.org/Attic/LibUnique")
6919 (synopsis "Library for writing single instance applications")
6920 (description
6921 "Libunique is a library for writing single instance applications. If you
6922launch a single instance application twice, the second instance will either just
6923quit or will send a message to the running instance. Libunique makes it easy to
6924write this kind of application, by providing a base class, taking care of all
6925the IPC machinery needed to send messages to a running instance, and also
6926handling the startup notification side.")
6927 (license license:lgpl2.1+)))
54021cd8
RS		 6928
6929(define-public gnome-calculator
6930 (package
6931 (name "gnome-calculator")
112e9083 6932 (version "3.28.2")
54021cd8
RS		 6933 (source
6934 (origin
6935 (method url-fetch)
6936 (uri (string-append "mirror://gnome/sources/" name "/"
6937 (version-major+minor version) "/"
6938 name "-" version ".tar.xz"))
6939 (sha256
6940 (base32
112e9083 6941 "0izsrqc9fm2lh25jr3nzi94p5hh2d3cklxqczbq16by85wr1xm5s"))))
54021cd8
RS		 6942 (build-system glib-or-gtk-build-system)
6943 (native-inputs
6944 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
6945 ("intltool" ,intltool)
6946 ("itstool" ,itstool)
6947 ("pkg-config" ,pkg-config)))
6948 (inputs
112e9083
RW		 6949 `(("glib" ,glib)
6950 ("gtksourceview" ,gtksourceview-3)
54021cd8 6951 ("libsoup" ,libsoup)
112e9083 6952 ("libxml2" ,libxml2)
2c2da7ec 6953 ("mpc" ,mpc)
54021cd8
RS		 6954 ("mpfr" ,mpfr)))
6955 (home-page "https://wiki.gnome.org/Apps/Calculator")
6956 (synopsis "Desktop calculator")
6957 (description
6958 "Calculator is an application that solves mathematical equations and
6959is suitable as a default application in a Desktop environment.")
6960 (license license:gpl3)))
0bd69759
RS		 6961
6962(define-public xpad
6963 (package
6964 (name "xpad")
c85626bb 6965 (version "5.1.0")
0bd69759
RS		 6966 (source
6967 (origin
6968 (method url-fetch)
08fda9c6
R		 6969 (uri (string-append "https://launchpad.net/xpad/trunk/"
6970 version "/+download/"
0bd69759
RS		 6971 name "-" version ".tar.bz2"))
6972 (sha256
6973 (base32
c85626bb 6974 "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
0bd69759
RS		 6975 (build-system gnu-build-system)
6976 (native-inputs
08fda9c6
R		 6977 `(("autoconf" ,autoconf)
6978 ("automake" ,automake)
6979 ("gtk+:bin" ,gtk+ "bin")
6980 ("intltool" ,intltool)
0bd69759
RS		 6981 ("pkg-config" ,pkg-config)))
6982 (inputs
08fda9c6 6983 `(("gtksourceview" ,gtksourceview)
0bd69759
RS		 6984 ("libsm" ,libsm)))
6985 (home-page "https://wiki.gnome.org/Apps/Xpad")
6986 (synopsis "Virtual sticky note")
6987 (description
6988 "Xpad is a sticky note that strives to be simple, fault tolerant,
6989and customizable. Xpad consists of independent pad windows, each is
6990basically a text box in which notes can be written.")
6991 (license license:gpl3+)))
3ad7dce1
RS		 6992
6993(define-public gucharmap
c60063ea
RW		 6994 (let ((unicode-files
6995 '(("Blocks.txt"
6996 "19zf2kd198mcv1paa194c1zf36hay1irbxssi35yi2pd8ad69qas")
6997 ("DerivedAge.txt"
6998 "1h9p1g0wnh686l6cqar7cmky465vwc6vjzzn1s7v0i9zcjaqkr4h")
6999 ("NamesList.txt"
7000 "0gvpcyq852rnlqmx4y5i1by7bavvcw6rj40i54w48yc7xr3zmgd1")
7001 ("Scripts.txt"
7002 "0b9prz2hs6w61afqaplcxnv115f8yk4d5hn9dc5hks8nqpj28bnh")
7003 ("UnicodeData.txt"
7004 "1cfak1j753zcrbgixwgppyxhm4w8vda8vxhqymi7n5ljfi6kwhjj")
7005 ("Unihan.zip"
7006 "199kz6laypkvc0ykms6d7bkb571jmpds39sv2p7kd5jjm1ij08q1"))))
7007 (package
7008 (name "gucharmap")
7009 (version "10.0.4")
7010 (source
7011 (origin
7012 (method url-fetch)
7013 (uri (string-append "mirror://gnome/sources/" name "/"
7014 (version-major+minor version) "/"
7015 name "-" version ".tar.xz"))
7016 (sha256
7017 (base32
7018 "00gh3lll6wykd2qg1lrj05a4wvscsypmrx7rpb6jsbvb4scnh9mv"))))
7019 (build-system glib-or-gtk-build-system)
7020 (arguments
7021 `(#:modules ((ice-9 match)
7022 (guix build glib-or-gtk-build-system)
7023 (guix build utils))
7024 #:configure-flags
7025 (list "--with-unicode-data=../unicode-data")
7026 #:phases
7027 (modify-phases %standard-phases
7028 (add-after 'unpack 'prepare-unicode-data
7029 (lambda* (#:key inputs #:allow-other-keys)
7030 (mkdir-p "../unicode-data")
7031 (with-directory-excursion "../unicode-data"
7032 (for-each (match-lambda
7033 ((file _)
7034 (install-file (assoc-ref inputs file) ".")))
7035 ',unicode-files))
7036 #t)))))
7037 (native-inputs
7038 `(("desktop-file-utils" ,desktop-file-utils)
7039 ("glib:bin" ,glib "bin") ; for glib-compile-resources.
7040 ("gobject-introspection" ,gobject-introspection)
7041 ("intltool" ,intltool)
7042 ("itstool" ,itstool)
7043 ("pkg-config" ,pkg-config)
7044 ,@(map (match-lambda
7045 ((file hash)
7046 `(,file
7047 ,(origin
7048 (method url-fetch)
7049 (uri (string-append
7050 "http://www.unicode.org/Public/10.0.0/ucd/"
7051 file))
7052 (sha256 (base32 hash))))))
7053 unicode-files)
7054 ("unzip" ,unzip)))
7055 (inputs
7056 `(("gtk+" ,gtk+)
7057 ("xmllint" ,libxml2)))
7058 (home-page "https://wiki.gnome.org/Apps/Gucharmap")
7059 (synopsis "Unicode character picker and font browser")
7060 (description
7061 "This program allows you to browse through all the available Unicode
3ad7dce1
RS		 7062characters and categories for the installed fonts, and to examine their
7063detailed properties. It is an easy way to find the character you might
7064only know by its Unicode name or code point.")
c60063ea 7065 (license license:gpl3+))))
04ce840a
RS		 7066
7067(define-public bluefish
7068 (package
7069 (name "bluefish")
ea8afaf3 7070 (version "2.2.10")
04ce840a
RS		 7071 (source
7072 (origin
7073 (method url-fetch)
7074 (uri (string-append "http://www.bennewitz.com/bluefish/stable/source/"
7075 name "-" version ".tar.gz"))
7076 (sha256
7077 (base32
ea8afaf3 7078 "1jw4has7lbp77lqmzvnnjmqcf0lacjfnka873lkkwdyrpzc4c1q4"))))
04ce840a
RS		 7079 (build-system gnu-build-system)
7080 (native-inputs
7081 `(("desktop-file-utils" ,desktop-file-utils)
7082 ("intltool" ,intltool)
7083 ("pkg-config" ,pkg-config)))
7084 (inputs
7085 `(("enchant" ,enchant)
7086 ("gtk+" ,gtk+)
7087 ("python" ,python-2)
7088 ("xmllint" ,libxml2)
7089 ("gucharmap" ,gucharmap)))
7090 (home-page "http://bluefish.openoffice.nl")
7091 (synopsis "Web development studio")
7092 (description
7093 "Bluefish is an editor targeted towards programmers and web developers,
7094with many options to write web sites, scripts and other code.
7095Bluefish supports many programming and markup languages.")
7096 (license license:gpl3+)))
1f6a73ee
RS		 7097
7098(define-public gnome-system-monitor
7099 (package
7100 (name "gnome-system-monitor")
4985d9aa 7101 (version "3.28.2")
1f6a73ee
RS		 7102 (source
7103 (origin
7104 (method url-fetch)
7105 (uri (string-append "mirror://gnome/sources/" name "/"
7106 (version-major+minor version) "/"
7107 name "-" version ".tar.xz"))
7108 (sha256
7109 (base32
4985d9aa 7110 "164in885dyfvna5yjzgdyrbrsskvh5wzxdmkjgb4mbh54lzqd1zb"))))
1f6a73ee
RS		 7111 (build-system glib-or-gtk-build-system)
7112 (native-inputs
7113 `(("glib:bin" ,glib "bin") ; for glib-mkenums.
7114 ("intltool" ,intltool)
7115 ("itstool" ,itstool)
7116 ("libgtop" ,libgtop)
4985d9aa 7117 ("polkit" ,polkit)
1f6a73ee
RS		 7118 ("pkg-config" ,pkg-config)))
7119 (inputs
7120 `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
7121 ("gtk+" ,gtk+)
7122 ("gtkmm" ,gtkmm)
7123 ("librsvg" ,librsvg)
4985d9aa
RW		 7124 ("libxml2" ,libxml2)
7125 ("libwnck" ,libwnck)))
1f6a73ee
RS		 7126 (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
7127 (synopsis "Process viewer and system resource monitor for GNOME")
7128 (description
7129 "GNOME System Monitor is a GNOME process viewer and system monitor with
7130an attractive, easy-to-use interface. It has features, such as a tree view
7131for process dependencies, icons for processes, the ability to hide processes,
7132graphical time histories of CPU/memory/swap usage and the ability to
7133kill/reinice processes.")
7134 (license license:gpl2+)))
3e00ac47
SB		 7135
7136(define-public python-pyatspi
7137 (package
7138 (name "python-pyatspi")
84548bd7 7139 (version "2.26.0")
3e00ac47
SB		 7140 (source (origin
7141 (method url-fetch)
7142 (uri (string-append
7143 "mirror://gnome/sources/pyatspi/"
7144 (version-major+minor version)
7145 "/pyatspi-" version ".tar.xz"))
7146 (sha256
7147 (base32
84548bd7 7148 "0xdnix7gxzgf75xy9ris4dd6b05mqwicw190b98xqmypydyf95n6"))))
3e00ac47
SB		 7149 (build-system gnu-build-system)
7150 (native-inputs
7151 `(("pkg-config" ,pkg-config)))
7152 (inputs
7153 `(("python" ,python)
7154 ("python-pygobject" ,python-pygobject)))
7155 (synopsis "Python client bindings for D-Bus AT-SPI")
7156 (home-page "https://wiki.linuxfoundation.org/accessibility\
7157/atk/at-spi/at-spi_on_d-bus")
7158 (description
7159 "This package includes a python client library for the AT-SPI D-Bus
7160accessibility infrastructure.")
7161 (license license:lgpl2.0)
7162 (properties '((upstream-name . "pyatspi")))))
53201c0d
SB		 7163
7164(define-public orca
7165 (package
7166 (name "orca")
870a4e70 7167 (version "3.28.1")
53201c0d
SB		 7168 (source (origin
7169 (method url-fetch)
7170 (uri (string-append
7171 "mirror://gnome/sources/" name "/"
7172 (version-major+minor version) "/"
7173 name "-" version ".tar.xz"))
7174 (sha256
7175 (base32
870a4e70 7176 "04l5ccn7wf175gyq3blfpx0yh70ny06n161297jwc9idf951852g"))))
53201c0d
SB		 7177 (build-system glib-or-gtk-build-system)
7178 (arguments
7179 '(#:phases
7180 (modify-phases %standard-phases
7181 (add-before 'configure 'qualify-xkbcomp
7182 (lambda* (#:key inputs #:allow-other-keys)
7183 (let ((xkbcomp (string-append
7184 (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
7185 (substitute* "src/orca/orca.py"
7186 (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
7187 #t))
7188 (add-after 'install 'wrap-orca
7189 (lambda* (#:key outputs #:allow-other-keys)
7190 (let* ((out (assoc-ref outputs "out"))
7191 (prog (string-append out "/bin/orca")))
7192 (wrap-program prog
7193 `("GI_TYPELIB_PATH" ":" prefix
7194 (,(getenv "GI_TYPELIB_PATH")))
7195 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
7196 (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
7197 `("PYTHONPATH" ":" prefix
7198 (,(getenv "PYTHONPATH")))))
7199 #t)))))
7200 (native-inputs
7201 `(("intltool" ,intltool)
7202 ("itstool" ,itstool)
7203 ("pkg-config" ,pkg-config)
7204 ("xmllint" ,libxml2)))
7205 (inputs
7206 `(("at-spi2-atk" ,at-spi2-atk)
7207 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7208 ("gstreamer" ,gstreamer)
7209 ("gst-plugins-base" ,gst-plugins-base)
7210 ("gst-plugins-good" ,gst-plugins-good)
7211 ("gtk+" ,gtk+)
7212 ("python" ,python)
7213 ("python-pygobject" ,python-pygobject)
7214 ("python-pyatspi" ,python-pyatspi)
7215 ("python-speechd" ,speech-dispatcher)
7216 ("xkbcomp" ,xkbcomp)))
7217 (synopsis
7218 "Screen reader for individuals who are blind or visually impaired")
7219 (home-page "https://wiki.gnome.org/Projects/Orca")
7220 (description
7221 "Orca is a screen reader that provides access to the graphical desktop
7222via speech and refreshable braille. Orca works with applications and toolkits
7223that support the Assistive Technology Service Provider Interface (AT-SPI).")
7224 (license license:lgpl2.1+)))
411ba511
LC		 7225
7226(define-public gspell
7227 (package
7228 (name "gspell")
9b1bb757 7229 (version "1.8.1")
411ba511
LC		 7230 (source (origin
7231 (method url-fetch)
7232 (uri (string-append "mirror://gnome/sources/" name "/"
7233 (version-major+minor version) "/"
7234 name "-" version ".tar.xz"))
7235 (sha256
7236 (base32
9b1bb757 7237 "1rdv873ixhwr15jwgc2z6k6y0hj353fqnwsy7zkh0c30qwiiv6l1"))
411ba511
LC		 7238 (patches (search-patches "gspell-dash-test.patch"))))
7239 (build-system glib-or-gtk-build-system)
7240 (arguments
7241 '(#:phases
7242 (modify-phases %standard-phases
7243 (add-before 'check 'pre-check
7244 (lambda* (#:key inputs #:allow-other-keys)
7245 ;; Tests require a running X server.
7246 (system "Xvfb :1 &")
7247 (setenv "DISPLAY" ":1")
7248
7249 ;; For the missing /etc/machine-id.
7250 (setenv "DBUS_FATAL_WARNINGS" "0")
7251
7252 ;; Allow Enchant and its Aspell backend to find the en_US
7253 ;; dictionary.
7254 (setenv "ASPELL_DICT_DIR"
7255 (string-append (assoc-ref inputs "aspell-dict-en")
7256 "/lib/aspell"))
7257 #t)))))
7258 (inputs
eccd35be 7259 `(("gtk+" ,gtk+)
a801ae4c
TGR		 7260 ("glib" ,glib)
7261 ("iso-codes" ,iso-codes)))
411ba511
LC		 7262 (native-inputs
7263 `(("glib" ,glib "bin")
7264 ("pkg-config" ,pkg-config)
7265 ("xmllint" ,libxml2)
7266
7267 ;; For tests.
a801ae4c
TGR		 7268 ("aspell-dict-en" ,aspell-dict-en)
7269 ("xorg-server" ,xorg-server)))
eccd35be 7270 (propagated-inputs
9b1bb757 7271 `(("enchant" ,enchant))) ;enchant.pc is required by gspell-1.pc
411ba511
LC		 7272 (home-page "https://wiki.gnome.org/Projects/gspell")
7273 (synopsis "GNOME's alternative spell checker")
7274 (description
7275 "gspell provides a flexible API to add spell-checking to a GTK+
7276application. It provides a GObject API, spell-checking to text entries and
7277text views, and buttons to choose the language.")
7278 (license license:gpl2+)))
d1d739fa
CM		 7279
7280(define-public gnome-planner
7281 (package
7282 (name "gnome-planner")
7283 (version "0.14.6")
7284 (source (origin
7285 (method url-fetch)
7286 (uri (string-append "mirror://gnome/sources/planner/"
7287 (version-major+minor version) "/planner-"
7288 version ".tar.xz"))
7289 (sha256
7290 (base32
7291 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
7292 (build-system glib-or-gtk-build-system)
7293 (arguments
7294 ;; Disable the Python bindings because the Planner program functions
7295 ;; without them, and (as of 2017-06-13) we have not packaged all of
7296 ;; packages that are necessary for building the Python bindings.
20b7b75c
EF		 7297 `(#:configure-flags
7298 (list "--disable-python"
7299 ,@(if (string=? "aarch64-linux" (%current-system))
7300 '("--build=aarch64-unknown-linux-gnu")
7301 '()))))
d1d739fa
CM		 7302 (inputs
7303 `(("libgnomecanvas" ,libgnomecanvas)
7304 ("libgnomeui" ,libgnomeui)
7305 ("libglade" ,libglade)
7306 ("gnome-vfs" ,gnome-vfs)
7307 ("gconf" ,gconf)
7308 ("libxml2" ,libxml2)
7309 ("libxslt" ,libxslt)
7310 ("gtk+" ,gtk+)
7311 ("glib" ,glib)))
7312 (native-inputs
7313 `(("intltool" ,intltool)
7314 ("scrollkeeper" ,scrollkeeper)
7315 ("pkg-config" ,pkg-config)))
7316 (home-page "https://wiki.gnome.org/Apps/Planner")
7317 (synopsis "Project management software for the GNOME desktop")
7318 (description
7319 "GNOME Planner is a project management tool based on the Work Breakdown
7320Structure (WBS). Its goal is to enable you to easily plan projects. Based on
7321the resources, tasks, and constraints that you define, Planner generates
7322various views into a project. For example, Planner can show a Gantt chart of
7323the project. It can show a detailed summary of tasks including their
7324duration, cost, and current progress. It can also show a report of resource
7325utilization that highlights under-utilized and over-utilized resources. These
7326views can be printed as PDF or PostScript files, or exported to HTML.")
4b926cb6 7327 (license license:gpl2+)))
64fce637
RS		 7328
7329(define-public lollypop
7330 (package
7331 (name "lollypop")
b98eace8 7332 (version "0.9.521")
64fce637
RS		 7333 (source
7334 (origin
7335 (method url-fetch)
b98eace8
CB		 7336 (uri (string-append "https://gitlab.gnome.org/World/lollypop/uploads/"
7337 "e4df2ed75c5ed71d64afcc668e579b2a/"
64fce637
RS		 7338 name "-" version ".tar.xz"))
7339 (sha256
7340 (base32
b98eace8 7341 "0knsqh24siyw98vmiq6b1hzq4y4cazs9f1hq1js9c96hqqj9rvdx"))))
aa498fc0 7342 (build-system meson-build-system)
64fce637
RS		 7343 (arguments
7344 `(#:imported-modules ((guix build python-build-system)
aa498fc0
TD		 7345 ,@%meson-build-system-modules)
7346 #:glib-or-gtk? #t
5fc9b6c1
EF		 7347 #:tests? #f ; no test suite
7348 #:phases
7349 (modify-phases %standard-phases
5fc9b6c1
EF		 7350 (add-after 'install 'wrap-program
7351 (lambda* (#:key outputs #:allow-other-keys)
7352 (let ((out (assoc-ref outputs "out"))
7353 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7354 (wrap-program (string-append out "/bin/lollypop")
7355 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7356 #t))
7357 (add-after 'install 'wrap
7358 (@@ (guix build python-build-system) wrap)))))
64fce637
RS		 7359 (native-inputs
7360 `(("intltool" ,intltool)
7361 ("itstool" ,itstool)
aa498fc0
TD		 7362 ("glib:bin" ,glib "bin") ; For glib-compile-resources
7363 ("gtk+:bin" ,gtk+ "bin") ; For gtk-update-icon-cache
64fce637
RS		 7364 ("pkg-config" ,pkg-config)))
7365 (inputs
7366 `(("gobject-introspection" ,gobject-introspection)
5fc9b6c1 7367 ("gst-plugins-base" ,gst-plugins-base)
64fce637
RS		 7368 ("libnotify" ,libnotify)
7369 ("libsecret" ,libsecret)
7370 ("libsoup" ,libsoup)
7371 ("python" ,python)
7372 ("python-beautifulsoup4" ,python-beautifulsoup4)
7373 ("python-gst" ,python-gst)
7374 ("python-pycairo" ,python-pycairo)
7375 ("python-pygobject" ,python-pygobject)
7376 ("python-pylast" ,python-pylast)
7377 ("totem-pl-parser" ,totem-pl-parser)
7378 ("webkitgtk" ,webkitgtk)))
7379 (propagated-inputs
7380 `(;; gst-plugins-base is required to start Lollypop,
7381 ;; the others are required to play streaming.
64fce637
RS		 7382 ("gst-plugins-good" ,gst-plugins-good)
7383 ("gst-plugins-ugly" ,gst-plugins-ugly)))
b98eace8 7384 (home-page "https://wiki.gnome.org/Apps/Lollypop")
64fce637
RS		 7385 (synopsis "GNOME music playing application")
7386 (description
7387 "Lollypop is a music player designed to play well with GNOME desktop.
7388Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
7389from artists and tracks from the web. It also fetches cover artworks
7390automatically and it can stream songs from online music services and charts.")
7391 (license license:gpl3+)))
d831d49d
AW		 7392
7393(define-public gnome-video-effects
7394 (package
7395 (name "gnome-video-effects")
7396 (version "0.4.3")
7397 (source (origin
7398 (method url-fetch)
7399 (uri (string-append "mirror://gnome/sources/" name "/"
7400 (version-major+minor version) "/" name "-"
7401 version ".tar.xz"))
7402 (sha256
7403 (base32
7404 "06c2f1kihyhawap1s3zg5w7q7fypsybkp7xry4hxkdz4mpsy0zjs"))))
7405 (build-system glib-or-gtk-build-system)
7406 (arguments
7407 `(#:out-of-source? #f))
7408 (native-inputs
7409 `(("glib:bin" ,glib "bin")
7410 ("intltool" ,intltool)
7411 ("gettext" ,gettext-minimal)
7412 ("pkg-config" ,pkg-config)))
7413 (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
7414 (synopsis "Video effects for Cheese and other GNOME applications")
7415 (description
7416 "A collection of GStreamer video filters and effects to be used in
7417photo-booth-like software, such as Cheese.")
7418 (license license:gpl2+)))
3511c780
AW		 7419
7420(define-public cheese
7421 (package
7422 (name "cheese")
4b3480d6 7423 (version "3.28.0")
3511c780
AW		 7424 (source (origin
7425 (method url-fetch)
7426 (uri (string-append "mirror://gnome/sources/" name "/"
7427 (version-major+minor version) "/" name "-"
7428 version ".tar.xz"))
7429 (sha256
7430 (base32
4b3480d6 7431 "06da5qc5hdvwwd5vkbgbx8pjx1l3mvr07yrnnv3v1hfc3wp7l7jw"))))
3511c780
AW		 7432 (arguments
7433 ;; Tests require GDK.
7434 `(#:tests? #f
7435 #:phases
7436 (modify-phases %standard-phases
7437 (add-before 'install 'skip-gtk-update-icon-cache
7438 (lambda _
7439 ;; Don't create 'icon-theme.cache'
7440 (substitute* "Makefile"
7441 (("gtk-update-icon-cache") (which "true")))
7442 #t))
7443 (add-after 'install 'wrap-cheese
7444 (lambda* (#:key inputs outputs #:allow-other-keys)
7445 (let ((out (assoc-ref outputs "out"))
7446 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
7447 (wrap-program (string-append out "/bin/cheese")
7448 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
7449 #t)))))
7450 (build-system glib-or-gtk-build-system)
7451 (native-inputs
7452 `(("glib:bin" ,glib "bin")
7453 ("intltool" ,intltool)
7454 ("itstool" ,itstool)
7455 ("libxml2" ,libxml2)
7456 ("pkg-config" ,pkg-config)
7457 ("vala" ,vala)))
7458 (propagated-inputs
6a19f03e
RW		 7459 `(("gnome-video-effects" ,gnome-video-effects)
7460 ("clutter" ,clutter)
3511c780
AW		 7461 ("clutter-gst" ,clutter-gst)
7462 ("clutter-gtk" ,clutter-gtk)
6a19f03e 7463 ("libcanberra" ,libcanberra)
3511c780
AW		 7464 ("gdk-pixbuf" ,gdk-pixbuf)
7465 ("glib" ,glib)
6a19f03e
RW		 7466 ("gstreamer" ,gstreamer)))
7467 (inputs
7468 `(("gnome-desktop" ,gnome-desktop)
3511c780 7469 ("gobject-introspection" ,gobject-introspection)
3511c780
AW		 7470 ("gst-plugins-base" ,gst-plugins-base)
7471 ("gst-plugins-bad" ,gst-plugins-bad)
7472 ("gtk+" ,gtk+)
3511c780
AW		 7473 ("libx11" ,libx11)
7474 ("libxtst" ,libxtst)))
7475 (home-page "https://wiki.gnome.org/Apps/Cheese")
7476 (synopsis "Webcam photo booth software for GNOME")
7477 (description
7478 "Cheese uses your webcam to take photos and videos. Cheese can also
7479apply fancy special effects and lets you share the fun with others.")
7480 (license license:gpl2+)))
3c5dbd2b 7481
7482(define-public sound-juicer
7483 (package
7484 (name "sound-juicer")
7485 (version "3.24.0")
7486 (source
7487 (origin
7488 (method url-fetch)
7489 (uri (string-append "mirror://gnome/sources/" name "/"
7490 (version-major+minor version) "/"
7491 name "-" version ".tar.xz"))
7492 (sha256
7493 (base32
7494 "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
7495 (build-system glib-or-gtk-build-system)
7496 (native-inputs
7497 `(("desktop-file-utils" ,desktop-file-utils)
7498 ("intltool" ,intltool)
7499 ("itstool" ,itstool)
7500 ("pkg-config" ,pkg-config)
7501 ("xmllint" ,libxml2)))
7502 (inputs
7503 `(("gtk+" ,gtk+)
7504 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7505 ("gstreamer" ,gstreamer)
7506 ("gst-plugins-base" ,gst-plugins-base)
7507 ("gst-plugins-good" ,gst-plugins-good)
7508 ("iso-codes" ,iso-codes)
7509 ("libbrasero-media3" ,brasero)
7510 ("libcanberra" ,libcanberra)
7511 ("libdiscid" ,libdiscid)
7512 ("libmusicbrainz" ,libmusicbrainz)
7513 ("neon" ,neon)))
7514 (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
7515 (synopsis "Audio music cd ripper")
7516 (description "Sound Juicer extracts audio from compact discs and convert it
7517into audio files that a personal computer or digital audio player can play.
7518It supports ripping to any audio codec supported by a GStreamer plugin, such as
7519mp3, Ogg Vorbis and FLAC")
7520 (license license:gpl2+)))
4e3fdeb7 7521
0d3f1708
CB		 7522(define-public soundconverter
7523 (package
7524 (name "soundconverter")
fa75a213 7525 (version "3.0.1")
0d3f1708
CB		 7526 (source
7527 (origin
7528 (method url-fetch)
7529 (uri (string-append "https://launchpad.net/soundconverter/trunk/"
7530 version "/+download/"
7531 "soundconverter-" version ".tar.xz"))
7532
7533 (sha256
fa75a213 7534 (base32 "1d6x1yf8psqbd9zbybxivfqg55khcnngp2mn92l161dfdk9512c5"))
0d3f1708
CB		 7535 (patches
7536 (search-patches
7537 "soundconverter-remove-gconf-dependency.patch"))))
7538 (build-system glib-or-gtk-build-system)
7539 (arguments
7540 `(#:imported-modules ((guix build python-build-system)
7541 (guix build glib-or-gtk-build-system)
7542 ,@%gnu-build-system-modules)
7543
7544 #:modules ((guix build glib-or-gtk-build-system)
7545 (guix build utils)
7546 ((guix build gnu-build-system) #:prefix gnu:)
7547 ((guix build python-build-system) #:prefix python:))
7548
7549 #:phases
7550 (modify-phases %standard-phases
0d3f1708
CB		 7551 (add-after 'install 'wrap-soundconverter-for-python
7552 (assoc-ref python:%standard-phases 'wrap))
7553 (add-after 'install 'wrap-soundconverter
7554 (lambda* (#:key inputs outputs #:allow-other-keys)
7555 (let ((out (assoc-ref outputs "out"))
7556 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
7557 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
7558 (wrap-program (string-append out "/bin/soundconverter")
7559 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7560 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
7561 #t)))))
7562 (native-inputs
7563 `(("intltool" ,intltool)
7564 ("pkg-config" ,pkg-config)
7565 ("glib:bin" ,glib "bin")))
7566 (inputs
7567 `(("gtk+" ,gtk+)
7568 ("python" ,python)
7569 ("python-pygobject" ,python-pygobject)
7570 ("gstreamer" ,gstreamer)
7571 ("gst-plugins-base" ,gst-plugins-base)))
7572 (home-page "http://soundconverter.org/")
7573 (synopsis "Convert between audio formats with a graphical interface")
7574 (description
7575 "SoundConverter supports converting between many audio formats including
7576Opus, Ogg Vorbis, FLAC and more. It supports parallel conversion, and
7577configurable file renaming. ")
7578 (license license:gpl3)))
7579
4e3fdeb7 7580(define-public workrave
89f2d736
TGR		 7581 (package
7582 (name "workrave")
c2e50474 7583 (version "1.10.23")
89f2d736
TGR		 7584 (source
7585 (origin
7586 (method git-fetch)
7587 (uri (git-reference
7588 (url "https://github.com/rcaelers/workrave.git")
c2e50474
TGR		 7589 (commit (string-append "v" (string-map
7590 (match-lambda (#\. #\_) (chr chr))
7591 version)))))
89f2d736
TGR		 7592 (file-name (git-file-name name version))
7593 (sha256
c2e50474 7594 (base32 "1qhlwfhwk5agv4904d6bsf83k9k89q7bms6agg967vsca4905vcw"))))
89f2d736
TGR		 7595 (build-system glib-or-gtk-build-system)
7596 (propagated-inputs `(("glib" ,glib)
7597 ("gtk+" ,gtk+)
7598 ("gdk-pixbuf" ,gdk-pixbuf)
7599 ("gtkmm" ,gtkmm)
7600 ("glibmm" ,glibmm)
7601 ("libx11" ,libx11)
7602 ("libxtst" ,libxtst)
7603 ("dconf" ,dconf)
7604 ("libice" ,libice)))
7605 (inputs `(("libsm" ,libsm)
7606 ("python-cheetah" ,python2-cheetah)))
7607 (native-inputs `(("glib" ,glib "bin")
7608 ("pkg-config" ,pkg-config)
7609 ("gettext" ,gnu-gettext)
7610 ("autoconf" ,autoconf)
7611 ("autoconf-archive" , autoconf-archive)
7612 ("automake" ,automake)
7613 ("libtool" ,libtool)
7614 ("intltool" ,intltool)
7615 ("libxscrnsaver" ,libxscrnsaver)
7616 ("gobject-introspection" ,gobject-introspection)
7617 ("python2" ,python-2)))
7618 (synopsis "Tool to help prevent repetitive strain injury (RSI)")
7619 (description
7620 "Workrave is a program that assists in the recovery and prevention of
cc00249b
TGR		 7621repetitive strain injury (@dfn{RSI}). The program frequently alerts you to take
7622micro-pauses and rest breaks, and restricts you to your daily limit.")
89f2d736
TGR		 7623 (home-page "http://www.workrave.org")
7624 (license license:gpl3+)))
312afa7d
LC		 7625
7626(define-public ghex
7627 (package
7628 (name "ghex")
7629 (version "3.18.3")
7630 (source (origin
7631 (method url-fetch)
2fbab848 7632 (uri (string-append "mirror://gnome/sources/ghex/"
312afa7d 7633 (version-major+minor version) "/"
2fbab848 7634 "ghex-" version ".tar.xz"))
312afa7d
LC		 7635 (sha256
7636 (base32
7637 "1lq8920ad2chi9ibmyq0x9hg9yk63b0kdbzid03w42cwdzw50x66"))))
7638 (build-system glib-or-gtk-build-system)
7639 (native-inputs
7640 `(("pkg-config" ,pkg-config)
7641 ("gnome-common" ,gnome-common)
7642 ("which" ,which)
7643 ("intltool" ,intltool)
7644 ("yelp-tools" ,yelp-tools)
2fbab848 7645 ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
312afa7d
LC		 7646 (inputs
7647 `(("atk" ,atk)
7648 ("gtk" ,gtk+)))
7649 (synopsis "GNOME hexadecimal editor")
7650 (description "The GHex program can view and edit files in two ways:
7651hexadecimal or ASCII. It is useful for editing binary files in general.")
7652 (home-page "https://wiki.gnome.org/Apps/Ghex")
7653 (license license:gpl2)))
4b2ed6c2
RW		 7654
7655(define-public libdazzle
7656 (package
7657 (name "libdazzle")
7658 (version "3.28.5")
7659 (source (origin
7660 (method url-fetch)
687b4909 7661 (uri (string-append "mirror://gnome/sources/libdazzle/"
4b2ed6c2 7662 (version-major+minor version) "/"
687b4909 7663 "libdazzle-" version ".tar.xz"))
4b2ed6c2
RW		 7664 (sha256
7665 (base32
7666 "08qdwv2flywnh6kibkyv0pnm67pk8xlmjh4yqx6hf13hyhkxkqgg"))))
7667 (build-system meson-build-system)
7668 (arguments
7669 `(#:phases
7670 (modify-phases %standard-phases
7671 (add-after 'unpack 'disable-failing-test
7672 (lambda _
7673 ;; Disable failing test.
7674 (substitute* "tests/meson.build"
7675 (("test\\('test-application") "#"))
7676 #t))
7677 (add-before 'check 'pre-check
7678 (lambda _
7679 ;; Tests require a running X server.
7680 (system "Xvfb :1 &")
7681 (setenv "DISPLAY" ":1")
7682 #t)))))
7683 (native-inputs
687b4909 7684 `(("glib" ,glib "bin") ; glib-compile-resources
4b2ed6c2 7685 ("pkg-config" ,pkg-config)
687b4909 7686 ;; For tests.
4b2ed6c2
RW		 7687 ("xorg-server" ,xorg-server)))
7688 (inputs
7689 `(("glib" ,glib)
7690 ("gobject-introspection" ,gobject-introspection)
7691 ("gtk+" ,gtk+)
7692 ("vala" ,vala)))
7693 (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
7694 (synopsis "Companion library to GObject and Gtk+")
7695 (description "The libdazzle library is a companion library to GObject and
7696Gtk+. It provides various features that the authors wish were in the
7697underlying library but cannot for various reasons. In most cases, they are
7698wildly out of scope for those libraries. In other cases, they are not quite
7699generic enough to work for everyone.")
7700 (license license:gpl3+)))
jackhill's copy of GNU Guix: https://guix.gnu.org/