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