HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: gucharmap: Update to 10.0.4.
[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
DH		 3978 (arguments
3979 `(#:phases
3980 (modify-phases %standard-phases
61fb581f
RW		 3981 (add-after 'install 'wrap-eog
3982 (lambda* (#:key outputs #:allow-other-keys)
3983 (let ((out (assoc-ref outputs "out"))
3984 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
3985 (wrap-program (string-append out "/bin/eog")
3986 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
3987 #t)))))
f70d8383
DH		 3988 (propagated-inputs
3989 `(("dconf" ,dconf)))
3990 (native-inputs
3991 `(("intltool" ,intltool)
b3546174 3992 ("itstool" ,itstool)
f70d8383 3993 ("glib" ,glib "bin")
61fb581f 3994 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
f70d8383 3995 ("gobject-introspection" ,gobject-introspection)
bcb354ad
SB		 3996 ("pkg-config" ,pkg-config)
3997 ("xmllint" ,libxml2)))
f70d8383
DH		 3998 (inputs
3999 `(("gnome-desktop" ,gnome-desktop)
4000 ("shared-mime-info" ,shared-mime-info)
4001 ("adwaita-icon-theme" ,adwaita-icon-theme)
4002 ("exempi" ,exempi)
4003 ("lcms" ,lcms)
4004 ("libexif" ,libexif)
4005 ("libpeas" ,libpeas)
4006 ("libjpeg" ,libjpeg)
4007 ("librsvg" ,librsvg)
4008 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4009 ("gtk+" ,gtk+)))
4010 (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
4011 (synopsis "GNOME image viewer")
4012 (description "Eye of GNOME is the GNOME image viewer. It
4013supports image conversion, rotation, and slideshows.")
4014 (license license:gpl2+)))
41af5e7b 4015
0c3f8cb8
LC		 4016(define-public eog-plugins
4017 ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
4018 ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
4019 ;; $XDG_DATA_DIRS. Thus, for EOG to find these, you have to have
4020 ;; 'XDG_DATA_DIRS' appropriately set.
4021 (package
4022 (name "eog-plugins")
5fed63dd 4023 (version "3.26.3")
0c3f8cb8
LC		 4024 (source (origin
4025 (method url-fetch)
f3b88ed2 4026 (uri (string-append "mirror://gnome/sources/eog-plugins/"
0c3f8cb8 4027 (version-major+minor version) "/"
f3b88ed2 4028 "eog-plugins-" version ".tar.xz"))
0c3f8cb8
LC		 4029 (sha256
4030 (base32
5fed63dd 4031 "06fnjs2p18ad5vk07z685cx26sc7d3azywss00w9xvz794b2i1g3"))))
0c3f8cb8
LC		 4032 (build-system gnu-build-system)
4033 (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
4034 (synopsis "Extensions for the Eye of GNOME image viewer")
4035 (native-inputs
4036 `(("pkg-config" ,pkg-config)
4037 ("gettext" ,gnu-gettext)))
4038 (inputs
4039 `(("eog" ,eog)
4040 ("glib" ,glib)
4041 ("gtk+" ,gtk+)
4042 ("libpeas" ,libpeas)
4043 ("libexif" ,libexif)
4044 ("libchamplain" ,libchamplain)))
4045 (description
4046 "This package provides plugins for the Eye of GNOME (EOG) image viewer,
4047notably:
4048
4049@itemize
4050@item @dfn{EXIF Display}, which displays camera (EXIF) information;
4051@item @dfn{Map}, which displays a map of where the picture was taken on the
4052side panel;
4053@item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
4054@end itemize\n")
4055
4056 ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
4057 ;; long suspicious byte stream that goes to a
4058 ;; ".gresource.eog_postasa_plugin" ELF section.
4059 (license license:gpl2+)))
4060
41af5e7b
SB		 4061(define-public libgudev
4062 (package
4063 (name "libgudev")
b78f5118 4064 (version "232")
41af5e7b
SB		 4065 (source (origin
4066 (method url-fetch)
4067 (uri (string-append "mirror://gnome/sources/" name "/"
4068 version "/" name "-" version ".tar.xz"))
4069 (sha256
4070 (base32
b78f5118 4071 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
41af5e7b 4072 (build-system gnu-build-system)
b78f5118
RW		 4073 (arguments
4074 '(#:configure-flags
4075 ;; umockdev depends on libgudev.
4076 (list "--disable-umockdev")))
41af5e7b
SB		 4077 (native-inputs
4078 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
4079 ("gobject-introspection" ,gobject-introspection)
4080 ("pkg-config" ,pkg-config)))
4081 (propagated-inputs
4082 `(("glib" ,glib))) ; required by gudev-1.0.pc
4083 (inputs
4084 `(("udev" ,eudev)))
4085 (home-page "https://wiki.gnome.org/Projects/libgudev")
4086 (synopsis "GObject bindings for libudev")
4087 (description
4088 "This library provides GObject bindings for libudev. It was originally
4089part of udev-extras, then udev, then systemd. It's now a project on its own.")
4090 (license license:lgpl2.1+)))
3dc8828f
SB		 4091
4092(define-public gvfs
4093 (package
4094 (name "gvfs")
0ab9f949 4095 (version "1.36.2")
3dc8828f
SB		 4096 (source (origin
4097 (method url-fetch)
4098 (uri (string-append "mirror://gnome/sources/" name "/"
4099 (version-major+minor version) "/"
4100 name "-" version ".tar.xz"))
4101 (sha256
4102 (base32
0ab9f949 4103 "1xq105596sk9yram5a143b369wpaiiwc9gz86n0j1kfr7nipkqn4"))))
3dc8828f
SB		 4104 (build-system gnu-build-system)
4105 (arguments
0ab9f949
RW		 4106 '(#:tests? #f ; XXX: requiring `pidof'
4107 #:phases
4108 (modify-phases %standard-phases
4109 (add-after 'unpack 'remove-broken-autogen-script
4110 (lambda _ (delete-file "autogen.sh") #t)))))
3dc8828f
SB		 4111 (native-inputs
4112 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
0ab9f949
RW		 4113 ("autoconf" ,autoconf)
4114 ("automake" ,automake)
4115 ("gettext" ,gettext-minimal)
4116 ("gtk-doc" ,gtk-doc)
4117 ("libtool" ,libtool)
3dc8828f
SB		 4118 ("pkg-config" ,pkg-config)
4119 ("xsltproc" ,libxslt)))
4120 (inputs
4121 `(("avahi" ,avahi)
4122 ("docbook-xml" ,docbook-xml-4.2)
4123 ("docbook-xsl" ,docbook-xsl)
4124 ("dbus" ,dbus)
4125 ("fuse" ,fuse)
24a78aa6 4126 ("gcr" ,gcr)
3dc8828f
SB		 4127 ("glib" ,glib)
4128 ("libarchive" ,libarchive)
4129 ("libbluray" ,libbluray)
8852ca24 4130 ("libcap" ,libcap)
3dc8828f
SB		 4131 ("libcdio-paranoia" ,libcdio-paranoia)
4132 ("libgcrypt" ,libgcrypt)
4133 ("libgphoto2" ,libgphoto2)
4134 ("libgudev" ,libgudev)
0ab9f949 4135 ("libimobiledevice" ,libimobiledevice)
3dc8828f
SB		 4136 ("libmtp" ,libmtp)
4137 ("libsecret" ,libsecret)
4138 ("libsmbclient" ,samba)
4139 ("libsoup" ,libsoup)
4140 ("libxml2" ,libxml2)
4141 ("nettle" ,nettle) ; XXX: required by libarchive.pc
8852ca24 4142 ("polkit" ,polkit)
3dc8828f
SB		 4143 ("udisks" ,udisks)))
4144 (home-page "https://wiki.gnome.org/gvfs/")
8f65585b 4145 (synopsis "Userspace virtual file system for GIO")
3dc8828f 4146 (description
8f65585b 4147 "GVFS is a userspace virtual file system designed to work with the I/O
3dc8828f
SB		 4148abstraction of GIO. It contains a GIO module that seamlessly adds GVFS support
4149to all applications using the GIO API. It also supports exposing the GVFS
4150mounts to non-GIO applications using FUSE.
4151
4152GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
4153DAV, and others.")
4154 (license license:lgpl2.0+)))
7c88b6bd
AW		 4155
4156(define-public gusb
4157 (package
4158 (name "gusb")
536b3274 4159 (version "0.3.0")
7c88b6bd
AW		 4160 (source (origin
4161 (method url-fetch)
4162 (uri (string-append "https://github.com/hughsie/libgusb/archive/"
536b3274 4163 version ".tar.gz"))
7c88b6bd
AW		 4164 (sha256
4165 (base32
536b3274
MB		 4166 "1wa9787ww7s1kl9jml6kiyrjgimlgagq4jmgdj7xcpsx83w10qxk"))))
4167 (build-system meson-build-system)
7c88b6bd 4168 (native-inputs
536b3274 4169 `(("gobject-introspection" ,gobject-introspection)
7c88b6bd
AW		 4170 ("pkg-config" ,pkg-config)
4171 ("vala" ,vala)
7c88b6bd
AW		 4172 ("gtk-doc" ,gtk-doc)))
4173 (propagated-inputs
4174 ;; Both of these are required by gusb.pc.
4175 `(("glib" ,glib)
4176 ("libusb" ,libusb)))
4177 (arguments
536b3274 4178 `(#:tests? #f)) ;libusb fails to initialize. Wonder what that is.
8f1640ed 4179 (home-page "https://github.com/hughsie/libgusb")
a124bbd2 4180 (synopsis "GLib binding for libusb1")
7c88b6bd
AW		 4181 (description
4182 "GUsb is a GObject wrapper for libusb1 that makes it easy to do
4183asynchronous control, bulk and interrupt transfers with proper cancellation
4184and integration into a mainloop. This makes it easy to integrate low level
4185USB transfers with your high-level application or system daemon.")
4186 (license license:lgpl2.1+)))
0abe1d86
AW		 4187
4188(define-public simple-scan
4189 (package
4190 (name "simple-scan")
baca5333 4191 (version "3.24.1")
0abe1d86
AW		 4192 (source (origin
4193 (method url-fetch)
4194 (uri (string-append "https://launchpad.net/simple-scan/"
4195 (version-major+minor version) "/"
4196 version "/+download/simple-scan-"
4197 version ".tar.xz"))
4198 (sha256
4199 (base32
baca5333 4200 "1czg21cdbd2fgqylxfnzfhhzy69gycf816d5bbaq6hb62hmq7bjy"))))
0abe1d86
AW		 4201 (build-system glib-or-gtk-build-system)
4202 (inputs
4203 `(("gtk" ,gtk+)
4204 ("zlib" ,zlib)
4205 ("cairo" ,cairo)
4206 ("gdk-pixbuf" ,gdk-pixbuf)
4207 ("gusb" ,gusb)
4c928743 4208 ("libsane" ,sane-backends)))
0abe1d86 4209 (native-inputs
b94a6ca0 4210 `(("gettext" ,gettext-minimal)
0abe1d86
AW		 4211 ("itstool" ,itstool)
4212 ("colord" ,colord)
4213 ("glib" ,glib "bin") ; glib-compile-schemas, etc.
4214 ("pkg-config" ,pkg-config)
bcb354ad
SB		 4215 ("vala" ,vala)
4216 ("xmllint" ,libxml2)))
fb9ca511
TGR		 4217 (arguments
4218 '(#:configure-flags '("--disable-packagekit")
4219 #:phases
4220 (modify-phases %standard-phases
4221 (add-after 'unpack 'clean
4222 (lambda _
4223 ;; Remove a left-over reference to PackageKit.
4224
4225 ;; https://bugs.launchpad.net/simple-scan/+bug/1462769
4226
4227 ;; There are some generated C files erroneously
4228 ;; included in the source distribution, and this
4229 ;; one breaks the build by referring to a
4230 ;; non-existent header (packagekit.h)
4231 (delete-file "src/ui.c"))))))
0abe1d86
AW		 4232 (home-page "https://launchpad.net/simple-scan")
4233 (synopsis "Document and image scanner")
4234 (description "Simple Scan is an easy-to-use application, designed to let
4235users connect their scanner and quickly have the image/document in an
4236appropriate format. Simple Scan is basically a frontend for SANE - which is
4237the same backend as XSANE uses. This means that all existing scanners will
4238work and the interface is well tested.")
4239 (license license:gpl3+)))
7549f984 4240
ab466d79
RW		 4241(define-public eolie
4242 (package
4243 (name "eolie")
d74656ea 4244 (version "0.9.52")
ab466d79
RW		 4245 (source (origin
4246 (method url-fetch)
00014781 4247 (uri (string-append "https://gitlab.gnome.org/World/eolie/"
d74656ea 4248 "uploads/d95bf72958276c80dfaca8cce0e4e92c/"
00014781 4249 "eolie-" version ".tar.xz"))
ab466d79
RW		 4250 (sha256
4251 (base32
d74656ea 4252 "1s3b0rkm8sxmhzzi624snzqvz61i1rja5wxyzw6jg2kcdjcylwln"))))
00014781 4253 (build-system meson-build-system)
ab466d79 4254 (arguments
00014781
RW		 4255 `(#:glib-or-gtk? #t
4256 #:phases
ab466d79
RW		 4257 (modify-phases %standard-phases
4258 (add-after 'wrap 'wrap-more
4259 (lambda* (#:key inputs outputs #:allow-other-keys)
4260 (let* ((out (assoc-ref outputs "out"))
4261 ;; These libraries must be on LD_LIBRARY_PATH.
4262 (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
4263 "atk" "gtk+" "gsettings-desktop-schemas"
84b33436 4264 "gcc:lib" ; needed b/c webkitgtk is built with gcc-7
ab466d79
RW		 4265 "gobject-introspection"))
4266 (path (string-join
4267 (map (lambda (lib)
4268 (string-append (assoc-ref inputs lib) "/lib"))
4269 libs)
4270 ":")))
4271 (wrap-program (string-append out "/bin/eolie")
4272 `("LD_LIBRARY_PATH" ":" prefix (,path))
4273 `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
4274 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
4275 #t)))))
4276 (native-inputs
84b33436
MW		 4277 `(("gcc:lib" ,gcc-7 "lib") ; needed because webkitgtk is built with gcc-7
4278 ("intltool" ,intltool)
ab466d79 4279 ("itstool" ,itstool)
d95f1041 4280 ("pkg-config" ,pkg-config)
d95f1041 4281 ("python" ,python)
00014781 4282 ("glib:bin" ,glib "bin")
d95f1041 4283 ("gtk+" ,gtk+ "bin")))
ab466d79
RW		 4284 (inputs
4285 `(("gobject-introspection" ,gobject-introspection)
4286 ("glib-networking" ,glib-networking)
4287 ("cairo" ,cairo)
4288 ("gtk+" ,gtk+)
4289 ("atk" ,atk) ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
4290 ("python" ,python-wrapper)
d72f76df 4291 ("python-dateutil" ,python-dateutil)
00014781 4292 ("python-pyfxa" ,python-pyfxa)
ab466d79
RW		 4293 ("python-pygobject" ,python-pygobject)
4294 ("python-pycairo" ,python-pycairo)
00014781 4295 ("python-pycrypto" ,python-pycrypto)
ab466d79
RW		 4296 ("libsecret" ,libsecret)
4297 ("gtkspell3" ,gtkspell3)
4298 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
84b33436 4299 ("webkitgtk" ,webkitgtk-2.22)))
166b2c97 4300 (home-page "https://wiki.gnome.org/Apps/Eolie")
ab466d79
RW		 4301 (synopsis "Web browser for GNOME")
4302 (description
4303 "Eolie is a new web browser for GNOME. It features Firefox sync support,
4304a secret password store, an adblocker, and a modern UI.")
4305 (license license:gpl3+)))
4306
7549f984
SB		 4307(define-public epiphany
4308 (package
4309 (name "epiphany")
0e4d4d98 4310 (version "3.28.3.1")
7549f984
SB		 4311 (source (origin
4312 (method url-fetch)
4313 (uri (string-append "mirror://gnome/sources/" name "/"
4314 (version-major+minor version) "/"
4315 name "-" version ".tar.xz"))
4316 (sha256
4317 (base32
0e4d4d98 4318 "1xz6xl6b0iihvczyr0cs1z5ifvpai6anb4m0ng1caiph06klc1b9"))))
fc5c5b92
R		 4319
4320 (build-system meson-build-system)
7549f984
SB		 4321 (arguments
4322 ;; FIXME: tests run under Xvfb, but fail with:
4323 ;; /src/bookmarks/ephy-bookmarks/create:
4324 ;; ** (test-ephy-bookmarks:19591): WARNING **: Unable to start Zeroconf
4325 ;; subsystem
4326 ;; FAIL
6f48d9db 4327 '(#:tests? #f
e19f9c24
LF		 4328 #:glib-or-gtk? #t
4329 #:configure-flags
4330 ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
4331 (list (string-append "-Dc_link_args=-Wl,-rpath="
4332 (assoc-ref %outputs "out") "/lib/epiphany"))))
80a747c4
SB		 4333 (propagated-inputs
4334 `(("dconf" ,dconf)))
7549f984 4335 (native-inputs
fc5c5b92 4336 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
480d39a6 4337 ("gcc" ,gcc-7) ; needed because webkitgtk-2.22 is compiled with gcc-7
fc5c5b92
R		 4338 ("glib:bin" ,glib "bin") ; for glib-mkenums
4339 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
4340 ("intltool" ,intltool)
7549f984 4341 ("itstool" ,itstool)
bcb354ad
SB		 4342 ("pkg-config" ,pkg-config)
4343 ("xmllint" ,libxml2)))
7549f984
SB		 4344 (inputs
4345 `(("avahi" ,avahi)
4346 ("gcr" ,gcr)
fc5c5b92 4347 ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
7549f984
SB		 4348 ("glib-networking" ,glib-networking)
4349 ("gnome-desktop" ,gnome-desktop)
4350 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
eb6f315b 4351 ("json-glib" ,json-glib)
7549f984
SB		 4352 ("iso-codes" ,iso-codes)
4353 ("libnotify" ,libnotify)
4354 ("libsecret" ,libsecret)
7549f984 4355 ("libxslt" ,libxslt)
fc5c5b92 4356 ("nettle" ,nettle) ; for hogweed
7549f984 4357 ("sqlite" ,sqlite)
480d39a6 4358 ("webkitgtk" ,webkitgtk-2.22)))
7549f984
SB		 4359 (home-page "https://wiki.gnome.org/Apps/Web")
4360 (synopsis "GNOME web browser")
4361 (description
4362 "Epiphany is a GNOME web browser targeted at non-technical users. Its
4363principles are simplicity and standards compliance.")
4364 (license license:gpl2+)))
a3856b2c
SB		 4365
4366(define-public d-feet
4367 (package
4368 (name "d-feet")
7d04b13c 4369 (version "0.3.11")
a3856b2c
SB		 4370 (source (origin
4371 (method url-fetch)
4372 (uri (string-append "mirror://gnome/sources/" name "/"
4373 (version-major+minor version) "/"
4374 name "-" version ".tar.xz"))
4375 (sha256
4376 (base32
7d04b13c 4377 "1hmrijm4d9vwzx2r8qzzsy8ccpj79l1y6cc569n9jjzqcq699p53"))))
a3856b2c
SB		 4378 (build-system glib-or-gtk-build-system)
4379 (arguments
4380 '(#:out-of-source? #f ; tests need to run in the source directory.
4381 #:phases
4382 (modify-phases %standard-phases
4383 (add-before
4384 'check 'pre-check
86aff791 4385 (lambda _
a3856b2c
SB		 4386 ;; The test suite requires a running X server.
4387 (system "Xvfb :1 &")
4388 (setenv "DISPLAY" ":1")
4389 ;; Don't fail on missing '/etc/machine-id'.
4390 (setenv "DBUS_FATAL_WARNINGS" "0")
4391 ;; tests.py and window.py don't meet E402:
4392 ;; E402 module level import not at top of file
4393 (substitute* "src/tests/Makefile"
86aff791
MW		 4394 (("--ignore=E123") "--ignore=E123,E402"))
4395 #t))
a3856b2c
SB		 4396 (add-after
4397 'install 'wrap-program
4398 (lambda* (#:key outputs #:allow-other-keys)
4399 (let ((prog (string-append (assoc-ref outputs "out")
4400 "/bin/d-feet")))
4401 (wrap-program prog
4402 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
86aff791
MW		 4403 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
4404 #t))))))
a3856b2c
SB		 4405 (native-inputs
4406 `(("intltool" ,intltool)
4407 ("itstool" ,itstool)
4408 ("pkg-config" ,pkg-config)
4409 ("python-pep8" ,python-pep8)
4410 ("xmllint" ,libxml2)
4411 ("xorg-server" ,xorg-server)))
4412 (inputs
4413 `(("gobject-introspection" ,gobject-introspection)
4414 ("gtk+" ,gtk+)
4415 ("python" ,python-wrapper)
4416 ("python-pygobject" ,python-pygobject)))
4417 (home-page "https://wiki.gnome.org/Apps/DFeet")
4418 (synopsis "D-Bus debugger")
4419 (description
4420 "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
4421of running programs and invoke methods on those interfaces.")
4422 (license license:gpl2+)))
c3b97bd9
SB		 4423
4424(define-public yelp-xsl
4425 (package
4426 (name "yelp-xsl")
7c213900 4427 (version "3.28.0")
c3b97bd9
SB		 4428 (source (origin
4429 (method url-fetch)
4430 (uri (string-append "mirror://gnome/sources/" name "/"
4431 (version-major+minor version) "/"
4432 name "-" version ".tar.xz"))
4433 (sha256
4434 (base32
7c213900 4435 "14rznm1qpsnmkwksnkd5j7zplakl01kvrcw0fdmd5gdc65xz9kcc"))))
c3b97bd9
SB		 4436 (build-system gnu-build-system)
4437 (native-inputs
4438 `(("intltool" ,intltool)
4439 ("itstool" ,itstool)
4440 ("xmllint" ,libxml2)))
4441 (home-page "https://wiki.gnome.org/Apps/Yelp")
4442 (synopsis "XSL stylesheets for Yelp")
4443 (description
4444 "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
4445to format Docbook and Mallard documents.")
4446 (license license:gpl2+)))
de3d612a
SB		 4447
4448(define-public yelp
4449 (package
4450 (name "yelp")
ef7f084f 4451 (version "3.28.1")
de3d612a
SB		 4452 (source (origin
4453 (method url-fetch)
4454 (uri (string-append "mirror://gnome/sources/" name "/"
4455 (version-major+minor version) "/"
4456 name "-" version ".tar.xz"))
4457 (sha256
4458 (base32
ef7f084f 4459 "033w5qnhm495pnvscnb3k2dagzgq4fsnzcrh0k2rgr10mw2mv2p8"))))
de3d612a
SB		 4460 (build-system glib-or-gtk-build-system)
4461 (native-inputs
4462 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
4463 ("intltool" ,intltool)
4464 ("itstool" ,itstool)
4465 ("pkg-config" ,pkg-config)))
4466 (propagated-inputs
4467 `(("dconf" ,dconf)))
4468 (inputs
ad1b7d8b
SB		 4469 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4470 ("libxslt" ,libxslt)
de3d612a 4471 ("sqlite" ,sqlite)
4c28ca1d
SB		 4472 ("webkitgtk" ,webkitgtk)
4473 ("yelp-xsl" ,yelp-xsl)))
de3d612a
SB		 4474 (home-page "https://wiki.gnome.org/Apps/Yelp")
4475 (synopsis "GNOME help browser")
4476 (description
4477 "Yelp is the help viewer in Gnome. It natively views Mallard, DocBook,
4478man, info, and HTML documents. It can locate documents according to the
4479freedesktop.org help system specification.")
4480 (license license:gpl2+)))
122d0d10
SB		 4481
4482(define-public yelp-tools
4483 (package
4484 (name "yelp-tools")
2089bca5 4485 (version "3.28.0")
122d0d10
SB		 4486 (source (origin
4487 (method url-fetch)
4488 (uri (string-append "mirror://gnome/sources/" name "/"
4489 (version-major+minor version) "/"
4490 name "-" version ".tar.xz"))
4491 (sha256
4492 (base32
2089bca5 4493 "1b61dmlb1sd50fgq6zgnkcpx2s1py33q0x9cx67fzpsr4gmgxnw2"))))
122d0d10
SB		 4494 (build-system gnu-build-system)
4495 (native-inputs
4496 `(("pkg-config" ,pkg-config)))
4497 (propagated-inputs
4498 ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
4499 `(("itstool" ,itstool)
4500 ("xmllint" ,libxml2)
4501 ("xsltproc" ,libxslt)))
4502 (inputs
4503 `(("yelp-xsl" ,yelp-xsl)))
4504 (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
4505 (synopsis "Yelp documentation tools")
4506 (description
4507 "Yelp-tools is a collection of scripts and build utilities to help create,
4508manage, and publish documentation for Yelp and the web. Most of the heavy
4509lifting is done by packages like yelp-xsl and itstool. This package just
4510wraps things up in a developer-friendly way.")
4511 (license license:gpl2+)))
af8f9f23
RW		 4512
4513(define-public libgee
4514 (package
4515 (name "libgee")
b1be07cf 4516 (version "0.20.1")
af8f9f23
RW		 4517 (source (origin
4518 (method url-fetch)
4519 (uri (string-append "mirror://gnome/sources/" name "/"
4520 (version-major+minor version) "/"
4521 name "-" version ".tar.xz"))
4522 (sha256
4523 (base32
b1be07cf 4524 "0c26x8gi3ivmhlbqcmiag4jwrkvcy28ld24j55nqr3jikb904a5v"))))
af8f9f23
RW		 4525 (build-system gnu-build-system)
4526 (arguments
4527 `(#:phases
4528 (modify-phases %standard-phases
4529 (add-after 'unpack 'fix-introspection-install-dir
4530 (lambda* (#:key outputs #:allow-other-keys)
4531 (let ((out (assoc-ref outputs "out")))
4532 (substitute* "gee/Makefile.in"
4533 (("@INTROSPECTION_GIRDIR@")
4534 (string-append out "/share/gir-1.0/"))
4535 (("@INTROSPECTION_TYPELIBDIR@")
4536 (string-append out "/lib/girepository-1.0/")))))))))
4537 (native-inputs
4538 `(("glib" ,glib "bin")
4539 ("pkg-config" ,pkg-config)))
4540 (inputs
4541 `(("glib" ,glib)
4542 ("gobject-introspection" ,gobject-introspection)))
4543 (home-page "https://wiki.gnome.org/Projects/Libgee")
4544 (synopsis "GObject collection library")
4545 (description
4546 "Libgee is a utility library providing GObject-based interfaces and
4547classes for commonly used data structures.")
4548 (license license:lgpl2.1+)))
b0f9c4b8
RW		 4549
4550(define-public gexiv2
4551 (package
4552 (name "gexiv2")
adf0b482 4553 (version "0.10.10")
b0f9c4b8
RW		 4554 (source (origin
4555 (method url-fetch)
4556 (uri (string-append "mirror://gnome/sources/" name "/"
4557 (version-major+minor version) "/"
4558 name "-" version ".tar.xz"))
4559 (sha256
4560 (base32
adf0b482 4561 "1qbcwq89g4r67k1dj4laqj441pj4195c8hzhxn8vc6mmg8adg6kx"))))
51c482e4 4562 (build-system meson-build-system)
b0f9c4b8
RW		 4563 (native-inputs
4564 `(("glib" ,glib "bin")
4565 ("pkg-config" ,pkg-config)))
4566 (propagated-inputs
4567 ;; Listed in "Requires" section of gexiv2.pc
4568 `(("exiv2" ,exiv2)))
4569 (inputs
4570 `(("glib" ,glib)
4571 ("gobject-introspection" ,gobject-introspection)))
4572 (home-page "https://wiki.gnome.org/Projects/gexiv2")
4573 (synopsis "GObject wrapper around the Exiv2 photo metadata library")
4574 (description
4575 "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library. It
4576allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
4577metadata in photo and video files of various formats.")
4578 (license license:gpl2+)))
fed5a689
RW		 4579
4580(define-public shotwell
4581 (package
4582 (name "shotwell")
e266043e 4583 (version "0.28.4")
fed5a689
RW		 4584 (source (origin
4585 (method url-fetch)
4586 (uri (string-append "mirror://gnome/sources/" name "/"
4587 (version-major+minor version) "/"
4588 name "-" version ".tar.xz"))
4589 (sha256
4590 (base32
e266043e 4591 "03k7n2kmzqn11kf3733w7m6xjh2b5q9xr84za2hli11fjymzaxm9"))))
fed5a689 4592 (build-system glib-or-gtk-build-system)
735b8db6
TGR		 4593 (propagated-inputs
4594 `(("dconf" ,dconf)))
fed5a689
RW		 4595 (native-inputs
4596 `(("pkg-config" ,pkg-config)
f819c21d 4597 ("itstool" ,itstool)
b94a6ca0 4598 ("gettext" ,gettext-minimal)
77e9c993 4599 ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
735b8db6
TGR		 4600 ("itstool" ,itstool)
4601 ("vala" ,vala)))
fed5a689 4602 (inputs
735b8db6
TGR		 4603 `(("glib:bin" ,glib "bin")
4604 ("gstreamer" ,gstreamer)
fed5a689 4605 ("gst-plugins-base" ,gst-plugins-base)
dfb0323d 4606 ("libgdata" ,libgdata)
fed5a689
RW		 4607 ("libgee" ,libgee)
4608 ("gexiv2" ,gexiv2)
4609 ("libraw" ,libraw)
4610 ("json-glib" ,json-glib)
7108425c 4611 ("webkitgtk" ,webkitgtk)
fed5a689
RW		 4612 ("sqlite" ,sqlite)
4613 ("libsoup" ,libsoup)
4614 ("libxml2" ,libxml2)
fed5a689 4615 ("libgudev" ,libgudev)
522fc32e
LF		 4616 ("libgphoto2" ,libgphoto2)
4617 ("gcr" ,gcr)))
fed5a689
RW		 4618 (home-page "https://wiki.gnome.org/Apps/Shotwell")
4619 (synopsis "Photo manager for GNOME 3")
4620 (description
4621 "Shotwell is a digital photo manager designed for the GNOME desktop
4622environment. It allows you to import photos from disk or camera, organize
4623them by keywords and events, view them in full-window or fullscreen mode, and
4624share them with others via social networking and more.")
4625 (license license:lgpl2.1+)))
293ff8b2
DT		 4626
4627(define-public file-roller
4628 (package
4629 (name "file-roller")
0a500745 4630 (version "3.28.0")
293ff8b2
DT		 4631 (source (origin
4632 (method url-fetch)
4633 (uri (string-append "mirror://gnome/sources/" name "/"
4634 (version-major+minor version) "/"
4635 name "-" version ".tar.xz"))
4636 (sha256
4637 (base32
0a500745
RW		 4638 "15pn2m80x45bzibig4zrqybnbr0n1f9wpqx7f2p6difldns3jwf1"))))
4639 (build-system meson-build-system)
293ff8b2 4640 (native-inputs
0a500745
RW		 4641 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
4642 ("intltool" ,intltool)
4643 ("pkg-config" ,pkg-config)
4644 ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
4645 ("glib:bin" ,glib "bin")))
293ff8b2
DT		 4646 ;; TODO: Add libnautilus.
4647 (inputs
4648 `(("gtk+" ,gtk+)
4649 ("gdk-pixbuf" ,gdk-pixbuf)
4650 ("json-glib" ,json-glib)
4651 ("libarchive" ,libarchive)
4652 ("libnotify" ,libnotify)
4653 ("nettle" ,nettle)
4654 ("itstool" ,itstool)
4655 ("libxml2" ,libxml2)))
4656 (synopsis "Graphical archive manager for GNOME")
4657 (description "File Roller is an archive manager for the GNOME desktop
4658environment that allows users to view, unpack, and create compressed archives
4659such as gzip tarballs.")
4660 (home-page "http://fileroller.sourceforge.net/")
4661 (license license:gpl2+)))
7ce49365
SB		 4662
4663(define-public gnome-session
4664 (package
4665 (name "gnome-session")
df278071 4666 (version "3.28.1")
7ce49365
SB		 4667 (source (origin
4668 (method url-fetch)
4669 (uri (string-append "mirror://gnome/sources/" name "/"
4670 (version-major+minor version) "/"
4671 name "-" version ".tar.xz"))
4672 (sha256
4673 (base32
df278071 4674 "14nmbirgrp2nm16khbz109saqdlinlbrlhjnbjydpnrlimfgg4xq"))))
2914af3c 4675 (arguments
df278071
RW		 4676 '(#:glib-or-gtk? #t
4677 #:phases
2914af3c
AW		 4678 (modify-phases %standard-phases
4679 (add-before 'configure 'pre-configure
4680 (lambda* (#:key outputs #:allow-other-keys)
4681 ;; Use elogind instead of systemd.
df278071
RW		 4682 (substitute* "meson.build"
4683 (("libsystemd-login") "libelogind")
4684 (("and libsystemd_daemon_dep.found.*") ","))
2914af3c
AW		 4685 (substitute* "gnome-session/gsm-systemd.c"
4686 (("#include <systemd/sd-login.h>")
4687 "#include <elogind/sd-login.h>"))
df278071 4688 ;; Remove uses of the systemd daemon.
803ab416
SB		 4689 (substitute* "gnome-session/gsm-autostart-app.c"
4690 (("#ifdef HAVE_SYSTEMD") "#if 0"))
a0d7baaf
LC		 4691 #t))
4692 (add-after 'install 'wrap-gnome-session
4693 (lambda* (#:key inputs outputs #:allow-other-keys)
4694 ;; Make sure 'gnome-session' finds the 'gsettings' program.
4695 (let ((glib (assoc-ref inputs "glib:bin"))
4696 (out (assoc-ref outputs "out")))
4697 (wrap-program (string-append out "/bin/gnome-session")
4698 `("PATH" ":" prefix (,(string-append glib "/bin"))))
1d7bff4b
TS		 4699 #t)))
4700 (add-after 'install 'add-absolute-paths-to-desktop-files
4701 (lambda* (#:key outputs #:allow-other-keys)
4702 (let* ((out (assoc-ref outputs "out")))
4703 (substitute* (map (lambda (x)
4704 (string-append out "/share/xsessions/" x))
4705 '("gnome.desktop" "gnome-xorg.desktop"))
4706 (("gnome-session") (string-append out "/bin/gnome-session")))
a0d7baaf 4707 #t))))
6cbc8d57 4708
2914af3c 4709 #:configure-flags
df278071
RW		 4710 '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
4711 "-Dman=false" ; FIXME: disabled because of docbook validation error
4712 "-Dsystemd_journal=false")))
4713 (build-system meson-build-system)
7ce49365
SB		 4714 (native-inputs
4715 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4716 ("pkg-config" ,pkg-config)
4717 ("intltool" ,intltool)
df278071
RW		 4718 ("xsltproc" ,libxslt)
4719 ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
4720 ("docbook-xsl" ,docbook-xsl)
4721 ("docbook-xml" ,docbook-xml)
4722 ("xmlto" ,xmlto)))
7ce49365 4723 (inputs
2914af3c
AW		 4724 `(("elogind" ,elogind)
4725 ("gnome-desktop" ,gnome-desktop)
ba3cb5ab 4726 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7ce49365
SB		 4727 ("gtk+" ,gtk+)
4728 ("json-glib" ,json-glib)
4729 ("libsm" ,libsm)
4730 ("libxcomposite" ,libxcomposite)
4731 ("libxtst" ,libxtst)
4732 ("mesa" ,mesa)
4733 ("upower" ,upower)
4734 ("xtrans" ,xtrans)))
4735 (synopsis "Session manager for GNOME")
4736 (description
4737 "This package contains the GNOME session manager, as well as a
4738configuration program to choose applications starting on login.")
4739 (home-page "https://wiki.gnome.org/Projects/SessionManagement")
4740 (license license:gpl2+)))
f47ba77e
SB		 4741
4742(define-public gjs
4743 (package
4744 (name "gjs")
72717817 4745 (version "1.52.3")
f47ba77e
SB		 4746 (source (origin
4747 (method url-fetch)
4748 (uri (string-append "mirror://gnome/sources/" name "/"
4749 (version-major+minor version) "/"
4750 name "-" version ".tar.xz"))
4751 (sha256
4752 (base32
72717817 4753 "1z4n15wdz6pbqd2hfzrqc8mmprhv50v4jk43p08v0xv07yldh8ff"))))
f47ba77e
SB		 4754 (build-system gnu-build-system)
4755 (arguments
4756 '(#:phases
4757 (modify-phases %standard-phases
4758 (add-before
4759 'check 'pre-check
4760 (lambda _
fc119619
MW		 4761 ;; The test suite requires a running X server.
4762 (system "Xvfb :1 &")
4763 (setenv "DISPLAY" ":1")
4764
f47ba77e
SB		 4765 ;; For the missing /etc/machine-id.
4766 (setenv "DBUS_FATAL_WARNINGS" "0")
ba666b07 4767
144f94d0
KK		 4768 ;; Our mozjs-38 package does not compile the required Intl API
4769 ;; support for these failing tests.
4770 (substitute* "installed-tests/js/testLocale.js"
4771 ((".*toBeDefined.*") "")
4772 ((".*expect\\(datestr\\).*") ""))
f47ba77e
SB		 4773 #t)))))
4774 (native-inputs
8a831c6f 4775 `(("glib:bin" ,glib "bin") ; for glib-compile-resources
f47ba77e
SB		 4776 ("pkg-config" ,pkg-config)
4777 ("xmllint" ,libxml2)
4778 ;; For testing
4779 ("dbus-launch" ,dbus)
4780 ("uuidgen" ,util-linux)
4781 ("xvfb" ,xorg-server)))
4782 (propagated-inputs
4783 ;; These are all in the Requires.private field of gjs-1.0.pc.
144f94d0
KK		 4784 `(("cairo" ,cairo)
4785 ("gobject-introspection" ,gobject-introspection)
72717817 4786 ("mozjs" ,mozjs-52)))
f47ba77e
SB		 4787 (inputs
4788 `(("gtk+" ,gtk+)
4789 ("readline" ,readline)))
4790 (synopsis "Javascript bindings for GNOME")
f032d0be 4791 (home-page "https://live.gnome.org/Gjs")
f47ba77e
SB		 4792 (description
4793 "Gjs is a javascript binding for GNOME. It's mainly based on spidermonkey
4794javascript engine and the GObject introspection framework.")
4795 (license license:gpl2+)))
329d731b
DH		 4796
4797(define-public gedit
4798 (package
4799 (name "gedit")
6a29c8d3 4800 (version "3.28.1")
329d731b
DH		 4801 (source (origin
4802 (method url-fetch)
4803 (uri (string-append "mirror://gnome/sources/" name "/"
4804 (version-major+minor version) "/"
4805 name "-" version ".tar.xz"))
4806 (sha256
4807 (base32
6a29c8d3 4808 "0791r07d3ixmmfk68lvhp3d5i4vnlrnx10csxwgpfqyfb04vwx7i"))))
329d731b
DH		 4809 (build-system glib-or-gtk-build-system)
4810 (arguments
0d2df50c 4811 `(#:phases
329d731b
DH		 4812 (modify-phases %standard-phases
4813 (add-after
4814 'install 'wrap-gedit
4815 (lambda* (#:key inputs outputs #:allow-other-keys)
4816 (let ((out (assoc-ref outputs "out"))
4817 (gtksourceview (assoc-ref inputs "gtksourceview"))
afc25242
SB		 4818 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
4819 (python-path (getenv "PYTHONPATH")))
329d731b 4820 (wrap-program (string-append out "/bin/gedit")
afc25242 4821 ;; For plugins.
329d731b 4822 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
afc25242 4823 `("PYTHONPATH" ":" prefix (,python-path))
329d731b
DH		 4824 ;; For language-specs.
4825 `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
4826 "/share")))))
4827 #t)))))
4828 (propagated-inputs
4829 `(("dconf" ,dconf)))
4830 (native-inputs
4831 `(("intltool" ,intltool)
b3546174 4832 ("itstool" ,itstool)
329d731b
DH		 4833 ("gobject-introspection" ,gobject-introspection)
4834 ("pkg-config" ,pkg-config)))
4835 (inputs
4836 `(("glib" ,glib)
0d2df50c 4837 ("gspell" ,gspell)
329d731b 4838 ("gtk+" ,gtk+)
b54c2289 4839 ("gtksourceview" ,gtksourceview-3)
329d731b
DH		 4840 ("libpeas" ,libpeas)
4841 ("libxml2" ,libxml2)
329d731b
DH		 4842 ("iso-codes" ,iso-codes)
4843 ("python-pygobject" ,python-pygobject)
4844 ("python" ,python)
4845 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4846 ("libx11" ,libx11)
4847 ("vala" ,vala)
4848 ("adwaita-icon-theme" ,adwaita-icon-theme)
4849 ("libsoup" ,libsoup)
4850 ("gnome-desktop" ,gnome-desktop)))
4851 (home-page "https://wiki.gnome.org/Apps/Gedit")
4852 (synopsis "GNOME text editor")
4853 (description "While aiming at simplicity and ease of use, gedit is a
4854powerful general purpose text editor.")
4855 (license license:gpl2+)))
b7179363
SB		 4856
4857(define-public zenity
4858 (package
4859 (name "zenity")
f8e2b577 4860 (version "3.28.1")
b7179363
SB		 4861 (source (origin
4862 (method url-fetch)
4863 (uri (string-append "mirror://gnome/sources/" name "/"
4864 (version-major+minor version) "/"
4865 name "-" version ".tar.xz"))
4866 (sha256
4867 (base32
f8e2b577 4868 "0swavrkc5ps3fwzy6h6l5mmim0wwy10xrq0qqkay5d0zf9a965yv"))))
b7179363
SB		 4869 (build-system gnu-build-system)
4870 (native-inputs
b94a6ca0 4871 `(("gettext" ,gettext-minimal)
b7179363
SB		 4872 ("itstool" ,itstool)
4873 ("pkg-config" ,pkg-config)))
4874 (inputs
4875 `(("libnotify" ,libnotify)
4876 ("webkitgtk" ,webkitgtk)))
4877 (synopsis "Display graphical dialog boxes from shell scripts")
f032d0be 4878 (home-page "https://www.gnome.org")
b7179363
SB		 4879 (description
4880 "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
4881to display dialog boxes from the commandline and shell scripts.")
4882 (license license:lgpl2.0+)))
60c3627c
SB		 4883
4884(define-public mutter
4885 (package
4886 (name "mutter")
5055d385 4887 (version "3.28.2")
60c3627c 4888 (source (origin
86c44e72
KK		 4889 (method url-fetch)
4890 (uri (string-append "mirror://gnome/sources/" name "/"
4891 (version-major+minor version) "/"
4892 name "-" version ".tar.xz"))
60c3627c
SB		 4893 (sha256
4894 (base32
5055d385 4895 "0ighs1zvlssgq16v1h3vg280za7y448snq65gc5m1zmqqawqkymg"))))
86c44e72
KK		 4896 ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
4897 ;; versions of cogl and clutter. As a result, many of the inputs,
4898 ;; propagated-inputs, and configure flags used in cogl and clutter are
4899 ;; needed here as well.
60c3627c
SB		 4900 (build-system gnu-build-system)
4901 (arguments
4902 '(#:configure-flags
4903 ;; XXX: build fails with [-Werror]:
4904 ;; backends/meta-cursor-renderer.c:112:5: error:
4905 ;; implicit declaration of function ?roundf?
a88d5a0c
MW		 4906 (list "--enable-compile-warnings=minimum"
4907
86c44e72 4908 "--enable-native-backend"
a88d5a0c
MW		 4909
4910 ;; The following flags are needed for the bundled clutter
4911 "--enable-x11-backend=yes"
4912
d633f2f6
RH		 4913 (string-append "--with-xwayland-path="
4914 (assoc-ref %build-inputs "xorg-server-xwayland")
4915 "/bin/Xwayland")
4916
a88d5a0c
MW		 4917 ;; the remaining flags are needed for the bundled cogl
4918 "--enable-cogl-gst"
4919 (string-append "--with-gl-libname="
4920 (assoc-ref %build-inputs "mesa")
f23052a6
DC		 4921 "/lib/libGL.so"))
4922 #:phases
4923 (modify-phases %standard-phases
86c44e72
KK		 4924 ;; Replace references to systemd libraries to elogind references.
4925 (add-before 'configure 'use-elogind
4926 (lambda _
4927 (substitute* (list "configure"
4928 "src/backends/native/meta-launcher.c"
4929 "src/core/main.c")
4930 (("systemd") "elogind"))
4931 #t)))))
60c3627c
SB		 4932 (native-inputs
4933 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
4934 ("gobject-introspection" ,gobject-introspection)
4935 ("intltool" ,intltool)
f23052a6
DC		 4936 ("pkg-config" ,pkg-config)
4937 ;; For git build
4938 ("autoconf" ,autoconf)
4939 ("automake" ,automake)
4940 ("libtool" ,libtool)))
60c3627c 4941 (propagated-inputs
a88d5a0c
MW		 4942 `(;; libmutter.pc refers to these:
4943 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4944 ("gtk+" ,gtk+)
4945 ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
4946 ("atk" ,atk)
4947 ("cairo" ,cairo)
4948 ("gdk-pixbuf" ,gdk-pixbuf)
4949 ("glib" ,glib)
60c3627c 4950 ("gtk+" ,gtk+)
a88d5a0c
MW		 4951 ("json-glib" ,json-glib)
4952 ("libinput" ,libinput)
4953 ("libx11" ,libx11)
4954 ("libxcomposite" ,libxcomposite)
4955 ("libxdamage" ,libxdamage)
4956 ("libxext" ,libxext)
4957 ("libxfixes" ,libxfixes)
4958 ("libxkbcommon" ,libxkbcommon)
4959 ("libxrandr" ,libxrandr)
4960 ("mesa" ,mesa)
4961 ("pango" ,pango)
4962 ("udev" ,eudev)
a88d5a0c 4963 ("xinput" ,xinput)))
60c3627c 4964 (inputs
86c44e72
KK		 4965 `(("elogind" ,elogind)
4966 ("gnome-desktop" ,gnome-desktop)
60c3627c 4967 ("libcanberra-gtk" ,libcanberra)
a88d5a0c 4968 ("libgudev" ,libgudev)
60c3627c
SB		 4969 ("libice" ,libice)
4970 ("libsm" ,libsm)
60c3627c 4971 ("libxkbfile" ,libxkbfile)
a88d5a0c 4972 ("libxrandr" ,libxrandr)
86c44e72 4973 ("libxtst" ,libxtst)
60c3627c
SB		 4974 ("startup-notification" ,startup-notification)
4975 ("upower-glib" ,upower)
4976 ("xkeyboard-config" ,xkeyboard-config)
d633f2f6 4977 ("xorg-server-xwayland" ,xorg-server-xwayland)
60c3627c
SB		 4978 ("zenity" ,zenity)))
4979 (synopsis "Window and compositing manager")
f032d0be 4980 (home-page "https://www.gnome.org")
60c3627c
SB		 4981 (description
4982 "Mutter is a window and compositing manager that displays and manages your
4983desktop via OpenGL. Mutter combines a sophisticated display engine using the
4984Clutter toolkit with solid window-management logic inherited from the Metacity
4985window manager.")
86c44e72 4986 (license license:gpl2+)))
685cee87
SB		 4987
4988(define-public gnome-online-accounts
4989 (package
4990 (name "gnome-online-accounts")
ae8e71ee 4991 (version "3.26.2")
685cee87
SB		 4992 (source (origin
4993 (method url-fetch)
4994 (uri (string-append "mirror://gnome/sources/" name "/"
4995 (version-major+minor version) "/"
4996 name "-" version ".tar.xz"))
4997 (sha256
4998 (base32
ae8e71ee 4999 "1l8p1ghknmkmjpnpl7jr53j66qbzpikickzbmrz0aczyhq6pdy29"))))
685cee87
SB		 5000 (build-system glib-or-gtk-build-system)
5001 (native-inputs
5002 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5003 ("gobject-introspection" ,gobject-introspection)
5004 ("intltool" ,intltool)
5005 ("pkg-config" ,pkg-config)
5006 ("xsltproc" ,libxslt)))
5007 (propagated-inputs
5008 `(("glib" ,glib) ; required by goa-1.0.pc
5009 ("gtk+" ,gtk+))) ; required by goa-backend-1.0.pc
5010 (inputs
5011 `(("docbook-xsl" ,docbook-xsl)
5012 ("json-glib" ,json-glib)
5013 ("libsecret" ,libsecret)
5014 ("rest" ,rest)
685cee87
SB		 5015 ("webkitgtk" ,webkitgtk)))
5016 (synopsis "Single sign-on framework for GNOME")
5017 (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
5018 (description
5019 "GNOME Online Accounts provides interfaces so that applications and
5020libraries in GNOME can access the user's online accounts. It has providers for
5021Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
5022Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
5023 (license license:lgpl2.0+)))
df217748
SB		 5024
5025(define-public evolution-data-server
5026 (package
5027 (name "evolution-data-server")
891199c6 5028 (version "3.28.1")
df217748
SB		 5029 (source (origin
5030 (method url-fetch)
5031 (uri (string-append "mirror://gnome/sources/" name "/"
5032 (version-major+minor version) "/"
5033 name "-" version ".tar.xz"))
5034 (sha256
5035 (base32
891199c6 5036 "12b9lfgwd57rzn9394xrbvl9ym5aqldpz9v7c9a421dsv8dgq13b"))))
743aebd7 5037 (build-system cmake-build-system)
df217748 5038 (arguments
743aebd7 5039 '(;; XXX FIXME: 11/85 tests are failing.
df217748
SB		 5040 #:tests? #f
5041 #:configure-flags
ac033c7b
MB		 5042 (let* ((lib (string-append (assoc-ref %outputs "out")
5043 "/lib"))
5044 (runpaths (map (lambda (s) (string-append
5045 lib "/evolution-data-server/" s))
5046 '("addressbook-backends" "calendar-backends"
5047 "camel-providers" "credential-modules"
5048 "registry-modules"))))
5049 (list "-DENABLE_UOA=OFF" ;disable Ubuntu Online Accounts support
5050 "-DENABLE_GOOGLE=OFF" ;disable Google Contacts support
5051 "-DENABLE_GOOGLE_AUTH=OFF" ;disable Google authentication
5052 "-DENABLE_VALA_BINDINGS=ON"
5053 ;; FIXME: Building against ICU 60 requires C++11 or higher. Remove
c97f2f70
MW		 5054 ;; "-std=gnu++11" when our default compiler is >= GCC6.
5055 ;; FIXME: Temporarily use "-DU_USING_ICU_NAMESPACE=1" until
5056 ;; evolution-data-server has been updated to qualify ICU types
5057 ;; explicitly, as required by ICU 61 and later. See:
5058 ;; <https://ssl.icu-project.org/repos/icu/trunk/icu4c/readme.html#RecBuild>
5059 "-DCMAKE_CXX_FLAGS=-std=gnu++11 -DU_USING_ICU_NAMESPACE=1"
ac033c7b
MB		 5060 (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
5061 (string-append lib "/evolution-data-server;")
5062 (string-join runpaths ";"))
5063 "-DENABLE_INTROSPECTION=ON")) ;required for Vala bindings
df217748
SB		 5064 #:phases
5065 (modify-phases %standard-phases
743aebd7 5066 (add-after 'unpack 'patch-paths
df217748
SB		 5067 (lambda _
5068 (substitute* "tests/test-server-utils/e-test-server-utils.c"
5069 (("/bin/rm") (which "rm")))
ac033c7b
MB		 5070 #t))
5071 (add-before 'configure 'dont-override-rpath
5072 (lambda _
5073 (substitute* "CMakeLists.txt"
5074 ;; CMakeLists.txt hard-codes runpath to just the libdir.
5075 ;; Remove it so the configure flag is respected.
5076 (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
5077 #t)))))
df217748
SB		 5078 (native-inputs
5079 `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
5080 ("gobject-introspection" ,gobject-introspection)
5081 ("gperf" ,gperf)
5082 ("intltool" ,intltool)
5083 ("pkg-config" ,pkg-config)
a73c1cf8 5084 ("vala" ,vala)
743aebd7 5085 ("python" ,python-wrapper)))
df217748
SB		 5086 (propagated-inputs
5087 ;; These are all in the Requires field of .pc files.
5088 `(("gtk+" ,gtk+)
5089 ("libical" ,libical)
5090 ("libsecret" ,libsecret)
5091 ("libsoup" ,libsoup)
5092 ("nss" ,nss)
5093 ("sqlite" ,sqlite)))
5094 (inputs
5095 `(("bdb" ,bdb)
5096 ("gcr" ,gcr)
5097 ("gnome-online-accounts" ,gnome-online-accounts)
891199c6 5098 ("json-glib" ,json-glib)
743aebd7
MB		 5099 ("libgweather" ,libgweather)
5100 ("mit-krb5" ,mit-krb5)
891199c6
MW		 5101 ("openldap" ,openldap)
5102 ("webkitgtk" ,webkitgtk)))
df217748
SB		 5103 (synopsis "Store address books and calendars")
5104 (home-page "https://wiki.gnome.org/Apps/Evolution")
5105 (description
5106 "This package provides a unified backend for programs that work with
5107contacts, tasks, and calendar information. It was originally developed for
5108Evolution (hence the name), but is now used by other packages as well.")
5109 (license license:lgpl2.0)))
bd7dfafa
SB		 5110
5111(define-public caribou
5112 (package
5113 (name "caribou")
fe964bb5 5114 (version "0.4.21")
bd7dfafa
SB		 5115 (source (origin
5116 (method url-fetch)
5117 (uri (string-append "mirror://gnome/sources/" name "/"
5118 (version-major+minor version) "/"
5119 name "-" version ".tar.xz"))
5120 (sha256
5121 (base32
fe964bb5 5122 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
bd7dfafa
SB		 5123 (build-system glib-or-gtk-build-system)
5124 (arguments
5125 '(#:phases
5126 (modify-phases %standard-phases
5127 (add-before
5128 'build 'pre-build
5129 (lambda* (#:key outputs #:allow-other-keys)
5130 (let ((out (assoc-ref outputs "out")))
5131 ;; Use absolute shared library path in Caribou-1.0.typelib.
5132 (substitute* "libcaribou/Makefile"
5133 (("--shared-library=libcaribou.so")
5134 (string-append "--shared-library="
5135 out "/lib/libcaribou.so")))
5136 #t)))
5137 (add-after 'install 'wrap-programs
5138 (lambda* (#:key outputs #:allow-other-keys)
5139 (let* ((out (assoc-ref outputs "out"))
5140 (python-path (getenv "PYTHONPATH"))
5141 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
5142 (for-each
5143 (lambda (prog)
5144 (wrap-program prog
5145 `("PYTHONPATH" ":" prefix (,python-path))
5146 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5147 (list (string-append out "/bin/caribou-preferences")
5148 (string-append out "/libexec/antler-keyboard"))))
5149 #t)))))
5150 (native-inputs
5151 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5152 ("gobject-introspection" ,gobject-introspection)
5153 ("intltool" ,intltool)
5154 ("pkg-config" ,pkg-config)
5155 ("python" ,python-2) ; incompatible with Python 3 (print syntax)
5156 ("vala" ,vala)
5157 ("xsltproc" ,libxslt)))
5158 (propagated-inputs
5159 ;; caribou-1.0.pc refers to all these.
5160 `(("libgee" ,libgee)
5161 ("libxklavier" ,libxklavier)
5162 ("libxtst" ,libxtst)
5163 ("gtk+" ,gtk+)))
5164 (inputs
5165 `(("clutter" ,clutter)
5166 ("dconf" ,dconf)
5167 ("gtk+-2" ,gtk+-2)
5168 ("python-pygobject" ,python2-pygobject)))
5169 (synopsis "Text entry and UI navigation application")
5170 (home-page "https://wiki.gnome.org/Projects/Caribou")
5171 (description
5172 "Caribou is an input assistive technology intended for switch and pointer
5173users.")
5174 (license license:lgpl2.1)))
ba5dd105 5175
ba5dd105
SB		 5176(define-public network-manager
5177 (package
5178 (name "network-manager")
45f80fce 5179 (version "1.10.10")
ba5dd105
SB		 5180 (source (origin
5181 (method url-fetch)
5182 (uri (string-append "mirror://gnome/sources/NetworkManager/"
5183 (version-major+minor version) "/"
5184 "NetworkManager-" version ".tar.xz"))
5185 (sha256
5186 (base32
45f80fce 5187 "1jn3g0f2x1irc88awqp8m3gnpdx1whqqqbdgkbgr4x55s702jki4"))
fd070f35
CM		 5188 (snippet
5189 '(begin
5190 (use-modules (guix build utils))
5191 (substitute* "configure"
5192 ;; Replace libsystemd-login with libelogind.
5193 (("libsystemd-login") "libelogind"))
5194 (substitute* "src/devices/wwan/nm-modem-manager.c"
5195 (("systemd") "elogind"))
5196 (substitute* "src/nm-session-monitor.c"
5197 (("systemd") "elogind"))
5198 (substitute* "./src/nm-logging.c"
6cbee49d
MW		 5199 (("systemd") "elogind"))
5200 #t))))
ba5dd105
SB		 5201 (build-system gnu-build-system)
5202 (outputs '("out"
5203 "doc")) ; 8 MiB of gtk-doc HTML
5204 (arguments
5205 '(#:configure-flags
5206 (let ((out (assoc-ref %outputs "out"))
5207 (doc (assoc-ref %outputs "doc"))
5208 (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
5209 "/sbin/dhclient")))
fd070f35
CM		 5210 (list "--with-systemd-logind=yes" ;In GuixSD, this is provided by elogind.
5211 "--with-consolekit=no"
5212 "--with-crypto=gnutls"
ba5dd105
SB		 5213 "--disable-config-plugin-ibft"
5214 "--sysconfdir=/etc"
5215 "--localstatedir=/var"
5216 (string-append "--with-udev-dir="
5217 out "/lib/udev")
5218 (string-append "--with-dbus-sys-dir="
5219 out "/etc/dbus-1/system.d")
5220 (string-append "--with-html-dir="
5221 doc "/share/gtk-doc/html")
5222 (string-append "--with-dhclient=" dhclient)))
5223 #:phases
5224 (modify-phases %standard-phases
b4f59d87
AW		 5225 (add-before 'configure 'pre-configure
5226 (lambda _
5227 ;; These tests try to test aspects of network-manager's
5228 ;; functionality within restricted containers, but they don't
5229 ;; cope with being already in the Guix build jail as that jail
5230 ;; lacks some features that they would like to proxy over (like
5231 ;; a /sys mount).
d04687dc
HG		 5232 (substitute* '("Makefile.in")
5233 (("src/platform/tests/test-address-linux") " ")
5234 (("src/platform/tests/test-cleanup-linux") " ")
5235 (("src/platform/tests/test-link-linux") " ")
5236 (("src/platform/tests/test-route-linux") " ")
5237 (("src/devices/tests/test-arping") " ")
5238 (("src/devices/tests/test-lldp") " ")
5239 (("src/tests/test-route-manager-linux") " "))
b4f59d87 5240 #t))
45f80fce
RW		 5241 (add-after 'unpack 'delete-failing-tests
5242 (lambda _
5243 ;; FIXME: These four tests fail for unknown reasons.
5244 ;; ERROR:libnm-core/tests/test-general.c:5842:
5245 ;; _json_config_check_valid: assertion failed (res == expected): (1 == 0)
5246 ;; ERROR:libnm-core/tests/test-keyfile.c:647:
5247 ;; test_team_conf_read_invalid: assertion failed: (nm_setting_team_get_config (s_team) == NULL)
5248 ;; ERROR:libnm-core/tests/test-setting.c:907:
5249 ;; _test_team_config_sync: assertion failed: (nm_streq0 (nm_setting_team_get_runner (s_team), runner))
5250 ;; NetworkManager:ERROR:src/platform/tests/test-nmp-object.c:397:
5251 ;; test_cache_link: assertion failed: (nmp_object_is_visible (obj_new))
5252 (substitute* "Makefile.in"
5253 (("libnm-core/tests/test-general") " ")
5254 (("libnm-core/tests/test-keyfile") " ")
5255 (("libnm-core/tests/test-setting\\$\\(EXEEXT\\)") " ")
5256 (("src/platform/tests/test-nmp-object") " "))
5257 #t))
ba5dd105
SB		 5258 (add-before 'check 'pre-check
5259 (lambda _
5260 ;; For the missing /etc/machine-id.
5261 (setenv "DBUS_FATAL_WARNINGS" "0")
5262 #t))
5263 (replace 'install
5264 (lambda _
45f80fce
RW		 5265 (invoke "make"
5266 "sysconfdir=/tmp"
5267 "rundir=/tmp"
5268 "statedir=/tmp"
5269 "nmstatedir=/tmp/nm"
5270 "install")
5271 #t)))))
b93502d6
DC		 5272 (propagated-inputs
5273 `(("glib" ,glib)))
ba5dd105
SB		 5274 (native-inputs
5275 `(("glib:bin" ,glib "bin") ; for gdbus-codegen
5276 ("gobject-introspection" ,gobject-introspection)
d04687dc 5277 ("docbook-xsl" ,docbook-xsl)
ba5dd105 5278 ("intltool" ,intltool)
d04687dc
HG		 5279 ("libxslt" ,libxslt)
5280 ("libxml2" ,libxml2)
ba5dd105
SB		 5281 ("pkg-config" ,pkg-config)
5282 ;; For testing.
5283 ("python" ,python-wrapper)
5284 ("python-dbus" ,python-dbus)
5285 ("python-pygobject" ,python-pygobject)))
5286 (inputs
856ca567
KK		 5287 `(("curl" ,curl)
5288 ("cyrus-sasl" ,cyrus-sasl)
5289 ("dbus-glib" ,dbus-glib)
ba5dd105 5290 ("dnsmasq" ,dnsmasq)
856ca567 5291 ("eudev" ,eudev)
ba5dd105
SB		 5292 ("gnutls" ,gnutls)
5293 ("iptables" ,iptables)
5294 ("isc-dhcp" ,isc-dhcp)
d04687dc 5295 ("jansson" ,jansson)
ba5dd105
SB		 5296 ("libgcrypt" ,libgcrypt)
5297 ("libgudev" ,libgudev)
5298 ("libndp" ,libndp)
5299 ("libnl" ,libnl)
5300 ("libsoup" ,libsoup)
142bdcbc 5301 ("modem-manager" ,modem-manager)
c27e02bf 5302 ("newt" ,newt) ;for the 'nmtui' console interface
ba5dd105
SB		 5303 ("polkit" ,polkit)
5304 ("ppp" ,ppp)
5305 ("readline" ,readline)
fd070f35
CM		 5306 ("util-linux" ,util-linux)
5307 ("elogind" ,elogind)))
ba5dd105 5308 (synopsis "Network connection manager")
f032d0be 5309 (home-page "https://www.gnome.org/projects/NetworkManager/")
ba5dd105
SB		 5310 (description
5311 "NetworkManager is a system network service that manages your network
5312devices and connections, attempting to keep active network connectivity when
5313available. It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
5314devices, and provides VPN integration with a variety of different VPN
5315services.")
29d2f451
LC		 5316 (license license:gpl2+)
5317 (properties '((upstream-name . "NetworkManager")))))
4d62a9d3 5318
f2b96b3a
LC		 5319(define-public network-manager-openvpn
5320 (package
5321 (name "network-manager-openvpn")
3d9637a9 5322 (version "1.8.0")
f2b96b3a
LC		 5323 (source (origin
5324 (method url-fetch)
5325 (uri (string-append
5326 "mirror://gnome/sources/NetworkManager-openvpn/"
5327 (version-major+minor version)
5328 "/NetworkManager-openvpn-" version ".tar.xz"))
5329 (sha256
5330 (base32
3d9637a9 5331 "1973n89g66a3jfx8r45a811fga4kadh6r1w35cb25cz1mlii2vhn"))))
f2b96b3a
LC		 5332 (build-system gnu-build-system)
5333 (arguments
5334 '(#:configure-flags '("--enable-absolute-paths")))
5335 (native-inputs
5336 `(("pkg-config" ,pkg-config)
5337 ("intltool" ,intltool)))
5338 (inputs
5339 `(("gtk+" ,gtk+)
5340 ("openvpn" ,openvpn)
5341 ("network-manager" ,network-manager)
5342 ("network-manager-applet" ,network-manager-applet) ;for libnma
5343 ("libsecret" ,libsecret)))
5344 (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
5345 (synopsis "OpenVPN plug-in for NetworkManager")
5346 (description
5347 "This extension of NetworkManager allows it to take care of connections
5348to virtual private networks (VPNs) via OpenVPN.")
5349 (license license:gpl2+)
5350 (properties `((upstream-name . "NetworkManager-openvpn")))))
5351
e5e1df4d
DC		 5352(define-public mobile-broadband-provider-info
5353 (package
5354 (name "mobile-broadband-provider-info")
22345a8e 5355 (version "20170310")
e5e1df4d
DC		 5356 (source (origin
5357 (method url-fetch)
5358 (uri (string-append
5359 "mirror://gnome/sources/"
5360 "mobile-broadband-provider-info/" version "/"
5361 "mobile-broadband-provider-info-" version ".tar.xz"))
5362 (sha256
5363 (base32
22345a8e 5364 "0fxm11x8k9hxjg8l5inaldfmmjnwkay3ibjv899jra03bv4h6kql"))))
e5e1df4d
DC		 5365 (build-system gnu-build-system)
5366 (arguments
5367 `(#:tests? #f)) ; No tests
5368 (home-page "https://wiki.gnome.org/Projects/NetworkManager")
5369 (synopsis "Database of broadband connection configuration")
5370 (description "Database of broadband connection configuration.")
5371 (license license:public-domain)))
5372
4d62a9d3
SB		 5373(define-public network-manager-applet
5374 (package
5375 (name "network-manager-applet")
40a17c3b 5376 (version "1.8.4")
4d62a9d3
SB		 5377 (source (origin
5378 (method url-fetch)
5379 (uri (string-append "mirror://gnome/sources/" name "/"
5380 (version-major+minor version) "/"
5381 name "-" version ".tar.xz"))
5382 (sha256
5383 (base32
40a17c3b 5384 "0ag3pvjp58ykrzsjfbdxi0j5xd2i796jk7nns67zy03xwg9i0l0h"))))
4d62a9d3 5385 (build-system glib-or-gtk-build-system)
240cee8a 5386 (arguments '(#:configure-flags '("--disable-migration")))
4d62a9d3
SB		 5387 (native-inputs
5388 `(("intltool" ,intltool)
5389 ("gobject-introspection" ,gobject-introspection)
5390 ("pkg-config" ,pkg-config)))
5391 (propagated-inputs
5392 ;; libnm-gtk.pc refers to all these.
5393 `(("dbus-glib" ,dbus-glib)
5394 ("gtk+" ,gtk+)
5395 ("network-manager" ,network-manager)))
5396 (inputs
5397 `(("iso-codes" ,iso-codes)
5398 ("libgudev" ,libgudev)
5399 ("libnotify" ,libnotify)
2116bfb3 5400 ("libsecret" ,libsecret)
240cee8a
KK		 5401 ("libselinux" ,libselinux)
5402 ("jansson" ,jansson) ; for team support
5403 ("modem-manager" ,modem-manager)))
4d62a9d3 5404 (synopsis "Applet for managing network connections")
f032d0be 5405 (home-page "https://www.gnome.org/projects/NetworkManager/")
4d62a9d3
SB		 5406 (description
5407 "This package contains a systray applet for NetworkManager. It displays
5408the available networks and allows users to easily switch between them.")
5409 (license license:gpl2+)))
56196594
RW		 5410
5411(define-public libxml++
5412 (package
5413 (name "libxml++")
8344a85e 5414 (version "3.0.1")
56196594
RW		 5415 (source (origin
5416 (method url-fetch)
5417 (uri (string-append "mirror://gnome/sources/" name "/"
5418 (version-major+minor version) "/"
5419 name "-" version ".tar.xz"))
5420 (sha256
5421 (base32
8344a85e 5422 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
56196594
RW		 5423 (build-system gnu-build-system)
5424 ;; libxml++-3.0.pc refers to all these.
5425 (propagated-inputs
5426 `(("libxml2" ,libxml2)
5427 ("glibmm" ,glibmm)))
5428 (native-inputs
5429 `(("perl" ,perl)
5430 ("pkg-config" ,pkg-config)))
5431 (home-page "http://libxmlplusplus.sourceforge.net/")
5432 (synopsis "C++ wrapper for XML parser library libxml2")
5433 (description
5434 "This package provides a C++ wrapper for the XML parser library
5435libxml2.")
5436 (license license:lgpl2.1+)))
df12f04a 5437
b61d9627
AW		 5438(define-public libxml++-2
5439 (package
5440 (inherit libxml++)
5441 (name "libxml++")
5442 (version "2.40.1")
5443 (source (origin
5444 (method url-fetch)
5445 (uri (string-append "mirror://gnome/sources/" name "/"
5446 (version-major+minor version) "/"
5447 name "-" version ".tar.xz"))
5448 (sha256
5449 (base32
5450 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
5451
df12f04a
SB		 5452(define-public gdm
5453 (package
5454 (name "gdm")
0438f1d8 5455 (version "3.26.2.1")
df12f04a
SB		 5456 (source (origin
5457 (method url-fetch)
5458 (uri (string-append "mirror://gnome/sources/" name "/"
5459 (version-major+minor version) "/"
5460 name "-" version ".tar.xz"))
feccc810 5461 (patches (search-patches "gdm-CVE-2018-14424.patch"))
df12f04a
SB		 5462 (sha256
5463 (base32
0438f1d8 5464 "0mxdal6hh345xk2xqmw5192jgpprkbcv1d4bwmnl4arcc00cpp8p"))))
957dbc0a 5465 (build-system glib-or-gtk-build-system)
df12f04a
SB		 5466 (arguments
5467 '(#:configure-flags
af37e6bb 5468 `("--without-plymouth"
957dbc0a 5469 "--disable-systemd-journal"
51bc8357
TS		 5470
5471 ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
5472 ;; instead of having to replace it (i.e., stopping the mingetty
5473 ;; service for TTY 1 before starting GDM).
5474 "--with-initial-vt=7"
5475
89c86562
TS		 5476 ;; Use '/etc/environment' for locale settings instead of the
5477 ;; systemd-specific '/etc/locale.conf'.
5478 "--with-lang-file=/etc/environment"
5479
af37e6bb
AW		 5480 "--localstatedir=/var"
5481 ,(string-append "--with-default-path="
5482 (string-join '("/run/setuid-programs"
5483 "/run/current-system/profile/bin"
5484 "/run/current-system/profile/sbin")
957dbc0a
AW		 5485 ":"))
5486 ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
5487 ;; XDG_DATA_DIRS so that it finds its schemas.
5488 "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
df12f04a
SB		 5489 #:phases
5490 (modify-phases %standard-phases
5491 (add-before
5492 'configure 'pre-configure
def6d6b6 5493 (lambda* (#:key inputs #:allow-other-keys)
df12f04a
SB		 5494 ;; We don't have <systemd/sd-daemon.h>.
5495 (substitute* '("common/gdm-log.c"
5496 "daemon/gdm-server.c"
5497 "daemon/gdm-session-worker.c"
5498 "daemon/gdm-session-worker-job.c")
5499 (("#include <systemd/sd-daemon\\.h>") ""))
5500 ;; Use elogind for sd-login.
5501 (substitute* '("common/gdm-common.c"
5502 "daemon/gdm-manager.c"
5503 "libgdm/gdm-user-switching.c")
5504 (("#include <systemd/sd-login\\.h>")
5505 "#include <elogind/sd-login.h>"))
957dbc0a
AW		 5506 ;; Check for elogind.
5507 (substitute* '("configure")
5508 (("libsystemd")
5509 "libelogind"))
af37e6bb
AW		 5510 ;; Look for system-installed sessions in
5511 ;; /run/current-system/profile/share.
5512 (substitute* '("libgdm/gdm-sessions.c"
5513 "daemon/gdm-session.c"
5514 "daemon/gdm-display.c"
5515 "daemon/gdm-launch-environment.c")
5516 (("DATADIR \"/x")
5517 "\"/run/current-system/profile/share/x")
5518 (("DATADIR \"/wayland")
5519 "\"/run/current-system/profile/share/wayland")
5520 (("DATADIR \"/gnome")
5521 "\"/run/current-system/profile/share/gnome"))
c9ff92b5 5522 (let ((propagate '("GDM_CUSTOM_CONF"
1f564c15 5523 "GDM_DBUS_DAEMON"
c9ff92b5 5524 "GDM_X_SERVER"
41fa9f18 5525 "GDM_X_SESSION"
c9ff92b5
TS		 5526 ;; XXX: Remove this once GNOME Shell is
5527 ;; a dependency of GDM.
5528 "XDG_DATA_DIRS")))
5529 (substitute* "daemon/gdm-session.c"
5530 (("set_up_session_environment \\(self\\);")
5531 (apply string-append
5532 "set_up_session_environment (self);\n"
5533 (map (lambda (name)
5534 (string-append
5535 "gdm_session_set_environment_variable "
5536 "(self, \"" name "\","
5537 "g_getenv (\"" name "\"));\n"))
5538 propagate)))))
e0e6756f 5539 ;; Look for custom GDM conf in /run/current-system.
950d8e5d 5540 (substitute* '("common/gdm-settings-desktop-backend.c")
e0e6756f 5541 (("GDM_CUSTOM_CONF")
e57c2adb
TS		 5542 (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
5543 " ? g_getenv(\"GDM_CUSTOM_CONF\")"
5544 " : GDM_CUSTOM_CONF)")))
e0e6756f
AW		 5545 ;; Use service-supplied path to X.
5546 (substitute* '("daemon/gdm-server.c")
5547 (("\\(X_SERVER X_SERVER_ARG_FORMAT")
5548 "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
5549 (substitute* '("daemon/gdm-x-session.c")
1f564c15
TS		 5550 (("\"dbus-daemon\"")
5551 "g_getenv (\"GDM_DBUS_DAEMON\")")
e0e6756f 5552 (("X_SERVER")
41fa9f18
TS		 5553 "g_getenv (\"GDM_X_SERVER\")")
5554 (("GDMCONFDIR \"/Xsession\"")
5555 "g_getenv (\"GDM_X_SESSION\")"))
def6d6b6
TS		 5556 ;; Use an absolute path for GNOME Session.
5557 (substitute* "daemon/gdm-launch-environment.c"
5558 (("\"gnome-session\"")
5559 (string-append "\"" (assoc-ref inputs "gnome-session")
5560 "/bin/gnome-session\"")))
69544798
TS		 5561 #t))
5562 ;; GDM needs GNOME Session to run these applications. We link
5563 ;; their autostart files in `share/gdm/greeter/autostart'
5564 ;; because GDM explicitly tells GNOME Session to look there.
5565 ;;
5566 ;; XXX: GNOME Shell should be linked here too, but currently
5567 ;; GNOME Shell depends on GDM.
5568 (add-after 'install 'link-autostart-files
5569 (lambda* (#:key inputs outputs #:allow-other-keys)
5570 (let* ((out (assoc-ref outputs "out"))
5571 (autostart (string-append out "/share/gdm/"
5572 "greeter/autostart"))
5573 (settings (assoc-ref inputs "gnome-settings-daemon")))
5574 (mkdir-p autostart)
5575 (with-directory-excursion autostart
5576 (for-each (lambda (desktop)
5577 (symlink desktop (basename desktop)))
5578 (find-files (string-append settings "/etc/xdg"))))
5579 #t))))))
df12f04a
SB		 5580 (native-inputs
5581 `(("dconf" ,dconf)
5582 ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5583 ("gobject-introspection" ,gobject-introspection)
5584 ("intltool" ,intltool)
5585 ("itstool" ,itstool)
5586 ("pkg-config" ,pkg-config)
5587 ("xmllint" ,libxml2)))
5588 (inputs
5589 `(("accountsservice" ,accountsservice)
5590 ("check" ,check) ; for testing
5591 ("elogind" ,elogind)
def6d6b6 5592 ("gnome-session" ,gnome-session)
69544798 5593 ("gnome-settings-daemon" ,gnome-settings-daemon)
df12f04a
SB		 5594 ("gtk+" ,gtk+)
5595 ("iso-codes" ,iso-codes)
5596 ("libcanberra" ,libcanberra)
5597 ("linux-pam" ,linux-pam)))
5598 (synopsis "Display manager for GNOME")
f032d0be 5599 (home-page "https://wiki.gnome.org/Projects/GDM/")
df12f04a
SB		 5600 (description
5601 "GNOME Display Manager is a system service that is responsible for
5602providing graphical log-ins and managing local and remote displays.")
5603 (license license:gpl2+)))
8e1dd04f
SB		 5604
5605(define-public libgtop
5606 (package
5607 (name "libgtop")
4f80158d 5608 (version "2.38.0")
8e1dd04f
SB		 5609 (source (origin
5610 (method url-fetch)
5611 (uri (string-append "mirror://gnome/sources/" name "/"
5612 (version-major+minor version) "/"
5613 name "-" version ".tar.xz"))
5614 (sha256
5615 (base32
4f80158d 5616 "04mnxgzyb26wqk6qij4iw8cxwl82r8pcsna5dg8vz2j3pdi0wv2g"))))
8e1dd04f
SB		 5617 (build-system gnu-build-system)
5618 (native-inputs
5619 `(("gobject-introspection" ,gobject-introspection)
5620 ("intltool" ,intltool)
5621 ("perl" ,perl)
5622 ("pkg-config" ,pkg-config)))
5623 (propagated-inputs
5624 `(("glib" ,glib))) ; required by libgtop-2.0.pc
5625 (synopsis "Portable system access library")
5626 (home-page "https://www.gnome.org/")
5627 (description
5628 "LibGTop is a library to get system specific data such as CPU and memory
5629usage and information about running processes.")
5630 (license license:gpl2+)))
b96c4260
SB		 5631
5632(define-public gnome-bluetooth
5633 (package
5634 (name "gnome-bluetooth")
f8cb2fbf 5635 (version "3.20.1")
b96c4260
SB		 5636 (source (origin
5637 (method url-fetch)
5638 (uri (string-append "mirror://gnome/sources/" name "/"
5639 (version-major+minor version) "/"
5640 name "-" version ".tar.xz"))
5641 (sha256
5642 (base32
f8cb2fbf 5643 "1zlqcz6jz4vzzr8gd1678i9s4015kiwcpr5szrwz4kmryfsm147a"))))
b96c4260
SB		 5644 (build-system glib-or-gtk-build-system)
5645 (native-inputs
5646 `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
5647 ("gobject-introspection" ,gobject-introspection)
5648 ("intltool" ,intltool)
5649 ("pkg-config" ,pkg-config)
5650 ("xmllint" ,libxml2)))
5651 (propagated-inputs
5652 ;; gnome-bluetooth-1.0.pc refers to all these.
5653 `(("gtk+" ,gtk+)
5654 ("udev" ,eudev)))
5655 (inputs
5656 `(("libcanberra" ,libcanberra)
5657 ("libnotify" ,libnotify)))
5658 (synopsis "GNOME Bluetooth subsystem")
5659 (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
5660 (description
5661 "This package contains tools for managing and manipulating Bluetooth
5662devices using the GNOME desktop.")
5663 (license license:lgpl2.1+)))
b645146f
SB		 5664
5665(define-public gnome-control-center
5666 (package
5667 (name "gnome-control-center")
cd5db771 5668 (version "3.24.3")
b645146f
SB		 5669 (source (origin
5670 (method url-fetch)
5671 (uri (string-append "mirror://gnome/sources/" name "/"
5672 (version-major+minor version) "/"
5673 name "-" version ".tar.xz"))
5674 (sha256
5675 (base32
cd5db771 5676 "18ncjqjj93a39sla2zjr9i6pw59yh87p4jla899lmvi2qajd5923"))))
b645146f
SB		 5677 (build-system glib-or-gtk-build-system)
5678 (arguments
5679 '(#:phases
5680 (modify-phases %standard-phases
5681 (add-before 'configure 'patch-paths
5682 (lambda* (#:key inputs #:allow-other-keys)
5683 (let ((libc (assoc-ref inputs "libc"))
5684 (tzdata (assoc-ref inputs "tzdata")))
5685 (substitute* "panels/datetime/tz.h"
5686 (("/usr/share/zoneinfo/zone.tab")
5687 (string-append tzdata "/share/zoneinfo/zone.tab")))
5688 (substitute* "panels/datetime/test-endianess.c"
5689 (("/usr/share/locale")
5690 (string-append libc "/share/locale")))
5691 #t))))))
5692 (native-inputs
5693 `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
5694 ("intltool" ,intltool)
5695 ("pkg-config" ,pkg-config)
5696 ("xsltproc" ,libxslt)))
5697 (inputs
5698 `(("accountsservice" ,accountsservice)
5699 ("clutter-gtk" ,clutter-gtk)
5700 ("colord-gtk" ,colord-gtk)
5701 ("cups" ,cups)
5702 ("dconf" ,dconf)
5703 ("docbook-xsl" ,docbook-xsl)
3446ffb5 5704 ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
b645146f
SB		 5705 ("gnome-bluetooth" ,gnome-bluetooth)
5706 ("gnome-desktop" ,gnome-desktop)
5707 ("gnome-online-accounts" ,gnome-online-accounts)
5708 ("gnome-settings-daemon" ,gnome-settings-daemon)
5709 ("grilo" ,grilo)
5710 ("ibus" ,ibus)
5711 ("libcanberra" ,libcanberra)
5712 ("libgudev" ,libgudev)
5713 ("libgtop" ,libgtop)
5714 ("libpwquality" ,libpwquality)
5715 ("libsoup" ,libsoup)
5716 ("libxml2" ,libxml2)
5717 ("libwacom" ,libwacom)
5718 ("mesa" ,mesa)
5719 ("mit-krb5" ,mit-krb5)
5720 ("modem-manager" ,modem-manager)
5721 ("network-manager-applet" ,network-manager-applet)
5722 ("polkit" ,polkit)
5723 ("pulseaudio" ,pulseaudio)
5724 ("smbclient" ,samba)
5725 ("tzdata" ,tzdata)
5726 ("upower" ,upower)))
5727 (synopsis "Utilities to configure the GNOME desktop")
5728 (home-page "https://www.gnome.org/")
5729 (description
5730 "This package contains configuration applets for the GNOME desktop,
5731allowing to set accessibility configuration, desktop fonts, keyboard and mouse
5732properties, sound setup, desktop theme and background, user interface
5733properties, screen resolution, and other GNOME parameters.")
5734 (license license:gpl2+)))
a4df5756
SB		 5735
5736(define-public gnome-shell
5737 (package
5738 (name "gnome-shell")
1f9c2351 5739 (version "3.24.3")
a4df5756
SB		 5740 (source (origin
5741 (method url-fetch)
5742 (uri (string-append "mirror://gnome/sources/" name "/"
5743 (version-major+minor version) "/"
5744 name "-" version ".tar.xz"))
5745 (sha256
5746 (base32
a76d0f03
LC		 5747 "1f20x36ymkp1j667hb7s7byly2gqc4m0anldy3qwp38vm8437caq"))
5748 (patches (search-patches "gnome-shell-theme.patch"))
5749 (modules '((guix build utils)))
5750 (snippet
5751 #~(begin
5752 ;; CSS files have to be regenerated from the .scss source
5753 ;; that 'gnome-shell-theme.patch' modifies.
5754 (for-each delete-file
5755 (find-files "data/theme"
5756 "^gnome-shell.*\\.css$"))
5757
5758 ;; Copy images for use on the GDM log-in screen.
5759 (copy-file #$(file-append %artwork-repository
5760 "/slim/0.x/background.png")
5761 "data/theme/guix-background.png")
5762 (invoke #+(file-append inkscape "/bin/inkscape")
5763 "--export-png=data/theme/guix-logo.png"
5764 #$(file-append %artwork-repository
5765 "/logo/Guix-horizontal-white.svg"))
5766 #t))))
a4df5756
SB		 5767 (build-system glib-or-gtk-build-system)
5768 (arguments
5769 '(#:phases
5770 (modify-phases %standard-phases
a76d0f03
LC		 5771 (add-before 'build 'rebuild-css
5772 (lambda _
5773 ;; Rebuild the CSS files from the .scss files that our patch
5774 ;; modifies.
5775 (invoke "make" "-C" "data"
5776 "theme/gnome-shell.css"
5777 "theme/gnome-shell-high-contrast.css")))
a4df5756
SB		 5778 (replace 'install
5779 (lambda* (#:key outputs #:allow-other-keys)
5780 (let* ((out (assoc-ref outputs "out"))
5781 (keysdir (string-append
5782 out "/share/gnome-control-center/keybindings")))
5783 (zero? (system* "make"
5784 (string-append "keysdir=" keysdir)
5785 "install")))))
5786 (add-after
5787 'install 'wrap-programs
5788 (lambda* (#:key outputs #:allow-other-keys)
5789 (let ((out (assoc-ref outputs "out"))
5790 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
5791 (python-path (getenv "PYTHONPATH")))
5792 (wrap-program (string-append out "/bin/gnome-shell")
5793 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
5794 (for-each
5795 (lambda (prog)
5796 (wrap-program (string-append out "/bin/" prog)
5797 `("PYTHONPATH" ":" prefix (,python-path))
5798 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
5799 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
5800 #t))))))
5801 (native-inputs
5802 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5803 ("gobject-introspection" ,gobject-introspection)
5804 ("intltool" ,intltool)
5805 ("pkg-config" ,pkg-config)
5806 ("python" ,python)
a76d0f03
LC		 5807 ("xsltproc" ,libxslt)
5808 ("ruby-sass" ,ruby-sass)))
a4df5756
SB		 5809 (inputs
5810 `(("accountsservice" ,accountsservice)
5811 ("caribou" ,caribou)
5812 ("docbook-xsl" ,docbook-xsl)
5813 ("evolution-data-server" ,evolution-data-server)
5814 ("gcr" ,gcr)
5815 ("gdm" ,gdm)
5816 ("gjs" ,gjs)
5817 ("gnome-bluetooth" ,gnome-bluetooth)
5818 ("gnome-control-center" ,gnome-control-center)
5819 ("gnome-desktop" ,gnome-desktop)
5820 ("gnome-settings-daemon" ,gnome-settings-daemon)
5821 ("gst-plugins-base" ,gst-plugins-base)
5822 ("ibus" ,ibus)
5823 ("libcanberra" ,libcanberra)
5824 ("libcroco" ,libcroco)
5825 ("libgweather" ,libgweather)
5826 ("libsoup" ,libsoup)
5827 ("mesa-headers" ,mesa-headers)
5828 ("mutter" ,mutter)
5829 ("network-manager-applet" ,network-manager-applet)
5830 ("polkit" ,polkit)
5831 ("pulseaudio" ,pulseaudio)
5832 ("python-pygobject" ,python-pygobject)
5833 ("startup-notification" ,startup-notification)
5834 ("telepathy-logger" ,telepathy-logger)
5835 ("upower" ,upower)
30e760f0
MB		 5836 ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
5837 ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
5838 ("librsvg" ,librsvg)
5839 ("geoclue" ,geoclue)
a4df5756
SB		 5840 ;; XXX: required by libgjs.la.
5841 ("readline" ,readline)))
5842 (synopsis "Desktop shell for GNOME")
5843 (home-page "https://wiki.gnome.org/Projects/GnomeShell")
5844 (description
5845 "GNOME Shell provides core user interface functions for the GNOME desktop,
5846like switching to windows and launching applications.")
5847 (license license:gpl2+)))
c3f29bc9
RS		 5848
5849(define-public gtk-vnc
5850 (package
5851 (name "gtk-vnc")
965ff023 5852 (version "0.9.0")
c3f29bc9
RS		 5853 (source
5854 (origin
5855 (method url-fetch)
5856 (uri (string-append "mirror://gnome/sources/" name "/"
5857 (version-major+minor version) "/"
5858 name "-" version ".tar.xz"))
5859 (sha256
5860 (base32
965ff023 5861 "1dya1wc9vis8h0fv625pii1n70cckf1xjg1m2hndz989d118i6is"))))
c3f29bc9
RS		 5862 (build-system gnu-build-system)
5863 (arguments
5864 '(#:configure-flags '("--with-gtk=3.0")))
5865 (propagated-inputs
5866 `(("gtk+" ,gtk+))) ; required by gtk-vnc-2.0.pc.
5867 (inputs
5868 `(("cyrus-sasl" ,cyrus-sasl)
5869 ("gnutls" ,gnutls)
5870 ("libgcrypt" ,libgcrypt)
5871 ("pulseaudio" ,pulseaudio)))
5872 (native-inputs
5873 `(("glib:bin" ,glib "bin")
5874 ("gobject-introspection" ,gobject-introspection)
5875 ("intltool" ,intltool)
5876 ("pkg-config" ,pkg-config)
2f17e939 5877 ("python-wrapper" ,python-wrapper)
c3f29bc9
RS		 5878 ("vala" ,vala)))
5879 (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
5880 (synopsis "VNC viewer widget for GTK+")
5881 (description
5882 "GTK-VNC is a VNC viewer widget for GTK+, used by remote desktop viewing
5883applications, for instance the Vinagre client, GNOME Boxes and virt-viewer.
5884GTK-VNC implements client side RFB protocol and authentication extensions such
5885as SASL, TLS and VeNCrypt. Additionally it supports encoding extensions.")
5886 (license license:lgpl2.1+)))
8b877545 5887
dc69fe18
MW		 5888(define-public gnome-autoar
5889 (package
5890 (name "gnome-autoar")
c7da8510 5891 (version "0.2.3")
dc69fe18
MW		 5892 (source (origin
5893 (method url-fetch)
5894 (uri (string-append "mirror://gnome/sources/" name "/"
5895 (version-major+minor version) "/"
5896 name "-" version ".tar.xz"))
5897 (sha256
5898 (base32
c7da8510 5899 "02i4zgqqqj56h7bcys6dz7n78m4nj2x4dv1ggjmnrk98n06xpsax"))))
dc69fe18
MW		 5900 (build-system glib-or-gtk-build-system)
5901 (native-inputs
5902 `(("gnome-common" ,gnome-common)
5903 ("gobject-introspection" ,gobject-introspection)
5904 ("pkg-config" ,pkg-config)))
5905 (propagated-inputs
5906 `(("libarchive" ,libarchive))) ; XXX document why
5907 (inputs
5908 `(("gtk+" ,gtk+)
5909 ("nettle" ,nettle))) ; XXX: required by libarchive.pc
5910 (synopsis "Archives integration support for GNOME")
5911 (home-page "https://git.gnome.org/browse/gnome-autoar/")
5912 (description
5913 "GNOME Autoar is a library which makes creating and extracting archives
5914easy, safe, and automatic.")
5915 (license license:lgpl2.1+)))
5916
b64e217f
MW		 5917(define-public tracker
5918 (package
5919 (name "tracker")
8fc5cdc6 5920 (version "1.12.3")
b64e217f
MW		 5921 (source (origin
5922 (method url-fetch)
5923 (uri (string-append "mirror://gnome/sources/" name "/"
5924 (version-major+minor version) "/"
5925 name "-" version ".tar.xz"))
5926 (sha256
5927 (base32
8fc5cdc6 5928 "1mpq418lzba7fad0w0m3bnxvz3khf461b5zya8zmq5n1g0w99ki3"))))
b64e217f
MW		 5929 (build-system glib-or-gtk-build-system)
5930 (native-inputs
5931 `(("gnome-common" ,gnome-common)
5932 ("gobject-introspection" ,gobject-introspection)
5933 ("intltool" ,intltool)
5934 ("pkg-config" ,pkg-config)
5935 ("vala" ,vala)))
5936 (inputs
5937 `(("gtk+" ,gtk+)
5938 ("dbus" ,dbus)
5939 ("gstreamer" ,gstreamer)
5940 ("gst-plugins-base" ,gst-plugins-base)
44ed6284 5941 ("sqlite" ,sqlite)
b64e217f
MW		 5942 ("nettle" ,nettle) ; XXX why is this needed?
5943 ("poppler" ,poppler)
5944 ("libgsf" ,libgsf)
5945 ("libexif" ,libexif)
5946 ("libpng" ,libpng)
5947 ("libtiff" ,libtiff)
5948 ("libvorbis" ,libvorbis)
5949 ("flac" ,flac)
5950 ("totem-pl-parser" ,totem-pl-parser)
5951 ("zlib" ,zlib)
5952 ("exempi" ,exempi)
5953 ("libxml2" ,libxml2)
5954 ("upower" ,upower)
b64e217f
MW		 5955 ("libunistring" ,libunistring)
5956 ("giflib" ,giflib)
0ef48cd9 5957 ("json-glib" ,json-glib)
b64e217f
MW		 5958 ("openjpeg" ,openjpeg-1)
5959 ("libosinfo" ,libosinfo)
5960 ("libcue" ,libcue)
5961 ("libseccomp" ,libseccomp)
0ef48cd9 5962 ("libsoup" ,libsoup)
b64e217f
MW		 5963 ("libuuid" ,util-linux)))
5964 (arguments `(#:tests? #f)) ; XXX FIXME enable tests (some fail)
5965 (synopsis "Metadata database, indexer and search tool")
5966 (home-page "https://wiki.gnome.org/Projects/Tracker")
5967 (description
5968 "Tracker is an advanced framework for first class objects with associated
5969metadata and tags. It provides a one stop solution for all metadata, tags,
5970shared object databases, search tools and indexing.")
5971 ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
5972 ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
5973 (license (list license:gpl2+
5974 license:lgpl2.1+
5975 license:lgpl2.0+))))
5976
8b877545
RS		 5977(define-public nautilus
5978 (package
5979 (name "nautilus")
35e2d0cf 5980 (version "3.26.2")
8b877545
RS		 5981 (source (origin
5982 (method url-fetch)
5983 (uri (string-append "mirror://gnome/sources/" name "/"
5984 (version-major+minor version) "/"
5985 name "-" version ".tar.xz"))
5986 (sha256
5987 (base32
35e2d0cf
R		 5988 "1d0l4vgcjqj4671hb6s2a56baqlasbxn3wl6vfrpdsk5qq299jbr"))))
5989 (build-system meson-build-system)
8b877545 5990 (arguments
35e2d0cf 5991 '(#:glib-or-gtk? #t
8b877545
RS		 5992 ;; XXX: FAIL: check-nautilus
5993 ;; Settings schema 'org.gnome.nautilus.preferences' is not installed
5994 #:tests? #f))
5995 (native-inputs
35e2d0cf
R		 5996 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
5997 ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
5998 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
8b877545
RS		 5999 ("gobject-introspection" ,gobject-introspection)
6000 ("intltool" ,intltool)
6001 ("pkg-config" ,pkg-config)))
8b877545 6002 (inputs
8b877545 6003 `(("dconf" ,dconf)
dd05e731 6004 ("gvfs" ,gvfs)
8b877545
RS		 6005 ("exempi" ,exempi)
6006 ("gnome-desktop" ,gnome-desktop)
09d88905 6007 ("gnome-autoar" ,gnome-autoar)
35e2d0cf
R		 6008 ("libselinux" ,libselinux)
6009 ("nettle" ,nettle) ; XXX required by libarchive.pc via gnome-autoar
09d88905 6010 ("tracker" ,tracker)
ce6027bf
SB		 6011 ;; XXX: gtk+ is required by libnautilus-extension.pc
6012 ;;
6013 ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
6014 ;; package. See:
6015 ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
6016 ("gtk+" ,gtk+)
8b877545
RS		 6017 ("libexif" ,libexif)
6018 ("libxml2" ,libxml2)))
6019 (synopsis "File manager for GNOME")
6020 (home-page "https://wiki.gnome.org/Apps/Nautilus")
6021 (description
6022 "Nautilus (Files) is a file manager designed to fit the GNOME desktop
6023design and behaviour, giving the user a simple way to navigate and manage its
6024files.")
6025 (license license:gpl2+)))
3c697ffd
JR		 6026
6027(define-public baobab
6028 (package
6029 (name "baobab")
d233d373 6030 (version "3.28.0")
3c697ffd
JR		 6031 (source (origin
6032 (method url-fetch)
6033 (uri (string-append
6034 "mirror://gnome/sources/" name "/"
6035 (version-major+minor version) "/"
6036 name "-" version ".tar.xz"))
6037 (sha256
6038 (base32
d233d373
RJ		 6039 "0qsx7vx5c3n4yxlxbr11sppw7qwcv9z3g45b5xb9y7wxw5lv42sk"))))
6040 (build-system meson-build-system)
6041 (arguments
6042 '(#:glib-or-gtk? #t))
3c697ffd
JR		 6043 (native-inputs
6044 `(("intltool" ,intltool)
6045 ("pkg-config" ,pkg-config)
d233d373
RJ		 6046 ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6047 ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
3c697ffd
JR		 6048 ("itstool" ,itstool)
6049 ("xmllint" ,libxml2)
6050 ("glib" ,glib "bin")
6051 ("vala" ,vala)))
6052 (inputs
6053 `(("gtk+" ,gtk+)))
6054 (synopsis "Disk usage analyzer for GNOME")
6055 (description
6056 "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
6057usage in the GNOME desktop environment. It can easily scan device volumes or
6058a specific user-requested directory branch (local or remote). Once the scan
6059is complete it provides a graphical representation of each selected folder.")
6060 (home-page "https://wiki.gnome.org/Apps/Baobab")
6061 (license license:gpl2+)))
dc050251 6062
fdba447c
RS		 6063(define-public gnome-backgrounds
6064 (package
6065 (name "gnome-backgrounds")
9ca381f0 6066 (version "3.28.0")
fdba447c
RS		 6067 (source
6068 (origin
6069 (method url-fetch)
6070 (uri (string-append "mirror://gnome/sources/" name "/"
6071 (version-major+minor version) "/"
6072 name "-" version ".tar.xz"))
6073 (sha256
6074 (base32
9ca381f0
RW		 6075 "1qgim0yhzjgcq172y4vp5hqz4rh1ak38a7pgi6s7dq0wklyrcnxj"))))
6076 (build-system meson-build-system)
fdba447c
RS		 6077 (native-inputs
6078 `(("intltool" ,intltool)))
6079 (home-page "https://git.gnome.org/browse/gnome-backgrounds")
6080 (synopsis "Background images for the GNOME desktop")
6081 (description
6082 "GNOME backgrounds package contains a collection of graphics files which
6083can be used as backgrounds in the GNOME Desktop environment. Additionally,
6084the package creates the proper framework and directory structure so that you
6085can add your own files to the collection.")
6086 (license (list license:gpl2+
6087 license:cc-by2.0
6088 license:cc-by-sa2.0
6089 license:cc-by-sa3.0))))
6090
b784b1a9
RS		 6091(define-public gnome-screenshot
6092 (package
6093 (name "gnome-screenshot")
efa355bc 6094 (version "3.22.0")
b784b1a9
RS		 6095 (source
6096 (origin
6097 (method url-fetch)
6098 (uri (string-append "mirror://gnome/sources/" name "/"
6099 (version-major+minor version) "/"
6100 name "-" version ".tar.xz"))
6101 (sha256
6102 (base32
efa355bc 6103 "0c02n1hgv21m4082jx399b1yazsc0cr07ba8k0pv8v3w7i5z21ca"))))
b784b1a9
RS		 6104 (build-system glib-or-gtk-build-system)
6105 (native-inputs
6106 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6107 ("intltool" ,intltool)
6108 ("pkg-config" ,pkg-config)))
6109 (inputs
6110 `(("gtk+" ,gtk+)
6111 ("libcanberra" ,libcanberra)
6112 ("libx11" ,libx11)
6113 ("libxext" ,libxext)))
6114 (home-page "https://git.gnome.org/browse/gnome-screenshot")
6115 (synopsis "Take pictures of your screen")
6116 (description
6117 "GNOME Screenshot is a utility used for taking screenshots of the entire
6118screen, a window or a user defined area of the screen, with optional
6119beautifying border effects.")
6120 (license license:gpl2+)))
6121
66d59111
RS		 6122(define-public dconf-editor
6123 (package
6124 (name "dconf-editor")
92c93927 6125 (version "3.26.2")
66d59111
RS		 6126 (source
6127 (origin
6128 (method url-fetch)
6129 (uri (string-append "mirror://gnome/sources/" name "/"
6130 (version-major+minor version) "/"
6131 name "-" version ".tar.xz"))
6132 (sha256
6133 (base32
92c93927 6134 "1lcarg8igsqpq4iv5834mf9kz4cmfhfw11bwy3x7v7f497z57d18"))))
66d59111 6135 (build-system glib-or-gtk-build-system)
d25c1836
SB		 6136 (arguments
6137 '(#:phases
6138 (modify-phases %standard-phases
6139 (add-before 'install 'skip-gtk-update-icon-cache
6140 (lambda _
6141 ;; Don't create 'icon-theme.cache'.
6142 (substitute* "editor/Makefile"
6143 (("gtk-update-icon-cache") "true"))
6144 #t)))))
66d59111
RS		 6145 (native-inputs
6146 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
6147 ("intltool" ,intltool)
6148 ("pkg-config" ,pkg-config)))
6149 (inputs
6150 `(("dconf" ,dconf)
6151 ("gtk+" ,gtk+)
6152 ("libxml2" ,libxml2)))
6153 (home-page "https://git.gnome.org/browse/dconf-editor")
6154 (synopsis "Graphical editor for GNOME's dconf configuration system")
6155 (description
6156 "Dconf-editor is a graphical tool for browsing and editing the dconf
6157configuration system for GNOME. It allows users to configure desktop
6158software that do not provide their own configuration interface.")
6159 (license license:lgpl2.1+)))
6160
96d36f38
AW		 6161(define-public gnome-default-applications
6162 (package
6163 (name "gnome-default-applications")
6164 (version "0")
6165 (build-system trivial-build-system)
6166 (source #f)
6167 (propagated-inputs
8ad4f0aa
LC		 6168 `(("nautilus" ,nautilus)
6169 ("evince" ,evince)))
96d36f38
AW		 6170 (arguments
6171 `(#:modules ((guix build utils))
6172 #:builder
6173 (begin
6174 (use-modules (guix build utils))
6175 (let* ((out (assoc-ref %outputs "out"))
6176 (apps (string-append out "/share/applications")))
6177 (mkdir-p apps)
6178 (call-with-output-file (string-append apps "/defaults.list")
6179 (lambda (port)
6180 (format port "[Default Applications]\n")
8ad4f0aa
LC		 6181 (format port "inode/directory=org.gnome.Nautilus.desktop\n")
6182 (format port "application/pdf=evince.desktop\n")
6183 (format port "application/postscript=evince.desktop\n")))
96d36f38
AW		 6184 #t))))
6185 (synopsis "Default MIME type associations for the GNOME desktop")
6186 (description
6187 "Given many installed packages which might handle a given MIME type, a
6188user running the GNOME desktop probably has some preferences: for example,
6189that folders be opened by default by the Nautilus file manager, not the Baobab
6190disk usage analyzer. This package establishes that set of default MIME type
6191associations for GNOME.")
6192 (license license:gpl3+)
6193 (home-page #f)))
6194
dc050251
SB		 6195(define-public gnome
6196 (package
6197 (name "gnome")
6198 (version (package-version gnome-shell))
6199 (source #f)
6200 (build-system trivial-build-system)
e3cfef22 6201 (arguments '(#:builder (begin (mkdir %output) #t)))
dc050251
SB		 6202 (propagated-inputs
6203 ;; TODO: Add more packages according to:
6204 ;; <https://packages.debian.org/jessie/gnome-core>.
6205 `(("adwaita-icon-theme" ,adwaita-icon-theme)
05f651c4 6206 ("baobab" ,baobab)
0bd3597b 6207 ("font-cantarell" ,font-cantarell)
a9dbefdc 6208 ("font-dejavu" ,font-dejavu)
dc050251
SB		 6209 ("at-spi2-core" ,at-spi2-core)
6210 ("dbus" ,dbus)
6211 ("dconf" ,dconf)
72360453 6212 ("desktop-file-utils" ,desktop-file-utils)
dc050251
SB		 6213 ("eog" ,eog)
6214 ("epiphany" ,epiphany)
6215 ("evince" ,evince)
71d9b980 6216 ("file-roller" ,file-roller)
dc050251
SB		 6217 ("gedit" ,gedit)
6218 ("glib-networking" ,glib-networking)
05f651c4 6219 ("gnome-backgrounds" ,gnome-backgrounds)
63ad9b80
AW		 6220 ("gnome-bluetooth" ,gnome-bluetooth)
6221 ("gnome-calculator" ,gnome-calculator)
dc050251 6222 ("gnome-control-center" ,gnome-control-center)
63ad9b80 6223 ("gnome-disk-utility" ,gnome-disk-utility)
96d36f38 6224 ("gnome-default-applications" ,gnome-default-applications)
dc050251 6225 ("gnome-keyring" ,gnome-keyring)
63ad9b80 6226 ("gnome-online-accounts" ,gnome-online-accounts)
dc050251
SB		 6227 ("gnome-session" ,gnome-session)
6228 ("gnome-settings-daemon" ,gnome-settings-daemon)
6229 ("gnome-shell" ,gnome-shell)
63ad9b80 6230 ("gnome-system-monitor" ,gnome-system-monitor)
dc050251
SB		 6231 ("gnome-terminal" ,gnome-terminal)
6232 ("gnome-themes-standard" ,gnome-themes-standard)
2999dcd5
AW		 6233 ("gst-plugins-base" ,gst-plugins-base)
6234 ("gst-plugins-good" ,gst-plugins-good)
63ad9b80 6235 ("gucharmap" ,gucharmap)
05f651c4 6236 ("gvfs" ,gvfs)
dc050251
SB		 6237 ("hicolor-icon-theme" ,hicolor-icon-theme)
6238 ("nautilus" ,nautilus)
69308043 6239 ("pinentry-gnome3" ,pinentry-gnome3)
dc050251
SB		 6240 ("pulseaudio" ,pulseaudio)
6241 ("shared-mime-info" ,shared-mime-info)
f6f4370f 6242 ("system-config-printer" ,system-config-printer)
dc050251 6243 ("totem" ,totem)
c20cd0d2 6244 ("xdg-user-dirs" ,xdg-user-dirs)
dc050251
SB		 6245 ("yelp" ,yelp)
6246 ("zenity" ,zenity)))
fe4e698d 6247 (synopsis "The GNU desktop environment")
dc050251
SB		 6248 (home-page "https://www.gnome.org/")
6249 (description
fe4e698d
LC		 6250 "GNOME is the graphical desktop for GNU. It includes a wide variety of
6251applications for browsing the web, editing text and images, creating
6252documents and diagrams, playing media, scanning, and much more.")
dc050251 6253 (license license:gpl2+)))
4a526711
DT		 6254
6255(define-public byzanz
6256 ;; The last stable release of Byzanz was in 2011, but there have been many
6257 ;; useful commits made to the Byzanz repository since then that it would be
6258 ;; silly to use such an old release.
6259 (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
6260 (package
6261 (name "byzanz")
6262 (version (string-append "0.2-1." (string-take commit 7)))
6263 (source (origin
6264 (method git-fetch)
6265 (uri (git-reference
5f13bf09 6266 (url "https://git.gnome.org/browse/byzanz")
4a526711 6267 (commit commit)))
5a6527e4 6268 (file-name (string-append name "-" version "-checkout"))
4a526711
DT		 6269 (sha256
6270 (base32
6271 "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
6272 (build-system glib-or-gtk-build-system)
6273 (arguments
6274 '(#:phases
6275 (modify-phases %standard-phases
189be331 6276 (replace 'bootstrap
4a526711
DT		 6277 (lambda _
6278 ;; The build system cleverly detects that we're not building from
6279 ;; a release tarball and turns on -Werror for GCC.
6280 ;; Unsurprisingly, there is a warning during compilation that
6281 ;; causes the build to fail unnecessarily, so we remove the flag.
6282 (substitute* '("configure.ac")
6283 (("-Werror") ""))
6284 ;; The autogen.sh script in gnome-common will run ./configure
6285 ;; by default, which is problematic because source shebangs
6286 ;; have not yet been patched.
6287 (setenv "NOCONFIGURE" "t")
6288 (zero? (system* "sh" "autogen.sh")))))))
6289 (native-inputs
6290 `(("autoconf" ,autoconf)
6291 ("automake" ,automake)
6292 ("gnome-common" ,gnome-common)
6293 ("intltool" ,intltool)
6294 ("libtool" ,libtool)
6295 ("pkg-config" ,pkg-config)
6296 ("which" ,which)))
6297 (inputs
6298 `(("glib" ,glib)
6299 ("gstreamer" ,gstreamer)
6300 ("gst-plugins-base" ,gst-plugins-base)
6301 ("gtk+" ,gtk+)))
6302 (synopsis "Desktop recording program")
6303 (description "Byzanz is a simple desktop recording program with a
6304command-line interface. It can record part or all of an X display for a
6305specified duration and save it as a GIF encoded animated image file.")
6306 (home-page "https://git.gnome.org/browse/byzanz")
6307 (license license:gpl2+))))
3a9a4c51 6308
0ec171ec
MS		 6309(define-public gsound
6310 (package
6311 (name "gsound")
6312 (version "1.0.2")
6313 (source (origin
6314 (method url-fetch)
6315 (uri (string-append "mirror://gnome/sources/" name "/"
6316 (version-major+minor version) "/"
6317 name "-" version ".tar.xz"))
6318 (sha256
6319 (base32
6320 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
6321 (build-system glib-or-gtk-build-system)
6322 (native-inputs
6323 `(("pkg-config" ,pkg-config)
6324 ("gobject-introspection" ,gobject-introspection)
6325 ("vala" ,vala)))
6326 (inputs
6327 `(("glib" ,glib)
6328 ("libcanberra" ,libcanberra)))
6329 (home-page "https://wiki.gnome.org/Projects/GSound")
6330 (synopsis "GObject wrapper for libcanberra")
6331 (description
6332 "GSound is a small library for playing system sounds. It's designed to be
6333used via GObject Introspection, and is a thin wrapper around the libcanberra C
6334library.")
6335 (license license:lgpl2.1+)))
6336
3a9a4c51
RS		 6337(define-public libzapojit
6338 (package
6339 (name "libzapojit")
6340 (version "0.0.3")
6341 (source (origin
6342 (method url-fetch)
6343 (uri (string-append "mirror://gnome/sources/" name "/"
6344 (version-major+minor version) "/"
6345 name "-" version ".tar.xz"))
6346 (sha256
6347 (base32
6348 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
6349 (build-system gnu-build-system)
6350 (native-inputs
6351 `(("gobject-introspection" ,gobject-introspection)
6352 ("intltool" ,intltool)
6353 ("pkg-config" ,pkg-config)))
6354 (inputs
6355 `(("gnome-online-accounts" ,gnome-online-accounts)
6356 ("json-glib" ,json-glib)
6357 ("rest" ,rest)))
6358 (home-page "https://wiki.gnome.org/Projects/Zapojit")
6359 (synopsis "Library for accessing SkyDrive and Hotmail")
6360 (description
6361 "Libzapojit is a GLib-based library for accessing online service APIs of
6362Microsoft SkyDrive and Hotmail, using their REST protocols.")
6363 (license license:lgpl2.1+)))
9365ee1c 6364
60e2a9ae
MS		 6365(define-public gnome-clocks
6366 (package
6367 (name "gnome-clocks")
b39e6121 6368 (version "3.26.1")
60e2a9ae
MS		 6369 (source (origin
6370 (method url-fetch)
6371 (uri (string-append "mirror://gnome/sources/" name "/"
6372 (version-major+minor version) "/"
6373 name "-" version ".tar.xz"))
6374 (sha256
6375 (base32
b39e6121 6376 "1xqirnf7xkiv5vj3ng4slpyh50ihn625vhdgskfzx83a3pgxin1b"))))
60e2a9ae
MS		 6377 (build-system meson-build-system)
6378 (arguments
6379 '(#:glib-or-gtk? #t))
6380 (native-inputs
6381 `(("vala" ,vala)
6382 ("pkg-config" ,pkg-config)
6383 ("glib" ,glib "bin") ; for glib-compile-resources
6384 ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
6385 ("desktop-file-utils" ,desktop-file-utils)
6386 ("gettext" ,gettext-minimal)
6387 ("itstool" ,itstool)))
6388 (inputs
6389 `(("glib" ,glib)
6390 ("gtk+" ,gtk+)
6391 ("gsound" ,gsound)
6392 ("geoclue" ,geoclue)
6393 ("geocode-glib" ,geocode-glib)
6394 ("libgweather" ,libgweather)
6395 ("gnome-desktop" ,gnome-desktop)))
6396 (home-page "https://wiki.gnome.org/Apps/Clocks")
6397 (synopsis "GNOME's clock application")
6398 (description
6399 "GNOME Clocks is a simple clocks application designed to fit the GNOME
6400desktop. It supports world clock, stop watch, alarms, and count down timer.")
6401 (license license:gpl3+)))
6402
3c474897
KY		 6403(define-public gnome-calendar
6404 (package
6405 (name "gnome-calendar")
4c8413cd 6406 (version "3.26.3")
3c474897
KY		 6407 (source (origin
6408 (method url-fetch)
6409 (uri (string-append "mirror://gnome/sources/" name "/"
6410 (version-major+minor version) "/"
6411 name "-" version ".tar.xz"))
6412 (sha256
6413 (base32
4c8413cd 6414 "1clnfvvsaqw9vpxrs6qrxzmgpaw9x2nkjik2x2vwvm07pdvhddxn"))))
a49d3e37
MS		 6415 (build-system meson-build-system)
6416 (arguments
6417 '(#:glib-or-gtk? #t
6418 ;; gnome-calendar has to be installed before the tests can be run
6419 ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
6420 #:tests? #f))
3c474897 6421 (native-inputs
a49d3e37
MS		 6422 `(("gettext" ,gettext-minimal)
6423 ("glib-bin" ,glib "bin") ; For glib-compile-schemas
6424 ("gtk+-bin" ,gtk+ "bin") ; For gtk-update-icon-cache
3c474897
KY		 6425 ("pkg-config" ,pkg-config)))
6426 (inputs
a49d3e37 6427 `(("evolution-data-server" ,evolution-data-server)
4b8aae41
MW		 6428 ("gnome-online-accounts" ,gnome-online-accounts)
6429 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
3c474897
KY		 6430 (home-page "https://wiki.gnome.org/Apps/Calendar")
6431 (synopsis "GNOME's calendar application")
6432 (description
6433 "GNOME Calendar is a simple calendar application designed to fit the GNOME
a49d3e37 6434desktop. It supports multiple calendars, month, week and year view.")
3c474897
KY		 6435 (license license:gpl3+)))
6436
57b14665
MS		 6437(define-public gnome-todo
6438 (package
6439 (name "gnome-todo")
52995941 6440 (version "3.26.2")
57b14665
MS		 6441 (source (origin
6442 (method url-fetch)
6443 (uri (string-append "mirror://gnome/sources/" name "/"
6444 (version-major+minor version) "/"
6445 name "-" version ".tar.xz"))
5de561a7 6446 (patches (search-patches "gnome-todo-libical-compat.patch"))
57b14665
MS		 6447 (sha256
6448 (base32
52995941 6449 "106xx1w18pxjmj5k0k2qjzi6b3c3kaz7b5kyrpknykibnr401ff9"))))
57b14665
MS		 6450 (build-system meson-build-system)
6451 (arguments
6452 '(#:glib-or-gtk? #t
6453 #:phases (modify-phases %standard-phases
6454 (add-after
6455 'install 'wrap-gnome-todo
6456 (lambda* (#:key inputs outputs #:allow-other-keys)
6457 (let ((out (assoc-ref outputs "out"))
6458 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
6459 (python-path (getenv "PYTHONPATH")))
6460 (wrap-program (string-append out "/bin/gnome-todo")
6461 ;; XXX: gi plugins are broken.
6462 ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
6463 ;; For plugins.
6464 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
6465 `("PYTHONPATH" ":" prefix (,python-path))))
6466 #t)))))
6467 (native-inputs
6468 `(("gettext" ,gettext-minimal)
6469 ("gobject-introspection" ,gobject-introspection)
6470 ("glib:bin" ,glib "bin") ; For glib-compile-resources
6471 ("gtk+-bin" ,gtk+ "bin") ; For gtk-update-icon-cache
6472 ("pkg-config" ,pkg-config)))
6473 (inputs
6474 `(("rest" ,rest) ; For Todoist plugin
6475 ("json-glib" ,json-glib) ; For Todoist plugin
6476 ("libical" ,libical)
6477 ("libpeas" ,libpeas)
6478 ("python-pygobject" ,python-pygobject)
6479 ("evolution-data-server" ,evolution-data-server)
6480 ("gnome-online-accounts" ,gnome-online-accounts)
6481 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
6482 (home-page "https://wiki.gnome.org/Apps/Todo")
6483 (synopsis "GNOME's ToDo Application")
6484 (description
6485 "GNOME To Do is a simplistic personal task manager designed to perfectly
6486fit the GNOME desktop.")
6487 (license license:gpl3+)))
6488
ab179eaf
SB		 6489(define-public gnome-dictionary
6490 (package
6491 (name "gnome-dictionary")
cf81ddef 6492 (version "3.26.1")
ab179eaf
SB		 6493 (source (origin
6494 (method url-fetch)
6495 (uri (string-append "mirror://gnome/sources/" name "/"
6496 (version-major+minor version) "/"
6497 name "-" version ".tar.xz"))
6498 (sha256
6499 (base32
cf81ddef
LC		 6500 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
6501 (build-system meson-build-system)
2776b5d5
MB		 6502 (arguments '(#:glib-or-gtk? #t
6503 #:phases (modify-phases %standard-phases
6504 (add-after 'unpack 'patch-install-script
6505 (lambda _
6506 ;; This script attempts to compile glib schemas
6507 ;; and create an empty MIME database. We do
6508 ;; that elsewhere, so prevent it from running.
6509 (substitute* "build-aux/post-install.sh"
6510 (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
6511 #t)))))
ab179eaf
SB		 6512 (native-inputs
6513 `(("glib:bin" ,glib "bin")
6514 ("gobject-introspection" ,gobject-introspection)
6515 ("intltool" ,intltool)
6516 ("itstool" ,itstool)
6517 ("pkg-config" ,pkg-config)
6518 ("xmllint" ,libxml2)))
6519 (inputs
6520 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6521 ("gtk+" ,gtk+)))
6522 (home-page "https://wiki.gnome.org/Apps/Dictionary")
6523 (synopsis "Look up words in dictionary sources")
6524 (description
6525 "GNOME Dictionary can look for the definition or translation of a word in
6526existing databases over the internet.")
6527 (license license:gpl3+)))
6528
9365ee1c
JN		 6529(define-public gnome-tweak-tool
6530 (package
6531 (name "gnome-tweak-tool")
c7fc414e 6532 (version "3.26.4")
9365ee1c
JN		 6533 (source (origin
6534 (method url-fetch)
6535 (uri (string-append "mirror://gnome/sources/gnome-tweak-tool/"
6536 (version-major+minor version) "/"
6537 "gnome-tweak-tool-" version ".tar.xz"))
6538 (patches (list
6539 (search-patch "gnome-tweak-tool-search-paths.patch")))
6540 (sha256
6541 (base32
c7fc414e 6542 "1pq5a0kzh1sz7s7ax5c7p6212k9d51nk5bfvjfyqn99cs928187x"))))
7ef335b0 6543 (build-system glib-or-gtk-build-system)
9365ee1c
JN		 6544 (arguments
6545 `(#:configure-flags '("--localstatedir=/tmp"
6546 "--sysconfdir=/tmp")
6547 #:imported-modules ((guix build python-build-system)
7ef335b0 6548 ,@%glib-or-gtk-build-system-modules)
9365ee1c 6549 #:phases (modify-phases %standard-phases
c7fc414e
RH		 6550 (delete 'configure)
6551 (replace 'build
6552 (lambda* (#:key outputs #:allow-other-keys)
6553 (invoke "meson" "build"
6554 "--prefix" (assoc-ref outputs "out"))))
6555 (replace 'check
6556 (lambda _ (invoke "ninja" "-C" "build" "test")))
6557 (replace 'install
6558 (lambda* (#:key outputs #:allow-other-keys)
6559 (invoke "ninja" "-C" "build" "install")))
9af6bce1
CB		 6560 (add-after 'install 'wrap-program
6561 (lambda* (#:key outputs #:allow-other-keys)
6562 (let ((out (assoc-ref outputs "out"))
6563 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
6564 (wrap-program (string-append out "/bin/gnome-tweak-tool")
6565 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6566 #t))
9365ee1c
JN		 6567 (add-after 'install 'wrap
6568 (@@ (guix build python-build-system) wrap)))))
6569 (native-inputs
c7fc414e
RH		 6570 `(("gtk+:bin" ,gtk+ "bin") ; For gtk-update-icon-cache
6571 ("intltool" ,intltool)
6572 ("meson" ,meson-for-build)
6573 ("ninja" ,ninja)
9365ee1c
JN		 6574 ("pkg-config" ,pkg-config)))
6575 (inputs
c7fc414e
RH		 6576 `(("gnome-desktop" ,gnome-desktop)
6577 ("gtk+" ,gtk+)
9365ee1c
JN		 6578 ("gobject-introspection" ,gobject-introspection)
6579 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
c7fc414e
RH		 6580 ("libnotify" ,libnotify)
6581 ("libsoup" ,libsoup)
6582 ("nautilus" ,nautilus)
6583 ("python" ,python)
6584 ("python-pygobject" ,python-pygobject)))
9365ee1c
JN		 6585 (synopsis "Customize advanced GNOME 3 options")
6586 (home-page "https://wiki.gnome.org/action/show/Apps/GnomeTweakTool")
6587 (description
6588 "GNOME Tweak Tool allows adjusting advanced configuration settings in
6589GNOME 3. This includes things like the fonts used in user interface elements,
6590alternative user interface themes, changes in window management behavior,
6591GNOME Shell appearance and extension, etc.")
6592 (license license:gpl3+)))
813f814a 6593
32ac717c
DT		 6594(define-public gnome-shell-extensions
6595 (package
6596 (name "gnome-shell-extensions")
9c2d0a1a 6597 (version "3.24.3")
32ac717c
DT		 6598 (source (origin
6599 (method url-fetch)
6600 (uri (string-append "mirror://gnome/sources/" name "/"
6601 (version-major+minor version) "/"
6602 name "-" version ".tar.xz"))
6603 (sha256
6604 (base32
9c2d0a1a 6605 "0y8anpp9ymp0lxn15w63ra6zxxf8nvbl48xqkvqdjzida73fyz9w"))))
32ac717c
DT		 6606 (build-system gnu-build-system)
6607 (arguments
6608 '(#:configure-flags '("--enable-extensions=all")))
6609 (native-inputs
6610 `(("intltool" ,intltool)
6611 ("pkg-config" ,pkg-config)))
6612 (propagated-inputs
6613 `(("glib" ,glib)
6614 ("glib" ,glib "bin")))
6615 (synopsis "Extensions for GNOME Shell")
6616 (description "GNOME Shell extensions modify and extend GNOME Shell
6617functionality and behavior.")
6618 (home-page "https://extensions.gnome.org/")
6619 (license license:gpl3+)))
6620
813f814a
DT		 6621(define-public arc-theme
6622 (package
6623 (name "arc-theme")
a18f8eaf 6624 (version "20181022")
813f814a 6625 (source (origin
a18f8eaf
BH		 6626 (method git-fetch)
6627 (uri (git-reference
6628 (url "https://github.com/NicoHood/arc-theme.git")
6629 (commit version)))
6630 (file-name (git-file-name name version))
813f814a
DT		 6631 (sha256
6632 (base32
a18f8eaf 6633 "08951dk1irfadwpr3p323a4fprmxg53rk2r2niwq3v62ryhi3663"))))
813f814a 6634 (build-system gnu-build-system)
d88884fa
EF		 6635 (arguments
6636 '(#:phases
6637 (modify-phases %standard-phases
6638 ;; autogen.sh calls configure at the end of the script.
6639 (replace 'bootstrap
6640 (lambda _ (invoke "autoreconf" "-vfi"))))))
813f814a
DT		 6641 (native-inputs
6642 `(("autoconf" ,autoconf)
6643 ("automake" ,automake)
a18f8eaf
BH		 6644 ("glib" ,glib "bin") ; for glib-compile-resources
6645 ("gnome-shell" ,gnome-shell)
6646 ("gtk+" ,gtk+)
6647 ("inkscape" ,inkscape)
6648 ("optipng" ,optipng)
6649 ("pkg-config" ,pkg-config)
6650 ("sassc" ,sassc)))
813f814a
DT		 6651 (synopsis "A flat GTK+ theme with transparent elements")
6652 (description "Arc is a flat theme with transparent elements for GTK 3, GTK
66532, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
6654like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
6655 (home-page "https://github.com/horst3180/arc-theme")
6656 ;; No "or later" language found.
a18f8eaf 6657 (license license:gpl3+)))
9987c57c 6658
d935e6a1 6659(define-public faba-icon-theme
9987c57c 6660 (package
d935e6a1 6661 (name "faba-icon-theme")
2eee7ee3 6662 (version "4.3")
d935e6a1
BT		 6663 (source
6664 (origin
6665 (method url-fetch)
6666 (uri (string-append "https://github.com/moka-project/"
6667 name "/archive/v" version ".tar.gz"))
6668 (file-name (string-append name "-" version ".tar.gz"))
6669 (sha256
6670 (base32
2eee7ee3 6671 "18ln06xl60qzvzz61zq9q72hdbfgjsza3flph8i2asyzx3dffz68"))))
f6a9b345 6672 (build-system meson-build-system)
9987c57c 6673 (arguments
82da291a 6674 `(#:phases
9987c57c 6675 (modify-phases %standard-phases
82da291a 6676 (add-before 'configure 'disable-post-install
9987c57c 6677 (lambda _
82da291a
JL		 6678 (substitute* "meson.build"
6679 (("meson.add_install_script.*") "")))))))
9987c57c
DT		 6680 (native-inputs
6681 `(("autoconf" ,autoconf)
6682 ("automake" ,automake)))
d935e6a1
BT		 6683 (synopsis "Faba icon theme")
6684 (description
6685 "Faba is a minimal icon set used as a basis for other themes such as
6686Moka")
6687 (home-page "https://snwh.org/moka")
6688 (license (list license:lgpl3+
6689 license:cc-by-sa4.0))))
6690
9987c57c
DT		 6691(define-public moka-icon-theme
6692 (package
8b0e4177 6693 (inherit faba-icon-theme)
9987c57c 6694 (name "moka-icon-theme")
105a3625 6695 (version "5.4.0")
9987c57c
DT		 6696 (source (origin
6697 (method url-fetch)
6698 (uri (string-append "https://github.com/moka-project"
6699 "/moka-icon-theme/archive/v"
6700 version ".tar.gz"))
6701 (file-name (string-append name "-" version ".tar.gz"))
6702 (sha256
6703 (base32
105a3625 6704 "1nbwdjj268hxv9lfagd9aylily9f0hhallp841v0i3imljp84bmk"))))
550281fb
BT		 6705 (propagated-inputs
6706 ;; Moka is based on Faba by using it as a fallback icon set instead of
6707 ;; bundling it, so we need to add it as a propagated input.
6708 `(("faba-icon-theme" ,faba-icon-theme)))
9987c57c
DT		 6709 (synopsis "Moka icon theme")
6710 (description "Moka is a stylized desktop icon set, designed to be clear,
6711simple and consistent.")
fedde43b
BT		 6712 (license (list license:gpl3+
6713 license:cc-by-sa4.0))))
6fd8f8d6
DT		 6714
6715(define-public arc-icon-theme
6716 (package
6717 (name "arc-icon-theme")
c4180240 6718 (version "20161122")
6fd8f8d6
DT		 6719 (source (origin
6720 (method url-fetch)
6721 (uri (string-append "https://github.com/horst3180/arc-icon-theme"
6722 "/archive/" version ".tar.gz"))
6723 (file-name (string-append name "-" version ".tar.gz"))
6724 (sha256
6725 (base32
c4180240 6726 "1ya1cqvv8q847c0rpcg6apzky87q3h04y8jz5nmi52qk6kg8si0b"))))
6fd8f8d6 6727 (build-system gnu-build-system)
9e1ede95
JL		 6728 (arguments
6729 `(#:phases
6730 (modify-phases %standard-phases
6731 (add-after 'unpack 'disable-configure-during-bootstrap
6732 (lambda _
6733 (substitute* "autogen.sh"
6734 (("^\"\\$srcdir/configure\".*") ""))
6735 #t)))))
6fd8f8d6
DT		 6736 (native-inputs
6737 `(("autoconf" ,autoconf)
6738 ("automake" ,automake)))
6739 ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
6740 (propagated-inputs
6741 `(("moka-icon-theme" ,moka-icon-theme)))
6742 (synopsis "Arc icon theme")
6743 (description "The Arc icon theme provides a set of icons matching the
6744style of the Arc GTK theme. Icons missing from the Arc theme are provided by
6745the Moka icon theme.")
6746 (home-page "https://github.com/horst3180/arc-icon-theme")
6747 (license license:gpl3+)))
6064a4e8
LF		 6748
6749(define-public folks
6750 (package
6751 (name "folks")
d23495fa 6752 (version "0.11.4")
6064a4e8
LF		 6753 (source (origin
6754 (method url-fetch)
6755 (uri (string-append
e5f4796e 6756 "mirror://gnome/sources/folks/"
6064a4e8 6757 (version-major+minor version) "/"
e5f4796e 6758 "folks-" version ".tar.xz"))
6064a4e8
LF		 6759 (sha256
6760 (base32
d23495fa 6761 "16hqh2gxlbx0b0hgq216hndr1m72vj54jvryzii9zqkk0g9kxc57"))))
6064a4e8
LF		 6762 (build-system glib-or-gtk-build-system)
6763 (inputs
6764 `(("bdb" ,bdb)
6765 ("dbus-glib" ,dbus-glib)
6766 ("evolution-data-server" ,evolution-data-server)
6767 ("glib" ,glib)
6768 ("libgee" ,libgee)
6769 ("telepathy-glib" ,telepathy-glib)))
6770 (native-inputs
6771 `(("gobject-introspection" ,gobject-introspection)
6772 ("intltool" ,intltool)
6773 ("pkg-config" ,pkg-config)
6774 ("vala" ,vala)))
6775 (synopsis "Library to aggregate data about people")
6776 (description "Libfolks is a library that aggregates information about people
6777from multiple sources (e.g., Telepathy connection managers for IM contacts,
6778Evolution Data Server for local contacts, libsocialweb for web service contacts,
6779etc.) to create metacontacts. It's written in Vala, which generates C code when
6780compiled.")
6781 (home-page "https://wiki.gnome.org/Projects/Folks")
6782 (license license:lgpl2.1+)))
01ea778f
LF		 6783
6784(define-public gfbgraph
6785 (package
6786 (name "gfbgraph")
6787 (version "0.2.3")
6788 (source (origin
6789 (method url-fetch)
6790 (uri (string-append
6791 "mirror://gnome/sources/" name "/"
6792 (version-major+minor version) "/"
6793 name "-" version ".tar.xz"))
6794 (sha256
6795 (base32
6796 "1dp0v8ia35fxs9yhnqpxj3ir5lh018jlbiwifjfn8ayy7h47j4fs"))))
6797 (build-system glib-or-gtk-build-system)
6798 (arguments
6799 `(#:tests? #f ; Tests appear to require the network.
6800 ;; FIXME --enable-gtk-doc fails even with gtk-doc as a native-input.
6801 #:configure-flags '("--disable-gtk-doc"
6802 "--disable-static"
6803 "--enable-introspection")))
6804 (native-inputs
6805 `(("pkg-config" ,pkg-config)
6806 ("gobject-introspection" ,gobject-introspection)))
6807 (inputs
6808 `(("json-glib" ,json-glib)
6809 ("gnome-online-accounts" ,gnome-online-accounts)
6810 ("rest" ,rest)))
6811 (synopsis "GLib/GObject wrapper for the Facebook API")
6812 (description "This library allows you to use the Facebook API from
6813GLib/GObject code.")
6814 (home-page "https://wiki.gnome.org/Projects/GFBGraph")
6815 (license license:lgpl2.1+)))
3920868c 6816
6817(define-public libgnomekbd
6818 (package
6819 (name "libgnomekbd")
47b93ae5 6820 (version "3.22.0.1")
3920868c 6821 (source (origin
6822 (method url-fetch)
6823 (uri (string-append "mirror://gnome/sources/" name "/"
6824 (version-major+minor version) "/"
6825 name "-" version ".tar.xz"))
6826 (sha256
6827 (base32
47b93ae5 6828 "1plkkack6s8b21gcmmly0lapgcjz53dmw2vixnn4rw4jxjwbdzaf"))))
3920868c 6829 (build-system gnu-build-system)
6830 (native-inputs
6831 `(("pkg-config" ,pkg-config)
6832 ("glib" ,glib "bin")
6833 ("intltool" ,intltool)))
6834 (propagated-inputs
6835 ;; Referred to in .h files and .pc.
6836 `(("glib" ,glib)
6837 ("gtk+" ,gtk+)
6838 ("libxklavier" ,libxklavier)))
6839 (home-page "https://www.gnome.org")
6840 (synopsis "GNOME keyboard configuration library")
6841 (description
6842 "Libgnomekbd is a keyboard configuration library for the GNOME desktop
6843environment, which can notably display keyboard layouts.")
6844 (license license:lgpl2.0+)))
85327d0d 6845
6846;;; This package is no longer maintained:
6847;;; https://wiki.gnome.org/Attic/LibUnique
6848;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
6849;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
6850(define-public libunique
6851 (package
6852 (name "libunique")
6853 (version "3.0.2")
6854 (source (origin
6855 (method url-fetch)
6856 (uri (string-append "mirror://gnome/sources/" name "/"
6857 (version-major+minor version) "/"
6858 name "-" version ".tar.xz"))
6859 (sha256
6860 (base32
6861 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
6862 (build-system glib-or-gtk-build-system)
6863 (arguments
6864 `(#:configure-flags '("--disable-static"
6865 "--disable-dbus" ; use gdbus
6866 "--enable-introspection")))
6867 (native-inputs
6868 `(("pkg-config" ,pkg-config)
6869 ("gobject-introspection" ,gobject-introspection)
6870 ("glib:bin" ,glib "bin")
6871 ("gtk-doc" ,gtk-doc)))
6872 (propagated-inputs
6873 ;; Referred to in .h files and .pc.
6874 `(("gtk+" ,gtk+)))
6875 (home-page "https://wiki.gnome.org/Attic/LibUnique")
6876 (synopsis "Library for writing single instance applications")
6877 (description
6878 "Libunique is a library for writing single instance applications. If you
6879launch a single instance application twice, the second instance will either just
6880quit or will send a message to the running instance. Libunique makes it easy to
6881write this kind of application, by providing a base class, taking care of all
6882the IPC machinery needed to send messages to a running instance, and also
6883handling the startup notification side.")
6884 (license license:lgpl2.1+)))
54021cd8
RS		 6885
6886(define-public gnome-calculator
6887 (package
6888 (name "gnome-calculator")
31d9e454 6889 (version "3.26.0")
54021cd8
RS		 6890 (source
6891 (origin
6892 (method url-fetch)
6893 (uri (string-append "mirror://gnome/sources/" name "/"
6894 (version-major+minor version) "/"
6895 name "-" version ".tar.xz"))
6896 (sha256
6897 (base32
31d9e454 6898 "1iv3b3mvqxm17r5gv15dyq6gz08w0ljhzgbf22xnnfnpzhvmn8b2"))))
54021cd8
RS		 6899 (build-system glib-or-gtk-build-system)
6900 (native-inputs
6901 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
6902 ("intltool" ,intltool)
6903 ("itstool" ,itstool)
6904 ("pkg-config" ,pkg-config)))
6905 (inputs
6906 `(("gtksourceview" ,gtksourceview)
6907 ("libsoup" ,libsoup)
2c2da7ec 6908 ("mpc" ,mpc)
54021cd8
RS		 6909 ("mpfr" ,mpfr)))
6910 (home-page "https://wiki.gnome.org/Apps/Calculator")
6911 (synopsis "Desktop calculator")
6912 (description
6913 "Calculator is an application that solves mathematical equations and
6914is suitable as a default application in a Desktop environment.")
6915 (license license:gpl3)))
0bd69759
RS		 6916
6917(define-public xpad
6918 (package
6919 (name "xpad")
c85626bb 6920 (version "5.1.0")
0bd69759
RS		 6921 (source
6922 (origin
6923 (method url-fetch)
08fda9c6
R		 6924 (uri (string-append "https://launchpad.net/xpad/trunk/"
6925 version "/+download/"
0bd69759
RS		 6926 name "-" version ".tar.bz2"))
6927 (sha256
6928 (base32
c85626bb 6929 "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
0bd69759
RS		 6930 (build-system gnu-build-system)
6931 (native-inputs
08fda9c6
R		 6932 `(("autoconf" ,autoconf)
6933 ("automake" ,automake)
6934 ("gtk+:bin" ,gtk+ "bin")
6935 ("intltool" ,intltool)
0bd69759
RS		 6936 ("pkg-config" ,pkg-config)))
6937 (inputs
08fda9c6 6938 `(("gtksourceview" ,gtksourceview)
0bd69759
RS		 6939 ("libsm" ,libsm)))
6940 (home-page "https://wiki.gnome.org/Apps/Xpad")
6941 (synopsis "Virtual sticky note")
6942 (description
6943 "Xpad is a sticky note that strives to be simple, fault tolerant,
6944and customizable. Xpad consists of independent pad windows, each is
6945basically a text box in which notes can be written.")
6946 (license license:gpl3+)))
3ad7dce1
RS		 6947
6948(define-public gucharmap
c60063ea
RW		 6949 (let ((unicode-files
6950 '(("Blocks.txt"
6951 "19zf2kd198mcv1paa194c1zf36hay1irbxssi35yi2pd8ad69qas")
6952 ("DerivedAge.txt"
6953 "1h9p1g0wnh686l6cqar7cmky465vwc6vjzzn1s7v0i9zcjaqkr4h")
6954 ("NamesList.txt"
6955 "0gvpcyq852rnlqmx4y5i1by7bavvcw6rj40i54w48yc7xr3zmgd1")
6956 ("Scripts.txt"
6957 "0b9prz2hs6w61afqaplcxnv115f8yk4d5hn9dc5hks8nqpj28bnh")
6958 ("UnicodeData.txt"
6959 "1cfak1j753zcrbgixwgppyxhm4w8vda8vxhqymi7n5ljfi6kwhjj")
6960 ("Unihan.zip"
6961 "199kz6laypkvc0ykms6d7bkb571jmpds39sv2p7kd5jjm1ij08q1"))))
6962 (package
6963 (name "gucharmap")
6964 (version "10.0.4")
6965 (source
6966 (origin
6967 (method url-fetch)
6968 (uri (string-append "mirror://gnome/sources/" name "/"
6969 (version-major+minor version) "/"
6970 name "-" version ".tar.xz"))
6971 (sha256
6972 (base32
6973 "00gh3lll6wykd2qg1lrj05a4wvscsypmrx7rpb6jsbvb4scnh9mv"))))
6974 (build-system glib-or-gtk-build-system)
6975 (arguments
6976 `(#:modules ((ice-9 match)
6977 (guix build glib-or-gtk-build-system)
6978 (guix build utils))
6979 #:configure-flags
6980 (list "--with-unicode-data=../unicode-data")
6981 #:phases
6982 (modify-phases %standard-phases
6983 (add-after 'unpack 'prepare-unicode-data
6984 (lambda* (#:key inputs #:allow-other-keys)
6985 (mkdir-p "../unicode-data")
6986 (with-directory-excursion "../unicode-data"
6987 (for-each (match-lambda
6988 ((file _)
6989 (install-file (assoc-ref inputs file) ".")))
6990 ',unicode-files))
6991 #t)))))
6992 (native-inputs
6993 `(("desktop-file-utils" ,desktop-file-utils)
6994 ("glib:bin" ,glib "bin") ; for glib-compile-resources.
6995 ("gobject-introspection" ,gobject-introspection)
6996 ("intltool" ,intltool)
6997 ("itstool" ,itstool)
6998 ("pkg-config" ,pkg-config)
6999 ,@(map (match-lambda
7000 ((file hash)
7001 `(,file
7002 ,(origin
7003 (method url-fetch)
7004 (uri (string-append
7005 "http://www.unicode.org/Public/10.0.0/ucd/"
7006 file))
7007 (sha256 (base32 hash))))))
7008 unicode-files)
7009 ("unzip" ,unzip)))
7010 (inputs
7011 `(("gtk+" ,gtk+)
7012 ("xmllint" ,libxml2)))
7013 (home-page "https://wiki.gnome.org/Apps/Gucharmap")
7014 (synopsis "Unicode character picker and font browser")
7015 (description
7016 "This program allows you to browse through all the available Unicode
3ad7dce1
RS		 7017characters and categories for the installed fonts, and to examine their
7018detailed properties. It is an easy way to find the character you might
7019only know by its Unicode name or code point.")
c60063ea 7020 (license license:gpl3+))))
04ce840a
RS		 7021
7022(define-public bluefish
7023 (package
7024 (name "bluefish")
ea8afaf3 7025 (version "2.2.10")
04ce840a
RS		 7026 (source
7027 (origin
7028 (method url-fetch)
7029 (uri (string-append "http://www.bennewitz.com/bluefish/stable/source/"
7030 name "-" version ".tar.gz"))
7031 (sha256
7032 (base32
ea8afaf3 7033 "1jw4has7lbp77lqmzvnnjmqcf0lacjfnka873lkkwdyrpzc4c1q4"))))
04ce840a
RS		 7034 (build-system gnu-build-system)
7035 (native-inputs
7036 `(("desktop-file-utils" ,desktop-file-utils)
7037 ("intltool" ,intltool)
7038 ("pkg-config" ,pkg-config)))
7039 (inputs
7040 `(("enchant" ,enchant)
7041 ("gtk+" ,gtk+)
7042 ("python" ,python-2)
7043 ("xmllint" ,libxml2)
7044 ("gucharmap" ,gucharmap)))
7045 (home-page "http://bluefish.openoffice.nl")
7046 (synopsis "Web development studio")
7047 (description
7048 "Bluefish is an editor targeted towards programmers and web developers,
7049with many options to write web sites, scripts and other code.
7050Bluefish supports many programming and markup languages.")
7051 (license license:gpl3+)))
1f6a73ee
RS		 7052
7053(define-public gnome-system-monitor
7054 (package
7055 (name "gnome-system-monitor")
4985d9aa 7056 (version "3.28.2")
1f6a73ee
RS		 7057 (source
7058 (origin
7059 (method url-fetch)
7060 (uri (string-append "mirror://gnome/sources/" name "/"
7061 (version-major+minor version) "/"
7062 name "-" version ".tar.xz"))
7063 (sha256
7064 (base32
4985d9aa 7065 "164in885dyfvna5yjzgdyrbrsskvh5wzxdmkjgb4mbh54lzqd1zb"))))
1f6a73ee
RS		 7066 (build-system glib-or-gtk-build-system)
7067 (native-inputs
7068 `(("glib:bin" ,glib "bin") ; for glib-mkenums.
7069 ("intltool" ,intltool)
7070 ("itstool" ,itstool)
7071 ("libgtop" ,libgtop)
4985d9aa 7072 ("polkit" ,polkit)
1f6a73ee
RS		 7073 ("pkg-config" ,pkg-config)))
7074 (inputs
7075 `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
7076 ("gtk+" ,gtk+)
7077 ("gtkmm" ,gtkmm)
7078 ("librsvg" ,librsvg)
4985d9aa
RW		 7079 ("libxml2" ,libxml2)
7080 ("libwnck" ,libwnck)))
1f6a73ee
RS		 7081 (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
7082 (synopsis "Process viewer and system resource monitor for GNOME")
7083 (description
7084 "GNOME System Monitor is a GNOME process viewer and system monitor with
7085an attractive, easy-to-use interface. It has features, such as a tree view
7086for process dependencies, icons for processes, the ability to hide processes,
7087graphical time histories of CPU/memory/swap usage and the ability to
7088kill/reinice processes.")
7089 (license license:gpl2+)))
3e00ac47
SB		 7090
7091(define-public python-pyatspi
7092 (package
7093 (name "python-pyatspi")
84548bd7 7094 (version "2.26.0")
3e00ac47
SB		 7095 (source (origin
7096 (method url-fetch)
7097 (uri (string-append
7098 "mirror://gnome/sources/pyatspi/"
7099 (version-major+minor version)
7100 "/pyatspi-" version ".tar.xz"))
7101 (sha256
7102 (base32
84548bd7 7103 "0xdnix7gxzgf75xy9ris4dd6b05mqwicw190b98xqmypydyf95n6"))))
3e00ac47
SB		 7104 (build-system gnu-build-system)
7105 (native-inputs
7106 `(("pkg-config" ,pkg-config)))
7107 (inputs
7108 `(("python" ,python)
7109 ("python-pygobject" ,python-pygobject)))
7110 (synopsis "Python client bindings for D-Bus AT-SPI")
7111 (home-page "https://wiki.linuxfoundation.org/accessibility\
7112/atk/at-spi/at-spi_on_d-bus")
7113 (description
7114 "This package includes a python client library for the AT-SPI D-Bus
7115accessibility infrastructure.")
7116 (license license:lgpl2.0)
7117 (properties '((upstream-name . "pyatspi")))))
53201c0d
SB		 7118
7119(define-public orca
7120 (package
7121 (name "orca")
870a4e70 7122 (version "3.28.1")
53201c0d
SB		 7123 (source (origin
7124 (method url-fetch)
7125 (uri (string-append
7126 "mirror://gnome/sources/" name "/"
7127 (version-major+minor version) "/"
7128 name "-" version ".tar.xz"))
7129 (sha256
7130 (base32
870a4e70 7131 "04l5ccn7wf175gyq3blfpx0yh70ny06n161297jwc9idf951852g"))))
53201c0d
SB		 7132 (build-system glib-or-gtk-build-system)
7133 (arguments
7134 '(#:phases
7135 (modify-phases %standard-phases
7136 (add-before 'configure 'qualify-xkbcomp
7137 (lambda* (#:key inputs #:allow-other-keys)
7138 (let ((xkbcomp (string-append
7139 (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
7140 (substitute* "src/orca/orca.py"
7141 (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
7142 #t))
7143 (add-after 'install 'wrap-orca
7144 (lambda* (#:key outputs #:allow-other-keys)
7145 (let* ((out (assoc-ref outputs "out"))
7146 (prog (string-append out "/bin/orca")))
7147 (wrap-program prog
7148 `("GI_TYPELIB_PATH" ":" prefix
7149 (,(getenv "GI_TYPELIB_PATH")))
7150 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
7151 (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
7152 `("PYTHONPATH" ":" prefix
7153 (,(getenv "PYTHONPATH")))))
7154 #t)))))
7155 (native-inputs
7156 `(("intltool" ,intltool)
7157 ("itstool" ,itstool)
7158 ("pkg-config" ,pkg-config)
7159 ("xmllint" ,libxml2)))
7160 (inputs
7161 `(("at-spi2-atk" ,at-spi2-atk)
7162 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7163 ("gstreamer" ,gstreamer)
7164 ("gst-plugins-base" ,gst-plugins-base)
7165 ("gst-plugins-good" ,gst-plugins-good)
7166 ("gtk+" ,gtk+)
7167 ("python" ,python)
7168 ("python-pygobject" ,python-pygobject)
7169 ("python-pyatspi" ,python-pyatspi)
7170 ("python-speechd" ,speech-dispatcher)
7171 ("xkbcomp" ,xkbcomp)))
7172 (synopsis
7173 "Screen reader for individuals who are blind or visually impaired")
7174 (home-page "https://wiki.gnome.org/Projects/Orca")
7175 (description
7176 "Orca is a screen reader that provides access to the graphical desktop
7177via speech and refreshable braille. Orca works with applications and toolkits
7178that support the Assistive Technology Service Provider Interface (AT-SPI).")
7179 (license license:lgpl2.1+)))
411ba511
LC		 7180
7181(define-public gspell
7182 (package
7183 (name "gspell")
9b1bb757 7184 (version "1.8.1")
411ba511
LC		 7185 (source (origin
7186 (method url-fetch)
7187 (uri (string-append "mirror://gnome/sources/" name "/"
7188 (version-major+minor version) "/"
7189 name "-" version ".tar.xz"))
7190 (sha256
7191 (base32
9b1bb757 7192 "1rdv873ixhwr15jwgc2z6k6y0hj353fqnwsy7zkh0c30qwiiv6l1"))
411ba511
LC		 7193 (patches (search-patches "gspell-dash-test.patch"))))
7194 (build-system glib-or-gtk-build-system)
7195 (arguments
7196 '(#:phases
7197 (modify-phases %standard-phases
7198 (add-before 'check 'pre-check
7199 (lambda* (#:key inputs #:allow-other-keys)
7200 ;; Tests require a running X server.
7201 (system "Xvfb :1 &")
7202 (setenv "DISPLAY" ":1")
7203
7204 ;; For the missing /etc/machine-id.
7205 (setenv "DBUS_FATAL_WARNINGS" "0")
7206
7207 ;; Allow Enchant and its Aspell backend to find the en_US
7208 ;; dictionary.
7209 (setenv "ASPELL_DICT_DIR"
7210 (string-append (assoc-ref inputs "aspell-dict-en")
7211 "/lib/aspell"))
7212 #t)))))
7213 (inputs
eccd35be 7214 `(("gtk+" ,gtk+)
a801ae4c
TGR		 7215 ("glib" ,glib)
7216 ("iso-codes" ,iso-codes)))
411ba511
LC		 7217 (native-inputs
7218 `(("glib" ,glib "bin")
7219 ("pkg-config" ,pkg-config)
7220 ("xmllint" ,libxml2)
7221
7222 ;; For tests.
a801ae4c
TGR		 7223 ("aspell-dict-en" ,aspell-dict-en)
7224 ("xorg-server" ,xorg-server)))
eccd35be 7225 (propagated-inputs
9b1bb757 7226 `(("enchant" ,enchant))) ;enchant.pc is required by gspell-1.pc
411ba511
LC		 7227 (home-page "https://wiki.gnome.org/Projects/gspell")
7228 (synopsis "GNOME's alternative spell checker")
7229 (description
7230 "gspell provides a flexible API to add spell-checking to a GTK+
7231application. It provides a GObject API, spell-checking to text entries and
7232text views, and buttons to choose the language.")
7233 (license license:gpl2+)))
d1d739fa
CM		 7234
7235(define-public gnome-planner
7236 (package
7237 (name "gnome-planner")
7238 (version "0.14.6")
7239 (source (origin
7240 (method url-fetch)
7241 (uri (string-append "mirror://gnome/sources/planner/"
7242 (version-major+minor version) "/planner-"
7243 version ".tar.xz"))
7244 (sha256
7245 (base32
7246 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
7247 (build-system glib-or-gtk-build-system)
7248 (arguments
7249 ;; Disable the Python bindings because the Planner program functions
7250 ;; without them, and (as of 2017-06-13) we have not packaged all of
7251 ;; packages that are necessary for building the Python bindings.
20b7b75c
EF		 7252 `(#:configure-flags
7253 (list "--disable-python"
7254 ,@(if (string=? "aarch64-linux" (%current-system))
7255 '("--build=aarch64-unknown-linux-gnu")
7256 '()))))
d1d739fa
CM		 7257 (inputs
7258 `(("libgnomecanvas" ,libgnomecanvas)
7259 ("libgnomeui" ,libgnomeui)
7260 ("libglade" ,libglade)
7261 ("gnome-vfs" ,gnome-vfs)
7262 ("gconf" ,gconf)
7263 ("libxml2" ,libxml2)
7264 ("libxslt" ,libxslt)
7265 ("gtk+" ,gtk+)
7266 ("glib" ,glib)))
7267 (native-inputs
7268 `(("intltool" ,intltool)
7269 ("scrollkeeper" ,scrollkeeper)
7270 ("pkg-config" ,pkg-config)))
7271 (home-page "https://wiki.gnome.org/Apps/Planner")
7272 (synopsis "Project management software for the GNOME desktop")
7273 (description
7274 "GNOME Planner is a project management tool based on the Work Breakdown
7275Structure (WBS). Its goal is to enable you to easily plan projects. Based on
7276the resources, tasks, and constraints that you define, Planner generates
7277various views into a project. For example, Planner can show a Gantt chart of
7278the project. It can show a detailed summary of tasks including their
7279duration, cost, and current progress. It can also show a report of resource
7280utilization that highlights under-utilized and over-utilized resources. These
7281views can be printed as PDF or PostScript files, or exported to HTML.")
4b926cb6 7282 (license license:gpl2+)))
64fce637
RS		 7283
7284(define-public lollypop
7285 (package
7286 (name "lollypop")
b98eace8 7287 (version "0.9.521")
64fce637
RS		 7288 (source
7289 (origin
7290 (method url-fetch)
b98eace8
CB		 7291 (uri (string-append "https://gitlab.gnome.org/World/lollypop/uploads/"
7292 "e4df2ed75c5ed71d64afcc668e579b2a/"
64fce637
RS		 7293 name "-" version ".tar.xz"))
7294 (sha256
7295 (base32
b98eace8 7296 "0knsqh24siyw98vmiq6b1hzq4y4cazs9f1hq1js9c96hqqj9rvdx"))))
aa498fc0 7297 (build-system meson-build-system)
64fce637
RS		 7298 (arguments
7299 `(#:imported-modules ((guix build python-build-system)
aa498fc0
TD		 7300 ,@%meson-build-system-modules)
7301 #:glib-or-gtk? #t
5fc9b6c1
EF		 7302 #:tests? #f ; no test suite
7303 #:phases
7304 (modify-phases %standard-phases
5fc9b6c1
EF		 7305 (add-after 'install 'wrap-program
7306 (lambda* (#:key outputs #:allow-other-keys)
7307 (let ((out (assoc-ref outputs "out"))
7308 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7309 (wrap-program (string-append out "/bin/lollypop")
7310 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7311 #t))
7312 (add-after 'install 'wrap
7313 (@@ (guix build python-build-system) wrap)))))
64fce637
RS		 7314 (native-inputs
7315 `(("intltool" ,intltool)
7316 ("itstool" ,itstool)
aa498fc0
TD		 7317 ("glib:bin" ,glib "bin") ; For glib-compile-resources
7318 ("gtk+:bin" ,gtk+ "bin") ; For gtk-update-icon-cache
64fce637
RS		 7319 ("pkg-config" ,pkg-config)))
7320 (inputs
7321 `(("gobject-introspection" ,gobject-introspection)
5fc9b6c1 7322 ("gst-plugins-base" ,gst-plugins-base)
64fce637
RS		 7323 ("libnotify" ,libnotify)
7324 ("libsecret" ,libsecret)
7325 ("libsoup" ,libsoup)
7326 ("python" ,python)
7327 ("python-beautifulsoup4" ,python-beautifulsoup4)
7328 ("python-gst" ,python-gst)
7329 ("python-pycairo" ,python-pycairo)
7330 ("python-pygobject" ,python-pygobject)
7331 ("python-pylast" ,python-pylast)
7332 ("totem-pl-parser" ,totem-pl-parser)
7333 ("webkitgtk" ,webkitgtk)))
7334 (propagated-inputs
7335 `(;; gst-plugins-base is required to start Lollypop,
7336 ;; the others are required to play streaming.
64fce637
RS		 7337 ("gst-plugins-good" ,gst-plugins-good)
7338 ("gst-plugins-ugly" ,gst-plugins-ugly)))
b98eace8 7339 (home-page "https://wiki.gnome.org/Apps/Lollypop")
64fce637
RS		 7340 (synopsis "GNOME music playing application")
7341 (description
7342 "Lollypop is a music player designed to play well with GNOME desktop.
7343Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
7344from artists and tracks from the web. It also fetches cover artworks
7345automatically and it can stream songs from online music services and charts.")
7346 (license license:gpl3+)))
d831d49d
AW		 7347
7348(define-public gnome-video-effects
7349 (package
7350 (name "gnome-video-effects")
7351 (version "0.4.3")
7352 (source (origin
7353 (method url-fetch)
7354 (uri (string-append "mirror://gnome/sources/" name "/"
7355 (version-major+minor version) "/" name "-"
7356 version ".tar.xz"))
7357 (sha256
7358 (base32
7359 "06c2f1kihyhawap1s3zg5w7q7fypsybkp7xry4hxkdz4mpsy0zjs"))))
7360 (build-system glib-or-gtk-build-system)
7361 (arguments
7362 `(#:out-of-source? #f))
7363 (native-inputs
7364 `(("glib:bin" ,glib "bin")
7365 ("intltool" ,intltool)
7366 ("gettext" ,gettext-minimal)
7367 ("pkg-config" ,pkg-config)))
7368 (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
7369 (synopsis "Video effects for Cheese and other GNOME applications")
7370 (description
7371 "A collection of GStreamer video filters and effects to be used in
7372photo-booth-like software, such as Cheese.")
7373 (license license:gpl2+)))
3511c780
AW		 7374
7375(define-public cheese
7376 (package
7377 (name "cheese")
4b3480d6 7378 (version "3.28.0")
3511c780
AW		 7379 (source (origin
7380 (method url-fetch)
7381 (uri (string-append "mirror://gnome/sources/" name "/"
7382 (version-major+minor version) "/" name "-"
7383 version ".tar.xz"))
7384 (sha256
7385 (base32
4b3480d6 7386 "06da5qc5hdvwwd5vkbgbx8pjx1l3mvr07yrnnv3v1hfc3wp7l7jw"))))
3511c780
AW		 7387 (arguments
7388 ;; Tests require GDK.
7389 `(#:tests? #f
7390 #:phases
7391 (modify-phases %standard-phases
7392 (add-before 'install 'skip-gtk-update-icon-cache
7393 (lambda _
7394 ;; Don't create 'icon-theme.cache'
7395 (substitute* "Makefile"
7396 (("gtk-update-icon-cache") (which "true")))
7397 #t))
7398 (add-after 'install 'wrap-cheese
7399 (lambda* (#:key inputs outputs #:allow-other-keys)
7400 (let ((out (assoc-ref outputs "out"))
7401 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
7402 (wrap-program (string-append out "/bin/cheese")
7403 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
7404 #t)))))
7405 (build-system glib-or-gtk-build-system)
7406 (native-inputs
7407 `(("glib:bin" ,glib "bin")
7408 ("intltool" ,intltool)
7409 ("itstool" ,itstool)
7410 ("libxml2" ,libxml2)
7411 ("pkg-config" ,pkg-config)
7412 ("vala" ,vala)))
7413 (propagated-inputs
6a19f03e
RW		 7414 `(("gnome-video-effects" ,gnome-video-effects)
7415 ("clutter" ,clutter)
3511c780
AW		 7416 ("clutter-gst" ,clutter-gst)
7417 ("clutter-gtk" ,clutter-gtk)
6a19f03e 7418 ("libcanberra" ,libcanberra)
3511c780
AW		 7419 ("gdk-pixbuf" ,gdk-pixbuf)
7420 ("glib" ,glib)
6a19f03e
RW		 7421 ("gstreamer" ,gstreamer)))
7422 (inputs
7423 `(("gnome-desktop" ,gnome-desktop)
3511c780 7424 ("gobject-introspection" ,gobject-introspection)
3511c780
AW		 7425 ("gst-plugins-base" ,gst-plugins-base)
7426 ("gst-plugins-bad" ,gst-plugins-bad)
7427 ("gtk+" ,gtk+)
3511c780
AW		 7428 ("libx11" ,libx11)
7429 ("libxtst" ,libxtst)))
7430 (home-page "https://wiki.gnome.org/Apps/Cheese")
7431 (synopsis "Webcam photo booth software for GNOME")
7432 (description
7433 "Cheese uses your webcam to take photos and videos. Cheese can also
7434apply fancy special effects and lets you share the fun with others.")
7435 (license license:gpl2+)))
3c5dbd2b 7436
7437(define-public sound-juicer
7438 (package
7439 (name "sound-juicer")
7440 (version "3.24.0")
7441 (source
7442 (origin
7443 (method url-fetch)
7444 (uri (string-append "mirror://gnome/sources/" name "/"
7445 (version-major+minor version) "/"
7446 name "-" version ".tar.xz"))
7447 (sha256
7448 (base32
7449 "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
7450 (build-system glib-or-gtk-build-system)
7451 (native-inputs
7452 `(("desktop-file-utils" ,desktop-file-utils)
7453 ("intltool" ,intltool)
7454 ("itstool" ,itstool)
7455 ("pkg-config" ,pkg-config)
7456 ("xmllint" ,libxml2)))
7457 (inputs
7458 `(("gtk+" ,gtk+)
7459 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7460 ("gstreamer" ,gstreamer)
7461 ("gst-plugins-base" ,gst-plugins-base)
7462 ("gst-plugins-good" ,gst-plugins-good)
7463 ("iso-codes" ,iso-codes)
7464 ("libbrasero-media3" ,brasero)
7465 ("libcanberra" ,libcanberra)
7466 ("libdiscid" ,libdiscid)
7467 ("libmusicbrainz" ,libmusicbrainz)
7468 ("neon" ,neon)))
7469 (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
7470 (synopsis "Audio music cd ripper")
7471 (description "Sound Juicer extracts audio from compact discs and convert it
7472into audio files that a personal computer or digital audio player can play.
7473It supports ripping to any audio codec supported by a GStreamer plugin, such as
7474mp3, Ogg Vorbis and FLAC")
7475 (license license:gpl2+)))
4e3fdeb7 7476
0d3f1708
CB		 7477(define-public soundconverter
7478 (package
7479 (name "soundconverter")
fa75a213 7480 (version "3.0.1")
0d3f1708
CB		 7481 (source
7482 (origin
7483 (method url-fetch)
7484 (uri (string-append "https://launchpad.net/soundconverter/trunk/"
7485 version "/+download/"
7486 "soundconverter-" version ".tar.xz"))
7487
7488 (sha256
fa75a213 7489 (base32 "1d6x1yf8psqbd9zbybxivfqg55khcnngp2mn92l161dfdk9512c5"))
0d3f1708
CB		 7490 (patches
7491 (search-patches
7492 "soundconverter-remove-gconf-dependency.patch"))))
7493 (build-system glib-or-gtk-build-system)
7494 (arguments
7495 `(#:imported-modules ((guix build python-build-system)
7496 (guix build glib-or-gtk-build-system)
7497 ,@%gnu-build-system-modules)
7498
7499 #:modules ((guix build glib-or-gtk-build-system)
7500 (guix build utils)
7501 ((guix build gnu-build-system) #:prefix gnu:)
7502 ((guix build python-build-system) #:prefix python:))
7503
7504 #:phases
7505 (modify-phases %standard-phases
0d3f1708
CB		 7506 (add-after 'install 'wrap-soundconverter-for-python
7507 (assoc-ref python:%standard-phases 'wrap))
7508 (add-after 'install 'wrap-soundconverter
7509 (lambda* (#:key inputs outputs #:allow-other-keys)
7510 (let ((out (assoc-ref outputs "out"))
7511 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
7512 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
7513 (wrap-program (string-append out "/bin/soundconverter")
7514 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7515 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
7516 #t)))))
7517 (native-inputs
7518 `(("intltool" ,intltool)
7519 ("pkg-config" ,pkg-config)
7520 ("glib:bin" ,glib "bin")))
7521 (inputs
7522 `(("gtk+" ,gtk+)
7523 ("python" ,python)
7524 ("python-pygobject" ,python-pygobject)
7525 ("gstreamer" ,gstreamer)
7526 ("gst-plugins-base" ,gst-plugins-base)))
7527 (home-page "http://soundconverter.org/")
7528 (synopsis "Convert between audio formats with a graphical interface")
7529 (description
7530 "SoundConverter supports converting between many audio formats including
7531Opus, Ogg Vorbis, FLAC and more. It supports parallel conversion, and
7532configurable file renaming. ")
7533 (license license:gpl3)))
7534
4e3fdeb7 7535(define-public workrave
89f2d736
TGR		 7536 (package
7537 (name "workrave")
c2e50474 7538 (version "1.10.23")
89f2d736
TGR		 7539 (source
7540 (origin
7541 (method git-fetch)
7542 (uri (git-reference
7543 (url "https://github.com/rcaelers/workrave.git")
c2e50474
TGR		 7544 (commit (string-append "v" (string-map
7545 (match-lambda (#\. #\_) (chr chr))
7546 version)))))
89f2d736
TGR		 7547 (file-name (git-file-name name version))
7548 (sha256
c2e50474 7549 (base32 "1qhlwfhwk5agv4904d6bsf83k9k89q7bms6agg967vsca4905vcw"))))
89f2d736
TGR		 7550 (build-system glib-or-gtk-build-system)
7551 (propagated-inputs `(("glib" ,glib)
7552 ("gtk+" ,gtk+)
7553 ("gdk-pixbuf" ,gdk-pixbuf)
7554 ("gtkmm" ,gtkmm)
7555 ("glibmm" ,glibmm)
7556 ("libx11" ,libx11)
7557 ("libxtst" ,libxtst)
7558 ("dconf" ,dconf)
7559 ("libice" ,libice)))
7560 (inputs `(("libsm" ,libsm)
7561 ("python-cheetah" ,python2-cheetah)))
7562 (native-inputs `(("glib" ,glib "bin")
7563 ("pkg-config" ,pkg-config)
7564 ("gettext" ,gnu-gettext)
7565 ("autoconf" ,autoconf)
7566 ("autoconf-archive" , autoconf-archive)
7567 ("automake" ,automake)
7568 ("libtool" ,libtool)
7569 ("intltool" ,intltool)
7570 ("libxscrnsaver" ,libxscrnsaver)
7571 ("gobject-introspection" ,gobject-introspection)
7572 ("python2" ,python-2)))
7573 (synopsis "Tool to help prevent repetitive strain injury (RSI)")
7574 (description
7575 "Workrave is a program that assists in the recovery and prevention of
cc00249b
TGR		 7576repetitive strain injury (@dfn{RSI}). The program frequently alerts you to take
7577micro-pauses and rest breaks, and restricts you to your daily limit.")
89f2d736
TGR		 7578 (home-page "http://www.workrave.org")
7579 (license license:gpl3+)))
312afa7d
LC		 7580
7581(define-public ghex
7582 (package
7583 (name "ghex")
7584 (version "3.18.3")
7585 (source (origin
7586 (method url-fetch)
2fbab848 7587 (uri (string-append "mirror://gnome/sources/ghex/"
312afa7d 7588 (version-major+minor version) "/"
2fbab848 7589 "ghex-" version ".tar.xz"))
312afa7d
LC		 7590 (sha256
7591 (base32
7592 "1lq8920ad2chi9ibmyq0x9hg9yk63b0kdbzid03w42cwdzw50x66"))))
7593 (build-system glib-or-gtk-build-system)
7594 (native-inputs
7595 `(("pkg-config" ,pkg-config)
7596 ("gnome-common" ,gnome-common)
7597 ("which" ,which)
7598 ("intltool" ,intltool)
7599 ("yelp-tools" ,yelp-tools)
2fbab848 7600 ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
312afa7d
LC		 7601 (inputs
7602 `(("atk" ,atk)
7603 ("gtk" ,gtk+)))
7604 (synopsis "GNOME hexadecimal editor")
7605 (description "The GHex program can view and edit files in two ways:
7606hexadecimal or ASCII. It is useful for editing binary files in general.")
7607 (home-page "https://wiki.gnome.org/Apps/Ghex")
7608 (license license:gpl2)))
4b2ed6c2
RW		 7609
7610(define-public libdazzle
7611 (package
7612 (name "libdazzle")
7613 (version "3.28.5")
7614 (source (origin
7615 (method url-fetch)
687b4909 7616 (uri (string-append "mirror://gnome/sources/libdazzle/"
4b2ed6c2 7617 (version-major+minor version) "/"
687b4909 7618 "libdazzle-" version ".tar.xz"))
4b2ed6c2
RW		 7619 (sha256
7620 (base32
7621 "08qdwv2flywnh6kibkyv0pnm67pk8xlmjh4yqx6hf13hyhkxkqgg"))))
7622 (build-system meson-build-system)
7623 (arguments
7624 `(#:phases
7625 (modify-phases %standard-phases
7626 (add-after 'unpack 'disable-failing-test
7627 (lambda _
7628 ;; Disable failing test.
7629 (substitute* "tests/meson.build"
7630 (("test\\('test-application") "#"))
7631 #t))
7632 (add-before 'check 'pre-check
7633 (lambda _
7634 ;; Tests require a running X server.
7635 (system "Xvfb :1 &")
7636 (setenv "DISPLAY" ":1")
7637 #t)))))
7638 (native-inputs
687b4909 7639 `(("glib" ,glib "bin") ; glib-compile-resources
4b2ed6c2 7640 ("pkg-config" ,pkg-config)
687b4909 7641 ;; For tests.
4b2ed6c2
RW		 7642 ("xorg-server" ,xorg-server)))
7643 (inputs
7644 `(("glib" ,glib)
7645 ("gobject-introspection" ,gobject-introspection)
7646 ("gtk+" ,gtk+)
7647 ("vala" ,vala)))
7648 (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
7649 (synopsis "Companion library to GObject and Gtk+")
7650 (description "The libdazzle library is a companion library to GObject and
7651Gtk+. It provides various features that the authors wish were in the
7652underlying library but cannot for various reasons. In most cases, they are
7653wildly out of scope for those libraries. In other cases, they are not quite
7654generic enough to work for everyone.")
7655 (license license:gpl3+)))
jackhill's copy of GNU Guix: https://guix.gnu.org/