HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Merge branch 'master' into staging
[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>
5dc6d5ce 3;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
29a7c98a 4;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
754cfbdc 5;;; Copyright © 2014, 2016, 2020 Eric Bavier <bavier@posteo.net>
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>
ed783404 11;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 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>
e19cb895 14;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 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>
03be9874 17;;; Copyright © 2016, 2017, 2019 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>
3c986a7d 22;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
e5e1df4d 23;;; Copyright © 2016 David Craven <david@craven.ch>
ac631328 24;;; Copyright © 2016, 2017, 2018, 2019, 2020 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>
2cd1de32 30;;; Copyright © 2017, 2020 Brendan Tildesley <mail@brendan.scot>
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>
8caa4589 36;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
f2d56e39 37;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
3e9c80b2 38;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
a7a31827 39;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
633422b0 40;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
213315d4 41;;; Copyright © 2019 Jonathan Frederickson <jonathan@terracrypt.net>
4690e3a4 42;;; Copyright © 2019, 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
50e96d25 43;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
93beace0 44;;; Copyright © 2019 David Wilson <david@daviwil.com>
d36fa50f 45;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org>
0faed399 46;;; Copyright © 2019, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
3861fb1c 47;;; Copyright © 2019, 2020 Leo Prikler <leo.prikler@student.tugraz.at>
fa01e10d 48;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
63db190a 49;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
0e26c3cf 50;;; Copyright © 2020 raingloom <raingloom@riseup.net>
1a17d21b 51;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
dd233e4d 52;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
663def11 53;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
21051eb7 54;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
01c22be7 55;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
031315e4 56;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
92b9cdd5 57;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
fd0ef0e1 58;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
995b7261
AE		 59;;;
60;;; This file is part of GNU Guix.
61;;;
62;;; GNU Guix is free software; you can redistribute it and/or modify it
63;;; under the terms of the GNU General Public License as published by
64;;; the Free Software Foundation; either version 3 of the License, or (at
65;;; your option) any later version.
66;;;
67;;; GNU Guix is distributed in the hope that it will be useful, but
68;;; WITHOUT ANY WARRANTY; without even the implied warranty of
69;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
70;;; GNU General Public License for more details.
71;;;
72;;; You should have received a copy of the GNU General Public License
73;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
74
75(define-module (gnu packages gnome)
ed19903d 76 #:use-module (gnu packages)
ba5dd105 77 #:use-module (gnu packages admin)
094e234d 78 #:use-module (gnu packages aidc)
411ba511 79 #:use-module (gnu packages aspell)
75016d07 80 #:use-module (gnu packages autotools)
7b212526 81 #:use-module (gnu packages avahi)
b29909b4 82 #:use-module (gnu packages backup)
6a180f6f 83 #:use-module (gnu packages base)
1e33331c 84 #:use-module (gnu packages bash)
5698b8b8 85 #:use-module (gnu packages bison)
aa51d92c 86 #:use-module (gnu packages boost)
5fc9b6c1 87 #:use-module (gnu packages build-tools)
df217748 88 #:use-module (gnu packages calendar)
b29909b4 89 #:use-module (gnu packages cdrom)
df12f04a 90 #:use-module (gnu packages check)
d61a894b 91 #:use-module (gnu packages cmake)
b29909b4 92 #:use-module (gnu packages compression)
8f523eb9 93 #:use-module (gnu packages crates-io)
9f86a6da 94 #:use-module (gnu packages crates-graphics)
a9c04753 95 #:use-module (gnu packages crates-gtk)
23a22af6 96 #:use-module (gnu packages cups)
6e1bb642 97 #:use-module (gnu packages curl)
c3f29bc9 98 #:use-module (gnu packages cyrus-sasl)
6e1bb642 99 #:use-module (gnu packages databases)
255d1bbe 100 #:use-module (gnu packages dbm)
c769cf9f 101 #:use-module (gnu packages djvu)
ba5dd105 102 #:use-module (gnu packages dns)
b4ce6300 103 #:use-module (gnu packages docbook)
b29909b4 104 #:use-module (gnu packages documentation)
329d731b 105 #:use-module (gnu packages enchant)
b29909b4
TGR		 106 #:use-module (gnu packages flex)
107 #:use-module (gnu packages fonts)
e762d943 108 #:use-module (gnu packages file-systems)
a56be436 109 #:use-module (gnu packages fontutils)
b29909b4 110 #:use-module (gnu packages freedesktop)
dfc407f3 111 #:use-module (gnu packages game-development)
558f8d50 112 #:use-module (gnu packages gcc)
fed5a689 113 #:use-module (gnu packages gettext)
b29909b4 114 #:use-module (gnu packages ghostscript)
56db7a66 115 #:use-module (gnu packages gimp)
b29909b4 116 #:use-module (gnu packages gl)
995b7261 117 #:use-module (gnu packages glib)
c1354b90 118 #:use-module (gnu packages gnupg)
23a22af6 119 #:use-module (gnu packages gnuzilla)
8d8c6bff 120 #:use-module (gnu packages geo)
b29909b4
TGR		 121 #:use-module (gnu packages gperf)
122 #:use-module (gnu packages graphviz)
85f5dc19 123 #:use-module (gnu packages gstreamer)
d9c1a22b 124 #:use-module (gnu packages gtk)
6b888eff 125 #:use-module (gnu packages guile)
b645146f 126 #:use-module (gnu packages ibus)
03be9874 127 #:use-module (gnu packages icu4c)
b29909b4
TGR		 128 #:use-module (gnu packages image)
129 #:use-module (gnu packages imagemagick)
130 #:use-module (gnu packages inkscape)
9cc98f8a 131 #:use-module (gnu packages iso-codes)
b29909b4 132 #:use-module (gnu packages kerberos)
85f5dc19 133 #:use-module (gnu packages libcanberra)
6a00302b 134 #:use-module (gnu packages libffi)
b64e217f 135 #:use-module (gnu packages libunistring)
0e26c3cf 136 #:use-module (gnu packages libunwind)
75016d07 137 #:use-module (gnu packages libusb)
b29909b4 138 #:use-module (gnu packages linux)
4e3fc547 139 #:use-module (gnu packages lirc)
7b212526 140 #:use-module (gnu packages lua)
b29909b4 141 #:use-module (gnu packages mail)
03be9874 142 #:use-module (gnu packages mp3)
b29909b4 143 #:use-module (gnu packages multiprecision)
64fce637 144 #:use-module (gnu packages music)
b29909b4
TGR		 145 #:use-module (gnu packages ncurses)
146 #:use-module (gnu packages nettle)
ba5dd105 147 #:use-module (gnu packages networking)
5fc9b6c1 148 #:use-module (gnu packages ninja)
97787a24 149 #:use-module (gnu packages node)
aff0cce9 150 #:use-module (gnu packages nss)
b29909b4 151 #:use-module (gnu packages openldap)
72fd1b3f 152 #:use-module (gnu packages package-management)
b645146f 153 #:use-module (gnu packages password-utils)
de1215e2 154 #:use-module (gnu packages pcre)
b29909b4 155 #:use-module (gnu packages pdf)
27477d2d 156 #:use-module (gnu packages perl)
f70d8383 157 #:use-module (gnu packages photo)
53c41e95 158 #:use-module (gnu packages php)
995b7261 159 #:use-module (gnu packages pkg-config)
b29909b4
TGR		 160 #:use-module (gnu packages polkit)
161 #:use-module (gnu packages popt)
7d3bb433 162 #:use-module (gnu packages pretty-print)
438c4ee1 163 #:use-module (gnu packages protobuf)
23a22af6 164 #:use-module (gnu packages pulseaudio)
995b7261 165 #:use-module (gnu packages python)
00014781
RW		 166 #:use-module (gnu packages python-crypto)
167 #:use-module (gnu packages python-web)
44d10b1f 168 #:use-module (gnu packages python-xyz)
cce0da5e 169 #:use-module (gnu packages rdesktop)
70f33d3c 170 #:use-module (gnu packages rdf)
b29909b4 171 #:use-module (gnu packages readline)
a76d0f03 172 #:use-module (gnu packages ruby)
ec47c07d 173 #:use-module (gnu packages rust)
b29909b4 174 #:use-module (gnu packages samba)
75016d07 175 #:use-module (gnu packages scanner)
70f33d3c
RG		 176 #:use-module (gnu packages sdl)
177 #:use-module (gnu packages search)
240cee8a 178 #:use-module (gnu packages selinux)
c27e02bf 179 #:use-module (gnu packages slang)
b29909b4
TGR		 180 #:use-module (gnu packages speech)
181 #:use-module (gnu packages spice)
cd0322a3 182 #:use-module (gnu packages sqlite)
4a1bf090 183 #:use-module (gnu packages ssh)
2cd1de32 184 #:use-module (gnu packages swig)
8f9ac901 185 #:use-module (gnu packages tex)
33dc54b0 186 #:use-module (gnu packages time)
a7fd7b68 187 #:use-module (gnu packages tls)
2cd1de32 188 #:use-module (gnu packages valgrind)
3c5dbd2b 189 #:use-module (gnu packages version-control)
b29909b4 190 #:use-module (gnu packages video)
59132b80 191 #:use-module (gnu packages virtualization)
f2b96b3a 192 #:use-module (gnu packages vpn)
a18f8eaf 193 #:use-module (gnu packages web)
b29909b4
TGR		 194 #:use-module (gnu packages webkit)
195 #:use-module (gnu packages xdisorg)
196 #:use-module (gnu packages xiph)
197 #:use-module (gnu packages xml)
d633f2f6 198 #:use-module (gnu packages xorg)
a76d0f03 199 #:use-module (gnu artwork)
43b6b45e 200 #:use-module ((guix build utils) #:select (modify-phases))
8f523eb9 201 #:use-module (guix build-system cargo)
b29909b4
TGR		 202 #:use-module (guix build-system cmake)
203 #:use-module (guix build-system glib-or-gtk)
204 #:use-module (guix build-system gnu)
205 #:use-module (guix build-system meson)
08be02be 206 #:use-module (guix build-system python)
b29909b4
TGR		 207 #:use-module (guix build-system trivial)
208 #:use-module (guix download)
209 #:use-module (guix git-download)
210 #:use-module ((guix licenses) #:prefix license:)
211 #:use-module (guix packages)
212 #:use-module (guix utils)
a76d0f03 213 #:use-module (guix gexp)
8f523eb9
EF		 214 #:use-module (guix monads)
215 #:use-module (guix store)
4e3fdeb7 216 #:use-module (ice-9 match)
c024ae36 217 #:use-module (srfi srfi-1))
85f5dc19 218
7bc5c0f0
RG		 219(define-public gupnp-igd
220 (package
221 (name "gupnp-igd")
222 (version "1.2.0")
223 (source
224 (origin
225 (method url-fetch)
226 (uri
227 (string-append "mirror://gnome/sources/" name "/"
228 (version-major+minor version) "/"
229 name "-" version ".tar.xz"))
230 (sha256
231 (base32 "1q9bw12ibih3yxpha3gm1dabyqg9gx6yxacbh4kxsgm1i84j0lab"))))
232 (build-system meson-build-system)
233 (outputs '("out" "doc"))
234 (arguments
235 `(#:glib-or-gtk? #t ; To wrap binaries and compile schemas
236 #:configure-flags (list "-Dgtk_doc=true")
237 #:phases
238 (modify-phases %standard-phases
239 (add-after 'unpack 'patch-docbook-xml
240 (lambda* (#:key inputs #:allow-other-keys)
241 (with-directory-excursion "doc"
242 (substitute* "gupnp-igd-docs.xml"
243 (("http://www.oasis-open.org/docbook/xml/4.1.2/")
244 (string-append (assoc-ref inputs "docbook-xml-4.1.2")
245 "/xml/dtd/docbook/"))))
246 #t))
247 (add-after 'install 'move-doc
248 (lambda* (#:key outputs #:allow-other-keys)
249 (let* ((out (assoc-ref outputs "out"))
250 (doc (assoc-ref outputs "doc")))
251 (mkdir-p (string-append doc "/share"))
252 (rename-file
253 (string-append out "/share/gtk-doc")
254 (string-append doc "/share/gtk-doc"))
255 #t))))))
256 (native-inputs
257 `(("docbook-xml-4.1.2" ,docbook-xml-4.1.2)
258 ("docbook-xsl" ,docbook-xsl)
259 ("glib:bin" ,glib "bin")
260 ("gobject-introspection" ,gobject-introspection)
261 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
262 ("gtk-doc" ,gtk-doc)
263 ("pkg-config" ,pkg-config)))
264 (propagated-inputs
265 `(("glib" ,glib)
266 ("glib-networking" ,glib-networking)
267 ("gssdp" ,gssdp)
268 ("gupnp" ,gupnp)
269 ("libsoup" ,libsoup)))
270 (synopsis "UPnP IGD for GNOME")
271 (description "GUPnP-IGD is a library to handle UPnP IGD port mapping.")
272 (home-page "https://gitlab.gnome.org/GNOME/gupnp-igd")
273 (license license:lgpl2.1+)))
274
85f5dc19
AE		 275(define-public brasero
276 (package
277 (name "brasero")
e2bf423a 278 (version "3.12.2")
85f5dc19
AE		 279 (source (origin
280 (method url-fetch)
d1df7554 281 (uri (string-append "mirror://gnome/sources/brasero/"
e8627cd9 282 (version-major+minor version) "/"
d1df7554 283 "brasero-" version ".tar.xz"))
85f5dc19
AE		 284 (sha256
285 (base32
e2bf423a 286 "0h90y674j26rvjahb8cc0w79zx477rb6zaqcj26wzvq8kmpic8k8"))))
1c40e3b7 287 (build-system glib-or-gtk-build-system)
e8627cd9
DH		 288 (arguments
289 `(#:configure-flags (list
290 (string-append "--with-girdir="
291 (assoc-ref %outputs "out")
292 "/share/gir-1.0")
293 (string-append "--with-typelibdir="
294 (assoc-ref %outputs "out")
ce426deb
TD		 295 "/lib/girepository-1.0"))
296 #:phases
297 (modify-phases %standard-phases
298 (add-before 'configure 'embed-growisofs
299 (lambda* (#:key inputs #:allow-other-keys)
300 (substitute* "plugins/growisofs/burn-growisofs.c"
301 (("\"growisofs") (string-append "\"" (which "growisofs"))))
e2bf423a 302 #t)))))
85f5dc19
AE		 303 (propagated-inputs
304 `(("hicolor-icon-theme" ,hicolor-icon-theme)))
9cc98f8a
CR		 305 (native-inputs
306 `(("intltool" ,intltool)
ba549e17 307 ("itstool" ,itstool)
426adbe8 308 ("glib" ,glib "bin") ; glib-compile-schemas, etc.
e8627cd9 309 ("gobject-introspection" ,gobject-introspection)
9cc98f8a 310 ("pkg-config" ,pkg-config)))
85f5dc19 311 (inputs
ce426deb
TD		 312 `(("dvd+rw-tools" ,dvd+rw-tools)
313 ("glib" ,glib)
85f5dc19
AE		 314 ("gnome-doc-utils" ,gnome-doc-utils)
315 ("gstreamer" ,gstreamer)
316 ("gst-plugins-base" ,gst-plugins-base)
317 ("gtk+" ,gtk+)
85f5dc19
AE		 318 ("libcanberra" ,libcanberra)
319 ("libice" ,libice)
320 ("libnotify" ,libnotify)
321 ("libsm" ,libsm)
e8627cd9 322 ("libxml2" ,libxml2)
e8627cd9 323 ("totem-pl-parser" ,totem-pl-parser)))
fb9399e9 324 (home-page "https://wiki.gnome.org/Apps/Brasero")
85f5dc19
AE		 325 (synopsis "CD/DVD burning tool for Gnome")
326 (description "Brasero is an application to burn CD/DVD for the Gnome
327Desktop. It is designed to be as simple as possible and has some unique
328features to enable users to create their discs easily and quickly.")
1dd26275 329 (license license:gpl2+)))
995b7261 330
63d71ff0
RG		 331(define-public libcloudproviders
332 (package
333 (name "libcloudproviders")
334 (version "0.3.1")
335 (source
336 (origin
337 (method url-fetch)
338 (uri
339 (string-append "mirror://gnome/sources/" name "/"
340 (version-major+minor version) "/"
341 name "-" version ".tar.xz"))
342 (sha256
343 (base32 "0aars24myf6n8b8hm1n12hsgcm54097kpbpm4ba31zp1l4y22qs7"))))
344 (build-system meson-build-system)
345 (outputs '("out" "doc"))
346 (arguments
347 `(#:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
348 #:configure-flags
349 (list
350 "-Denable-gtk-doc=true")
351 #:phases
352 (modify-phases %standard-phases
353 (add-after 'install 'move-doc
354 (lambda* (#:key outputs #:allow-other-keys)
355 (let* ((out (assoc-ref outputs "out"))
356 (doc (assoc-ref outputs "doc")))
357 (mkdir-p (string-append doc "/share"))
358 (rename-file
359 (string-append out "/share/gtk-doc")
360 (string-append doc "/share/gtk-doc"))
361 #t))))))
362 (native-inputs
363 `(("glib:bin" ,glib "bin")
364 ("gobject-introspection" ,gobject-introspection)
365 ("gtk-doc" ,gtk-doc)
366 ("pkg-config" ,pkg-config)
367 ("vala" ,vala)))
368 (inputs
369 `(("glib" ,glib)
370 ("glib-networking" ,glib-networking)))
371 (synopsis "Cloudproviders Integration API")
372 (description "Libcloudproviders is a DBus API that allows cloud storage sync
373clients to expose their services. Clients such as file managers and desktop
374environments can then provide integrated access to the cloud providers
375services.")
376 (home-page "https://csorianognome.wordpress.com/2015/07/07/cloud-providers/")
377 (license license:lgpl3+)))
378
f10b58ca
RG		 379(define-public libgrss
380 (package
381 (name "libgrss")
382 (version "0.7.0")
383 (source
384 (origin
385 (method url-fetch)
386 (uri
387 (string-append "mirror://gnome/sources/" name "/"
388 (version-major+minor version) "/"
389 name "-" version ".tar.xz"))
390 (sha256
391 (base32 "1nalslgyglvhpva3px06fj6lv5zgfg0qmj0sbxyyl5d963vc02b7"))))
392 (build-system glib-or-gtk-build-system)
393 (outputs '("out" "doc"))
394 (arguments
395 `(#:configure-flags
396 (list
397 "--enable-gtk-doc"
398 (string-append "--with-html-dir="
399 (assoc-ref %outputs "doc")
400 "/share/gtk-doc/html"))
401 #:phases
402 (modify-phases %standard-phases
403 (add-after 'unpack 'patch-docbook-xml
404 (lambda* (#:key inputs #:allow-other-keys)
405 (with-directory-excursion "doc/reference"
406 (substitute* "libgrss-docs.sgml"
407 (("http://www.oasis-open.org/docbook/xml/4.1.2/")
408 (string-append (assoc-ref inputs "docbook-xml")
409 "/xml/dtd/docbook/"))))
410 #t)))))
411 (native-inputs
412 `(("docbook-xml" ,docbook-xml-4.1.2)
413 ("gobject-introspection" ,gobject-introspection)
414 ("gtk-doc" ,gtk-doc)
415 ("pkg-config" ,pkg-config)))
416 (propagated-inputs
417 `(("glib" ,glib)
418 ("libsoup" ,libsoup)
419 ("libxml2" ,libxml2)))
420 (synopsis "Glib library for feeds")
7230f6d5
TGR		 421 (description "LibGRSS is a Glib abstraction to handle feeds in RSS, Atom,
422and other formats.")
f10b58ca
RG		 423 (home-page "https://wiki.gnome.org/Projects/Libgrss")
424 (license license:lgpl3+)))
425
c1082b02
RG		 426(define-public gnome-js-common
427 (package
428 (name "gnome-js-common")
429 (version "0.1.2")
430 (source
431 (origin
432 (method url-fetch)
433 (uri
434 (string-append "mirror://gnome/sources/" name "/"
435 (version-major+minor version) "/"
436 name "-" version ".tar.gz"))
437 (sha256
438 (base32 "1zv5b9bcbclzj64xd9kgql4ndmbwvvi6cl937ykw8fp21xgh8z7y"))))
439 (build-system glib-or-gtk-build-system)
440 (arguments
441 `(#:configure-flags
442 (list
443 "--disable-static")))
444 (native-inputs
445 `(("gettext" ,gettext-minimal)
446 ("intltool" ,intltool)
447 ("pkg-config" ,pkg-config)))
448 (synopsis "Common JS Modules")
449 (description "GNOME-JS-Common provides common modules for GNOME JavaScript
450bindings.")
451 (home-page "https://wiki.gnome.org/Projects/Seed")
452 (license license:gpl3+)))
453
77d7bbf4
RG		 454(define-public seed
455 (package
456 (name "seed")
457 (version "3.8.1")
458 (source
459 (origin
460 (method url-fetch)
461 (uri
462 (string-append "mirror://gnome/sources/" name "/"
463 (version-major+minor version) "/"
464 name "-" version ".tar.xz"))
465 (sha256
466 (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
467 (patches
468 (search-patches "seed-webkit.patch"))))
469 (build-system glib-or-gtk-build-system)
470 (outputs '("out" "doc"))
471 (arguments
472 `(#:configure-flags
473 (list
474 "--disable-static"
475 "--enable-xorg-module"
476 (string-append "--with-html-dir="
477 (assoc-ref %outputs "doc")
478 "/share/gtk-doc/html")
479 "--with-webkit=4.0")
480 #:phases
481 (modify-phases %standard-phases
482 ;; The seed-webkit.patch patches configure.ac.
483 ;; So the source files need to be re-bootstrapped.
484 (add-after 'unpack 'trigger-bootstrap
485 (lambda _
486 (for-each delete-file
487 (list
488 "configure"
489 "Makefile.in"))
490 #t))
14528483
DM		 491 (add-after 'unpack 'patch-tests
492 (lambda* (#:key outputs #:allow-other-keys)
493 (substitute* (find-files "." "\\.js$")
494 (("#!/usr/bin/env seed")
495 (string-append "#!" (getcwd) "/src/seed")))
496 #t))
77d7bbf4
RG		 497 (add-before 'build 'patch-docbook-xml
498 (lambda* (#:key inputs #:allow-other-keys)
499 (with-directory-excursion "doc"
500 (substitute* '("reference/seed-docs.sgml" "modules/book.xml")
501 (("http://www.oasis-open.org/docbook/xml/4.1.2/")
502 (string-append (assoc-ref inputs "docbook-xml")
503 "/xml/dtd/docbook/"))))
504 #t)))))
505 (native-inputs
506 `(("autoconf" ,autoconf)
507 ("automake" ,automake)
508 ("docbook-xml" ,docbook-xml-4.1.2)
509 ("gettext" ,gettext-minimal)
510 ("gobject-introspection" ,gobject-introspection)
511 ("gtk-doc" ,gtk-doc)
512 ("intltool" ,intltool)
513 ("libtool" ,libtool)
514 ("pkg-config" ,pkg-config)))
515 (inputs
516 `(("cairo" ,cairo)
517 ("dbus" ,dbus)
518 ("dbus-glib" ,dbus-glib)
519 ("gnome-js-common" ,gnome-js-common)
520 ("gtk+" ,gtk+)
521 ("gtk+-2" ,gtk+-2)
522 ("libffi" ,libffi)
523 ("libxml2" ,libxml2)
524 ("mpfr" ,mpfr)
525 ("readline" ,readline)
526 ("sqlite" ,sqlite)
527 ("xscrnsaver" ,libxscrnsaver)))
528 (propagated-inputs
529 `(("glib" ,glib)
530 ("webkit" ,webkitgtk)))
531 (synopsis "GObject JavaScriptCore bridge")
532 (description "Seed is a library and interpreter, dynamically bridging
533(through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
534GNOME platform. It serves as something which enables you to write standalone
535applications in JavaScript, or easily enable your application to be extensible
536in JavaScript.")
537 (home-page "https://wiki.gnome.org/Projects/Seed")
538 (license license:lgpl2.0+)))
539
d668963d
RG		 540(define-public libdmapsharing
541 (package
542 (name "libdmapsharing")
543 (version "3.9.10")
544 (source
545 (origin
546 (method url-fetch)
547 (uri
548 (string-append "https://www.flyn.org/projects/"
549 name "/" name "-" version ".tar.gz"))
550 (sha256
551 (base32 "152hnddwxv590cn802awv3mn27ixc3s6ac691a7z02d1c5fl45p2"))))
552 (build-system glib-or-gtk-build-system)
553 (outputs '("out" "doc"))
554 (arguments
555 `(#:tests? #f ; Tests require networking.
556 #:configure-flags
557 (list
558 "--disable-static"
559 (string-append "--with-html-dir="
560 (assoc-ref %outputs "doc")
561 "/share/gtk-doc/html"))
562 #:phases
563 (modify-phases %standard-phases
564 (add-after 'unpack 'patch-docbook-xml
565 (lambda* (#:key inputs #:allow-other-keys)
566 (with-directory-excursion "doc"
567 (substitute* "libdmapsharing-4.0-docs.xml"
568 (("http://www.oasis-open.org/docbook/xml/4.3/")
569 (string-append (assoc-ref inputs "docbook-xml")
570 "/xml/dtd/docbook/"))))
571 #t)))))
572 (native-inputs
573 `(("check" ,check)
574 ("docbook-xml" ,docbook-xml-4.3)
575 ("gobject-introspection" ,gobject-introspection)
576 ("pedansee" ,pedansee)
577 ("pkg-config" ,pkg-config)
578 ("vala" ,vala)))
579 (inputs
580 `(("avahi" ,avahi)
581 ("gdk-pixbuf" ,gdk-pixbuf+svg)
582 ("gee" ,libgee)
583 ("gst-plugins-base" ,gst-plugins-base)
584 ("gtk+" ,gtk+)))
585 (propagated-inputs
586 `(("glib" ,glib)
587 ("glib-networking" ,glib-networking)
588 ("gstreamer" ,gstreamer)
589 ("libsoup" ,libsoup)))
590 (synopsis "Media management library")
591 (description "Libdmapsharing is a library which allows programs to access,
592share and control the playback of media content using DMAP (DAAP, DPAP & DACP).
593It is written in C using GObject and libsoup.")
594 (home-page "https://launchpad.net/gtx")
595 (license license:lgpl2.1+)))
596
c15ff237
RG		 597(define-public gtx
598 (package
599 (name "gtx")
600 (version "0.2.2")
601 (source
602 (origin
603 (method url-fetch)
604 (uri
605 (string-append "https://launchpad.net/gtx/trunk/"
606 version "/+download/gtx-" version ".tar.gz"))
607 (sha256
608 (base32 "0i4zvn5v4rf0cw3fxylk6j2pyy5lkrswdiw8jdxkys0ph0nan33n"))))
609 (build-system glib-or-gtk-build-system)
610 (outputs '("out" "doc"))
611 (arguments
612 `(#:configure-flags
613 (list
614 "--disable-static"
615 "--enable-gtk-doc"
616 (string-append "--with-html-dir="
617 (assoc-ref %outputs "doc")
618 "/share/gtk-doc/html"))))
619 (native-inputs
620 `(("gobject-introspection" ,gobject-introspection)
621 ("gtk-doc" ,gtk-doc)
622 ("pkg-config" ,pkg-config)))
623 (propagated-inputs
624 `(("glib" ,glib)))
625 (synopsis "GLib Testing Framework")
626 (description "GTX is a small collection of convenience functions intended to
627enhance the GLib testing framework. With specific emphasis on easing the pain
628of writing test cases for asynchronous interactions.")
629 (home-page "https://launchpad.net/gtx")
630 (license license:lgpl2.1+)))
631
8fd769dd
RG		 632(define-public dee
633 (package
634 (name "dee")
635 (version "1.2.7")
636 (source
637 (origin
638 (method url-fetch)
639 (uri
640 (string-append "https://launchpad.net/dee/1.0/"
641 version "/+download/dee-" version ".tar.gz"))
642 (sha256
643 (base32 "12mzffk0lyd566y46x57jlvb9af152b4dqpasr40zal4wrn37w0v"))
644 (patches
645 (search-patches "dee-vapi.patch"))))
646 (build-system glib-or-gtk-build-system)
647 (outputs '("out" "doc"))
648 (arguments
649 `(#:configure-flags
650 (list
651 "--disable-maintainer-flags"
652 (string-append "--with-pygi-overrides-dir="
653 (assoc-ref %outputs "out")
654 "/lib/python"
655 ,(version-major+minor
656 (package-version python))
657 "/site-packages/gi/overrides")
658 (string-append "--with-html-dir="
659 (assoc-ref %outputs "doc")
660 "/share/gtk-doc/html"))
661 #:phases
662 (modify-phases %standard-phases
663 (add-after 'unpack 'patch-docbook-xml
664 (lambda* (#:key inputs #:allow-other-keys)
665 (with-directory-excursion "doc/reference/dee-1.0"
666 (substitute* "dee-1.0-docs.sgml"
667 (("http://www.oasis-open.org/docbook/xml/4.3/")
668 (string-append (assoc-ref inputs "docbook-xml")
669 "/xml/dtd/docbook/"))))
670 #t))
671 (add-after 'patch-docbook-xml 'disable-failing-tests
672 (lambda _
673 (substitute* "tests/test-icu.c"
674 (("g_test_add \\(DOMAIN\"/Default/AsciiFolder\", Fixture, 0,")
675 "")
676 (("setup, test_ascii_folder, teardown\\);")
677 ""))
678 #t))
679 (add-before 'check 'pre-check
680 (lambda _
681 ;; Tests require a running dbus-daemon.
682 (system "dbus-daemon &")
683 ;; For missing '/etc/machine-id'.
684 (setenv "DBUS_FATAL_WARNINGS" "0")
685 #t)))))
686 (native-inputs
687 `(("dbus" ,dbus)
688 ("dbus-test-runner" ,dbus-test-runner)
689 ("docbook-xml" ,docbook-xml-4.3)
690 ("gobject-introspection" ,gobject-introspection)
691 ("gtk-doc" ,gtk-doc)
692 ;; Would only be required by configure flag "--enable-extended-tests".
693 ;("gtx" ,gtx)
694 ("pkg-config" ,pkg-config)
695 ("pygobject" ,python-pygobject)
696 ("python" ,python-wrapper)
697 ("vala" ,vala)))
698 (inputs
699 `(("icu" ,icu4c)))
700 (propagated-inputs
701 `(("glib" ,glib)))
702 (synopsis "Model to synchronize multiple instances over DBus")
703 (description "Dee is a library that uses DBus to provide objects allowing
704you to create Model-View-Controller type programs across DBus. It also consists
705of utility objects which extend DBus allowing for peer-to-peer discoverability
706of known objects without needing a central registrar.")
707 (home-page "https://launchpad.net/dee")
708 (license
709 ;; Dual-licensed
710 (list
711 license:lgpl3+
712 license:gpl3+))))
713
70f33d3c
RG		 714(define-public zeitgeist
715 (package
716 (name "zeitgeist")
d9005cdc 717 (version "1.0.3")
70f33d3c
RG		 718 (source
719 (origin
720 (method git-fetch)
721 (uri
722 (git-reference
723 (url "https://gitlab.freedesktop.org/zeitgeist/zeitgeist.git")
724 (commit
725 (string-append "v" version))))
726 (file-name
727 (git-file-name name version))
728 (sha256
d9005cdc 729 (base32 "0y6fyzxl5np4yskcxibd0p03h619w9ir907nhf40h02y0pk1kgkp"))))
70f33d3c
RG		 730 (build-system glib-or-gtk-build-system)
731 (arguments
732 `(#:configure-flags
733 (list
734 "--enable-explain-queries"
735 "--enable-fts"
736 "--enable-docs")
737 #:phases
738 (modify-phases %standard-phases
739 (add-after 'unpack 'patch-docbook-xml
740 (lambda* (#:key inputs #:allow-other-keys)
741 (with-directory-excursion "doc/libzeitgeist"
742 (substitute* "zeitgeist-gtkdoc-index.sgml"
743 (("http://www.oasis-open.org/docbook/xml/4.3/")
744 (string-append (assoc-ref inputs "docbook-xml")
745 "/xml/dtd/docbook/"))))
746 #t))
747 (add-after 'patch-docbook-xml 'disable-failing-tests
748 (lambda _
749 (substitute* "test/direct/Makefile.am"
750 ((" log-test ")
751 ""))
752 (substitute* "test/c/Makefile.am"
753 ((" test-log ")
754 ""))
755 #t))
756 (add-before 'bootstrap 'remove-autogen-script
757 (lambda _
758 ;; To honor `autoreconf -vif` by build-system.
759 (delete-file "autogen.sh")
760 #t)))))
761 (native-inputs
762 `(("autoconf" ,autoconf)
763 ("automake" ,automake)
764 ("docbook-xml" ,docbook-xml-4.3)
765 ("gettext" ,gettext-minimal)
766 ("gobject-introspection" ,gobject-introspection)
767 ("gtk-doc" ,gtk-doc)
768 ("libtool" ,libtool)
769 ("pkg-config" ,pkg-config)
770 ("vala" ,vala)
771 ("xorg-server-for-tests" ,xorg-server-for-tests)))
772 (inputs
773 `(("dee-icu" ,dee)
774 ("gtk+" ,gtk+)
775 ("json-glib" ,json-glib)
776 ("sqlite" ,sqlite)
777 ("telepathy-glib" ,telepathy-glib)
778 ("python" ,python-wrapper)
779 ("python-rdflib" ,python-rdflib)
780 ("xapian-config" ,xapian)))
781 (propagated-inputs
782 `(("glib" ,glib)))
783 (synopsis "Desktop Activity Logging")
784 (description "Zeitgeist is a service which logs the users’s activities and
785events, anywhere from files opened to websites visited and conversations. It
786makes this information readily available for other applications to use. It is
787able to establish relationships between items based on similarity and usage
788patterns.")
789 (home-page "https://zeitgeist.freedesktop.org/")
790 (license
791 ;; Dual-licensed
792 (list
793 license:lgpl2.1+
794 license:gpl2+))))
795
56db7a66
RG		 796(define-public gnome-photos
797 (package
798 (name "gnome-photos")
799 (version "3.34.2")
800 (source
801 (origin
802 (method url-fetch)
803 (uri
804 (string-append "mirror://gnome/sources/" name "/"
805 (version-major+minor version) "/"
806 name "-" version ".tar.xz"))
807 (sha256
808 (base32
809 "06ml5sf8xhpan410msqz085hmfc7082d368pb82yq646y9pcfn9w"))))
810 (build-system meson-build-system)
811 (arguments
812 `(#:glib-or-gtk? #t
813 #:configure-flags
814 (list "-Ddogtail=false" ; Not available
815 ;; Required for RUNPATH validation.
816 (string-append "-Dc_link_args=-Wl,-rpath="
817 (assoc-ref %outputs "out") "/lib/gnome-photos"))
818 #:phases
819 (modify-phases %standard-phases
820 (add-after 'install 'wrap-gnome-photos
821 (lambda* (#:key inputs outputs #:allow-other-keys)
822 (let*
823 ((out (assoc-ref outputs "out")))
824 (wrap-program (string-append out "/bin/gnome-photos")
825 `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))))
826 #t)))))
827 (native-inputs
828 `(("dbus" ,dbus)
829 ("desktop-file-utils" ,desktop-file-utils)
830 ("gettext" ,gettext-minimal)
831 ("git" ,git-minimal)
832 ("glib:bin" ,glib "bin")
833 ("gobject-introspection" ,gobject-introspection)
834 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
835 ("gtk+:bin" ,gtk+ "bin")
836 ("itstool" ,itstool)
837 ("pkg-config" ,pkg-config)))
838 (inputs
839 `(("babl" ,babl)
840 ("cairo" ,cairo)
841 ("gdk-pixbuf" ,gdk-pixbuf+svg)
842 ("gegl" ,gegl)
843 ("geocode-glib" ,geocode-glib)
844 ("gexiv2" ,gexiv2)
845 ("gnome-online-accounts" ,gnome-online-accounts)
846 ("gnome-online-miners" ,gnome-online-miners)
847 ("grilo" ,grilo)
848 ("grilo-plugins" ,grilo-plugins)
849 ("gtk+" ,gtk+)
850 ("libdazzle" ,libdazzle)
851 ("libgdata" ,libgdata)
852 ("libgfbgraph" ,gfbgraph)
853 ("libjpeg" ,libjpeg-turbo)
854 ("libpng" ,libpng)
855 ("librest" ,rest)
856 ("pygobject" ,python-pygobject)
857 ("tracker" ,tracker)
858 ("tracker-miners" ,tracker-miners)))
859 (synopsis "Access, organize and share your photos on GNOME desktop")
860 (description "GNOME Photos is a simple and elegant replacement for using a
861file manager to deal with photos. Enhance, crop and edit in a snap. Seamless
862cloud integration is offered through GNOME Online Accounts.")
863 (home-page "https://wiki.gnome.org/Apps/Photos")
864 (license license:gpl3+)))
865
1aefe650
RG		 866(define-public gnome-music
867 (package
868 (name "gnome-music")
869 (version "3.34.5")
870 (source
871 (origin
872 (method url-fetch)
873 (uri
874 (string-append "mirror://gnome/sources/" name "/"
875 (version-major+minor version) "/"
876 name "-" version ".tar.xz"))
877 (sha256
878 (base32
879 "1r5sfw5cbd6qqh27lzhblazir0bfi3k7nqppw66qw990isqm5psy"))))
880 (build-system meson-build-system)
881 (arguments
882 `(#:glib-or-gtk? #t
883 #:phases
884 (modify-phases %standard-phases
885 (add-after 'install 'wrap-gnome-music
886 (lambda* (#:key inputs outputs #:allow-other-keys)
887 (let*
888 ((out (assoc-ref outputs "out"))
889 (pylib (string-append out "/lib/python"
890 ,(version-major+minor
891 (package-version python))
892 "/site-packages")))
893 (wrap-program (string-append out "/bin/gnome-music")
894 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
895 `("GST_PLUGIN_SYSTEM_PATH" = (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
896 `("GRL_PLUGIN_PATH" = (,(getenv "GRL_PLUGIN_PATH")))
897 `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))))
898 #t)))))
899 (native-inputs
900 `(("desktop-file-utils" ,desktop-file-utils)
901 ("gettext" ,gettext-minimal)
902 ("glib:bin" ,glib "bin")
903 ("gobject-introspection" ,gobject-introspection)
904 ("gtk+:bin" ,gtk+ "bin")
905 ("itstools" ,itstool)
906 ("pkg-config" ,pkg-config)))
907 (inputs
908 `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
909 ("grilo" ,grilo)
910 ("grilo-plugins" ,grilo-plugins)
911 ("gst-plugins-base" ,gst-plugins-base)
912 ("gstreamer" ,gstreamer)
913 ("gvfs" ,gvfs)
914 ("libdazzle" ,libdazzle)
915 ("libmediaart" ,libmediaart)
916 ("libsoup" ,libsoup)
917 ("pycairo" ,python-pycairo)
918 ("pygobject" ,python-pygobject)
919 ("tracker" ,tracker)
920 ("tracker-miners" ,tracker-miners)))
921 (synopsis "Simple music player for GNOME desktop")
922 (description "GNOME Music is the new GNOME music playing application that
923aims to combine an elegant and immersive browsing experience with simple
924and straightforward controls.")
925 (home-page "https://wiki.gnome.org/Apps/Music")
926 (license license:gpl2+)))
927
72fd1b3f
RG		 928(define-public portablexdr
929 (package
930 (name "portablexdr")
931 (version "4.9.1")
932 (source
933 (origin
934 (method url-fetch)
935 (uri
936 (string-append "https://people.redhat.com/~rjones/" name "/files/"
937 name "-" version ".tar.gz"))
938 (sha256
939 (base32
940 "0b77ipvvi520nv7rr6jb1c3xryhc3m2mywhby7m48kfgag8vvx2w"))))
941 (build-system gnu-build-system)
942 (synopsis "External Data Representation Library")
943 (description "PortableXDR is an implementation of External Data
944Representation (XDR) Library. It is a standard data serialization format, for
945uses such as computer network protocols. It allows data to be transferred
946between different kinds of computer systems.")
947 (home-page "https://people.redhat.com/~rjones/portablexdr/")
948 (license
949 (list
950 license:gpl2+
951 license:lgpl2.1+))))
952
30003a64
RG		 953(define-public tepl
954 (package
955 (name "tepl")
956 (version "4.4.0")
957 (source
958 (origin
959 (method url-fetch)
960 (uri
961 (string-append "mirror://gnome/sources/" name "/"
962 (version-major+minor version) "/"
963 name "-" version ".tar.xz"))
964 (sha256
965 (base32
966 "0mm2z849hnni7597an05mrv0dckrxjngpf2xfa0g5s17i8x6gxp6"))))
967 (build-system glib-or-gtk-build-system)
968 (arguments
969 `(#:tests? #f)) ; FIX-ME: Requires gvfs
970 (native-inputs
971 `(("gobject-introspection" ,gobject-introspection)
972 ("pkg-config" ,pkg-config)))
973 (inputs
974 `(("amtk" ,amtk)
975 ("glib" ,glib)
976 ("gtk+" ,gtk+)
977 ("gtksourceview" ,gtksourceview)
978 ("libxml2" ,libxml2)
979 ("uchardet" ,uchardet)))
980 (synopsis "Text editor product line")
981 (description "Tepl is a library that eases the development of
982GtkSourceView-based text editors and IDEs.")
983 (home-page "https://wiki.gnome.org/Projects/Tepl")
984 (license license:lgpl2.1+)))
985
2e6bc595
RG		 986(define-public krb5-auth-dialog
987 (package
988 (name "krb5-auth-dialog")
989 (version "3.26.1")
990 (source
991 (origin
992 (method url-fetch)
993 (uri
994 (string-append "mirror://gnome/sources/" name "/"
995 (version-major+minor version) "/"
996 name "-" version ".tar.xz"))
997 (sha256
998 (base32
999 "1w91gsvmifqhiam3xqf88i5rk2w6qadjalmbvvamjdc37j0vdc6x"))))
1000 (build-system glib-or-gtk-build-system)
1001 (native-inputs
1002 `(("intltool" ,intltool)
1003 ("itstool" ,itstool)
1004 ("libxml2" ,libxml2)
1005 ("pkg-config" ,pkg-config)
1006 ("python-wrapper" ,python-wrapper)))
1007 (inputs
1008 `(("glib" ,glib)
1009 ("gtk+" ,gtk+)
1010 ("libnotify" ,libnotify)
1011 ("mit-krb5" ,mit-krb5)
1012 ("network-manager" ,network-manager)))
1013 (synopsis "Popup dialogs for Kerberos 5")
1014 (description "krb5-auth-dialog is a simple dialog that monitors Kerberos
1015tickets, and pops up a dialog when they are about to expire.")
1016 (home-page "https://gitlab.gnome.org/GNOME/krb5-auth-dialog")
1017 (license license:gpl2+)))
1018
a3cbcbaf
RG		 1019(define-public notification-daemon
1020 (package
1021 (name "notification-daemon")
1022 (version "3.20.0")
1023 (source
1024 (origin
1025 (method url-fetch)
1026 (uri
1027 (string-append "mirror://gnome/sources/" name "/"
1028 (version-major+minor version) "/"
1029 name "-" version ".tar.xz"))
1030 (sha256
1031 (base32
1032 "1rgchqi4j2ll7d6a7lgy7id0w9rrkwkgic1096fbm2zx6n7pc4yx"))))
1033 (build-system glib-or-gtk-build-system)
1034 (native-inputs
1035 `(("intltool" ,intltool)
1036 ("pkg-config" ,pkg-config)))
1037 (inputs
1038 `(("glib" ,glib)
1039 ("gtk+" ,gtk+)
1040 ("x11" ,libx11)))
1041 (synopsis "Notification Daemon for GNOME Desktop")
1042 (description "Notification-Daemon is the server implementation of the
1043freedesktop.org desktop notification specification.")
1044 (home-page "https://wiki.gnome.org/Projects/NotificationDaemon")
1045 (license license:gpl2+)))
1046
4e8bdbf8
RG		 1047(define-public mm-common
1048 (package
1049 (name "mm-common")
b67e684e 1050 (version "1.0.2")
4e8bdbf8
RG		 1051 (source (origin
1052 (method url-fetch)
02cb4ca7 1053 (uri (string-append "mirror://gnome/sources/mm-common/"
4e8bdbf8 1054 (version-major+minor version) "/"
02cb4ca7 1055 "mm-common-" version ".tar.xz"))
4e8bdbf8
RG		 1056 (sha256
1057 (base32
b67e684e 1058 "07b4s5ckcz9q5gwx8vchim19mhfgl8wysqwi30pndks3m4zrzad2"))))
4e8bdbf8
RG		 1059 (build-system meson-build-system)
1060 (arguments
1061 `(#:phases
1062 (modify-phases %standard-phases
1063 (add-after 'unpack 'patch
1064 (lambda* (#:key inputs #:allow-other-keys)
1065 (substitute* "util/mm-common-prepare.in"
1066 (("ln") (string-append (assoc-ref inputs "coreutils")
1067 "/bin/ln"))
1068 (("cp") (string-append (assoc-ref inputs "coreutils")
1069 "/bin/cp"))
1070 (("sed") (string-append (assoc-ref inputs "sed")
1071 "/bin/sed"))
1072 (("cat") (string-append (assoc-ref inputs "coreutils")
1073 "/bin/cat")))
1074 #t)))))
1075 (native-inputs
4e8bdbf8 1076 `(("coreutils" ,coreutils)
74a65885
DM		 1077 ("gettext" ,gettext-minimal)
1078 ("pkg-config" ,pkg-config)
4e8bdbf8 1079 ("sed" ,sed)))
74a65885
DM		 1080 (inputs
1081 `(("python" ,python)))
4e8bdbf8
RG		 1082 (synopsis "Module of GNOME C++ bindings")
1083 (description "The mm-common module provides the build infrastructure
1084and utilities shared among the GNOME C++ binding libraries. Release
1085archives of mm-common include the Doxygen tag file for the GNU C++
1086Library reference documentation.")
1087 (home-page "https://gitlab.gnome.org/GNOME/mm-common")
1088 (license license:gpl2+)))
1089
e05ce17d
RG		 1090(define-public phodav
1091 (package
1092 (name "phodav")
1c17a61b 1093 (version "2.5")
e05ce17d
RG		 1094 (source (origin
1095 (method url-fetch)
1096 (uri (string-append "mirror://gnome/sources/" name "/"
1097 (version-major+minor version) "/"
1098 name "-" version ".tar.xz"))
1099 (sha256
1100 (base32
1c17a61b 1101 "045rdzf8isqmzix12lkz6z073b5qvcqq6ad028advm5gf36skw3i"))))
e05ce17d 1102 (build-system meson-build-system)
1c17a61b
TGR		 1103 (arguments
1104 `(#:phases
1105 (modify-phases %standard-phases
1106 (add-before 'check 'start-virtual-dir-server
1107 ;; The same server when started by tests/virtual-dir returns an
1108 ;; unexpected status (4 instead of 200) and fails a test. It is
1109 ;; unclear why starting it manually here makes it pass.
1110 (lambda _
1111 (system "tests/virtual-dir-server &")
1112 #t)))))
e05ce17d 1113 (native-inputs
1c17a61b
TGR		 1114 `(("docbook-xml" ,docbook-xml-4.3)
1115 ("gettext" ,gettext-minimal)
e05ce17d
RG		 1116 ("glib:bin" ,glib "bin")
1117 ("gtk-doc" ,gtk-doc)
1118 ("pkg-config" ,pkg-config)))
1119 (inputs
1120 `(("avahi" ,avahi)
1121 ("libgudev" ,libgudev)
1122 ("libsoup" ,libsoup)))
1123 (synopsis "WebDav server implementation using libsoup")
1124 (description "PhoDav was initially developed as a file-sharing mechanism for Spice,
1125but it is generic enough to be reused in other projects,
1126in particular in the GNOME desktop.")
1127 (home-page "https://wiki.gnome.org/phodav")
1128 (license license:lgpl2.1+)))
1129
29ae18db
RG		 1130(define-public gnome-color-manager
1131 (package
1132 (name "gnome-color-manager")
1133 (version "3.32.0")
1134 (source (origin
1135 (method url-fetch)
1136 (uri (string-append "mirror://gnome/sources/" name "/"
1137 (version-major+minor version) "/"
1138 name "-" version ".tar.xz"))
1139 (sha256
1140 (base32
1141 "1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w"))))
1142 (build-system meson-build-system)
1143 (arguments
1144 `(#:glib-or-gtk? #t
1145 #:phases
1146 (modify-phases %standard-phases
1147 (add-before
1148 'check 'pre-check
1149 (lambda _
1150 ;; Tests require a running X server.
1151 (system "Xvfb :1 &")
1152 (setenv "DISPLAY" ":1")
1153 #t)))))
1154 (native-inputs
1155 `(("desktop-file-utils" ,desktop-file-utils)
1156 ("gettext" ,gettext-minimal)
1157 ("glib:bin" ,glib "bin")
1158 ("gtk+:bin" ,gtk+ "bin")
1159 ("itstool" ,itstool)
1160 ("pkg-config" ,pkg-config)
1161 ("xorg-server" ,xorg-server-for-tests)))
1162 (inputs
1163 `(("adwaita-icon-theme" ,adwaita-icon-theme)
1164 ("appstream-glib" ,appstream-glib)
1165 ("colord-gtk" ,colord-gtk)
1166 ("exiv2" ,exiv2)
1167 ("gnome-desktop" ,gnome-desktop)
1168 ("libcanberra" ,libcanberra)
1169 ("libexif" ,libexif)
1170 ("libtiff" ,libtiff)
1171 ("libxrandr" ,libxrandr)
1172 ("libxtst" ,libxtst)
1173 ("libxxf86vm" ,libxxf86vm)
1174 ("vte" ,vte)
1175 ("xorgproto" ,xorgproto)))
1176 (synopsis "Color profile manager for the GNOME desktop")
1177 (description "GNOME Color Manager is a session framework that makes
1178it easy to manage, install and generate color profiles
1179in the GNOME desktop.")
1180 (home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
7bd000d1 1181 (license license:gpl2+)))
29ae18db 1182
e05471a1
RG		 1183(define-public gnome-online-miners
1184 (package
1185 (name "gnome-online-miners")
49dcd7fc 1186 (version "3.34.0")
e05471a1
RG		 1187 (source (origin
1188 (method url-fetch)
1189 (uri (string-append "mirror://gnome/sources/" name "/"
1190 (version-major+minor version) "/"
1191 name "-" version ".tar.xz"))
1192 (sha256
1193 (base32
49dcd7fc 1194 "1n2jz9i8a42zwxx5h8j2gdy6q1vyydh4vl00r0al7w8jzdh24p44"))))
e05471a1
RG		 1195 (build-system glib-or-gtk-build-system)
1196 (native-inputs
1197 `(("gettext" ,gettext-minimal)
1198 ("glib:bin" ,glib "bin")
29ae18db 1199 ("gobject-introspection" ,gobject-introspection)
e05471a1
RG		 1200 ("gtk+:bin" ,gtk+ "bin")
1201 ("pkg-config" ,pkg-config)))
1202 (inputs
1203 `(("gnome-online-accounts" ,gnome-online-accounts)
1204 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
e05471a1
RG		 1205 ("grilo" ,grilo)
1206 ("libgdata" ,libgdata)
1207 ("libgfbgraph" ,gfbgraph)
1208 ("libzapojit" ,libzapojit)
1209 ("rest" ,rest)
1210 ("tracker" ,tracker)))
1211 (synopsis "Web Crawlers for GNOME")
1212 (description "GNOME Online Miners provides a set of crawlers that
1213go through your online content and index them locally in Tracker.
1214It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
1215 (home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
7bd000d1 1216 (license license:gpl2+)))
e05471a1 1217
e2aed29c
RG		 1218(define-public gssdp
1219 (package
1220 (name "gssdp")
c257e0ec 1221 (version "1.2.3")
e2aed29c
RG		 1222 (source (origin
1223 (method url-fetch)
1224 (uri (string-append "mirror://gnome/sources/" name "/"
1225 (version-major+minor version) "/"
1226 name "-" version ".tar.xz"))
1227 (sha256
1228 (base32
c257e0ec 1229 "1s57i8a8wnnxnsfl27cq4503dkdlzbrhry5zpg23sfqfffvdqqx2"))))
e2aed29c
RG		 1230 (build-system meson-build-system)
1231 (native-inputs
1232 `(("gettext" ,gettext-minimal)
1233 ("glib:bin" ,glib "bin")
1234 ("gobject-introspection" ,gobject-introspection)
1235 ("gtk-doc" ,gtk-doc)
1236 ("pkg-config" ,pkg-config)
1237 ("vala" ,vala)))
1238 (inputs
1239 `(("gtk+" ,gtk+)
1240 ("libsoup" ,libsoup)))
1241 (synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
1242Protocol} for GNOME")
1243 (description "This package provides a library to handle resource discovery
1244and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
1245a debugging tool, @command{gssdp-device-sniffer}.")
1246 (home-page "https://gitlab.gnome.org/GNOME/gssdp")
1247 (license license:lgpl2.0+)))
1248
291a85b2
RG		 1249(define-public gupnp
1250 (package
1251 (name "gupnp")
5b882f47 1252 (version "1.2.4")
291a85b2
RG		 1253 (source (origin
1254 (method url-fetch)
1255 (uri (string-append "mirror://gnome/sources/" name "/"
1256 (version-major+minor version) "/"
1257 name "-" version ".tar.xz"))
1258 (sha256
1259 (base32
5b882f47 1260 "1ld7mrpdv9cszmfzh7i19qx4li25j3fr7x1jp38l8phzlmz3187p"))))
291a85b2
RG		 1261 (build-system meson-build-system)
1262 (native-inputs
1263 `(("gettext" ,gettext-minimal)
1264 ("glib:bin" ,glib "bin")
1265 ("gobject-introspection" ,gobject-introspection)
1266 ("gtk-doc" ,gtk-doc)
1267 ("pkg-config" ,pkg-config)
1268 ("vala" ,vala)))
1269 (inputs
1270 `(("gssdp" ,gssdp)
1271 ("gtk+" ,gtk+)
1272 ("libsoup" ,libsoup)))
1273 (synopsis "PnP API for GNOME")
1274 (description "This package provides GUPnP, an object-oriented framework
1275for creating UPnP devices and control points, written in C using
1276@code{GObject} and @code{libsoup}.")
1277 (home-page "https://gitlab.gnome.org/GNOME/gupnp")
1278 (license license:lgpl2.0+)))
1279
747d7fe4
RG		 1280(define-public gupnp-dlna
1281 (package
1282 (name "gupnp-dlna")
1283 (version "0.10.5")
1284 (source (origin
1285 (method url-fetch)
1286 (uri (string-append "mirror://gnome/sources/" name "/"
1287 (version-major+minor version) "/"
1288 name "-" version ".tar.xz"))
1289 (sha256
1290 (base32
1291 "0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
1292 (build-system gnu-build-system)
1293 (native-inputs
1294 `(("gettext" ,gettext-minimal)
1295 ("glib:bin" ,glib "bin")
1296 ("gobject-introspection" ,gobject-introspection)
1297 ("gtk-doc" ,gtk-doc)
1298 ("libxml" ,libxml2)
1299 ("pkg-config" ,pkg-config)
1300 ("vala" ,vala)))
1301 (inputs
1302 `(("gstreamer" ,gstreamer)
1303 ("gupnp" ,gupnp)))
1304 (propagated-inputs
1305 `(("gst-plugins-base" ,gst-plugins-base)
1306 ("gst-plugins-good" ,gst-plugins-good)))
1307 (synopsis "GUPnP DLNA for GNOME")
1308 (description "This package provides a small utility library to
1309support DLNA-related tasks such as media profile guessing, transcoding to a
1310given profile, etc. DLNA is a subset of UPnP A/V.")
1311 (home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
1312 (license license:lgpl2.0+)))
1313
1b4cb628
RG		 1314(define-public gupnp-av
1315 (package
1316 (name "gupnp-av")
1317 (version "0.12.11")
1318 (source (origin
1319 (method url-fetch)
1320 (uri (string-append "mirror://gnome/sources/" name "/"
1321 (version-major+minor version) "/"
1322 name "-" version ".tar.xz"))
1323 (sha256
1324 (base32
1325 "1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
1326 (build-system gnu-build-system)
1327 (native-inputs
1328 `(("gettext" ,gettext-minimal)
1329 ("glib:bin" ,glib "bin")
1330 ("gobject-introspection" ,gobject-introspection)
1331 ("gtk-doc" ,gtk-doc)
1332 ("libxml" ,libxml2)
1333 ("pkg-config" ,pkg-config)))
1334 (inputs
1335 `(("gtk+" ,gtk+)
1336 ("gupnp" ,gupnp)))
1337 (synopsis "GUPnP A/V for GNOME")
1338 (description "This package provides a small library for handling
1339and implementation of UPnP A/V profiles.")
1340 (home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
1341 (license license:lgpl2.0+)))
e05471a1 1342
02ebbca8
RG		 1343(define-public libmediaart
1344 (package
1345 (name "libmediaart")
1346 (version "1.9.4")
1347 (source (origin
1348 (method url-fetch)
1349 (uri (string-append "mirror://gnome/sources/" name "/"
1350 (version-major+minor version) "/"
1351 name "-" version ".tar.xz"))
1352 (sha256
1353 (base32
1354 "0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
1355 (build-system gnu-build-system)
1356 (native-inputs
1357 `(("glib:bin" ,glib "bin")
1358 ("pkg-config" ,pkg-config)))
1359 (inputs
1360 `(("gdk-pixbuf" ,gdk-pixbuf)
1361 ("gettext" ,gettext-minimal)
1362 ("gobject-introspection" ,gobject-introspection)
1628d57b 1363 ("gtk+:doc" ,gtk+ "doc")
02ebbca8
RG		 1364 ("vala" ,vala)))
1365 (synopsis "Media art library for the GNOME desktop")
1366 (description
1367 "The libmediaart library is the foundation for media art caching,
1368extraction, and lookup for applications on the desktop.")
1369 (home-page "https://gitlab.gnome.org/GNOME/libmediaart")
1370 (license license:lgpl2.1+)))
1371
a26680eb
RG		 1372(define-public gnome-initial-setup
1373 (package
1374 (name "gnome-initial-setup")
1375 (version "3.32.1")
1376 (source (origin
1377 (method url-fetch)
1378 (uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
1379 (version-major+minor version)
1380 "/gnome-initial-setup-" version ".tar.xz"))
1381 (sha256
1382 (base32
1383 "1gwhp7dalyc8zsb2pa66cmpdrj2d6drbq5p331sq6zp8ds10k9ry"))))
1384 (build-system meson-build-system)
1385 (arguments
a65cc579
DM		 1386 '(#:configure-flags '(;; Enable camera support for user selfie.
1387 "-Dcheese=auto"
c627e2cb
LC		 1388 "-Dsystemd=false")
1389 #:phases (modify-phases %standard-phases
1390 (add-after 'unpack 'set-gkbd-file-name
1391 (lambda* (#:key inputs #:allow-other-keys)
1392 ;; Allow the "Preview" button in the keyboard layout
1393 ;; selection dialog to display the layout.
1394 (let ((libgnomekbd (assoc-ref inputs "libgnomekbd")))
1395 (substitute* "gnome-initial-setup/pages/keyboard/cc-input-chooser.c"
1396 (("\"gkbd-keyboard-display")
1397 (string-append "\"" libgnomekbd
1398 "/bin/gkbd-keyboard-display")))
1399 #t))))))
a26680eb
RG		 1400 (native-inputs
1401 `(("gettext" ,gettext-minimal)
1402 ("glib:bin" ,glib "bin")
1403 ("gobject-introspection" ,gobject-introspection)
1404 ("gtk+:bin" ,gtk+ "bin")
1405 ("pkg-config" ,pkg-config)))
1406 (inputs
1407 `(("accountsservice" ,accountsservice)
1408 ;("adwaita-icon-theme" ,adwaita-icon-theme)
1409 ("gdm" ,gdm)
1410 ("geoclue" ,geoclue)
1411 ("gnome-desktop" ,gnome-desktop)
1412 ("gnome-getting-started-docs" ,gnome-getting-started-docs)
1413 ("gnome-online-accounts" ,gnome-online-accounts)
1414 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
1415 ("gstreamer" ,gstreamer)
1416 ("ibus" ,ibus)
1417 ("json-glib" ,json-glib)
1418 ("krb5" ,mit-krb5)
1419 ("libgweather" ,libgweather)
8d9477b8 1420 ("libnma" ,libnma)
a26680eb
RG		 1421 ("libsecret" ,libsecret)
1422 ("network-manager" ,network-manager)
a26680eb
RG		 1423 ("packagekit" ,packagekit)
1424 ("polkit" ,polkit)
1425 ("pwquality" ,libpwquality)
1426 ("rest" ,rest)
1427 ("upower" ,upower)
c627e2cb
LC		 1428 ("webkitgtk" ,webkitgtk)
1429 ("libgnomekbd" ,libgnomekbd)))
a26680eb 1430 (synopsis "Initial setup wizard for GNOME desktop")
a65cc579
DM		 1431 (description "This package provides a set-up wizard when a
1432user logs into GNOME for the first time. It typically provides a
1433tour of all gnome components and allows the user to set them up.")
a26680eb
RG		 1434 (home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
1435 (license license:gpl2)))
1436
b5f01392
RG		 1437(define-public gnome-user-share
1438 (package
1439 (name "gnome-user-share")
1440 (version "3.33.1")
1441 (source (origin
1442 (method url-fetch)
1443 (uri (string-append "mirror://gnome/sources/" name "/"
1444 (version-major+minor version) "/"
1445 name "-" version ".tar.xz"))
1446 (sha256
1447 (base32
1448 "0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
1449 (build-system meson-build-system)
1450 (arguments
1451 `(#:glib-or-gtk? #t
1452 #:configure-flags
1453 `("-Dsystemd=false"
1454 ;; Enable nautilus extension for file sharing.
1455 "-Dnautilus_extension=true")))
1456 (native-inputs
1457 `(("gettext" ,gettext-minimal)
1458 ("glib:bin" ,glib "bin")
1459 ("gobject-introspection" ,gobject-introspection)
1460 ("gtk+:bin" ,gtk+ "bin")
1461 ("pkg-config" ,pkg-config)
1462 ("yelp-tools" ,yelp-tools)))
1463 (inputs
1464 `(("glib" ,glib)
1465 ("gnome-bluetooth" ,gnome-bluetooth)
1466 ("gtk+" ,gtk+)
1467 ("libcanberra" ,libcanberra)
1468 ("libnotify" ,libnotify)
1469 ("nautilus" ,nautilus))) ; For nautilus extension.
1470 (synopsis "File sharing for GNOME desktop")
1471 (description "GNOME User Share is a small package that binds together
1472various free software projects to bring easy to use user-level file
1473sharing to the masses.")
1474 (home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
2aeca24b 1475 (license license:gpl2+)))
b5f01392 1476
04b201bb
RG		 1477(define-public sushi
1478 (package
1479 (name "sushi")
1480 (version "3.32.1")
1481 (source (origin
1482 (method url-fetch)
1483 (uri (string-append "mirror://gnome/sources/" name "/"
1484 (version-major+minor version) "/"
1485 name "-" version ".tar.xz"))
1486 (sha256
1487 (base32
1488 "02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
1489 (build-system meson-build-system)
1490 (arguments
1491 `(#:glib-or-gtk? #t
1492 #:phases
1493 (modify-phases %standard-phases
1494 (add-after 'glib-or-gtk-wrap 'wrap-typelib
1495 (lambda* (#:key outputs #:allow-other-keys)
1496 (let ((prog (string-append (assoc-ref outputs "out")
1497 "/bin/sushi")))
1498 ;; Put existing typelibs before sushi's deps, so as to correctly
1499 ;; infer gdk-pixbuf
1500 (wrap-program prog
1501 `("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
1502 #t))))))
1503 (native-inputs
1504 `(("glib:bin" ,glib "bin")
1505 ("gettext" ,gettext-minimal)
1506 ("gobject-introspection" ,gobject-introspection)
1507 ("pkg-config" ,pkg-config)))
1508 (inputs
1509 `(("clutter" ,clutter)
1510 ("clutter-gst" ,clutter-gst)
1511 ("clutter-gtk" ,clutter-gtk)
1512 ("evince" ,evince) ; For file previewing.
1513 ("freetype" ,freetype)
1514 ("gdk-pixbuf" ,gdk-pixbuf)
1515 ("gjs" ,gjs)
1516 ("gst-plugins-base" ,gst-plugins-base)
1517 ("gstreamer" ,gstreamer)
1518 ("gtksourceview" ,gtksourceview-3)
1519 ("harfbuzz" ,harfbuzz)
1520 ("libepoxy" ,libepoxy)
1521 ("libmusicbrainz" ,libmusicbrainz)
1522 ("libxml2" ,libxml2)
1523 ("neon" ,neon)
1524 ("webkitgtk" ,webkitgtk)))
1525 (synopsis "File previewer for the GNOME desktop")
1526 (description "Sushi is a DBus-activated service that allows applications to
1527preview files on the GNOME desktop.")
1528 (home-page "https://gitlab.gnome.org/GNOME/sushi")
1529 (license license:gpl2+)))
1530
89af0902
RG		 1531(define-public rygel
1532 (package
1533 (name "rygel")
1534 (version "0.38.3")
1535 (source (origin
1536 (method url-fetch)
1537 (uri (string-append "mirror://gnome/sources/" name "/"
1538 (version-major+minor version) "/"
1539 name "-" version ".tar.xz"))
1540 (sha256
1541 (base32
1542 "003xficqb08r1dgid20i7cn889lbfwrglpx78rjd5nkvgxbimhh8"))))
1543 (build-system gnu-build-system)
1544 (native-inputs
1545 `(("gettext" ,gettext-minimal)
1546 ("gobject-introspection" ,gobject-introspection)
1547 ("gtk-doc" ,gtk-doc)
1548 ("pkg-config" ,pkg-config)
1549 ("vala" ,vala)))
1550 (inputs
1551 `(("gdk-pixbuf" ,gdk-pixbuf)
1552 ("gssdp" ,gssdp)
1553 ("gstreamer" ,gstreamer)
1554 ("gst-plugins-base" ,gst-plugins-base)
1555 ("gtk+" ,gtk+)
1556 ("gupnp" ,gupnp)
1557 ("gupnp-av" ,gupnp-av)
1558 ("gupnp-dlna" ,gupnp-dlna)
1559 ("libgee" ,libgee)
1560 ("libmediaart" ,libmediaart)
1561 ("libsoup" ,libsoup)
1562 ("libxslt" ,libxslt)
1563 ("libunistring" ,libunistring)
1564 ("tracker" ,tracker)))
1565 (synopsis "Share audio, video, and pictures with other devices")
1566 (description
1567 "Rygel is a home media solution (@dfn{UPnP AV MediaServer and
1568MediaRenderer}) for GNOME that allows you to easily share audio, video, and
1569pictures, and to control a media player on your home network.
1570
1571Rygel achieves interoperability with other devices by trying to conform to the
1572strict requirements of DLNA and by converting media on-the-fly to formats that
1573client devices can handle.")
1574 (home-page "https://wiki.gnome.org/Projects/Rygel")
1575 (license (list
1576 ;; For logo (data/icons/*).
1577 license:cc-by-sa3.0
1578 ;; For all others.
1579 license:lgpl2.1+))))
1580
47e87093
RG		 1581(define-public libnma
1582 (package
b1da33d9
BW		 1583 (name "libnma")
1584 (version "1.8.28")
1585 (source (origin
1586 (method url-fetch)
1587 (uri (string-append "mirror://gnome/sources/" name "/"
1588 (version-major+minor version) "/"
1589 name "-" version ".tar.xz"))
1590 (sha256
1591 (base32
1592 "09mp6k0hfam1vyyv9kcd8j4gb2r58i05ipx2nswb58ris599bxja"))))
1593 (build-system meson-build-system)
1594 (arguments
1595 `(#:phases
1596 (modify-phases %standard-phases
1597 (add-after 'unpack 'patch-docbook-xml
1598 (lambda* (#:key inputs #:allow-other-keys)
1599 (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1600 "/xml/dtd/docbook")))
1601 (substitute* "libnma-docs.xml"
1602 (("http://.*/docbookx\\.dtd")
1603 (string-append xmldoc "/docbookx.dtd")))
1604 #t))))))
1605 (native-inputs
1606 `(("docbook-xml" ,docbook-xml-4.3)
1607 ("gettext" ,gettext-minimal)
1608 ("glib:bin" ,glib "bin")
1609 ("gtk-doc" ,gtk-doc)
1610 ("gobject-introspection" ,gobject-introspection)
1611 ("pkg-config" ,pkg-config)
1612 ("vala" ,vala)))
1613 (inputs
1614 `(("gcr" ,gcr)
1615 ("gtk+" ,gtk+)
1616 ("iso-codes" ,iso-codes)
1617 ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
1618 ("network-manager" ,network-manager)))
1619 (synopsis "Network Manager's applet library")
1620 (description "Libnma is an applet library for Network Manager. It was
47e87093
RG		 1621initially part of network-manager-applet and has now become a separate
1622project.")
c25ca6b7
BW		 1623 (home-page "https://gitlab.gnome.org/GNOME/libnma")
1624 ;; Some files carry the "GPL-2.0+" SPDX identifier while others say
1625 ;; "LGPL-2.1+".
1626 (license license:gpl2+)))
47e87093 1627
30416265
RG		 1628(define-public gnome-menus
1629 (package
1630 (name "gnome-menus")
1631 (version "3.32.0")
1632 (source (origin
1633 (method url-fetch)
1634 (uri (string-append "mirror://gnome/sources/gnome-menus/"
1635 (version-major+minor version) "/"
1636 name "-" version ".tar.xz"))
1637 (sha256
1638 (base32
1639 "0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68"))))
1640 (build-system gnu-build-system)
1641 (native-inputs
1642 `(("gettext" ,gettext-minimal)
1643 ("glib" ,glib)
1644 ("pkg-config" ,pkg-config)))
1645 (synopsis "Menu support for GNOME desktop")
1646 (description "GNOME Menus contains the libgnome-menu library, the layout
1647configuration files for the GNOME menu, as well as a simple menu editor.")
1648 (home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
7bd000d1 1649 (license license:lgpl2.0+)))
30416265 1650
d61a894b
CB		 1651(define-public deja-dup
1652 (package
1653 (name "deja-dup")
899ffa13 1654 (version "40.6")
d61a894b 1655 (source (origin
899ffa13
BW		 1656 (method url-fetch)
1657 (uri (string-append "https://gitlab.gnome.org/World/deja-dup/-/archive/"
1658 version "/deja-dup-" version ".tar.bz2"))
1659 (sha256
1660 (base32
1661 "0lwazh6crby5wpy9fg6zvwy4plqbhs2f98bm5lbizjdlbh88n5q0"))))
1662 (build-system meson-build-system)
d61a894b 1663 (arguments
899ffa13
BW		 1664 `(#:glib-or-gtk? #t
1665 #:configure-flags
1666 (list
1667 ;; Otherwise, the RUNPATH will lack the final path component.
1668 (string-append "-Dc_link_args=-Wl,-rpath="
1669 (assoc-ref %outputs "out") "/lib/deja-dup"))
d61a894b
CB		 1670 #:phases
1671 (modify-phases %standard-phases
899ffa13
BW		 1672 (add-after 'unpack 'patch-paths
1673 (lambda* (#:key inputs #:allow-other-keys)
1674 (let ((python (assoc-ref inputs "python")))
1675 (substitute* '("libdeja/tools/duplicity/DuplicityInstance.vala"
1676 "libdeja/tests/scripts/instance-error.test")
1677 (("/bin/rm")
1678 (which "rm")))
1679 (substitute* "libdeja/tests/runner.vala"
1680 (("/bin/sh")
1681 (which "sh")))
1682 (substitute* "libdeja/tests/scripts/instance-error.test"
1683 (("`which python3`")
1684 (string-append python "/bin/python3"))))))
1685 (add-after 'unpack 'patch-libgpg-error
1686 (lambda* (#:key inputs #:allow-other-keys)
1687 (let ((libgpg-error (assoc-ref inputs "libgpg-error")))
1688 (substitute* "meson.build"
1689 (("(gpgerror_libs = ).*" _ var)
1690 (format #f "~a '-L~a/lib -lgpg-error'\n" var libgpg-error))))
1691 #t))
1692 (add-after 'unpack 'skip-gtk-update-icon-cache
1693 ;; Don't create 'icon-theme.cache'.
1694 (lambda _
1695 (substitute* "data/post-install.sh"
1696 (("gtk-update-icon-cache") "true"))
1697 #t)))))
d61a894b
CB		 1698 (inputs
1699 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
d61a894b 1700 ("duplicity" ,duplicity)
899ffa13
BW		 1701 ("python" ,python)
1702 ("python-pygobject" ,python-pygobject)
d61a894b 1703 ("gtk+" ,gtk+)
899ffa13 1704 ("json-glib" ,json-glib)
d61a894b 1705 ("libnotify" ,libnotify)
899ffa13 1706 ("libgpg-error" ,libgpg-error)
d61a894b 1707 ("libsecret" ,libsecret)
899ffa13 1708 ("libsoup" ,libsoup)
d61a894b
CB		 1709 ("packagekit" ,packagekit)))
1710 (native-inputs
899ffa13
BW		 1711 `(("appstream-glib" ,appstream-glib)
1712 ("desktop-file-utils" ,desktop-file-utils)
d61a894b 1713 ("gettext" ,gettext-minimal)
899ffa13
BW		 1714 ("glib" ,glib "bin") ; for glib-compile-schemas.
1715 ("gobject-introspection" ,gobject-introspection)
d61a894b 1716 ("itstool" ,itstool)
899ffa13
BW		 1717 ("pkg-config" ,pkg-config)
1718 ("vala" ,vala)))
1719 (home-page "https://wiki.gnome.org/Apps/DejaDup")
d61a894b
CB		 1720 (synopsis "Simple backup tool, for regular encrypted backups")
1721 (description
1722 "Déjà Dup is a simple backup tool, for regular encrypted backups. It
1723uses duplicity as the backend, which supports incremental backups and storage
1724either on a local, or remote machine via a number of methods.")
1725 (license license:gpl3+)))
1726
558f8d50
VM		 1727(define-public gnome-commander
1728 (package
1729 (name "gnome-commander")
1730 (version "1.10.3")
1731 (source
1732 (origin
1733 (method url-fetch)
1734 (uri (string-append "mirror://gnome/sources/" name "/"
1735 (version-major+minor version) "/"
1736 "gnome-commander-" version ".tar.xz"))
1737 (sha256
1738 (base32 "0bis36awb73vhkncq8yr0qlnyaxynqkvmyqbg57ijqwd0m8hh4zg"))))
1739 (build-system glib-or-gtk-build-system)
1740 (native-inputs
1741 `(("desktop-file-utils" ,desktop-file-utils)
1742 ("gcc" ,gcc-8) ;required for -Wcast-function-type
1743 ("gettext" ,gettext-minimal)
1744 ("glib:bin" ,glib "bin")
1745 ("gobject-introspection" ,gobject-introspection)
1746 ("googletest" ,googletest)
1747 ("intltool" ,intltool)
1748 ("itstool" ,itstool)
1749 ("libtool" ,libtool)
1750 ("pkg-config" ,pkg-config)))
1751 (inputs
1752 `(("gconf" ,gconf)
1753 ("gnome-vfs" ,gnome-vfs)
1754 ("gtk+" ,gtk+-2)
1755 ("libxml2" ,libxml2)))
1756 (home-page "https://gcmd.github.io/")
1757 (synopsis "Two-pane graphical file manager for the GNOME desktop")
1758 (description
1759 "GNOME Commander is a two-pane graphical file manager using GNOME
1760libraries. It aims to fulfill the demands of more advanced users who
1761like to focus on file management, their work through special applications
1762and running smart commands.")
1763 (license license:gpl2+)))
d61a894b 1764
823b77fb
RG		 1765(define-public gnome-user-docs
1766 (package
1767 (name "gnome-user-docs")
1768 (version "3.32.3")
1769 (source
1770 (origin
1771 (method url-fetch)
1772 (uri (string-append "mirror://gnome/sources/gnome-user-docs/"
1773 (version-major+minor version)
1774 "/gnome-user-docs-" version ".tar.xz"))
1775 (sha256
1776 (base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig"))))
1777 (build-system gnu-build-system)
1778 (native-inputs
1779 `(("gettext" ,gettext-minimal)
1780 ("itstool" ,itstool)
1781 ("pkg-config" ,pkg-config)
1782 ("xmllint" ,libxml2)))
1783 (synopsis "User documentation for the GNOME desktop")
1784 (description
1785 "The GNOME User Documentation explains how to use the GNOME desktop and its
1786components. It covers usage and setup of the core GNOME programs by end-users
1787and system administrators.")
1788 (home-page "https://live.gnome.org/DocumentationProject")
1789 (license license:cc-by3.0)))
1790
be93299d
RG		 1791(define-public gnome-getting-started-docs
1792 (package
1793 (name "gnome-getting-started-docs")
1794 (version "3.32.2")
1795 (source
1796 (origin
1797 (method url-fetch)
1798 (uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/"
1799 (version-major+minor version)
1800 "/gnome-getting-started-docs-" version ".tar.xz"))
1801 (sha256
1802 (base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq"))))
1803 (build-system gnu-build-system)
1804 (native-inputs
1805 `(("gettext" ,gettext-minimal)
1806 ("itstool" ,itstool)
1807 ("pkg-config" ,pkg-config)
1808 ("xmllint" ,libxml2)))
1809 (synopsis "Help to get new users started with the GNOME desktop")
1810 (description
1811 "The GNOME Getting Started Documentation contains GNOME's intuitive
1812\"Getting Started\" tour, with video guides, that can be viewed with Yelp.
1813
1814It is normally used together with @command{gnome-initial-setup}, but is also
1815useful as a tutorial and users' guide for new or less experienced users.")
1816 (home-page "https://live.gnome.org/DocumentationProject")
1817 (license license:cc-by-sa3.0)))
1818
a56be436
RJ		 1819(define-public dia
1820 ;; This version from GNOME's repository includes fixes for compiling with
1821 ;; recent versions of the build tools. The latest activity on the
1822 ;; pre-GNOME version has been in 2014, while GNOME has continued applying
f8687cb2
TGR		 1823 ;; fixes since.
1824 (let ((commit "3cf7ec4c2e5bca139a7f3e17f9fc9009c237fcc5")
1825 (revision "2"))
a56be436
RJ		 1826 (package
1827 (name "dia")
f8687cb2 1828 (version (git-version "0.97.3" revision commit))
a56be436
RJ		 1829 (source (origin
1830 (method git-fetch)
1831 (uri (git-reference
914c8cdf 1832 (url "https://gitlab.gnome.org/GNOME/dia.git/")
a56be436 1833 (commit commit)))
914c8cdf 1834 (file-name (git-file-name name version))
a56be436
RJ		 1835 (sha256
1836 (base32
f8687cb2
TGR		 1837 "04r8dspa6nmicrifhi3sh46hqvyy88hzq37xx99q3q1mwsrpmwy8"))))
1838 (build-system meson-build-system)
a56be436 1839 (inputs
f8687cb2 1840 `(("graphene" ,graphene)
a56be436
RJ		 1841 ("gtk+" ,gtk+-2)
1842 ("libxml2" ,libxml2)
f8687cb2
TGR		 1843 ("libxslt" ,libxslt)
1844 ("poppler" ,poppler)
1845 ;; Without Python 2, build fails: plug-ins/python/meson.build:4:0:
1846 ;; ERROR: Unknown method "dependency" in object.
1847 ("python-2" ,python-2)))
a56be436 1848 (native-inputs
f8687cb2
TGR		 1849 `(("appstream-glib" ,appstream-glib)
1850 ("docbook-xsl" ,docbook-xsl)
a315afa3 1851 ("glib" ,glib "bin")
f8687cb2
TGR		 1852 ("intltool" ,intltool)
1853 ("pkg-config" ,pkg-config)))
a56be436
RJ		 1854 (home-page "https://wiki.gnome.org/Apps/Dia")
1855 (synopsis "Diagram creation for GNOME")
1856 (description "Dia can be used to draw different types of diagrams, and
1857includes support for UML static structure diagrams (class diagrams), entity
1858relationship modeling, and network diagrams. The program supports various file
1859formats like PNG, SVG, PDF and EPS.")
1860 (license license:gpl2+))))
1861
d0b19e44
RW		 1862;; This is the unstable release, but it is required for the current stable
1863;; release of gvfs (1.38.1).
adc5cb1b
KK		 1864(define-public libgdata
1865 (package
1866 (name "libgdata")
d0b19e44 1867 (version "0.17.9")
adc5cb1b
KK		 1868 (source (origin
1869 (method url-fetch)
1870 (uri (string-append "mirror://gnome/sources/" name "/"
1871 (version-major+minor version) "/"
1872 name "-" version ".tar.xz"))
1873 (sha256
1874 (base32
d0b19e44 1875 "0fj54yqxdapdppisqm1xcyrpgcichdmipq0a0spzz6009ikzgi45"))))
adc5cb1b
KK		 1876 (build-system gnu-build-system)
1877 (arguments
1878 '(#:phases
1879 (modify-phases %standard-phases
448052b7
TGR		 1880 (add-before 'check 'disable-failing-tests
1881 (lambda _
1882 ;; The PicasaWeb API tests fail with gnome-online-accounts@3.24.2.
1883 ;; They have been removed in libgdata 0.17.6, so just do the same.
1884 (substitute* "gdata/tests/Makefile"
1885 (("picasaweb\\$\\(EXEEXT\\) ") ""))
adc5cb1b
KK		 1886 #t)))))
1887 (native-inputs
1888 `(("glib:bin" ,glib "bin")
1889 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
1890 ("intltool" ,intltool)
1891 ("pkg-config" ,pkg-config)
1892 ("uhttpmock" ,uhttpmock)))
1893 (inputs
1894 `(("cyrus-sasl" ,cyrus-sasl)
d0b19e44 1895 ("glib-networking" ,glib-networking)))
adc5cb1b
KK		 1896 (propagated-inputs
1897 `(("gcr" ,gcr)
d0b19e44 1898 ("glib" ,glib)
14c297fd 1899 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
d0b19e44 1900 ("json-glib" ,json-glib)
adc5cb1b 1901 ("liboauth" ,liboauth)
d0b19e44 1902 ("libsoup" ,libsoup)
adc5cb1b
KK		 1903 ("libxml2" ,libxml2)))
1904 (home-page "https://wiki.gnome.org/Projects/libgdata")
1905 (synopsis "Library for accessing online service APIs")
1906 (description
1907 "libgdata is a GLib-based library for accessing online service APIs using
1908the GData protocol — most notably, Google's services. It provides APIs to
1909access the common Google services, and has full asynchronous support.")
1910 (license license:lgpl2.1+)))
1911
94e10cf4
KK		 1912(define-public libgxps
1913 (package
1914 (name "libgxps")
66470a5a 1915 (version "0.3.1")
94e10cf4
KK		 1916 (source (origin
1917 (method url-fetch)
7f10628c 1918 (uri (string-append "mirror://gnome/sources/" name "/"
94e10cf4
KK		 1919 (version-major+minor version) "/"
1920 name "-" version ".tar.xz"))
1921 (sha256
1922 (base32
66470a5a 1923 "157s4c9gjjss6yd7qp7n4q6s72gz1k4ilsx4xjvp357azk49z4qs"))))
b6b3e512 1924 (build-system meson-build-system)
94e10cf4
KK		 1925 (native-inputs
1926 `(("gobject-introspection" ,gobject-introspection)
1927 ("pkg-config" ,pkg-config)))
1928 (inputs
c8d62d93 1929 `(("gtk+" ,gtk+)
b6b3e512 1930 ("libjpeg" ,libjpeg-turbo)
94e10cf4 1931 ("lcms" ,lcms)
0a6e9e13 1932 ("libtiff" ,libtiff)))
c8d62d93
MB		 1933 (propagated-inputs
1934 ;; In Requires of libgxps.pc.
1935 `(("cairo" ,cairo)
1936 ("glib" ,glib)
1937 ("libarchive" ,libarchive)))
94e10cf4
KK		 1938 (home-page "https://wiki.gnome.org/Projects/libgxps")
1939 (synopsis "GObject-based library for handling and rendering XPS documents")
1940 (description
1941 "libgxps is a GObject-based library for handling and rendering XPS
1942documents. This package also contains binaries that can convert XPS documents
1943to other formats.")
1944 (license license:lgpl2.1+)))
1945
4e09f57a
RG		 1946(define-public gnome-characters
1947 (package
1948 (name "gnome-characters")
1949 (version "3.30.0")
1950 (source
1951 (origin
1952 (method url-fetch)
1953 (uri (string-append "mirror://gnome/sources/"
1954 "gnome-characters/" (version-major+minor version)
1955 "/gnome-characters-" version ".tar.xz"))
1956 (sha256
1957 (base32
1958 "08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
1959 (build-system meson-build-system)
5757c641 1960 (arguments
1961 `(#:glib-or-gtk? #t
1962 #:phases (modify-phases %standard-phases
1963 (add-after 'install 'wrap
1964 (lambda* (#:key outputs #:allow-other-keys)
1965 ;; GNOME Characters needs Typelib files from GTK and
1966 ;; gnome-desktop.
1967 (wrap-program (string-append (assoc-ref outputs "out")
1968 "/bin/gnome-characters")
1969 `("GI_TYPELIB_PATH" ":" prefix
1970 (,(getenv "GI_TYPELIB_PATH"))))
1971 #t)))))
4e09f57a
RG		 1972 (native-inputs
1973 `(("gettext" ,gettext-minimal)
1974 ("glib:bin" ,glib "bin")
1975 ("gtk+:bin" ,gtk+ "bin")
1976 ("pkg-config" ,pkg-config)
1977 ("python" ,python-minimal)))
1978 (inputs
1979 `(("gjs" ,gjs)
1980 ("gtk+" ,gtk+)
5757c641 1981 ("libunistring" ,libunistring)
1982 ("gnome-desktop" ,gnome-desktop)))
4e09f57a
RG		 1983 (home-page "https://wiki.gnome.org/Apps/CharacterMap")
1984 (synopsis "Find and insert unusual characters")
1985 (description "Characters is a simple utility application to find
1986and insert unusual characters. It allows you to quickly find the
1987character you are looking for by searching for keywords.")
1988 (license license:bsd-3)))
1989
7aab13f1
ML		 1990(define-public gnome-common
1991 (package
1992 (name "gnome-common")
af83490d 1993 (version "3.18.0")
7aab13f1
ML		 1994 (source
1995 (origin
1996 (method url-fetch)
1997 (uri (string-append "mirror://gnome/sources/" name "/"
1998 (version-major+minor version) "/"
1999 name "-" version ".tar.xz"))
2000 (sha256
2001 (base32
af83490d 2002 "1kzqi8qvh5p1zncj8msazlmvcwsczjz2hqxp4x2y0mg718vrwmi2"))))
7aab13f1
ML		 2003 (build-system gnu-build-system)
2004 (home-page "https://www.gnome.org/")
2005 (synopsis "Bootstrap GNOME modules built from Git")
2006 (description "gnome-common contains various files needed to bootstrap
2007GNOME modules built from Git. It contains a common \"autogen.sh\" script that
2008can be used to configure a source directory checked out from Git and some
2009commonly used macros.")
2010 (license license:gpl2+)))
2011
4e868d22
RG		 2012(define-public gnome-contacts
2013 (package
2014 (name "gnome-contacts")
b3492e39 2015 (version "3.34")
4e868d22
RG		 2016 (source (origin
2017 (method url-fetch)
2018 (uri (string-append "mirror://gnome/sources/gnome-contacts/"
2019 (version-major+minor version) "/"
2020 name "-" version ".tar.xz"))
2021 (sha256
2022 (base32
b3492e39 2023 "04igc9xvyc4kb5xf5g2missnvyvj9zv5cqxf5k4z7hb0sv42wq4r"))))
4e868d22
RG		 2024 (build-system meson-build-system)
2025 (arguments
b3492e39
KK		 2026 `(#:configure-flags '("-Dcheese=false")
2027 #:phases
4e868d22
RG		 2028 (modify-phases %standard-phases
2029 (add-after 'unpack 'generate-vapis
2030 (lambda* (#:key inputs #:allow-other-keys)
2031 ;; To generate goa's missing .vapi file
2032 (define goa
2033 (assoc-ref inputs "gnome-online-accounts:lib"))
2034
2035 (invoke "vapigen" "--directory=vapi" "--pkg=gio-2.0"
2036 "--library=goa-1.0"
2037 (string-append goa "/share/gir-1.0/Goa-1.0.gir"))
b3492e39
KK		 2038 #t))
2039 (add-after 'unpack 'skip-gtk-update-icon-cache
2040 ;; Don't create 'icon-theme.cache'.
2041 (lambda _
2042 (substitute* "build-aux/meson_post_install.py"
2043 (("gtk-update-icon-cache") "true"))
4e868d22
RG		 2044 #t)))))
2045 (native-inputs
2046 `(("glib:bin" ,glib "bin")
4e868d22
RG		 2047 ("pkg-config" ,pkg-config)))
2048 (inputs
b3492e39 2049 `(("docbook-xml" ,docbook-xml)
4e868d22
RG		 2050 ("dockbook-xsl" ,docbook-xsl)
2051 ("evolution-data-server" ,evolution-data-server)
2052 ("gettext" ,gettext-minimal)
2053 ("gnome-desktop" ,gnome-desktop)
2054 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
2055 ("gobject-introspection" ,gobject-introspection)
2056 ("gst-plugins-base" ,gst-plugins-base)
2057 ("gtk+" ,gtk+)
2058 ("libgee" ,libgee)
2059 ("libxslt" ,libxslt)
2060 ("telepathy-glib" ,telepathy-glib)
2061 ("vala" ,vala)))
2062 (propagated-inputs
1628d57b 2063 `(("folks" ,folks)
4e868d22
RG		 2064 ("telepathy-mission-control" ,telepathy-mission-control)))
2065 (synopsis "GNOME's integrated address book")
2066 (description
2067 "GNOME Contacts organizes your contact information from online and
2068offline sources, providing a centralized place for managing your contacts.")
2069 (home-page "https://wiki.gnome.org/Apps/Contacts")
2070 (license license:gpl2+)))
2071
9cc98f8a
CR		 2072(define-public gnome-desktop
2073 (package
2074 (name "gnome-desktop")
8a7afc81 2075 (version "3.34.2")
9cc98f8a
CR		 2076 (source
2077 (origin
2078 (method url-fetch)
b38e45d8
EB		 2079 (uri (string-append "mirror://gnome/sources/" name "/"
2080 (version-major+minor version) "/"
9cc98f8a
CR		 2081 name "-" version ".tar.xz"))
2082 (sha256
2083 (base32
8a7afc81 2084 "1v983xirwp1y6ggz97bh742ak6gff0hxb359dgn37nikjxhvm0a0"))))
e8a26caa 2085 (build-system meson-build-system)
a0fe7c06
CB		 2086 (arguments
2087 '(#:phases
2088 (modify-phases %standard-phases
2089 (add-before 'configure 'patch-path
2090 (lambda* (#:key inputs #:allow-other-keys)
2091 (let ((libc (assoc-ref inputs "libc")))
2092 (substitute* "libgnome-desktop/gnome-languages.c"
2093 (("\"locale\"")
2094 (string-append "\"" libc "/bin/locale\"")))
e8a26caa 2095 #t)))
3857aba7
CB		 2096 (add-before 'configure 'patch-bubblewrap
2097 (lambda* (#:key inputs #:allow-other-keys)
2098 (substitute* "libgnome-desktop/gnome-desktop-thumbnail-script.c"
2099 (("\"bwrap\",")
2100 (string-append "\"" (which "bwrap") "\","))
2101 (("\"--ro-bind\", \"/usr\", \"/usr\",")
2102 (string-append "\"--ro-bind\", \""
2103 (%store-directory)
2104 "\", \""
2105 (%store-directory)
2106 "\","))
2107 (("\"--ro-bind\", \"/etc/ld.so.cache\", \"/etc/ld.so.cache\",") ""))
2108 #t))
e8a26caa
KK		 2109 (add-before 'check 'pre-check
2110 (lambda* (#:key inputs #:allow-other-keys)
2111 ;; Tests require a running X server and locales.
2112 (system "Xvfb :1 &")
2113 (setenv "DISPLAY" ":1")
2114 (setenv "GUIX_LOCPATH"
2115 (string-append (assoc-ref inputs "glibc-locales")
2116 "/lib/locale"))
2117 #t)))))
9cc98f8a 2118 (native-inputs
e8a26caa
KK		 2119 `(("glib:bin" ,glib "bin") ; for gdbus-codegen
2120 ("glibc-locales" ,glibc-locales) ; for tests
2121 ("gobject-introspection" ,gobject-introspection)
a8340482 2122 ("itstool" ,itstool)
bcb354ad
SB		 2123 ("intltool" ,intltool)
2124 ("pkg-config" ,pkg-config)
e8a26caa
KK		 2125 ("xmllint" ,libxml2)
2126 ("xorg-server" ,xorg-server-for-tests)))
a8340482
SB		 2127 (propagated-inputs
2128 ;; Required by gnome-desktop-3.0.pc.
2129 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
e8a26caa 2130 ("gtk+" ,gtk+)
9cc98f8a 2131 ("iso-codes" ,iso-codes)
9863ce20 2132 ("libseccomp" ,libseccomp)
9cc98f8a 2133 ("libx11" ,libx11)
e8a26caa
KK		 2134 ("xkeyboard-config" ,xkeyboard-config)))
2135 (inputs
2136 `(("gdk-pixbuf" ,gdk-pixbuf)
2137 ("glib" ,glib)
3857aba7 2138 ("bubblewrap" ,bubblewrap)
9cc98f8a
CR		 2139 ("libxext" ,libxext)
2140 ("libxkbfile" ,libxkbfile)
e8a26caa 2141 ("libxrandr" ,libxrandr)))
9cc98f8a
CR		 2142 (home-page "https://www.gnome.org/")
2143 (synopsis
35b9e423 2144 "Libgnome-desktop, gnome-about, and desktop-wide documents")
9cc98f8a
CR		 2145 (description
2146 "The libgnome-desktop library provides API shared by several applications
35b9e423
EB		 2147on the desktop, but that cannot live in the platform for various reasons.
2148There is no API or ABI guarantee, although we are doing our best to provide
2149stability. Documentation for the API is available with gtk-doc.
9cc98f8a
CR		 2150
2151The gnome-about program helps find which version of GNOME is installed.")
2152 ; Some bits under the LGPL.
1dd26275 2153 (license license:gpl2+)))
9cc98f8a 2154
995b7261
AE		 2155(define-public gnome-doc-utils
2156 (package
2157 (name "gnome-doc-utils")
2158 (version "0.20.10")
2159 (source
2160 (origin
2161 (method url-fetch)
b38e45d8
EB		 2162 (uri (string-append "mirror://gnome/sources/" name "/"
2163 (version-major+minor version) "/"
995b7261
AE		 2164 name "-" version ".tar.xz"))
2165 (sha256
2166 (base32
2167 "19n4x25ndzngaciiyd8dd6s2mf9gv6nv3wv27ggns2smm7zkj1nb"))))
2168 (build-system gnu-build-system)
c4c4cc05 2169 (native-inputs
995b7261 2170 `(("intltool" ,intltool)
b4ce6300 2171 ("docbook-xml" ,docbook-xml-4.4)
d80b0d4a 2172 ("python2-libxml2" ,python2-libxml2)
995b7261
AE		 2173 ("libxml2" ,libxml2)
2174 ("libxslt" ,libxslt)
2175 ("pkg-config" ,pkg-config)
2176 ("python-2" ,python-2)))
995b7261
AE		 2177 (home-page "https://wiki.gnome.org/GnomeDocUtils")
2178 (synopsis
2179 "Documentation utilities for the Gnome project")
2180 (description
2181 "Gnome-doc-utils is a collection of documentation utilities for the
2182Gnome project. It includes xml2po tool which makes it easier to translate
2183and keep up to date translations of documentation.")
1dd26275 2184 (license license:gpl2+))) ; xslt under lgpl
d9c1a22b 2185
6c4f7022
DC		 2186(define-public gnome-disk-utility
2187 (package
2188 (name "gnome-disk-utility")
262e660e 2189 (version "3.34.0")
6c4f7022
DC		 2190 (source (origin
2191 (method url-fetch)
2192 (uri (string-append "mirror://gnome/sources/" name "/"
2193 (version-major+minor version) "/"
2194 name "-" version ".tar.xz"))
2195 (sha256
2196 (base32
262e660e 2197 "1mb7q90lnlp97dhxhnadhjagcfd12dfqzp0vj9h6b1r61pzhy97y"))))
4b9a65bf 2198 (build-system meson-build-system)
321c73c3 2199 (arguments
262e660e
KK		 2200 '(#:configure-flags '("-Dlogind=libelogind")
2201 #:phases
321c73c3
EF		 2202 (modify-phases %standard-phases
2203 (add-after 'unpack 'skip-gtk-update-icon-cache
2204 ;; Don't create 'icon-theme.cache'.
2205 (lambda _
2206 (substitute* "meson_post_install.py"
2207 (("gtk-update-icon-cache") "true"))
2208 #t)))))
6c4f7022
DC		 2209 (native-inputs
2210 `(("glib:bin" ,glib "bin")
2211 ("intltool" ,intltool)
2212 ("pkg-config" ,pkg-config)
2213 ("docbook-xml" ,docbook-xml)
2214 ("docbook-xsl" ,docbook-xsl)
2215 ("libxml2" ,libxml2)
2216 ("libxslt" ,libxslt)))
2217 (inputs
262e660e
KK		 2218 `(("elogind" ,elogind)
2219 ("glib" ,glib)
6c4f7022
DC		 2220 ("appstream-glib" ,appstream-glib)
2221 ("gnome-settings-daemon" ,gnome-settings-daemon)
2222 ("gtk+" ,gtk+)
2223 ("libcanberra" ,libcanberra)
2224 ("libdvdread" ,libdvdread)
2225 ("libnotify" ,libnotify)
2226 ("libpwquality" ,libpwquality)
2227 ("libsecret" ,libsecret)
2228 ("udisks" ,udisks)))
2229 (home-page "https://git.gnome.org/browse/gnome-disk-utility")
2230 (synopsis "Disk management utility for GNOME")
2231 (description "Disk management utility for GNOME.")
2232 (license license:gpl2+)))
2233
3d217317
RG		 2234(define-public gnome-font-viewer
2235 (package
2236 (name "gnome-font-viewer")
2237 (version "3.30.0")
2238 (source (origin
2239 (method url-fetch)
2240 (uri (string-append "mirror://gnome/sources/gnome-font-viewer/"
2241 (version-major+minor version)
2242 "/gnome-font-viewer-" version ".tar.xz"))
2243 (sha256
2244 (base32
2245 "1wwnx2zrlbd2d6np7m9s78alx6j6ranrnh1g2z6zrv9qcj8rpzz5"))))
2246 (build-system meson-build-system)
2247 (arguments
2248 '(#:phases
2249 (modify-phases %standard-phases
2250 (add-after 'unpack 'patch-post-install-script
2251 (lambda _
2252 (substitute* "meson-postinstall.sh"
2253 (("update-desktop-database") (which "true")))
2254 #t)))))
2255 (native-inputs
2256 `(("gettext" ,gettext-minimal)
2257 ("glib:bin" ,glib "bin")
2258 ("pkg-config" ,pkg-config)))
2259 (inputs
2260 `(("glib" ,glib)
2261 ("gnome-desktop" ,gnome-desktop)
2262 ("gtk+" ,gtk+)))
2263 (home-page "https://gitlab.gnome.org/GNOME/gnome-font-viewer")
2264 (synopsis "GNOME Fonts")
2265 (description "Application to show you the fonts installed on your computer
2266for your use as thumbnails. Selecting any thumbnails shows the full view of how
2267the font would look under various sizes.")
2268 (license license:gpl2+)))
2269
8ff49011
RW		 2270(define-public gcr
2271 (package
2272 (name "gcr")
1de804da 2273 (version "3.34.0")
8ff49011 2274 (source (origin
0daf0efb
RW		 2275 (method url-fetch)
2276 (uri (string-append "mirror://gnome/sources/" name "/"
2277 (version-major+minor version) "/"
2278 name "-" version ".tar.xz"))
2279 (sha256
2280 (base32
1de804da 2281 "0925snsixzkwh49xiayqmj6fcrmklqk8kyy0jkv7m64h9abm1pr9"))))
8ff49011
RW		 2282 (build-system gnu-build-system)
2283 (arguments
0daf0efb
RW		 2284 '(#:phases
2285 (modify-phases %standard-phases
2286 ;; These fail because /var/lib/dbus/machine-id is not present in the
2287 ;; build environment.
2288 (add-after 'unpack 'disable-failing-tests
2289 (lambda _
1de804da
MB		 2290 (substitute* "Makefile.in"
2291 (("[[:blank:]]+test-system-prompt\\$\\(EXEEXT\\)")
2292 ""))
0daf0efb
RW		 2293 #t))
2294 (add-before 'check 'pre-check
2295 (lambda _
2296 ;; Some tests expect to write to $HOME.
2297 (setenv "HOME" "/tmp")
2298 #t)))))
8ff49011
RW		 2299 (inputs
2300 `(("dbus" ,dbus)
0daf0efb 2301 ("gnupg" ,gnupg) ;called as a child process during tests
8ff49011
RW		 2302 ("libgcrypt" ,libgcrypt)))
2303 (native-inputs
1de804da 2304 `(("python" ,python-wrapper) ;for tests
8ff49011 2305 ("pkg-config" ,pkg-config)
1de804da 2306 ("gettext" ,gettext-minimal)
8ff49011 2307 ("glib" ,glib "bin")
2af4f5b0 2308 ("gobject-introspection" ,gobject-introspection)
0daf0efb 2309 ("libxml2" ,libxml2)
bea6b829 2310 ("vala" ,vala)
2af4f5b0 2311 ("xsltproc" ,libxslt)))
8ff49011
RW		 2312 ;; mentioned in gck.pc, gcr.pc and gcr-ui.pc
2313 (propagated-inputs
2314 `(("p11-kit" ,p11-kit)
2315 ("glib" ,glib)
2316 ("gtk+" ,gtk+)))
f032d0be 2317 (home-page "https://www.gnome.org")
8ff49011
RW		 2318 (synopsis "Libraries for displaying certificates and accessing key stores")
2319 (description
2320 "The GCR package contains libraries used for displaying certificates and
2321accessing key stores. It also provides the viewer for crypto files on the
2322GNOME Desktop.")
2323 (license license:lgpl2.1+)))
2324
88e61bd4
MC		 2325(define-public gdl
2326 (package
2327 (name "gdl")
2328 (version "3.34.0")
2329 (source (origin
2330 (method git-fetch)
2331 (uri (git-reference
2332 (url "https://gitlab.gnome.org/GNOME/gdl.git")
2333 (commit (string-append "GDL_" (string-map (match-lambda
2334 (#\. #\_)
2335 (c c))
2336 version)))))
2337 (file-name (git-file-name name version))
2338 (sha256
2339 (base32
2340 "154qcr0x6f68f4q526y87imv0rscmp34n47nk1pp82rsq52h2zna"))))
2341 (build-system gnu-build-system)
88e61bd4
MC		 2342 (native-inputs
2343 `(("autoconf" ,autoconf)
2344 ("automake" ,automake)
2345 ("glib" ,glib "bin") ; for glib-genmarshal, etc.
2346 ("gnome-common" ,gnome-common)
2347 ("gtk-doc" ,gtk-doc)
2348 ("intltool" ,intltool)
2349 ("pkg-config" ,pkg-config)
2350 ("libtool" ,libtool)
2351 ("which" ,which)))
2352 (inputs
2353 `(("libxml2" ,libxml2)))
2354 (propagated-inputs
2355 ;; The gdl-3.0.pc file 'Requires' GTK+.
2356 `(("gtk+" ,gtk+)))
2357 (home-page "https://gitlab.gnome.org/GNOME/gdl/")
2358 (synopsis "GNOME docking library")
2359 (description "This library provides docking features for gtk+.")
2360 (license license:lgpl2.1+)))
2361
ca3adf26
MC		 2362;;; A minimal variant used to break a cycle with Inkscape.
2363(define-public gdl-minimal
2364 (package
2365 (inherit gdl)
2366 (name "gdl-minimal")
2367 (arguments
70cf0113
EF		 2368 '(#:phases
2369 (modify-phases %standard-phases
2370 (add-after 'unpack 'disable-doc-generation
2371 ;; XXX: There is no easy way to disable generating the
2372 ;; documentation.
2373 (lambda _
2374 (substitute* "configure.in"
2375 (("GTK_DOC_CHECK.*") "")
2376 (("docs/.*") ""))
2377 (substitute* "Makefile.am"
2378 (("gdl docs po") "gdl po"))
2379 #t)))))
ca3adf26
MC		 2380 (native-inputs (alist-delete "gtk-doc" (package-native-inputs gdl)))))
2381
c1354b90
LC		 2382(define-public libgnome-keyring
2383 (package
2384 (name "libgnome-keyring")
5e8aec2c 2385 (version "3.12.0")
c1354b90
LC		 2386 (source (origin
2387 (method url-fetch)
b38e45d8
EB		 2388 (uri (string-append "mirror://gnome/sources/" name "/"
2389 (version-major+minor version) "/"
2390 name "-" version ".tar.xz"))
c1354b90
LC		 2391 (sha256
2392 (base32
5e8aec2c 2393 "10vpjhgbjm7z2djy04qakd02qlzpd02xnbfjhk2aqwjzn3xpihf4"))))
c1354b90 2394 (build-system gnu-build-system)
c1354b90 2395 (inputs
c4c4cc05 2396 `(("libgcrypt" ,libgcrypt)
c1354b90 2397 ("dbus" ,dbus)))
c4c4cc05
JD		 2398 (native-inputs
2399 `(("pkg-config" ,pkg-config)
426adbe8 2400 ("glib" ,glib "bin")
c4c4cc05 2401 ("intltool" ,intltool)))
c1354b90
LC		 2402 (propagated-inputs
2403 ;; Referred to in .h files and .pc.
2404 `(("glib" ,glib)))
f032d0be 2405 (home-page "https://www.gnome.org")
c1354b90
LC		 2406 (synopsis "Accessing passwords from the GNOME keyring")
2407 (description
2408 "Client library to access passwords from the GNOME keyring.")
2409
2410 ;; Though a couple of files are LGPLv2.1+.
1dd26275 2411 (license license:lgpl2.0+)))
c1354b90 2412
e99a3d6f
RW		 2413(define-public gnome-keyring
2414 (package
2415 (name "gnome-keyring")
14faeadd 2416 (version "3.34.0")
e99a3d6f
RW		 2417 (source (origin
2418 (method url-fetch)
2419 (uri (string-append "mirror://gnome/sources/" name "/"
2420 (version-major+minor version) "/"
2421 name "-" version ".tar.xz"))
2422 (sha256
2423 (base32
14faeadd 2424 "0hqrsh5g9q9lm190f0m85q4nki8k4ng7wphl6qbccdry59aakkg9"))))
e99a3d6f
RW		 2425 (build-system gnu-build-system)
2426 (arguments
2427 `(#:tests? #f ;48 of 603 tests fail because /var/lib/dbus/machine-id does
2428 ;not exist
2429 #:configure-flags
2430 (list
2431 (string-append "--with-pkcs11-config="
2432 (assoc-ref %outputs "out") "/share/p11-kit/modules/")
2433 (string-append "--with-pkcs11-modules="
2434 (assoc-ref %outputs "out") "/share/p11-kit/modules/"))
2435 #:phases
2436 (modify-phases %standard-phases
ab35cc6e
RW		 2437 (add-after 'unpack 'fix-/bin/sh-reference
2438 (lambda _
2439 (substitute* "po/Makefile.in.in"
2440 (("/bin/sh") (which "sh")))
2441 #t))
5120f24f
RW		 2442 (add-after 'unpack 'fix-docbook
2443 (lambda* (#:key inputs #:allow-other-keys)
2444 (substitute* "docs/Makefile.am"
2445 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2446 (string-append (assoc-ref inputs "docbook-xsl")
2447 "/xml/xsl/docbook-xsl-"
2448 ,(package-version docbook-xsl)
2449 "/manpages/docbook.xsl")))
2450 (setenv "XML_CATALOG_FILES"
2451 (string-append (assoc-ref inputs "docbook-xml")
2452 "/xml/dtd/docbook/catalog.xml"))
2453 ;; Rerun the whole thing to avoid version mismatch ("This is
2454 ;; Automake 1.15.1, but the definition used by this
2455 ;; AM_INIT_AUTOMAKE comes from Automake 1.15."). Note: we don't
2456 ;; use 'autoreconf' because it insists on running 'libtoolize'.
2457 (invoke "autoconf")
2458 (invoke "aclocal")
2459 (invoke "automake" "-ac"))))))
e99a3d6f
RW		 2460 (inputs
2461 `(("libgcrypt" ,libgcrypt)
1a0b2d82 2462 ("linux-pam" ,linux-pam)
ab35cc6e 2463 ("openssh" ,openssh)
e99a3d6f
RW		 2464 ("dbus" ,dbus)
2465 ("gcr" ,gcr)))
2466 (native-inputs
2467 `(("pkg-config" ,pkg-config)
2468 ("glib" ,glib "bin")
5120f24f 2469 ("glib" ,glib) ; for m4 macros
e99a3d6f
RW		 2470 ("python" ,python-2) ;for tests
2471 ("intltool" ,intltool)
2472 ("autoconf" ,autoconf)
2473 ("automake" ,automake)
2474 ("libxslt" ,libxslt) ;for documentation
2475 ("docbook-xml" ,docbook-xml-4.2)
2476 ("docbook-xsl" ,docbook-xsl)))
f032d0be 2477 (home-page "https://www.gnome.org")
e99a3d6f
RW		 2478 (synopsis "Daemon to store passwords and encryption keys")
2479 (description
2480 "gnome-keyring is a program that keeps passwords and other secrets for
2481users. It is run as a daemon in the session, similar to ssh-agent, and other
2482applications locate it via an environment variable or D-Bus.
2483
2484The program can manage several keyrings, each with its own master password,
2485and there is also a session keyring which is never stored to disk, but
2486forgotten when the session ends.")
2487 (license license:lgpl2.1+)))
2488
c1354b90
LC		 2489(define-public evince
2490 (package
2491 (name "evince")
de08b5b2 2492 (version "3.36.5")
c1354b90
LC		 2493 (source (origin
2494 (method url-fetch)
ac631328 2495 (uri (string-append "mirror://gnome/sources/evince/"
b38e45d8 2496 (version-major+minor version) "/"
ac631328 2497 "evince-" version ".tar.xz"))
c1354b90
LC		 2498 (sha256
2499 (base32
de08b5b2 2500 "0z79jl0j9xq9wgwkfr0d1w1qrdy4447y8shs407n5srr0vixc3bg"))))
121de2e1 2501 (build-system glib-or-gtk-build-system)
c1354b90 2502 (arguments
169b8f77 2503 `(#:configure-flags '("--disable-nautilus" "--enable-introspection")
554b2dac
SB		 2504 #:phases
2505 (modify-phases %standard-phases
2506 (add-before 'install 'skip-gtk-update-icon-cache
2507 ;; Don't create 'icon-theme.cache'.
2508 (lambda _
2509 (substitute* "data/Makefile"
2510 (("gtk-update-icon-cache") "true"))
2511 #t)))))
c1354b90 2512 (inputs
9a096881
KK		 2513 `(("libarchive" ,libarchive)
2514 ("libgxps" ,libgxps)
2515 ("libspectre" ,libspectre)
c769cf9f 2516 ("djvulibre" ,djvulibre)
c1354b90
LC		 2517 ("ghostscript" ,ghostscript)
2518 ("poppler" ,poppler)
c769cf9f
SB		 2519 ("libtiff" ,libtiff)
2520 ;; TODO:
c769cf9f
SB		 2521 ;; Build libkpathsea as a shared library for DVI support.
2522 ;; ("libkpathsea" ,texlive-bin)
2523 ("gnome-desktop" ,gnome-desktop)
c1354b90 2524 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2dfc16d1 2525 ("gspell" ,gspell)
c1354b90 2526 ("libgnome-keyring" ,libgnome-keyring)
c769cf9f 2527 ("adwaita-icon-theme" ,adwaita-icon-theme)
c1354b90
LC		 2528 ("gdk-pixbuf" ,gdk-pixbuf)
2529 ("atk" ,atk)
2530 ("pango" ,pango)
2531 ("gtk+" ,gtk+)
2532 ("glib" ,glib)
2533 ("libxml2" ,libxml2)
c1354b90
LC		 2534 ("libsm" ,libsm)
2535 ("libice" ,libice)
96e42467 2536 ("shared-mime-info" ,shared-mime-info)
3d243e9c
FB		 2537 ("dconf" ,dconf)
2538 ("libcanberra" ,libcanberra)
c769cf9f 2539 ("libsecret" ,libsecret)
a271096b 2540
c1354b90
LC		 2541 ;; For tests.
2542 ("dogtail" ,python2-dogtail)))
96e42467 2543 (native-inputs
bcb354ad
SB		 2544 `(("itstool" ,itstool)
2545 ("intltool" ,intltool)
426adbe8 2546 ("glib" ,glib "bin")
169b8f77 2547 ("gobject-introspection" ,gobject-introspection)
bcb354ad
SB		 2548 ("pkg-config" ,pkg-config)
2549 ("xmllint" ,libxml2)))
6f64a05e 2550 (home-page "https://www.gnome.org/projects/evince/")
c1354b90
LC		 2551 (synopsis "GNOME's document viewer")
2552 (description
2553 "Evince is a document viewer for multiple document formats. It
2554currently supports PDF, PostScript, DjVu, TIFF and DVI. The goal
2555of Evince is to replace the multiple document viewers that exist
96e42467 2556on the GNOME Desktop with a single simple application.")
1dd26275 2557 (license license:gpl2+)))
c1354b90 2558
22e32e69
AE		 2559(define-public gsettings-desktop-schemas
2560 (package
2561 (name "gsettings-desktop-schemas")
8468117e 2562 (version "3.34.0")
22e32e69
AE		 2563 (source
2564 (origin
2565 (method url-fetch)
2566 (uri (string-append "mirror://gnome/sources/" name "/"
b38e45d8 2567 (version-major+minor version) "/"
22e32e69
AE		 2568 name "-" version ".tar.xz"))
2569 (sha256
2570 (base32
8468117e 2571 "1bayr76aylawf2fhyjhv9zgk4kpv7ivrrmd80khb0h3h1wk092r8"))))
c900dabd 2572 (build-system meson-build-system)
65209ffa
LC		 2573 (arguments
2574 '(#:phases (modify-phases %standard-phases
3861fb1c 2575 (add-after 'unpack 'patch-schemas
65209ffa 2576 (lambda* (#:key inputs #:allow-other-keys)
65209ffa
LC		 2577 (let ((theme (assoc-ref inputs "gnome-backgrounds")))
2578 (substitute* (find-files "schemas"
2579 "\\.gschema\\.xml\\.in$")
3861fb1c
LP		 2580 ;; Provide the correct file name of the default GNOME
2581 ;; background, 'adwaita-timed.xml'.
65209ffa 2582 (("@datadir@/backgrounds/gnome")
3861fb1c
LP		 2583 (string-append theme "/share/backgrounds/gnome"))
2584 ;; Do not reference fonts, that may not exist.
2585 (("'Source Code Pro 10'") "'Monospace 11'"))
65209ffa 2586 #t))))))
22e32e69 2587 (inputs
65209ffa
LC		 2588 `(("glib" ,glib)
2589 ("gnome-backgrounds" ,gnome-backgrounds)))
c4c4cc05
JD		 2590 (native-inputs
2591 `(("intltool" ,intltool)
426adbe8 2592 ("glib" ,glib "bin") ; glib-compile-schemas, etc.
7211944a 2593 ("gobject-introspection" ,gobject-introspection)
22e32e69
AE		 2594 ("pkg-config" ,pkg-config)))
2595 (home-page "https://launchpad.net/gsettings-desktop-schemas")
2596 (synopsis
2597 "GNOME settings for various desktop components")
2598 (description
2599 "Gsettings-desktop-schemas contains a collection of GSettings schemas
2600for settings shared by various components of the GNOME desktop.")
1dd26275 2601 (license license:lgpl2.1+)))
22e32e69 2602
7f12756e
VM		 2603(define-public python-liblarch
2604 (package
2605 (name "python-liblarch")
2606 (version "3.0.1")
2607 (source
2608 (origin
2609 (method git-fetch)
2610 (uri (git-reference
2611 (url "https://github.com/getting-things-gnome/liblarch")
2612 (commit (string-append "v" version))))
2613 (file-name (git-file-name name version))
2614 (sha256
2615 (base32 "0xv2mfvyzipbny3iz8vll77wsqxfwh28xj6bj1ff0l452waph45m"))))
2616 (build-system python-build-system)
2617 (arguments
2618 `(#:phases
2619 (modify-phases %standard-phases
2620 (add-before 'check 'start-xserver
2621 (lambda* (#:key inputs #:allow-other-keys)
2622 (system (format #f "~a/bin/Xvfb :1 &"
2623 (assoc-ref inputs "xorg-server")))
2624 (setenv "DISPLAY" ":1")
2625 #t)))))
2626 (native-inputs
2627 `(("xorg-server" ,xorg-server-for-tests)))
2628 (inputs
2629 `(("gtk+" ,gtk+)))
2630 (propagated-inputs
2631 `(("python-pygobject" ,python-pygobject)))
2632 (home-page "https://wiki.gnome.org/Projects/liblarch")
2633 (synopsis "Library to easily handle complex data structures")
2634 (description
2635 "Liblarch is a Python library built to easily handle data structures such
2636as lists, trees and acyclic graphs. There's also a GTK binding that will
2637allow you to use your data structure in a @code{Gtk.Treeview}.
2638
2639Liblarch support multiple views of one data structure and complex filtering.
2640That way, you have a clear separation between your data themselves (Model)
2641and how they are displayed (View).")
2642 (license license:lgpl3+)))
2643
dca2f0ea
VM		 2644(define-public gtg
2645 (package
2646 (name "gtg")
2647 (version "0.4")
2648 (source
2649 (origin
2650 (method git-fetch)
2651 (uri (git-reference
2652 (url "https://github.com/getting-things-gnome/gtg")
2653 (commit (string-append "v" version))))
2654 (file-name (git-file-name name version))
2655 (sha256
2656 (base32 "0r28vyr88rj3kd3cg4gj7sd29wadjchi92wzmbx67d4hlg25h8kk"))))
2657 (build-system meson-build-system)
2658 (arguments
2659 `(#:glib-or-gtk? #t
2660 #:phases
2661 (modify-phases %standard-phases
2662 (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
2663 (lambda* (#:key outputs #:allow-other-keys)
2664 (let ((prog (string-append (assoc-ref outputs "out")
2665 "/bin/gtg"))
2666 (pylib (string-append (assoc-ref outputs "out")
2667 "/lib/python"
2668 ,(version-major+minor
2669 (package-version python))
2670 "/site-packages")))
2671 (wrap-program prog
2672 `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
2673 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
2674 #t))))))
2675 (native-inputs
2676 `(("desktop-file-utils" ,desktop-file-utils)
2677 ("gettext" ,gettext-minimal)
2678 ("glib:bin" ,glib "bin")
2679 ("gobject-introspection" ,gobject-introspection)
2680 ("gtk+:bin" ,gtk+ "bin")
2681 ("pkg-config" ,pkg-config)))
2682 (inputs
2683 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2684 ("gtk+" ,gtk+)
2685 ("python-dbus" ,python-dbus)
2686 ("python-liblarch" ,python-liblarch)
2687 ("python-pycairo" ,python-pycairo)
2688 ("python-pygobject" ,python-pygobject)
2689 ("python-pyxdg" ,python-pyxdg)))
2690 (home-page "https://wiki.gnome.org/Apps/GTG")
2691 (synopsis "Personal organizer for the GNOME desktop")
2692 (description
2693 "Getting Things GNOME! (GTG) is a personal tasks and TODO list items
2694organizer for the GNOME desktop environment inspired by the Getting Things
2695Done (GTD) methodology. GTG is designed with flexibility, adaptability,
2696and ease of use in mind so it can be used as more than just GTD software.
2697GTG is intended to help you track everything you need to do and need to
2698know, from small tasks to large projects.")
2699 (license license:gpl3+)))
2700
27477d2d
AE		 2701(define-public icon-naming-utils
2702 (package
2703 (name "icon-naming-utils")
2704 (version "0.8.90")
2705 (source
2706 (origin
2707 (method url-fetch)
5cc3096c 2708 (uri (string-append "https://tango.freedesktop.org/releases/icon-naming-utils-"
27477d2d
AE		 2709 version ".tar.bz2"))
2710 (sha256
2711 (base32
2712 "1mc3v28fdfqanx3lqx233vcr4glb4c2376k0kx2v91a4vxwqcdxi"))))
2713 (build-system gnu-build-system)
2714 (inputs
2715 `(("perl" ,perl)
2716 ("perl-xml-simple" ,perl-xml-simple)))
f4e97277
SB		 2717 (arguments
2718 '(#:phases
dc1d3cde
KK		 2719 (modify-phases %standard-phases
2720 (add-after 'install 'set-load-paths
2721 ;; Tell 'icon-name-mapping' where XML::Simple is.
2722 (lambda* (#:key outputs #:allow-other-keys)
2723 (let* ((out (assoc-ref outputs "out"))
2724 (prog (string-append out "/libexec/icon-name-mapping")))
2725 (wrap-program
2726 prog
2727 `("PERL5LIB" = ,(list (getenv "PERL5LIB")))))
2728 #t)))))
27477d2d
AE		 2729 (home-page "http://tango.freedesktop.org/Standard_Icon_Naming_Specification")
2730 (synopsis
2731 "Utility to implement the Freedesktop Icon Naming Specification")
2732 (description
2733 "To help with the transition to the Freedesktop Icon Naming
2734Specification, the icon naming utility maps the icon names used by the
2735GNOME and KDE desktops to the icon names proposed in the specification.")
1dd26275 2736 (license license:lgpl2.1+)))
27477d2d 2737
7d3f3651
AE		 2738(define-public gnome-icon-theme
2739 (package
2740 (name "gnome-icon-theme")
b32f58dd 2741 (version "3.12.0")
7d3f3651
AE		 2742 (source
2743 (origin
2744 (method url-fetch)
2745 (uri (string-append "mirror://gnome/sources/" name "/"
b38e45d8 2746 (version-major+minor version) "/"
7d3f3651
AE		 2747 name "-" version ".tar.xz"))
2748 (sha256
2749 (base32
b32f58dd 2750 "0fjh9qmmgj34zlgxb09231ld7khys562qxbpsjlaplq2j85p57im"))))
7d3f3651 2751 (build-system gnu-build-system)
5613c27d
SB		 2752 (arguments
2753 '(#:configure-flags
2754 ;; Don't create 'icon-theme.cache'.
2755 (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
2756 (true (string-append coreutils "/bin/true")))
2757 (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
c4c4cc05 2758 (native-inputs
5613c27d 2759 `(("icon-naming-utils" ,icon-naming-utils)
73b6cf42
SB		 2760 ("intltool" ,intltool)
2761 ("pkg-config" ,pkg-config)))
5c610d4f
KK		 2762 (home-page "https://wiki.gnome.org/Personalization")
2763 (synopsis "GNOME icon theme")
2764 (description "Icons for the GNOME desktop.")
1dd26275 2765 (license license:lgpl3))) ; or Creative Commons BY-SA 3.0
7d3f3651 2766
14eeefa2
SB		 2767;; gnome-icon-theme was renamed to adwaita-icon-theme after version 3.12.0.
2768(define-public adwaita-icon-theme
2769 (package (inherit gnome-icon-theme)
2770 (name "adwaita-icon-theme")
e21788f2 2771 (version "3.34.3")
14eeefa2
SB		 2772 (source (origin
2773 (method url-fetch)
2774 (uri (string-append "mirror://gnome/sources/" name "/"
2775 (version-major+minor version) "/"
2776 name "-" version ".tar.xz"))
2777 (sha256
2778 (base32
e21788f2 2779 "025rj1fskw1y448hiar4a9icyzpyr242nlh9xhsmyp8jb71dihp7"))))
5613c27d
SB		 2780 (native-inputs
2781 `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
14eeefa2 2782
ae792dba
RW		 2783(define-public tango-icon-theme
2784 (package
2785 (name "tango-icon-theme")
2786 (version "0.8.90")
2787 (source (origin
2788 (method url-fetch)
2789 (uri (string-append "http://tango.freedesktop.org/releases/"
2790 "tango-icon-theme-" version ".tar.bz2"))
2791 (sha256
2792 (base32
2793 "034r9s944b4yikyfgn602yv7s54wdzlq0qfvqh52b9x6kbx08h79"))))
2794 (build-system gnu-build-system)
2795 (native-inputs
2796 `(("icon-naming-utils" ,icon-naming-utils)
2797 ("intltool" ,intltool)
2798 ("imagemagick" ,imagemagick)
2799 ("pkg-config" ,pkg-config)))
2800 (home-page "http://tango-project.org/")
2801 (synopsis "Tango icon theme")
2802 (description "This is an icon theme that follows the Tango visual
2803guidelines.")
2804 (license license:public-domain)))
2805
9167f8e6
LC		 2806(define-public shared-mime-info
2807 (package
2808 (name "shared-mime-info")
404e386e 2809 (version "1.15")
9167f8e6
LC		 2810 (source (origin
2811 (method url-fetch)
404e386e
MB		 2812 (uri (string-append
2813 "https://gitlab.freedesktop.org/xdg/shared-mime-info/uploads/"
2814 "b27eb88e4155d8fccb8bb3cd12025d5b/shared-mime-info-" version
2815 ".tar.xz"))
9167f8e6
LC		 2816 (sha256
2817 (base32
404e386e 2818 "146vynj78wcwdq0ms52jzm1r4m6dzi1rhyh3h4xyb6bw8ckv10pl"))))
9167f8e6
LC		 2819 (build-system gnu-build-system)
2820 (arguments
2821 ;; The build system appears not to be parallel-safe.
2822 '(#:parallel-build? #f))
2823 (inputs
2824 `(("glib" ,glib)
c4c4cc05 2825 ("libxml2" ,libxml2)))
9167f8e6 2826 (native-inputs
404e386e
MB		 2827 `(("gettext" ,gettext-minimal)
2828 ("itstool" ,itstool)
c4c4cc05 2829 ("pkg-config" ,pkg-config)))
57e7d748 2830 (home-page "https://www.freedesktop.org/wiki/Software/shared-mime-info")
9167f8e6
LC		 2831 (synopsis "Database of common MIME types")
2832 (description
2833 "The shared-mime-info package contains the core database of common types
2834and the update-mime-database command used to extend it. It requires glib2 to
2835be installed for building the update command. Additionally, it uses intltool
2836for translations, though this is only a dependency for the maintainers. This
2837database is translated at Transifex.")
1dd26275 2838 (license license:gpl2+)))
9167f8e6 2839
dd1fcddc
CB		 2840(define-public system-config-printer
2841 (package
2842 (name "system-config-printer")
c290e9fc 2843 (version "1.5.13")
a5643044
TGR		 2844 (source
2845 (origin
2846 (method url-fetch)
2847 (uri (string-append
2848 "https://github.com/OpenPrinting/system-config-printer/releases/"
c290e9fc 2849 "download/v" version
a5643044
TGR		 2850 "/system-config-printer-" version ".tar.xz"))
2851 (sha256
c290e9fc 2852 (base32 "18dqvi1s971lggkw6pv1sqxixlpg5a8rppzc1pxbanxa91jg18zf"))))
dd1fcddc
CB		 2853 (build-system glib-or-gtk-build-system)
2854 (arguments
2855 `(#:imported-modules ((guix build python-build-system)
2856 ,@%glib-or-gtk-build-system-modules)
2857 #:phases
2858 (modify-phases %standard-phases
2859 (add-after 'unpack 'patch-Makefile.am
2860 (lambda _
2861 ;; The Makefile generates some scripts, so set a valid shebang
2862 (substitute* "Makefile.am"
2863 (("/bin/bash") (which "bash")))
2864 (delete-file "configure")
2865 #t))
2866 (add-after 'unpack 'patch-docbook-xml
2867 (lambda* (#:key inputs #:allow-other-keys)
2868 ;; Modify the man XML otherwise xmlto tries to access the network
2869 (substitute* "man/system-config-printer.xml"
2870 (("http://www.oasis-open.org/docbook/xml/4.1.2/")
2871 (string-append (assoc-ref inputs "docbook-xml")
2872 "/xml/dtd/docbook/")))
2873 #t))
2874 (add-after 'install 'wrap-for-python
2875 (@@ (guix build python-build-system) wrap))
2876 (add-after 'install 'wrap
2877 (lambda* (#:key outputs #:allow-other-keys)
2878 (let ((out (assoc-ref outputs "out"))
2879 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
2880 (for-each
2881 (lambda (program)
2882 (wrap-program program
2883 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
2884 (map (lambda (name)
2885 (string-append out "/bin/" name))
2886 '("system-config-printer"
2887 "system-config-printer-applet"
2888 "install-printerdriver"
2889 "scp-dbus-service"))))
2890 #t)))))
2891 (inputs
2892 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
2893 ("gobject-introspection" ,gobject-introspection)
2894 ("python" ,python)
2895 ("cups" ,cups)
92b9cdd5 2896 ("gtk+" ,gtk+)
dd1fcddc
CB		 2897 ("python-dbus" ,python-dbus)
2898 ("python-pygobject" ,python-pygobject)
2899 ("python-pycups" ,python-pycups)
2900 ("python-requests" ,python-requests)
2901 ("python-pycairo" ,python-pycairo)
2902 ("libnotify" ,libnotify)
2903 ("packagekit" ,packagekit)))
2904 (native-inputs
2905 `(("pkg-config" ,pkg-config)
2906 ("desktop-file-utils" ,desktop-file-utils)
2907 ("glib" ,glib)
2908 ("autoconf" ,autoconf)
2909 ("automake" ,automake)
2910 ("intltool" ,intltool)
2911 ("xmlto" ,xmlto)
2912 ("docbook-xml" ,docbook-xml-4.1.2)
2913 ("docbook-xsl" ,docbook-xsl)
2914 ("libxml2" ,libxml2)))
2915 (home-page "https://github.com/zdohnal/system-config-printer")
2916 (synopsis "CUPS administration tool")
2917 (description
2918 "system-config-printer is a CUPS administration tool. It's written in
2919Python using GTK+, and uses the @acronym{IPP, Internet Printing Protocol} when
2920configuring CUPS.")
2921 (license license:gpl2+)))
2922
bef4dd92
AE		 2923(define-public hicolor-icon-theme
2924 (package
2925 (name "hicolor-icon-theme")
851cb6dd 2926 (version "0.17")
bef4dd92
AE		 2927 (source
2928 (origin
2929 (method url-fetch)
5cc3096c 2930 (uri (string-append "https://icon-theme.freedesktop.org/releases/"
b62a0070 2931 "hicolor-icon-theme-" version ".tar.xz"))
bef4dd92
AE		 2932 (sha256
2933 (base32
851cb6dd 2934 "1n59i3al3zx6p90ff0l43gzpzmlqnzm6hf5cryxqrlbi48sq8x1i"))))
bef4dd92
AE		 2935 (build-system gnu-build-system)
2936 (arguments
2937 `(#:tests? #f)) ; no check target
57e7d748 2938 (home-page "https://icon-theme.freedesktop.org/releases/")
bef4dd92
AE		 2939 (synopsis
2940 "Freedesktop icon theme")
2941 (description
2942 "Freedesktop icon theme.")
1dd26275 2943 (license license:gpl2)))
bef4dd92 2944
d9c1a22b
AE		 2945(define-public libnotify
2946 (package
2947 (name "libnotify")
195bfa68 2948 (version "0.7.7")
d9c1a22b
AE		 2949 (source
2950 (origin
2951 (method url-fetch)
2952 (uri (string-append "mirror://gnome/sources/" name "/"
b38e45d8 2953 (version-major+minor version) "/"
d9c1a22b
AE		 2954 name "-" version ".tar.xz"))
2955 (sha256
2956 (base32
195bfa68 2957 "017wgq9n00hx39n0hm784zn18hl721hbaijda868cm96bcqwxd4w"))))
d9c1a22b 2958 (build-system gnu-build-system)
6acf6cec
MB		 2959 (arguments
2960 `(#:configure-flags '("--disable-static")))
7ef08efa
UK		 2961 (propagated-inputs
2962 `(;; In Requires of libnotify.pc.
2963 ("gdk-pixbuf" ,gdk-pixbuf)
2964 ("glib" ,glib)))
d9c1a22b 2965 (inputs
7ef08efa 2966 `(("gtk+" ,gtk+)
c4c4cc05
JD		 2967 ("libpng" ,libpng)))
2968 (native-inputs
426adbe8 2969 `(("pkg-config" ,pkg-config)
277a7d82
JN		 2970 ("glib" ,glib "bin")
2971 ("gobject-introspection" ,gobject-introspection)))
d9c1a22b
AE		 2972 (home-page "https://developer-next.gnome.org/libnotify/")
2973 (synopsis
2974 "GNOME desktop notification library")
2975 (description
2976 "Libnotify is a library that sends desktop notifications to a
35b9e423 2977notification daemon, as defined in the Desktop Notifications spec. These
d9c1a22b
AE		 2978notifications can be used to inform the user about an event or display
2979some form of information without getting in the user's way.")
1dd26275 2980 (license license:lgpl2.1+)))
7a8605ce
CR		 2981
2982(define-public libpeas
2983 (package
2984 (name "libpeas")
f2d56e39 2985 (version "1.24.1")
7a8605ce
CR		 2986 (source
2987 (origin
2988 (method url-fetch)
2989 (uri (string-append "mirror://gnome/sources/" name "/"
b38e45d8 2990 (version-major+minor version) "/"
7a8605ce
CR		 2991 name "-" version ".tar.xz"))
2992 (sha256
2993 (base32
f2d56e39
MB		 2994 "1162dr7smmfb02czmhshr0f93hqj7w0nw29bys5lzfvwarxcyflw"))))
2995 (build-system meson-build-system)
2996 (arguments
2997 '(#:phases
2998 (modify-phases %standard-phases
2999 (add-before 'check 'start-xserver
3000 (lambda* (#:key inputs #:allow-other-keys)
3001 (let ((xorg-server (assoc-ref inputs "xorg-server"))
3002 (disp ":1"))
3003 (setenv "DISPLAY" disp)
3004 ;; Tests require a running X server.
3005 (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
3006 #t))))))
7a8605ce 3007 (inputs
2ed6522a
SB		 3008 `(("gtk+" ,gtk+)
3009 ("glade" ,glade3)
2ed6522a
SB		 3010 ("python" ,python)
3011 ("python-pygobject" ,python-pygobject)))
141aed80
LC		 3012 (native-inputs
3013 `(("pkg-config" ,pkg-config)
f2d56e39 3014 ("gettext" ,gettext-minimal)
93622993 3015 ("glib:bin" ,glib "bin")
141aed80 3016 ("gobject-introspection" ,gobject-introspection)
f2d56e39 3017 ("xorg-server" ,xorg-server-for-tests)))
55b7bbd8
LC		 3018 (propagated-inputs
3019 ;; The .pc file "Requires" gobject-introspection.
3020 `(("gobject-introspection" ,gobject-introspection)))
7a8605ce
CR		 3021 (home-page "https://wiki.gnome.org/Libpeas")
3022 (synopsis "GObject plugin system")
3023 (description
d1e4ad1b
TGR		 3024 "Libpeas is a gobject-based plugin engine, targeted at giving every
3025application the chance to assume its own extensibility. It also has a set of
3026features including, but not limited to: multiple extension points; on-demand
3027(lazy) programming language support for C, Python and JS; simplicity of the
3028API.")
1dd26275 3029 (license license:lgpl2.0+)))
ed19903d
JD		 3030
3031(define-public gtkglext
3032 (package
3033 (name "gtkglext")
3034 (version "1.2.0")
3035 (source (origin
3036 (method url-fetch)
0f971a04 3037 (uri (string-append "mirror://sourceforge/gtkglext/gtkglext/"
ed19903d
JD		 3038 version "/gtkglext-" version ".tar.gz"))
3039 (sha256
3040 (base32 "1ya4d2j2aacr9ii5zj4ac95fjpdvlm2rg79mgnk7yvl1dcy3y1z5"))
fc1adab1
AK		 3041 (patches (search-patches
3042 "gtkglext-disable-disable-deprecated.patch"))))
ed19903d 3043 (build-system gnu-build-system)
14e2f61a
RW		 3044 (arguments
3045 `(#:phases
3046 (modify-phases %standard-phases
3047 ;; Fix a collision between a local variable and a definition from
3048 ;; glibc's string.h.
3049 (add-after 'unpack 'fix-collision
3050 (lambda _
3051 (substitute* "gdk/gdkglshapes.c"
3052 ((" index") " triangle_index"))
3053 #t)))))
ed19903d
JD		 3054 (inputs `(("gtk+" ,gtk+-2)
3055 ("mesa" ,mesa)
cc8b02f4 3056 ("glu" ,glu)
ed19903d
JD		 3057 ("libx11" ,libx11)
3058 ("libxt" ,libxt)))
426adbe8
LC		 3059 (native-inputs `(("pkg-config" ,pkg-config)
3060 ("glib" ,glib "bin")))
a83b6a06 3061 (propagated-inputs `(("pangox-compat" ,pangox-compat)))
ed19903d 3062 (home-page "https://projects.gnome.org/gtkglext")
9e771e3b 3063 (synopsis "OpenGL extension to GTK+")
35b9e423 3064 (description "GtkGLExt is an OpenGL extension to GTK+. It provides
ed19903d
JD		 3065additional GDK objects which support OpenGL rendering in GTK+ and GtkWidget
3066API add-ons to make GTK+ widgets OpenGL-capable.")
1dd26275 3067 (license license:lgpl2.1+)))
3600420e
JD		 3068
3069(define-public glade3
3070 (package
3071 (name "glade")
031315e4 3072 (version "3.36.0")
b38e45d8
EB		 3073 (source (origin
3074 (method url-fetch)
3075 (uri (string-append "mirror://gnome/sources/" name "/"
3076 (version-major+minor version) "/"
f5ca44b8 3077 name "-" version ".tar.xz"))
3600420e 3078 (sha256
f714d9fe 3079 (base32
031315e4 3080 "023gx8rj51njn8fsb6ma5kz1irjpxi4js0n8rwy22inc4ysldd8r"))))
6983ba56 3081 (build-system glib-or-gtk-build-system)
f5ca44b8 3082 (arguments
ec8e1c91 3083 `(#:phases
f5ca44b8
RW		 3084 (modify-phases %standard-phases
3085 (add-before 'configure 'fix-docbook
3086 (lambda* (#:key inputs #:allow-other-keys)
3087 (substitute* "man/Makefile.in"
3088 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
3089 (string-append (assoc-ref inputs "docbook-xsl")
3090 "/xml/xsl/docbook-xsl-"
3091 ,(package-version docbook-xsl)
3092 "/manpages/docbook.xsl")))
ec8e1c91
AI		 3093 #t))
3094 (add-before 'check 'pre-check
3095 (lambda _
3096 (setenv "HOME" "/tmp")
3097 ;; Tests require a running X server.
3098 (system "Xvfb :1 &")
3099 (setenv "DISPLAY" ":1")
f5ca44b8 3100 #t)))))
3600420e 3101 (inputs
f5ca44b8 3102 `(("gtk+" ,gtk+)
3600420e
JD		 3103 ("libxml2" ,libxml2)))
3104 (native-inputs
ec8e1c91
AI		 3105 `(("hicolor-icon-theme" ,hicolor-icon-theme)
3106 ("intltool" ,intltool)
f5ca44b8
RW		 3107 ("itstool" ,itstool)
3108 ("libxslt" ,libxslt) ;for xsltproc
3109 ("docbook-xml" ,docbook-xml-4.2)
3110 ("docbook-xsl" ,docbook-xsl)
3111 ("python" ,python-2)
ec8e1c91
AI		 3112 ("pkg-config" ,pkg-config)
3113 ("xorg-server" ,xorg-server-for-tests)))
3600420e
JD		 3114 (home-page "https://glade.gnome.org")
3115 (synopsis "GTK+ rapid application development tool")
3116 (description "Glade is a rapid application development (RAD) tool to
3117enable quick & easy development of user interfaces for the GTK+ toolkit and
3118the GNOME desktop environment.")
88915958
LP		 3119 (license license:lgpl2.0+)
3120 (native-search-paths (list (search-path-specification
3121 (variable "GLADE_CATALOG_SEARCH_PATH")
3122 (files '("share/glade/catalogs")))
3123 (search-path-specification
3124 (variable "GLADE_MODULE_SEARCH_PATH")
3125 (files '("lib/glade/modules")))))))
1dd26275
LC		 3126
3127(define-public libcroco
3128 (package
3129 (name "libcroco")
8bdacad2 3130 (version "0.6.13")
1dd26275
LC		 3131 (source (origin
3132 (method url-fetch)
b38e45d8
EB		 3133 (uri (string-append "mirror://gnome/sources/" name "/"
3134 (version-major+minor version) "/"
3135 name "-" version ".tar.xz"))
1dd26275
LC		 3136 (sha256
3137 (base32
8bdacad2 3138 "1m110rbj5d2raxcdp4iz0qp172284945awrsbdlq99ksmqsc4zkn"))))
1dd26275
LC		 3139 (build-system gnu-build-system)
3140 (native-inputs
3141 `(("pkg-config" ,pkg-config)))
3142 (inputs
3143 `(("glib" ,glib)
3144 ("libxml2" ,libxml2)
3145 ("zlib" ,zlib)))
3146 (home-page "https://github.com/GNOME/libcroco")
3147 (synopsis "CSS2 parsing and manipulation library")
3148 (description
3149 "Libcroco is a standalone CSS2 parsing and manipulation library.
3150The parser provides a low level event driven SAC-like API and a CSS object
3151model like API. Libcroco provides a CSS2 selection engine and an experimental
3152XML/CSS rendering engine.")
3153
3154 ;; LGPLv2.1-only.
3155 (license license:lgpl2.1)))
25178594
LC		 3156
3157(define-public libgsf
3158 (package
3159 (name "libgsf")
2b9b854c 3160 (version "1.14.47")
25178594
LC		 3161 (source (origin
3162 (method url-fetch)
b38e45d8
EB		 3163 (uri (string-append "mirror://gnome/sources/" name "/"
3164 (version-major+minor version) "/"
3165 name "-" version ".tar.xz"))
25178594
LC		 3166 (sha256
3167 (base32
2b9b854c 3168 "0kbpp9ksl7977xiga37sk1gdw1r039v6zviqznl7alvvg39yp26i"))))
25178594 3169 (build-system gnu-build-system)
23904adb
MB		 3170 (arguments
3171 '(#:configure-flags '("--disable-static")))
25178594 3172 (native-inputs
0a1559cc
MB		 3173 `(("pkg-config" ,pkg-config)
3174 ("gettext" ,gettext-minimal)
3175
3176 ;; For tests.
3177 ("perl" ,perl)
3178 ("perl-xml-parser" ,perl-xml-parser)))
25178594 3179 (inputs
4ffa9f6b 3180 `(("zlib" ,zlib)
25178594
LC		 3181 ("bzip2" ,bzip2)))
3182 (propagated-inputs
3183 `(("gdk-pixbuf" ,gdk-pixbuf)
3184 ("glib" ,glib)
3185 ("libxml2" ,libxml2)))
f032d0be 3186 (home-page "https://www.gnome.org/projects/libgsf")
25178594
LC		 3187 (synopsis "GNOME's Structured File Library")
3188 (description
3189 "Libgsf aims to provide an efficient extensible I/O abstraction for
3190dealing with different structured file formats.")
3191
3192 ;; LGPLv2.1-only.
3193 (license license:lgpl2.1)))
63016e7c
LC		 3194
3195(define-public librsvg
f67417a1
MB		 3196 (package
3197 (name "librsvg")
c1cc52a2 3198 (version "2.40.21")
f67417a1
MB		 3199 (source (origin
3200 (method url-fetch)
3201 (uri (string-append "mirror://gnome/sources/" name "/"
3202 (version-major+minor version) "/"
3203 name "-" version ".tar.xz"))
3204 (sha256
3205 (base32
c1cc52a2 3206 "1fljkag2gr7c4k5mn798lgf9903xslz8h51bgvl89nnay42qjqpp"))))
f67417a1
MB		 3207 (build-system gnu-build-system)
3208 (arguments
3209 `(#:configure-flags
3210 (list "--disable-static"
3211 "--enable-vala") ; needed for e.g. gnome-mines
3212 #:phases
3213 (modify-phases %standard-phases
3214 (add-before 'configure 'pre-configure
3215 (lambda* (#:key inputs #:allow-other-keys)
3216 (substitute* "gdk-pixbuf-loader/Makefile.in"
3217 ;; By default the gdk-pixbuf loader is installed under
3218 ;; gdk-pixbuf's prefix. Work around that.
3219 (("gdk_pixbuf_moduledir = .*$")
3220 (string-append "gdk_pixbuf_moduledir = "
3221 "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
3222 "loaders\n"))
3223 ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3224 (("gdk_pixbuf_cache_file = .*$")
3225 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3226 #t))
3227 (add-before 'check 'remove-failing-tests
3228 (lambda _
3229 (with-directory-excursion "tests/fixtures/reftests"
3230 (for-each delete-file
3231 '(;; This test fails on i686:
3232 "svg1.1/masking-path-04-b.svg"
3233 ;; This test fails on armhf:
3234 "svg1.1/masking-mask-01-b.svg"
3235 ;; This test fails on aarch64:
3236 "bugs/777834-empty-text-children.svg")))
3237 #t)))))
3238 (native-inputs
3239 `(("pkg-config" ,pkg-config)
3240 ("vala" ,vala)
3241 ("glib" ,glib "bin") ; glib-mkenums, etc.
3242 ("gobject-introspection" ,gobject-introspection))) ; g-ir-compiler, etc.
3243 (inputs
869b63cb
MB		 3244 `(;; XXX: 1.44 causes some test failures, so we stick with 1.42 for
3245 ;; this ancient version of librsvg.
3246 ("pango" ,pango-1.42)
f67417a1
MB		 3247 ("libcroco" ,libcroco)
3248 ("bzip2" ,bzip2)
3249 ("libgsf" ,libgsf)
3250 ("libxml2" ,libxml2)))
3251 (propagated-inputs
3252 ;; librsvg-2.0.pc refers to all of that.
3253 `(("cairo" ,cairo)
3254 ("gdk-pixbuf" ,gdk-pixbuf)
3255 ("glib" ,glib)))
3256 (home-page "https://wiki.gnome.org/LibRsvg")
3257 (synopsis "Render SVG files using Cairo")
3258 (description
3259 "Librsvg is a C library to render SVG files using the Cairo 2D graphics
3260library.")
3261 (license license:lgpl2.0+)))
3262
3263(define-public librsvg-next
63016e7c
LC		 3264 (package
3265 (name "librsvg")
ff258298 3266 (version "2.50.1")
69568670
EF		 3267 (source (origin
3268 (method url-fetch)
3269 (uri (string-append "mirror://gnome/sources/librsvg/"
3270 (version-major+minor version) "/"
3271 "librsvg-" version ".tar.xz"))
3272 (sha256
3273 (base32
ff258298 3274 "02csvx2nzygh8kyal2qiy3y6xb7d52vszxxr37dzav704a9pkncv"))
69568670
EF		 3275 (modules '((guix build utils)))
3276 (snippet
3277 '(begin (delete-file-recursively "vendor")
69568670
EF		 3278 #t))))
3279 (build-system cargo-build-system)
b030bc0c 3280 (outputs '("out" "doc"))
63016e7c 3281 (arguments
b030bc0c
RG		 3282 `(#:modules
3283 ((guix build cargo-build-system)
3284 (guix build utils)
3285 ((guix build gnu-build-system) #:prefix gnu:))
ff258298 3286 #:rust ,rust-1.40
69568670
EF		 3287 #:cargo-inputs
3288 (("rust-bitflags" ,rust-bitflags-1)
4f9db569 3289 ("rust-cairo-rs" ,rust-cairo-rs-0.8)
69568670 3290 ("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
4f9db569
EF		 3291 ("rust-cast" ,rust-cast-0.2)
3292 ("rust-cssparser" ,rust-cssparser-0.27)
69568670 3293 ("rust-data-url" ,rust-data-url-0.1)
69568670 3294 ("rust-encoding" ,rust-encoding-0.2)
ff258298 3295 ("rust-float-cmp" ,rust-float-cmp-0.8)
4f9db569 3296 ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
69568670 3297 ("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
4f9db569 3298 ("rust-gio" ,rust-gio-0.8)
69568670 3299 ("rust-gio-sys" ,rust-gio-sys-0.9)
4f9db569 3300 ("rust-glib" ,rust-glib-0.9)
69568670
EF		 3301 ("rust-glib-sys" ,rust-glib-sys-0.9)
3302 ("rust-gobject-sys" ,rust-gobject-sys-0.9)
ff258298 3303 ("rust-itertools" ,rust-itertools-0.9)
69568670 3304 ("rust-language-tags" ,rust-language-tags-0.2)
69568670
EF		 3305 ("rust-libc" ,rust-libc-0.2)
3306 ("rust-locale-config" ,rust-locale-config-0.3)
4f9db569 3307 ("rust-markup5ever" ,rust-markup5ever-0.10)
ff258298 3308 ("rust-nalgebra" ,rust-nalgebra-0.21)
69568670 3309 ("rust-num-traits" ,rust-num-traits-0.2)
51b46fa2 3310 ("rust-once-cell" ,rust-once-cell-1)
69568670 3311 ("rust-pkg-config" ,rust-pkg-config-0.3)
4f9db569 3312 ("rust-pango" ,rust-pango-0.8)
69568670 3313 ("rust-pango-sys" ,rust-pango-sys-0.9)
4f9db569 3314 ("rust-pangocairo" ,rust-pangocairo-0.9)
a5630553 3315 ("rust-rayon" ,rust-rayon-1)
69568670 3316 ("rust-rctree" ,rust-rctree-0.3)
4f9db569 3317 ("rust-rgb" ,rust-rgb-0.8)
6cd7b355 3318 ("rust-regex" ,rust-regex-1)
4f9db569 3319 ("rust-selectors" ,rust-selectors-0.22)
ff258298
EF		 3320 ("rust-string-cache" ,rust-string-cache-0.8)
3321 ("rust-tinyvec" ,rust-tinyvec-0.3)
ff4d0937 3322 ("rust-url" ,rust-url-2)
4f9db569 3323 ("rust-xml5ever" ,rust-xml5ever-0.16))
69568670 3324 #:cargo-development-inputs
ff258298
EF		 3325 (("rust-assert-cmd" ,rust-assert-cmd-1)
3326 ("rust-cairo-rs" ,rust-cairo-rs-0.8)
3327 ("rust-chrono" ,rust-chrono-0.4)
3328 ("rust-criterion" ,rust-criterion-0.3)
3329 ("rust-float-cmp" ,rust-float-cmp-0.8)
3330 ("rust-lopdf" ,rust-lopdf-0.25)
3331 ("rust-png" ,rust-png-0.16)
3332 ("rust-predicates" ,rust-predicates-1)
3333 ("rust-tempfile" ,rust-tempfile-3))
ec47c07d 3334 #:phases
b6239e45 3335 (modify-phases %standard-phases
b030bc0c
RG		 3336 (add-after 'unpack 'patch-docbook-xml
3337 (lambda* (#:key inputs #:allow-other-keys)
3338 (with-directory-excursion "doc"
3339 (substitute* "rsvg-docs.xml"
3340 (("http://www.oasis-open.org/docbook/xml/4.3/")
3341 (string-append (assoc-ref inputs "docbook-xml")
3342 "/xml/dtd/docbook/"))))
3343 #t))
69568670 3344 (add-after 'unpack 'prepare-for-build
ec47c07d 3345 (lambda _
69568670 3346 ;; In lieu of #:make-flags
4f9db569 3347 (setenv "CC" ,(cc-for-target))
69568670
EF		 3348 ;; Something about the build environment resists building
3349 ;; successfully with the '--locked' flag.
b030bc0c 3350 (substitute* '("Makefile.am" "Makefile.in")
69568670
EF		 3351 (("--locked") ""))
3352 #t))
b6239e45 3353 (add-before 'configure 'pre-configure
69568670 3354 (lambda _
b6239e45
EF		 3355 (substitute* "gdk-pixbuf-loader/Makefile.in"
3356 ;; By default the gdk-pixbuf loader is installed under
3357 ;; gdk-pixbuf's prefix. Work around that.
3358 (("gdk_pixbuf_moduledir = .*$")
3359 (string-append "gdk_pixbuf_moduledir = "
3360 "$(prefix)/lib/gdk-pixbuf-2.0/2.10.0/"
b030bc0c 3361 "loaders\n"))
b6239e45
EF		 3362 ;; Drop the 'loaders.cache' file, it's in gdk-pixbuf+svg.
3363 (("gdk_pixbuf_cache_file = .*$")
3364 "gdk_pixbuf_cache_file = $(TMPDIR)/loaders.cache\n"))
3365 #t))
69568670 3366 (add-after 'configure 'gnu-configure
4b16cb64
EF		 3367 (lambda* (#:key inputs native-inputs outputs #:allow-other-keys)
3368 ((assoc-ref gnu:%standard-phases 'configure)
3369 #:native-inputs native-inputs
3370 #:inputs inputs
3371 #:outputs outputs
b030bc0c
RG		 3372 #:configure-flags
3373 (list "--disable-static"
3374 "--enable-vala"
3375 (string-append "--with-html-dir="
3376 (assoc-ref %outputs "doc")
3377 "/share/gtk-doc/html")))))
69568670
EF		 3378 (add-after 'configure 'dont-vendor-self
3379 (lambda* (#:key vendor-dir #:allow-other-keys)
3380 ;; Don't keep the whole tarball in the vendor directory
3381 (delete-file-recursively
b030bc0c 3382 (string-append vendor-dir "/" ,name "-" ,version ".tar.xz"))
69568670
EF		 3383 #t))
3384 (replace 'build
3385 (assoc-ref gnu:%standard-phases 'build))
ff258298
EF		 3386 (add-before 'check 'ignore-failing-tests
3387 ;; stderr=```/tmp/guix-build-.../librsvg-2.50.1/rsvg-convert: line 150: ls: command not found
3388 (lambda _
3389 (substitute* "tests/src/cmdline/rsvg_convert.rs"
3390 (("fn background_color_option_invalid_color_yields_error" all)
3391 (string-append "#[ignore] " all))
3392 (("fn empty_input_yields_error" all)
3393 (string-append "#[ignore] " all))
3394 (("fn empty_svg_yields_error" all)
3395 (string-append "#[ignore] " all))
3396 (("fn env_source_data_epoch_empty" all)
3397 (string-append "#[ignore] " all))
3398 (("fn env_source_data_epoch_no_digits" all)
3399 (string-append "#[ignore] " all))
3400 (("fn env_source_data_epoch_trailing_garbage" all)
3401 (string-append "#[ignore] " all))
3402 (("fn export_id_option_error" all)
3403 (string-append "#[ignore] " all))
3404 (("fn huge_zoom_factor_yields_error" all)
3405 (string-append "#[ignore] " all))
3406 (("fn multiple_input_files_not_allowed_for_png_output" all)
3407 (string-append "#[ignore] " all))
3408 (("fn stylesheet_option_error" all)
3409 (string-append "#[ignore] " all)))
3410 #t))
69568670
EF		 3411 (replace 'check
3412 (lambda* args
3413 ((assoc-ref gnu:%standard-phases 'check)
3414 #:test-target "check")))
3415 (replace 'install
4f9db569 3416 (assoc-ref gnu:%standard-phases 'install)))))
b030bc0c
RG		 3417 (native-inputs
3418 `(("docbook-xml" ,docbook-xml-4.3)
3419 ("glib" ,glib "bin")
3420 ("gobject-introspection" ,gobject-introspection)
3421 ("pkg-config" ,pkg-config)
3422 ("python" ,python-wrapper)
3423 ("ruby" ,ruby)
3424 ("vala" ,vala)))
4f9db569 3425 (inputs
b030bc0c
RG		 3426 `(("bzip2" ,bzip2)
3427 ("fontconfig" ,fontconfig)
3428 ("freetype" ,freetype)
3429 ("harfbuzz" ,harfbuzz)
3430 ("libcroco" ,libcroco)
3431 ("libgsf" ,libgsf)
3432 ("libxml2" ,libxml2)
3433 ("pango" ,pango)))
3434 (propagated-inputs
3435 `(("cairo" ,cairo)
3436 ("gdk-pixbuf" ,gdk-pixbuf)
3437 ("glib" ,glib)))
3438 (synopsis "SVG rendering library")
3439 (description "Librsvg is a library to render SVG images to Cairo surfaces.
3440GNOME uses this to render SVG icons. Outside of GNOME, other desktop
3441environments use it for similar purposes. Wikimedia uses it for Wikipedia's SVG
3442diagrams.")
3443 (home-page "https://wiki.gnome.org/LibRsvg")
cf9dad6c 3444 (license license:lgpl2.1+)))
5698b8b8
JD		 3445
3446(define-public libidl
3447 (package
3448 (name "libidl")
3449 (version "0.8.14")
3450 (source (origin
3451 (method url-fetch)
80a06e62
EF		 3452 (uri (string-append "mirror://gnome/sources/libIDL/"
3453 (version-major+minor version) "/"
3454 "libIDL-" version ".tar.bz2"))
5698b8b8
JD		 3455 (sha256
3456 (base32
3457 "08129my8s9fbrk0vqvnmx6ph4nid744g5vbwphzkaik51664vln5"))))
3458 (build-system gnu-build-system)
3459 (inputs `(("glib" ,glib)))
3460 (native-inputs
3461 `(("pkg-config" ,pkg-config)
b3546174 3462 ("flex" ,flex)
5698b8b8
JD		 3463 ("bison" ,bison)))
3464 (home-page "http://freecode.com/projects/libidl")
3465 (synopsis "Create trees of CORBA Interface Definition Language files")
35b9e423 3466 (description "Libidl is a library for creating trees of CORBA Interface
5698b8b8
JD		 3467Definition Language (idl) files, which is a specification for defining
3468portable interfaces. libidl was initially written for orbit (the orb from the
35b9e423 3469GNOME project, and the primary means of libidl distribution). However, the
2e6ecc5c 3470functionality was designed to be as reusable and portable as possible.")
ef2c55bb 3471 (properties `((upstream-name . "libIDL")))
5698b8b8
JD		 3472 (license license:lgpl2.0+)))
3473
3474
3475(define-public orbit2
3476 (package
3477 (name "orbit2")
3478 (version "2.14.19")
3479 (source (origin
3480 (method url-fetch)
2e6ecc5c 3481 (uri (let ((upstream-name "ORBit2"))
a124bbd2 3482 (string-append "mirror://gnome/sources/" upstream-name "/"
b38e45d8
EB		 3483 (version-major+minor version) "/"
3484 upstream-name "-" version ".tar.bz2")))
5698b8b8 3485 (sha256
a124bbd2
SB		 3486 (base32
3487 "0l3mhpyym9m5iz09fz0rgiqxl2ym6kpkwpsp1xrr4aa80nlh1jam"))))
5698b8b8
JD		 3488 (build-system gnu-build-system)
3489 (arguments
c2d837b9
MB		 3490 `(;; The "timeout-server" test hangs when run in parallel.
3491 #:parallel-tests? #f
3492 #:configure-flags
8aad2e32
LC		 3493 '(;; We don't need static libraries, plus they don't build reproducibly
3494 ;; (non-deterministic ordering of .o files in the archive.)
3495 "--disable-static"
3496
3497 ;; The programmer kindly gives us a hook to turn off deprecation
3498 ;; warnings ...
3499 "DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
a124bbd2
SB		 3500 ;; ... which they then completly ignore !!
3501 #:phases
dc1d3cde
KK		 3502 (modify-phases %standard-phases
3503 (add-before 'configure 'ignore-deprecations
3504 (lambda _
3505 (substitute* "linc2/src/Makefile.in"
3506 (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3507 #t)))))
5698b8b8
JD		 3508 (inputs `(("glib" ,glib)
3509 ("libidl" ,libidl)))
3510 (native-inputs
3511 `(("pkg-config" ,pkg-config)))
3512 (home-page "https://projects.gnome.org/orbit2/")
3513 (synopsis "CORBA 2.4-compliant Object Request Broker")
35b9e423 3514 (description "ORBit2 is a CORBA 2.4-compliant Object Request Broker (orb)
2e6ecc5c 3515featuring mature C, C++ and Python bindings.")
a124bbd2
SB		 3516 ;; Licence notice is unclear. The Web page simply say "GPL" without giving
3517 ;; a version. SOME of the code files have licence notices for GPLv2+.
3518 ;; The tarball contains files of the text of GPLv2 and LGPLv2.
892307ae
LC		 3519 (license license:gpl2+)
3520 (properties `((upstream-name . "ORBit2")))))
5698b8b8
JD		 3521
3522
3523(define-public libbonobo
3524 (package
3525 (name "libbonobo")
3526 (version "2.32.1")
3527 (source (origin
3528 (method url-fetch)
5becd025 3529 (uri (string-append "mirror://gnome/sources/" name "/"
29a7c98a 3530 (version-major+minor version)
5becd025 3531 "/" name "-" version ".tar.bz2"))
5698b8b8 3532 (sha256
f1fc45a9 3533 (base32 "0swp4kk6x7hy1rvd1f9jba31lvfc6qvafkvbpg9h0r34fzrd8q4i"))
fc1adab1
AK		 3534 (patches (search-patches
3535 "libbonobo-activation-test-race.patch"))))
5698b8b8
JD		 3536 (build-system gnu-build-system)
3537 (arguments
3538 ;; The programmer kindly gives us a hook to turn off deprecation warnings ...
5becd025
EB		 3539 `(#:configure-flags
3540 '("DISABLE_DEPRECATED_CFLAGS=-DGLIB_DISABLE_DEPRECATION_WARNINGS")
3541 ;; ... which they then completly ignore !!
3542 #:phases
dc1d3cde
KK		 3543 (modify-phases %standard-phases
3544 (add-before 'configure 'ignore-deprecations
3545 (lambda _
3546 (substitute* "activation-server/Makefile.in"
3547 (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
994b5b1d
LC		 3548 #t)))
3549
3550 ;; There's apparently a race condition between the server stub
3551 ;; generation and linking of the example under 'samples/echo' that can
3552 ;; lead do undefined references when building in parallel, as reported
3553 ;; at <https://forums.gentoo.org/viewtopic-t-223376-start-550.html>.
3554 ;; Thus, disable parallel builds.
3555 #:parallel-build? #f))
5698b8b8
JD		 3556 (inputs `(("popt" ,popt)
3557 ("libxml2" ,libxml2)))
3558 ;; The following are Required by the .pc file
44add1ce 3559 (propagated-inputs
5698b8b8
JD		 3560 `(("glib" ,glib)
3561 ("orbit2" ,orbit2)))
3562 (native-inputs
3563 `(("intltool" ,intltool)
3564 ("pkg-config" ,pkg-config)
221ed17a 3565 ("glib" ,glib "bin") ; for glib-genmarshal, etc.
5698b8b8
JD		 3566 ("flex" ,flex)
3567 ("bison" ,bison)))
3568 (home-page "https://developer.gnome.org/libbonobo/")
3569 (synopsis "Framework for creating reusable components for use in GNOME applications")
3570 (description "Bonobo is a framework for creating reusable components for
2e6ecc5c 3571use in GNOME applications, built on top of CORBA.")
5698b8b8
JD		 3572 ;; Licence not explicitly stated. Source files contain no licence notices.
3573 ;; Tarball contains text of both GPLv2 and LGPLv2
3574 ;; GPLv2 covers both conditions
3575 (license license:gpl2+)))
3576
3577
3578(define-public gconf
3579 (package
3580 (name "gconf")
3581 (version "3.2.6")
3582 (source (origin
3583 (method url-fetch)
a124bbd2
SB		 3584 (uri
3585 (let ((upstream-name "GConf"))
3586 (string-append "mirror://gnome/sources/" upstream-name "/"
b38e45d8
EB		 3587 (version-major+minor version) "/"
3588 upstream-name "-" version ".tar.xz")))
5698b8b8
JD		 3589 (sha256
3590 (base32 "0k3q9nh53yhc9qxf1zaicz4sk8p3kzq4ndjdsgpaa2db0ccbj4hr"))))
3591 (build-system gnu-build-system)
2e88d113 3592 (inputs `(("dbus-glib" ,dbus-glib)
5698b8b8 3593 ("libxml2" ,libxml2)))
2e6ecc5c
AE		 3594 (propagated-inputs `(("glib" ,glib) ; referred to in the .pc file
3595 ("orbit2" ,orbit2)))
5698b8b8
JD		 3596 (native-inputs
3597 `(("intltool" ,intltool)
221ed17a 3598 ("glib" ,glib "bin") ; for glib-genmarshal, etc.
5698b8b8
JD		 3599 ("pkg-config" ,pkg-config)))
3600 (home-page "https://projects.gnome.org/gconf/")
35b9e423
EB		 3601 (synopsis "Store application preferences")
3602 (description "Gconf is a system for storing application preferences. It
3603is intended for user preferences; not arbitrary data storage.")
29d2f451
LC		 3604 (license license:lgpl2.0+)
3605 (properties '((upstream-name . "GConf")))))
5698b8b8
JD		 3606
3607
3608(define-public gnome-mime-data
3609 (package
3610 (name "gnome-mime-data")
3611 (version "2.18.0")
3612 (source (origin
3613 (method url-fetch)
b38e45d8
EB		 3614 (uri (string-append "mirror://gnome/sources/" name "/"
3615 (version-major+minor version) "/"
3616 name "-" version ".tar.bz2"))
5698b8b8
JD		 3617 (sha256
3618 (base32
3619 "1mvg8glb2a40yilmyabmb7fkbzlqd3i3d31kbkabqnq86xdnn69p"))))
3620 (build-system gnu-build-system)
3621 (native-inputs
3622 `(("perl" ,perl)
3623 ("intltool" ,intltool)))
3e6add96
LC		 3624 (arguments
3625 '(#:phases (modify-phases %standard-phases
3626 (add-after 'configure 'use-our-intltool
3627 (lambda _
3628 ;; Do not use the bundled intltool commands, which lack
3629 ;; the "dotless @INC" fixes of our 'intltool' package.
3630 (substitute* (find-files "." "^Makefile$")
3631 (("^INTLTOOL_(EXTRACT|UPDATE|MERGE) = .*$" _ tool)
3632 (string-append "INTLTOOL_" tool " = intltool-"
3633 (string-downcase tool) "\n")))
3634 #t)))))
f032d0be 3635 (home-page "https://www.gnome.org")
35b9e423 3636 (synopsis "Base MIME and Application database for GNOME")
5698b8b8
JD		 3637 (description "GNOME Mime Data is a module which contains the base MIME
3638and Application database for GNOME. The data stored by this module is
3639designed to be accessed through the MIME functions in GnomeVFS.")
3640 (license license:gpl2+)))
3641
3642
3643(define-public gnome-vfs
3644 (package
3645 (name "gnome-vfs")
3646 (version "2.24.4")
3647 (source (origin
3648 (method url-fetch)
b38e45d8
EB		 3649 (uri (string-append "mirror://gnome/sources/" name "/"
3650 (version-major+minor version) "/"
3651 name "-" version ".tar.bz2"))
5698b8b8 3652 (sha256
9e12bc34
MW		 3653 (base32
3654 "1ajg8jb8k3snxc7rrgczlh8daxkjidmcv3zr9w809sq4p2sn9pk2"))))
5698b8b8
JD		 3655 (build-system gnu-build-system)
3656 (arguments
db5127d8 3657 `(#:phases
dc1d3cde
KK		 3658 (modify-phases %standard-phases
3659 (add-before 'configure 'ignore-deprecations
3660 (lambda _
3661 (substitute* '("libgnomevfs/Makefile.in"
3662 "daemon/Makefile.in")
3663 (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3664 #t))
3665 (add-before 'configure 'patch-test-async-cancel-to-never-fail
3666 (lambda _
3667 (substitute* "test/test-async-cancel.c"
3668 (("EXIT_FAILURE") "77"))
3669 #t)))))
2e6ecc5c 3670 (inputs `(("libxml2" ,libxml2)
5698b8b8 3671 ("dbus-glib" ,dbus-glib)
5698b8b8
JD		 3672 ("gconf" ,gconf)
3673 ("gnome-mime-data" ,gnome-mime-data)
3674 ("zlib" ,zlib)))
3675 (native-inputs
221ed17a
EB		 3676 `(("glib" ,glib "bin") ; for glib-mkenums, etc.
3677 ("intltool" ,intltool)
5698b8b8
JD		 3678 ("pkg-config" ,pkg-config)))
3679 (home-page "https://developer.gnome.org/gnome-vfs/")
35b9e423 3680 (synopsis "Access files and folders in GNOME applications")
9e12bc34
MW		 3681 (description
3682 "GnomeVFS is the core library used to access files and folders in GNOME
3683applications. It provides a file system abstraction which allows applications
3684to access local and remote files with a single consistent API.")
5698b8b8
JD		 3685 (license license:lgpl2.0+)))
3686
3687
3688
3689(define-public libgnome
3690 (package
3691 (name "libgnome")
3692 (version "2.32.1")
3693 (source (origin
3694 (method url-fetch)
b38e45d8
EB		 3695 (uri (string-append "mirror://gnome/sources/" name "/"
3696 (version-major+minor version) "/"
3697 name "-" version ".tar.bz2"))
5698b8b8
JD		 3698 (sha256
3699 (base32
17c3eea7
LC		 3700 "197pnq8y0knqjhm2fg4j6hbqqm3qfzfnd0irhwxpk1b4hqb3kimj"))
3701 (patches (search-patches "libgnome-encoding.patch"))))
5698b8b8
JD		 3702 (build-system gnu-build-system)
3703 (arguments
3704 `(#:phases
dc1d3cde
KK		 3705 (modify-phases %standard-phases
3706 (add-before 'configure 'enable-deprecated
3707 (lambda _
3708 (substitute* "libgnome/Makefile.in"
3709 (("-DG_DISABLE_DEPRECATED") "-DGLIB_DISABLE_DEPRECATION_WARNINGS"))
3710 #t)))))
25338e9f 3711 (inputs `(("libxml2" ,libxml2)))
5698b8b8 3712 (native-inputs
221ed17a
EB		 3713 `(("glib" ,glib "bin") ; for glib-mkenums, etc.
3714 ("intltool" ,intltool)
5698b8b8
JD		 3715 ("pkg-config" ,pkg-config)))
3716 ;; The following are listed as Required in the .pc file
3717 ;; (except for libcanberra -- which seems to be oversight on the part
3718 ;; of the upstream developers -- anything that links against libgnome,
3719 ;; must also link against libcanberra
3720 (propagated-inputs
3721 `(("libcanberra" ,libcanberra)
3722 ("libbonobo" ,libbonobo)
3723 ("gconf" ,gconf)
a640d3d5
LC		 3724 ("gnome-vfs" ,gnome-vfs)
3725 ("popt" ,popt))) ;gnome-program.h includes popt.h
5698b8b8
JD		 3726 (home-page "https://developer.gnome.org/libgnome/")
3727 (synopsis "Useful routines for building applications")
3728 (description "The libgnome library provides a number of useful routines
3729for building modern applications, including session management, activation of
3730files and URIs, and displaying help.")
3731 (license license:lgpl2.0+)))
3732
3733
3734(define-public libart-lgpl
3735 (package
3736 (name "libart-lgpl")
76c9b6aa 3737 (version "2.3.21")
5698b8b8
JD		 3738 (source (origin
3739 (method url-fetch)
3740 (uri (let ((upstream-name "libart_lgpl"))
b38e45d8
EB		 3741 (string-append "mirror://gnome/sources/" upstream-name "/"
3742 (version-major+minor version) "/"
3743 upstream-name "-" version ".tar.bz2")))
5698b8b8
JD		 3744 (sha256
3745 (base32
76c9b6aa 3746 "1yknfkyzgz9s616is0l9gp5aray0f2ry4dw533jgzj8gq5s1xhgx"))))
5698b8b8
JD		 3747 (build-system gnu-build-system)
3748 (native-inputs
3749 `(("pkg-config" ,pkg-config)))
3750 (home-page "https://people.gnome.org/~mathieu/libart")
3751 (synopsis "2D drawing library")
2e6ecc5c 3752 (description "Libart is a 2D drawing library intended as a
5698b8b8
JD		 3753high-quality vector-based 2D library with antialiasing and alpha composition.")
3754 (license license:lgpl2.0+)))
3755
3756
3757
3758(define-public libgnomecanvas
3759 (package
3760 (name "libgnomecanvas")
3761 (version "2.30.3")
3762 (source (origin
3763 (method url-fetch)
b38e45d8
EB		 3764 (uri (string-append "mirror://gnome/sources/" name "/"
3765 (version-major+minor version) "/"
3766 name "-" version ".tar.gz"))
5698b8b8
JD		 3767 (sha256
3768 (base32
3769 "1nhnq4lfkk8ljkdafscwaggx0h95mq0rxnd7zgqyq0xb6kkqbjm8"))))
3770 (build-system gnu-build-system)
3771 ;; Mentioned as Required in the .pc file
3772 (propagated-inputs `(("libart-lgpl" ,libart-lgpl)
3773 ("gtk+" ,gtk+-2)))
3774 (native-inputs
3775 `(("intltool" ,intltool)
221ed17a 3776 ("glib" ,glib "bin") ; for glib-genmarshal, etc.
5698b8b8
JD		 3777 ("pkg-config" ,pkg-config)))
3778 (home-page "https://developer.gnome.org/libgnomecanvas/")
3779 (synopsis "Flexible widget for creating interactive structured graphics")
3780 (description "The GnomeCanvas widget provides a flexible widget for
3781creating interactive structured graphics.")
3782 (license license:lgpl2.0+)))
3783
eadc734e
RW		 3784(define-public libgnomecanvasmm
3785 (package
3786 (name "libgnomecanvasmm")
3787 (version "2.26.0")
3788 (source (origin
3789 (method url-fetch)
3790 (uri (string-append "mirror://gnome/sources/" name "/"
3791 (version-major+minor version) "/"
3792 name "-" version ".tar.bz2"))
3793 (sha256
3794 (base32
3795 "0679hcnpam2gkag2i63sm0wdm35gwvzafnz1354mg6j5gzwpfrcr"))))
3796 (build-system gnu-build-system)
3797 (propagated-inputs `(("libgnomecanvas" ,libgnomecanvas)))
3798 (native-inputs
3799 `(("gtkmm-2" ,gtkmm-2)
3800 ("pkg-config" ,pkg-config)))
8e933cb3 3801 (home-page "https://gtkmm.org")
eadc734e
RW		 3802 (synopsis "C++ bindings to the GNOME Canvas library")
3803 (description "C++ bindings to the GNOME Canvas library.")
3804 (license license:lgpl2.0+)))
3805
5698b8b8
JD		 3806(define-public libgnomeui
3807 (package
3808 (name "libgnomeui")
3809 (version "2.24.5")
3810 (source (origin
3811 (method url-fetch)
b38e45d8
EB		 3812 (uri (string-append "mirror://gnome/sources/" name "/"
3813 (version-major+minor version) "/"
3814 name "-" version ".tar.bz2"))
8fa1872a 3815 (patches (search-patches "libgnomeui-utf8.patch"))
5698b8b8
JD		 3816 (sha256
3817 (base32
3818 "03rwbli76crkjl6gp422wrc9lqpl174k56cp9i96b7l8jlj2yddf"))))
3819 (build-system gnu-build-system)
3820 ;; Mentioned as Required in the .pc file
0a38a497
AE		 3821 (propagated-inputs `(("libbonoboui" ,libbonoboui)
3822 ("libgnome" ,libgnome)
3823 ("libgnomecanvas" ,libgnomecanvas)
5698b8b8 3824 ("libgnome-keyring" ,libgnome-keyring)))
4bd428a7 3825 (inputs `(("libjpeg" ,libjpeg-turbo)
5698b8b8
JD		 3826 ("popt" ,popt)
3827 ("libbonobo" ,libbonobo)
3828 ("libxml2" ,libxml2)
3829 ("libglade" ,libglade)))
3830 (native-inputs
221ed17a
EB		 3831 `(("glib" ,glib "bin") ; for glib-mkenums, etc.
3832 ("intltool" ,intltool)
5698b8b8
JD		 3833 ("pkg-config" ,pkg-config)))
3834 (home-page "https://developer.gnome.org/libgnomeui/")
3835 (synopsis "Additional widgets for applications")
35b9e423 3836 (description "The libgnomeui library provides additional widgets for
e881752c
AK		 3837applications. Many of the widgets from libgnomeui have already been
3838ported to GTK+.")
5698b8b8
JD		 3839 (license license:lgpl2.0+)))
3840
3841(define-public libglade
3842 (package
3843 (name "libglade")
3844 (version "2.6.4")
3845 (source (origin
3846 (method url-fetch)
b38e45d8
EB		 3847 (uri (string-append "mirror://gnome/sources/" name "/"
3848 (version-major+minor version) "/"
3849 name "-" version ".tar.bz2"))
5698b8b8
JD		 3850 (sha256
3851 (base32
3852 "1v2x2s04jry4gpabws92i0wq2ghd47yr5n9nhgnkd7c38xv1wdk4"))))
3853 (build-system gnu-build-system)
3854 (inputs
92dcc23d
AE		 3855 `(("python" ,python))) ;; needed for the optional libglade-convert program
3856 (propagated-inputs
5698b8b8 3857 `(("gtk+-2" ,gtk+-2)
92dcc23d 3858 ("libxml2" ,libxml2))) ; required by libglade-2.0.pc
5698b8b8
JD		 3859 (native-inputs
3860 `(("pkg-config" ,pkg-config)))
3861 (home-page "https://developer.gnome.org/libglade")
35b9e423
EB		 3862 (synopsis "Load glade interfaces and access the glade built widgets")
3863 (description "Libglade is a library that provides interfaces for loading
5698b8b8
JD		 3864graphical interfaces described in glade files and for accessing the
3865widgets built in the loading process.")
3866 (license license:gpl2+))) ; This is correct. GPL not LGPL
3867
3868(define-public libgnomeprint
eb497b66
LC		 3869 ;; This library has been deprecated since 2006; see
3870 ;; <https://mail.gnome.org/archives/devel-announce-list/2006-August/msg00005.html>.
5698b8b8
JD		 3871 (package
3872 (name "libgnomeprint")
d19db454 3873 (version "2.18.8")
5698b8b8
JD		 3874 (source (origin
3875 (method url-fetch)
b38e45d8
EB		 3876 (uri (string-append "mirror://gnome/sources/" name "/"
3877 (version-major+minor version) "/"
3878 name "-" version ".tar.bz2"))
5698b8b8
JD		 3879 (sha256
3880 (base32
d19db454 3881 "14cnimvlc7ky22g2snyf4362412k3jk1syjf8b9887q5a63fqd0h"))))
5698b8b8
JD		 3882 (build-system gnu-build-system)
3883 (inputs
3884 `(("popt" ,popt)
3885 ("libart-lgpl" ,libart-lgpl)
3886 ("gtk+" ,gtk+-2)
44add1ce 3887 ("libxml2" ,libxml2)))
5698b8b8
JD		 3888 (native-inputs
3889 `(("intltool" ,intltool)
221ed17a 3890 ("glib" ,glib "bin") ; for glib-genmarshal, etc.
5698b8b8
JD		 3891 ("pkg-config" ,pkg-config)))
3892 (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
35b9e423 3893 (synopsis "Printing framework for GNOME")
eb497b66
LC		 3894 (description
3895 "GNOME-print was a printing framework for GNOME. It has been deprecated
3896since ca. 2006, when GTK+ itself incorporated printing support.")
5698b8b8
JD		 3897 (license license:lgpl2.0+)))
3898
3899
3900(define-public libgnomeprintui
eb497b66 3901 ;; Deprecated; see libgnomeprint.
5698b8b8
JD		 3902 (package
3903 (name "libgnomeprintui")
36053d7f 3904 (version "2.18.6")
5698b8b8
JD		 3905 (source (origin
3906 (method url-fetch)
b38e45d8
EB		 3907 (uri (string-append "mirror://gnome/sources/" name "/"
3908 (version-major+minor version) "/"
3909 name "-" version ".tar.bz2"))
5698b8b8
JD		 3910 (sha256
3911 (base32
36053d7f 3912 "0spl8vinb5n6n1krnfnr61dwaxidg67h8j94z9p59k2xdsvfashm"))))
5698b8b8
JD		 3913 (build-system gnu-build-system)
3914 ;; Mentioned as Required in the .pc file
3915 (propagated-inputs `(("libgnomeprint" ,libgnomeprint)))
3916 (inputs `(("gtk+" ,gtk+-2)
3917 ("glib" ,glib)
3918 ("gnome-icon-theme" ,gnome-icon-theme)
3919 ("libgnomecanvas" ,libgnomecanvas)
2e6ecc5c 3920 ("libxml2" ,libxml2)))
5698b8b8
JD		 3921 (native-inputs
3922 `(("intltool" ,intltool)
3923 ("pkg-config" ,pkg-config)))
3924 (home-page "https://projects.gnome.org/gnome-print/home/faq.html")
3925 (synopsis "Printing framework for GNOME")
eb497b66 3926 (description (package-description libgnomeprint))
5698b8b8
JD		 3927 (license license:lgpl2.0+)))
3928
5698b8b8
JD		 3929(define-public libbonoboui
3930 (package
3931 (name "libbonoboui")
3932 (version "2.24.5")
3933 (source (origin
3934 (method url-fetch)
b38e45d8
EB		 3935 (uri (string-append "mirror://gnome/sources/" name "/"
3936 (version-major+minor version) "/"
3937 name "-" version ".tar.bz2"))
5698b8b8
JD		 3938 (sha256
3939 (base32
3940 "1kbgqh7bw0fdx4f1a1aqwpff7gp5mwhbaz60c6c98bc4djng5dgs"))))
3941 (build-system gnu-build-system)
3942 (arguments
3943 `(#:phases
dc1d3cde
KK		 3944 (modify-phases %standard-phases
3945 (add-before 'check 'start-xserver
3946 (lambda* (#:key inputs #:allow-other-keys)
3947 (let ((xorg-server (assoc-ref inputs "xorg-server"))
3948 (disp ":1"))
3949
3950 (setenv "HOME" (getcwd))
3951 (setenv "DISPLAY" disp)
3952 ;; There must be a running X server and make check doesn't start one.
3953 ;; Therefore we must do it.
3954 (zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
5698b8b8
JD		 3955 ;; Mentioned as Required by the .pc file
3956 (propagated-inputs `(("libxml2" ,libxml2)))
3957 (inputs
3958 `(("popt" ,popt)
3959 ("pangox-compat" ,pangox-compat)
3960 ("libgnome" ,libgnome)
3961 ("libgnomecanvas" ,libgnomecanvas)
3962 ("libglade" ,libglade)))
3963 (native-inputs
221ed17a
EB		 3964 `(("glib" ,glib "bin") ; for glib-genmarshal, etc.
3965 ("intltool" ,intltool)
ff337525 3966 ("xorg-server" ,xorg-server-for-tests) ; For running the tests
5698b8b8
JD		 3967 ("pkg-config" ,pkg-config)))
3968 (home-page "https://developer.gnome.org/libbonoboui/")
3969 (synopsis "Some user interface controls using Bonobo")
3970 (description "The Bonobo UI library provides a number of user interface
3971controls using the Bonobo component framework.")
3972 (license license:lgpl2.0+)))
3973
fecbf86e
SB		 3974(define-public libwnck
3975 (package
3976 (name "libwnck")
d3b40696 3977 (version "3.32.0")
fecbf86e
SB		 3978 (source (origin
3979 (method url-fetch)
3980 (uri (string-append "mirror://gnome/sources/" name "/"
3981 (version-major+minor version) "/"
3982 name "-" version ".tar.xz"))
3983 (sha256
ad9b8987 3984 (base32
d3b40696
KK		 3985 "1jp3p1lnwnwi6fxl2rz3166cmwzwy9vqz896anpwc3wdy9f875cm"))))
3986 (build-system meson-build-system)
fecbf86e
SB		 3987 (native-inputs
3988 `(("pkg-config" ,pkg-config)
d3b40696
KK		 3989 ("glib" ,glib "bin") ; for glib-mkenums
3990 ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
fecbf86e
SB		 3991 ("intltool" ,intltool)))
3992 (propagated-inputs
427476d5
SB		 3993 `(("gtk+" ,gtk+)
3994 ("libxres" ,libxres)
3995 ("startup-notification" ,startup-notification)))
fecbf86e
SB		 3996 (home-page "https://developer.gnome.org/libwnck/")
3997 (synopsis "Window Navigator Construction Kit")
3998 (description
3999 "Libwnck is the Window Navigator Construction Kit, a library for use in
4000writing pagers, tasklists, and more generally applications that are dealing
4001with window management. It tries hard to respect the Extended Window Manager
4002Hints specification (EWMH).")
4003 (license license:lgpl2.0+)))
4004
4005;; stable version for gtk2, required by xfwm4.
dbb7a081 4006(define-public libwnck-2
fecbf86e
SB		 4007 (package (inherit libwnck)
4008 (name "libwnck")
4009 (version "2.30.7")
4010 (source (origin
4011 (method url-fetch)
4012 (uri (string-append "mirror://gnome/sources/" name "/"
4013 (version-major+minor version) "/"
4014 name "-" version ".tar.xz"))
4015 (sha256
4016 (base32
4017 "15713yl0f8f3p99jzqqfmbicrdswd3vwpx7r3bkf1bgh6d9lvs4b"))))
ba7fed8e
MÁAV		 4018 (build-system gnu-build-system)
4019 (native-inputs
4020 `(("pkg-config" ,pkg-config)
4021 ("intltool" ,intltool)))
fecbf86e 4022 (propagated-inputs
427476d5
SB		 4023 `(("gtk+" ,gtk+-2)
4024 ("libxres" ,libxres)
4025 ("startup-notification" ,startup-notification)))))
b804c61e
JD		 4026
4027(define-public goffice
4028 (package
4029 (name "goffice")
10ac3ea2 4030 (version "0.10.48")
b804c61e
JD		 4031 (source (origin
4032 (method url-fetch)
16243f0b 4033 (uri (string-append "mirror://gnome/sources/goffice/"
b38e45d8 4034 (version-major+minor version) "/"
16243f0b 4035 "goffice-" version ".tar.xz"))
b804c61e 4036 (sha256
10ac3ea2 4037 (base32 "1z6f3q8fxkd1ysqrwdxdi0844zqa00vjpf07gq8mh3kal8picfd4"))))
b804c61e 4038 (build-system gnu-build-system)
72a06d3e 4039 (outputs '("out"
355420c6 4040 "doc")) ; 4.0 MiB of gtk-doc
72a06d3e
LC		 4041 (arguments
4042 '(#:configure-flags (list (string-append "--with-html-dir="
4043 (assoc-ref %outputs "doc")
4044 "/share/gtk-doc/html"))))
b804c61e
JD		 4045 (inputs
4046 `(("gtk+" ,gtk+)
4047 ("libgsf" ,libgsf)
4048 ("librsvg" ,librsvg)
4049 ("libxslt" ,libxslt)
4050 ("libxml2" ,libxml2)))
4051 (native-inputs
4052 `(("intltool" ,intltool)
f280cdb1 4053 ("glib" ,glib "bin")
b804c61e
JD		 4054 ("pkg-config" ,pkg-config)))
4055 (home-page "https://developer.gnome.org/goffice/")
4056 (synopsis "Document-centric objects and utilities")
4057 (description "A GLib/GTK+ set of document-centric objects and utilities.")
2e6ecc5c 4058 (license
b804c61e
JD		 4059 ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4060 ;; Note: NOT LGPL
4061 (list license:gpl2 license:gpl3))))
4062
c024ae36
RW		 4063(define-public goffice-0.8
4064 (package (inherit goffice)
4065 (version "0.8.17")
4066 (source (origin
4067 (method url-fetch)
4068 (uri (string-append "mirror://gnome/sources/" (package-name goffice) "/"
4069 (version-major+minor version) "/"
4070 (package-name goffice) "-" version ".tar.xz"))
4071 (sha256
4072 (base32 "05fvzbs5bin05bbsr4dp79aiva3lnq0a3a40zq55i13vnsz70l0n"))))
4073 (arguments
4074 `(#:phases
dc1d3cde
KK		 4075 (modify-phases %standard-phases
4076 (add-after 'unpack 'fix-pcre-check
4077 (lambda _
4078 ;; Only glib.h can be included directly. See
4079 ;; https://bugzilla.gnome.org/show_bug.cgi?id=670316
4080 (substitute* "configure"
4081 (("glib/gregex\\.h") "glib.h")) #t)))
72a06d3e
LC		 4082
4083 ,@(package-arguments goffice)))
c024ae36
RW		 4084 (propagated-inputs
4085 ;; libgoffice-0.8.pc mentions libgsf-1
4086 `(("libgsf" ,libgsf)))
4087 (inputs
4088 `(("gtk" ,gtk+-2)
4089 ,@(alist-delete "gtk" (package-inputs goffice))))))
4090
b804c61e
JD		 4091(define-public gnumeric
4092 (package
4093 (name "gnumeric")
024b273e 4094 (version "1.12.48")
b804c61e
JD		 4095 (source (origin
4096 (method url-fetch)
b7fd0217 4097 (uri (string-append "mirror://gnome/sources/gnumeric/"
b38e45d8 4098 (version-major+minor version) "/"
b7fd0217 4099 "gnumeric-" version ".tar.xz"))
b804c61e
JD		 4100 (sha256
4101 (base32
024b273e 4102 "14556b0vyxdvdwjlin0rv7jk0vq4nplbmvp9j89bhkfk84xf7k2p"))))
bd1b1e05 4103 (build-system glib-or-gtk-build-system)
b804c61e
JD		 4104 (arguments
4105 `(;; The gnumeric developers don't worry much about failing tests.
4106 ;; See https://bugzilla.gnome.org/show_bug.cgi?id=732387
2e6ecc5c 4107 #:tests? #f
b804c61e 4108 #:phases
7bcbd40d
EF		 4109 (modify-phases %standard-phases
4110 (add-before
4111 'configure 'pre-conf
4112 (lambda* (#:key outputs #:allow-other-keys)
4113 ;; Make install tries to write into the directory of goffice
4114 ;; I am informed that this only affects the possibility to embed a
4115 ;; spreadsheet inside an Abiword document. So presumably when we
4116 ;; package Abiword we'll have to refer it to this directory.
4117 (substitute* "configure"
4118 (("^GOFFICE_PLUGINS_DIR=.*")
4119 (string-append "GOFFICE_PLUGINS_DIR="
4120 (assoc-ref outputs "out")
4121 "/goffice/plugins"))))))))
b804c61e
JD		 4122 (inputs
4123 `(("glib" ,glib)
4124 ("gtk+" ,gtk+)
4125 ("goffice" ,goffice)
4126 ("libgsf" ,libgsf)
7bcbd40d 4127 ("librsvg" ,librsvg)
b804c61e 4128 ("libxml2" ,libxml2)
7bcbd40d 4129 ("libxslt" ,libxslt)
024b273e
TGR		 4130 ("python" ,python)
4131 ("python-pygobject" ,python-pygobject)
b804c61e
JD		 4132 ("zlib" ,zlib)))
4133 (native-inputs
6983ba56 4134 `(("bison" ,bison)
1ed398d1 4135 ("docbook-xml" ,docbook-xml)
6983ba56 4136 ("intltool" ,intltool)
785fcb62 4137 ("itstool" ,itstool)
b9663471 4138 ("glib:bin" ,glib "bin")
b804c61e
JD		 4139 ("pkg-config" ,pkg-config)))
4140 (home-page "http://www.gnumeric.org")
66672a45
LC		 4141 (synopsis "Spreadsheet application")
4142 (description
4143 "GNUmeric is a GNU spreadsheet application, running under GNOME. It is
4144interoperable with other spreadsheet applications. It has a vast array of
4145features beyond typical spreadsheet functionality, such as support for linear
4146and non-linear solvers, statistical analysis, and telecommunication
4147engineering.")
4148 (license
b804c61e
JD		 4149 ;; Dual licensed under GPLv2 or GPLv3 (both without "or later")
4150 (list license:gpl2 license:gpl3))))
6f885c05
FB		 4151
4152(define-public gnome-themes-standard
4153 (package
4154 (name "gnome-themes-standard")
0b7b8fb0 4155 (version "3.22.3")
6f885c05
FB		 4156 (source
4157 (origin
4158 (method url-fetch)
2e6ecc5c 4159 (uri (string-append "mirror://gnome/sources/" name "/"
6f885c05
FB		 4160 (version-major+minor version) "/" name "-"
4161 version ".tar.xz"))
4162 (sha256
4163 (base32
0b7b8fb0 4164 "0smmiamrgcgf5sa88bsn8hwmvsyx4gczzs359nwxbkv14b2qgp31"))))
6f885c05 4165 (build-system gnu-build-system)
8ac70c7f
SB		 4166 (arguments
4167 '(#:configure-flags
4168 ;; Don't create 'icon-theme.cache'.
4169 (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
4170 (true (string-append coreutils "/bin/true")))
4171 (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
6f885c05
FB		 4172 (inputs
4173 `(("gtk+" ,gtk+)
4174 ("gtk+-2" ,gtk+-2)
4175 ("librsvg" ,librsvg)
4176 ("libxml2" ,libxml2)
4177 ("glib" ,glib)))
4178 (native-inputs
4179 `(("intltool" ,intltool)
4180 ("glib:bin" ,glib "bin")
4181 ("pkg-config" ,pkg-config)))
6f885c05
FB		 4182 (home-page "https://launchpad.net/gnome-themes-standard")
4183 (synopsis "Default GNOME 3 themes")
4184 (description
4185 "The default GNOME 3 themes (Adwaita and some accessibility themes).")
4186 (license license:lgpl2.1+)))
5a659a48 4187
df90c701
RW		 4188(define-public seahorse
4189 (package
4190 (name "seahorse")
f68cbccf 4191 (version "3.36.2")
df90c701
RW		 4192 (source
4193 (origin
4194 (method url-fetch)
4195 (uri (string-append "mirror://gnome/sources/" name "/"
4196 (version-major+minor version) "/" name "-"
4197 version ".tar.xz"))
4198 (sha256
f68cbccf 4199 (base32 "16wmxxppgcgfj8zkagcny5af1c81x32ysm9d6j9f2k7bmik21ss5"))))
af561664
MÁAV		 4200 (build-system meson-build-system)
4201 (arguments
bcea3c11
KK		 4202 '(#:glib-or-gtk? #t
4203 #:phases
af561664
MÁAV		 4204 (modify-phases %standard-phases
4205 (add-after 'unpack 'skip-gtk-update-icon-cache
4206 ;; Don't create 'icon-theme.cache'.
4207 (lambda _
4208 (substitute* "build-aux/meson_post_install.py"
4209 (("gtk-update-icon-cache") "true"))
4210 #t)))))
df90c701
RW		 4211 (inputs
4212 `(("gtk+" ,gtk+)
4213 ("gcr" ,gcr)
34b979b9 4214 ("gnupg" ,gnupg)
df90c701 4215 ("gpgme" ,gpgme)
34b979b9 4216 ("openldap" ,openldap)
4a1bf090 4217 ("openssh" ,openssh)
af561664 4218 ("avahi" ,avahi)
922aae23 4219 ("libhandy" ,libhandy-0.0)
bcea3c11 4220 ("libpwquality" ,libpwquality)
34b979b9
EF		 4221 ("libsecret" ,libsecret)
4222 ("libsoup" ,libsoup)))
df90c701 4223 (native-inputs
af561664 4224 `(("gettext" ,gettext-minimal)
df90c701
RW		 4225 ("glib:bin" ,glib "bin")
4226 ("itstool" ,itstool)
bcb354ad 4227 ("pkg-config" ,pkg-config)
af561664 4228 ("vala" ,vala)
bcb354ad 4229 ("xmllint" ,libxml2)))
bcea3c11 4230 (home-page "https://wiki.gnome.org/Apps/Seahorse")
df90c701
RW		 4231 (synopsis "Manage encryption keys and passwords in the GNOME keyring")
4232 (description
4233 "Seahorse is a GNOME application for managing encryption keys and
4234passwords in the GNOME keyring.")
4235 (license license:gpl2+)))
4236
5a659a48
SB		 4237(define-public vala
4238 (package
4239 (name "vala")
b92a36db 4240 (version "0.46.5")
5a659a48
SB		 4241 (source (origin
4242 (method url-fetch)
4243 (uri (string-append "mirror://gnome/sources/" name "/"
4244 (version-major+minor version) "/"
4245 name "-" version ".tar.xz"))
4246 (sha256
4247 (base32
b92a36db 4248 "07fv895sp9wq74b20qig7hic0r4ynrr5pfaqba02r44xb794fy0s"))))
5a659a48 4249 (build-system gnu-build-system)
1ea90625
SB		 4250 (arguments
4251 '(#:phases
4252 (modify-phases %standard-phases
f4925a4f 4253 (add-before 'check 'pre-check
1ea90625
SB		 4254 (lambda _
4255 (setenv "CC" "gcc")
8839b6be
RW		 4256 (substitute* "valadoc/tests/testrunner.sh"
4257 (("export PKG_CONFIG_PATH=" m)
4258 (string-append m "$PKG_CONFIG_PATH:")))
f4925a4f
SB		 4259 ;; For missing '/etc/machine-id'.
4260 (setenv "DBUS_FATAL_WARNINGS" "0")
8839b6be 4261 #t)))))
5a659a48
SB		 4262 (native-inputs
4263 `(("pkg-config" ,pkg-config)
4264 ("flex" ,flex)
4265 ("bison" ,bison)
4266 ("xsltproc" ,libxslt)
4267 ("dbus" ,dbus) ; for dbus tests
4268 ("gobject-introspection" ,gobject-introspection))) ; for gir tests
8839b6be
RW		 4269 (inputs
4270 `(("graphviz" ,graphviz)))
5a659a48 4271 (propagated-inputs
8839b6be 4272 `(("glib" ,glib))) ; required by libvala-0.40.pc
6629aa2a 4273 (home-page "https://wiki.gnome.org/Projects/Vala/")
5a659a48
SB		 4274 (synopsis "Compiler for the GObject type system")
4275 (description
4276 "Vala is a programming language that aims to bring modern programming
4277language features to GNOME developers without imposing any additional runtime
4278requirements and without using a different ABI compared to applications and
4279libraries written in C.")
4280 (license license:lgpl2.1+)))
ea57378f 4281
d1d69543 4282(define-public vala-0.50
2dcaa760
RP		 4283 (package
4284 (inherit vala)
6629aa2a 4285 (version "0.50.2")
2dcaa760
RP		 4286 (source (origin
4287 (method url-fetch)
4288 (uri (string-append "mirror://gnome/sources/vala/"
4289 (version-major+minor version) "/"
4290 "vala-" version ".tar.xz"))
4291 (sha256
4292 (base32
6629aa2a 4293 "1nnf0x6vk0a9p2y6z7jwjfvmlxh3qhj581v381r0y1sxsv35s39c"))))))
2dcaa760 4294
ea57378f
SB		 4295(define-public vte
4296 (package
4297 (name "vte")
53865a93 4298 (version "0.60.3")
ea57378f
SB		 4299 (source (origin
4300 (method url-fetch)
ac87ffb8 4301 (uri (string-append "mirror://gnome/sources/vte/"
ea57378f 4302 (version-major+minor version) "/"
ac87ffb8 4303 "vte-" version ".tar.xz"))
ea57378f
SB		 4304 (sha256
4305 (base32
53865a93 4306 "0al2v6fn061v4j1wwvppim1q283y2a6s0iyl29hxhmx3h48nxdzy"))))
68c47474 4307 (build-system meson-build-system)
663def11
RPG		 4308 (arguments
4309 `(#:configure-flags
11491e1b
DM		 4310 '("-Dvapi=true"
4311 "-D_systemd=false")))
ea57378f
SB		 4312 (native-inputs
4313 `(("pkg-config" ,pkg-config)
4684580a 4314 ("gettext" ,gettext-minimal)
ea57378f
SB		 4315 ("vala" ,vala)
4316 ("gobject-introspection" ,gobject-introspection)
68c47474 4317 ("glib" ,glib "bin") ; for glib-genmarshal, etc.
73f0e1ab 4318 ("gperf" ,gperf)
ea57378f
SB		 4319 ("xmllint" ,libxml2)))
4320 (propagated-inputs
68c47474
TGR		 4321 `(("gtk+" ,gtk+) ; required by vte-2.91.pc
4322 ("gnutls" ,gnutls) ; ditto
4323 ("pcre2" ,pcre2))) ; ditto
f032d0be 4324 (home-page "https://www.gnome.org/")
ea57378f
SB		 4325 (synopsis "Virtual Terminal Emulator")
4326 (description
4327 "VTE is a library (libvte) implementing a terminal emulator widget for
4328GTK+, and a minimal sample application (vte) using that. Vte is mainly used in
4329gnome-terminal, but can also be used to embed a console/terminal in games,
4330editors, IDEs, etc.")
4331 (license license:lgpl2.1+)))
4332
c44fb4df
MO		 4333(define-public vte-ng
4334 (package
4335 (inherit vte)
4336 (name "vte-ng")
24f4fcbe 4337 (version "0.58.2.a")
afd90f8d 4338 (home-page "https://github.com/thestinger/vte-ng")
6bc00737
MB		 4339 (source (origin
4340 (method git-fetch)
4341 (uri (git-reference (url home-page) (commit version)))
4342 (file-name (git-file-name name version))
4343 (sha256
4344 (base32
24f4fcbe
MB		 4345 "0rnm5c6m3abbm81jsfdas0y80z299ny54gr4syn4bfrms3s4g19l"))))
4346 (build-system meson-build-system)
c44fb4df
MO		 4347 (native-inputs
4348 `(("gtk-doc" ,gtk-doc)
c44fb4df 4349 ,@(package-native-inputs vte)))
c44fb4df 4350 (arguments
24f4fcbe 4351 `(#:configure-flags '("-Ddocs=true")))
c44fb4df
MO		 4352 (synopsis "Enhanced VTE terminal widget")
4353 (description
4354 "VTE is a library (libvte) implementing a terminal emulator widget for
4355GTK+, this fork provides additional functions exposed for keyboard text
4356selection and URL hints.")))
4357
da11c16b 4358;; Stable version for gtk2, required by gnurobots and lxterminal as of 2020-07.
ea57378f
SB		 4359(define-public vte/gtk+-2
4360 (package (inherit vte)
4361 (name "vte")
4362 (version "0.28.2")
4363 (source (origin
4364 (method url-fetch)
4365 (uri (string-append "mirror://gnome/sources/" name "/"
4366 (version-major+minor version) "/"
4367 name "-" version ".tar.xz"))
4368 (sha256
4369 (base32
7d48938a
EF		 4370 "1bmhahkf8wdsra9whd3k5l5z4rv7r58ksr8mshzajgq2ma0hpkw6"))
4371 (patches (search-patches
4372 "vte-CVE-2012-2738-pt1.patch"
4373 "vte-CVE-2012-2738-pt2.patch"))))
8eebde74 4374 (build-system gnu-build-system)
ea57378f
SB		 4375 (arguments
4376 '(#:configure-flags '("--disable-python")))
4377 (native-inputs
4378 `(("pkg-config" ,pkg-config)
4379 ("intltool" ,intltool)
4380 ("glib" ,glib "bin"))) ; for glib-genmarshal, etc.
4381 (propagated-inputs
4382 `(("gtk+" ,gtk+-2) ; required by libvte.pc
4383 ("ncurses" ,ncurses))))) ; required by libvte.la
b47e1b20 4384
cce0da5e
TD		 4385(define-public vinagre
4386 (package
4387 (name "vinagre")
4388 (version "3.22.0")
4389 (source (origin
4390 (method url-fetch)
4391 (uri (string-append "mirror://gnome/sources/" name "/"
4392 (version-major+minor version) "/"
4393 name "-" version ".tar.xz"))
684f97f8
EF		 4394 (patches (search-patches "vinagre-newer-freerdp.patch"
4395 "vinagre-newer-rdp-parameters.patch"))
cce0da5e
TD		 4396 (sha256
4397 (base32
4398 "10jya3jyrm18nbw3v410gbkc7677bqamax44pzgd3j15randn76d"))))
4399 (build-system glib-or-gtk-build-system)
684f97f8 4400 (arguments
7f486d25
MC		 4401 ;; Disable -Werror and such, to avoid build failures on compilation
4402 ;; warnings.
4403 '(#:configure-flags '("--enable-compile-warnings=minimum")
4404 #:phases
684f97f8 4405 (modify-phases %standard-phases
1839768c
EF		 4406 (add-before 'install 'skip-gtk-update-icon-cache
4407 (lambda _
4408 ;; Don't create 'icon-theme.cache'
4409 (substitute* (find-files "." "^Makefile$")
4410 (("gtk-update-icon-cache") (which "true")))
4411 #t))
684f97f8
EF		 4412 (add-after 'unpack 'patch-configure
4413 (lambda _
4414 (substitute* "configure"
4415 (("freerdp") "freerdp2"))
4416 #t)))))
cce0da5e
TD		 4417 (native-inputs
4418 `(("pkg-config" ,pkg-config)
4419 ("intltool" ,intltool)
4420 ("itstool" ,itstool)
1839768c 4421 ("glib-bin" ,glib "bin"))) ;for glib-compile-schemas
cce0da5e
TD		 4422 (inputs
4423 `(("libxml2" ,libxml2)
4424 ("gtk-vnc" ,gtk-vnc)
4425 ("gnome-keyring" ,gnome-keyring)
4426 ("libsecret" ,libsecret)
4427 ("freerdp" ,freerdp)
4428 ("spice" ,spice)
4429 ("spice-gtk" ,spice-gtk)
4430 ("telepathy-glib" ,telepathy-glib)
4431 ("vte" ,vte)))
cce0da5e
TD		 4432 (home-page "https://wiki.gnome.org/Apps/Vinagre")
4433 (synopsis "Remote desktop viewer for GNOME")
4434 (description "Vinagre is a remote display client supporting the VNC, SPICE
4435and RDP protocols.")
4436 (license license:gpl3+)))
4437
b47e1b20
FB		 4438(define-public dconf
4439 (package
4440 (name "dconf")
62df18d3 4441 (version "0.36.0")
b47e1b20
FB		 4442 (source (origin
4443 (method url-fetch)
4444 (uri (string-append
2e6ecc5c 4445 "mirror://gnome/sources/" name "/"
b47e1b20
FB		 4446 (version-major+minor version) "/"
4447 name "-" version ".tar.xz"))
4448 (sha256
f05c809f 4449 (base32
62df18d3 4450 "0bfs069pjv6lhp7xrzmrhz3876ay2ryqxzc6mlva1hhz34ibprlz"))))
35fa923d 4451 (build-system meson-build-system)
bc036f4c
MB		 4452 (propagated-inputs
4453 ;; In Requires of dconf.pc.
4454 `(("glib" ,glib)))
b47e1b20
FB		 4455 (inputs
4456 `(("gtk+" ,gtk+)
bc036f4c 4457 ("dbus" ,dbus)))
b47e1b20 4458 (native-inputs
1e33331c
MB		 4459 `(("bash-completion" ,bash-completion)
4460 ("libxslt" ,libxslt) ;for xsltproc
bc036f4c 4461 ("libxml2" ,libxml2) ;for XML_CATALOG_FILES
b47e1b20
FB		 4462 ("docbook-xml" ,docbook-xml-4.2)
4463 ("docbook-xsl" ,docbook-xsl)
35fa923d 4464 ("glib:bin" ,glib "bin")
03676d6f 4465 ("gtk-doc" ,gtk-doc)
35fa923d
MB		 4466 ("pkg-config" ,pkg-config)
4467 ("vala" ,vala)))
b47e1b20 4468 (arguments
8bfda3df 4469 `(#:glib-or-gtk? #t
91fadb7a
MB		 4470 #:configure-flags '("-Denable-gtk-doc=true")
4471 #:phases (modify-phases %standard-phases
4472 (add-after 'unpack 'increase-test-timeout
4473 (lambda _
4474 ;; On big-memory systems, the engine test may take
4475 ;; much longer than the default of 30 seconds.
4476 (substitute* "tests/meson.build"
4477 (("test\\(unit_test\\[0\\], exe" all)
4478 (string-append all ", timeout : 90")))
4479 #t)))))
79d7b527 4480 (home-page "https://developer.gnome.org/dconf/")
b47e1b20
FB		 4481 (synopsis "Low-level GNOME configuration system")
4482 (description "Dconf is a low-level configuration system. Its main purpose
4483is to provide a backend to GSettings on platforms that don't already have
4484configuration storage systems.")
e20e6b40 4485 (license license:lgpl2.1+)))
109da1c0
AE		 4486
4487(define-public json-glib
4488 (package
4489 (name "json-glib")
4115e8ea 4490 (version "1.4.4")
109da1c0
AE		 4491 (source (origin
4492 (method url-fetch)
4493 (uri (string-append "mirror://gnome/sources/" name "/"
4494 (version-major+minor version) "/"
4495 name "-" version ".tar.xz"))
4496 (sha256
4497 (base32
4115e8ea 4498 "0ixwyis47v5bkx6h8a1iqlw3638cxcv57ivxv4gw2gaig51my33j"))))
98afa184 4499 (build-system meson-build-system)
109da1c0 4500 (native-inputs
98afa184
MB		 4501 `(("gettext" ,gettext-minimal)
4502 ("glib" ,glib "bin") ;for glib-mkenums and glib-genmarshal
109da1c0
AE		 4503 ("gobject-introspection" ,gobject-introspection)
4504 ("pkg-config" ,pkg-config)))
4505 (propagated-inputs
88c6b580 4506 `(("glib" ,glib))) ;according to json-glib-1.0.pc
109da1c0
AE		 4507 (home-page "https://wiki.gnome.org/Projects/JsonGlib")
4508 (synopsis "Compiler for the GObject type system")
7c125ce0
AK		 4509 (description
4510 "JSON-GLib is a C library based on GLib providing serialization and
4511deserialization support for the JavaScript Object Notation (JSON) format
4512described by RFC 4627. It provides parser and generator GObject classes and
4513various wrappers for the complex data types employed by JSON, such as arrays
4514and objects.")
109da1c0 4515 (license license:lgpl2.1+)))
6f96a359
SB		 4516
4517(define-public libxklavier
4518 (package
4519 (name "libxklavier")
5f39050b 4520 (version "5.4")
6f96a359 4521 (source (origin
5f39050b 4522 ;; Note: There's no tarball at ftp.gnome.org for this version.
4523 (method git-fetch)
4524 (uri (git-reference
4525 (url "https://anongit.freedesktop.org/git/libxklavier")
4526 (commit (string-append "libxklavier-" version))))
6f96a359
SB		 4527 (sha256
4528 (base32
5f39050b 4529 "1w1x5mrgly2ldiw3q2r6y620zgd89gk7n90ja46775lhaswxzv7a"))
4530 (file-name (git-file-name name version))))
6f96a359
SB		 4531 (build-system gnu-build-system)
4532 (arguments
778d6b52 4533 '(#:configure-flags
6f96a359
SB		 4534 (list (string-append "--with-xkb-base="
4535 (assoc-ref %build-inputs "xkeyboard-config")
5f39050b 4536 "/share/X11/xkb")
4537 "--disable-xmodmap-support")))
6f96a359
SB		 4538 (native-inputs
4539 `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
4540 ("gobject-introspection" ,gobject-introspection)
5f39050b 4541 ("pkg-config" ,pkg-config)
4542 ("gtk-doc" ,gtk-doc)
4543 ("intltool" ,intltool)
4544 ("which" ,which)
4545 ("autoconf" ,autoconf)
4546 ("automake" ,automake)
4547 ("libtool" ,libtool)))
6f96a359
SB		 4548 (propagated-inputs
4549 ;; Required by libxklavier.pc.
4550 `(("glib" ,glib)
4551 ("libxml2" ,libxml2)))
4552 (inputs
4553 `(("iso-codes" ,iso-codes)
4554 ("libxi" ,libxi)
4555 ("libxkbfile" ,libxkbfile)
4556 ("xkbcomp" ,xkbcomp)
4557 ("xkeyboard-config" ,xkeyboard-config)))
57e7d748 4558 (home-page "https://www.freedesktop.org/wiki/Software/LibXklavier/")
6f96a359
SB		 4559 (synopsis "High-level API for X Keyboard Extension")
4560 (description
4561 "LibXklavier is a library providing high-level API for X Keyboard
e881752c
AK		 4562Extension known as XKB. This library is intended to support XFree86 and other
4563commercial X servers. It is useful for creating XKB-related software (layout
6f96a359
SB		 4564indicators etc).")
4565 (license license:lgpl2.0+)))
619936a4
LC		 4566
4567(define-public python2-rsvg
4568 ;; XXX: This is actually a subset of gnome-python-desktop.
4569 (package
4570 (name "python2-rsvg")
4571 (version "2.32.0")
4572 (source
4573 (origin
4574 (method url-fetch)
4575 (uri (string-append
4576 "mirror://gnome/sources/gnome-python-desktop/2.32/gnome-python-desktop-"
4577 version ".tar.bz2"))
4578 (sha256
4579 (base32
4580 "1s8f9rns9v7qlwjv9qh9lr8crp88dpzfm45hj47zc3ivpy0dbnq9"))))
4581 (build-system gnu-build-system)
4582 (native-inputs
4583 `(("pkg-config" ,pkg-config)))
4584 (inputs
4585 `(("python" ,python-2)
4586 ("python2-pygtk" ,python2-pygtk)
4587 ("librsvg" ,librsvg)))
f032d0be 4588 (home-page "https://www.gnome.org")
619936a4
LC		 4589 (synopsis "Python bindings to librsvg")
4590 (description
3ad75446 4591 "This package provides Python bindings to librsvg, the SVG rendering
619936a4
LC		 4592library.")
4593
4594 ;; This is the license of the rsvg bindings. The license of each module
4595 ;; of gnome-python-desktop is given in 'COPYING'.
4596 (license license:lgpl2.1+)))
a31a6d22 4597
f2ca414a
SB		 4598(define-public glib-networking
4599 (package
4600 (name "glib-networking")
ea9f74b0 4601 (version "2.62.2")
f2ca414a
SB		 4602 (source (origin
4603 (method url-fetch)
4604 (uri (string-append "mirror://gnome/sources/glib-networking/"
4605 (version-major+minor version) "/"
fb8fe1e8 4606 "glib-networking-" version ".tar.xz"))
f2ca414a
SB		 4607 (sha256
4608 (base32
ea9f74b0 4609 "0i2mw75297ql72h47vyvff3hqa0kcmqybblj52fqrarb0kfbhi06"))))
65211552 4610 (build-system meson-build-system)
f2ca414a 4611 (arguments
0d75c64d 4612 `(#:configure-flags '("-Dlibproxy_support=false")))
f2ca414a
SB		 4613 (native-inputs
4614 `(("pkg-config" ,pkg-config)
4615 ("intltool" ,intltool)))
4616 (inputs
4617 `(("glib" ,glib)
4618 ("gnutls" ,gnutls)
4b8f1313 4619 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
f032d0be 4620 (home-page "https://www.gnome.org")
f2ca414a
SB		 4621 (synopsis "Network-related GIO modules")
4622 (description
4623 "This package contains various network related extensions for the GIO
4624library.")
4625 (license license:lgpl2.0+)))
4626
ca649680 4627(define-public rest
4510b2da 4628 (package
ca649680 4629 (name "rest")
a4194d16 4630 (version "0.8.1")
4510b2da
SB		 4631 (source (origin
4632 (method url-fetch)
4633 (uri (string-append "mirror://gnome/sources/rest/"
ca649680
SB		 4634 (version-major+minor version) "/"
4635 name "-" version ".tar.xz"))
4510b2da
SB		 4636 (sha256
4637 (base32
a4194d16 4638 "1j81bgqmd55s5lxyaxcplym9n6xywcs1cm9wmvafsg2xiv9sl4q5"))))
4510b2da
SB		 4639 (build-system gnu-build-system)
4640 (arguments
4641 '(#:tests? #f ; tests require internet connection
4642 #:configure-flags
4643 '("--with-ca-certificates=/etc/ssl/certs/ca-certificates.crt")))
4644 (native-inputs
4645 `(("glib-mkenums" ,glib "bin")
4646 ("gobject-introspection" ,gobject-introspection)
4647 ("pkg-config" ,pkg-config)))
4648 (propagated-inputs
4649 ;; rest-0.7.pc refers to all these.
4650 `(("glib" ,glib)
4651 ("libsoup" ,libsoup)
4652 ("libxml2" ,libxml2)))
24d6cc1d 4653 (home-page "https://www.gtk.org/")
4510b2da
SB		 4654 (synopsis "RESTful web api query library")
4655 (description
4656 "This library was designed to make it easier to access web services that
4657claim to be \"RESTful\". It includes convenience wrappers for libsoup and
4658libxml to ease remote use of the RESTful API.")
4659 (license license:lgpl2.1+)))
4660
6e1bb642
SB		 4661(define-public libsoup
4662 (package
4663 (name "libsoup")
9a9cd9bc 4664 (version "2.70.0")
6e1bb642
SB		 4665 (source (origin
4666 (method url-fetch)
4667 (uri (string-append "mirror://gnome/sources/libsoup/"
4668 (version-major+minor version) "/"
c1b79b36 4669 "libsoup-" version ".tar.xz"))
6e1bb642
SB		 4670 (sha256
4671 (base32
9a9cd9bc 4672 "0hjk9lgppc5435my0lyywbpmj7ib5vvcylwfin8ki97g9bvj1c2l"))))
eccaa8bf 4673 (build-system meson-build-system)
6e1bb642
SB		 4674 (outputs '("out" "doc"))
4675 (arguments
2deb146f 4676 `(#:modules ((guix build utils)
eccaa8bf 4677 (guix build meson-build-system)
2deb146f
LC		 4678 (ice-9 popen))
4679
f8026a79 4680 #:configure-flags '("-Dgtk_doc=true")
6e1bb642
SB		 4681 #:phases
4682 (modify-phases %standard-phases
eccaa8bf 4683 (add-after 'unpack 'adjust-tests
26c228f9 4684 (lambda _
eccaa8bf
MB		 4685 ;; This test fails due to missing /etc/nsswitch.conf
4686 ;; in the build environment.
26c228f9
LC		 4687 (substitute* "tests/socket-test.c"
4688 ((".*/sockets/unconnected.*") ""))
2deb146f 4689
f8026a79
MB		 4690 ;; These fail because "subdomain.localhost" does not resolve in
4691 ;; the build environment.
4692 (substitute* "tests/hsts-test.c"
4693 ((".*/hsts/basic.*") "")
4694 ((".*/hsts/subdomains.*") "")
4695 ((".*/hsts/superdomain.*") "")
4696 ((".*/hsts/utf8-address.*") ""))
4697 (substitute* "tests/hsts-db-test.c"
4698 ((".*/hsts-db/subdomains.*") ""))
4699
2deb146f
LC		 4700 ;; Generate a self-signed certificate that has "localhost" as its
4701 ;; 'dnsName'. Failing to do that, and starting with GnuTLS
4702 ;; 3.5.12, tests such as "ssl-tests" fail:
4703 ;;
4704 ;; ERROR:ssl-test.c:406:do_tls_interaction_test: Unexpected status 6 Unacceptable TLS certificate (expected 200 OK)
4705 ;;
4706 ;; 'certtool' is interactive so we have to pipe it the answers.
4707 ;; Reported at <https://bugzilla.gnome.org/show_bug.cgi?id=784696>.
4708 (let ((pipe (open-output-pipe "certtool --generate-self-signed \
4709 --load-privkey tests/test-key.pem --outfile tests/test-cert.pem")))
4710 (for-each (lambda (line)
4711 (display line pipe)
4712 (newline pipe))
4713 '("" ;Common name
4714 "" ;UID
4715 "Guix" ;Organizational unit name
4716 "GNU" ;Organization name
4717 "" ;Locality name
4718 "" ;State or province
4719 "" ;Country
4720 "" ;subject's domain component (DC)
4721 "" ;E-mail
4722 "" ;serial number
4723 "-1" ;expiration time
4724 "N" ;belong to authority?
4725 "N" ;web client certificate?
4726 "N" ;IPsec IKE?
4727 "Y" ;web server certificate?
4728 "localhost" ;dnsName of subject
4729 "" ;dnsName of subject (end)
4730 "" ;URI of subject
4731 "127.0.0.1" ;IP address of subject
4732 "" ;signing?
06f5bc4e
MB		 4733 "" ;encryption (RSA)?
4734 "" ;data encryption?
2deb146f
LC		 4735 "" ;sign OCSP requests?
4736 "" ;sign code?
4737 "" ;time stamping?
4738 "" ;email protection?
4739 "" ;URI of the CRL distribution point
4740 "y" ;above info OK?
4741 ))
4742 (close-pipe pipe))
26c228f9 4743 #t))
eccaa8bf
MB		 4744 (add-after 'install 'move-doc
4745 (lambda* (#:key outputs #:allow-other-keys)
4746 (let ((out (assoc-ref outputs "out"))
4747 (doc (assoc-ref outputs "doc")))
4748 (mkdir-p (string-append doc "/share"))
4749 (copy-recursively (string-append out "/share/gtk-doc")
4750 (string-append doc "/share/gtk-doc"))
4751 (delete-file-recursively (string-append out "/share/gtk-doc"))
4752 #t))))))
6e1bb642 4753 (native-inputs
26c228f9 4754 `(("glib:bin" ,glib "bin") ; for glib-mkenums
6e1bb642 4755 ("gobject-introspection" ,gobject-introspection)
eccaa8bf 4756 ("gtk-doc" ,gtk-doc)
6e1bb642
SB		 4757 ("intltool" ,intltool)
4758 ("pkg-config" ,pkg-config)
4759 ("python" ,python-wrapper)
fd730590 4760 ("vala" ,vala)
53c41e95 4761 ("php" ,php)
6e1bb642 4762 ("curl" ,curl)
2deb146f 4763 ("gnutls" ,gnutls) ;for 'certtool'
6e1bb642
SB		 4764 ("httpd" ,httpd)))
4765 (propagated-inputs
4766 ;; libsoup-2.4.pc refers to all these.
f8026a79
MB		 4767 `(("brotli" ,google-brotli)
4768 ("glib" ,glib)
249846bf 4769 ("libpsl" ,libpsl)
eccaa8bf 4770 ("libxml2" ,libxml2)
f8026a79
MB		 4771 ("sqlite" ,sqlite)
4772 ("zlib" ,zlib)))
eccaa8bf
MB		 4773 (inputs
4774 `(("glib-networking" ,glib-networking)
4775 ("mit-krb5" ,mit-krb5)))
6e1bb642
SB		 4776 (home-page "https://live.gnome.org/LibSoup/")
4777 (synopsis "GLib-based HTTP Library")
4778 (description
4779 "LibSoup is an HTTP client/server library for GNOME. It uses GObjects
4780and the GLib main loop, to integrate well with GNOME applications.")
4781 (license license:lgpl2.0+)))
4782
43b6b45e
MC		 4783
4784;;; A minimal version of libsoup used to prevent a cycle with Inkscape.
4785(define-public libsoup-minimal
4786 (package
4787 (inherit libsoup)
4788 (name "libsoup-minimal")
4789 (outputs (delete "doc" (package-outputs libsoup)))
4790 (arguments
4791 (substitute-keyword-arguments (package-arguments libsoup)
4792 ((#:configure-flags configure-flags)
4793 `(delete "-Dgtk_doc=true" ,configure-flags))
4794 ((#:phases phases)
4795 `(modify-phases ,phases
4796 (delete 'move-doc)))))
4797 (native-inputs (alist-delete "gtk-doc" (package-native-inputs libsoup)))))
4798
bba229a3
SB		 4799(define-public libsecret
4800 (package
4801 (name "libsecret")
dcf05d05 4802 (version "0.20.4")
bba229a3
SB		 4803 (source (origin
4804 (method url-fetch)
4805 (uri (string-append
896dcbc7
EF		 4806 "mirror://gnome/sources/libsecret/"
4807 (version-major+minor version) "/"
0ada4e29 4808 "libsecret-" version ".tar.xz"))
bba229a3
SB		 4809 (sha256
4810 (base32
dcf05d05 4811 "0a4xnfmraxchd9cq5ai66j12jv2vrgjmaaxz25kl031jvda4qnij"))))
bba229a3
SB		 4812 (build-system gnu-build-system)
4813 (outputs '("out" "doc"))
4814 (arguments
4815 `(#:tests? #f ; FIXME: Testing hangs.
bba229a3
SB		 4816 #:configure-flags
4817 (list (string-append "--with-html-dir="
4818 (assoc-ref %outputs "doc")
4819 "/share/gtk-doc/html"))))
4820 (native-inputs
c06ef010
MB		 4821 `(("gettext" ,gettext-minimal)
4822 ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
bba229a3 4823 ("gobject-introspection" ,gobject-introspection)
bba229a3
SB		 4824 ("pkg-config" ,pkg-config)
4825 ("vala" ,vala)
4826 ("xsltproc" ,libxslt)))
4827 ;; These are needed for the tests.
4828 ;; FIXME: Add gjs once available.
4829 ;("dbus" ,dbus)
4830 ;("python2" ,python-2)
4831 ;("python2-dbus" ,python2-dbus)
4832 ;("python2-pygobject" ,python2-pygobject)
4833 ;("python2-pygobject-2" ,python2-pygobject-2)))
4834 (propagated-inputs
4835 `(("glib" ,glib))) ; required by libsecret-1.pc
4836 (inputs
dcf05d05
TGR		 4837 ;; The ‘build’ phase complains about missing docbook-xml-4.2 but adding it
4838 ;; doesn't seem to affect the build result.
bba229a3
SB		 4839 `(("docbook-xsl" ,docbook-xsl)
4840 ("libgcrypt" ,libgcrypt)
4841 ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
4842 (home-page "https://wiki.gnome.org/Projects/Libsecret/")
4843 (synopsis "GObject bindings for \"Secret Service\" API")
4844 (description
4845 "Libsecret is a GObject based library for storing and retrieving passwords
4846and other secrets. It communicates with the \"Secret Service\" using DBus.")
4847 (license license:lgpl2.1+)))
4848
b6821ee0 4849(define-public five-or-more
4850 (package
4851 (name "five-or-more")
ee75b46f 4852 (version "3.32.2")
b6821ee0 4853 (source
4854 (origin
4855 (method url-fetch)
bf782bfc 4856 (uri (string-append "mirror://gnome/sources/five-or-more/"
b6821ee0 4857 (version-major+minor version) "/"
bf782bfc 4858 "five-or-more-" version ".tar.xz"))
b6821ee0 4859 (sha256
ee75b46f 4860 (base32 "19pf8wzbf3ciqf2k4bj9sddvyhckfd62x86pnqr6s8h4vn9jc6ii"))))
d9795e93
KK		 4861 (build-system meson-build-system)
4862 (arguments
4863 '(#:glib-or-gtk? #t
4864 #:phases
4865 (modify-phases %standard-phases
4866 (add-after 'unpack 'skip-gtk-update-icon-cache
4867 (lambda _
4868 (substitute* "meson_post_install.py"
4869 (("gtk-update-icon-cache") (which "true")))
4870 #t)))))
b6821ee0 4871 (native-inputs
4872 `(("pkg-config" ,pkg-config)
d9795e93 4873 ("appstream-glib" ,appstream-glib)
b6821ee0 4874 ("desktop-file-utils" ,desktop-file-utils)
d9795e93 4875 ("glib:bin" ,glib "bin") ; for glib-compile-resources
b6821ee0 4876 ("intltool" ,intltool)
4877 ("itstool" ,itstool)
d9795e93 4878 ("vala" ,vala)
b6821ee0 4879 ("xmllint" ,libxml2)))
4880 (inputs
4881 `(("gtk+" ,gtk+)
d9795e93 4882 ("libgnome-games-support" ,libgnome-games-support)
b6821ee0 4883 ("librsvg" ,librsvg)))
4884 (home-page "https://wiki.gnome.org/Apps/Five%20or%20more")
4885 (synopsis "Logic puzzle game")
4886 (description "Five or More is a game where you try to align
4887 five or more objects of the same color and shape causing them to disappear.
4888 On every turn more objects will appear, until the board is full.
4889 Try to last as long as possible.")
4890 (license license:gpl2+)))
4891
a31a6d22
SB		 4892(define-public gnome-mines
4893 (package
4894 (name "gnome-mines")
583ea8f5 4895 (version "3.36.1")
a31a6d22
SB		 4896 (source
4897 (origin
4898 (method url-fetch)
4899 (uri (string-append "mirror://gnome/sources/" name "/"
4900 (version-major+minor version) "/"
4901 name "-" version ".tar.xz"))
4902 (sha256
583ea8f5 4903 (base32 "0m2680r94nk61imym4x73j03jwfjd8cxm592m5ybiqdfdw6i723i"))))
8c0fab36 4904 (build-system meson-build-system)
a31a6d22 4905 (arguments
2d817e41
KK		 4906 '(#:glib-or-gtk? #t
4907 #:phases
a31a6d22 4908 (modify-phases %standard-phases
2d817e41
KK		 4909 (add-after 'unpack 'skip-gtk-update-icon-cache
4910 (lambda _
4911 (substitute* "build-aux/meson_post_install.py"
4912 (("gtk-update-icon-cache") (which "true")))
4913 #t)))))
a31a6d22 4914 (native-inputs
8c0fab36
RW		 4915 `(("glib:bin" ,glib "bin") ; for glib-compile-resources
4916 ("pkg-config" ,pkg-config)
a31a6d22
SB		 4917 ("desktop-file-utils" ,desktop-file-utils)
4918 ("intltool" ,intltool)
bcb354ad 4919 ("itstool" ,itstool)
8c0fab36
RW		 4920 ("vala" ,vala)
4921 ("yelp" ,yelp)
4922 ("appstream-glib" ,appstream-glib)))
a31a6d22
SB		 4923 (inputs
4924 `(("gtk+" ,gtk+)
73992962 4925 ("libgnome-games-support" ,libgnome-games-support)
a31a6d22
SB		 4926 ("librsvg" ,librsvg)))
4927 (home-page "https://wiki.gnome.org/Apps/Mines")
4928 (synopsis "Minesweeper game")
4929 (description
4930 "Mines (previously gnomine) is a puzzle game where you locate mines
4931floating in an ocean using only your brain and a little bit of luck.")
754cfbdc
EB		 4932 (license license:gpl2+)))
4933
4934(define-public gnome-multi-writer
4935 (package
4936 (name "gnome-multi-writer")
4937 (version "3.35.90")
4938 (source
4939 (origin
4940 (method url-fetch)
4941 (uri (string-append "mirror://gnome/sources/gnome-multi-writer/"
4942 (version-major+minor version) "/"
4943 "gnome-multi-writer-" version ".tar.xz"))
4944 (sha256
4945 (base32
4946 "07vgzjjdrxcp7h73z13h9agafxb4vmqx5i81bcfyw0ilw9kkdzmp"))))
4947 (build-system meson-build-system)
4948 (arguments
4949 '(#:glib-or-gtk? #t
4950 #:phases
4951 (modify-phases %standard-phases
4952 (add-after 'unpack 'skip-post-install
4953 (lambda _
4954 (substitute* "meson.build"
4955 (("meson.add_install_script" &) (string-append "# " &)))
4956 #t)))))
4957 (native-inputs
4958 `(("glib:bin" ,glib "bin")
4959 ("pkg-config" ,pkg-config)))
4960 (inputs
4961 `(("gtk+" ,gtk+)
4962 ("glib" ,glib) ; for gio
4963 ("gusb" ,gusb)
4964 ("udisks" ,udisks)
4965 ("libgudev" ,libgudev)
4966 ("libcanberra" ,libcanberra)
4967 ("polkit" ,polkit)))
4968 (home-page "https://wiki.gnome.org/Apps/MultiWriter")
4969 (synopsis "Write to multiple USB devices at once")
4970 (description
4971 "MultiWriter can be used to write an ISO file to multiple USB devices at
4972once.")
a31a6d22 4973 (license license:gpl2+)))
88f70665 4974
dfc407f3
KY		 4975(define-public gnome-sudoku
4976 (package
4977 (name "gnome-sudoku")
857eb190 4978 (version "3.34.1")
dfc407f3
KY		 4979 (source
4980 (origin
4981 (method url-fetch)
4982 (uri (string-append "mirror://gnome/sources/" name "/"
4983 (version-major+minor version) "/"
4984 name "-" version ".tar.xz"))
4985 (sha256
4986 (base32
857eb190 4987 "025y85r4qqardivvwiwhbmgarziykdy224m8zlrq8b79zv82793b"))))
7dc728c4
KK		 4988 (build-system meson-build-system)
4989 (arguments
4990 '(#:glib-or-gtk? #t
4991 #:phases
4992 (modify-phases %standard-phases
4993 (add-after 'unpack 'skip-gtk-update-icon-cache
4994 (lambda _
4995 (substitute* "build-aux/post_install.py"
4996 (("gtk-update-icon-cache") (which "true")))
4997 #t)))))
dfc407f3
KY		 4998 (native-inputs
4999 `(("pkg-config" ,pkg-config)
5000 ("desktop-file-utils" ,desktop-file-utils)
7dc728c4 5001 ("glib:bin" ,glib "bin") ; for glib-compile-resources
dfc407f3
KY		 5002 ("intltool" ,intltool)
5003 ("itstool" ,itstool)
7dc728c4 5004 ("vala" ,vala)
dfc407f3
KY		 5005 ("xmllint" ,libxml2)))
5006 (inputs
5007 `(("gtk+" ,gtk+)
5008 ("json-glib" ,json-glib)
5009 ("libgee" ,libgee)
5010 ("librsvg" ,librsvg)
5011 ("qqwing" ,qqwing)))
5012 (home-page "https://wiki.gnome.org/Apps/Sudoku")
5013 (synopsis "Japanese logic game")
5014 (description
5015 "Sudoku is a Japanese logic game that exploded in popularity in 2005.
5016GNOME Sudoku is meant to have an interface as simple and unobstrusive as
5017possible while still providing features that make playing difficult Sudoku
5018more fun.")
5019 (license license:gpl2+)))
5020
88f70665
AW		 5021(define-public gnome-terminal
5022 (package
5023 (name "gnome-terminal")
80f6f9d8 5024 (version "3.34.2")
88f70665
AW		 5025 (source
5026 (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
80f6f9d8 5033 "0gc004f9b5k94gkdanmqjz3wqgnpny0l3nqm8zd19h4f0ps27mrv"))))
88f70665
AW		 5034 (build-system glib-or-gtk-build-system)
5035 (arguments
5036 '(#:configure-flags
5037 (list "--disable-migration" "--disable-search-provider"
5038 "--without-nautilus-extension")
5039 #:phases
5040 (modify-phases %standard-phases
3a4de6b2 5041 (add-before 'configure 'patch-/bin/true
88f70665
AW		 5042 (lambda _
5043 (substitute* "configure"
5044 (("/bin/true") (which "true"))))))))
5045 (native-inputs
5046 `(("pkg-config" ,pkg-config)
5047 ("desktop-file-utils" ,desktop-file-utils)
5048 ("intltool" ,intltool)
bcb354ad
SB		 5049 ("itstool" ,itstool)
5050 ("xmllint" ,libxml2)))
68702167
MW		 5051 (propagated-inputs
5052 `(("dconf" ,dconf)))
88f70665
AW		 5053 (inputs
5054 `(("gtk+" ,gtk+)
5055 ("vte" ,vte)
5056 ("gnutls" ,gnutls)
88f70665 5057 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
bb93042c 5058 ("util-linux" ,util-linux "lib")
88f70665
AW		 5059 ("vala" ,vala)))
5060 (home-page "https://wiki.gnome.org/Apps/Terminal")
5061 (synopsis "Terminal emulator")
5062 (description
5063 "GNOME Terminal is a terminal emulator application for accessing a
5064UNIX shell environment which can be used to run programs available on
5065your system.
5066
5067It supports several profiles, multiple tabs and implements several
5068keyboard shortcuts.")
5069 (license license:gpl3+)))
75016d07
AW		 5070
5071(define-public colord
5072 (package
5073 (name "colord")
bddcc133 5074 (version "1.4.5")
75016d07
AW		 5075 (source
5076 (origin
5077 (method url-fetch)
5cc3096c 5078 (uri (string-append "https://www.freedesktop.org/software/colord/releases/"
d21778aa 5079 "colord-" version ".tar.xz"))
75016d07 5080 (sha256
bddcc133 5081 (base32 "05sydi6qqqx1rrqwnga1vbg9srkf89wdcfw5w4p4m7r37m2flx5p"))))
a68544a8 5082 (build-system meson-build-system)
75016d07 5083 (arguments
a68544a8
RW		 5084 '(;; FIXME: One test fails:
5085 ;; /colord/icc-store (in lib/colord/colord-self-test-private):
5086 ;; Incorrect content type for /tmp/colord-vkve/already-exists.icc, got
5087 ;; application/x-zerosize
75016d07 5088 #:tests? #f
a68544a8
RW		 5089 #:glib-or-gtk? #t
5090 #:configure-flags (list "-Dlocalstatedir=/var"
75016d07 5091 ;; No dep on systemd.
a68544a8 5092 "-Dsystemd=false"
75016d07
AW		 5093 ;; Wants to install to global completion dir;
5094 ;; punt.
a68544a8 5095 "-Dbash_completion=false"
a68544a8
RW		 5096 "-Ddaemon_user=colord"
5097 "-Dsane=true"
dac26e22 5098 "-Dvapi=true"
6f20e2dc 5099 ;; Requires spotread.
a68544a8 5100 "-Dargyllcms_sensor=false"
6f20e2dc 5101 ;; TODO: Requires docbook2x.
a68544a8 5102 "-Dman=false")
75016d07
AW		 5103 #:phases
5104 (modify-phases %standard-phases
a68544a8
RW		 5105 (add-before 'configure 'patch-build-system
5106 (lambda* (#:key outputs #:allow-other-keys)
5107 (substitute* "rules/meson.build"
5108 (("udev.get_pkgconfig_variable\\('udevdir'\\)")
5109 (string-append "'" (assoc-ref outputs "out") "/lib/udev'")))
2a1f3e3f
LC		 5110 #t))
5111 (add-before 'configure 'set-sqlite3-file-name
5112 (lambda* (#:key inputs #:allow-other-keys)
5113 ;; "colormgr dump" works by invoking the "sqlite3" command.
5114 ;; Record its absolute file name.
5115 (let ((sqlite (assoc-ref inputs "sqlite")))
5116 (substitute* "client/cd-util.c"
5117 (("\"sqlite3\"")
5118 (string-append "\"" sqlite "/bin/sqlite3\"")))
5119 #t))))))
75016d07 5120 (native-inputs
6f20e2dc 5121 `(("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
2536027c 5122 ("gettext" ,gettext-minimal)
75016d07 5123 ("gobject-introspection" ,gobject-introspection)
a68544a8 5124 ("gtk-doc" ,gtk-doc)
dac26e22
TGR		 5125 ("pkg-config" ,pkg-config)
5126 ("vala" ,vala)))
65cb2d61
SB		 5127 (propagated-inputs
5128 ;; colord.pc refers to all these.
5129 `(("glib" ,glib)
6f20e2dc
TGR		 5130 ("lcms" ,lcms)
5131 ("udev" ,eudev)))
75016d07 5132 (inputs
65cb2d61 5133 `(("dbus-glib" ,dbus-glib)
a68544a8 5134 ("gusb" ,gusb)
80c7dd1a 5135 ("libgudev" ,libgudev)
75016d07 5136 ("libusb" ,libusb)
75016d07 5137 ("polkit" ,polkit)
a68544a8 5138 ("python" ,python-wrapper)
6f20e2dc 5139 ("sqlite" ,sqlite)
4c928743 5140 ("sane-backends" ,sane-backends)))
57e7d748 5141 (home-page "https://www.freedesktop.org/software/colord/")
75016d07
AW		 5142 (synopsis "Color management service")
5143 (description "Colord is a system service that makes it easy to manage,
5144install and generate color profiles to accurately color manage input and
5145output devices.")
5146 (license license:gpl2+)))
7b2abd00
AW		 5147
5148(define-public geoclue
5149 (package
5150 (name "geoclue")
2bf0a5cb 5151 (version "2.5.6")
7b2abd00
AW		 5152 (source
5153 (origin
5154 (method url-fetch)
50e96d25
MB		 5155 (uri
5156 (string-append "https://gitlab.freedesktop.org/geoclue/geoclue/-/archive/"
5157 version "/geoclue-" version ".tar.bz2"))
7b2abd00 5158 (sha256
2bf0a5cb 5159 (base32 "0a833x5apzabxj80ywvsh8crd635vni2i9v9c1p095f6hvmfc45k"))
fc1adab1 5160 (patches (search-patches "geoclue-config.patch"))))
50e96d25 5161 (build-system meson-build-system)
7b2abd00 5162 (arguments
50e96d25 5163 '(#:configure-flags (list "-Dbus-srv-user=geoclue")))
7b2abd00
AW		 5164 (native-inputs
5165 `(("pkg-config" ,pkg-config)
758798a9 5166 ("gobject-introspection" ,gobject-introspection)
50e96d25
MB		 5167 ("modem-manager" ,modem-manager)
5168 ("libnotify" ,libnotify)
1628d57b 5169 ("gtk-doc" ,gtk-doc)
7b2abd00
AW		 5170 ("intltool" ,intltool)))
5171 (inputs
54e911bc 5172 `(("avahi" ,avahi)
50e96d25
MB		 5173 ("glib:bin" ,glib "bin")
5174 ("glib-networking" ,glib-networking)
7b2abd00
AW		 5175 ("json-glib" ,json-glib)
5176 ("libsoup" ,libsoup)))
50e96d25 5177 (home-page "https://gitlab.freedesktop.org/geoclue/geoclue/-/wikis/home")
7b2abd00
AW		 5178 (synopsis "Geolocation service")
5179 (description "Geoclue is a D-Bus service that provides location
5180information. The primary goal of the Geoclue project is to make creating
5181location-aware applications as simple as possible, while the secondary goal is
5182to ensure that no application can access location information without explicit
e881752c 5183permission from user.")
7b2abd00 5184 (license license:gpl2+)))
2bfe7437
AW		 5185
5186(define-public geocode-glib
5187 (package
5188 (name "geocode-glib")
6f4d4ccc 5189 (version "3.26.2")
2bfe7437
AW		 5190 (source (origin
5191 (method url-fetch)
5192 (uri (string-append "mirror://gnome/sources/geocode-glib/"
5193 (version-major+minor version) "/"
d485cdc0 5194 "geocode-glib-" version ".tar.xz"))
2bfe7437
AW		 5195 (sha256
5196 (base32
6f4d4ccc 5197 "1l8g0f13xgkrk335afr9w8k46mziwb2jnyhl07jccl5yl37q9zh1"))))
a7dd0c02 5198 (build-system meson-build-system)
2bfe7437 5199 (arguments
a7dd0c02
RW		 5200 `(#:phases
5201 (modify-phases %standard-phases
5202 ;; The tests require a bunch of locales.
5203 (add-before 'check 'set-locales
5204 (lambda* (#:key inputs #:allow-other-keys)
5205 (setenv "GUIX_LOCPATH"
5206 (string-append (assoc-ref inputs "glibc-locales")
5207 "/lib/locale"))
5208 #t)))))
2bfe7437
AW		 5209 (native-inputs
5210 `(("glib:bin" ,glib "bin") ; for glib-mkenums
a7dd0c02
RW		 5211 ("glibc-locales" ,glibc-locales) ; for tests
5212 ("gettext" ,gettext-minimal)
2bfe7437 5213 ("gobject-introspection" ,gobject-introspection)
a7dd0c02 5214 ("gtk-doc" ,gtk-doc)
2bfe7437
AW		 5215 ("pkg-config" ,pkg-config)
5216 ("json-glib" ,json-glib)))
5217 (propagated-inputs
5218 ;; geocode-glib-1.0.pc refers to GIO.
5219 `(("glib" ,glib)))
5220 (inputs
5221 `(("libsoup" ,libsoup)))
5222 (home-page "https://github.com/GNOME/geocode-glib/")
5223 (synopsis "Geocoding and reverse-geocoding library")
5224 (description
5225 "geocode-glib is a convenience library for geocoding (finding longitude,
5226and latitude from an address) and reverse geocoding (finding an address from
5227coordinates) using the Nominatim service. geocode-glib caches requests for
5228faster results and to avoid unnecessary server load.")
5229 (license license:lgpl2.0+)))
a1d5bb0e
AW		 5230
5231(define-public upower
5232 (package
5233 (name "upower")
df45af90 5234 (version "0.99.11")
a1d5bb0e
AW		 5235 (source (origin
5236 (method url-fetch)
df45af90 5237 (uri (string-append "https://upower.freedesktop.org/releases/"
9ec54965 5238 "upower-" version ".tar.xz"))
a1d5bb0e
AW		 5239 (sha256
5240 (base32
df45af90 5241 "1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
5dc6d5ce
LC		 5242 (patches (search-patches "upower-builddir.patch"))
5243 (modules '((guix build utils)))
5244 (snippet
5245 '(begin
5246 ;; Upstream commit
5247 ;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
5248 ;; moved 'dbus-1/system.d' from etc/ to share/. However,
5249 ;; 'dbus-configuration-directory' in (gnu services dbus)
5250 ;; expects it in etc/. Thus, move it back to its previous
5251 ;; location.
5252 (substitute* "src/Makefile.in"
5253 (("^dbusconfdir =.*$")
5254 "dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
5255 #t))))
a1d5bb0e
AW		 5256 (build-system glib-or-gtk-build-system)
5257 (arguments
6039031a
BW		 5258 '(#:phases
5259 (modify-phases %standard-phases
5260 (add-before 'check 'pre-check
5261 (lambda* (#:key inputs #:allow-other-keys)
5262 (let ((umockdev (string-append (assoc-ref inputs "umockdev")
5263 "/lib")))
5264 (setenv "LD_LIBRARY_PATH" umockdev))
5265 #t)))
a1d5bb0e
AW		 5266 #:configure-flags (list "--localstatedir=/var"
5267 (string-append "--with-udevrulesdir="
5268 (assoc-ref %outputs "out")
9ec54965 5269 "/lib/udev/rules.d"))))
a1d5bb0e 5270 (native-inputs
ebeabe2d
SB		 5271 `(("gobject-introspection" ,gobject-introspection)
5272 ("pkg-config" ,pkg-config)
a1d5bb0e 5273 ("intltool" ,intltool)
55409295
LC		 5274 ("python" ,python)
5275
6039031a
BW		 5276 ;; For tests.
5277 ("python-dbus" ,python-dbus)
5278 ("python-dbusmock" ,python-dbusmock)
5279 ("python-pygobject" ,python-pygobject)
5280 ("umockdev" ,umockdev)
5281
55409295
LC		 5282 ;; For man pages.
5283 ("libxslt" ,libxslt) ;for 'xsltproc'
5284 ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
5285 ("docbook-xsl" ,docbook-xsl)))
a1d5bb0e 5286 (inputs
ea226291
SB		 5287 `(("dbus-glib" ,dbus-glib)
5288 ("libgudev" ,libgudev)
a1d5bb0e 5289 ("libusb" ,libusb)))
d7a503fc
MB		 5290 (propagated-inputs
5291 ;; In Requires of upower-glib.pc.
5292 `(("glib" ,glib)))
57e7d748 5293 (home-page "https://upower.freedesktop.org/")
a1d5bb0e
AW		 5294 (synopsis "System daemon for managing power devices")
5295 (description
5296 "UPower is an abstraction for enumerating power devices,
5297listening to device events and querying history and statistics. Any
5298application or service on the system can access the org.freedesktop.UPower
5299service via the system message bus.")
5300 (license license:gpl2+)))
6a180f6f
AW		 5301
5302(define-public libgweather
5303 (package
5304 (name "libgweather")
462d3416 5305 (version "3.34.0")
6a180f6f
AW		 5306 (source (origin
5307 (method url-fetch)
5308 (uri (string-append "mirror://gnome/sources/" name "/"
5309 (version-major+minor version) "/"
5310 name "-" version ".tar.xz"))
5311 (sha256
5312 (base32
462d3416 5313 "1fgiqswkhiaijanml3mb16ajn5aanrk7x6yiwagp9n9rssam6902"))))
cf6cbc34 5314 (build-system meson-build-system)
6a180f6f 5315 (arguments
cf6cbc34
RW		 5316 `(#:tests? #f ; one of two tests requires network access
5317 #:configure-flags
5318 `(,(string-append "-Dzoneinfo_dir="
b6072e6b 5319 (assoc-ref %build-inputs "tzdata")
cf6cbc34 5320 "/share/zoneinfo"))))
6a180f6f
AW		 5321 (native-inputs
5322 `(("glib:bin" ,glib "bin") ; for glib-mkenums
b6072e6b 5323 ("gobject-introspection" ,gobject-introspection)
6a180f6f 5324 ("pkg-config" ,pkg-config)
1d3fcf94 5325 ("vala" ,vala)
6a180f6f
AW		 5326 ("intltool" ,intltool)))
5327 (propagated-inputs
5328 ;; gweather-3.0.pc refers to GTK+, GDK-Pixbuf, GLib/GObject, libxml, and
5329 ;; libsoup.
5330 `(("gtk+" ,gtk+)
5331 ("gdk-pixbuf" ,gdk-pixbuf)
5332 ("libxml2" ,libxml2)
cf6cbc34 5333 ("libsoup" ,libsoup)
6a180f6f 5334 ("geocode-glib" ,geocode-glib)))
cf6cbc34
RW		 5335 (inputs
5336 `(("tzdata" ,tzdata)))
6a180f6f
AW		 5337 (home-page "https://wiki.gnome.org/action/show/Projects/LibGWeather")
5338 (synopsis "Location, time zone, and weather library for GNOME")
5339 (description
5340 "libgweather is a library to access weather information from online
5341services for numerous locations.")
5342 (license license:gpl2+)))
23a22af6
AW		 5343
5344(define-public gnome-settings-daemon
5345 (package
5346 (name "gnome-settings-daemon")
20154759 5347 (version "3.34.1")
23a22af6
AW		 5348 (source
5349 (origin
5350 (method url-fetch)
5351 (uri (string-append "mirror://gnome/sources/" name "/"
5352 (version-major+minor version) "/"
5353 name "-" version ".tar.xz"))
5354 (sha256
5355 (base32
98b89f43
LC		 5356 "07y1gbicz0pbxmdgwrdzyc4byy30wfwpbqgvnx27gnpqmc5s50cr"))
5357 (patches (search-patches "gnome-settings-daemon-gc.patch"))))
e644f9fa 5358 (build-system meson-build-system)
23a22af6 5359 (arguments
e644f9fa
RW		 5360 `(#:glib-or-gtk? #t
5361 #:configure-flags
5362 (list (string-append "-Dudev_dir="
5363 (assoc-ref %outputs "out")
4d0e085b 5364 "/lib/udev/rules.d/")
20154759 5365 "-Dsystemd=false"
4d0e085b
RW		 5366 ;; Otherwise, the RUNPATH will lack the final path component.
5367 (string-append "-Dc_link_args=-Wl,-rpath="
5368 (assoc-ref %outputs "out")
5369 "/lib/gnome-settings-daemon-3.0"))
5ce6c2d9
LC		 5370
5371 #:phases (modify-phases %standard-phases
5372 (add-before 'configure 'set-baobab-file-name
5373 (lambda* (#:key inputs #:allow-other-keys)
5374 ;; Hard-code the file name of Baobab instead of looking
5375 ;; it up in $PATH. This ensures users get the "Examine"
5376 ;; button in the low disk space notification of GDM even
5377 ;; if they don't have GNOME in their main profile.
5378 (let ((baobab (assoc-ref inputs "baobab")))
5379 (substitute* "plugins/housekeeping/gsd-disk-space.c"
5380 (("g_find_program_in_path \\(DISK_SPACE_ANALYZER\\)")
5381 (string-append "g_strdup (\"" baobab
5382 "/bin/baobab\")")))
5383 #t))))
5384
e644f9fa 5385 ;; Color management test can't reach the colord system service.
23a22af6
AW		 5386 #:tests? #f))
5387 (native-inputs
e644f9fa
RW		 5388 `(("glib:bin" ,glib "bin") ; for glib-mkenums
5389 ("pkg-config" ,pkg-config)
23a22af6
AW		 5390 ("intltool" ,intltool)
5391 ("xsltproc" ,libxslt)
5392 ("libxml2" ,libxml2) ;for XML_CATALOG_FILES
5393 ("docbook-xml" ,docbook-xml-4.2)
5394 ("docbook-xsl" ,docbook-xsl)))
5395 (inputs
e644f9fa 5396 `(("alsa-lib" ,alsa-lib)
5ce6c2d9 5397 ("baobab" ,baobab)
e644f9fa 5398 ("colord" ,colord)
ea226291 5399 ("libgudev" ,libgudev)
23a22af6
AW		 5400 ("upower" ,upower)
5401 ("polkit" ,polkit)
5402 ("pulseaudio" ,pulseaudio)
5403 ("libcanberra" ,libcanberra)
5404 ("libx11" ,libx11)
5405 ("libxtst" ,libxtst)
5406 ("lcms" ,lcms)
5407 ("libnotify" ,libnotify)
5408 ("geoclue" ,geoclue)
5409 ("geocode-glib" ,geocode-glib)
5410 ("libgweather" ,libgweather)
5411 ("gnome-desktop" ,gnome-desktop)
5412 ("nss" ,nss)
5413 ("cups" ,cups)
ec2b1921
AW		 5414 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5415 ("libwacom" ,libwacom)
5416 ("librsvg" ,librsvg)
eee7878f 5417 ("xf86-input-wacom" ,xf86-input-wacom)
e644f9fa 5418 ("wayland" ,wayland)
20154759
KK		 5419 ("network-manager" ,network-manager)
5420 ("gcr" ,gcr)
5421 ("modem-manager" ,modem-manager)))
f032d0be 5422 (home-page "https://www.gnome.org")
23a22af6
AW		 5423 (synopsis "GNOME settings daemon")
5424 (description
5425 "This package contains the daemon responsible for setting the various
5426parameters of a GNOME session and the applications that run under it. It
5427handles settings such keyboard layout, shortcuts, and accessibility, clipboard
5428settings, themes, mouse settings, and startup of other daemons.")
5429 (license license:gpl2+)))
1e7464a9
DH		 5430
5431(define-public totem-pl-parser
5432 (package
5433 (name "totem-pl-parser")
f9c182ad 5434 (version "3.26.5")
1e7464a9
DH		 5435 (source (origin
5436 (method url-fetch)
e980cbe9
MW		 5437 (uri (string-append "mirror://gnome/sources/totem-pl-parser/"
5438 (version-major+minor version) "/"
1e7464a9
DH		 5439 "totem-pl-parser-" version ".tar.xz"))
5440 (sha256
5441 (base32
f9c182ad 5442 "132jihnf51zs98yjkc6jxyqib4f3dawpjm17g4bj4j78y93dww2k"))))
1e9b19dd 5443 (build-system meson-build-system)
1e7464a9
DH		 5444 (arguments
5445 ;; FIXME: Tests require gvfs.
5446 `(#:tests? #f))
5447 (native-inputs
5448 `(("intltool" ,intltool)
5449 ("glib" ,glib "bin")
4d6d8281 5450 ("gobject-introspection" ,gobject-introspection)
1e7464a9 5451 ("pkg-config" ,pkg-config)))
22a6ad6a 5452 (propagated-inputs
1e7464a9
DH		 5453 `(("glib" ,glib)
5454 ("gmime" ,gmime)
1e9b19dd
RW		 5455 ("libarchive" ,libarchive)
5456 ("libgcrypt" ,libgcrypt)
22a6ad6a
MW		 5457 ("libxml2" ,libxml2)))
5458 (inputs
0a6e9e13 5459 `(("libsoup" ,libsoup)))
1e7464a9
DH		 5460 (home-page "https://projects.gnome.org/totem")
5461 (synopsis "Library to parse and save media playlists for GNOME")
5462 (description "Totem-pl-parser is a GObjects-based library to parse and save
5463playlists in a variety of formats.")
5464 (license license:lgpl2.0+)))
5465
6b888eff
SB		 5466(define-public aisleriot
5467 (package
5468 (name "aisleriot")
36ed9b46 5469 (version "3.22.9")
6b888eff
SB		 5470 (source (origin
5471 (method url-fetch)
e43f622a 5472 (uri (string-append "mirror://gnome/sources/aisleriot/"
6b888eff 5473 (version-major+minor version) "/"
e43f622a 5474 "aisleriot-" version ".tar.xz"))
6b888eff
SB		 5475 (sha256
5476 (base32
36ed9b46 5477 "0yzdh9cw5cjjgvfh75bihl968czlgfmpmn1z0fdk88sgvpjgzwji"))))
6b888eff
SB		 5478 (build-system glib-or-gtk-build-system)
5479 (arguments
5480 '(#:configure-flags
5481 '("--with-platform=gtk-only"
5482 "--with-card-theme-formats=svg")))
5483 (native-inputs
5484 `(("desktop-file-utils" ,desktop-file-utils)
5485 ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
5486 ("intltool" ,intltool)
5487 ("itstool" ,itstool)
5488 ("pkg-config" ,pkg-config)
5489 ("xmllint" ,libxml2)))
5490 (inputs
5491 `(("gtk+" ,gtk+)
226e57d6 5492 ("guile" ,guile-2.2)
6b888eff
SB		 5493 ("libcanberra" ,libcanberra)
5494 ("librsvg" ,librsvg)))
5495 (home-page "https://wiki.gnome.org/Apps/Aisleriot")
5496 (synopsis "Solitaire card games")
5497 (description
5498 "Aisleriot (also known as Solitaire or sol) is a collection of card games
5499which are easy to play with the aid of a mouse.")
5500 (license license:gpl3+)))
4a79e256 5501
f828d05b
KK		 5502(define-public amtk
5503 (package
5504 (name "amtk")
0e08ca14 5505 (version "5.0.2")
f828d05b
KK		 5506 (source (origin
5507 (method url-fetch)
bf92ba6b 5508 (uri (string-append "mirror://gnome/sources/amtk/"
f828d05b 5509 (version-major+minor version) "/"
bf92ba6b 5510 "amtk-" version ".tar.xz"))
f828d05b
KK		 5511 (sha256
5512 (base32
0e08ca14 5513 "11jgz2i9wjzv4alrxl1qyxiapb52w7vs5ygfgsw0qgdap8gqkk3i"))))
f828d05b
KK		 5514 (build-system gnu-build-system)
5515 (arguments
5516 '(#:configure-flags '("--enable-gtk-doc")))
5517 (native-inputs
5518 `(("gobject-introspection" ,gobject-introspection)
09c4e43f 5519 ("glib:bin" ,glib "bin") ; for glib-mkenums
f828d05b
KK		 5520 ("gtk-doc" ,gtk-doc)
5521 ("pkg-config" ,pkg-config)))
5522 (inputs
5523 `(("glib" ,glib)
5524 ("gtk+" ,gtk+)))
5525 (home-page "https://wiki.gnome.org/Projects/Amtk")
5526 (synopsis "Actions, Menus and Toolbars Kit for GTK+ applications")
5527 (description
5528 "Amtk is the acronym for @acronym{Amtk, Actions Menus and Toolbars Kit}.
5529It is a basic GtkUIManager replacement based on GAction. It is suitable for
5530both a traditional UI or a modern UI with a GtkHeaderBar.")
5531 (license license:lgpl2.1+)))
5532
4a79e256
SB		 5533(define-public devhelp
5534 (package
5535 (name "devhelp")
8ae23a1d 5536 (version "3.34.0")
4a79e256
SB		 5537 (source (origin
5538 (method url-fetch)
5539 (uri (string-append "mirror://gnome/sources/" name "/"
5540 (version-major+minor version) "/"
5541 name "-" version ".tar.xz"))
5542 (sha256
5543 (base32
8ae23a1d 5544 "0zpmn6fgkgiayvn4diia5df0s6s7dqrdnp3nrvpavsmgn0vhb4pg"))))
11d28bd9 5545 (build-system meson-build-system)
35407f94 5546 (arguments
20db7a3d
KK		 5547 '(#:glib-or-gtk? #t
5548 #:phases
35407f94
EF		 5549 (modify-phases %standard-phases
5550 (add-after 'unpack 'skip-gtk-update-icon-cache
5551 ;; Don't create 'icon-theme.cache'.
5552 (lambda _
5553 (substitute* "meson_post_install.py"
5554 (("gtk-update-icon-cache") "true"))
5555 #t)))))
4a79e256
SB		 5556 (native-inputs
5557 `(("intltool" ,intltool)
5dd12afc 5558 ("itstool" ,itstool)
11d28bd9
KK		 5559 ("gobject-introspection" ,gobject-introspection)
5560 ("glib:bin" ,glib "bin") ; for glib-mkmenus
4a79e256
SB		 5561 ("pkg-config" ,pkg-config)))
5562 (inputs
11d28bd9
KK		 5563 `(("amtk" ,amtk)
5564 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
4a79e256
SB		 5565 ("webkitgtk" ,webkitgtk)))
5566 (home-page "https://wiki.gnome.org/Apps/Devhelp")
5567 (synopsis "API documentation browser for GNOME")
5568 (description
5569 "Devhelp is an API documentation browser for GTK+ and GNOME. It works
5570natively with GTK-Doc (the API reference system developed for GTK+ and used
5571throughout GNOME for API documentation).")
5572 (license license:gpl2+)))
ba421ab7
MW		 5573
5574(define-public cogl
5575 (package
5576 (name "cogl")
c668a880 5577 (version "1.22.8")
ba421ab7
MW		 5578 (source
5579 (origin
5580 (method url-fetch)
5754f0cf 5581 (uri (string-append "mirror://gnome/sources/cogl/"
ba421ab7 5582 (version-major+minor version) "/"
5754f0cf 5583 "cogl-" version ".tar.xz"))
ba421ab7 5584 (sha256
c668a880 5585 (base32 "0nfph4ai60ncdx7hy6hl1i1cmp761jgnyjfhagzi0iqq36qb41d8"))))
a88d5a0c
MW		 5586 ;; NOTE: mutter exports a bundled fork of cogl, so when making changes to
5587 ;; cogl, corresponding changes may be appropriate in mutter as well.
ba421ab7
MW		 5588 (build-system gnu-build-system)
5589 (native-inputs
5590 `(("glib:bin" ,glib "bin") ; for glib-mkenums
5591 ("gobject-introspection" ,gobject-introspection)
b4f04e0e 5592 ("xorg-server" ,xorg-server-for-tests)
ba421ab7
MW		 5593 ("pkg-config" ,pkg-config)))
5594 (propagated-inputs
5595 `(("glib" ,glib)
5596 ("gdk-pixbuf" ,gdk-pixbuf)
5597 ("libx11" ,libx11)
5598 ("libxext" ,libxext)
5599 ("libxfixes" ,libxfixes)
5600 ("libxdamage" ,libxdamage)
5601 ("libxcomposite" ,libxcomposite)
5602 ("libxrandr" ,libxrandr)))
5603 (inputs
5604 `(("mesa" ,mesa)
5605 ("cairo" ,cairo)
5606 ("pango" ,pango)
5607 ("gstreamer" ,gstreamer)
31860852
KK		 5608 ("gst-plugins-base" ,gst-plugins-base)
5609 ("wayland" ,wayland)))
ba421ab7 5610 (arguments
b4f04e0e
MB		 5611 `(#:disallowed-references (,xorg-server-for-tests)
5612 #:configure-flags (list "--enable-cogl-gst"
31860852
KK		 5613 "--enable-wayland-egl-platform"
5614 "--enable-wayland-egl-server"
5615
ba421ab7
MW		 5616 ;; Arrange to pass an absolute file name to
5617 ;; dlopen for libGL.so.
5618 (string-append "--with-gl-libname="
5619 (assoc-ref %build-inputs "mesa")
5620 "/lib/libGL.so"))
b4f04e0e 5621 #:phases
ba421ab7 5622 (modify-phases %standard-phases
0c8a51c7
MB		 5623 (add-after 'unpack 'fix-build-with-mesa-20
5624 (lambda _
5625 ;; Work around a problem with Mesa 20 where some macros used by
5626 ;; Cogl went missing from eglext.h. This can likely be removed
5627 ;; for newer versions of Cogl or Mesa.
5628 ;; https://gitlab.gnome.org/GNOME/cogl/-/merge_requests/19
5629 (substitute* '("configure"
5630 "cogl/winsys/cogl-winsys-egl-kms.c")
5631 (("#include <EGL/eglext.h>" all)
5632 (string-append all "\n#include <EGL/eglmesaext.h>\n")))
5633 #t))
ba421ab7 5634 (add-before 'check 'start-xorg-server
b4f04e0e
MB		 5635 (lambda* (#:key tests? inputs #:allow-other-keys)
5636 (if tests?
5637 (begin
5638 ;; The test suite requires a running X server.
5639 (system (format #f "~a/bin/Xvfb :1 +extension GLX &"
5640 (assoc-ref inputs "xorg-server")))
5641 (setenv "DISPLAY" ":1")
5642 #t)
5643 (format #t "test suite not run~%"))
ba421ab7 5644 #t)))))
89b49245 5645 (home-page "https://www.cogl3d.org")
ba421ab7
MW		 5646 (synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
5647 (description
5648 "Cogl is a small library for using 3D graphics hardware to draw pretty
5649pictures. The API departs from the flat state machine style of OpenGL and is
5650designed to make it easy to write orthogonal components that can render
5651without stepping on each others toes.")
5652 (license (list license:expat ; most of the code
5653 license:bsd-3 ; cogl/cogl-point-in-poly.c
5654 license:sgifreeb2.0 ; cogl-path/tesselator/
5655 license:asl2.0)))) ; examples/android/
fb182b8a
MW		 5656
5657(define-public clutter
5658 (package
5659 (name "clutter")
6a88e4ee 5660 (version "1.26.2")
fb182b8a
MW		 5661 (source
5662 (origin
5663 (method url-fetch)
5664 (uri (string-append "mirror://gnome/sources/" name "/"
5665 (version-major+minor version) "/"
5666 name "-" version ".tar.xz"))
5667 (sha256
5668 (base32
6a88e4ee 5669 "0mif1qnrpkgxi43h7pimim6w6zwywa16ixcliw0yjm9hk0a368z7"))))
a88d5a0c
MW		 5670 ;; NOTE: mutter exports a bundled fork of clutter, so when making changes
5671 ;; to clutter, corresponding changes may be appropriate in mutter as well.
fb182b8a 5672 (build-system gnu-build-system)
600233bd
LC		 5673 (outputs '("out"
5674 "doc")) ;9 MiB of gtk-doc HTML pages
fb182b8a
MW		 5675 (native-inputs
5676 `(("glib:bin" ,glib "bin") ; for glib-genmarshal
5677 ("gobject-introspection" ,gobject-introspection)
5678 ("pkg-config" ,pkg-config)
5679 ("xsltproc" ,libxslt)))
5680 (propagated-inputs
5681 `(("cogl" ,cogl)
5682 ("cairo" ,cairo)
5683 ("atk" ,atk)
5684 ("gtk+" ,gtk+)
5685 ("json-glib" ,json-glib)
5686 ("glib" ,glib)
5687 ("libxcomposite" ,libxcomposite)
5688 ("libxdamage" ,libxdamage)
5689 ("libxext" ,libxext)
5690 ("xinput" ,xinput)))
5691 (inputs
5692 `(("libxkbcommon" ,libxkbcommon)
5693 ("udev" ,eudev)))
5694 (arguments
600233bd
LC		 5695 `(#:configure-flags (list "--enable-x11-backend=yes"
5696
5697 ;; This produces share/doc/{clutter,cally}.
5698 (string-append "--with-html-dir="
5699 (assoc-ref %outputs "doc")
5700 "/share/doc"))
fb182b8a
MW		 5701 ;; XXX FIXME: Get test suite working. It would probably fail in the
5702 ;; same way the cogl tests fail, since clutter is based on cogl.
5703 #:tests? #f))
5704 (home-page "http://www.clutter-project.org")
476af713 5705 (synopsis "OpenGL-based interactive canvas library")
fb182b8a 5706 (description
476af713 5707 "Clutter is an OpenGL-based interactive canvas library, designed for
fb182b8a
MW		 5708creating fast, mainly 2D single window applications such as media box UIs,
5709presentations, kiosk style applications and so on.")
5710 (license license:lgpl2.0+)))
bf7f17ba
MW		 5711
5712(define-public clutter-gtk
5713 (package
5714 (name "clutter-gtk")
5d1a3219 5715 (version "1.8.4")
bf7f17ba
MW		 5716 (source
5717 (origin
5718 (method url-fetch)
5719 (uri (string-append "mirror://gnome/sources/" name "/"
5720 (version-major+minor version) "/"
5721 name "-" version ".tar.xz"))
5722 (sha256
5723 (base32
5d1a3219 5724 "01ibniy4ich0fgpam53q252idm7f4fn5xg5qvizcfww90gn9652j"))))
bf7f17ba
MW		 5725 (build-system gnu-build-system)
5726 (native-inputs
5727 `(("pkg-config" ,pkg-config)
5728 ("gobject-introspection" ,gobject-introspection)))
9a3a8b8e
SB		 5729 (propagated-inputs
5730 ;; clutter-gtk.pc refers to all these.
bf7f17ba
MW		 5731 `(("clutter" ,clutter)
5732 ("gtk+" ,gtk+)))
5733 (home-page "http://www.clutter-project.org")
476af713 5734 (synopsis "OpenGL-based interactive canvas library GTK+ widget")
bf7f17ba 5735 (description
476af713 5736 "Clutter is an OpenGL-based interactive canvas library, designed for
bf7f17ba
MW		 5737creating fast, mainly 2D single window applications such as media box UIs,
5738presentations, kiosk style applications and so on.")
5739 (license license:lgpl2.0+)))
86d6a893
MW		 5740
5741(define-public clutter-gst
5742 (package
5743 (name "clutter-gst")
ba07ac19 5744 (version "3.0.27")
86d6a893
MW		 5745 (source
5746 (origin
5747 (method url-fetch)
f010f89b 5748 (uri (string-append "mirror://gnome/sources/clutter-gst/"
86d6a893 5749 (version-major+minor version) "/"
f010f89b 5750 "clutter-gst-" version ".tar.xz"))
86d6a893 5751 (sha256
ba07ac19 5752 (base32 "17czmpl92dzi4h3rn5rishk015yi3jwiw29zv8qan94xcmnbssgy"))))
86d6a893
MW		 5753 (build-system gnu-build-system)
5754 (native-inputs
ba07ac19 5755 `(("glib:bin" ,glib "bin") ; for glib-mkenums
86d6a893
MW		 5756 ("pkg-config" ,pkg-config)
5757 ("gobject-introspection" ,gobject-introspection)))
5758 (inputs
5759 `(("clutter" ,clutter)
5760 ("gstreamer" ,gstreamer)
5761 ("gst-plugins-base" ,gst-plugins-base)))
5762 (home-page "http://www.clutter-project.org")
5763 (synopsis "Integration library for using GStreamer with Clutter")
5764 (description
5765 "Clutter-Gst is an integration library for using GStreamer with Clutter.
5766It provides a GStreamer sink to upload frames to GL and an actor that
476af713
TGR		 5767implements the ClutterGstPlayer interface using playbin. Clutter is an
5768OpenGL-based interactive canvas library.")
86d6a893 5769 (license license:lgpl2.0+)))
607a04ae 5770
30dc88d9
LC		 5771(define-public libchamplain
5772 (package
5773 (name "libchamplain")
5564b2c5 5774 (version "0.12.16")
30dc88d9
LC		 5775 (source (origin
5776 (method url-fetch)
5777 (uri (string-append
5778 "mirror://gnome/sources/libchamplain/0.12/libchamplain-"
5779 version ".tar.xz"))
5780 (sha256
5781 (base32
5564b2c5 5782 "13chvc2n074i0jw5jlb8i7cysda4yqx58ca6y3mrlrl9g37k2zja"))))
30dc88d9 5783 (build-system gnu-build-system)
f7c6833f
LF		 5784 (arguments '(#:configure-flags '("--enable-vala")))
5785 (native-inputs
5786 `(("gobject-introspection" ,gobject-introspection)
5787 ("pkg-config" ,pkg-config)
5788 ("vala" ,vala)))
30dc88d9
LC		 5789 (propagated-inputs
5790 `(("libsoup" ,libsoup)
5791 ("sqlite" ,sqlite)
5792 ("clutter" ,clutter)
5793 ("clutter-gtk" ,clutter-gtk)
5794 ("glib:bin" ,glib "bin") ;glib-mkenums, etc.
5795 ("cairo" ,cairo)
5796 ("gtk+3" ,gtk+)
5797 ("glib" ,glib)))
f032d0be 5798 (home-page "https://projects.gnome.org/libchamplain/")
30dc88d9
LC		 5799 (synopsis "C library providing a ClutterActor to display maps")
5800 (description
5801 "libchamplain is a C library providing a ClutterActor to display maps.
5802It also provides a Gtk+ widget to display maps in Gtk+ applications. Python
5803and Perl bindings are also available. It supports numerous free map sources
5804such as OpenStreetMap, OpenCycleMap, OpenAerialMap, and Maps for free.")
5805 (license license:lgpl2.1+)))
5806
607a04ae
MW		 5807(define-public gom
5808 (package
5809 (name "gom")
0510440b 5810 (version "0.3.2")
607a04ae
MW		 5811 (source
5812 (origin
5813 (method url-fetch)
6c8a0b6f 5814 (uri (string-append "mirror://gnome/sources/gom/"
607a04ae 5815 (version-major+minor version) "/"
6c8a0b6f 5816 "gom-" version ".tar.xz"))
607a04ae
MW		 5817 (sha256
5818 (base32
0510440b 5819 "1zaqqwwkyiswib3v1v8wafpbifpbpak0nn2kp13pizzn9bwz1s5w"))))
607a04ae
MW		 5820 (build-system gnu-build-system)
5821 (native-inputs
5822 `(("intltool" ,intltool)
5823 ("pkg-config" ,pkg-config)
5824 ("gobject-introspection" ,gobject-introspection)))
5825 (inputs
5826 `(("glib" ,glib)
5827 ("gdk-pixbuf" ,gdk-pixbuf)
5828 ("sqlite" ,sqlite)))
5829 ;; XXX TODO: Figure out how to run the test suite.
5830 (arguments `(#:tests? #f))
5831 (home-page "https://wiki.gnome.org/Projects/Gom")
5832 (synopsis "Object mapper from GObjects to SQLite")
5833 (description
5834 "Gom provides an object mapper from GObjects to SQLite. It helps you
5835write applications that need to store structured data as well as make complex
5836queries upon that data.")
5837 (license license:lgpl2.1+)))
b7a3cf11 5838
865aacc9 5839(define-public libgnome-games-support
f09520db 5840 (package
865aacc9 5841 (name "libgnome-games-support")
4c6d15cf 5842 (version "1.4.4")
f09520db
SB		 5843 (source (origin
5844 (method url-fetch)
2d8dca9d 5845 (uri (string-append "mirror://gnome/sources/libgnome-games-support/"
f09520db 5846 (version-major+minor version) "/"
2d8dca9d 5847 "libgnome-games-support-" version ".tar.xz"))
f09520db
SB		 5848 (sha256
5849 (base32
4c6d15cf 5850 "1zkbmnrn161p74qg6jhsn9f66yjjzxfm13pl1klv9av8k1bax9pq"))))
f09520db
SB		 5851 (build-system gnu-build-system)
5852 (arguments
5853 '(#:phases
5854 (modify-phases %standard-phases
5855 (add-before 'check 'pre-check
5856 (lambda _
865aacc9 5857 ;; Tests require a writable HOME.
f09520db
SB		 5858 (setenv "HOME" (getcwd))
5859 #t)))))
5860 (native-inputs
5861 `(("intltool" ,intltool)
5862 ("pkg-config" ,pkg-config)
5863 ("vala" ,vala)))
5864 (propagated-inputs
865aacc9 5865 ;; Required by libgnome-games-support-1.0.pc
f09520db
SB		 5866 `(("gtk+" ,gtk+)
5867 ("libgee" ,libgee)))
5868 (home-page "https://www.gnome.org/")
5869 (synopsis "Useful functionality shared among GNOME games")
5870 (description
865aacc9 5871 "libgnome-games-support is a small library intended for internal use by
f09520db
SB		 5872GNOME Games, but it may be used by others.")
5873 (license license:lgpl3+)))
5874
b7a3cf11
SB		 5875(define-public gnome-klotski
5876 (package
5877 (name "gnome-klotski")
18364fbc 5878 (version "3.34.0")
b7a3cf11
SB		 5879 (source (origin
5880 (method url-fetch)
5881 (uri (string-append "mirror://gnome/sources/" name "/"
5882 (version-major+minor version) "/"
5883 name "-" version ".tar.xz"))
5884 (sha256
5885 (base32
18364fbc 5886 "0sbx0bzy32lh2c9jp8v7gz788wn9y1la8mr5a7gf7370szsl4d4f"))))
c1e419c4
KK		 5887 (build-system meson-build-system)
5888 (arguments
5889 '(#:glib-or-gtk? #t
5890 #:phases
5891 (modify-phases %standard-phases
5892 (add-after 'unpack 'skip-gtk-update-icon-cache
5893 ;; Don't create 'icon-theme.cache'.
5894 (lambda _
5895 (substitute* "build-aux/meson_post_install.py"
5896 (("gtk-update-icon-cache") (which "true")))
5897 #t)))))
b7a3cf11
SB		 5898 (native-inputs
5899 `(("desktop-file-utils" ,desktop-file-utils)
c1e419c4 5900 ("glib:bin" ,glib "bin") ; for glib-compile-resources
b7a3cf11
SB		 5901 ("intltool" ,intltool)
5902 ("itstool" ,itstool)
bcb354ad 5903 ("pkg-config" ,pkg-config)
c1e419c4 5904 ("vala" ,vala)
bcb354ad 5905 ("xmllint" ,libxml2)))
b7a3cf11
SB		 5906 (inputs
5907 `(("gtk+" ,gtk+)
f4eae76f 5908 ("libgnome-games-support" ,libgnome-games-support)
b7a3cf11
SB		 5909 ("librsvg" ,librsvg)))
5910 (home-page "https://wiki.gnome.org/Apps/Klotski")
5911 (synopsis "Sliding block puzzles")
5912 (description
5913 "GNOME Klotski is a set of block sliding puzzles. The objective is to move
5914the patterned block to the area bordered by green markers. To do so, you will
5915need to slide other blocks out of the way. Complete each puzzle in as few moves
5916as possible!")
5917 (license license:gpl2+)))
8d4791bf
MW		 5918
5919(define-public grilo
5920 (package
5921 (name "grilo")
71dc411b 5922 (version "0.3.12")
8d4791bf
MW		 5923 (source
5924 (origin
5925 (method url-fetch)
71dc411b 5926 (uri (string-append "mirror://gnome/sources/grilo/"
8d4791bf 5927 (version-major+minor version) "/"
71dc411b 5928 "grilo-" version ".tar.xz"))
8d4791bf 5929 (sha256
71dc411b 5930 (base32 "0w8sq5g6g1rg85h53vbll8va70fcp6082mlpmy98aa03444ddyyv"))))
d48d4c98 5931 (build-system meson-build-system)
8d4791bf
MW		 5932 (native-inputs
5933 `(("glib:bin" ,glib "bin") ; for glib-mkenums and glib-genmarshal
5934 ("intltool" ,intltool)
5935 ("pkg-config" ,pkg-config)
d48d4c98
KK		 5936 ("gobject-introspection" ,gobject-introspection)
5937 ("gtk-doc" ,gtk-doc)
5938 ("vala" ,vala)))
8d4791bf 5939 (inputs
6d7273a0
KK		 5940 `(("cyrus-sasl" ,cyrus-sasl)
5941 ("glib" ,glib)
8d4791bf
MW		 5942 ("gtk+" ,gtk+)
5943 ("libxml2" ,libxml2)
6d7273a0 5944 ("liboauth" ,liboauth)
8d4791bf
MW		 5945 ("libsoup" ,libsoup)
5946 ("totem-pl-parser" ,totem-pl-parser)))
8d4791bf
MW		 5947 (native-search-paths
5948 (list (search-path-specification
5949 (variable "GRL_PLUGIN_PATH")
5950 (files (list (string-append "lib/grilo-"
5951 (version-major+minor version)))))))
d48d4c98 5952 (home-page "https://wiki.gnome.org/action/show/Projects/Grilo")
8d4791bf
MW		 5953 (synopsis "Framework for discovering and browsing media")
5954 (description
5955 "Grilo is a framework focused on making media discovery and browsing easy
5956for application developers.")
5957 (license license:lgpl2.1+)))
7b212526
MW		 5958
5959(define-public grilo-plugins
5960 (package
5961 (name "grilo-plugins")
62a68b73 5962 (version "0.3.11")
7b212526
MW		 5963 (source
5964 (origin
5965 (method url-fetch)
5966 (uri (string-append "mirror://gnome/sources/" name "/"
5967 (version-major+minor version) "/"
5968 name "-" version ".tar.xz"))
5969 (sha256
62a68b73 5970 (base32 "0wyd3n5mn7b77hxylkc3f62v01mlavh96901pz342hwrn42ydqnx"))))
281f6b3a 5971 (build-system meson-build-system)
7b212526 5972 (native-inputs
281f6b3a
RG		 5973 `(("gettext" ,gettext-minimal)
5974 ("glib:bin" ,glib "bin")
5975 ("gtk+:bin" ,gtk+ "bin")
7b212526
MW		 5976 ("itstool" ,itstool)
5977 ("pkg-config" ,pkg-config)))
281f6b3a 5978 ;; TODO: ahavi, gstreamer
7b212526
MW		 5979 (inputs
5980 `(("grilo" ,grilo)
281f6b3a
RG		 5981 ;("gmime" ,gmime) ; unused
5982 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
7b212526 5983 ("gom" ,gom)
281f6b3a
RG		 5984 ;("gssdp" ,gssdp) ; unused
5985 ;("gupnp" ,gupnp) ; unused
5986 ;("gupnp-av" ,gupnp-av) ; unused
7b212526
MW		 5987 ("json-glib" ,json-glib)
5988 ("avahi" ,avahi)
281f6b3a
RG		 5989 ("libgdata" ,libgdata)
5990 ("libmediaart" ,libmediaart)
5991 ;("librest" ,rest) ; unused
7b212526 5992 ("libsoup" ,libsoup)
281f6b3a
RG		 5993 ("totam-pl-parser" ,totem-pl-parser)
5994 ("tracker" ,tracker))) ; unused because it's too old
7b212526 5995 (arguments
281f6b3a
RG		 5996 `(#:glib-or-gtk? #t
5997 ;;Disable lua-factory as it needs missing dependencies
5998 #:configure-flags '("-Denable-lua-factory=no")))
f032d0be 5999 (home-page "https://live.gnome.org/Grilo")
7b212526
MW		 6000 (synopsis "Plugins for the Grilo media discovery library")
6001 (description
6002 "Grilo is a framework focused on making media discovery and browsing easy
281f6b3a
RG		 6003for application developers. This package provides plugins for common media
6004discovery protocols.")
7b212526 6005 (license license:lgpl2.1+)))
4e3fc547
MW		 6006
6007(define-public totem
6008 (package
6009 (name "totem")
3a47800c 6010 (version "3.38.0")
4e3fc547
MW		 6011 (source
6012 (origin
6013 (method url-fetch)
2a9761b1 6014 (uri (string-append "mirror://gnome/sources/totem/"
4e3fc547 6015 (version-major+minor version) "/"
2a9761b1 6016 "totem-" version ".tar.xz"))
4e3fc547
MW		 6017 (sha256
6018 (base32
3a47800c 6019 "0bs33ijvxbr2prb9yj4dxglsszslsn9k258n311sld84masz4ad8"))))
7ad81b8b 6020 (build-system meson-build-system)
4e3fc547
MW		 6021 (native-inputs
6022 `(("pkg-config" ,pkg-config)
6023 ("desktop-file-utils" ,desktop-file-utils)
3a47800c 6024 ("gettext" ,gettext-minimal)
4e3fc547 6025 ("gobject-introspection" ,gobject-introspection)
7ad81b8b 6026 ("glib:bin" ,glib "bin") ;for 'glib-mkenums'
bcb354ad 6027 ("itstool" ,itstool)
995ef5ea 6028 ("xmllint" ,libxml2)
995ef5ea 6029 ("xorg-server" ,xorg-server-for-tests)))
4e3fc547
MW		 6030 (propagated-inputs
6031 `(("dconf" ,dconf)))
6032 (inputs
6033 `(("gtk+" ,gtk+)
6034 ("gdk-pixbuf" ,gdk-pixbuf)
6035 ("atk" ,atk)
6036 ("cairo" ,cairo)
6037 ("dbus-glib" ,dbus-glib)
6038 ("clutter" ,clutter)
6039 ("clutter-gtk" ,clutter-gtk)
6040 ("clutter-gst" ,clutter-gst)
6a6db57f 6041 ("xorgproto" ,xorgproto)
4e3fc547
MW		 6042 ("libxxf86vm" ,libxxf86vm)
6043 ("libxtst" ,libxtst)
6044 ("libxrandr" ,libxrandr)
6045 ("libxml2" ,libxml2)
6046 ("libsoup" ,libsoup)
6047 ("libpeas" ,libpeas)
6048 ("librsvg" ,librsvg)
6049 ("lirc" ,lirc)
6050 ("gnome-desktop" ,gnome-desktop)
6051 ("gstreamer" ,gstreamer)
6052 ("gst-plugins-base" ,gst-plugins-base)
6053 ("gst-plugins-good" ,gst-plugins-good)
6054 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6055 ("adwaita-icon-theme" ,adwaita-icon-theme)
d7b63ba9 6056 ("python" ,python)
995ef5ea 6057 ("python-pygobject" ,python-pygobject)
4e3fc547
MW		 6058 ("totem-pl-parser" ,totem-pl-parser)
6059 ("grilo" ,grilo)
6060 ("grilo-plugins" ,grilo-plugins)
4e3fc547
MW		 6061 ("vala" ,vala)))
6062 (arguments
7ad81b8b
LC		 6063 `(#:glib-or-gtk? #t
6064
6065 ;; Disable automatic GStreamer plugin installation via PackageKit and
ec5c24f9 6066 ;; all that.
7ad81b8b 6067 #:configure-flags '("-D" "enable-easy-codec-installation=no"
a388c951
LC		 6068
6069 ;; Do not build .a files for the plugins, it's
6070 ;; completely useless. This saves 2 MiB.
7ad81b8b 6071 "--default-library" "shared")
ec5c24f9 6072 #:phases
4e3fc547 6073 (modify-phases %standard-phases
d51b19ad
EF		 6074 (add-after 'unpack 'skip-gtk-update-icon-cache
6075 ;; Don't create 'icon-theme.cache'.
6076 (lambda _
6077 (substitute* "meson_post_install.py"
6078 (("gtk-update-icon-cache") "true"))
6079 #t))
1564d1fd
MB		 6080 (add-after 'unpack 'patch-failing-test
6081 (lambda _
6082 ;; Work around test failure with GStreamer 1.18, because the test
6083 ;; relies on "und" not being mapped to a particular language:
6084 ;; https://gitlab.gnome.org/GNOME/totem/-/issues/450
6085 (substitute* "src/test-totem.c"
6086 (("und") "nosuchlang"))
6087 #t))
6368eb39
DM		 6088 (add-before
6089 'install 'disable-cache-generation
6090 (lambda _
6091 (setenv "DESTDIR" "/")
6092 #t))
995ef5ea
KK		 6093 (add-before
6094 'check 'pre-check
6095 (lambda _
6096 ;; Tests require a running X server.
6097 (system "Xvfb :1 &")
6098 (setenv "DISPLAY" ":1")
6099 #t))
4e3fc547
MW		 6100 (add-after
6101 'install 'wrap-totem
6102 (lambda* (#:key inputs outputs #:allow-other-keys)
6103 (let ((out (assoc-ref outputs "out"))
6104 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
6105 (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
6106 (wrap-program (string-append out "/bin/totem")
6107 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
39c853bd
AW		 6108 `("GRL_PLUGIN_PATH" ":" prefix (,grl-plugin-path)))
6109 (wrap-program (string-append out "/bin/totem-video-thumbnailer")
6110 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
4e3fc547
MW		 6111 #t)))))
6112 (home-page "https://wiki.gnome.org/Apps/Videos")
6113 (synopsis "Simple media player for GNOME based on GStreamer")
6114 (description "Totem is a simple yet featureful media player for GNOME
6115which can read a large number of file formats.")
6116 ;; GPL2+ with an exception clause for non-GPL compatible GStreamer plugins
6117 ;; to be used and distributed together with GStreamer and Totem. See
6118 ;; file://COPYING in the source distribution for details.
6119 (license license:gpl2+)))
f0afb0c8
DH		 6120
6121(define-public rhythmbox
6122 (package
6123 (name "rhythmbox")
eda580c0 6124 (version "3.4.4")
f0afb0c8
DH		 6125 (source (origin
6126 (method url-fetch)
2588693d 6127 (uri (string-append "mirror://gnome/sources/rhythmbox/"
f0afb0c8 6128 (version-major+minor version) "/"
2588693d 6129 "rhythmbox-" version ".tar.xz"))
f0afb0c8
DH		 6130 (sha256
6131 (base32
eda580c0 6132 "142xcvw4l19jyr5i72nbnrihs953pvrrzcbijjn9dxmxszbv03pf"))))
f0afb0c8
DH		 6133 (build-system glib-or-gtk-build-system)
6134 (arguments
6135 `(#:configure-flags
6136 (list "--enable-lirc"
6137 "--enable-python"
6138 "--enable-vala"
6139 "--with-brasero"
6140 "--with-gudev"
6141 "--with-libsecret")
6142 #:phases
6143 (modify-phases %standard-phases
6144 (add-after
6145 'install 'wrap-rhythmbox
6146 (lambda* (#:key inputs outputs #:allow-other-keys)
6147 (let ((out (assoc-ref outputs "out"))
6148 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
6149 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
349cef58
TGR		 6150 (grl-plugin-path (getenv "GRL_PLUGIN_PATH"))
6151 (python-path (getenv "PYTHONPATH")))
f0afb0c8
DH		 6152 (wrap-program (string-append out "/bin/rhythmbox")
6153 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
6154 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
349cef58
TGR		 6155 `("GRL_PLUGIN_PATH" ":" prefix (,grl-plugin-path))
6156 `("PYTHONPATH" ":" prefix (,python-path))))
f0afb0c8
DH		 6157 #t)))))
6158 (propagated-inputs
6159 `(("dconf" ,dconf)))
6160 (native-inputs
bcb354ad
SB		 6161 `(("itstool" ,itstool)
6162 ("intltool" ,intltool)
f0afb0c8
DH		 6163 ("glib" ,glib "bin")
6164 ("gobject-introspection" ,gobject-introspection)
6165 ("desktop-file-utils" ,desktop-file-utils)
bcb354ad
SB		 6166 ("pkg-config" ,pkg-config)
6167 ("xmllint" ,libxml2)))
f0afb0c8
DH		 6168 (inputs
6169 `(("json-glib" ,json-glib)
6170 ("tdb" ,tdb)
6171 ("gnome-desktop" ,gnome-desktop)
6172 ("python" ,python)
6173 ("python-pygobject" ,python2-pygobject)
6174 ("vala" ,vala)
6175 ("gmime" ,gmime)
f0afb0c8
DH		 6176 ("adwaita-icon-theme" ,adwaita-icon-theme)
6177 ("grilo" ,grilo)
6178 ("grilo-plugins" ,grilo-plugins)
6179 ("gstreamer" ,gstreamer)
6180 ("gst-plugins-base" ,gst-plugins-base)
6181 ("gst-plugins-good" ,gst-plugins-good)
f0afb0c8 6182 ("totem-pl-parser" ,totem-pl-parser)
ea226291 6183 ("libgudev" ,libgudev)
f0afb0c8
DH		 6184 ;;("libmtp" ,libmtp) FIXME: Not detected
6185 ("libsecret" ,libsecret)
6186 ("libsoup" ,libsoup)
6187 ("libnotify" ,libnotify)
6188 ("libpeas" ,libpeas)
6189 ("lirc" ,lirc)
6190 ;; TODO: clutter* only used by visualizer plugin, which also requires mx
6191 ;;("clutter" ,clutter)
6192 ;;("clutter-gtk" ,clutter-gtk)
6193 ;;("clutter-gst" ,clutter-gst)
6194 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6195 ("atk" ,atk)
6196 ("pango" ,pango)
6197 ("gtk+" ,gtk+)
6198 ;; TODO:
6199 ;; * libgpod
6200 ;; * mx
f0afb0c8
DH		 6201 ("brasero" ,brasero)))
6202 (home-page "https://wiki.gnome.org/Apps/Rhythmbox")
6203 (synopsis "Music player for GNOME")
6204 (description "Rhythmbox is a music playing application for GNOME. It
6205supports playlists, song ratings, and any codecs installed through gstreamer.")
6206 (license license:gpl2+)))
f70d8383
DH		 6207
6208(define-public eog
6209 (package
6210 (name "eog")
0c9031fa 6211 (version "3.34.1")
f70d8383
DH		 6212 (source (origin
6213 (method url-fetch)
6214 (uri (string-append "mirror://gnome/sources/" name "/"
6215 (version-major+minor version) "/"
6216 name "-" version ".tar.xz"))
6217 (sha256
6218 (base32
0c9031fa 6219 "0b7ld4azs9xbdjsk9b91ywhdzvxgajhndiwiivxjzbr0hjgp7c7x"))))
61fb581f 6220 (build-system meson-build-system)
f70d8383 6221 (arguments
34c44a34
RW		 6222 `(#:configure-flags
6223 ;; Otherwise, the RUNPATH will lack the final 'eog' path component.
6224 (list (string-append "-Dc_link_args=-Wl,-rpath="
6225 (assoc-ref %outputs "out") "/lib/eog"))
6226 #:phases
f70d8383 6227 (modify-phases %standard-phases
7a034665
EF		 6228 (add-after 'unpack 'skip-gtk-update-icon-cache
6229 ;; Don't create 'icon-theme.cache'.
6230 (lambda _
6231 (substitute* "meson_post_install.py"
6232 (("gtk-update-icon-cache") "true"))
6233 #t))
61fb581f
RW		 6234 (add-after 'install 'wrap-eog
6235 (lambda* (#:key outputs #:allow-other-keys)
6236 (let ((out (assoc-ref outputs "out"))
6237 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
6238 (wrap-program (string-append out "/bin/eog")
6239 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
6240 #t)))))
f70d8383
DH		 6241 (propagated-inputs
6242 `(("dconf" ,dconf)))
6243 (native-inputs
6244 `(("intltool" ,intltool)
b3546174 6245 ("itstool" ,itstool)
f70d8383
DH		 6246 ("glib" ,glib "bin")
6247 ("gobject-introspection" ,gobject-introspection)
bcb354ad
SB		 6248 ("pkg-config" ,pkg-config)
6249 ("xmllint" ,libxml2)))
f70d8383
DH		 6250 (inputs
6251 `(("gnome-desktop" ,gnome-desktop)
6252 ("shared-mime-info" ,shared-mime-info)
6253 ("adwaita-icon-theme" ,adwaita-icon-theme)
6254 ("exempi" ,exempi)
6255 ("lcms" ,lcms)
6256 ("libexif" ,libexif)
6257 ("libpeas" ,libpeas)
4bd428a7 6258 ("libjpeg" ,libjpeg-turbo)
0c9031fa 6259 ("librsvg" ,librsvg-next)
f70d8383
DH		 6260 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6261 ("gtk+" ,gtk+)))
6262 (home-page "https://wiki.gnome.org/Apps/EyeOfGnome")
6263 (synopsis "GNOME image viewer")
6264 (description "Eye of GNOME is the GNOME image viewer. It
6265supports image conversion, rotation, and slideshows.")
6266 (license license:gpl2+)))
41af5e7b 6267
0c3f8cb8
LC		 6268(define-public eog-plugins
6269 ;; Note: EOG looks for its plugins (via libpeas) in ~/.local as well as
6270 ;; $DATA/lib/eog/plugins, where DATA is one of the entries in
6271 ;; $XDG_DATA_DIRS. Thus, for EOG to find these, you have to have
6272 ;; 'XDG_DATA_DIRS' appropriately set.
6273 (package
6274 (name "eog-plugins")
54b74cc6 6275 (version "3.26.4")
0c3f8cb8
LC		 6276 (source (origin
6277 (method url-fetch)
f3b88ed2 6278 (uri (string-append "mirror://gnome/sources/eog-plugins/"
0c3f8cb8 6279 (version-major+minor version) "/"
f3b88ed2 6280 "eog-plugins-" version ".tar.xz"))
0c3f8cb8
LC		 6281 (sha256
6282 (base32
54b74cc6 6283 "0pd7fqa4ciy5844k5s1c6rlsqkk8pxd8cchxjcjhxlsngm9lynnx"))))
0c3f8cb8
LC		 6284 (build-system gnu-build-system)
6285 (home-page "https://wiki.gnome.org/Apps/EyeOfGnome/Plugins")
6286 (synopsis "Extensions for the Eye of GNOME image viewer")
6287 (native-inputs
6288 `(("pkg-config" ,pkg-config)
f2d97d57 6289 ("gettext" ,gettext-minimal)))
0c3f8cb8
LC		 6290 (inputs
6291 `(("eog" ,eog)
6292 ("glib" ,glib)
6293 ("gtk+" ,gtk+)
6294 ("libpeas" ,libpeas)
6295 ("libexif" ,libexif)
6296 ("libchamplain" ,libchamplain)))
6297 (description
6298 "This package provides plugins for the Eye of GNOME (EOG) image viewer,
6299notably:
6300
6301@itemize
6302@item @dfn{EXIF Display}, which displays camera (EXIF) information;
6303@item @dfn{Map}, which displays a map of where the picture was taken on the
6304side panel;
6305@item @dfn{Slideshow Shuffle}, to shuffle images in slideshow mode.
6306@end itemize\n")
6307
6308 ;; XXX: eog-postasa-plugin-resources.c (which we don't build) contains a
6309 ;; long suspicious byte stream that goes to a
6310 ;; ".gresource.eog_postasa_plugin" ELF section.
6311 (license license:gpl2+)))
6312
41af5e7b
SB		 6313(define-public libgudev
6314 (package
6315 (name "libgudev")
b78f5118 6316 (version "232")
41af5e7b
SB		 6317 (source (origin
6318 (method url-fetch)
6319 (uri (string-append "mirror://gnome/sources/" name "/"
6320 version "/" name "-" version ".tar.xz"))
6321 (sha256
6322 (base32
b78f5118 6323 "0q3qki451zzgdjazlgshsfzbbm0in40lyx7dyrag7kbkqnwv4k7f"))))
41af5e7b 6324 (build-system gnu-build-system)
b78f5118
RW		 6325 (arguments
6326 '(#:configure-flags
6327 ;; umockdev depends on libgudev.
6328 (list "--disable-umockdev")))
41af5e7b
SB		 6329 (native-inputs
6330 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6331 ("gobject-introspection" ,gobject-introspection)
6332 ("pkg-config" ,pkg-config)))
6333 (propagated-inputs
6334 `(("glib" ,glib))) ; required by gudev-1.0.pc
6335 (inputs
6336 `(("udev" ,eudev)))
6337 (home-page "https://wiki.gnome.org/Projects/libgudev")
6338 (synopsis "GObject bindings for libudev")
6339 (description
6340 "This library provides GObject bindings for libudev. It was originally
6341part of udev-extras, then udev, then systemd. It's now a project on its own.")
6342 (license license:lgpl2.1+)))
3dc8828f
SB		 6343
6344(define-public gvfs
6345 (package
6346 (name "gvfs")
12fe4846 6347 (version "1.40.1")
3dc8828f
SB		 6348 (source (origin
6349 (method url-fetch)
1d68eb32 6350 (uri (string-append "mirror://gnome/sources/gvfs/"
3dc8828f 6351 (version-major+minor version) "/"
1d68eb32 6352 "gvfs-" version ".tar.xz"))
3dc8828f
SB		 6353 (sha256
6354 (base32
95b90dec
KK		 6355 "1cfnzamr4mvgpf6yhm28lh9cafy9z6842s8jpbqnfizfxybg8ylj"))
6356 ;; This patch may be removed when upgrading to version 1.46.x.
6357 (patches
6358 (search-patches "gvfs-add-support-for-libplist-2.2.patch"))))
e762d943 6359 (build-system meson-build-system)
3dc8828f 6360 (arguments
e762d943
RW		 6361 '(#:glib-or-gtk? #t
6362 #:configure-flags
6363 (list "-Dsystemduserunitdir=no"
6364 "-Dtmpfilesdir=no"
6365 ;; Otherwise, the RUNPATH will lack the final path component.
6366 (string-append "-Dc_link_args=-Wl,-rpath="
6367 (assoc-ref %outputs "out") "/lib/gvfs"))))
3dc8828f
SB		 6368 (native-inputs
6369 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
0ab9f949
RW		 6370 ("gettext" ,gettext-minimal)
6371 ("gtk-doc" ,gtk-doc)
3dc8828f
SB		 6372 ("pkg-config" ,pkg-config)
6373 ("xsltproc" ,libxslt)))
6374 (inputs
6375 `(("avahi" ,avahi)
6376 ("docbook-xml" ,docbook-xml-4.2)
6377 ("docbook-xsl" ,docbook-xsl)
6378 ("dbus" ,dbus)
e762d943 6379 ("elogind" ,elogind)
3dc8828f 6380 ("fuse" ,fuse)
24a78aa6 6381 ("gcr" ,gcr)
3dc8828f 6382 ("glib" ,glib)
e762d943 6383 ("gnome-online-accounts" ,gnome-online-accounts)
3dc8828f
SB		 6384 ("libarchive" ,libarchive)
6385 ("libbluray" ,libbluray)
8852ca24 6386 ("libcap" ,libcap)
3dc8828f
SB		 6387 ("libcdio-paranoia" ,libcdio-paranoia)
6388 ("libgcrypt" ,libgcrypt)
e762d943 6389 ("libgdata" ,libgdata)
3dc8828f
SB		 6390 ("libgphoto2" ,libgphoto2)
6391 ("libgudev" ,libgudev)
0ab9f949 6392 ("libimobiledevice" ,libimobiledevice)
3dc8828f 6393 ("libmtp" ,libmtp)
e762d943 6394 ("libnfs" ,libnfs)
3dc8828f
SB		 6395 ("libsecret" ,libsecret)
6396 ("libsmbclient" ,samba)
6397 ("libsoup" ,libsoup)
6398 ("libxml2" ,libxml2)
e762d943 6399 ("openssh" ,openssh)
8852ca24 6400 ("polkit" ,polkit)
3dc8828f
SB		 6401 ("udisks" ,udisks)))
6402 (home-page "https://wiki.gnome.org/gvfs/")
8f65585b 6403 (synopsis "Userspace virtual file system for GIO")
3dc8828f 6404 (description
8f65585b 6405 "GVFS is a userspace virtual file system designed to work with the I/O
3dc8828f
SB		 6406abstraction of GIO. It contains a GIO module that seamlessly adds GVFS support
6407to all applications using the GIO API. It also supports exposing the GVFS
6408mounts to non-GIO applications using FUSE.
6409
6410GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP,
6411DAV, and others.")
6412 (license license:lgpl2.0+)))
7c88b6bd
AW		 6413
6414(define-public gusb
6415 (package
6416 (name "gusb")
536b3274 6417 (version "0.3.0")
7c88b6bd 6418 (source (origin
bbfb36f9
EF		 6419 (method git-fetch)
6420 (uri (git-reference
b0e7b699 6421 (url "https://github.com/hughsie/libgusb")
bbfb36f9
EF		 6422 (commit version)))
6423 (file-name (git-file-name name version))
7c88b6bd
AW		 6424 (sha256
6425 (base32
bbfb36f9 6426 "002pg0p4qzzk5dkyiynm483ir26zxrn4k71c7f6j85mfsdzbgli7"))))
536b3274 6427 (build-system meson-build-system)
7c88b6bd 6428 (native-inputs
536b3274 6429 `(("gobject-introspection" ,gobject-introspection)
7c88b6bd
AW		 6430 ("pkg-config" ,pkg-config)
6431 ("vala" ,vala)
7c88b6bd
AW		 6432 ("gtk-doc" ,gtk-doc)))
6433 (propagated-inputs
6434 ;; Both of these are required by gusb.pc.
6435 `(("glib" ,glib)
6436 ("libusb" ,libusb)))
6437 (arguments
536b3274 6438 `(#:tests? #f)) ;libusb fails to initialize. Wonder what that is.
8f1640ed 6439 (home-page "https://github.com/hughsie/libgusb")
a124bbd2 6440 (synopsis "GLib binding for libusb1")
7c88b6bd
AW		 6441 (description
6442 "GUsb is a GObject wrapper for libusb1 that makes it easy to do
6443asynchronous control, bulk and interrupt transfers with proper cancellation
6444and integration into a mainloop. This makes it easy to integrate low level
6445USB transfers with your high-level application or system daemon.")
6446 (license license:lgpl2.1+)))
0abe1d86
AW		 6447
6448(define-public simple-scan
6449 (package
6450 (name "simple-scan")
fd0ef0e1 6451 (version "3.38.1")
d9f6d587
TGR		 6452 (source
6453 (origin
6454 (method url-fetch)
6455 (uri (string-append "mirror://gnome/sources/simple-scan/"
6456 (version-major+minor version) "/"
6457 "simple-scan-" version ".tar.xz"))
6458 (sha256
fd0ef0e1 6459 (base32 "0grscz96bwj79ka4qvxh8h75avdx6824k8k38ylmaj6xbl6gi0hy"))))
d9f6d587
TGR		 6460 (build-system meson-build-system)
6461 ;; TODO: Fix icons in home screen, About dialogue, and scan menu.
6462 (arguments
6463 '(#:glib-or-gtk? #t))
0abe1d86
AW		 6464 (inputs
6465 `(("gtk" ,gtk+)
6466 ("zlib" ,zlib)
6467 ("cairo" ,cairo)
c501f592 6468 ("colord" ,colord)
0abe1d86
AW		 6469 ("gdk-pixbuf" ,gdk-pixbuf)
6470 ("gusb" ,gusb)
4c928743 6471 ("libsane" ,sane-backends)))
0abe1d86 6472 (native-inputs
b94a6ca0 6473 `(("gettext" ,gettext-minimal)
0abe1d86 6474 ("itstool" ,itstool)
c501f592 6475 ("glib" ,glib "bin") ; glib-compile-schemas, etc.
0abe1d86 6476 ("pkg-config" ,pkg-config)
bcb354ad
SB		 6477 ("vala" ,vala)
6478 ("xmllint" ,libxml2)))
dff0eedb 6479 (home-page "https://gitlab.gnome.org/GNOME/simple-scan")
0abe1d86 6480 (synopsis "Document and image scanner")
d9f6d587
TGR		 6481 (description
6482 "Document Scanner is an easy-to-use application that lets you connect your
6483scanner and quickly capture images and documents in an appropriate format. It
6484supports any scanner for which a suitable SANE driver is available, which is
6485almost all of them.")
0abe1d86 6486 (license license:gpl3+)))
7549f984 6487
ab466d79
RW		 6488(define-public eolie
6489 (package
6490 (name "eolie")
f527d214 6491 (version "0.9.100")
ab466d79
RW		 6492 (source (origin
6493 (method url-fetch)
ed783404
RW		 6494 (uri (string-append "https://adishatz.org/eolie/eolie-"
6495 version ".tar.xz"))
ab466d79
RW		 6496 (sha256
6497 (base32
f527d214 6498 "1vzhfp8j1z3jvd5ndqfyn7nqrx3zdvx9mv1byjl36nnd9g63ji62"))))
00014781 6499 (build-system meson-build-system)
ab466d79 6500 (arguments
00014781
RW		 6501 `(#:glib-or-gtk? #t
6502 #:phases
ab466d79 6503 (modify-phases %standard-phases
f0c68100
EF		 6504 (add-after 'unpack 'skip-gtk-update-icon-cache
6505 ;; Don't create 'icon-theme.cache'.
6506 (lambda _
6507 (substitute* "meson_post_install.py"
6508 (("gtk-update-icon-cache") "true"))
6509 #t))
ab466d79
RW		 6510 (add-after 'wrap 'wrap-more
6511 (lambda* (#:key inputs outputs #:allow-other-keys)
6512 (let* ((out (assoc-ref outputs "out"))
6513 ;; These libraries must be on LD_LIBRARY_PATH.
6514 (libs '("gtkspell3" "webkitgtk" "libsoup" "libsecret"
6515 "atk" "gtk+" "gsettings-desktop-schemas"
6516 "gobject-introspection"))
6517 (path (string-join
6518 (map (lambda (lib)
6519 (string-append (assoc-ref inputs lib) "/lib"))
6520 libs)
6521 ":")))
6522 (wrap-program (string-append out "/bin/eolie")
6523 `("LD_LIBRARY_PATH" ":" prefix (,path))
6524 `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
6525 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))
6526 #t)))))
6527 (native-inputs
f85ca6ed 6528 `(("intltool" ,intltool)
ab466d79 6529 ("itstool" ,itstool)
d95f1041 6530 ("pkg-config" ,pkg-config)
d95f1041 6531 ("python" ,python)
f0c68100 6532 ("glib:bin" ,glib "bin")))
ab466d79
RW		 6533 (inputs
6534 `(("gobject-introspection" ,gobject-introspection)
6535 ("glib-networking" ,glib-networking)
6536 ("cairo" ,cairo)
6537 ("gtk+" ,gtk+)
6538 ("atk" ,atk) ; propagated by gtk+, but we need it in LD_LIBRARY_PATH
6539 ("python" ,python-wrapper)
d72f76df 6540 ("python-dateutil" ,python-dateutil)
00014781 6541 ("python-pyfxa" ,python-pyfxa)
ab466d79
RW		 6542 ("python-pygobject" ,python-pygobject)
6543 ("python-pycairo" ,python-pycairo)
00014781 6544 ("python-pycrypto" ,python-pycrypto)
ab466d79
RW		 6545 ("libsecret" ,libsecret)
6546 ("gtkspell3" ,gtkspell3)
6547 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
f85ca6ed 6548 ("webkitgtk" ,webkitgtk)))
166b2c97 6549 (home-page "https://wiki.gnome.org/Apps/Eolie")
ab466d79
RW		 6550 (synopsis "Web browser for GNOME")
6551 (description
6552 "Eolie is a new web browser for GNOME. It features Firefox sync support,
6553a secret password store, an adblocker, and a modern UI.")
6554 (license license:gpl3+)))
6555
7549f984
SB		 6556(define-public epiphany
6557 (package
6558 (name "epiphany")
68fdd237 6559 (version "3.34.4")
7549f984
SB		 6560 (source (origin
6561 (method url-fetch)
dd3266ec 6562 (uri (string-append "mirror://gnome/sources/epiphany/"
7549f984 6563 (version-major+minor version) "/"
dd3266ec 6564 "epiphany-" version ".tar.xz"))
7549f984
SB		 6565 (sha256
6566 (base32
68fdd237 6567 "13ar3s40cds1rplwbzx0fzigf120w0rydiv05r3k6zpc0zy91qb0"))))
fc5c5b92
R		 6568
6569 (build-system meson-build-system)
7549f984 6570 (arguments
20710b91 6571 '(#:glib-or-gtk? #t
bb7ff88f
EF		 6572 #:phases
6573 (modify-phases %standard-phases
6574 (add-after 'unpack 'skip-gtk-update-icon-cache
6575 ;; Don't create 'icon-theme.cache'.
6576 (lambda _
6577 (substitute* "post_install.py"
6578 (("gtk-update-icon-cache") "true"))
20710b91
LP		 6579 #t))
6580 (add-after 'unpack 'disable-failing-tests
6581 (lambda _
6582 (substitute* "tests/meson.build"
6583 ;; embed_shell fails, because webkitgtk apparently no longer supports
6584 ;; overriding the ftp schema
6585 ;; web_app_utils fails due to missing network access
6586 (("(embed_shell|web_app_utils)_test,")
6587 "find_program('sh'), args: ['-c', 'exit 77'],"))
6588 #t))
6589 (add-before 'check 'pre-check
6590 (lambda _
6591 ;; Tests require a running X server.
6592 (system "Xvfb :1 &")
6593 (setenv "DISPLAY" ":1")
bb7ff88f 6594 #t)))
e19f9c24
LF		 6595 #:configure-flags
6596 ;; Otherwise, the RUNPATH will lack the final 'epiphany' path component.
6597 (list (string-append "-Dc_link_args=-Wl,-rpath="
6598 (assoc-ref %outputs "out") "/lib/epiphany"))))
80a747c4
SB		 6599 (propagated-inputs
6600 `(("dconf" ,dconf)))
7549f984 6601 (native-inputs
fc5c5b92
R		 6602 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6603 ("glib:bin" ,glib "bin") ; for glib-mkenums
fc5c5b92 6604 ("intltool" ,intltool)
7549f984 6605 ("itstool" ,itstool)
bcb354ad 6606 ("pkg-config" ,pkg-config)
20710b91
LP		 6607 ("xmllint" ,libxml2)
6608 ("xorg-server" ,xorg-server-for-tests)))
7549f984
SB		 6609 (inputs
6610 `(("avahi" ,avahi)
6611 ("gcr" ,gcr)
fc5c5b92 6612 ("gdk-pixbuf+svg" ,gdk-pixbuf+svg) ; for loading SVG files
7549f984
SB		 6613 ("glib-networking" ,glib-networking)
6614 ("gnome-desktop" ,gnome-desktop)
6615 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
eb6f315b 6616 ("json-glib" ,json-glib)
7549f984 6617 ("iso-codes" ,iso-codes)
8748e29c 6618 ("libdazzle" ,libdazzle)
7549f984
SB		 6619 ("libnotify" ,libnotify)
6620 ("libsecret" ,libsecret)
7549f984 6621 ("libxslt" ,libxslt)
fc5c5b92 6622 ("nettle" ,nettle) ; for hogweed
7549f984 6623 ("sqlite" ,sqlite)
f85ca6ed 6624 ("webkitgtk" ,webkitgtk)))
7549f984
SB		 6625 (home-page "https://wiki.gnome.org/Apps/Web")
6626 (synopsis "GNOME web browser")
6627 (description
6628 "Epiphany is a GNOME web browser targeted at non-technical users. Its
6629principles are simplicity and standards compliance.")
6630 (license license:gpl2+)))
a3856b2c
SB		 6631
6632(define-public d-feet
6633 (package
6634 (name "d-feet")
458e9221 6635 (version "0.3.14")
a3856b2c
SB		 6636 (source (origin
6637 (method url-fetch)
6638 (uri (string-append "mirror://gnome/sources/" name "/"
6639 (version-major+minor version) "/"
6640 name "-" version ".tar.xz"))
6641 (sha256
6642 (base32
458e9221 6643 "1m8lwiwl5jhi0x7y6x5zmd3hjplgvdjrb8a8jg74rvkygslj1p7f"))))
a3856b2c
SB		 6644 (build-system glib-or-gtk-build-system)
6645 (arguments
6646 '(#:out-of-source? #f ; tests need to run in the source directory.
6647 #:phases
6648 (modify-phases %standard-phases
6649 (add-before
6650 'check 'pre-check
86aff791 6651 (lambda _
a3856b2c
SB		 6652 ;; The test suite requires a running X server.
6653 (system "Xvfb :1 &")
6654 (setenv "DISPLAY" ":1")
6655 ;; Don't fail on missing '/etc/machine-id'.
6656 (setenv "DBUS_FATAL_WARNINGS" "0")
6657 ;; tests.py and window.py don't meet E402:
6658 ;; E402 module level import not at top of file
6659 (substitute* "src/tests/Makefile"
86aff791
MW		 6660 (("--ignore=E123") "--ignore=E123,E402"))
6661 #t))
a3856b2c
SB		 6662 (add-after
6663 'install 'wrap-program
6664 (lambda* (#:key outputs #:allow-other-keys)
6665 (let ((prog (string-append (assoc-ref outputs "out")
6666 "/bin/d-feet")))
6667 (wrap-program prog
6668 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
86aff791
MW		 6669 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
6670 #t))))))
a3856b2c
SB		 6671 (native-inputs
6672 `(("intltool" ,intltool)
6673 ("itstool" ,itstool)
6674 ("pkg-config" ,pkg-config)
6675 ("python-pep8" ,python-pep8)
6676 ("xmllint" ,libxml2)
ff337525 6677 ("xorg-server" ,xorg-server-for-tests)))
a3856b2c
SB		 6678 (inputs
6679 `(("gobject-introspection" ,gobject-introspection)
6680 ("gtk+" ,gtk+)
6681 ("python" ,python-wrapper)
458e9221 6682 ("hicolor-icon-theme" ,hicolor-icon-theme)
a3856b2c
SB		 6683 ("python-pygobject" ,python-pygobject)))
6684 (home-page "https://wiki.gnome.org/Apps/DFeet")
6685 (synopsis "D-Bus debugger")
6686 (description
6687 "D-Feet is a D-Bus debugger, which can be used to inspect D-Bus interfaces
6688of running programs and invoke methods on those interfaces.")
6689 (license license:gpl2+)))
c3b97bd9
SB		 6690
6691(define-public yelp-xsl
6692 (package
6693 (name "yelp-xsl")
632a9b32 6694 (version "3.34.2")
c3b97bd9
SB		 6695 (source (origin
6696 (method url-fetch)
6697 (uri (string-append "mirror://gnome/sources/" name "/"
6698 (version-major+minor version) "/"
6699 name "-" version ".tar.xz"))
6700 (sha256
6701 (base32
632a9b32 6702 "1bdpgkzawhqmw52l6zx8czzg1ndfgcf1p44m2bxjdpqkc4afcgqc"))))
c3b97bd9
SB		 6703 (build-system gnu-build-system)
6704 (native-inputs
632a9b32 6705 `(("gettext-minimal" ,gettext-minimal)
c3b97bd9
SB		 6706 ("itstool" ,itstool)
6707 ("xmllint" ,libxml2)))
6708 (home-page "https://wiki.gnome.org/Apps/Yelp")
6709 (synopsis "XSL stylesheets for Yelp")
6710 (description
6711 "Yelp-xsl contains XSL stylesheets that are used by the yelp help browser
6712to format Docbook and Mallard documents.")
6713 (license license:gpl2+)))
de3d612a
SB		 6714
6715(define-public yelp
6716 (package
6717 (name "yelp")
1f1b6d60 6718 (version "3.32.2")
de3d612a
SB		 6719 (source (origin
6720 (method url-fetch)
6721 (uri (string-append "mirror://gnome/sources/" name "/"
6722 (version-major+minor version) "/"
6723 name "-" version ".tar.xz"))
6724 (sha256
6725 (base32
1f1b6d60 6726 "0yrl96icmmrxvg7sxl519gzg9qb368cmzgrr9ddh181ignkxzx7f"))))
de3d612a
SB		 6727 (build-system glib-or-gtk-build-system)
6728 (native-inputs
6729 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
6730 ("intltool" ,intltool)
6731 ("itstool" ,itstool)
6732 ("pkg-config" ,pkg-config)))
6733 (propagated-inputs
6734 `(("dconf" ,dconf)))
6735 (inputs
ad1b7d8b
SB		 6736 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
6737 ("libxslt" ,libxslt)
de3d612a 6738 ("sqlite" ,sqlite)
4c28ca1d
SB		 6739 ("webkitgtk" ,webkitgtk)
6740 ("yelp-xsl" ,yelp-xsl)))
de3d612a
SB		 6741 (home-page "https://wiki.gnome.org/Apps/Yelp")
6742 (synopsis "GNOME help browser")
6743 (description
6744 "Yelp is the help viewer in Gnome. It natively views Mallard, DocBook,
6745man, info, and HTML documents. It can locate documents according to the
6746freedesktop.org help system specification.")
6747 (license license:gpl2+)))
122d0d10
SB		 6748
6749(define-public yelp-tools
6750 (package
6751 (name "yelp-tools")
8fe8a42a 6752 (version "3.32.2")
122d0d10
SB		 6753 (source (origin
6754 (method url-fetch)
6755 (uri (string-append "mirror://gnome/sources/" name "/"
6756 (version-major+minor version) "/"
6757 name "-" version ".tar.xz"))
6758 (sha256
6759 (base32
8fe8a42a 6760 "1yg8f5g5wadhmy4yfd9yjhvd8vll4gq4l86ibp0b42qbxnsmcf0q"))))
122d0d10
SB		 6761 (build-system gnu-build-system)
6762 (native-inputs
6763 `(("pkg-config" ,pkg-config)))
6764 (propagated-inputs
6765 ;; Needed by `yelp-build', `yelp-check' or 'yelp.m4'.
6766 `(("itstool" ,itstool)
6767 ("xmllint" ,libxml2)
6768 ("xsltproc" ,libxslt)))
6769 (inputs
6770 `(("yelp-xsl" ,yelp-xsl)))
6771 (home-page "https://wiki.gnome.org/Apps/Yelp/Tools")
6772 (synopsis "Yelp documentation tools")
6773 (description
6774 "Yelp-tools is a collection of scripts and build utilities to help create,
6775manage, and publish documentation for Yelp and the web. Most of the heavy
6776lifting is done by packages like yelp-xsl and itstool. This package just
6777wraps things up in a developer-friendly way.")
6778 (license license:gpl2+)))
af8f9f23
RW		 6779
6780(define-public libgee
6781 (package
6782 (name "libgee")
9cedae2a 6783 (version "0.20.3")
af8f9f23
RW		 6784 (source (origin
6785 (method url-fetch)
84a1b007 6786 (uri (string-append "mirror://gnome/sources/libgee/"
af8f9f23 6787 (version-major+minor version) "/"
84a1b007 6788 "libgee-" version ".tar.xz"))
af8f9f23
RW		 6789 (sha256
6790 (base32
9cedae2a 6791 "1pm525wm11dhwz24m8bpcln9547lmrigl6cxf3qsbg4cr3pyvdfh"))))
af8f9f23
RW		 6792 (build-system gnu-build-system)
6793 (arguments
6794 `(#:phases
6795 (modify-phases %standard-phases
6796 (add-after 'unpack 'fix-introspection-install-dir
6797 (lambda* (#:key outputs #:allow-other-keys)
6798 (let ((out (assoc-ref outputs "out")))
6799 (substitute* "gee/Makefile.in"
6800 (("@INTROSPECTION_GIRDIR@")
6801 (string-append out "/share/gir-1.0/"))
6802 (("@INTROSPECTION_TYPELIBDIR@")
6803 (string-append out "/lib/girepository-1.0/")))))))))
6804 (native-inputs
6805 `(("glib" ,glib "bin")
6806 ("pkg-config" ,pkg-config)))
6807 (inputs
6808 `(("glib" ,glib)
6809 ("gobject-introspection" ,gobject-introspection)))
6810 (home-page "https://wiki.gnome.org/Projects/Libgee")
6811 (synopsis "GObject collection library")
6812 (description
6813 "Libgee is a utility library providing GObject-based interfaces and
6814classes for commonly used data structures.")
6815 (license license:lgpl2.1+)))
b0f9c4b8
RW		 6816
6817(define-public gexiv2
6818 (package
6819 (name "gexiv2")
efc396ef 6820 (version "0.12.1")
b0f9c4b8
RW		 6821 (source (origin
6822 (method url-fetch)
6823 (uri (string-append "mirror://gnome/sources/" name "/"
6824 (version-major+minor version) "/"
6825 name "-" version ".tar.xz"))
6826 (sha256
6827 (base32
efc396ef 6828 "0xxxq8xdkgkn146my307jgws4qgxx477h0ybg1mqza1ycmczvsla"))))
51c482e4 6829 (build-system meson-build-system)
b0f9c4b8 6830 (native-inputs
b1a8b408
KK		 6831 `(("gcr" ,gcr)
6832 ("glib" ,glib "bin")
6833 ("pkg-config" ,pkg-config)
6834 ("vala" ,vala)))
b0f9c4b8
RW		 6835 (propagated-inputs
6836 ;; Listed in "Requires" section of gexiv2.pc
6837 `(("exiv2" ,exiv2)))
6838 (inputs
6839 `(("glib" ,glib)
6840 ("gobject-introspection" ,gobject-introspection)))
6841 (home-page "https://wiki.gnome.org/Projects/gexiv2")
6842 (synopsis "GObject wrapper around the Exiv2 photo metadata library")
6843 (description
6844 "Gexiv2 is a GObject wrapper around the Exiv2 photo metadata library. It
6845allows for GNOME applications to easily inspect and update EXIF, IPTC, and XMP
6846metadata in photo and video files of various formats.")
6847 (license license:gpl2+)))
fed5a689
RW		 6848
6849(define-public shotwell
6850 (package
6851 (name "shotwell")
a2c60f8a 6852 (version "0.30.11")
fed5a689
RW		 6853 (source (origin
6854 (method url-fetch)
5497d682 6855 (uri (string-append "mirror://gnome/sources/shotwell/"
fed5a689 6856 (version-major+minor version) "/"
5497d682 6857 "shotwell-" version ".tar.xz"))
fed5a689
RW		 6858 (sha256
6859 (base32
a2c60f8a 6860 "12d26y40kjlv5x8f5g04wff33vh7mdjb8c41ydqbrwdip0jwy2n2"))))
3b79afa6
KK		 6861 (build-system meson-build-system)
6862 (arguments
5a0beca3
EF		 6863 '(#:glib-or-gtk? #t
6864 #:phases
6865 (modify-phases %standard-phases
6866 (add-after 'unpack 'skip-gtk-update-icon-cache
6867 (lambda _
6868 (substitute* "build-aux/meson/postinstall.py"
6869 (("gtk-update-icon-cache") (which "true"))
6870 (("update-desktop-database") (which "true")))
6871 #t)))))
735b8db6
TGR		 6872 (propagated-inputs
6873 `(("dconf" ,dconf)))
fed5a689 6874 (native-inputs
5a0beca3
EF		 6875 `(("gettext" ,gettext-minimal)
6876 ("glib:bin" ,glib "bin")
735b8db6 6877 ("itstool" ,itstool)
3b79afa6 6878 ("pkg-config" ,pkg-config)
735b8db6 6879 ("vala" ,vala)))
fed5a689 6880 (inputs
5a0beca3
EF		 6881 `(("gcr" ,gcr)
6882 ("gexiv2" ,gexiv2)
fed5a689 6883 ("gst-plugins-base" ,gst-plugins-base)
5a0beca3
EF		 6884 ("gstreamer" ,gstreamer)
6885 ("json-glib" ,json-glib)
dfb0323d 6886 ("libgdata" ,libgdata)
fed5a689 6887 ("libgee" ,libgee)
5a0beca3
EF		 6888 ("libgphoto2" ,libgphoto2)
6889 ("libgudev" ,libgudev)
fed5a689 6890 ("libraw" ,libraw)
fed5a689
RW		 6891 ("libsoup" ,libsoup)
6892 ("libxml2" ,libxml2)
5a0beca3
EF		 6893 ("sqlite" ,sqlite)
6894 ("webkitgtk" ,webkitgtk)))
fed5a689
RW		 6895 (home-page "https://wiki.gnome.org/Apps/Shotwell")
6896 (synopsis "Photo manager for GNOME 3")
6897 (description
6898 "Shotwell is a digital photo manager designed for the GNOME desktop
6899environment. It allows you to import photos from disk or camera, organize
6900them by keywords and events, view them in full-window or fullscreen mode, and
6901share them with others via social networking and more.")
6902 (license license:lgpl2.1+)))
293ff8b2
DT		 6903
6904(define-public file-roller
6905 (package
6906 (name "file-roller")
dcae4270 6907 (version "3.32.3")
293ff8b2
DT		 6908 (source (origin
6909 (method url-fetch)
f89a27c6 6910 (uri (string-append "mirror://gnome/sources/file-roller/"
293ff8b2 6911 (version-major+minor version) "/"
f89a27c6 6912 "file-roller-" version ".tar.xz"))
293ff8b2
DT		 6913 (sha256
6914 (base32
dcae4270 6915 "0ap2hxvjljh4p6wsd9ikh2my3vsxp9r2nvjxxj3v87nwfyw1y4dy"))))
0a500745 6916 (build-system meson-build-system)
293ff8b2 6917 (native-inputs
0a500745
RW		 6918 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
6919 ("intltool" ,intltool)
4c96e5d1 6920 ("itstool" ,itstool)
0a500745
RW		 6921 ("pkg-config" ,pkg-config)
6922 ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
6923 ("glib:bin" ,glib "bin")))
293ff8b2
DT		 6924 ;; TODO: Add libnautilus.
6925 (inputs
6926 `(("gtk+" ,gtk+)
6927 ("gdk-pixbuf" ,gdk-pixbuf)
6928 ("json-glib" ,json-glib)
6929 ("libarchive" ,libarchive)
6930 ("libnotify" ,libnotify)
4c96e5d1 6931 ("nettle" ,nettle)
293ff8b2
DT		 6932 ("libxml2" ,libxml2)))
6933 (synopsis "Graphical archive manager for GNOME")
6934 (description "File Roller is an archive manager for the GNOME desktop
6935environment that allows users to view, unpack, and create compressed archives
6936such as gzip tarballs.")
6937 (home-page "http://fileroller.sourceforge.net/")
6938 (license license:gpl2+)))
7ce49365
SB		 6939
6940(define-public gnome-session
6941 (package
6942 (name "gnome-session")
f67ce006 6943 (version "3.34.2")
7ce49365
SB		 6944 (source (origin
6945 (method url-fetch)
6946 (uri (string-append "mirror://gnome/sources/" name "/"
6947 (version-major+minor version) "/"
6948 name "-" version ".tar.xz"))
6949 (sha256
6950 (base32
f67ce006 6951 "1qgqp97f8k2zi2ydvhds14zsjzfj7cv521r6wx5sw0qacn0p7dwb"))))
2914af3c 6952 (arguments
df278071
RW		 6953 '(#:glib-or-gtk? #t
6954 #:phases
2914af3c
AW		 6955 (modify-phases %standard-phases
6956 (add-before 'configure 'pre-configure
6957 (lambda* (#:key outputs #:allow-other-keys)
6958 ;; Use elogind instead of systemd.
df278071
RW		 6959 (substitute* "meson.build"
6960 (("libsystemd-login") "libelogind")
6961 (("and libsystemd_daemon_dep.found.*") ","))
2914af3c
AW		 6962 (substitute* "gnome-session/gsm-systemd.c"
6963 (("#include <systemd/sd-login.h>")
6964 "#include <elogind/sd-login.h>"))
df278071 6965 ;; Remove uses of the systemd daemon.
803ab416
SB		 6966 (substitute* "gnome-session/gsm-autostart-app.c"
6967 (("#ifdef HAVE_SYSTEMD") "#if 0"))
a0d7baaf
LC		 6968 #t))
6969 (add-after 'install 'wrap-gnome-session
6970 (lambda* (#:key inputs outputs #:allow-other-keys)
6971 ;; Make sure 'gnome-session' finds the 'gsettings' program.
6972 (let ((glib (assoc-ref inputs "glib:bin"))
6973 (out (assoc-ref outputs "out")))
6974 (wrap-program (string-append out "/bin/gnome-session")
6975 `("PATH" ":" prefix (,(string-append glib "/bin"))))
6976 #t))))
6cbc8d57 6977
2914af3c 6978 #:configure-flags
df278071
RW		 6979 '("-Ddocbook=false" ; FIXME: disabled because of docbook validation error
6980 "-Dman=false" ; FIXME: disabled because of docbook validation error
6981 "-Dsystemd_journal=false")))
6982 (build-system meson-build-system)
7ce49365
SB		 6983 (native-inputs
6984 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
6985 ("pkg-config" ,pkg-config)
6986 ("intltool" ,intltool)
df278071
RW		 6987 ("xsltproc" ,libxslt)
6988 ("libxml2" ,libxml2) ;for 'XML_CATALOG_FILES'
6989 ("docbook-xsl" ,docbook-xsl)
6990 ("docbook-xml" ,docbook-xml)
6991 ("xmlto" ,xmlto)))
7ce49365 6992 (inputs
2914af3c
AW		 6993 `(("elogind" ,elogind)
6994 ("gnome-desktop" ,gnome-desktop)
ba3cb5ab 6995 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7ce49365
SB		 6996 ("gtk+" ,gtk+)
6997 ("json-glib" ,json-glib)
6998 ("libsm" ,libsm)
6999 ("libxcomposite" ,libxcomposite)
7000 ("libxtst" ,libxtst)
7001 ("mesa" ,mesa)
7002 ("upower" ,upower)
7003 ("xtrans" ,xtrans)))
7004 (synopsis "Session manager for GNOME")
7005 (description
7006 "This package contains the GNOME session manager, as well as a
7007configuration program to choose applications starting on login.")
7008 (home-page "https://wiki.gnome.org/Projects/SessionManagement")
7009 (license license:gpl2+)))
f47ba77e
SB		 7010
7011(define-public gjs
7012 (package
7013 (name "gjs")
76e1830c 7014 (version "1.58.3")
f47ba77e
SB		 7015 (source (origin
7016 (method url-fetch)
7017 (uri (string-append "mirror://gnome/sources/" name "/"
7018 (version-major+minor version) "/"
7019 name "-" version ".tar.xz"))
7020 (sha256
7021 (base32
76e1830c 7022 "1bkksx362007zs8c31ydygb29spwa5g5kch1ad2grc2sp53wv7ya"))))
f47ba77e
SB		 7023 (build-system gnu-build-system)
7024 (arguments
7025 '(#:phases
7026 (modify-phases %standard-phases
7027 (add-before
7028 'check 'pre-check
7029 (lambda _
fc119619
MW		 7030 ;; The test suite requires a running X server.
7031 (system "Xvfb :1 &")
7032 (setenv "DISPLAY" ":1")
7033
f47ba77e
SB		 7034 ;; For the missing /etc/machine-id.
7035 (setenv "DBUS_FATAL_WARNINGS" "0")
ba666b07 7036
144f94d0
KK		 7037 ;; Our mozjs-38 package does not compile the required Intl API
7038 ;; support for these failing tests.
7039 (substitute* "installed-tests/js/testLocale.js"
7040 ((".*toBeDefined.*") "")
7041 ((".*expect\\(datestr\\).*") ""))
d054fbf5
KK		 7042 (substitute* "installed-tests/scripts/testCommandLine.sh"
7043 (("Valentín") "")
7044 (("☭") ""))
f47ba77e
SB		 7045 #t)))))
7046 (native-inputs
8a831c6f 7047 `(("glib:bin" ,glib "bin") ; for glib-compile-resources
f47ba77e
SB		 7048 ("pkg-config" ,pkg-config)
7049 ("xmllint" ,libxml2)
7050 ;; For testing
7051 ("dbus-launch" ,dbus)
76e1830c 7052 ("dconf" ,dconf) ; required to properly store settings
f47ba77e 7053 ("uuidgen" ,util-linux)
ebebee94 7054 ("xvfb" ,xorg-server-for-tests)))
f47ba77e
SB		 7055 (propagated-inputs
7056 ;; These are all in the Requires.private field of gjs-1.0.pc.
144f94d0
KK		 7057 `(("cairo" ,cairo)
7058 ("gobject-introspection" ,gobject-introspection)
d054fbf5 7059 ("mozjs" ,mozjs-60)))
f47ba77e
SB		 7060 (inputs
7061 `(("gtk+" ,gtk+)
7062 ("readline" ,readline)))
7063 (synopsis "Javascript bindings for GNOME")
f032d0be 7064 (home-page "https://live.gnome.org/Gjs")
f47ba77e
SB		 7065 (description
7066 "Gjs is a javascript binding for GNOME. It's mainly based on spidermonkey
7067javascript engine and the GObject introspection framework.")
7068 (license license:gpl2+)))
329d731b
DH		 7069
7070(define-public gedit
7071 (package
7072 (name "gedit")
edec7128 7073 (version "3.34.1")
329d731b
DH		 7074 (source (origin
7075 (method url-fetch)
7076 (uri (string-append "mirror://gnome/sources/" name "/"
7077 (version-major+minor version) "/"
7078 name "-" version ".tar.xz"))
7079 (sha256
7080 (base32
edec7128 7081 "1inm50sdfw63by1lf4f1swb59mpyxlly0g5rdg99j5l3357fzygb"))))
480c9226 7082 (build-system meson-build-system)
329d731b 7083 (arguments
480c9226
KK		 7084 `(#:glib-or-gtk? #t
7085 #:configure-flags
7086 ;; Otherwise, the RUNPATH will lack the final path component.
7087 (list (string-append "-Dc_link_args=-Wl,-rpath="
7088 (assoc-ref %outputs "out") "/lib/gedit"))
d9b4022c
LC		 7089
7090 ;; XXX: Generated .h files are sometimes used before being built.
7091 #:parallel-build? #f
7092
480c9226 7093 #:phases
329d731b 7094 (modify-phases %standard-phases
480c9226
KK		 7095 (add-after 'unpack 'skip-gtk-update-icon-cache
7096 ;; Don't create 'icon-theme.cache'.
7097 (lambda _
7098 (substitute* "build-aux/meson/post_install.py"
7099 (("gtk-update-icon-cache") (which "true")))
7100 #t))
7101 (add-after 'unpack 'patch-libgd-fetch
7102 (lambda* (#:key inputs #:allow-other-keys)
7103 (let ((libgd (assoc-ref inputs "libgd")))
7104 ;; Calling git is unnecessary because libgd is fetched as a
7105 ;; native input to this package.
7106 (substitute* "meson.build"
7107 ((".*git.*") ""))
7108 (copy-recursively libgd "subprojects/libgd")
7109 #t)))
7110 (add-after 'install 'wrap-gedit
7111 (lambda* (#:key inputs outputs #:allow-other-keys)
7112 (let ((out (assoc-ref outputs "out"))
7113 (gtksourceview (assoc-ref inputs "gtksourceview"))
7114 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
7115 (python-path (getenv "PYTHONPATH")))
7116 (wrap-program (string-append out "/bin/gedit")
7117 ;; For plugins.
7118 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
7119 `("PYTHONPATH" ":" prefix (,python-path))
7120 ;; For language-specs.
7121 `("XDG_DATA_DIRS" ":" prefix (,(string-append gtksourceview
7122 "/share")))))
7123 #t)))))
329d731b
DH		 7124 (propagated-inputs
7125 `(("dconf" ,dconf)))
7126 (native-inputs
480c9226
KK		 7127 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7128 ("intltool" ,intltool)
b3546174 7129 ("itstool" ,itstool)
480c9226 7130 ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
329d731b 7131 ("gobject-introspection" ,gobject-introspection)
480c9226
KK		 7132 ("libgd"
7133 ,(origin
7134 (method git-fetch)
7135 (uri (git-reference
7136 (url "https://gitlab.gnome.org/GNOME/libgd")
7137 (commit "c7c7ff4e05d3fe82854219091cf116cce6b19de0")))
7138 (file-name (git-file-name "libgd" version))
7139 (sha256
7140 (base32 "16yld0ap7qj1n96h4f2sqkjmibg7xx5xwkqxdfzam2nmyfdlrrrs"))))
329d731b
DH		 7141 ("pkg-config" ,pkg-config)))
7142 (inputs
7143 `(("glib" ,glib)
0d2df50c 7144 ("gspell" ,gspell)
329d731b 7145 ("gtk+" ,gtk+)
480c9226 7146 ("gtksourceview" ,gtksourceview)
329d731b
DH		 7147 ("libpeas" ,libpeas)
7148 ("libxml2" ,libxml2)
329d731b
DH		 7149 ("iso-codes" ,iso-codes)
7150 ("python-pygobject" ,python-pygobject)
7151 ("python" ,python)
7152 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7153 ("libx11" ,libx11)
7154 ("vala" ,vala)
7155 ("adwaita-icon-theme" ,adwaita-icon-theme)
7156 ("libsoup" ,libsoup)
7157 ("gnome-desktop" ,gnome-desktop)))
7158 (home-page "https://wiki.gnome.org/Apps/Gedit")
7159 (synopsis "GNOME text editor")
7160 (description "While aiming at simplicity and ease of use, gedit is a
7161powerful general purpose text editor.")
7162 (license license:gpl2+)))
b7179363
SB		 7163
7164(define-public zenity
7165 (package
7166 (name "zenity")
4f581bd0 7167 (version "3.32.0")
b7179363
SB		 7168 (source (origin
7169 (method url-fetch)
5958df04 7170 (uri (string-append "mirror://gnome/sources/zenity/"
b7179363 7171 (version-major+minor version) "/"
5958df04 7172 "zenity-" version ".tar.xz"))
b7179363
SB		 7173 (sha256
7174 (base32
4f581bd0 7175 "15fdh8xfdhnwcynyh4byx3mrjxbyprqnwxzi7qn3g5wwaqryg1p7"))))
b7179363
SB		 7176 (build-system gnu-build-system)
7177 (native-inputs
b94a6ca0 7178 `(("gettext" ,gettext-minimal)
b7179363
SB		 7179 ("itstool" ,itstool)
7180 ("pkg-config" ,pkg-config)))
7181 (inputs
7182 `(("libnotify" ,libnotify)
7183 ("webkitgtk" ,webkitgtk)))
7184 (synopsis "Display graphical dialog boxes from shell scripts")
f032d0be 7185 (home-page "https://www.gnome.org")
b7179363
SB		 7186 (description
7187 "Zenity is a rewrite of gdialog, the GNOME port of dialog which allows you
7188to display dialog boxes from the commandline and shell scripts.")
7189 (license license:lgpl2.0+)))
60c3627c
SB		 7190
7191(define-public mutter
7192 (package
7193 (name "mutter")
ec3ceabd 7194 (version "3.34.2")
60c3627c 7195 (source (origin
86c44e72
KK		 7196 (method url-fetch)
7197 (uri (string-append "mirror://gnome/sources/" name "/"
7198 (version-major+minor version) "/"
7199 name "-" version ".tar.xz"))
60c3627c
SB		 7200 (sha256
7201 (base32
ec3ceabd 7202 "0b8bz5kvs7rlwvqsg87cf6jhrrj95vgd1l235mjx8rip35ipfvrd"))))
86c44e72
KK		 7203 ;; NOTE: Since version 3.21.x, mutter now bundles and exports forked
7204 ;; versions of cogl and clutter. As a result, many of the inputs,
7205 ;; propagated-inputs, and configure flags used in cogl and clutter are
7206 ;; needed here as well.
edf43f68 7207 (build-system meson-build-system)
60c3627c 7208 (arguments
edf43f68
KK		 7209 '(;; XXX: All mutter tests fail with the following error:
7210 ;; Settings schema 'org.gnome.mutter' is not installed
7211 #:tests? #f
7212 #:glib-or-gtk? #t
7213 #:configure-flags
ec3ceabd
KK		 7214 ;; TODO: Enable profiler when Sysprof is packaged.
7215 (list "-Dprofiler=false"
7216 ;; Otherwise, the RUNPATH will lack the final path component.
7217 (string-append "-Dc_link_args=-Wl,-rpath="
edf43f68 7218 (assoc-ref %outputs "out") "/lib:"
ec3ceabd 7219 (assoc-ref %outputs "out") "/lib/mutter-5")
a88d5a0c
MW		 7220
7221 ;; The following flags are needed for the bundled clutter
edf43f68 7222 (string-append "-Dxwayland_path="
d633f2f6
RH		 7223 (assoc-ref %build-inputs "xorg-server-xwayland")
7224 "/bin/Xwayland")
7225
a88d5a0c 7226 ;; the remaining flags are needed for the bundled cogl
edf43f68 7227 (string-append "-Dopengl_libname="
a88d5a0c 7228 (assoc-ref %build-inputs "mesa")
682ae6f9
MB		 7229 "/lib/libGL.so"))
7230 #:phases (modify-phases %standard-phases
7231 (add-after 'unpack 'fix-build-with-mesa-20
7232 (lambda _
7233 ;; Mimic upstream commit a444a4c5f58ea516ad for
7234 ;; compatibility with Mesa 20. Remove for 3.36.
7235 (substitute* '("src/backends/meta-egl-ext.h"
7236 "src/backends/meta-egl.c"
7237 "src/backends/meta-egl.h")
7238 (("#include <EGL/eglext\\.h>" all)
7239 (string-append all "\n#include <EGL/eglmesaext.h>")))
7240 (substitute* "cogl/cogl/meson.build"
7241 (("#include <EGL/eglext\\.h>" all)
7242 (string-append all "\\n#include <EGL/eglmesaext.h>")))
7243 #t)))))
60c3627c 7244 (native-inputs
ec3ceabd
KK		 7245 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
7246 ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
60c3627c
SB		 7247 ("gobject-introspection" ,gobject-introspection)
7248 ("intltool" ,intltool)
f23052a6 7249 ("pkg-config" ,pkg-config)
edf43f68 7250 ("xorg-server" ,xorg-server-for-tests)
f23052a6
DC		 7251 ;; For git build
7252 ("autoconf" ,autoconf)
7253 ("automake" ,automake)
7254 ("libtool" ,libtool)))
60c3627c 7255 (propagated-inputs
a88d5a0c
MW		 7256 `(;; libmutter.pc refers to these:
7257 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7258 ("gtk+" ,gtk+)
7259 ;; mutter-clutter-1.0.pc and mutter-cogl-1.0.pc refer to these:
7260 ("atk" ,atk)
7261 ("cairo" ,cairo)
7262 ("gdk-pixbuf" ,gdk-pixbuf)
7263 ("glib" ,glib)
a88d5a0c
MW		 7264 ("json-glib" ,json-glib)
7265 ("libinput" ,libinput)
7266 ("libx11" ,libx11)
7267 ("libxcomposite" ,libxcomposite)
7268 ("libxdamage" ,libxdamage)
7269 ("libxext" ,libxext)
7270 ("libxfixes" ,libxfixes)
7271 ("libxkbcommon" ,libxkbcommon)
7272 ("libxrandr" ,libxrandr)
7273 ("mesa" ,mesa)
7274 ("pango" ,pango)
7275 ("udev" ,eudev)
a88d5a0c 7276 ("xinput" ,xinput)))
60c3627c 7277 (inputs
86c44e72
KK		 7278 `(("elogind" ,elogind)
7279 ("gnome-desktop" ,gnome-desktop)
edf43f68 7280 ("gnome-settings-daemon" ,gnome-settings-daemon)
60c3627c 7281 ("libcanberra-gtk" ,libcanberra)
a88d5a0c 7282 ("libgudev" ,libgudev)
60c3627c
SB		 7283 ("libice" ,libice)
7284 ("libsm" ,libsm)
edf43f68 7285 ("libwacom" ,libwacom)
60c3627c 7286 ("libxkbfile" ,libxkbfile)
a88d5a0c 7287 ("libxrandr" ,libxrandr)
86c44e72 7288 ("libxtst" ,libxtst)
edf43f68 7289 ("pipewire" ,pipewire)
60c3627c
SB		 7290 ("startup-notification" ,startup-notification)
7291 ("upower-glib" ,upower)
7292 ("xkeyboard-config" ,xkeyboard-config)
d633f2f6 7293 ("xorg-server-xwayland" ,xorg-server-xwayland)
60c3627c
SB		 7294 ("zenity" ,zenity)))
7295 (synopsis "Window and compositing manager")
f032d0be 7296 (home-page "https://www.gnome.org")
60c3627c
SB		 7297 (description
7298 "Mutter is a window and compositing manager that displays and manages your
7299desktop via OpenGL. Mutter combines a sophisticated display engine using the
7300Clutter toolkit with solid window-management logic inherited from the Metacity
7301window manager.")
86c44e72 7302 (license license:gpl2+)))
685cee87
SB		 7303
7304(define-public gnome-online-accounts
7305 (package
7306 (name "gnome-online-accounts")
dd233e4d 7307 (version "3.36.0")
685cee87
SB		 7308 (source (origin
7309 (method url-fetch)
7310 (uri (string-append "mirror://gnome/sources/" name "/"
7311 (version-major+minor version) "/"
7312 name "-" version ".tar.xz"))
7313 (sha256
7314 (base32
dd233e4d 7315 "0bigfi225g1prnxpb9lcc1i7mdcrkplwb05vilc43jik12cn53qw"))))
14c297fd 7316 (outputs '("out" "lib"))
685cee87 7317 (build-system glib-or-gtk-build-system)
14c297fd
TS		 7318 (arguments
7319 `(#:configure-flags
7320 (list (string-append "--libdir=" (assoc-ref %outputs "out") "/lib"))
7321 #:phases
7322 (modify-phases %standard-phases
7323 (add-before 'configure 'patch-libgoa-output
7324 (lambda* (#:key outputs #:allow-other-keys)
7325 (let ((lib (assoc-ref outputs "lib")))
7326 (substitute* '("src/goa/Makefile.in" "src/goa/goa-1.0.pc.in")
7327 (("@prefix@") lib)
7328 (("@exec_prefix@") lib)
7329 (("@libdir@") (string-append lib "/lib"))
7330 (("@includedir@") (string-append lib "/include"))
7331 (("@datadir@") (string-append lib "/share")))
7555d539
MB		 7332 ;; Make sure gobject-introspection knows about the output
7333 ;; too (see <https://bugs.gnu.org/36535>).
7334 (setenv "outputs" "out lib")
14c297fd 7335 #t))))))
685cee87
SB		 7336 (native-inputs
7337 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7338 ("gobject-introspection" ,gobject-introspection)
7339 ("intltool" ,intltool)
7340 ("pkg-config" ,pkg-config)
ebb2873d 7341 ("vala" ,vala)
685cee87
SB		 7342 ("xsltproc" ,libxslt)))
7343 (propagated-inputs
7344 `(("glib" ,glib) ; required by goa-1.0.pc
7345 ("gtk+" ,gtk+))) ; required by goa-backend-1.0.pc
7346 (inputs
7347 `(("docbook-xsl" ,docbook-xsl)
7348 ("json-glib" ,json-glib)
7349 ("libsecret" ,libsecret)
7350 ("rest" ,rest)
685cee87
SB		 7351 ("webkitgtk" ,webkitgtk)))
7352 (synopsis "Single sign-on framework for GNOME")
7353 (home-page "https://wiki.gnome.org/Projects/GnomeOnlineAccounts")
7354 (description
7355 "GNOME Online Accounts provides interfaces so that applications and
7356libraries in GNOME can access the user's online accounts. It has providers for
7357Google, ownCloud, Facebook, Flickr, Windows Live, Pocket, Foursquare, Microsoft
7358Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
7359 (license license:lgpl2.0+)))
df217748
SB		 7360
7361(define-public evolution-data-server
7362 (package
7363 (name "evolution-data-server")
162048be 7364 (version "3.34.2")
df217748
SB		 7365 (source (origin
7366 (method url-fetch)
7367 (uri (string-append "mirror://gnome/sources/" name "/"
7368 (version-major+minor version) "/"
7369 name "-" version ".tar.xz"))
43190ac6
MB		 7370 (patches (search-patches "evolution-data-server-locales.patch"
7371 "evolution-data-server-libical-compat.patch"))
df217748
SB		 7372 (sha256
7373 (base32
162048be 7374 "16z85y6hhazcrp5ngw47w4x9r0j8zrj7awv5im58hhp0xs19zf1y"))))
743aebd7 7375 (build-system cmake-build-system)
df217748 7376 (arguments
b468eedc
RW		 7377 '(#:configure-flags
7378 (let* ((lib (string-append (assoc-ref %outputs "out") "/lib"))
7379 (runpaths (map (lambda (s)
7380 (string-append lib "/evolution-data-server/" s))
ac033c7b
MB		 7381 '("addressbook-backends" "calendar-backends"
7382 "camel-providers" "credential-modules"
7383 "registry-modules"))))
7384 (list "-DENABLE_UOA=OFF" ;disable Ubuntu Online Accounts support
7385 "-DENABLE_GOOGLE=OFF" ;disable Google Contacts support
7386 "-DENABLE_GOOGLE_AUTH=OFF" ;disable Google authentication
7387 "-DENABLE_VALA_BINDINGS=ON"
ac033c7b
MB		 7388 (string-append "-DCMAKE_INSTALL_RPATH=" lib ";"
7389 (string-append lib "/evolution-data-server;")
7390 (string-join runpaths ";"))
7391 "-DENABLE_INTROSPECTION=ON")) ;required for Vala bindings
df217748
SB		 7392 #:phases
7393 (modify-phases %standard-phases
b468eedc
RW		 7394 (add-after 'unpack 'disable-failing-tests
7395 (lambda _
7396 ;; tests/book-migration/test-migration.c:160:test_fetch_contacts:
7397 ;; assertion failed (g_slist_length (contacts) == 20): (0 == 20)
7398 (delete-file-recursively "tests/book-migration")
7399 (substitute* "tests/CMakeLists.txt"
7400 (("add_subdirectory\\(book-migration\\)") ""))
b468eedc 7401 #t))
743aebd7 7402 (add-after 'unpack 'patch-paths
df217748 7403 (lambda _
b468eedc
RW		 7404 (substitute* '("tests/test-server-utils/e-test-server-utils.c"
7405 "tests/libedata-book/data-test-utils.c"
7406 "tests/libedata-book/test-book-cache-utils.c"
7407 "tests/libedata-cal/test-cal-cache-utils.c")
df217748 7408 (("/bin/rm") (which "rm")))
ac033c7b
MB		 7409 #t))
7410 (add-before 'configure 'dont-override-rpath
7411 (lambda _
7412 (substitute* "CMakeLists.txt"
7413 ;; CMakeLists.txt hard-codes runpath to just the libdir.
7414 ;; Remove it so the configure flag is respected.
7415 (("SET\\(CMAKE_INSTALL_RPATH .*") ""))
b63c06f1 7416 #t)))))
df217748
SB		 7417 (native-inputs
7418 `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
7419 ("gobject-introspection" ,gobject-introspection)
7420 ("gperf" ,gperf)
7421 ("intltool" ,intltool)
7422 ("pkg-config" ,pkg-config)
a73c1cf8 7423 ("vala" ,vala)
743aebd7 7424 ("python" ,python-wrapper)))
df217748
SB		 7425 (propagated-inputs
7426 ;; These are all in the Requires field of .pc files.
7427 `(("gtk+" ,gtk+)
7428 ("libical" ,libical)
7429 ("libsecret" ,libsecret)
7430 ("libsoup" ,libsoup)
7431 ("nss" ,nss)
7432 ("sqlite" ,sqlite)))
7433 (inputs
7434 `(("bdb" ,bdb)
7435 ("gcr" ,gcr)
14c297fd 7436 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
891199c6 7437 ("json-glib" ,json-glib)
b468eedc 7438 ("libcanberra" ,libcanberra)
743aebd7
MB		 7439 ("libgweather" ,libgweather)
7440 ("mit-krb5" ,mit-krb5)
891199c6
MW		 7441 ("openldap" ,openldap)
7442 ("webkitgtk" ,webkitgtk)))
df217748
SB		 7443 (synopsis "Store address books and calendars")
7444 (home-page "https://wiki.gnome.org/Apps/Evolution")
7445 (description
7446 "This package provides a unified backend for programs that work with
7447contacts, tasks, and calendar information. It was originally developed for
7448Evolution (hence the name), but is now used by other packages as well.")
7449 (license license:lgpl2.0)))
bd7dfafa
SB		 7450
7451(define-public caribou
7452 (package
7453 (name "caribou")
fe964bb5 7454 (version "0.4.21")
bd7dfafa
SB		 7455 (source (origin
7456 (method url-fetch)
7457 (uri (string-append "mirror://gnome/sources/" name "/"
7458 (version-major+minor version) "/"
7459 name "-" version ".tar.xz"))
7460 (sha256
7461 (base32
fe964bb5 7462 "0mfychh1q3dx0b96pjz9a9y112bm9yqyim40yykzxx1hppsdjhww"))))
bd7dfafa
SB		 7463 (build-system glib-or-gtk-build-system)
7464 (arguments
7465 '(#:phases
7466 (modify-phases %standard-phases
7467 (add-before
7468 'build 'pre-build
7469 (lambda* (#:key outputs #:allow-other-keys)
7470 (let ((out (assoc-ref outputs "out")))
7471 ;; Use absolute shared library path in Caribou-1.0.typelib.
7472 (substitute* "libcaribou/Makefile"
7473 (("--shared-library=libcaribou.so")
7474 (string-append "--shared-library="
7475 out "/lib/libcaribou.so")))
7476 #t)))
7477 (add-after 'install 'wrap-programs
7478 (lambda* (#:key outputs #:allow-other-keys)
7479 (let* ((out (assoc-ref outputs "out"))
7480 (python-path (getenv "PYTHONPATH"))
7481 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
7482 (for-each
7483 (lambda (prog)
7484 (wrap-program prog
7485 `("PYTHONPATH" ":" prefix (,python-path))
7486 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
7487 (list (string-append out "/bin/caribou-preferences")
7488 (string-append out "/libexec/antler-keyboard"))))
7489 #t)))))
7490 (native-inputs
7491 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
7492 ("gobject-introspection" ,gobject-introspection)
7493 ("intltool" ,intltool)
7494 ("pkg-config" ,pkg-config)
9f7f5ba2 7495 ("python" ,python)
bd7dfafa
SB		 7496 ("vala" ,vala)
7497 ("xsltproc" ,libxslt)))
7498 (propagated-inputs
7499 ;; caribou-1.0.pc refers to all these.
7500 `(("libgee" ,libgee)
7501 ("libxklavier" ,libxklavier)
7502 ("libxtst" ,libxtst)
7503 ("gtk+" ,gtk+)))
7504 (inputs
7505 `(("clutter" ,clutter)
7506 ("dconf" ,dconf)
7507 ("gtk+-2" ,gtk+-2)
9f7f5ba2 7508 ("python-pygobject" ,python-pygobject)))
bd7dfafa
SB		 7509 (synopsis "Text entry and UI navigation application")
7510 (home-page "https://wiki.gnome.org/Projects/Caribou")
7511 (description
7512 "Caribou is an input assistive technology intended for switch and pointer
7513users.")
7514 (license license:lgpl2.1)))
ba5dd105 7515
ba5dd105
SB		 7516(define-public network-manager
7517 (package
7518 (name "network-manager")
01c22be7 7519 (version "1.24.0")
ba5dd105
SB		 7520 (source (origin
7521 (method url-fetch)
7522 (uri (string-append "mirror://gnome/sources/NetworkManager/"
7523 (version-major+minor version) "/"
7524 "NetworkManager-" version ".tar.xz"))
8d0548fd 7525 (patches (search-patches "network-manager-plugin-path.patch"))
ba5dd105
SB		 7526 (sha256
7527 (base32
01c22be7 7528 "06044fl60bjlj7c6rqqfbm5795h61h6yzp7ch392hzcnm46wwhn3"))
02710a9b 7529 (modules '((guix build utils)))
fd070f35 7530 (snippet
02710a9b
RW		 7531 '(begin
7532 (substitute* "src/devices/wwan/nm-modem-manager.c"
7533 (("systemd") "elogind"))
7534 #t))))
255ff74f 7535 (build-system meson-build-system)
ba5dd105
SB		 7536 (outputs '("out"
7537 "doc")) ; 8 MiB of gtk-doc HTML
7538 (arguments
255ff74f 7539 `(#:configure-flags
ba5dd105 7540 (let ((out (assoc-ref %outputs "out"))
ba5dd105
SB		 7541 (dhclient (string-append (assoc-ref %build-inputs "isc-dhcp")
7542 "/sbin/dhclient")))
255ff74f
BW		 7543 (list
7544 ;; Otherwise, the RUNPATH will lack the final 'NetworkManager' path
7545 ;; component.
7546 (string-append "-Dc_link_args=-Wl,-rpath="
7547 out "/lib:"
7548 out "/lib/NetworkManager/" ,version)
7549 "-Dsystemd_journal=false"
7550 "-Dsession_tracking=elogind"
7551 "-Dsuspend_resume=elogind"
7552 "-Dsystemdsystemunitdir=no"
7553 "-Dsession_tracking_consolekit=false"
7554 "-Ddhcpcd=no"
7555 "-Ddhcpcanon=no"
7556 "-Dcrypto=gnutls"
7557 "-Diwd=true"
7558 "-Dlibaudit=yes"
7559 "-Dqt=false"
7560 "-Ddocs=true"
7561 "--sysconfdir=/etc"
7562 "--localstatedir=/var"
7563 (string-append "-Dudev_dir="
7564 out "/lib/udev")
7565 (string-append "-Ddbus_conf_dir="
7566 out "/etc/dbus-1/system.d")
7567
7568 (string-append "-Ddhclient=" dhclient)))
ba5dd105
SB		 7569 #:phases
7570 (modify-phases %standard-phases
b4f59d87
AW		 7571 (add-before 'configure 'pre-configure
7572 (lambda _
7573 ;; These tests try to test aspects of network-manager's
7574 ;; functionality within restricted containers, but they don't
7575 ;; cope with being already in the Guix build jail as that jail
7576 ;; lacks some features that they would like to proxy over (like
7577 ;; a /sys mount).
255ff74f
BW		 7578 (substitute* "src/platform/tests/meson.build"
7579 ((".*test-address-linux.*") "")
7580 ((".*test-cleanup-linux.*") "")
7581 ((".*test-link-linux.*") "")
7582 ((".*test-route-linux.*") ""))
7583 (substitute* "src/devices/tests/meson.build"
7584 ((".*test-acd.*") "")
7585 ((".*test-lldp.*") ""))
45f80fce 7586 #t))
255ff74f
BW		 7587 (add-after 'unpack 'patch-docbook-xml
7588 (lambda* (#:key inputs #:allow-other-keys)
7589 (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
7590 "/xml/dtd/docbook")))
7591 (substitute* (find-files "." ".*\\.(xsl|xml)")
7592 (("http://.*/docbookx\\.dtd")
7593 (string-append xmldoc "/docbookx.dtd")))
7594 #t)))
ba5dd105
SB		 7595 (add-before 'check 'pre-check
7596 (lambda _
7597 ;; For the missing /etc/machine-id.
7598 (setenv "DBUS_FATAL_WARNINGS" "0")
7599 #t))
255ff74f
BW		 7600 (add-before 'install 'no-polkit-magic
7601 ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
ba5dd105 7602 (lambda _
255ff74f
BW		 7603 (setenv "PKEXEC_UID" "something")
7604 #t))
7605 (add-after 'install 'move-doc
7606 (lambda* (#:key outputs #:allow-other-keys)
7607 (let ((out (assoc-ref outputs "out"))
7608 (doc (assoc-ref outputs "doc")))
7609 (mkdir-p (string-append doc "/share"))
7610 (for-each (lambda (directory)
7611 (copy-recursively (string-append out directory)
7612 (string-append doc directory))
7613 (delete-file-recursively
7614 (string-append out directory)))
7615 '("/share/doc" "/share/gtk-doc"))
7616 #t))))))
b93502d6
DC		 7617 (propagated-inputs
7618 `(("glib" ,glib)))
ba5dd105 7619 (native-inputs
255ff74f
BW		 7620 `(("glib:bin" ,glib "bin") ; for gdbus-codegen
7621 ("gtk-doc" ,gtk-doc)
ba5dd105 7622 ("gobject-introspection" ,gobject-introspection)
255ff74f 7623 ("docbook-xml" ,docbook-xml)
d04687dc 7624 ("docbook-xsl" ,docbook-xsl)
ba5dd105 7625 ("intltool" ,intltool)
d04687dc
HG		 7626 ("libxslt" ,libxslt)
7627 ("libxml2" ,libxml2)
ba5dd105 7628 ("pkg-config" ,pkg-config)
255ff74f 7629 ("vala" ,vala)
ba5dd105
SB		 7630 ;; For testing.
7631 ("python" ,python-wrapper)
7632 ("python-dbus" ,python-dbus)
7633 ("python-pygobject" ,python-pygobject)))
7634 (inputs
255ff74f 7635 `(("curl" ,curl)
856ca567
KK		 7636 ("cyrus-sasl" ,cyrus-sasl)
7637 ("dbus-glib" ,dbus-glib)
ba5dd105 7638 ("dnsmasq" ,dnsmasq)
856ca567 7639 ("eudev" ,eudev)
ba5dd105
SB		 7640 ("gnutls" ,gnutls)
7641 ("iptables" ,iptables)
7642 ("isc-dhcp" ,isc-dhcp)
c2f236fa 7643 ("iwd" ,iwd) ; wpa_supplicant alternative
d04687dc 7644 ("jansson" ,jansson)
c2f236fa 7645 ("libaudit" ,audit)
ba5dd105
SB		 7646 ("libgcrypt" ,libgcrypt)
7647 ("libgudev" ,libgudev)
7648 ("libndp" ,libndp)
7649 ("libnl" ,libnl)
7650 ("libsoup" ,libsoup)
255ff74f 7651 ("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
142bdcbc 7652 ("modem-manager" ,modem-manager)
c27e02bf 7653 ("newt" ,newt) ;for the 'nmtui' console interface
c2f236fa 7654 ("openresolv" ,openresolv) ; alternative resolv.conf manager
ba5dd105
SB		 7655 ("polkit" ,polkit)
7656 ("ppp" ,ppp)
7657 ("readline" ,readline)
fd070f35
CM		 7658 ("util-linux" ,util-linux)
7659 ("elogind" ,elogind)))
ba5dd105 7660 (synopsis "Network connection manager")
8d0548fd 7661 (home-page "https://wiki.gnome.org/Projects/NetworkManager")
ba5dd105
SB		 7662 (description
7663 "NetworkManager is a system network service that manages your network
7664devices and connections, attempting to keep active network connectivity when
7665available. It manages ethernet, WiFi, mobile broadband (WWAN), and PPPoE
7666devices, and provides VPN integration with a variety of different VPN
7667services.")
255ff74f
BW		 7668 ;; “This NetworkManager project consists of the daemon, client tools, and
7669 ;; libnm. libnm is licensed LGPL-2.1+, while the rest is licensed under
7670 ;; GPL-2.0+.”
7671 (license (list license:gpl2+
7672 license:lgpl2.1+))
29d2f451 7673 (properties '((upstream-name . "NetworkManager")))))
4d62a9d3 7674
f2b96b3a
LC		 7675(define-public network-manager-openvpn
7676 (package
7677 (name "network-manager-openvpn")
3fe368c0 7678 (version "1.8.12")
f2b96b3a
LC		 7679 (source (origin
7680 (method url-fetch)
7681 (uri (string-append
7682 "mirror://gnome/sources/NetworkManager-openvpn/"
7683 (version-major+minor version)
7684 "/NetworkManager-openvpn-" version ".tar.xz"))
7685 (sha256
7686 (base32
3fe368c0 7687 "062kh4zj7jfbwy4zzcwpq2m457bzbpm3l18s0ysnw3mgia3siz8f"))))
f2b96b3a
LC		 7688 (build-system gnu-build-system)
7689 (arguments
633422b0
JL		 7690 `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7691 #:phases
7692 (modify-phases %standard-phases
7693 (add-after 'configure 'patch-path
7694 (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7695 (let* ((ovpn (string-append (assoc-ref inputs "openvpn")
7696 "/sbin/openvpn"))
7697 (modprobe (string-append (assoc-ref inputs "kmod")
7698 "/bin/modprobe"))
7699 (pretty-ovpn (string-append "\"" ovpn "\"")))
7700 (for-each
7701 (lambda (file)
7702 (substitute* file
7703 (("\"/usr/local/sbin/openvpn\"") pretty-ovpn)
7704 (("\"/usr/sbin/openvpn\"") pretty-ovpn)
7705 (("\"/sbin/openvpn\"") pretty-ovpn)
7706 (("/sbin/modprobe") modprobe)))
7707 '("src/nm-openvpn-service.c" "properties/nm-openvpn-editor.c")))
7708 #t)))))
f2b96b3a
LC		 7709 (native-inputs
7710 `(("pkg-config" ,pkg-config)
7711 ("intltool" ,intltool)))
7712 (inputs
7713 `(("gtk+" ,gtk+)
633422b0 7714 ("kmod" ,kmod)
f2b96b3a
LC		 7715 ("openvpn" ,openvpn)
7716 ("network-manager" ,network-manager)
3fe368c0 7717 ("libnma" ,libnma)
f2b96b3a
LC		 7718 ("libsecret" ,libsecret)))
7719 (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7720 (synopsis "OpenVPN plug-in for NetworkManager")
7721 (description
7722 "This extension of NetworkManager allows it to take care of connections
7723to virtual private networks (VPNs) via OpenVPN.")
7724 (license license:gpl2+)
7725 (properties `((upstream-name . "NetworkManager-openvpn")))))
7726
d376129f
JL		 7727(define-public network-manager-vpnc
7728 (package
7729 (name "network-manager-vpnc")
7730 (version "1.2.6")
7731 (source (origin
7732 (method url-fetch)
7733 (uri (string-append
7734 "mirror://gnome/sources/NetworkManager-vpnc/"
7735 (version-major+minor version)
7736 "/NetworkManager-vpnc-" version ".tar.xz"))
7737 (sha256
7738 (base32
7739 "1js5lwcsqws4klgypfxl4ikmakv7v7xgddij1fj6b0y0qicx0kyy"))))
7740 (build-system gnu-build-system)
7741 (arguments
7c43b78d
BW		 7742 `(#:configure-flags '("--enable-absolute-paths"
7743 "--localstatedir=/var"
7744 ;; libnm-glib has been removed from network-manager
7745 ;; 1de8383ad9fdfc8f552117e5d109bdfa7005634b
7746 "--with-libnm-glib=no")
d376129f
JL		 7747 #:phases
7748 (modify-phases %standard-phases
7749 (add-after 'configure 'patch-path
7750 (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7751 (let* ((vpnc (string-append (assoc-ref inputs "vpnc")
7752 "/sbin/vpnc"))
7753 (modprobe (string-append (assoc-ref inputs "kmod")
7754 "/bin/modprobe"))
7755 (pretty-ovpn (string-append "\"" vpnc "\"")))
7756 (substitute* "src/nm-vpnc-service.c"
7757 (("\"/usr/local/sbin/vpnc\"") pretty-ovpn)
7758 (("\"/usr/sbin/vpnc\"") pretty-ovpn)
7759 (("\"/sbin/vpnc\"") pretty-ovpn)
7760 (("/sbin/modprobe") modprobe)))
7761 #t)))))
7762 (native-inputs
7763 `(("pkg-config" ,pkg-config)
7764 ("intltool" ,intltool)))
7765 (inputs
7766 `(("gtk+" ,gtk+)
7767 ("kmod" ,kmod)
7768 ("vpnc" ,vpnc)
7769 ("network-manager" ,network-manager)
7c43b78d 7770 ("libnma" ,libnma)
d376129f
JL		 7771 ("libsecret" ,libsecret)))
7772 (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7773 (synopsis "VPNC plug-in for NetworkManager")
7774 (description
7775 "Support for configuring virtual private networks based on VPNC.
7776Compatible with Cisco VPN concentrators configured to use IPsec.")
7777 (license license:gpl2+)
7778 (properties `((upstream-name . "NetworkManager-vpnc")))))
7779
8378c87a
EF		 7780(define-public network-manager-openconnect
7781 (package
7782 (name "network-manager-openconnect")
7783 (version "1.2.6")
7784 (source (origin
7785 (method url-fetch)
7786 (uri (string-append
7787 "mirror://gnome/sources/NetworkManager-openconnect/"
7788 (version-major+minor version)
7789 "/NetworkManager-openconnect-" version ".tar.xz"))
7790 (sha256
7791 (base32
7792 "0nlp290nkawc4wqm978n4vhzg3xdqi8kpjjx19l855vab41rh44m"))))
7793 (build-system gnu-build-system)
7794 (arguments
7795 `(#:configure-flags '("--enable-absolute-paths" "--localstatedir=/var")
7796 #:phases
7797 (modify-phases %standard-phases
7798 (add-after 'configure 'patch-path
7799 (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
7800 (let* ((openconnect (string-append (assoc-ref inputs "openconnect")
7801 "/sbin/openconnect"))
7802 (modprobe (string-append (assoc-ref inputs "kmod")
7803 "/bin/modprobe"))
7804 (pretty-ovpn (string-append "\"" openconnect "\"")))
7805 (substitute* "src/nm-openconnect-service.c"
2807a843 7806 (("\"/usr(/local)?/s?bin/openconnect\"") pretty-ovpn)
8378c87a
EF		 7807 (("/sbin/modprobe") modprobe)))
7808 #t)))))
7809 (native-inputs
7810 `(("intltool" ,intltool)
4ca449c5 7811 ("libnma" ,libnma)
8378c87a
EF		 7812 ("pkg-config" ,pkg-config)))
7813 (inputs
7814 `(("gcr" ,gcr)
7815 ("gtk+" ,gtk+)
7816 ("kmod" ,kmod)
7817 ("libsecret" ,libsecret)
7818 ("libxml2" ,libxml2)
b4fe5dab 7819 ("lz4" ,lz4)
8378c87a
EF		 7820 ("network-manager" ,network-manager)
7821 ("openconnect" ,openconnect)))
7822 (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
7823 (synopsis "OpenConnect plug-in for NetworkManager")
7824 (description
7825 "This extension of NetworkManager allows it to take care of connections
7826to @acronym{VPNs, virtual private networks} via OpenConnect, an open client for
7827Cisco's AnyConnect SSL VPN.")
7828 (license license:gpl2+)
e52b9534
LC		 7829 (properties `((upstream-name . "NetworkManager-openconnect")
7830
7831 ;; The 'etc/dbus-1/system.d/nm-openconnect-service.conf'
7832 ;; file refers to account "nm-openconnect". Specify it here
7833 ;; so that 'network-manager-service-type' creates it.
7834 (user-accounts . ("nm-openconnect"))))))
8378c87a 7835
e5e1df4d
DC		 7836(define-public mobile-broadband-provider-info
7837 (package
7838 (name "mobile-broadband-provider-info")
310c89e3 7839 (version "20190116")
e5e1df4d
DC		 7840 (source (origin
7841 (method url-fetch)
7842 (uri (string-append
7843 "mirror://gnome/sources/"
7844 "mobile-broadband-provider-info/" version "/"
7845 "mobile-broadband-provider-info-" version ".tar.xz"))
7846 (sha256
7847 (base32
310c89e3 7848 "16y5lc7pfdvai9c8xwb825zc3v46039gghbip13fqslf5gw11fic"))))
e5e1df4d
DC		 7849 (build-system gnu-build-system)
7850 (arguments
310c89e3 7851 `(#:tests? #f)) ; no tests
e5e1df4d
DC		 7852 (home-page "https://wiki.gnome.org/Projects/NetworkManager")
7853 (synopsis "Database of broadband connection configuration")
7854 (description "Database of broadband connection configuration.")
7855 (license license:public-domain)))
7856
4d62a9d3
SB		 7857(define-public network-manager-applet
7858 (package
7859 (name "network-manager-applet")
4c291112 7860 (version "1.16.0")
4d62a9d3
SB		 7861 (source (origin
7862 (method url-fetch)
3df63444 7863 (uri (string-append "mirror://gnome/sources/network-manager-applet/"
4d62a9d3 7864 (version-major+minor version) "/"
3df63444 7865 "network-manager-applet-" version ".tar.xz"))
4d62a9d3
SB		 7866 (sha256
7867 (base32
4c291112 7868 "1rf3nm0hjcy9f8ajb4vmvwy503w8yj8d4daxkcb7w7i7b92qmyfn"))))
cd7f718e
RW		 7869 (build-system meson-build-system)
7870 (arguments
4c291112 7871 '(#:glib-or-gtk? #t))
4d62a9d3
SB		 7872 (native-inputs
7873 `(("intltool" ,intltool)
cd7f718e 7874 ("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
4d62a9d3 7875 ("gobject-introspection" ,gobject-introspection)
cd7f718e 7876 ("gtk-doc" ,gtk-doc)
4d62a9d3
SB		 7877 ("pkg-config" ,pkg-config)))
7878 (propagated-inputs
7879 ;; libnm-gtk.pc refers to all these.
7880 `(("dbus-glib" ,dbus-glib)
7881 ("gtk+" ,gtk+)
415b90f2
BW		 7882 ("network-manager" ,network-manager)
7883 ;; nm-applet need by org.gnome.nm-applet.gschema.xml
7884 ("libnma" ,libnma)))
4d62a9d3 7885 (inputs
cd7f718e 7886 `(("gcr" ,gcr)
4d62a9d3
SB		 7887 ("libgudev" ,libgudev)
7888 ("libnotify" ,libnotify)
2116bfb3 7889 ("libsecret" ,libsecret)
240cee8a
KK		 7890 ("libselinux" ,libselinux)
7891 ("jansson" ,jansson) ; for team support
4c291112 7892 ("modem-manager" ,modem-manager)))
4d62a9d3 7893 (synopsis "Applet for managing network connections")
8ce78609 7894 (home-page "https://wiki.gnome.org/Projects/NetworkManager")
4d62a9d3
SB		 7895 (description
7896 "This package contains a systray applet for NetworkManager. It displays
7897the available networks and allows users to easily switch between them.")
7898 (license license:gpl2+)))
56196594
RW		 7899
7900(define-public libxml++
7901 (package
7902 (name "libxml++")
8344a85e 7903 (version "3.0.1")
56196594
RW		 7904 (source (origin
7905 (method url-fetch)
7906 (uri (string-append "mirror://gnome/sources/" name "/"
7907 (version-major+minor version) "/"
7908 name "-" version ".tar.xz"))
7909 (sha256
7910 (base32
8344a85e 7911 "19kik79fmg61nv0by0a5f9wchrcfjwzvih4v2waw01hqflhqvp0r"))))
56196594
RW		 7912 (build-system gnu-build-system)
7913 ;; libxml++-3.0.pc refers to all these.
7914 (propagated-inputs
7915 `(("libxml2" ,libxml2)
7916 ("glibmm" ,glibmm)))
7917 (native-inputs
7918 `(("perl" ,perl)
7919 ("pkg-config" ,pkg-config)))
7920 (home-page "http://libxmlplusplus.sourceforge.net/")
7921 (synopsis "C++ wrapper for XML parser library libxml2")
7922 (description
7923 "This package provides a C++ wrapper for the XML parser library
7924libxml2.")
7925 (license license:lgpl2.1+)))
df12f04a 7926
b61d9627
AW		 7927(define-public libxml++-2
7928 (package
7929 (inherit libxml++)
7930 (name "libxml++")
7931 (version "2.40.1")
7932 (source (origin
7933 (method url-fetch)
7934 (uri (string-append "mirror://gnome/sources/" name "/"
7935 (version-major+minor version) "/"
7936 name "-" version ".tar.xz"))
7937 (sha256
7938 (base32
7939 "1sb3akryklvh2v6m6dihdnbpf1lkx441v972q9hlz1sq6bfspm2a"))))))
7940
df12f04a
SB		 7941(define-public gdm
7942 (package
7943 (name "gdm")
0fda99c5 7944 (version "3.34.1")
df12f04a
SB		 7945 (source (origin
7946 (method url-fetch)
7947 (uri (string-append "mirror://gnome/sources/" name "/"
7948 (version-major+minor version) "/"
7949 name "-" version ".tar.xz"))
7950 (sha256
7951 (base32
0fda99c5 7952 "1lyqvcwxhwxklbxn4xjswjzr6fhjix6h28mi9ypn34wdm9bzcpg8"))
f4ec5e1a 7953 (patches (search-patches "gdm-default-session.patch"))))
957dbc0a 7954 (build-system glib-or-gtk-build-system)
df12f04a
SB		 7955 (arguments
7956 '(#:configure-flags
af37e6bb 7957 `("--without-plymouth"
957dbc0a 7958 "--disable-systemd-journal"
51bc8357
TS		 7959
7960 ;; Using --with-initial-vt=7 allows GDM to run alongside TTY 1,
7961 ;; instead of having to replace it (i.e., stopping the mingetty
7962 ;; service for TTY 1 before starting GDM).
7963 "--with-initial-vt=7"
7964
89c86562
TS		 7965 ;; Use '/etc/environment' for locale settings instead of the
7966 ;; systemd-specific '/etc/locale.conf'.
7967 "--with-lang-file=/etc/environment"
7968
b74ef0ba
RW		 7969 ,(string-append "--with-udevdir="
7970 (assoc-ref %outputs "out") "/lib/udev")
7971
af37e6bb
AW		 7972 "--localstatedir=/var"
7973 ,(string-append "--with-default-path="
7974 (string-join '("/run/setuid-programs"
7975 "/run/current-system/profile/bin"
7976 "/run/current-system/profile/sbin")
957dbc0a
AW		 7977 ":"))
7978 ;; Put GDM in bindir so that glib-or-gtk-build-system wraps the
7979 ;; XDG_DATA_DIRS so that it finds its schemas.
7980 "--sbindir" ,(string-append (assoc-ref %outputs "out") "/bin"))
df12f04a
SB		 7981 #:phases
7982 (modify-phases %standard-phases
7983 (add-before
7984 'configure 'pre-configure
e8c6e771 7985 (lambda* (#:key inputs outputs #:allow-other-keys)
df12f04a
SB		 7986 ;; We don't have <systemd/sd-daemon.h>.
7987 (substitute* '("common/gdm-log.c"
7988 "daemon/gdm-server.c"
7989 "daemon/gdm-session-worker.c"
7990 "daemon/gdm-session-worker-job.c")
7991 (("#include <systemd/sd-daemon\\.h>") ""))
7992 ;; Use elogind for sd-login.
7993 (substitute* '("common/gdm-common.c"
0fda99c5 7994 "daemon/gdm-local-display-factory.c"
df12f04a
SB		 7995 "daemon/gdm-manager.c"
7996 "libgdm/gdm-user-switching.c")
7997 (("#include <systemd/sd-login\\.h>")
7998 "#include <elogind/sd-login.h>"))
957dbc0a
AW		 7999 ;; Check for elogind.
8000 (substitute* '("configure")
8001 (("libsystemd")
8002 "libelogind"))
af37e6bb
AW		 8003 ;; Look for system-installed sessions in
8004 ;; /run/current-system/profile/share.
8005 (substitute* '("libgdm/gdm-sessions.c"
8006 "daemon/gdm-session.c"
8007 "daemon/gdm-display.c"
8008 "daemon/gdm-launch-environment.c")
8009 (("DATADIR \"/x")
8010 "\"/run/current-system/profile/share/x")
8011 (("DATADIR \"/wayland")
8012 "\"/run/current-system/profile/share/wayland")
8013 (("DATADIR \"/gnome")
8014 "\"/run/current-system/profile/share/gnome"))
c9ff92b5 8015 (let ((propagate '("GDM_CUSTOM_CONF"
1f564c15 8016 "GDM_DBUS_DAEMON"
c9ff92b5 8017 "GDM_X_SERVER"
41fa9f18 8018 "GDM_X_SESSION"
c9ff92b5
TS		 8019 ;; XXX: Remove this once GNOME Shell is
8020 ;; a dependency of GDM.
8021 "XDG_DATA_DIRS")))
8022 (substitute* "daemon/gdm-session.c"
8023 (("set_up_session_environment \\(self\\);")
8024 (apply string-append
8025 "set_up_session_environment (self);\n"
8026 (map (lambda (name)
8027 (string-append
8028 "gdm_session_set_environment_variable "
8029 "(self, \"" name "\","
8030 "g_getenv (\"" name "\"));\n"))
8031 propagate)))))
a430a350
TS		 8032 ;; Find the configuration file using an environment variable.
8033 (substitute* '("common/gdm-settings.c")
e0e6756f 8034 (("GDM_CUSTOM_CONF")
e57c2adb
TS		 8035 (string-append "(g_getenv(\"GDM_CUSTOM_CONF\") != NULL"
8036 " ? g_getenv(\"GDM_CUSTOM_CONF\")"
8037 " : GDM_CUSTOM_CONF)")))
e0e6756f
AW		 8038 ;; Use service-supplied path to X.
8039 (substitute* '("daemon/gdm-server.c")
8040 (("\\(X_SERVER X_SERVER_ARG_FORMAT")
8041 "(\"%s\" X_SERVER_ARG_FORMAT, g_getenv (\"GDM_X_SERVER\")"))
0fda99c5
KK		 8042 (substitute* '("daemon/gdm-wayland-session.c"
8043 "daemon/gdm-x-session.c")
1f564c15
TS		 8044 (("\"dbus-daemon\"")
8045 "g_getenv (\"GDM_DBUS_DAEMON\")")
e0e6756f 8046 (("X_SERVER")
41fa9f18
TS		 8047 "g_getenv (\"GDM_X_SERVER\")")
8048 (("GDMCONFDIR \"/Xsession\"")
8049 "g_getenv (\"GDM_X_SESSION\")"))
def6d6b6
TS		 8050 ;; Use an absolute path for GNOME Session.
8051 (substitute* "daemon/gdm-launch-environment.c"
8052 (("\"gnome-session\"")
8053 (string-append "\"" (assoc-ref inputs "gnome-session")
8054 "/bin/gnome-session\"")))
e8c6e771
TS		 8055 ;; Do not automatically select the placeholder session.
8056 (substitute* "daemon/gdm-session.c"
8057 (("!g_str_has_suffix [(]base_name, \"\\.desktop\"[)]")
8058 (string-append "!g_str_has_suffix (base_name, \".desktop\") || "
8059 "(g_strcmp0(search_dirs[i], \""
8060 (assoc-ref outputs "out") "/share/gdm/BuiltInSessions/"
8061 "\") == 0 && "
8062 "g_strcmp0(base_name, \"fail.desktop\") == 0)"))
8063 (("g_error [(]\"GdmSession: no session desktop files installed, aborting\\.\\.\\.\"[)];")
bcca95dc 8064 "{ self->fallback_session_name = g_strdup(\"fail\"); goto out; }"))
69544798 8065 #t))
8caa4589
TS		 8066 ;; GDM requires that there be at least one desktop entry
8067 ;; file. This phase installs a hidden one that simply
8068 ;; fails. This enables users to use GDM with a
8069 ;; '~/.xsession' script with no other desktop entry files.
8070 ;; See <https://bugs.gnu.org/35068>.
8071 (add-after 'install 'install-placeholder-desktop-entry
8072 (lambda* (#:key inputs outputs #:allow-other-keys)
8073 (let* ((out (assoc-ref outputs "out"))
8074 (sessions (string-append out "/share/gdm/BuiltInSessions"))
8075 (fail (string-append sessions "/fail.desktop")))
8076 (mkdir-p sessions)
8077 (with-output-to-file fail
8078 (lambda ()
8079 (for-each
8080 display
8081 '("[Desktop Entry]\n"
8082 "Encoding=UTF-8\n"
8083 "Type=Application\n"
8084 "Name=Fail\n"
8085 "Comment=This session fails immediately.\n"
8086 "NoDisplay=true\n"
8087 "Exec=false\n"))))
8088 #t)))
69544798
TS		 8089 ;; GDM needs GNOME Session to run these applications. We link
8090 ;; their autostart files in `share/gdm/greeter/autostart'
8091 ;; because GDM explicitly tells GNOME Session to look there.
8092 ;;
8093 ;; XXX: GNOME Shell should be linked here too, but currently
8094 ;; GNOME Shell depends on GDM.
8095 (add-after 'install 'link-autostart-files
8096 (lambda* (#:key inputs outputs #:allow-other-keys)
8097 (let* ((out (assoc-ref outputs "out"))
8098 (autostart (string-append out "/share/gdm/"
8099 "greeter/autostart"))
8100 (settings (assoc-ref inputs "gnome-settings-daemon")))
8101 (mkdir-p autostart)
8102 (with-directory-excursion autostart
8103 (for-each (lambda (desktop)
8104 (symlink desktop (basename desktop)))
8105 (find-files (string-append settings "/etc/xdg"))))
8106 #t))))))
df12f04a
SB		 8107 (native-inputs
8108 `(("dconf" ,dconf)
8109 ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8110 ("gobject-introspection" ,gobject-introspection)
8111 ("intltool" ,intltool)
8112 ("itstool" ,itstool)
8113 ("pkg-config" ,pkg-config)
8114 ("xmllint" ,libxml2)))
8115 (inputs
8116 `(("accountsservice" ,accountsservice)
e1409c76 8117 ("check" ,check-0.14) ;for testing
df12f04a 8118 ("elogind" ,elogind)
def6d6b6 8119 ("gnome-session" ,gnome-session)
69544798 8120 ("gnome-settings-daemon" ,gnome-settings-daemon)
df12f04a
SB		 8121 ("gtk+" ,gtk+)
8122 ("iso-codes" ,iso-codes)
8123 ("libcanberra" ,libcanberra)
8124 ("linux-pam" ,linux-pam)))
8125 (synopsis "Display manager for GNOME")
f032d0be 8126 (home-page "https://wiki.gnome.org/Projects/GDM/")
df12f04a
SB		 8127 (description
8128 "GNOME Display Manager is a system service that is responsible for
8129providing graphical log-ins and managing local and remote displays.")
8130 (license license:gpl2+)))
8e1dd04f
SB		 8131
8132(define-public libgtop
8133 (package
8134 (name "libgtop")
015fc036 8135 (version "2.40.0")
8e1dd04f
SB		 8136 (source (origin
8137 (method url-fetch)
59487fc2 8138 (uri (string-append "mirror://gnome/sources/libgtop/"
8e1dd04f 8139 (version-major+minor version) "/"
59487fc2 8140 "libgtop-" version ".tar.xz"))
8e1dd04f
SB		 8141 (sha256
8142 (base32
015fc036 8143 "1m6jbqk8maa52gxrf223442fr5bvvxgb7ham6v039i3r1i62gwvq"))))
8e1dd04f
SB		 8144 (build-system gnu-build-system)
8145 (native-inputs
8146 `(("gobject-introspection" ,gobject-introspection)
8147 ("intltool" ,intltool)
8148 ("perl" ,perl)
8149 ("pkg-config" ,pkg-config)))
8150 (propagated-inputs
8151 `(("glib" ,glib))) ; required by libgtop-2.0.pc
8152 (synopsis "Portable system access library")
8153 (home-page "https://www.gnome.org/")
8154 (description
8155 "LibGTop is a library to get system specific data such as CPU and memory
8156usage and information about running processes.")
8157 (license license:gpl2+)))
b96c4260
SB		 8158
8159(define-public gnome-bluetooth
8160 (package
8161 (name "gnome-bluetooth")
ce4f2fda 8162 (version "3.34.2")
b96c4260
SB		 8163 (source (origin
8164 (method url-fetch)
8165 (uri (string-append "mirror://gnome/sources/" name "/"
8166 (version-major+minor version) "/"
8167 name "-" version ".tar.xz"))
8168 (sha256
8169 (base32
ce4f2fda 8170 "0lmjvb49vgr4jjplrisv6pi29jsn1q42715i6c5a0p9ad3gawyyv"))))
fd3b1171 8171 (build-system meson-build-system)
b96c4260
SB		 8172 (native-inputs
8173 `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
fd3b1171 8174 ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
b96c4260
SB		 8175 ("gobject-introspection" ,gobject-introspection)
8176 ("intltool" ,intltool)
8177 ("pkg-config" ,pkg-config)
8178 ("xmllint" ,libxml2)))
8179 (propagated-inputs
8180 ;; gnome-bluetooth-1.0.pc refers to all these.
723afae6
KK		 8181 `(("glib" ,glib)
8182 ("gtk+" ,gtk+)))
b96c4260 8183 (inputs
723afae6
KK		 8184 `(("eudev" ,eudev)
8185 ("libcanberra" ,libcanberra)
b96c4260
SB		 8186 ("libnotify" ,libnotify)))
8187 (synopsis "GNOME Bluetooth subsystem")
8188 (home-page "https://wiki.gnome.org/Projects/GnomeBluetooth")
8189 (description
8190 "This package contains tools for managing and manipulating Bluetooth
8191devices using the GNOME desktop.")
8192 (license license:lgpl2.1+)))
b645146f
SB		 8193
8194(define-public gnome-control-center
8195 (package
8196 (name "gnome-control-center")
c576328d 8197 (version "3.34.2")
b645146f
SB		 8198 (source (origin
8199 (method url-fetch)
8200 (uri (string-append "mirror://gnome/sources/" name "/"
8201 (version-major+minor version) "/"
8202 name "-" version ".tar.xz"))
8203 (sha256
8204 (base32
c576328d 8205 "054igagvmyzpaa5nwzz98gv7bk7l5dwp6g813707132si3szlpx8"))))
59dac026 8206 (build-system meson-build-system)
b645146f 8207 (arguments
59dac026
RW		 8208 '(#:glib-or-gtk? #t
8209 #:configure-flags
64c70430
KK		 8210 (list "-Dcheese=false"
8211 (string-append "-Dgnome_session_libexecdir="
8212 (assoc-ref %build-inputs "gnome-session")
8213 "/libexec"))
59dac026 8214 #:phases
b645146f
SB		 8215 (modify-phases %standard-phases
8216 (add-before 'configure 'patch-paths
8217 (lambda* (#:key inputs #:allow-other-keys)
8218 (let ((libc (assoc-ref inputs "libc"))
1df38cfc 8219 (tzdata (assoc-ref inputs "tzdata"))
341225ac 8220 (libgnomekbd (assoc-ref inputs "libgnomekbd"))
64c70430
KK		 8221 (nm-applet (assoc-ref inputs "network-manager-applet"))
8222 (gnome-desktop (assoc-ref inputs "gnome-desktop")))
b645146f
SB		 8223 (substitute* "panels/datetime/tz.h"
8224 (("/usr/share/zoneinfo/zone.tab")
8225 (string-append tzdata "/share/zoneinfo/zone.tab")))
982c0b36 8226 (substitute* "tests/datetime/test-endianess.c"
b645146f
SB		 8227 (("/usr/share/locale")
8228 (string-append libc "/share/locale")))
1df38cfc
LC		 8229 (substitute* "panels/region/cc-region-panel.c"
8230 (("\"gkbd-keyboard-display")
8231 (string-append "\"" libgnomekbd
8232 "/bin/gkbd-keyboard-display")))
341225ac
LC		 8233 (substitute* '("panels/network/net-device-wifi.c"
8234 "panels/network/net-device.c"
8235 "panels/network/connection-editor/net-connection-editor.c")
8236 (("\"nm-connection-editor")
8237 (string-append "\"" nm-applet
8238 "/bin/nm-connection-editor")))
1acd107c
FP		 8239 (substitute* '("panels/user-accounts/run-passwd.c")
8240 (("/usr/bin/passwd")
8241 "/run/setuid-programs/passwd"))
64c70430
KK		 8242 (substitute* "panels/info/cc-info-overview-panel.c"
8243 (("DATADIR \"/gnome/gnome-version.xml\"")
8244 (string-append "\"" gnome-desktop
8245 "/share/gnome/gnome-version.xml\"")))
c576328d
KK		 8246 #t)))
8247 (add-after 'unpack 'skip-gtk-update-icon-cache
8248 ;; Don't create 'icon-theme.cache'.
8249 (lambda _
8250 (substitute* "build-aux/meson/meson_post_install.py"
8251 (("gtk-update-icon-cache") (which "true")))
8252 #t)))))
b645146f
SB		 8253 (native-inputs
8254 `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
8255 ("intltool" ,intltool)
8256 ("pkg-config" ,pkg-config)
a6938bac
KK		 8257 ("xsltproc" ,libxslt)
8258 ;; For tests
8259 ("hicolor-icon-theme" ,hicolor-icon-theme)
8260 ("python-dbusmock" ,python-dbusmock)
8261 ("xorg-server" ,xorg-server-for-tests)))
b645146f
SB		 8262 (inputs
8263 `(("accountsservice" ,accountsservice)
8264 ("clutter-gtk" ,clutter-gtk)
8265 ("colord-gtk" ,colord-gtk)
8266 ("cups" ,cups)
8267 ("dconf" ,dconf)
8268 ("docbook-xsl" ,docbook-xsl)
3446ffb5 8269 ("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files
b645146f
SB		 8270 ("gnome-bluetooth" ,gnome-bluetooth)
8271 ("gnome-desktop" ,gnome-desktop)
8272 ("gnome-online-accounts" ,gnome-online-accounts)
14c297fd 8273 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
64c70430 8274 ("gnome-session" ,gnome-session)
b645146f
SB		 8275 ("gnome-settings-daemon" ,gnome-settings-daemon)
8276 ("grilo" ,grilo)
a6938bac 8277 ("gsound" ,gsound)
b645146f
SB		 8278 ("ibus" ,ibus)
8279 ("libcanberra" ,libcanberra)
1df38cfc 8280 ("libgnomekbd" ,libgnomekbd)
b645146f
SB		 8281 ("libgudev" ,libgudev)
8282 ("libgtop" ,libgtop)
46cf3434 8283 ("libnma" ,libnma)
b645146f 8284 ("libpwquality" ,libpwquality)
982c0b36 8285 ("libsecret" ,libsecret)
b645146f
SB		 8286 ("libsoup" ,libsoup)
8287 ("libxml2" ,libxml2)
8288 ("libwacom" ,libwacom)
8289 ("mesa" ,mesa)
8290 ("mit-krb5" ,mit-krb5)
8291 ("modem-manager" ,modem-manager)
8292 ("network-manager-applet" ,network-manager-applet)
8293 ("polkit" ,polkit)
8294 ("pulseaudio" ,pulseaudio)
8295 ("smbclient" ,samba)
8296 ("tzdata" ,tzdata)
982c0b36 8297 ("udisks" ,udisks)
b645146f
SB		 8298 ("upower" ,upower)))
8299 (synopsis "Utilities to configure the GNOME desktop")
8300 (home-page "https://www.gnome.org/")
8301 (description
8302 "This package contains configuration applets for the GNOME desktop,
8303allowing to set accessibility configuration, desktop fonts, keyboard and mouse
8304properties, sound setup, desktop theme and background, user interface
8305properties, screen resolution, and other GNOME parameters.")
8306 (license license:gpl2+)))
a4df5756
SB		 8307
8308(define-public gnome-shell
8309 (package
8310 (name "gnome-shell")
28457ae6 8311 (version "3.34.2")
a4df5756
SB		 8312 (source (origin
8313 (method url-fetch)
8314 (uri (string-append "mirror://gnome/sources/" name "/"
8315 (version-major+minor version) "/"
8316 name "-" version ".tar.xz"))
8317 (sha256
8318 (base32
28457ae6
KK		 8319 "0k9vq2gh1nhdd6fpp7jnwx37qxaakawiqw1xnlfjvq5g5zdn8ckh"))
8320 (patches (search-patches "gnome-shell-theme.patch"
8321 "gnome-shell-disable-test.patch"))
a76d0f03
LC		 8322 (modules '((guix build utils)))
8323 (snippet
8324 #~(begin
a76d0f03
LC		 8325 ;; Copy images for use on the GDM log-in screen.
8326 (copy-file #$(file-append %artwork-repository
8327 "/slim/0.x/background.png")
8328 "data/theme/guix-background.png")
45fef894
LC		 8329 (copy-file #$(file-append %artwork-repository
8330 "/logo/Guix-horizontal-white.svg")
8331 "data/theme/guix-logo.svg")
a76d0f03 8332 #t))))
2b0c755d 8333 (build-system meson-build-system)
a4df5756 8334 (arguments
08185081
MB		 8335 `(#:glib-or-gtk? #t
8336 #:disallowed-references ((,glib "bin")
11e1df56
LC		 8337 ,inkscape ,libxslt
8338 ,ruby-sass)
2b0c755d
RW		 8339 #:configure-flags
8340 (list "-Dsystemd=false"
8341 ;; Otherwise, the RUNPATH will lack the final path component.
8342 (string-append "-Dc_link_args=-Wl,-rpath="
8343 (assoc-ref %outputs "out")
8344 "/lib/gnome-shell"))
11e1df56 8345
08185081 8346 #:modules ((guix build meson-build-system)
11e1df56
LC		 8347 (guix build utils)
8348 (srfi srfi-1))
8349
2b0c755d 8350 #:phases
a4df5756 8351 (modify-phases %standard-phases
2b0c755d 8352 (add-after 'unpack 'fix-keysdir
a4df5756
SB		 8353 (lambda* (#:key outputs #:allow-other-keys)
8354 (let* ((out (assoc-ref outputs "out"))
8355 (keysdir (string-append
8356 out "/share/gnome-control-center/keybindings")))
2b0c755d
RW		 8357 (substitute* "meson.build"
8358 (("keysdir =.*")
8359 (string-append "keysdir = '" keysdir "'\n")))
8360 #t)))
ebfe259f
MB		 8361 (add-before 'configure 'convert-logo-to-png
8362 (lambda* (#:key inputs #:allow-other-keys)
8363 ;; Convert the logo from SVG to PNG.
8364 (invoke "inkscape" "--export-png=data/theme/guix-logo.png"
8365 "data/theme/guix-logo.svg")))
ba00235a 8366 (add-before 'configure 'record-absolute-file-names
2472cdec
LC		 8367 (lambda* (#:key inputs #:allow-other-keys)
8368 (substitute* "js/misc/ibusManager.js"
8369 (("'ibus-daemon'")
8370 (string-append "'" (assoc-ref inputs "ibus")
8371 "/bin/ibus-daemon'")))
d6fda4d3
LC		 8372 (substitute* "js/ui/status/keyboard.js"
8373 (("'gkbd-keyboard-display'")
8374 (string-append "'" (assoc-ref inputs "libgnomekbd")
8375 "/bin/gkbd-keyboard-display'")))
2472cdec 8376 #t))
2b0c755d
RW		 8377 (add-before 'check 'pre-check
8378 (lambda* (#:key inputs #:allow-other-keys)
8379 ;; Tests require a running X server.
8380 (system "Xvfb :1 &")
8381 (setenv "DISPLAY" ":1")
8382 #t))
8383 (add-after 'install 'wrap-programs
8384 (lambda* (#:key inputs outputs #:allow-other-keys)
8385 (let ((out (assoc-ref outputs "out"))
8386 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
8387 (python-path (getenv "PYTHONPATH")))
8388 (wrap-program (string-append out "/bin/gnome-shell")
8389 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
8390 ;; FIXME: gnome-shell loads these libraries with unqualified
8391 ;; names only, so they need to be on LD_LIBRARY_PATH. The
8392 ;; alternative might be to patch gnome-shell.
8393 `("LD_LIBRARY_PATH" ":" prefix
8394 ,(map (lambda (pkg)
8395 (string-append (assoc-ref inputs pkg) "/lib"))
cd8dce8a
RW		 8396 '("gdk-pixbuf"
8397 "gnome-bluetooth" "librsvg" "libgweather"))))
2b0c755d
RW		 8398 (for-each
8399 (lambda (prog)
8400 (wrap-program (string-append out "/bin/" prog)
8401 `("PYTHONPATH" ":" prefix (,python-path))
8402 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
8403 '("gnome-shell-extension-tool" "gnome-shell-perf-tool"))
08185081 8404 #t)))
11e1df56
LC		 8405 (replace 'glib-or-gtk-wrap
8406 (let ((wrap (assoc-ref %standard-phases 'glib-or-gtk-wrap)))
8407 (lambda* (#:key inputs outputs #:allow-other-keys #:rest rest)
8408 ;; By default Inkscape et al. would end up in the XDG_DATA_DIRS
8409 ;; settings of the wrappers created by the 'glib-or-gtk-wrap'
8410 ;; phase. Fix that since we don't need these.
8411 (wrap #:inputs (fold alist-delete inputs
8412 '("inkscape" "intltool" "glib:bin"))
8413 #:outputs outputs)))))))
a4df5756 8414 (native-inputs
28457ae6
KK		 8415 `(("asciidoc" ,asciidoc)
8416 ("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
2b0c755d 8417 ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
a4df5756 8418 ("gobject-introspection" ,gobject-introspection)
ebfe259f 8419 ("inkscape" ,inkscape)
a4df5756
SB		 8420 ("intltool" ,intltool)
8421 ("pkg-config" ,pkg-config)
8422 ("python" ,python)
2b0c755d
RW		 8423 ("ruby-sass" ,ruby-sass)
8424 ("sassc" ,sassc)
a76d0f03 8425 ("xsltproc" ,libxslt)
2b0c755d 8426 ;; For tests
0b4504f6 8427 ("xorg-server" ,xorg-server-for-tests)))
a4df5756
SB		 8428 (inputs
8429 `(("accountsservice" ,accountsservice)
8430 ("caribou" ,caribou)
8431 ("docbook-xsl" ,docbook-xsl)
8432 ("evolution-data-server" ,evolution-data-server)
8433 ("gcr" ,gcr)
8434 ("gdm" ,gdm)
c5db31d4 8435 ("gdk-pixbuf" ,gdk-pixbuf+svg)
a4df5756 8436 ("gjs" ,gjs)
28457ae6 8437 ("gnome-autoar" ,gnome-autoar)
a4df5756 8438 ("gnome-bluetooth" ,gnome-bluetooth)
a4df5756
SB		 8439 ("gnome-desktop" ,gnome-desktop)
8440 ("gnome-settings-daemon" ,gnome-settings-daemon)
8441 ("gst-plugins-base" ,gst-plugins-base)
8442 ("ibus" ,ibus)
8443 ("libcanberra" ,libcanberra)
8444 ("libcroco" ,libcroco)
d6fda4d3 8445 ("libgnomekbd" ,libgnomekbd) ;for gkbd-keyboard-display
a4df5756 8446 ("libgweather" ,libgweather)
e24d311f 8447 ("libnma" ,libnma)
a4df5756
SB		 8448 ("libsoup" ,libsoup)
8449 ("mesa-headers" ,mesa-headers)
8450 ("mutter" ,mutter)
8451 ("network-manager-applet" ,network-manager-applet)
8452 ("polkit" ,polkit)
8453 ("pulseaudio" ,pulseaudio)
8454 ("python-pygobject" ,python-pygobject)
8455 ("startup-notification" ,startup-notification)
8456 ("telepathy-logger" ,telepathy-logger)
8457 ("upower" ,upower)
30e760f0
MB		 8458 ;; XXX: These requirements were added in 3.24, but no mention in NEWS.
8459 ;; Missing propagation? See also: <https://bugs.gnu.org/27264>
8460 ("librsvg" ,librsvg)
2b0c755d 8461 ("geoclue" ,geoclue)))
a4df5756
SB		 8462 (synopsis "Desktop shell for GNOME")
8463 (home-page "https://wiki.gnome.org/Projects/GnomeShell")
8464 (description
8465 "GNOME Shell provides core user interface functions for the GNOME desktop,
8466like switching to windows and launching applications.")
8467 (license license:gpl2+)))
c3f29bc9
RS		 8468
8469(define-public gtk-vnc
8470 (package
8471 (name "gtk-vnc")
97787a24 8472 (version "1.0.0")
c3f29bc9
RS		 8473 (source
8474 (origin
8475 (method url-fetch)
97787a24
RG		 8476 (uri
8477 (string-append "mirror://gnome/sources/" name "/"
8478 (version-major+minor version) "/"
8479 name "-" version ".tar.xz"))
c3f29bc9 8480 (sha256
97787a24
RG		 8481 (base32 "1060ws037v556rx1qhfrcg02859rscksrzr8fq11himdg4d1y6m8"))))
8482 (build-system meson-build-system)
c3f29bc9 8483 (arguments
97787a24 8484 `(#:glib-or-gtk? #t)) ; To wrap binaries and/or compile schemas
c3f29bc9 8485 (native-inputs
97787a24
RG		 8486 `(("gjs" ,gjs)
8487 ("glib:bin" ,glib "bin")
c3f29bc9
RS		 8488 ("gobject-introspection" ,gobject-introspection)
8489 ("intltool" ,intltool)
97787a24
RG		 8490 ("node" ,node)
8491 ("perl" ,perl)
c3f29bc9 8492 ("pkg-config" ,pkg-config)
97787a24 8493 ("python" ,python-wrapper)
c3f29bc9 8494 ("vala" ,vala)))
97787a24
RG		 8495 (inputs
8496 `(("cairo" ,cairo)
8497 ("gdk-pixbuf" ,gdk-pixbuf+svg)
8498 ("glib" ,glib)
8499 ("gnutls" ,gnutls)
8500 ("libgcrypt" ,libgcrypt)
8501 ("libsasl" ,cyrus-sasl)
8502 ("pulseaudio" ,pulseaudio)
8503 ("x11" ,libx11)
8504 ("zlib" ,zlib)))
8505 (propagated-inputs
8506 `(("gtk+" ,gtk+)))
8507 (synopsis "VNC client viewer widget for GTK+")
8508 (description "GTK-VNC is a project providing client side APIs for the RFB
8509protocol / VNC remote desktop technology. It is built using coroutines allowing
8510it to be completely asynchronous while remaining single threaded. It provides a
8511core C library, and bindings for Python (PyGTK).")
c3f29bc9 8512 (home-page "https://wiki.gnome.org/Projects/gtk-vnc")
c3f29bc9 8513 (license license:lgpl2.1+)))
8b877545 8514
dc69fe18
MW		 8515(define-public gnome-autoar
8516 (package
8517 (name "gnome-autoar")
17969940 8518 (version "0.2.4")
dc69fe18
MW		 8519 (source (origin
8520 (method url-fetch)
8521 (uri (string-append "mirror://gnome/sources/" name "/"
8522 (version-major+minor version) "/"
8523 name "-" version ".tar.xz"))
8524 (sha256
8525 (base32
17969940 8526 "0yk56ch46n3wfy633mq31kif9n7v06rlij4vqbsbn6l4z1vw6d0a"))))
dc69fe18
MW		 8527 (build-system glib-or-gtk-build-system)
8528 (native-inputs
17969940 8529 `(("gobject-introspection" ,gobject-introspection)
dc69fe18
MW		 8530 ("pkg-config" ,pkg-config)))
8531 (propagated-inputs
17969940 8532 `(("libarchive" ,libarchive))) ; Required by gnome-autoar-0.pc
dc69fe18 8533 (inputs
0a6e9e13 8534 `(("gtk+" ,gtk+)))
dc69fe18
MW		 8535 (synopsis "Archives integration support for GNOME")
8536 (home-page "https://git.gnome.org/browse/gnome-autoar/")
8537 (description
8538 "GNOME Autoar is a library which makes creating and extracting archives
8539easy, safe, and automatic.")
8540 (license license:lgpl2.1+)))
8541
b64e217f
MW		 8542(define-public tracker
8543 (package
8544 (name "tracker")
51780eac 8545 (version "2.3.5")
b64e217f
MW		 8546 (source (origin
8547 (method url-fetch)
b5b0fd23 8548 (uri (string-append "mirror://gnome/sources/tracker/"
b64e217f 8549 (version-major+minor version) "/"
b5b0fd23 8550 "tracker-" version ".tar.xz"))
b64e217f
MW		 8551 (sha256
8552 (base32
51780eac 8553 "1ixxyqjlv7pnl4j8g6b72fkbjvzfspza8y71ppkncry8i6xkr223"))))
5ada561c 8554 (build-system meson-build-system)
c8bdf589 8555 (arguments
5ada561c
KK		 8556 `(#:glib-or-gtk? #t
8557 #:configure-flags
8558 ;; Otherwise, the RUNPATH will lack the final path component.
8559 (list (string-append "-Dc_link_args=-Wl,-rpath="
8560 (assoc-ref %outputs "out") "/lib:"
8561 (assoc-ref %outputs "out") "/lib/tracker-2.0"))
8562 #:phases
c8bdf589 8563 (modify-phases %standard-phases
c8bdf589
RW		 8564 (add-before 'check 'pre-check
8565 (lambda _
63db190a
PN		 8566 ;; Some tests expect to write to $HOME.
8567 (setenv "HOME" "/tmp")
c8bdf589 8568 #t)))))
b64e217f 8569 (native-inputs
5ada561c 8570 `(("glib:bin" ,glib "bin")
b64e217f 8571 ("gobject-introspection" ,gobject-introspection)
5ada561c 8572 ("python-pygobject" ,python-pygobject)
b64e217f
MW		 8573 ("intltool" ,intltool)
8574 ("pkg-config" ,pkg-config)
8575 ("vala" ,vala)))
8576 (inputs
63db190a 8577 `(("dbus" ,dbus)
44ed6284 8578 ("sqlite" ,sqlite)
b64e217f 8579 ("libxml2" ,libxml2)
63db190a 8580 ("icu4c" ,icu4c) ; libunistring gets miner-miner-fs test to fail.
0ef48cd9 8581 ("json-glib" ,json-glib)
63db190a 8582 ("libsoup" ,libsoup)))
b64e217f
MW		 8583 (synopsis "Metadata database, indexer and search tool")
8584 (home-page "https://wiki.gnome.org/Projects/Tracker")
8585 (description
63db190a
PN		 8586 "Tracker is a search engine and triplestore for desktop, embedded and mobile.
8587
8588It is a middleware component aimed at desktop application developers who want
8589their apps to browse and search user content. It's not designed to be used
8590directly by desktop users, but it provides a commandline tool named
8591@command{tracker} for the adventurous.
8592
8593Tracker allows your application to instantly perform full-text searches across
8594all documents. This feature is used by the @{emph{search} bar in GNOME Files, for
8595example. This is achieved by indexing the user's home directory in the
8596background.
8597
8598Tracker also allows your application to query and list content that the user
8599has stored. For example, GNOME Music displays all the music files that are
8600found by Tracker. This means that GNOME Music doesn't need to maintain a
8601database of its own.
8602
8603If you need to go beyond simple searches, Tracker is also a linked data
8604endpoint and it understands SPARQL. ")
8605 ;; https://gitlab.gnome.org/GNOME/tracker/-/blob/master/COPYING:
b64e217f 8606 ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
63db190a 8607 ;; libstemmer is bsd-3 and the rest is gpl2+.
b64e217f 8608 (license (list license:gpl2+
63db190a
PN		 8609 license:bsd-3
8610 license:lgpl2.1+))))
b64e217f 8611
03be9874
KK		 8612(define-public tracker-miners
8613 (package
8614 (name "tracker-miners")
afa3994c 8615 (version "2.3.4")
03be9874
KK		 8616 (source (origin
8617 (method url-fetch)
8618 (uri (string-append "mirror://gnome/sources/tracker-miners/"
8619 (version-major+minor version)
8620 "/tracker-miners-" version ".tar.xz"))
8621 (sha256
8622 (base32
afa3994c 8623 "10wy8d8ski52k809p7s6lbw72qmg05bbmhnl00vx4qrbzqyxvc0b"))))
03be9874
KK		 8624 (build-system meson-build-system)
8625 (arguments
8626 `(#:glib-or-gtk? #t
8627 #:configure-flags
8628 (list "-Dminer_rss=false" ; libgrss is required.
8629 ;; Ensure the RUNPATH contains all installed library locations.
8630 (string-append "-Dc_link_args=-Wl,-rpath="
8631 (assoc-ref %outputs "out")
8632 "/lib/tracker-miners-2.0")
8633 ;; TODO: Enable functional tests. Currently, the following error
8634 ;; appears:
8635 ;; Exception: The functional tests require DConf to be the default
8636 ;; GSettings backend. Got GKeyfileSettingsBackend instead.
8637 "-Dfunctional_tests=false")))
8638 (native-inputs
8639 `(("dbus" ,dbus)
8640 ("intltool" ,intltool)
8641 ("glib:bin" ,glib "bin")
8642 ("gobject-introspection" ,gobject-introspection)
8643 ("pkg-config" ,pkg-config)
8644 ("python-pygobject" ,python-pygobject)))
8645 (inputs
8646 `(("exempi" ,exempi)
8647 ("ffmpeg" ,ffmpeg)
8648 ("flac" ,flac)
8649 ("giflib" ,giflib)
8650 ("glib" ,glib)
8651 ("gstreamer" ,gstreamer)
8652 ("icu4c" ,icu4c)
8653 ("libcue" ,libcue)
8654 ("libexif" ,libexif)
8655 ("libgsf" ,libgsf)
8656 ("libgxps" ,libgxps)
8657 ("libiptcdata" ,libiptcdata)
4bd428a7 8658 ("libjpeg" ,libjpeg-turbo)
03be9874
KK		 8659 ("libosinfo" ,libosinfo)
8660 ("libpng" ,libpng)
8661 ("libseccomp" ,libseccomp)
8662 ("libtiff" ,libtiff)
8663 ("libvorbis" ,libvorbis)
8664 ("libxml2" ,libxml2)
8665 ("poppler" ,poppler)
8666 ("taglib" ,taglib)
8667 ("totem-pl-parser" ,totem-pl-parser)
8668 ("tracker" ,tracker)
8669 ("upower" ,upower)
8670 ("zlib" ,zlib)))
b64e217f
MW		 8671 (synopsis "Metadata database, indexer and search tool")
8672 (home-page "https://wiki.gnome.org/Projects/Tracker")
8673 (description
8674 "Tracker is an advanced framework for first class objects with associated
8675metadata and tags. It provides a one stop solution for all metadata, tags,
8676shared object databases, search tools and indexing.")
8677 ;; src/libtracker-*/* and src/tracker-extract/* are covered by lgpl2.1+,
8678 ;; src/gvdb/* are covered by lgpl2.0+, and the rest is gpl2+.
8679 (license (list license:gpl2+
8680 license:lgpl2.1+
8681 license:lgpl2.0+))))
8682
8b877545
RS		 8683(define-public nautilus
8684 (package
8685 (name "nautilus")
8069ff0b 8686 (version "3.34.2")
8b877545
RS		 8687 (source (origin
8688 (method url-fetch)
8689 (uri (string-append "mirror://gnome/sources/" name "/"
8690 (version-major+minor version) "/"
8691 name "-" version ".tar.xz"))
8692 (sha256
8693 (base32
8069ff0b 8694 "19zqwq4qyyncc5wq3xls0f7rsavnw741k336p2h7kx35p4kf41mv"))))
35e2d0cf 8695 (build-system meson-build-system)
8b877545 8696 (arguments
35e2d0cf 8697 '(#:glib-or-gtk? #t
8069ff0b
KK		 8698 #:phases
8699 (modify-phases %standard-phases
8700 (add-after 'unpack 'skip-gtk-update-icon-cache
8701 ;; Don't create 'icon-theme.cache'.
8702 (lambda _
8703 (substitute* "build-aux/meson/postinstall.py"
8704 (("gtk-update-icon-cache") "true"))
8705 #t)))
8b877545
RS		 8706 ;; XXX: FAIL: check-nautilus
8707 ;; Settings schema 'org.gnome.nautilus.preferences' is not installed
8708 #:tests? #f))
8709 (native-inputs
35e2d0cf
R		 8710 `(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8711 ("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
8b877545
RS		 8712 ("gobject-introspection" ,gobject-introspection)
8713 ("intltool" ,intltool)
8714 ("pkg-config" ,pkg-config)))
8b877545 8715 (inputs
8b877545 8716 `(("dconf" ,dconf)
caf6c363 8717 ("gexiv2" ,gexiv2)
dd05e731 8718 ("gvfs" ,gvfs)
8b877545
RS		 8719 ("exempi" ,exempi)
8720 ("gnome-desktop" ,gnome-desktop)
09d88905 8721 ("gnome-autoar" ,gnome-autoar)
3cafb9d4 8722 ("gst-plugins-base" ,gst-plugins-base)
ec66ebd4 8723 ("libseccomp" ,libseccomp)
35e2d0cf 8724 ("libselinux" ,libselinux)
09d88905 8725 ("tracker" ,tracker)
3cafb9d4 8726 ("tracker-miners" ,tracker-miners)
ce6027bf
SB		 8727 ;; XXX: gtk+ is required by libnautilus-extension.pc
8728 ;;
8729 ;; Don't propagate it to reduces "profile pollution" of the 'gnome' meta
8730 ;; package. See:
8731 ;; <http://lists.gnu.org/archive/html/guix-devel/2016-03/msg00283.html>.
8732 ("gtk+" ,gtk+)
8b877545
RS		 8733 ("libexif" ,libexif)
8734 ("libxml2" ,libxml2)))
8735 (synopsis "File manager for GNOME")
8736 (home-page "https://wiki.gnome.org/Apps/Nautilus")
8737 (description
8738 "Nautilus (Files) is a file manager designed to fit the GNOME desktop
8739design and behaviour, giving the user a simple way to navigate and manage its
8740files.")
8741 (license license:gpl2+)))
3c697ffd
JR		 8742
8743(define-public baobab
8744 (package
8745 (name "baobab")
e0c5f20c 8746 (version "3.32.0")
3c697ffd
JR		 8747 (source (origin
8748 (method url-fetch)
8749 (uri (string-append
8750 "mirror://gnome/sources/" name "/"
8751 (version-major+minor version) "/"
8752 name "-" version ".tar.xz"))
8753 (sha256
8754 (base32
e0c5f20c 8755 "0b33s9bhpiffv5wl76cq2bbnqhvx3qs2vxyxmil5gcs583llqh9r"))))
d233d373
RJ		 8756 (build-system meson-build-system)
8757 (arguments
8758 '(#:glib-or-gtk? #t))
3c697ffd
JR		 8759 (native-inputs
8760 `(("intltool" ,intltool)
8761 ("pkg-config" ,pkg-config)
d233d373
RJ		 8762 ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
8763 ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
3c697ffd
JR		 8764 ("itstool" ,itstool)
8765 ("xmllint" ,libxml2)
8766 ("glib" ,glib "bin")
8767 ("vala" ,vala)))
8768 (inputs
8769 `(("gtk+" ,gtk+)))
8770 (synopsis "Disk usage analyzer for GNOME")
8771 (description
8772 "Baobab (Disk Usage Analyzer) is a graphical application to analyse disk
8773usage in the GNOME desktop environment. It can easily scan device volumes or
8774a specific user-requested directory branch (local or remote). Once the scan
8775is complete it provides a graphical representation of each selected folder.")
8776 (home-page "https://wiki.gnome.org/Apps/Baobab")
8777 (license license:gpl2+)))
dc050251 8778
fdba447c
RS		 8779(define-public gnome-backgrounds
8780 (package
8781 (name "gnome-backgrounds")
0856b0d9 8782 (version "3.34.0")
fdba447c
RS		 8783 (source
8784 (origin
8785 (method url-fetch)
8786 (uri (string-append "mirror://gnome/sources/" name "/"
8787 (version-major+minor version) "/"
8788 name "-" version ".tar.xz"))
8789 (sha256
8790 (base32
0856b0d9 8791 "0zxlwy55fz7i582hch2wnj8zy1kzikssgaix0l2y41ccp5nzpdy2"))))
9ca381f0 8792 (build-system meson-build-system)
fdba447c
RS		 8793 (native-inputs
8794 `(("intltool" ,intltool)))
e04e8a8c 8795 (home-page "https://gitlab.gnome.org/GNOME/gnome-backgrounds")
fdba447c
RS		 8796 (synopsis "Background images for the GNOME desktop")
8797 (description
8798 "GNOME backgrounds package contains a collection of graphics files which
8799can be used as backgrounds in the GNOME Desktop environment. Additionally,
8800the package creates the proper framework and directory structure so that you
8801can add your own files to the collection.")
8802 (license (list license:gpl2+
8803 license:cc-by2.0
8804 license:cc-by-sa2.0
8805 license:cc-by-sa3.0))))
8806
b784b1a9
RS		 8807(define-public gnome-screenshot
8808 (package
8809 (name "gnome-screenshot")
d5101dab 8810 (version "3.34.0")
b784b1a9
RS		 8811 (source
8812 (origin
8813 (method url-fetch)
8814 (uri (string-append "mirror://gnome/sources/" name "/"
8815 (version-major+minor version) "/"
8816 name "-" version ".tar.xz"))
8817 (sha256
8818 (base32
d5101dab 8819 "1rmiq890j7gfn5mcz31xy6jfnnxgc17dq67bhn2k9m5ylbvza2n8"))))
8356aefa 8820 (build-system meson-build-system)
d5101dab
KK		 8821 (arguments
8822 '(#:phases
8823 (modify-phases %standard-phases
8824 (add-after 'unpack 'skip-gtk-update-icon-cache
8825 ;; Don't create 'icon-theme.cache'.
8826 (lambda _
8827 (substitute* "build-aux/postinstall.py"
8828 (("gtk-update-icon-cache") "true"))
8829 #t)))))
b784b1a9
RS		 8830 (native-inputs
8831 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
8356aefa 8832 ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
b784b1a9 8833 ("intltool" ,intltool)
8356aefa 8834 ("appstream-glib" ,appstream-glib)
b784b1a9
RS		 8835 ("pkg-config" ,pkg-config)))
8836 (inputs
8837 `(("gtk+" ,gtk+)
8838 ("libcanberra" ,libcanberra)
8839 ("libx11" ,libx11)
8840 ("libxext" ,libxext)))
676e7cb4 8841 (home-page "https://gitlab.gnome.org/GNOME/gnome-screenshot")
b784b1a9
RS		 8842 (synopsis "Take pictures of your screen")
8843 (description
8844 "GNOME Screenshot is a utility used for taking screenshots of the entire
8845screen, a window or a user defined area of the screen, with optional
8846beautifying border effects.")
8847 (license license:gpl2+)))
8848
66d59111
RS		 8849(define-public dconf-editor
8850 (package
8851 (name "dconf-editor")
720aa20f 8852 (version "3.34.2")
66d59111
RS		 8853 (source
8854 (origin
8855 (method url-fetch)
8856 (uri (string-append "mirror://gnome/sources/" name "/"
8857 (version-major+minor version) "/"
8858 name "-" version ".tar.xz"))
8859 (sha256
8860 (base32
720aa20f 8861 "0pwxjada2vaf69ihpjgp9nky54iykvxq63lp1vl8pxjanif2mk6f"))))
294ff39d 8862 (build-system meson-build-system)
66d59111
RS		 8863 (native-inputs
8864 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
294ff39d 8865 ("gtk+-bin" ,gtk+ "bin") ; for gtk-update-icon-cache
66d59111 8866 ("intltool" ,intltool)
294ff39d
RW		 8867 ("pkg-config" ,pkg-config)
8868 ("vala" ,vala)))
66d59111
RS		 8869 (inputs
8870 `(("dconf" ,dconf)
8871 ("gtk+" ,gtk+)
8872 ("libxml2" ,libxml2)))
720aa20f 8873 (home-page "https://gitlab.gnome.org/GNOME/dconf-editor")
66d59111
RS		 8874 (synopsis "Graphical editor for GNOME's dconf configuration system")
8875 (description
8876 "Dconf-editor is a graphical tool for browsing and editing the dconf
8877configuration system for GNOME. It allows users to configure desktop
8878software that do not provide their own configuration interface.")
8879 (license license:lgpl2.1+)))
8880
96d36f38
AW		 8881(define-public gnome-default-applications
8882 (package
8883 (name "gnome-default-applications")
8884 (version "0")
8885 (build-system trivial-build-system)
8886 (source #f)
8887 (propagated-inputs
8ad4f0aa
LC		 8888 `(("nautilus" ,nautilus)
8889 ("evince" ,evince)))
96d36f38
AW		 8890 (arguments
8891 `(#:modules ((guix build utils))
8892 #:builder
8893 (begin
8894 (use-modules (guix build utils))
8895 (let* ((out (assoc-ref %outputs "out"))
8896 (apps (string-append out "/share/applications")))
8897 (mkdir-p apps)
a6ac679f 8898 (call-with-output-file (string-append apps "/gnome-mimeapps.list")
96d36f38
AW		 8899 (lambda (port)
8900 (format port "[Default Applications]\n")
8ad4f0aa
LC		 8901 (format port "inode/directory=org.gnome.Nautilus.desktop\n")
8902 (format port "application/pdf=evince.desktop\n")
8903 (format port "application/postscript=evince.desktop\n")))
96d36f38
AW		 8904 #t))))
8905 (synopsis "Default MIME type associations for the GNOME desktop")
8906 (description
8907 "Given many installed packages which might handle a given MIME type, a
8908user running the GNOME desktop probably has some preferences: for example,
8909that folders be opened by default by the Nautilus file manager, not the Baobab
8910disk usage analyzer. This package establishes that set of default MIME type
8911associations for GNOME.")
8912 (license license:gpl3+)
8913 (home-page #f)))
8914
3f1ed953
RG		 8915(define-public libgovirt
8916 (package
8917 (name "libgovirt")
8918 (version "0.3.6")
8919 (source (origin
8920 (method url-fetch)
8921 (uri (string-append "mirror://gnome/sources/" name "/"
8922 (version-major+minor version) "/"
8923 name "-" version ".tar.xz"))
8924 (sha256
8925 (base32
8926 "19pb71pag3vsi83kbv8h08kimwym4hpw36kjl6a5ik5nk50mc8sg"))))
8927 (build-system glib-or-gtk-build-system)
8928 (native-inputs
8929 `(("gettext" ,gettext-minimal)
8930 ("glib:bin" ,glib "bin")
8931 ("gobject-introspection" ,gobject-introspection)
8932 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8933 ("gtk+:bin" ,gtk+ "bin")
8934 ("pkg-config" ,pkg-config)))
8935 (inputs
8936 `(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
8937 ("librest" ,rest)))
8938 (synopsis "GoVirt Library")
8939 (description "GoVirt is a GObject wrapper for the oVirt REST API.")
8940 (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
8941 (license license:gpl2+)))
8942
8672e5e9
RG		 8943(define-public gnome-weather
8944 (package
8945 (name "gnome-weather")
8946 (version "3.34.0")
8947 (source (origin
8948 (method url-fetch)
8949 (uri (string-append "mirror://gnome/sources/" name "/"
8950 (version-major+minor version) "/"
8951 name "-" version ".tar.xz"))
8952 (sha256
8953 (base32
8954 "1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
8955 (build-system meson-build-system)
8956 (native-inputs
8957 `(("gettext" ,gettext-minimal)
8958 ("glib:bin" ,glib "bin")
8959 ("gobject-introspection" ,gobject-introspection)
8960 ("gtk+:bin" ,gtk+ "bin")
8961 ("pkg-config" ,pkg-config)))
8962 (inputs
8963 `( ;("adwaita-icon-theme" ,adwaita-icon-theme)
8964 ("appstream-glib" ,appstream-glib)
8965 ("geoclue" ,geoclue)
8966 ("gdk-pixbuf" ,gdk-pixbuf)
8967 ("gjs" ,gjs)
8968 ("gnome-desktop" ,gnome-desktop)
8969 ("libgweather" ,libgweather)))
4391fefc 8970 (arguments
2b68ba72
MB		 8971 `(#:glib-or-gtk? #t
8972 #:phases
4391fefc
PN		 8973 (modify-phases %standard-phases
8974 (add-after 'install 'fix-desktop-file
8975 ;; FIXME: "gapplication launch org.gnome.Weather" fails for some reason.
8976 ;; See https://issues.guix.gnu.org/issue/39324.
8977 (lambda* (#:key outputs #:allow-other-keys)
8978 (let* ((out (assoc-ref outputs "out"))
8979 (applications (string-append out "/share/applications")))
8980 (substitute* (string-append applications "/org.gnome.Weather.desktop")
2b68ba72
MB		 8981 (("Exec=.*") "Exec=gnome-weather\n"))
8982 #t)))
8983 (add-after 'install 'wrap
8984 (lambda* (#:key inputs outputs #:allow-other-keys)
8985 (let ((out (assoc-ref outputs "out"))
8986 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
8987 ;; GNOME Weather needs the typelib files of GTK+, Pango etc at runtime.
8988 (wrap-program (string-append out "/bin/gnome-weather")
8989 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
8990 #t))))))
8672e5e9
RG		 8991 (synopsis "Weather monitoring for GNOME desktop")
8992 (description "GNOME Weather is a small application that allows you to
8993monitor the current weather conditions for your city, or anywhere in the
8994world.")
8995 (home-page "https://wiki.gnome.org/Apps/Weather")
8996 (license license:gpl2+)))
8997
dc050251
SB		 8998(define-public gnome
8999 (package
9000 (name "gnome")
9001 (version (package-version gnome-shell))
9002 (source #f)
9003 (build-system trivial-build-system)
e3cfef22 9004 (arguments '(#:builder (begin (mkdir %output) #t)))
dc050251 9005 (propagated-inputs
8d8c6bff 9006 ;; TODO: Add or remove packages according to:
a8cda7f5 9007 ;; <https://calc.disroot.org/2nu6mpf88ynq.html>.
7922b6f7 9008 `(
8d8c6bff 9009 ;; GNOME-Core-OS-Services
7922b6f7 9010 ("accountsservice" ,accountsservice)
8d8c6bff
RG		 9011 ("network-manager" ,network-manager)
9012 ("packagekit" ,packagekit)
9013 ("upower" ,upower)
9014 ;; GNOME-Core-Shell
9015 ("adwaita-icon-theme" ,adwaita-icon-theme)
9016 ("gdm" ,gdm)
9017 ("glib-networking" ,glib-networking)
9018 ("gnome-backgrounds" ,gnome-backgrounds)
9019 ("gnome-bluetooth" ,gnome-bluetooth)
d36fa50f 9020 ("gnome-color-manager" ,gnome-color-manager)
8d8c6bff
RG		 9021 ("gnome-control-center" ,gnome-control-center)
9022 ("gnome-desktop" ,gnome-desktop)
7922b6f7 9023 ("gnome-getting-started-docs" ,gnome-getting-started-docs)
d36fa50f 9024 ("gnome-initial-setup" ,gnome-initial-setup)
8d8c6bff 9025 ("gnome-keyring" ,gnome-keyring)
7922b6f7 9026 ("gnome-menus" ,gnome-menus)
8d8c6bff
RG		 9027 ("gnome-session" ,gnome-session)
9028 ("gnome-settings-daemon" ,gnome-settings-daemon)
9029 ("gnome-shell-extensions" ,gnome-shell-extensions)
9030 ("gnome-shell" ,gnome-shell)
9031 ("gnome-themes-extra" ,gnome-themes-extra)
7922b6f7 9032 ("gnome-user-docs" ,gnome-user-docs)
d36fa50f 9033 ("gnome-user-share" ,gnome-user-share)
a8cda7f5 9034 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
8d8c6bff
RG		 9035 ("gvfs" ,gvfs)
9036 ("mutter" ,mutter)
9037 ("orca" ,orca)
d36fa50f
RG		 9038 ("rygel" ,rygel)
9039 ("sushi" ,sushi)
8d8c6bff
RG		 9040 ;; GNOME-Core-Utilities
9041 ("baobab" ,baobab)
9042 ("cheese" ,cheese)
ce784e6c
MB		 9043 ;; XXX: EoG requires librsvg-next, which depends on Rust, which currently
9044 ;; only works on x86_64, so exclude it on other architectures.
9045 ,@(if (string-prefix? "x86_64" (%current-system))
9046 `(("eog" ,eog))
9047 '())
8d8c6bff
RG		 9048 ("epiphany" ,epiphany)
9049 ("evince" ,evince)
9050 ("file-roller" ,file-roller)
9051 ("gedit" ,gedit)
897897bd 9052 ("gnome-boxes" ,gnome-boxes)
8d8c6bff
RG		 9053 ("gnome-calculator" ,gnome-calculator)
9054 ("gnome-calendar" ,gnome-calendar)
9055 ("gnome-characters" ,gnome-characters)
9056 ("gnome-clocks" ,gnome-clocks)
9057 ("gnome-contacts" ,gnome-contacts)
9058 ("gnome-disk-utility" ,gnome-disk-utility)
9059 ("gnome-font-viewer" ,gnome-font-viewer)
9060 ("gnome-maps" ,gnome-maps)
d36fa50f
RG		 9061 ; TODO: ("gnome-music" ,gnome-music)
9062 ; TODO: ("gnome-photos" ,gnome-photos)
8d8c6bff
RG		 9063 ("gnome-screenshot" ,gnome-screenshot)
9064 ("gnome-system-monitor" ,gnome-system-monitor)
9065 ("gnome-terminal" ,gnome-terminal)
d36fa50f 9066 ("gnome-weather" ,gnome-weather)
8d8c6bff
RG		 9067 ("nautilus" ,nautilus)
9068 ("simple-scan" ,simple-scan)
9069 ("totem" ,totem)
7922b6f7
RG		 9070 ("yelp" ,yelp)
9071 ;; Others
9072 ("hicolor-icon-theme" ,hicolor-icon-theme)
9f2fef4f
LC		 9073 ("gnome-online-accounts" ,gnome-online-accounts)
9074
9075 ;; Packages not part of GNOME proper but that are needed for a good
9076 ;; experience. See <https://bugs.gnu.org/39646>.
9077 ;; XXX: Find out exactly which ones are needed and why.
9078 ("font-cantarell" ,font-cantarell)
9079 ("font-dejavu" ,font-dejavu)
9080 ("at-spi2-core" ,at-spi2-core)
9081 ("dbus" ,dbus)
9082 ("dconf" ,dconf)
9083 ("desktop-file-utils" ,desktop-file-utils)
9084 ("gnome-default-applications" ,gnome-default-applications)
9085 ("gnome-themes-standard" ,gnome-themes-standard)
9086 ("gst-plugins-base" ,gst-plugins-base)
9087 ("gst-plugins-good" ,gst-plugins-good)
9088 ("gucharmap" ,gucharmap)
9089 ("pinentry-gnome3" ,pinentry-gnome3)
9090 ("pulseaudio" ,pulseaudio)
9091 ("shared-mime-info" ,shared-mime-info)
9092 ("system-config-printer" ,system-config-printer)
9093 ("xdg-user-dirs" ,xdg-user-dirs)
9094 ("yelp" ,yelp)
9095 ("zenity" ,zenity)))
fe4e698d 9096 (synopsis "The GNU desktop environment")
dc050251
SB		 9097 (home-page "https://www.gnome.org/")
9098 (description
fe4e698d
LC		 9099 "GNOME is the graphical desktop for GNU. It includes a wide variety of
9100applications for browsing the web, editing text and images, creating
9101documents and diagrams, playing media, scanning, and much more.")
dc050251 9102 (license license:gpl2+)))
4a526711
DT		 9103
9104(define-public byzanz
9105 ;; The last stable release of Byzanz was in 2011, but there have been many
9106 ;; useful commits made to the Byzanz repository since then that it would be
9107 ;; silly to use such an old release.
9108 (let ((commit "f7af3a5bd252db84af8365bd059c117a7aa5c4af"))
9109 (package
9110 (name "byzanz")
9111 (version (string-append "0.2-1." (string-take commit 7)))
9112 (source (origin
9113 (method git-fetch)
9114 (uri (git-reference
5f13bf09 9115 (url "https://git.gnome.org/browse/byzanz")
4a526711 9116 (commit commit)))
5a6527e4 9117 (file-name (string-append name "-" version "-checkout"))
4a526711
DT		 9118 (sha256
9119 (base32
9120 "1l60myzxf9cav27v5v3nsijlslz9r7ip6d5kiirfpkf9k0w26hz3"))))
9121 (build-system glib-or-gtk-build-system)
9122 (arguments
9123 '(#:phases
9124 (modify-phases %standard-phases
778d6b52 9125 (add-before 'bootstrap 'build-without-Werror
4a526711
DT		 9126 (lambda _
9127 ;; The build system cleverly detects that we're not building from
9128 ;; a release tarball and turns on -Werror for GCC.
9129 ;; Unsurprisingly, there is a warning during compilation that
9130 ;; causes the build to fail unnecessarily, so we remove the flag.
9131 (substitute* '("configure.ac")
9132 (("-Werror") ""))
778d6b52 9133 #t)))))
4a526711
DT		 9134 (native-inputs
9135 `(("autoconf" ,autoconf)
9136 ("automake" ,automake)
9137 ("gnome-common" ,gnome-common)
9138 ("intltool" ,intltool)
9139 ("libtool" ,libtool)
9140 ("pkg-config" ,pkg-config)
9141 ("which" ,which)))
9142 (inputs
9143 `(("glib" ,glib)
9144 ("gstreamer" ,gstreamer)
9145 ("gst-plugins-base" ,gst-plugins-base)
9146 ("gtk+" ,gtk+)))
9147 (synopsis "Desktop recording program")
9148 (description "Byzanz is a simple desktop recording program with a
9149command-line interface. It can record part or all of an X display for a
9150specified duration and save it as a GIF encoded animated image file.")
9151 (home-page "https://git.gnome.org/browse/byzanz")
9152 (license license:gpl2+))))
3a9a4c51 9153
094e234d
VM		 9154(define-public authenticator
9155 (package
9156 (name "authenticator")
9157 (version "3.32.2")
9158 (source
9159 (origin
9160 (method git-fetch)
9161 (uri (git-reference
9162 (url "https://gitlab.gnome.org/World/Authenticator")
9163 (commit version)))
9164 (file-name (git-file-name name version))
9165 (sha256
9166 (base32 "1c4r9rnrz5gazrfg0z2rcwax4nscs7z391bcjcl74k6ln3blwzpr"))))
9167 (build-system meson-build-system)
9168 (arguments
9169 `(#:glib-or-gtk? #t
9170 #:phases
9171 (modify-phases %standard-phases
9172 (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
9173 (lambda* (#:key inputs outputs #:allow-other-keys)
9174 (let ((prog (string-append (assoc-ref outputs "out")
9175 "/bin/authenticator"))
9176 (pylib (string-append (assoc-ref outputs "out")
9177 "/lib/python"
9178 ,(version-major+minor
9179 (package-version python))
9180 "/site-packages")))
9181 (wrap-program prog
9182 `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
9183 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
9184 #t))))))
9185 (native-inputs
9186 `(("desktop-file-utils" ,desktop-file-utils)
9187 ("gettext" ,gettext-minimal)
9188 ("glib:bin" ,glib "bin")
9189 ("gobject-introspection" ,gobject-introspection)
9190 ("gtk+:bin" ,gtk+ "bin")
9191 ("pkg-config" ,pkg-config)))
9192 (inputs
9193 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9194 ("gtk+" ,gtk+)
9195 ("libhandy" ,libhandy-0.0)
9196 ("libsecret" ,libsecret)
9197 ("python-beautifulsoup4" ,python-beautifulsoup4)
9198 ("python-pillow" ,python-pillow)
9199 ("python-pyfavicon" ,python-pyfavicon)
9200 ("python-pygobject" ,python-pygobject)
9201 ("python-pyotp" ,python-pyotp)
9202 ("python-pyzbar" ,python-pyzbar)
9203 ("yoyo-migrations" ,yoyo-migrations)
9204 ("zbar" ,zbar)))
9205 (home-page "https://gitlab.gnome.org/World/Authenticator/")
9206 (synopsis "Two-factor authentication application built for GNOME")
9207 (description
9208 "Authenticator is a two-factor authentication (2FA) application built for
9209the GNOME desktop environment.
9210
9211Features:
9212
9213@itemize
9214@item QR code scanner
9215@item Beautiful UI
9216@item Huge database of more than 560 supported services
9217@item Keep your PIN tokens secure by locking the application with a password
9218@item Automatically fetch an image for services using their favicon
9219@item The possibility to add new services
9220@end itemize")
9221 (license license:gpl3+)))
9222
0ec171ec
MS		 9223(define-public gsound
9224 (package
9225 (name "gsound")
9226 (version "1.0.2")
9227 (source (origin
9228 (method url-fetch)
9229 (uri (string-append "mirror://gnome/sources/" name "/"
9230 (version-major+minor version) "/"
9231 name "-" version ".tar.xz"))
9232 (sha256
9233 (base32
9234 "0lwfwx2c99qrp08pfaj59pks5dphsnxjgrxyadz065d8xqqgza5v"))))
9235 (build-system glib-or-gtk-build-system)
9236 (native-inputs
9237 `(("pkg-config" ,pkg-config)
9238 ("gobject-introspection" ,gobject-introspection)
9239 ("vala" ,vala)))
9240 (inputs
9241 `(("glib" ,glib)
9242 ("libcanberra" ,libcanberra)))
9243 (home-page "https://wiki.gnome.org/Projects/GSound")
9244 (synopsis "GObject wrapper for libcanberra")
9245 (description
9246 "GSound is a small library for playing system sounds. It's designed to be
9247used via GObject Introspection, and is a thin wrapper around the libcanberra C
9248library.")
9249 (license license:lgpl2.1+)))
9250
3a9a4c51
RS		 9251(define-public libzapojit
9252 (package
9253 (name "libzapojit")
9254 (version "0.0.3")
9255 (source (origin
9256 (method url-fetch)
9257 (uri (string-append "mirror://gnome/sources/" name "/"
9258 (version-major+minor version) "/"
9259 name "-" version ".tar.xz"))
9260 (sha256
9261 (base32
9262 "0zn3s7ryjc3k1abj4k55dr2na844l451nrg9s6cvnnhh569zj99x"))))
9263 (build-system gnu-build-system)
9264 (native-inputs
9265 `(("gobject-introspection" ,gobject-introspection)
9266 ("intltool" ,intltool)
9267 ("pkg-config" ,pkg-config)))
9268 (inputs
14c297fd 9269 `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
3a9a4c51
RS		 9270 ("json-glib" ,json-glib)
9271 ("rest" ,rest)))
9272 (home-page "https://wiki.gnome.org/Projects/Zapojit")
9273 (synopsis "Library for accessing SkyDrive and Hotmail")
9274 (description
9275 "Libzapojit is a GLib-based library for accessing online service APIs of
9276Microsoft SkyDrive and Hotmail, using their REST protocols.")
9277 (license license:lgpl2.1+)))
9365ee1c 9278
60e2a9ae
MS		 9279(define-public gnome-clocks
9280 (package
9281 (name "gnome-clocks")
feee5ff5 9282 (version "3.34.0")
60e2a9ae
MS		 9283 (source (origin
9284 (method url-fetch)
9285 (uri (string-append "mirror://gnome/sources/" name "/"
9286 (version-major+minor version) "/"
9287 name "-" version ".tar.xz"))
9288 (sha256
9289 (base32
feee5ff5 9290 "0g7hjk55smhkd09hwa9kag3h5a12l494wj89w9smpdk3ghsmy6b1"))))
60e2a9ae
MS		 9291 (build-system meson-build-system)
9292 (arguments
feee5ff5
KK		 9293 '(#:glib-or-gtk? #t
9294 #:phases
9295 (modify-phases %standard-phases
9296 (add-after 'unpack 'skip-gtk-update-icon-cache
9297 ;; Don't create 'icon-theme.cache'.
9298 (lambda _
9299 (substitute* "build-aux/post-install.py"
9300 (("gtk-update-icon-cache") "true"))
9301 #t)))))
60e2a9ae
MS		 9302 (native-inputs
9303 `(("vala" ,vala)
9304 ("pkg-config" ,pkg-config)
9305 ("glib" ,glib "bin") ; for glib-compile-resources
60e2a9ae
MS		 9306 ("desktop-file-utils" ,desktop-file-utils)
9307 ("gettext" ,gettext-minimal)
9308 ("itstool" ,itstool)))
9309 (inputs
9310 `(("glib" ,glib)
9311 ("gtk+" ,gtk+)
9312 ("gsound" ,gsound)
9313 ("geoclue" ,geoclue)
9314 ("geocode-glib" ,geocode-glib)
9315 ("libgweather" ,libgweather)
9316 ("gnome-desktop" ,gnome-desktop)))
9317 (home-page "https://wiki.gnome.org/Apps/Clocks")
9318 (synopsis "GNOME's clock application")
9319 (description
9320 "GNOME Clocks is a simple clocks application designed to fit the GNOME
9321desktop. It supports world clock, stop watch, alarms, and count down timer.")
9322 (license license:gpl3+)))
9323
3c474897
KY		 9324(define-public gnome-calendar
9325 (package
9326 (name "gnome-calendar")
27dd1d76 9327 (version "3.34.2")
3c474897
KY		 9328 (source (origin
9329 (method url-fetch)
9330 (uri (string-append "mirror://gnome/sources/" name "/"
9331 (version-major+minor version) "/"
9332 name "-" version ".tar.xz"))
9333 (sha256
9334 (base32
27dd1d76 9335 "1bnmd191044zn2kr6f5vg7sm5q59qf7z652awll1f7s6ahijr8rw"))))
a49d3e37
MS		 9336 (build-system meson-build-system)
9337 (arguments
9338 '(#:glib-or-gtk? #t
9339 ;; gnome-calendar has to be installed before the tests can be run
9340 ;; https://bugzilla.gnome.org/show_bug.cgi?id=788224
27dd1d76
KK		 9341 #:tests? #f
9342 #:phases
9343 (modify-phases %standard-phases
9344 (add-after 'unpack 'skip-gtk-update-icon-cache
9345 ;; Don't create 'icon-theme.cache'.
9346 (lambda _
9347 (substitute* "build-aux/meson/meson_post_install.py"
9348 (("gtk-update-icon-cache") "true"))
9349 #t)))))
3c474897 9350 (native-inputs
a49d3e37
MS		 9351 `(("gettext" ,gettext-minimal)
9352 ("glib-bin" ,glib "bin") ; For glib-compile-schemas
3c474897
KY		 9353 ("pkg-config" ,pkg-config)))
9354 (inputs
27cb52a2 9355 `(("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
a286b5eb
RW		 9356 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9357 ("libdazzle" ,libdazzle)
b63c06f1 9358 ("libedataserverui" ,evolution-data-server)
a286b5eb
RW		 9359 ("libgweather" ,libgweather)
9360 ("geoclue" ,geoclue)))
27cb52a2
RG		 9361 (propagated-inputs
9362 `(("evolution-data-server" ,evolution-data-server)))
3c474897
KY		 9363 (home-page "https://wiki.gnome.org/Apps/Calendar")
9364 (synopsis "GNOME's calendar application")
9365 (description
9366 "GNOME Calendar is a simple calendar application designed to fit the GNOME
a49d3e37 9367desktop. It supports multiple calendars, month, week and year view.")
3c474897
KY		 9368 (license license:gpl3+)))
9369
57b14665
MS		 9370(define-public gnome-todo
9371 (package
9372 (name "gnome-todo")
9f3c6c88 9373 (version "3.28.1")
57b14665
MS		 9374 (source (origin
9375 (method url-fetch)
9376 (uri (string-append "mirror://gnome/sources/" name "/"
9377 (version-major+minor version) "/"
9378 name "-" version ".tar.xz"))
9379 (sha256
9380 (base32
b17b2945
DM		 9381 "08ygqbib72jlf9y0a16k54zz51sncpq2wa18wp81v46q8301ymy7"))
9382 (patches
9383 (search-patches "gnome-todo-delete-esource-duplicate.patch"))))
57b14665
MS		 9384 (build-system meson-build-system)
9385 (arguments
9386 '(#:glib-or-gtk? #t
9387 #:phases (modify-phases %standard-phases
9388 (add-after
9389 'install 'wrap-gnome-todo
9390 (lambda* (#:key inputs outputs #:allow-other-keys)
9391 (let ((out (assoc-ref outputs "out"))
9392 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
9393 (python-path (getenv "PYTHONPATH")))
9394 (wrap-program (string-append out "/bin/gnome-todo")
9395 ;; XXX: gi plugins are broken.
9396 ;; See https://bugzilla.gnome.org/show_bug.cgi?id=787212
9397 ;; For plugins.
9398 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
9399 `("PYTHONPATH" ":" prefix (,python-path))))
9400 #t)))))
9401 (native-inputs
9402 `(("gettext" ,gettext-minimal)
9403 ("gobject-introspection" ,gobject-introspection)
9404 ("glib:bin" ,glib "bin") ; For glib-compile-resources
9405 ("gtk+-bin" ,gtk+ "bin") ; For gtk-update-icon-cache
9406 ("pkg-config" ,pkg-config)))
9407 (inputs
9408 `(("rest" ,rest) ; For Todoist plugin
9409 ("json-glib" ,json-glib) ; For Todoist plugin
b63c06f1 9410 ("libedataserverui" ,evolution-data-server)
57b14665
MS		 9411 ("libical" ,libical)
9412 ("libpeas" ,libpeas)
9413 ("python-pygobject" ,python-pygobject)
9414 ("evolution-data-server" ,evolution-data-server)
14c297fd 9415 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
57b14665
MS		 9416 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
9417 (home-page "https://wiki.gnome.org/Apps/Todo")
9418 (synopsis "GNOME's ToDo Application")
9419 (description
9420 "GNOME To Do is a simplistic personal task manager designed to perfectly
9421fit the GNOME desktop.")
9422 (license license:gpl3+)))
9423
ab179eaf
SB		 9424(define-public gnome-dictionary
9425 (package
9426 (name "gnome-dictionary")
cf81ddef 9427 (version "3.26.1")
ab179eaf
SB		 9428 (source (origin
9429 (method url-fetch)
9430 (uri (string-append "mirror://gnome/sources/" name "/"
9431 (version-major+minor version) "/"
9432 name "-" version ".tar.xz"))
9433 (sha256
9434 (base32
cf81ddef
LC		 9435 "007k2bq8iplg4psdpz074r5d4zxvn4s95qym4rw9hs6giljbrf0n"))))
9436 (build-system meson-build-system)
2776b5d5
MB		 9437 (arguments '(#:glib-or-gtk? #t
9438 #:phases (modify-phases %standard-phases
9439 (add-after 'unpack 'patch-install-script
9440 (lambda _
9441 ;; This script attempts to compile glib schemas
9442 ;; and create an empty MIME database. We do
9443 ;; that elsewhere, so prevent it from running.
9444 (substitute* "build-aux/post-install.sh"
9445 (("\\[ -z \"\\$DESTDIR\" \\]") "false"))
9446 #t)))))
ab179eaf
SB		 9447 (native-inputs
9448 `(("glib:bin" ,glib "bin")
9449 ("gobject-introspection" ,gobject-introspection)
9450 ("intltool" ,intltool)
9451 ("itstool" ,itstool)
9452 ("pkg-config" ,pkg-config)
9453 ("xmllint" ,libxml2)))
9454 (inputs
9455 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
9456 ("gtk+" ,gtk+)))
9457 (home-page "https://wiki.gnome.org/Apps/Dictionary")
9458 (synopsis "Look up words in dictionary sources")
9459 (description
9460 "GNOME Dictionary can look for the definition or translation of a word in
9461existing databases over the internet.")
9462 (license license:gpl3+)))
9463
d13f3a03 9464(define-public gnome-tweaks
9365ee1c 9465 (package
d13f3a03 9466 (name "gnome-tweaks")
4add1bae 9467 (version "3.34.0")
9365ee1c
JN		 9468 (source (origin
9469 (method url-fetch)
d13f3a03 9470 (uri (string-append "mirror://gnome/sources/gnome-tweaks/"
9365ee1c 9471 (version-major+minor version) "/"
d13f3a03
RW		 9472 "gnome-tweaks-" version ".tar.xz"))
9473 (patches
9474 (list (search-patch "gnome-tweaks-search-paths.patch")))
9365ee1c
JN		 9475 (sha256
9476 (base32
4add1bae 9477 "0l2j42ba7v866iknygamnkiq7igh0fjvq92r93cslvvfnkx2ccq0"))))
d13f3a03 9478 (build-system meson-build-system)
9365ee1c 9479 (arguments
d13f3a03
RW		 9480 `(#:glib-or-gtk? #t
9481 #:configure-flags '("-Dlocalstatedir=/tmp"
9482 "-Dsysconfdir=/tmp")
9365ee1c 9483 #:imported-modules ((guix build python-build-system)
d13f3a03
RW		 9484 ,@%meson-build-system-modules)
9485 #:phases
9486 (modify-phases %standard-phases
4add1bae
KK		 9487 (add-after 'unpack 'skip-gtk-update-icon-cache
9488 ;; Don't create 'icon-theme.cache'.
9489 (lambda _
9490 (substitute* "meson-postinstall.py"
9491 (("gtk-update-icon-cache") "true"))
9492 #t))
d13f3a03
RW		 9493 (add-after 'install 'wrap
9494 (@@ (guix build python-build-system) wrap))
9495 (add-after 'wrap 'wrap-gi-typelib
9496 (lambda* (#:key inputs outputs #:allow-other-keys)
9497 (let ((out (assoc-ref outputs "out"))
9498 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
9499 (wrap-program (string-append out "/bin/gnome-tweaks")
9500 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
9501 #t)))))
9365ee1c 9502 (native-inputs
4add1bae 9503 `(("intltool" ,intltool)
9365ee1c
JN		 9504 ("pkg-config" ,pkg-config)))
9505 (inputs
c7fc414e
RH		 9506 `(("gnome-desktop" ,gnome-desktop)
9507 ("gtk+" ,gtk+)
9365ee1c
JN		 9508 ("gobject-introspection" ,gobject-introspection)
9509 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
a790dfe8 9510 ("libhandy" ,libhandy-0.0)
c7fc414e
RH		 9511 ("libnotify" ,libnotify)
9512 ("libsoup" ,libsoup)
9513 ("nautilus" ,nautilus)
9514 ("python" ,python)
9515 ("python-pygobject" ,python-pygobject)))
9365ee1c 9516 (synopsis "Customize advanced GNOME 3 options")
d13f3a03 9517 (home-page "https://wiki.gnome.org/Apps/Tweaks")
9365ee1c 9518 (description
d13f3a03 9519 "GNOME Tweaks allows adjusting advanced configuration settings in
9365ee1c
JN		 9520GNOME 3. This includes things like the fonts used in user interface elements,
9521alternative user interface themes, changes in window management behavior,
9522GNOME Shell appearance and extension, etc.")
9523 (license license:gpl3+)))
813f814a 9524
32ac717c
DT		 9525(define-public gnome-shell-extensions
9526 (package
9527 (name "gnome-shell-extensions")
c7305466 9528 (version "3.34.2")
32ac717c
DT		 9529 (source (origin
9530 (method url-fetch)
9531 (uri (string-append "mirror://gnome/sources/" name "/"
9532 (version-major+minor version) "/"
9533 name "-" version ".tar.xz"))
9534 (sha256
9535 (base32
c7305466 9536 "1f5l35l3kdkzrv49xmg1sh11vwmgjbg7hx3gb91i39bfl1snxqd1"))))
100f625b 9537 (build-system meson-build-system)
32ac717c 9538 (arguments
100f625b 9539 '(#:configure-flags '("-Dextension_set=all")))
32ac717c 9540 (native-inputs
c9ea8873
LP		 9541 `(("glib:bin" ,glib "bin")
9542 ("intltool" ,intltool)
32ac717c
DT		 9543 ("pkg-config" ,pkg-config)))
9544 (propagated-inputs
c9ea8873 9545 `(("glib" ,glib)))
32ac717c
DT		 9546 (synopsis "Extensions for GNOME Shell")
9547 (description "GNOME Shell extensions modify and extend GNOME Shell
9548functionality and behavior.")
9549 (home-page "https://extensions.gnome.org/")
9550 (license license:gpl3+)))
9551
813f814a
DT		 9552(define-public arc-theme
9553 (package
9554 (name "arc-theme")
79e27dcd 9555 (version "20201013")
813f814a 9556 (source (origin
a18f8eaf
BH		 9557 (method git-fetch)
9558 (uri (git-reference
79e27dcd 9559 (url "https://github.com/jnsh/arc-theme")
a18f8eaf
BH		 9560 (commit version)))
9561 (file-name (git-file-name name version))
813f814a
DT		 9562 (sha256
9563 (base32
79e27dcd 9564 "1x2l1mwjx68dwf3jb1i90c1q8nqsl1wf2zggcn8im6590k5yv39s"))))
813f814a 9565 (build-system gnu-build-system)
d88884fa 9566 (arguments
1cf5d2cf
TGR		 9567 '(#:configure-flags
9568 (list "--disable-cinnamon")
9569 #:phases
d88884fa
EF		 9570 (modify-phases %standard-phases
9571 ;; autogen.sh calls configure at the end of the script.
9572 (replace 'bootstrap
4690e3a4
MC		 9573 (lambda _ (invoke "autoreconf" "-vfi")))
9574 (add-before 'build 'set-home ;placate Inkscape
9575 (lambda _
9576 (setenv "HOME" (getcwd))
9577 #t)))))
813f814a
DT		 9578 (native-inputs
9579 `(("autoconf" ,autoconf)
9580 ("automake" ,automake)
a18f8eaf
BH		 9581 ("glib" ,glib "bin") ; for glib-compile-resources
9582 ("gnome-shell" ,gnome-shell)
9583 ("gtk+" ,gtk+)
9584 ("inkscape" ,inkscape)
9585 ("optipng" ,optipng)
9586 ("pkg-config" ,pkg-config)
bed24ecf 9587 ("sassc" ,sassc/libsass-3.5)))
813f814a
DT		 9588 (synopsis "A flat GTK+ theme with transparent elements")
9589 (description "Arc is a flat theme with transparent elements for GTK 3, GTK
95902, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments
9591like GNOME, Unity, Budgie, Pantheon, XFCE, Mate, etc.")
9592 (home-page "https://github.com/horst3180/arc-theme")
9593 ;; No "or later" language found.
a18f8eaf 9594 (license license:gpl3+)))
9987c57c 9595
d935e6a1 9596(define-public faba-icon-theme
9987c57c 9597 (package
d935e6a1 9598 (name "faba-icon-theme")
2eee7ee3 9599 (version "4.3")
d935e6a1
BT		 9600 (source
9601 (origin
757e4027
TGR		 9602 (method git-fetch)
9603 (uri (git-reference
b0e7b699 9604 (url "https://github.com/snwh/faba-icon-theme")
757e4027
TGR		 9605 (commit (string-append "v" version))))
9606 (file-name (git-file-name name version))
d935e6a1 9607 (sha256
757e4027 9608 (base32 "0xh6ppr73p76z60ym49b4d0liwdc96w41cc5p07d48hxjsa6qd6n"))))
f6a9b345 9609 (build-system meson-build-system)
9987c57c 9610 (arguments
82da291a 9611 `(#:phases
9987c57c 9612 (modify-phases %standard-phases
82da291a 9613 (add-before 'configure 'disable-post-install
9987c57c 9614 (lambda _
82da291a
JL		 9615 (substitute* "meson.build"
9616 (("meson.add_install_script.*") "")))))))
9987c57c
DT		 9617 (native-inputs
9618 `(("autoconf" ,autoconf)
9619 ("automake" ,automake)))
d935e6a1
BT		 9620 (synopsis "Faba icon theme")
9621 (description
9622 "Faba is a minimal icon set used as a basis for other themes such as
9623Moka")
9624 (home-page "https://snwh.org/moka")
9625 (license (list license:lgpl3+
9626 license:cc-by-sa4.0))))
9627
9987c57c
DT		 9628(define-public moka-icon-theme
9629 (package
8b0e4177 9630 (inherit faba-icon-theme)
9987c57c 9631 (name "moka-icon-theme")
105a3625 9632 (version "5.4.0")
8c3f2170
TGR		 9633 (source
9634 (origin
9635 (method git-fetch)
9636 (uri (git-reference
b0e7b699 9637 (url "https://github.com/snwh/moka-icon-theme")
8c3f2170
TGR		 9638 (commit (string-append "v" version))))
9639 (file-name (git-file-name name version))
9640 (sha256
9641 (base32 "015l02im4mha5z91dbchxf6xkp66d346bg3xskwg0rh3lglhjsrd"))))
550281fb
BT		 9642 (propagated-inputs
9643 ;; Moka is based on Faba by using it as a fallback icon set instead of
9644 ;; bundling it, so we need to add it as a propagated input.
9645 `(("faba-icon-theme" ,faba-icon-theme)))
9987c57c
DT		 9646 (synopsis "Moka icon theme")
9647 (description "Moka is a stylized desktop icon set, designed to be clear,
9648simple and consistent.")
fedde43b
BT		 9649 (license (list license:gpl3+
9650 license:cc-by-sa4.0))))
6fd8f8d6
DT		 9651
9652(define-public arc-icon-theme
9653 (package
9654 (name "arc-icon-theme")
c4180240 9655 (version "20161122")
bbf66cbf
TGR		 9656 (source
9657 (origin
9658 (method git-fetch)
9659 (uri (git-reference
b0e7b699 9660 (url "https://github.com/horst3180/arc-icon-theme")
bbf66cbf
TGR		 9661 (commit version)))
9662 (file-name (git-file-name name version))
9663 (sha256
9664 (base32 "1ch3hp08qri93510hypzz6m2x4xgg2h15wvnhjwh1x1s1b7jvxjd"))))
6fd8f8d6 9665 (build-system gnu-build-system)
9e1ede95
JL		 9666 (arguments
9667 `(#:phases
9668 (modify-phases %standard-phases
9669 (add-after 'unpack 'disable-configure-during-bootstrap
9670 (lambda _
9671 (substitute* "autogen.sh"
9672 (("^\"\\$srcdir/configure\".*") ""))
9673 #t)))))
6fd8f8d6
DT		 9674 (native-inputs
9675 `(("autoconf" ,autoconf)
9676 ("automake" ,automake)))
9677 ;; When Arc is missing an icon, it looks in the Moka icon theme for it.
9678 (propagated-inputs
9679 `(("moka-icon-theme" ,moka-icon-theme)))
9680 (synopsis "Arc icon theme")
9681 (description "The Arc icon theme provides a set of icons matching the
9682style of the Arc GTK theme. Icons missing from the Arc theme are provided by
9683the Moka icon theme.")
9684 (home-page "https://github.com/horst3180/arc-icon-theme")
9685 (license license:gpl3+)))
6064a4e8
LF		 9686
9687(define-public folks
9688 (package
9689 (name "folks")
fd11f6f3 9690 (version "0.13.1")
6064a4e8
LF		 9691 (source (origin
9692 (method url-fetch)
9693 (uri (string-append
e5f4796e 9694 "mirror://gnome/sources/folks/"
6064a4e8 9695 (version-major+minor version) "/"
e5f4796e 9696 "folks-" version ".tar.xz"))
6064a4e8
LF		 9697 (sha256
9698 (base32
fd11f6f3
KK		 9699 "0pda8sx4ap3lyri5fdrnakl29la1zkhwlc9bmnp13qigp1iwdw9x"))))
9700 (build-system meson-build-system)
9701 (arguments
9702 '(#:phases
9703 (modify-phases %standard-phases
9704 (add-after 'unpack 'skip-gtk-update-icon-cache
9705 ;; Don't create 'icon-theme.cache'.
9706 (lambda _
9707 (substitute* "meson_post_install.py"
9708 (("gtk-update-icon-cache") "true"))
9709 #t)))))
6064a4e8
LF		 9710 (inputs
9711 `(("bdb" ,bdb)
9712 ("dbus-glib" ,dbus-glib)
9713 ("evolution-data-server" ,evolution-data-server)
9714 ("glib" ,glib)
9715 ("libgee" ,libgee)
fd11f6f3 9716 ("readline" ,readline)
6064a4e8
LF		 9717 ("telepathy-glib" ,telepathy-glib)))
9718 (native-inputs
fd11f6f3
KK		 9719 `(("glib:bin" ,glib "bin")
9720 ("gobject-introspection" ,gobject-introspection)
6064a4e8
LF		 9721 ("intltool" ,intltool)
9722 ("pkg-config" ,pkg-config)
9723 ("vala" ,vala)))
9724 (synopsis "Library to aggregate data about people")
9725 (description "Libfolks is a library that aggregates information about people
9726from multiple sources (e.g., Telepathy connection managers for IM contacts,
9727Evolution Data Server for local contacts, libsocialweb for web service contacts,
9728etc.) to create metacontacts. It's written in Vala, which generates C code when
9729compiled.")
9730 (home-page "https://wiki.gnome.org/Projects/Folks")
9731 (license license:lgpl2.1+)))
01ea778f
LF		 9732
9733(define-public gfbgraph
9734 (package
9735 (name "gfbgraph")
556e33c8 9736 (version "0.2.4")
01ea778f
LF		 9737 (source (origin
9738 (method url-fetch)
9739 (uri (string-append
237d4cf7 9740 "mirror://gnome/sources/gfbgraph/"
01ea778f 9741 (version-major+minor version) "/"
237d4cf7 9742 "gfbgraph-" version ".tar.xz"))
01ea778f
LF		 9743 (sha256
9744 (base32
556e33c8 9745 "0yck7dwvjk16a52nafjpi0a39rxwmg0w833brj45acz76lgkjrb0"))))
01ea778f
LF		 9746 (build-system glib-or-gtk-build-system)
9747 (arguments
492ad09f
TGR		 9748 `(#:tests? #f ; tests appear to require the network
9749 #:configure-flags '("--disable-static"
9750 "--enable-gtk-doc"
01ea778f
LF		 9751 "--enable-introspection")))
9752 (native-inputs
492ad09f
TGR		 9753 `(("gobject-introspection" ,gobject-introspection)
9754 ("gtk-doc" ,gtk-doc)
556e33c8
TGR		 9755 ("pkg-config" ,pkg-config)
9756
9757 ;; The 0.2.4 ‘release’ tarball isn't bootstrapped.
9758 ("autoconf" ,autoconf)
9759 ("automake" ,automake)
9760 ("libtool" ,libtool)
9761 ("which" ,which)))
01ea778f
LF		 9762 (inputs
9763 `(("json-glib" ,json-glib)
14c297fd 9764 ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
01ea778f
LF		 9765 ("rest" ,rest)))
9766 (synopsis "GLib/GObject wrapper for the Facebook API")
9767 (description "This library allows you to use the Facebook API from
9768GLib/GObject code.")
9769 (home-page "https://wiki.gnome.org/Projects/GFBGraph")
9770 (license license:lgpl2.1+)))
3920868c 9771
9772(define-public libgnomekbd
9773 (package
9774 (name "libgnomekbd")
70f2b0f9 9775 (version "3.26.1")
3920868c 9776 (source (origin
9777 (method url-fetch)
d47fa82d 9778 (uri (string-append "mirror://gnome/sources/libgnomekbd/"
3920868c 9779 (version-major+minor version) "/"
d47fa82d 9780 "libgnomekbd-" version ".tar.xz"))
3920868c 9781 (sha256
9782 (base32
70f2b0f9 9783 "0y962ykn3rr9gylj0pwpww7bi20lmhvsw6qvxs5bisbn2mih5jpp"))))
3920868c 9784 (build-system gnu-build-system)
9785 (native-inputs
9786 `(("pkg-config" ,pkg-config)
9787 ("glib" ,glib "bin")
9788 ("intltool" ,intltool)))
9789 (propagated-inputs
9790 ;; Referred to in .h files and .pc.
9791 `(("glib" ,glib)
9792 ("gtk+" ,gtk+)
9793 ("libxklavier" ,libxklavier)))
9794 (home-page "https://www.gnome.org")
9795 (synopsis "GNOME keyboard configuration library")
9796 (description
9797 "Libgnomekbd is a keyboard configuration library for the GNOME desktop
9798environment, which can notably display keyboard layouts.")
9799 (license license:lgpl2.0+)))
85327d0d 9800
9801;;; This package is no longer maintained:
9802;;; https://wiki.gnome.org/Attic/LibUnique
9803;;; "Unique is now in maintenance mode, and its usage is strongly discouraged.
9804;;; Applications should use the GtkApplication class provided by GTK+ 3.0."
9805(define-public libunique
9806 (package
9807 (name "libunique")
9808 (version "3.0.2")
9809 (source (origin
9810 (method url-fetch)
9811 (uri (string-append "mirror://gnome/sources/" name "/"
9812 (version-major+minor version) "/"
9813 name "-" version ".tar.xz"))
9814 (sha256
9815 (base32
9816 "0f70lkw66v9cj72q0iw1s2546r6bwwcd8idcm3621fg2fgh2rw58"))))
9817 (build-system glib-or-gtk-build-system)
9818 (arguments
9819 `(#:configure-flags '("--disable-static"
9820 "--disable-dbus" ; use gdbus
9821 "--enable-introspection")))
9822 (native-inputs
9823 `(("pkg-config" ,pkg-config)
9824 ("gobject-introspection" ,gobject-introspection)
9825 ("glib:bin" ,glib "bin")
9826 ("gtk-doc" ,gtk-doc)))
9827 (propagated-inputs
9828 ;; Referred to in .h files and .pc.
9829 `(("gtk+" ,gtk+)))
9830 (home-page "https://wiki.gnome.org/Attic/LibUnique")
9831 (synopsis "Library for writing single instance applications")
9832 (description
9833 "Libunique is a library for writing single instance applications. If you
9834launch a single instance application twice, the second instance will either just
9835quit or will send a message to the running instance. Libunique makes it easy to
9836write this kind of application, by providing a base class, taking care of all
9837the IPC machinery needed to send messages to a running instance, and also
9838handling the startup notification side.")
9839 (license license:lgpl2.1+)))
54021cd8
RS		 9840
9841(define-public gnome-calculator
9842 (package
9843 (name "gnome-calculator")
4cb09502 9844 (version "3.34.1")
54021cd8
RS		 9845 (source
9846 (origin
9847 (method url-fetch)
9848 (uri (string-append "mirror://gnome/sources/" name "/"
9849 (version-major+minor version) "/"
9850 name "-" version ".tar.xz"))
9851 (sha256
9852 (base32
4cb09502 9853 "0lbh87255zzggqzai6543qg920y52bl4vs5m5h5087ghzg14hlsd"))))
2d475910
RW		 9854 (build-system meson-build-system)
9855 (arguments '(#:glib-or-gtk? #t))
54021cd8 9856 (native-inputs
4cb09502
MB		 9857 `(("gettext" ,gettext-minimal)
9858 ("glib:bin" ,glib "bin") ; for glib-compile-schemas, gio-2.0.
2d475910 9859 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
54021cd8 9860 ("itstool" ,itstool)
2d475910 9861 ("vala" ,vala)
54021cd8
RS		 9862 ("pkg-config" ,pkg-config)))
9863 (inputs
112e9083 9864 `(("glib" ,glib)
07ace641 9865 ("gtksourceview" ,gtksourceview)
4cb09502 9866 ("libgee" ,libgee)
54021cd8 9867 ("libsoup" ,libsoup)
112e9083 9868 ("libxml2" ,libxml2)
2c2da7ec 9869 ("mpc" ,mpc)
54021cd8
RS		 9870 ("mpfr" ,mpfr)))
9871 (home-page "https://wiki.gnome.org/Apps/Calculator")
9872 (synopsis "Desktop calculator")
9873 (description
9874 "Calculator is an application that solves mathematical equations and
9875is suitable as a default application in a Desktop environment.")
9876 (license license:gpl3)))
0bd69759
RS		 9877
9878(define-public xpad
9879 (package
9880 (name "xpad")
c85626bb 9881 (version "5.1.0")
0bd69759
RS		 9882 (source
9883 (origin
9884 (method url-fetch)
08fda9c6
R		 9885 (uri (string-append "https://launchpad.net/xpad/trunk/"
9886 version "/+download/"
0bd69759
RS		 9887 name "-" version ".tar.bz2"))
9888 (sha256
9889 (base32
c85626bb 9890 "0l0g5x8g6dwhf5ksnqqrjjsycy57kcvdslkmsr6bl3vrsjd7qml3"))))
0bd69759
RS		 9891 (build-system gnu-build-system)
9892 (native-inputs
08fda9c6
R		 9893 `(("autoconf" ,autoconf)
9894 ("automake" ,automake)
9895 ("gtk+:bin" ,gtk+ "bin")
9896 ("intltool" ,intltool)
0bd69759
RS		 9897 ("pkg-config" ,pkg-config)))
9898 (inputs
c72647fb 9899 `(("gtksourceview" ,gtksourceview-3)
0bd69759
RS		 9900 ("libsm" ,libsm)))
9901 (home-page "https://wiki.gnome.org/Apps/Xpad")
9902 (synopsis "Virtual sticky note")
9903 (description
9904 "Xpad is a sticky note that strives to be simple, fault tolerant,
9905and customizable. Xpad consists of independent pad windows, each is
9906basically a text box in which notes can be written.")
9907 (license license:gpl3+)))
3ad7dce1
RS		 9908
9909(define-public gucharmap
c60063ea
RW		 9910 (let ((unicode-files
9911 '(("Blocks.txt"
1f8b5515 9912 "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1")
c60063ea 9913 ("DerivedAge.txt"
1f8b5515 9914 "04j92xp07v273z3pxkbfmi1svmw9kmnjl9nvz9fv0g5ybk9zk7r6")
c60063ea 9915 ("NamesList.txt"
1f8b5515 9916 "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61")
c60063ea 9917 ("Scripts.txt"
1f8b5515 9918 "18c63hx4y5yg408a8d0wx72d2hfnlz4l560y1fsf9lpzifxpqcmx")
c60063ea 9919 ("UnicodeData.txt"
1f8b5515 9920 "07d1kq190kgl92ispfx6zmdkvwvhjga0ishxsngzlw8j3kdkz4ap")
c60063ea 9921 ("Unihan.zip"
1f8b5515 9922 "1kfdhgg2gm52x3s07bijb5cxjy0jxwhd097k5lqhvzpznprm6ibf"))))
c60063ea
RW		 9923 (package
9924 (name "gucharmap")
1f8b5515 9925 (version "12.0.1")
c60063ea
RW		 9926 (source
9927 (origin
9928 (method url-fetch)
9929 (uri (string-append "mirror://gnome/sources/" name "/"
9930 (version-major+minor version) "/"
9931 name "-" version ".tar.xz"))
9932 (sha256
9933 (base32
1f8b5515 9934 "0m915hm2b2d6r3vs1l80rqpssvg78pv8j6nv54yg62kzknnqmpir"))))
c60063ea
RW		 9935 (build-system glib-or-gtk-build-system)
9936 (arguments
9937 `(#:modules ((ice-9 match)
9938 (guix build glib-or-gtk-build-system)
9939 (guix build utils))
9940 #:configure-flags
9941 (list "--with-unicode-data=../unicode-data")
9942 #:phases
9943 (modify-phases %standard-phases
9944 (add-after 'unpack 'prepare-unicode-data
9945 (lambda* (#:key inputs #:allow-other-keys)
9946 (mkdir-p "../unicode-data")
9947 (with-directory-excursion "../unicode-data"
9948 (for-each (match-lambda
9949 ((file _)
9950 (install-file (assoc-ref inputs file) ".")))
9951 ',unicode-files))
9952 #t)))))
9953 (native-inputs
9954 `(("desktop-file-utils" ,desktop-file-utils)
9955 ("glib:bin" ,glib "bin") ; for glib-compile-resources.
9956 ("gobject-introspection" ,gobject-introspection)
9957 ("intltool" ,intltool)
9958 ("itstool" ,itstool)
9959 ("pkg-config" ,pkg-config)
9960 ,@(map (match-lambda
9961 ((file hash)
9962 `(,file
9963 ,(origin
9964 (method url-fetch)
9965 (uri (string-append
1f8b5515 9966 "http://www.unicode.org/Public/12.0.0/ucd/"
c60063ea
RW		 9967 file))
9968 (sha256 (base32 hash))))))
9969 unicode-files)
9970 ("unzip" ,unzip)))
9971 (inputs
9972 `(("gtk+" ,gtk+)
9973 ("xmllint" ,libxml2)))
9974 (home-page "https://wiki.gnome.org/Apps/Gucharmap")
9975 (synopsis "Unicode character picker and font browser")
9976 (description
9977 "This program allows you to browse through all the available Unicode
3ad7dce1
RS		 9978characters and categories for the installed fonts, and to examine their
9979detailed properties. It is an easy way to find the character you might
9980only know by its Unicode name or code point.")
c60063ea 9981 (license license:gpl3+))))
04ce840a
RS		 9982
9983(define-public bluefish
9984 (package
9985 (name "bluefish")
088f4d6b 9986 (version "2.2.12")
04ce840a
RS		 9987 (source
9988 (origin
9989 (method url-fetch)
79d04b36 9990 (uri (string-append "https://www.bennewitz.com/bluefish/stable/source/"
99aa7a2d 9991 "bluefish-" version ".tar.gz"))
04ce840a 9992 (sha256
088f4d6b 9993 (base32 "09hgxq139kbkjda5y073lqhq1z1x7cx0j80jh77afrqa3y9c53wl"))))
04ce840a
RS		 9994 (build-system gnu-build-system)
9995 (native-inputs
9996 `(("desktop-file-utils" ,desktop-file-utils)
9997 ("intltool" ,intltool)
9998 ("pkg-config" ,pkg-config)))
9999 (inputs
10000 `(("enchant" ,enchant)
10001 ("gtk+" ,gtk+)
290fe81d 10002 ("python" ,python-wrapper)
04ce840a
RS		 10003 ("xmllint" ,libxml2)
10004 ("gucharmap" ,gucharmap)))
10005 (home-page "http://bluefish.openoffice.nl")
10006 (synopsis "Web development studio")
10007 (description
6500797f 10008 "Bluefish is an editor aimed at programmers and web developers,
04ce840a
RS		 10009with many options to write web sites, scripts and other code.
10010Bluefish supports many programming and markup languages.")
10011 (license license:gpl3+)))
1f6a73ee
RS		 10012
10013(define-public gnome-system-monitor
10014 (package
10015 (name "gnome-system-monitor")
083cffaf 10016 (version "3.32.1")
1f6a73ee
RS		 10017 (source
10018 (origin
10019 (method url-fetch)
10020 (uri (string-append "mirror://gnome/sources/" name "/"
10021 (version-major+minor version) "/"
10022 name "-" version ".tar.xz"))
10023 (sha256
10024 (base32
083cffaf 10025 "1wd43qdgjav6xamq5z5cy8fri5zr01jga3plc9w95gcia0rk3ha8"))))
85fb3df3
RW		 10026 (build-system meson-build-system)
10027 (arguments
10028 '(#:glib-or-gtk? #t
10029 #:configure-flags '("-Dsystemd=false")))
1f6a73ee
RS		 10030 (native-inputs
10031 `(("glib:bin" ,glib "bin") ; for glib-mkenums.
85fb3df3 10032 ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
1f6a73ee
RS		 10033 ("intltool" ,intltool)
10034 ("itstool" ,itstool)
10035 ("libgtop" ,libgtop)
4985d9aa 10036 ("polkit" ,polkit)
1f6a73ee
RS		 10037 ("pkg-config" ,pkg-config)))
10038 (inputs
10039 `(("gdk-pixbuf" ,gdk-pixbuf) ; for loading SVG files.
10040 ("gtk+" ,gtk+)
10041 ("gtkmm" ,gtkmm)
10042 ("librsvg" ,librsvg)
4985d9aa
RW		 10043 ("libxml2" ,libxml2)
10044 ("libwnck" ,libwnck)))
1f6a73ee
RS		 10045 (home-page "https://wiki.gnome.org/Apps/SystemMonitor")
10046 (synopsis "Process viewer and system resource monitor for GNOME")
10047 (description
10048 "GNOME System Monitor is a GNOME process viewer and system monitor with
10049an attractive, easy-to-use interface. It has features, such as a tree view
10050for process dependencies, icons for processes, the ability to hide processes,
10051graphical time histories of CPU/memory/swap usage and the ability to
10052kill/reinice processes.")
10053 (license license:gpl2+)))
3e00ac47
SB		 10054
10055(define-public python-pyatspi
10056 (package
10057 (name "python-pyatspi")
4f937a32 10058 (version "2.34.0")
3e00ac47
SB		 10059 (source (origin
10060 (method url-fetch)
10061 (uri (string-append
10062 "mirror://gnome/sources/pyatspi/"
10063 (version-major+minor version)
10064 "/pyatspi-" version ".tar.xz"))
10065 (sha256
10066 (base32
4f937a32 10067 "0j3f75j0zd6ca8msg7yr19qsfirqkn9fk8pqbjnlhqrpri455g4p"))))
3e00ac47 10068 (build-system gnu-build-system)
b95af3f6
JL		 10069 (arguments
10070 `(#:phases
10071 (modify-phases %standard-phases
10072 (add-before 'build 'fix-atk-load
10073 (lambda _
10074 (substitute* "pyatspi/__init__.py"
10075 (("from gi.repository import Atspi")
10076 "gi.require_version('Gtk', '3.0')
10077from gi.repository import Gtk
10078from gi.repository import Atspi"))
10079 #t)))))
3e00ac47
SB		 10080 (native-inputs
10081 `(("pkg-config" ,pkg-config)))
10082 (inputs
06fe35cf
CB		 10083 `(("python" ,python)))
10084 (propagated-inputs
10085 `(("python-pygobject" ,python-pygobject)))
3e00ac47
SB		 10086 (synopsis "Python client bindings for D-Bus AT-SPI")
10087 (home-page "https://wiki.linuxfoundation.org/accessibility\
10088/atk/at-spi/at-spi_on_d-bus")
10089 (description
10090 "This package includes a python client library for the AT-SPI D-Bus
10091accessibility infrastructure.")
10092 (license license:lgpl2.0)
10093 (properties '((upstream-name . "pyatspi")))))
53201c0d 10094
5d31933e
CB		 10095(define-public python2-pyatspi
10096 (package
10097 (inherit python-pyatspi)
10098 (name "python2-pyatspi")
10099 (inputs
06fe35cf
CB		 10100 `(("python" ,python-2)))
10101 (propagated-inputs
10102 `(("python-pygobject" ,python2-pygobject)))))
5d31933e 10103
53201c0d
SB		 10104(define-public orca
10105 (package
10106 (name "orca")
30e76da1 10107 (version "3.34.1")
53201c0d
SB		 10108 (source (origin
10109 (method url-fetch)
10110 (uri (string-append
10111 "mirror://gnome/sources/" name "/"
10112 (version-major+minor version) "/"
10113 name "-" version ".tar.xz"))
10114 (sha256
10115 (base32
30e76da1 10116 "1q38n7hyshkiszmn361skxjynxr31lcms7a1iny6d0zlpmh1vnk4"))))
53201c0d
SB		 10117 (build-system glib-or-gtk-build-system)
10118 (arguments
10119 '(#:phases
10120 (modify-phases %standard-phases
10121 (add-before 'configure 'qualify-xkbcomp
10122 (lambda* (#:key inputs #:allow-other-keys)
10123 (let ((xkbcomp (string-append
10124 (assoc-ref inputs "xkbcomp") "/bin/xkbcomp")))
10125 (substitute* "src/orca/orca.py"
10126 (("'xkbcomp'") (format #f "'~a'" xkbcomp))))
10127 #t))
10128 (add-after 'install 'wrap-orca
10129 (lambda* (#:key outputs #:allow-other-keys)
10130 (let* ((out (assoc-ref outputs "out"))
10131 (prog (string-append out "/bin/orca")))
10132 (wrap-program prog
10133 `("GI_TYPELIB_PATH" ":" prefix
10134 (,(getenv "GI_TYPELIB_PATH")))
10135 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
10136 (,(getenv "GST_PLUGIN_SYSTEM_PATH")))
10137 `("PYTHONPATH" ":" prefix
10138 (,(getenv "PYTHONPATH")))))
10139 #t)))))
10140 (native-inputs
10141 `(("intltool" ,intltool)
10142 ("itstool" ,itstool)
10143 ("pkg-config" ,pkg-config)
10144 ("xmllint" ,libxml2)))
10145 (inputs
10146 `(("at-spi2-atk" ,at-spi2-atk)
10147 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10148 ("gstreamer" ,gstreamer)
10149 ("gst-plugins-base" ,gst-plugins-base)
10150 ("gst-plugins-good" ,gst-plugins-good)
10151 ("gtk+" ,gtk+)
10152 ("python" ,python)
10153 ("python-pygobject" ,python-pygobject)
10154 ("python-pyatspi" ,python-pyatspi)
10155 ("python-speechd" ,speech-dispatcher)
10156 ("xkbcomp" ,xkbcomp)))
10157 (synopsis
10158 "Screen reader for individuals who are blind or visually impaired")
10159 (home-page "https://wiki.gnome.org/Projects/Orca")
10160 (description
10161 "Orca is a screen reader that provides access to the graphical desktop
10162via speech and refreshable braille. Orca works with applications and toolkits
10163that support the Assistive Technology Service Provider Interface (AT-SPI).")
10164 (license license:lgpl2.1+)))
411ba511
LC		 10165
10166(define-public gspell
10167 (package
10168 (name "gspell")
7a6bbe9b 10169 (version "1.8.2")
411ba511
LC		 10170 (source (origin
10171 (method url-fetch)
10172 (uri (string-append "mirror://gnome/sources/" name "/"
10173 (version-major+minor version) "/"
10174 name "-" version ".tar.xz"))
10175 (sha256
10176 (base32
7a6bbe9b 10177 "1miybm1z5cl91i25l7mfqlxhv7j8yy8rcgi0s1bgbb2vm71rb4dv"))
411ba511
LC		 10178 (patches (search-patches "gspell-dash-test.patch"))))
10179 (build-system glib-or-gtk-build-system)
10180 (arguments
d0f50164 10181 '(#:configure-flags (list "--enable-vala")
10182 #:phases
411ba511
LC		 10183 (modify-phases %standard-phases
10184 (add-before 'check 'pre-check
10185 (lambda* (#:key inputs #:allow-other-keys)
10186 ;; Tests require a running X server.
10187 (system "Xvfb :1 &")
10188 (setenv "DISPLAY" ":1")
10189
10190 ;; For the missing /etc/machine-id.
10191 (setenv "DBUS_FATAL_WARNINGS" "0")
10192
10193 ;; Allow Enchant and its Aspell backend to find the en_US
10194 ;; dictionary.
10195 (setenv "ASPELL_DICT_DIR"
10196 (string-append (assoc-ref inputs "aspell-dict-en")
10197 "/lib/aspell"))
10198 #t)))))
10199 (inputs
eccd35be 10200 `(("gtk+" ,gtk+)
a801ae4c
TGR		 10201 ("glib" ,glib)
10202 ("iso-codes" ,iso-codes)))
411ba511
LC		 10203 (native-inputs
10204 `(("glib" ,glib "bin")
26ba3f07 10205 ("gobject-introspection" ,gobject-introspection)
411ba511 10206 ("pkg-config" ,pkg-config)
d0f50164 10207 ("vala" ,vala) ;for VAPI, needed by Geary
411ba511
LC		 10208 ("xmllint" ,libxml2)
10209
10210 ;; For tests.
a801ae4c 10211 ("aspell-dict-en" ,aspell-dict-en)
ff337525 10212 ("xorg-server" ,xorg-server-for-tests)))
eccd35be 10213 (propagated-inputs
9b1bb757 10214 `(("enchant" ,enchant))) ;enchant.pc is required by gspell-1.pc
411ba511
LC		 10215 (home-page "https://wiki.gnome.org/Projects/gspell")
10216 (synopsis "GNOME's alternative spell checker")
10217 (description
10218 "gspell provides a flexible API to add spell-checking to a GTK+
10219application. It provides a GObject API, spell-checking to text entries and
10220text views, and buttons to choose the language.")
10221 (license license:gpl2+)))
d1d739fa
CM		 10222
10223(define-public gnome-planner
10224 (package
10225 (name "gnome-planner")
10226 (version "0.14.6")
10227 (source (origin
10228 (method url-fetch)
10229 (uri (string-append "mirror://gnome/sources/planner/"
10230 (version-major+minor version) "/planner-"
10231 version ".tar.xz"))
10232 (sha256
10233 (base32
10234 "15h6ps58giy5r1g66sg1l4xzhjssl362mfny2x09khdqsvk2j38k"))))
10235 (build-system glib-or-gtk-build-system)
10236 (arguments
10237 ;; Disable the Python bindings because the Planner program functions
10238 ;; without them, and (as of 2017-06-13) we have not packaged all of
10239 ;; packages that are necessary for building the Python bindings.
20b7b75c
EF		 10240 `(#:configure-flags
10241 (list "--disable-python"
10242 ,@(if (string=? "aarch64-linux" (%current-system))
10243 '("--build=aarch64-unknown-linux-gnu")
10244 '()))))
d1d739fa
CM		 10245 (inputs
10246 `(("libgnomecanvas" ,libgnomecanvas)
10247 ("libgnomeui" ,libgnomeui)
10248 ("libglade" ,libglade)
10249 ("gnome-vfs" ,gnome-vfs)
10250 ("gconf" ,gconf)
10251 ("libxml2" ,libxml2)
10252 ("libxslt" ,libxslt)
10253 ("gtk+" ,gtk+)
10254 ("glib" ,glib)))
10255 (native-inputs
10256 `(("intltool" ,intltool)
10257 ("scrollkeeper" ,scrollkeeper)
10258 ("pkg-config" ,pkg-config)))
10259 (home-page "https://wiki.gnome.org/Apps/Planner")
10260 (synopsis "Project management software for the GNOME desktop")
10261 (description
10262 "GNOME Planner is a project management tool based on the Work Breakdown
10263Structure (WBS). Its goal is to enable you to easily plan projects. Based on
10264the resources, tasks, and constraints that you define, Planner generates
10265various views into a project. For example, Planner can show a Gantt chart of
10266the project. It can show a detailed summary of tasks including their
10267duration, cost, and current progress. It can also show a report of resource
10268utilization that highlights under-utilized and over-utilized resources. These
10269views can be printed as PDF or PostScript files, or exported to HTML.")
4b926cb6 10270 (license license:gpl2+)))
64fce637
RS		 10271
10272(define-public lollypop
10273 (package
10274 (name "lollypop")
2e0ab8c9 10275 (version "1.4.2")
64fce637
RS		 10276 (source
10277 (origin
10278 (method url-fetch)
24b5d8f7 10279 (uri (string-append "https://adishatz.org/lollypop/"
3275d43d 10280 "lollypop-" version ".tar.xz"))
64fce637 10281 (sha256
2e0ab8c9 10282 (base32 "1hfl68gkvqy5kxlmrsalz78mw1bs1yvqvy2rhg7pzgwiazsdvwzz"))))
aa498fc0 10283 (build-system meson-build-system)
64fce637 10284 (arguments
7a9543d7
TGR		 10285 `(#:imported-modules
10286 (,@%meson-build-system-modules
10287 (guix build python-build-system))
10288 #:modules
10289 ((guix build meson-build-system)
10290 ((guix build python-build-system) #:prefix python:)
10291 (guix build utils))
aa498fc0 10292 #:glib-or-gtk? #t
7a9543d7 10293 #:tests? #f ; no test suite
5fc9b6c1
EF		 10294 #:phases
10295 (modify-phases %standard-phases
5fc9b6c1
EF		 10296 (add-after 'install 'wrap-program
10297 (lambda* (#:key outputs #:allow-other-keys)
10298 (let ((out (assoc-ref outputs "out"))
10299 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
10300 (wrap-program (string-append out "/bin/lollypop")
10301 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
10302 #t))
8ac8b3b3 10303 (add-after 'install 'wrap-python
7a9543d7 10304 (assoc-ref python:%standard-phases 'wrap)))))
64fce637
RS		 10305 (native-inputs
10306 `(("intltool" ,intltool)
10307 ("itstool" ,itstool)
aa498fc0
TD		 10308 ("glib:bin" ,glib "bin") ; For glib-compile-resources
10309 ("gtk+:bin" ,gtk+ "bin") ; For gtk-update-icon-cache
64fce637
RS		 10310 ("pkg-config" ,pkg-config)))
10311 (inputs
10312 `(("gobject-introspection" ,gobject-introspection)
8ac8b3b3 10313 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
5fc9b6c1 10314 ("gst-plugins-base" ,gst-plugins-base)
64fce637
RS		 10315 ("libnotify" ,libnotify)
10316 ("libsecret" ,libsecret)
2e0ab8c9 10317 ("libhandy" ,libhandy)
64fce637
RS		 10318 ("libsoup" ,libsoup)
10319 ("python" ,python)
10320 ("python-beautifulsoup4" ,python-beautifulsoup4)
10321 ("python-gst" ,python-gst)
d029afdd 10322 ("python-pil" ,python-pillow)
64fce637 10323 ("python-pycairo" ,python-pycairo)
cc9c83c5 10324 ("python-pygobject" ,python-pygobject)
64fce637
RS		 10325 ("python-pylast" ,python-pylast)
10326 ("totem-pl-parser" ,totem-pl-parser)
10327 ("webkitgtk" ,webkitgtk)))
10328 (propagated-inputs
10329 `(;; gst-plugins-base is required to start Lollypop,
10330 ;; the others are required to play streaming.
64fce637
RS		 10331 ("gst-plugins-good" ,gst-plugins-good)
10332 ("gst-plugins-ugly" ,gst-plugins-ugly)))
b98eace8 10333 (home-page "https://wiki.gnome.org/Apps/Lollypop")
64fce637
RS		 10334 (synopsis "GNOME music playing application")
10335 (description
10336 "Lollypop is a music player designed to play well with GNOME desktop.
10337Lollypop plays audio formats such as mp3, mp4, ogg and flac and gets information
10338from artists and tracks from the web. It also fetches cover artworks
10339automatically and it can stream songs from online music services and charts.")
10340 (license license:gpl3+)))
d831d49d
AW		 10341
10342(define-public gnome-video-effects
10343 (package
10344 (name "gnome-video-effects")
382ac0e4 10345 (version "0.5.0")
d831d49d
AW		 10346 (source (origin
10347 (method url-fetch)
10348 (uri (string-append "mirror://gnome/sources/" name "/"
10349 (version-major+minor version) "/" name "-"
10350 version ".tar.xz"))
10351 (sha256
10352 (base32
382ac0e4
MR		 10353 "1j6h98whgkcxrh30bwvnxvyqxrxchgpdgqhl0j71xz7x72dqxijd"))))
10354 (build-system meson-build-system)
d831d49d 10355 (native-inputs
382ac0e4 10356 `(("gettext" ,gettext-minimal)
d831d49d
AW		 10357 ("pkg-config" ,pkg-config)))
10358 (home-page "https://wiki.gnome.org/Projects/GnomeVideoEffects")
10359 (synopsis "Video effects for Cheese and other GNOME applications")
10360 (description
10361 "A collection of GStreamer video filters and effects to be used in
10362photo-booth-like software, such as Cheese.")
10363 (license license:gpl2+)))
3511c780
AW		 10364
10365(define-public cheese
10366 (package
10367 (name "cheese")
bd64cb68 10368 (version "3.38.0")
3511c780
AW		 10369 (source (origin
10370 (method url-fetch)
10371 (uri (string-append "mirror://gnome/sources/" name "/"
10372 (version-major+minor version) "/" name "-"
10373 version ".tar.xz"))
10374 (sha256
10375 (base32
bd64cb68 10376 "0vyim2avlgq3a48rgdfz5g21kqk11mfb53b2l883340v88mp7ll8"))))
3511c780 10377 (arguments
3a7e066f
KK		 10378 `(#:glib-or-gtk? #t
10379 ;; Tests require GDK.
10380 #:tests? #f
3511c780
AW		 10381 #:phases
10382 (modify-phases %standard-phases
3a7e066f 10383 (add-after 'unpack 'skip-gtk-update-icon-cache
3511c780
AW		 10384 (lambda _
10385 ;; Don't create 'icon-theme.cache'
3a7e066f 10386 (substitute* "meson_post_install.py"
3511c780
AW		 10387 (("gtk-update-icon-cache") (which "true")))
10388 #t))
bd64cb68
MR		 10389 (add-after 'unpack 'patch-docbook-xml
10390 (lambda* (#:key inputs #:allow-other-keys)
10391 ;; Avoid a network connection attempt during the build.
10392 (substitute* '("docs/reference/cheese.xml"
10393 "docs/reference/cheese-docs.xml")
10394 (("http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd")
10395 (string-append (assoc-ref inputs "docbook-xml")
10396 "/xml/dtd/docbook/docbookx.dtd")))
10397 #t))
3511c780
AW		 10398 (add-after 'install 'wrap-cheese
10399 (lambda* (#:key inputs outputs #:allow-other-keys)
10400 (let ((out (assoc-ref outputs "out"))
10401 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10402 (wrap-program (string-append out "/bin/cheese")
10403 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10404 #t)))))
3a7e066f 10405 (build-system meson-build-system)
3511c780 10406 (native-inputs
3a7e066f 10407 `(("docbook-xsl" ,docbook-xsl)
bd64cb68 10408 ("docbook-xml" ,docbook-xml-4.3)
c68dc3fb 10409 ("gettext" ,gettext-minimal)
3a7e066f
KK		 10410 ("glib:bin" ,glib "bin")
10411 ("gtk-doc" ,gtk-doc)
3511c780
AW		 10412 ("itstool" ,itstool)
10413 ("libxml2" ,libxml2)
3a7e066f 10414 ("libxslt" ,libxslt)
3511c780
AW		 10415 ("pkg-config" ,pkg-config)
10416 ("vala" ,vala)))
10417 (propagated-inputs
6a19f03e
RW		 10418 `(("gnome-video-effects" ,gnome-video-effects)
10419 ("clutter" ,clutter)
3511c780
AW		 10420 ("clutter-gst" ,clutter-gst)
10421 ("clutter-gtk" ,clutter-gtk)
6a19f03e 10422 ("libcanberra" ,libcanberra)
3511c780
AW		 10423 ("gdk-pixbuf" ,gdk-pixbuf)
10424 ("glib" ,glib)
6a19f03e
RW		 10425 ("gstreamer" ,gstreamer)))
10426 (inputs
10427 `(("gnome-desktop" ,gnome-desktop)
3511c780 10428 ("gobject-introspection" ,gobject-introspection)
3511c780
AW		 10429 ("gst-plugins-base" ,gst-plugins-base)
10430 ("gst-plugins-bad" ,gst-plugins-bad)
10431 ("gtk+" ,gtk+)
3511c780
AW		 10432 ("libx11" ,libx11)
10433 ("libxtst" ,libxtst)))
10434 (home-page "https://wiki.gnome.org/Apps/Cheese")
10435 (synopsis "Webcam photo booth software for GNOME")
10436 (description
10437 "Cheese uses your webcam to take photos and videos. Cheese can also
10438apply fancy special effects and lets you share the fun with others.")
10439 (license license:gpl2+)))
3c5dbd2b 10440
a8eb438e
VM		 10441(define-public passwordsafe
10442 (package
10443 (name "passwordsafe")
10444 (version "3.99.2")
10445 (source
10446 (origin
10447 (method git-fetch)
10448 (uri (git-reference
10449 (url "https://gitlab.gnome.org/World/PasswordSafe")
10450 (commit version)))
10451 (file-name (git-file-name name version))
10452 (sha256
10453 (base32 "0pi2l4gwf8paxm858mxrcsk5nr0c0zw5ycax40mghndb6b1qmmhf"))))
10454 (build-system meson-build-system)
10455 (arguments
10456 `(#:glib-or-gtk? #t
10457 #:phases
10458 (modify-phases %standard-phases
10459 (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
10460 (lambda* (#:key outputs #:allow-other-keys)
10461 (let ((prog (string-append (assoc-ref outputs "out")
10462 "/bin/gnome-passwordsafe"))
10463 (pylib (string-append (assoc-ref outputs "out")
10464 "/lib/python"
10465 ,(version-major+minor
10466 (package-version python))
10467 "/site-packages")))
10468 (wrap-program prog
10469 `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
10470 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
10471 #t))))))
10472 (native-inputs
10473 `(("desktop-file-utils" ,desktop-file-utils)
10474 ("gettext" ,gettext-minimal)
10475 ("glib:bin" ,glib "bin")
10476 ("gobject-introspection" ,gobject-introspection)
10477 ("gtk+:bin" ,gtk+ "bin")
10478 ("pkg-config" ,pkg-config)))
10479 (inputs
10480 `(("glib" ,glib)
10481 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10482 ("gtk+" ,gtk+)
10483 ("libhandy" ,libhandy-0.0)
10484 ("libpwquality" ,libpwquality)
10485 ("python-pygobject" ,python-pygobject)
10486 ("python-pykeepass" ,python-pykeepass)))
10487 (home-page "https://gitlab.gnome.org/World/PasswordSafe")
10488 (synopsis "Password manager for the GNOME desktop")
10489 (description
10490 "Password Safe is a password manager which makes use of the KeePass v4
10491format. It integrates perfectly with the GNOME desktop and provides an easy
10492and uncluttered interface for the management of password databases.")
10493 (license license:gpl3+)))
10494
3c5dbd2b 10495(define-public sound-juicer
10496 (package
10497 (name "sound-juicer")
10498 (version "3.24.0")
10499 (source
10500 (origin
10501 (method url-fetch)
10502 (uri (string-append "mirror://gnome/sources/" name "/"
10503 (version-major+minor version) "/"
10504 name "-" version ".tar.xz"))
10505 (sha256
10506 (base32
10507 "19qg4xv0f9rkq34lragkmhii1llxsa87llbl28i759b0ks4f6sny"))))
10508 (build-system glib-or-gtk-build-system)
10509 (native-inputs
10510 `(("desktop-file-utils" ,desktop-file-utils)
10511 ("intltool" ,intltool)
10512 ("itstool" ,itstool)
10513 ("pkg-config" ,pkg-config)
10514 ("xmllint" ,libxml2)))
10515 (inputs
10516 `(("gtk+" ,gtk+)
10517 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10518 ("gstreamer" ,gstreamer)
10519 ("gst-plugins-base" ,gst-plugins-base)
10520 ("gst-plugins-good" ,gst-plugins-good)
10521 ("iso-codes" ,iso-codes)
10522 ("libbrasero-media3" ,brasero)
10523 ("libcanberra" ,libcanberra)
10524 ("libdiscid" ,libdiscid)
10525 ("libmusicbrainz" ,libmusicbrainz)
10526 ("neon" ,neon)))
10527 (home-page "https://wiki.gnome.org/Apps/SoundJuicer")
10528 (synopsis "Audio music cd ripper")
10529 (description "Sound Juicer extracts audio from compact discs and convert it
10530into audio files that a personal computer or digital audio player can play.
10531It supports ripping to any audio codec supported by a GStreamer plugin, such as
10532mp3, Ogg Vorbis and FLAC")
10533 (license license:gpl2+)))
4e3fdeb7 10534
0d3f1708
CB		 10535(define-public soundconverter
10536 (package
10537 (name "soundconverter")
7f4b45a3 10538 (version "3.0.2")
0d3f1708
CB		 10539 (source
10540 (origin
10541 (method url-fetch)
10542 (uri (string-append "https://launchpad.net/soundconverter/trunk/"
10543 version "/+download/"
10544 "soundconverter-" version ".tar.xz"))
10545
10546 (sha256
7f4b45a3 10547 (base32 "1jv8m82hi23ilrgdznlc1jhp2jm8bw1yrw0chh3qw2l0sixvkl11"))))
0d3f1708
CB		 10548 (build-system glib-or-gtk-build-system)
10549 (arguments
10550 `(#:imported-modules ((guix build python-build-system)
10551 (guix build glib-or-gtk-build-system)
10552 ,@%gnu-build-system-modules)
10553
10554 #:modules ((guix build glib-or-gtk-build-system)
10555 (guix build utils)
10556 ((guix build gnu-build-system) #:prefix gnu:)
10557 ((guix build python-build-system) #:prefix python:))
10558
10559 #:phases
10560 (modify-phases %standard-phases
0d3f1708
CB		 10561 (add-after 'install 'wrap-soundconverter-for-python
10562 (assoc-ref python:%standard-phases 'wrap))
10563 (add-after 'install 'wrap-soundconverter
10564 (lambda* (#:key inputs outputs #:allow-other-keys)
10565 (let ((out (assoc-ref outputs "out"))
10566 (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
10567 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
10568 (wrap-program (string-append out "/bin/soundconverter")
10569 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
10570 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
10571 #t)))))
10572 (native-inputs
10573 `(("intltool" ,intltool)
10574 ("pkg-config" ,pkg-config)
10575 ("glib:bin" ,glib "bin")))
10576 (inputs
10577 `(("gtk+" ,gtk+)
10578 ("python" ,python)
10579 ("python-pygobject" ,python-pygobject)
10580 ("gstreamer" ,gstreamer)
10581 ("gst-plugins-base" ,gst-plugins-base)))
e42399e8 10582 (home-page "https://soundconverter.org/")
0d3f1708
CB		 10583 (synopsis "Convert between audio formats with a graphical interface")
10584 (description
10585 "SoundConverter supports converting between many audio formats including
10586Opus, Ogg Vorbis, FLAC and more. It supports parallel conversion, and
10587configurable file renaming. ")
10588 (license license:gpl3)))
10589
4e3fdeb7 10590(define-public workrave
89f2d736
TGR		 10591 (package
10592 (name "workrave")
52fc6508 10593 (version "1.10.42")
89f2d736
TGR		 10594 (source
10595 (origin
10596 (method git-fetch)
10597 (uri (git-reference
b0e7b699 10598 (url "https://github.com/rcaelers/workrave")
c2e50474
TGR		 10599 (commit (string-append "v" (string-map
10600 (match-lambda (#\. #\_) (chr chr))
10601 version)))))
89f2d736
TGR		 10602 (file-name (git-file-name name version))
10603 (sha256
52fc6508 10604 (base32 "03i9kk8r1wgrfkkbwikx8wxaw4r4kn62vismr2zdq5g34fkkjh95"))))
89f2d736 10605 (build-system glib-or-gtk-build-system)
1b9e1648
TGR		 10606 (arguments
10607 ;; The only tests are maintainer tests (in po/), which fail.
10608 `(#:tests? #f))
d1c96847
MC		 10609 (inputs `(("glib" ,glib)
10610 ("gtk+" ,gtk+)
10611 ("gdk-pixbuf" ,gdk-pixbuf)
10612 ("gtkmm" ,gtkmm)
10613 ("glibmm" ,glibmm)
10614 ("libx11" ,libx11)
10615 ("libxtst" ,libxtst)
10616 ("dconf" ,dconf)
10617 ("libice" ,libice)
10618 ("libsm" ,libsm)
10619 ("libxscrnsaver" ,libxscrnsaver)))
aa51d92c 10620 (native-inputs `(("boost" ,boost)
89f2d736 10621 ("pkg-config" ,pkg-config)
f2d97d57 10622 ("gettext" ,gettext-minimal)
89f2d736
TGR		 10623 ("autoconf" ,autoconf)
10624 ("autoconf-archive" , autoconf-archive)
10625 ("automake" ,automake)
10626 ("libtool" ,libtool)
10627 ("intltool" ,intltool)
89f2d736 10628 ("gobject-introspection" ,gobject-introspection)
aa51d92c
MC		 10629 ("python3" ,python-3)
10630 ("python-jinja2" ,python-jinja2)))
89f2d736
TGR		 10631 (synopsis "Tool to help prevent repetitive strain injury (RSI)")
10632 (description
10633 "Workrave is a program that assists in the recovery and prevention of
cc00249b
TGR		 10634repetitive strain injury (@dfn{RSI}). The program frequently alerts you to take
10635micro-pauses and rest breaks, and restricts you to your daily limit.")
89f2d736
TGR		 10636 (home-page "http://www.workrave.org")
10637 (license license:gpl3+)))
312afa7d
LC		 10638
10639(define-public ghex
10640 (package
10641 (name "ghex")
3748992a 10642 (version "3.18.4")
312afa7d
LC		 10643 (source (origin
10644 (method url-fetch)
2fbab848 10645 (uri (string-append "mirror://gnome/sources/ghex/"
312afa7d 10646 (version-major+minor version) "/"
2fbab848 10647 "ghex-" version ".tar.xz"))
312afa7d
LC		 10648 (sha256
10649 (base32
3748992a
KK		 10650 "1h1pjrr9wynclfykizqd78dbi785wjz6b63p31k87kjvzy8w3nf2"))))
10651 (build-system meson-build-system)
10652 (arguments
10653 '(#:glib-or-gtk? #t
10654 #:phases
10655 (modify-phases %standard-phases
10656 (add-after 'unpack 'skip-gtk-update-icon-cache
10657 ;; Don't create 'icon-theme.cache'.
10658 (lambda _
10659 (substitute* "meson_post_install.py"
10660 (("gtk-update-icon-cache") (which "true")))
10661 #t)))))
312afa7d
LC		 10662 (native-inputs
10663 `(("pkg-config" ,pkg-config)
3748992a 10664 ("glib:bin" ,glib "bin") ; for glib-compile-schemas
312afa7d
LC		 10665 ("gnome-common" ,gnome-common)
10666 ("which" ,which)
10667 ("intltool" ,intltool)
10668 ("yelp-tools" ,yelp-tools)
2fbab848 10669 ("desktop-file-utils" ,desktop-file-utils))) ; for 'desktop-file-validate'
312afa7d
LC		 10670 (inputs
10671 `(("atk" ,atk)
10672 ("gtk" ,gtk+)))
10673 (synopsis "GNOME hexadecimal editor")
10674 (description "The GHex program can view and edit files in two ways:
10675hexadecimal or ASCII. It is useful for editing binary files in general.")
10676 (home-page "https://wiki.gnome.org/Apps/Ghex")
10677 (license license:gpl2)))
4b2ed6c2
RW		 10678
10679(define-public libdazzle
10680 (package
10681 (name "libdazzle")
80260be4 10682 (version "3.37.1")
4b2ed6c2
RW		 10683 (source (origin
10684 (method url-fetch)
687b4909 10685 (uri (string-append "mirror://gnome/sources/libdazzle/"
4b2ed6c2 10686 (version-major+minor version) "/"
687b4909 10687 "libdazzle-" version ".tar.xz"))
4b2ed6c2
RW		 10688 (sha256
10689 (base32
80260be4 10690 "03r5cr11dc031qa3694bpgm3lajrhiiln67kvl7vjj4q0scf7w7x"))))
4b2ed6c2
RW		 10691 (build-system meson-build-system)
10692 (arguments
10693 `(#:phases
10694 (modify-phases %standard-phases
4b2ed6c2
RW		 10695 (add-before 'check 'pre-check
10696 (lambda _
10697 ;; Tests require a running X server.
10698 (system "Xvfb :1 &")
10699 (setenv "DISPLAY" ":1")
10700 #t)))))
10701 (native-inputs
687b4909 10702 `(("glib" ,glib "bin") ; glib-compile-resources
4b2ed6c2 10703 ("pkg-config" ,pkg-config)
687b4909 10704 ;; For tests.
ff337525 10705 ("xorg-server" ,xorg-server-for-tests)))
4b2ed6c2
RW		 10706 (inputs
10707 `(("glib" ,glib)
10708 ("gobject-introspection" ,gobject-introspection)
10709 ("gtk+" ,gtk+)
10710 ("vala" ,vala)))
10711 (home-page "https://gitlab.gnome.org/GNOME/libdazzle")
10712 (synopsis "Companion library to GObject and Gtk+")
10713 (description "The libdazzle library is a companion library to GObject and
10714Gtk+. It provides various features that the authors wish were in the
10715underlying library but cannot for various reasons. In most cases, they are
10716wildly out of scope for those libraries. In other cases, they are not quite
10717generic enough to work for everyone.")
10718 (license license:gpl3+)))
7d3bb433
RW		 10719
10720(define-public evolution
10721 (package
10722 (name "evolution")
0662fe86 10723 (version "3.34.2")
7d3bb433
RW		 10724 (source (origin
10725 (method url-fetch)
10726 (uri (string-append "mirror://gnome/sources/evolution/"
10727 (version-major+minor version) "/"
10728 "evolution-" version ".tar.xz"))
10729 (sha256
10730 (base32
0662fe86 10731 "164vy8h432pjglafn8y2ms4gsvk3kbgc63h5qp0mk5dv4smsp29c"))))
7d3bb433
RW		 10732 (build-system cmake-build-system)
10733 (arguments
5229bea1
KK		 10734 `(#:imported-modules (,@%cmake-build-system-modules
10735 (guix build glib-or-gtk-build-system))
10736 #:modules ((guix build cmake-build-system)
10737 ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10738 (guix build utils))
10739 #:configure-flags
7d3bb433 10740 (list "-DENABLE_PST_IMPORT=OFF" ; libpst is not packaged
5229bea1 10741 "-DENABLE_LIBCRYPTUI=OFF") ; libcryptui hasn't seen a release
7d3bb433 10742 ; in four years and cannot be built.
5229bea1
KK		 10743 #:phases
10744 (modify-phases %standard-phases
10745 ;; The build system attempts to install user interface modules to the
10746 ;; output directory of the "evolution-data-server" package. This
10747 ;; change redirects that change.
10748 (add-after 'unpack 'patch-ui-module-dir
10749 (lambda* (#:key outputs #:allow-other-keys)
10750 (substitute* "src/modules/alarm-notify/CMakeLists.txt"
10751 (("\\$\\{edsuimoduledir\\}")
10752 (string-append (assoc-ref outputs "out")
10753 "/lib/evolution-data-server/ui-modules")))
10754 #t))
10755 (add-after 'install 'glib-or-gtk-compile-schemas
10756 (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
10757 (add-after 'install 'glib-or-gtk-wrap
10758 (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
7d3bb433 10759 (native-inputs
ad6e168b 10760 `(("glib" ,glib "bin") ; glib-mkenums
7d3bb433
RW		 10761 ("pkg-config" ,pkg-config)
10762 ("intltool" ,intltool)
10763 ("itstool" ,itstool)))
10764 (inputs
10765 `(("enchant" ,enchant)
10766 ("evolution-data-server" ,evolution-data-server) ; must be the same version
10767 ("gcr" ,gcr)
ad6e168b 10768 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
7d3bb433
RW		 10769 ("gnome-autoar" ,gnome-autoar)
10770 ("gnome-desktop" ,gnome-desktop)
0662fe86 10771 ("gspell" ,gspell)
7d3bb433
RW		 10772 ("highlight" ,highlight)
10773 ("libcanberra" ,libcanberra)
10774 ("libgweather" ,libgweather)
10775 ("libnotify" ,libnotify)
10776 ("libsoup" ,libsoup)
10777 ("nss" ,nss)
10778 ("openldap" ,openldap)
10779 ("webkitgtk" ,webkitgtk)
10780 ("ytnef" ,ytnef)))
10781 (home-page "https://gitlab.gnome.org/GNOME/evolution")
10782 (synopsis "Manage your email, contacts and schedule")
10783 (description "Evolution is a personal information management application
10784that provides integrated mail, calendaring and address book
10785functionality.")
10786 ;; See COPYING for details.
23dbe621 10787 (license (list license:lgpl2.1 license:lgpl3 ; either one of these
7d3bb433 10788 license:openldap2.8 ; addressbook/gui/component/openldap-extract.h
23dbe621 10789 license:lgpl2.1+)))) ; smime/lib/*
169d63f5
AT		 10790
10791(define-public gthumb
10792 (package
10793 (name "gthumb")
8280676b 10794 (version "3.8.2")
169d63f5
AT		 10795 (source (origin
10796 (method url-fetch)
10797 (uri (string-append "mirror://gnome/sources/gthumb/"
10798 (version-major+minor version) "/"
10799 "gthumb-" version ".tar.xz"))
10800 (sha256
10801 (base32
8280676b 10802 "15wqks35ks5dm7zj046dfd45vvrilan2ayfy2sxiprv7q74cip2q"))))
169d63f5
AT		 10803 (build-system meson-build-system)
10804 (arguments
10805 `(#:glib-or-gtk? #t
10806 #:configure-flags
10807 ;; Ensure the RUNPATH contains all installed library locations.
10808 (list (string-append "-Dc_link_args=-Wl,-rpath="
10809 (assoc-ref %outputs "out")
10810 "/lib/gthumb/extensions")
10811 (string-append "-Dcpp_link_args=-Wl,-rpath="
10812 (assoc-ref %outputs "out")
10813 "/lib/gthumb/extensions"))))
10814 (native-inputs
10815 `(("pkg-config" ,pkg-config)
10816 ("glib:bin" ,glib "bin") ; for glib-compile-resources
10817 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
10818 ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
10819 ("intltool" ,intltool)
10820 ("itstool" ,itstool)))
10821 (inputs
10822 `(("exiv2" ,exiv2)
10823 ("gtk" ,gtk+)
10824 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
10825 ("gstreamer" ,gstreamer)
10826 ("clutter" ,clutter)
10827 ("clutter-gst" ,clutter-gst)
10828 ("clutter-gtk" ,clutter-gtk)
4bd428a7 10829 ("libjpeg" ,libjpeg-turbo)
169d63f5
AT		 10830 ("libtiff" ,libtiff)
10831 ("libraw" ,libraw)))
10832 (home-page "https://wiki.gnome.org/Apps/Gthumb")
10833 (synopsis "GNOME image viewer and browser")
10834 (description "GThumb is an image viewer, browser, organizer, editor and
10835advanced image management tool")
10836 (license license:gpl2+)))
08be02be
AT		 10837
10838(define-public terminator
10839 (package
10840 (name "terminator")
10841 (version "1.91")
10842 (source (origin
10843 (method url-fetch)
10844 (uri (string-append "https://launchpad.net/" name "/"
10845 "gtk3/" version "/" "+download/"
10846 name "-" version ".tar.gz"))
10847 (sha256
10848 (base32
10849 "0sdyqwydmdnh7j6mn74vrywz35m416kqsbxbrqcnv5ak08y6xxwm"))))
10850 (build-system python-build-system)
10851 (native-inputs
10852 `(("intltool" ,intltool)
10853 ("glib:bin" ,glib "bin") ; for glib-compile-resources
10854 ("gettext" ,gettext-minimal)
10855 ("pkg-config" ,pkg-config)))
10856 (inputs
10857 `(("cairo" ,cairo)
10858 ("gobject-introspection" ,gobject-introspection)
96681d4b 10859 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
08be02be
AT		 10860 ("python2-pycairo" ,python2-pycairo)
10861 ("python2-pygobject" ,python2-pygobject)
10862 ("python2-psutil" ,python2-psutil)
10863 ("vte" ,vte)))
10864 (arguments
96681d4b
TGR		 10865 `(#:python ,python-2 ; Python 3 isn't supported
10866 #:imported-modules ((guix build glib-or-gtk-build-system)
10867 ,@%python-build-system-modules)
10868 #:modules ((guix build python-build-system)
10869 ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
10870 (guix build utils))
08be02be
AT		 10871 #:phases
10872 (modify-phases %standard-phases
10873 (add-after
10874 'install 'wrap-program
10875 (lambda* (#:key outputs #:allow-other-keys)
10876 (let ((prog (string-append (assoc-ref outputs "out")
10877 "/bin/terminator")))
10878 (wrap-program prog
10879 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
10880 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
96681d4b
TGR		 10881 #t)))
10882 (add-after 'wrap-program 'glib-or-gtk-wrap
10883 (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
08be02be
AT		 10884 (home-page "https://gnometerminator.blogspot.com/")
10885 (synopsis "Store and run multiple GNOME terminals in one window")
10886 (description
10887 "Terminator allows you to run multiple GNOME terminals in a grid and
10888+tabs, and it supports drag and drop re-ordering of terminals.")
10889 (license license:gpl2)))
213315d4
JF		 10890
10891(define-public libhandy
10892 (package
10893 (name "libhandy")
c6228496 10894 (version "1.0.2")
213315d4
JF		 10895 (source
10896 (origin
10897 (method git-fetch)
10898 (uri (git-reference
355761c2
LP		 10899 (url "https://gitlab.gnome.org/GNOME/libhandy")
10900 (commit version)))
213315d4
JF		 10901 (file-name (git-file-name name version))
10902 (sha256
c6228496 10903 (base32 "1bmmkahshvlvpsnb7zp8bddv7i1h5k4p967n6kxh71g1vnj8x20m"))))
213315d4
JF		 10904 (build-system meson-build-system)
10905 (arguments
10906 `(#:configure-flags
43514b82 10907 '("-Dglade_catalog=enabled"
213315d4
JF		 10908 "-Dgtk_doc=true")
10909 #:phases
10910 (modify-phases %standard-phases
213315d4
JF		 10911 (add-before 'check 'pre-check
10912 (lambda _
10913 ;; Tests require a running X server.
10914 (system "Xvfb :1 &")
10915 (setenv "DISPLAY" ":1")
10916 #t)))))
10917 (inputs
43514b82
LP		 10918 `(("gtk+" ,gtk+)
10919 ("glade" ,glade3)
10920 ("libxml2" ,libxml2)))
213315d4
JF		 10921 (native-inputs
10922 `(("glib:bin" ,glib "bin")
10923 ("gobject-introspection" ,gobject-introspection) ; for g-ir-scanner
10924 ("vala" ,vala)
10925 ("gtk-doc" ,gtk-doc)
10926 ("pkg-config" ,pkg-config)
10927 ("gettext" ,gettext-minimal)
d41ee146
TGR		 10928
10929 ;; Test suite dependencies.
ff337525 10930 ("xorg-server" ,xorg-server-for-tests)
d41ee146 10931 ("hicolor-icon-theme" ,hicolor-icon-theme)))
f648695b 10932 (home-page "https://gitlab.gnome.org/GNOME/libhandy/")
213315d4
JF		 10933 (synopsis "Library full of GTK+ widgets for mobile phones")
10934 (description "The aim of the handy library is to help with developing user
ae4e1414
JB		 10935interfaces for mobile devices using GTK+. It provides responsive GTK+ widgets
10936for usage on small and big screens.")
213315d4 10937 (license license:lgpl2.1+)))
a830d14d 10938
a790dfe8
LP		 10939(define-public libhandy-0.0
10940 (package
10941 (inherit libhandy)
10942 (version "0.0.13")
10943 (source
10944 (origin
10945 (method git-fetch)
10946 (uri (git-reference
10947 (url "https://gitlab.gnome.org/GNOME/libhandy")
10948 (commit (string-append "v" version))))
10949 (file-name (git-file-name "libhandy" version))
10950 (sha256
43514b82
LP		 10951 (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
10952 (arguments
10953 (substitute-keyword-arguments (package-arguments libhandy)
10954 ((#:configure-flags flags)
10955 '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
a790dfe8 10956
a830d14d
GL		 10957(define-public libgit2-glib
10958 (package
10959 (name "libgit2-glib")
6448c2e1 10960 (version "0.99.0.1")
a830d14d
GL		 10961 (source (origin
10962 (method url-fetch)
10963 (uri (string-append "mirror://gnome/sources/" name "/"
10964 (version-major+minor version) "/"
10965 name "-" version ".tar.xz"))
10966 (sha256
10967 (base32
6448c2e1 10968 "1pmrcnsa7qdda73c3dxf47733mwprmj5ljpw3acxbj6r8k27anp0"))))
a830d14d
GL		 10969 (build-system meson-build-system)
10970 (native-inputs
10971 `(("glib:bin" ,glib "bin") ;; For glib-mkenums
10972 ("gobject-introspection" ,gobject-introspection)
a830d14d
GL		 10973 ("pkg-config" ,pkg-config)
10974 ("python-pygobject" ,python-pygobject)
10975 ("python-wrapper" ,python-wrapper)
10976 ("vala" ,vala)))
10977 (inputs
10978 `(("glib" ,glib)
8c6aae46
MB		 10979 ("libssh2" ,libssh2)))
10980 (propagated-inputs
10981 `(;; In Requires of libgit2-glib.pc.
a830d14d
GL		 10982 ("libgit2" ,libgit2)))
10983 (synopsis "GLib wrapper around the libgit2 Git access library")
10984 (description "libgit2-glib is a GLib wrapper library around the libgit2 Git
10985access library. It only implements the core plumbing functions, not really the
10986higher level porcelain stuff.")
10987 (home-page "https://wiki.gnome.org/Projects/Libgit2-glib")
10988 (license license:gpl2+)))
93beace0 10989
08db81c9
LP		 10990(define-public gitg
10991 (package
10992 (name "gitg")
10993 (version "3.32.1")
10994 (source (origin
10995 (method url-fetch)
10996 (uri (string-append "mirror://gnome/sources/" name "/"
10997 (version-major+minor version) "/"
10998 name "-" version ".tar.xz"))
10999 (sha256
11000 (base32
11001 "0npg4kqpwl992fgjd2cn3fh84aiwpdp9kd8z7rw2xaj2iazsm914"))))
11002 (build-system meson-build-system)
11003 (arguments
11004 `(#:glib-or-gtk? #t
11005 #:phases
11006 (modify-phases %standard-phases
11007 (add-after 'unpack 'disable-post-install-partially
11008 (lambda _
11009 (substitute* "meson_post_install.py"
11010 (("'python'") ; there are no python sources to compile
11011 (string-append "'" (which "true") "'"))
11012 (("gtk-update-icon-cache") (which "true")))
11013 #t))
11014 (add-after 'unpack 'fix-test-sources
11015 (lambda _
11016 (substitute* "tests/libgitg/test-commit.vala"
11017 (("/bin/bash") (which "bash")))
11018 #t))
11019 (add-after 'glib-or-gtk-wrap 'wrap-typelib
11020 (lambda* (#:key outputs #:allow-other-keys)
11021 (let ((prog (string-append (assoc-ref outputs "out")
11022 "/bin/gitg")))
11023 (wrap-program prog
11024 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11025 #t))))))
11026 (inputs
11027 `(("glib" ,glib)
11028 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11029 ("gtk+" ,gtk+)
11030 ("gtkspell3" ,gtkspell3)
11031 ("gtksourceview" ,gtksourceview-3)
11032 ("json-glib" ,json-glib)
11033 ("libdazzle" ,libdazzle)
11034 ("libgee" ,libgee)
08db81c9
LP		 11035 ("libgit2-glib" ,libgit2-glib)
11036 ("libpeas" ,libpeas)
11037 ("libsecret" ,libsecret)
11038 ("libsoup" ,libsoup)
11039 ("libxml2" ,libxml2)))
11040 (native-inputs
11041 `(("glib:bin" ,glib "bin")
11042 ("gtk+:bin" ,gtk+ "bin")
11043 ("gobject-introspection" ,gobject-introspection)
11044 ("intltool" ,intltool)
11045 ("pkg-config" ,pkg-config)
11046 ("vala" ,vala)))
11047 (synopsis "Graphical user interface for git")
11048 (description
11049 "gitg is a graphical user interface for git. It aims at being a small,
11050fast and convenient tool to visualize the history of git repositories.
11051Besides visualization, gitg also provides several utilities to manage your
11052repository and commit your work.")
11053 (home-page "https://wiki.gnome.org/Apps/Gitg")
11054 (license license:gpl2+)))
11055
1e600ed0
RW		 11056(define-public gamin
11057 (package
11058 (name "gamin")
11059 (version "0.1.10")
11060 (source (origin
11061 (method url-fetch)
11062 (uri (string-append "mirror://gnome/sources/" name "/"
11063 (version-major+minor version) "/"
11064 name "-" version ".tar.bz2"))
11065 (sha256
11066 (base32
11067 "02n1zr9y8q9lyczhcz0nxar1vmf8p2mmbw8kq0v43wg21jr4i6d5"))))
11068 (build-system gnu-build-system)
11069 (arguments
11070 `(#:phases
11071 (modify-phases %standard-phases
11072 (add-after 'unpack 'remove-deprecated-macro
11073 (lambda _
11074 (substitute* '("server/gam_node.c"
11075 "server/gam_subscription.h"
11076 "server/gam_node.h"
11077 "server/gam_subscription.c")
11078 (("G_CONST_RETURN") "const"))
11079 #t)))))
11080 (inputs
11081 `(("glib" ,glib)))
11082 (native-inputs
11083 `(("intltool" ,intltool)
11084 ("pkg-config" ,pkg-config)))
11085 (home-page "https://people.gnome.org/~veillard/gamin/")
11086 (synopsis "File alteration monitor")
11087 (description
11088 "Gamin is a file and directory monitoring system defined to be a subset
11089of the FAM (File Alteration Monitor) system. This is a service provided by a
bddd877f 11090library which detects when a file or a directory has been modified.")
1e600ed0
RW		 11091 (license license:gpl2+)))
11092
93beace0
DW		 11093(define-public gnome-mahjongg
11094 (package
11095 (name "gnome-mahjongg")
11096 (version "3.35.1")
11097 (source (origin
11098 (method git-fetch)
11099 (uri (git-reference
11100 (url "https://gitlab.gnome.org/GNOME/gnome-mahjongg.git")
11101 (commit version)))
11102 (file-name (git-file-name name version))
11103 (sha256
11104 (base32
11105 "019a66a4m5w4kkb0sm6gxj0wi54n06zdxdlmyqw7h8kbakjizv7l"))))
11106 (build-system meson-build-system)
11107 (arguments
11108 `(#:glib-or-gtk? #t))
11109 (native-inputs
11110 `(("appstream-glib" ,appstream-glib)
11111 ("gettext" ,gettext-minimal)
11112 ("glib:bin" ,glib "bin") ;; For glib-compile-resources
11113 ("gtk+" ,gtk+ "bin") ;; For gtk-update-icon-cache
11114 ("itstool" ,itstool)
11115 ("pkg-config" ,pkg-config)
11116 ("vala" ,vala)))
11117 (propagated-inputs
11118 `(("dconf" ,dconf)))
11119 (inputs
11120 `(("glib" ,glib)
11121 ("gtk+" ,gtk+)
11122 ("librsvg" ,librsvg)))
11123 (synopsis "Mahjongg tile-matching game")
11124 (description "GNOME Mahjongg is a game based on the classic Chinese
11125tile-matching game Mahjong. It features multiple board layouts, tile themes,
11126and a high score table.")
11127 (home-page "https://wiki.gnome.org/Apps/Mahjongg")
11128 (license license:gpl2+)))
f825476c 11129
76ea7632
RG		 11130(define-public gnome-themes-extra
11131 (package
11132 (name "gnome-themes-extra")
11133 (version "3.28")
11134 (source
11135 (origin
11136 (method url-fetch)
11137 (uri (string-append "mirror://gnome/sources/" name "/"
11138 (version-major+minor version) "/" name "-"
11139 version ".tar.xz"))
11140 (sha256
11141 (base32
11142 "06aqg9asq2vqi9wr29bs4v8z2bf4manhbhfghf4nvw01y2zs0jvw"))))
11143 (build-system gnu-build-system)
885424bf
RG		 11144 (arguments
11145 '(#:configure-flags
11146 ;; Don't create 'icon-theme.cache'.
11147 (let* ((coreutils (assoc-ref %build-inputs "coreutils"))
11148 (true (string-append coreutils "/bin/true")))
11149 (list (string-append "GTK_UPDATE_ICON_CACHE=" true)))))
76ea7632
RG		 11150 (native-inputs
11151 `(("glib:bin" ,glib "bin")
11152 ("intltool" ,intltool)
11153 ("pkg-config" ,pkg-config)))
11154 (inputs
11155 `(("glib" ,glib)
11156 ("gtk+" ,gtk+)
11157 ("gtk+-2" ,gtk+-2)
11158 ("librsvg" ,librsvg)
11159 ("libxml2" ,libxml2)))
11160 (home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
11161 (synopsis "GNOME Extra Themes")
11162 (description "This package provides themes and related elements that don't
11163really fit in other upstream packages. It offers legacy support for GTK+ 2
11164versions of Adwaita, Adwaita-dark and HighContrast themes. It also provides
11165index files needed for Adwaita to be used outside of GNOME.")
11166 (license license:lgpl2.1+)))
11167
203cf9d6
VM		 11168(define-public gnote
11169 (package
11170 (name "gnote")
11171 (version "3.38.0")
11172 (source
11173 (origin
11174 (method url-fetch)
11175 (uri (string-append "mirror://gnome/sources/" name "/"
11176 (version-major+minor version) "/"
11177 "gnote-" version ".tar.xz"))
11178 (sha256
11179 (base32 "1ingbaw4d8vpjn083xvzqw7kz8z0k2bx7msk78pbzd68bwgkadpx"))))
11180 (build-system glib-or-gtk-build-system)
11181 (native-inputs
11182 `(("desktop-file-utils" ,desktop-file-utils)
11183 ("glib:bin" ,glib "bin")
11184 ("gobject-introspection" ,gobject-introspection)
11185 ("intltool" ,intltool)
11186 ("itstool" ,itstool)
11187 ("pkg-config" ,pkg-config)
11188 ("unittest-cpp" ,unittest-cpp))) ;FIXME: not found by pkg-config
11189 (inputs
11190 `(("glibmm" ,glibmm)
11191 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11192 ("gspell" ,gspell)
11193 ("gtk+" ,gtk+)
11194 ("gtkmm" ,gtkmm)
11195 ("libsecret" ,libsecret)
11196 ("libuuid" ,util-linux "lib")
11197 ("libxml2" ,libxml2)
11198 ("libxslt" ,libxslt)))
11199 (synopsis "Note-taking application for the GNOME desktop")
11200 (description
11201 "Gnote is a note-taking application written for the GNOME desktop
11202environment.")
11203 (home-page "https://wiki.gnome.org/Apps/Gnote")
11204 (license license:gpl3+)))
11205
f825476c
LP		 11206(define-public polari
11207 (package
11208 (name "polari")
c6a7ae4f 11209 (version "3.36.3")
f825476c
LP		 11210 (source (origin
11211 (method url-fetch)
11212 (uri (string-append "mirror://gnome/sources/polari/"
11213 (version-major+minor version)
11214 "/polari-" version ".tar.xz"))
11215 (sha256
11216 (base32
c6a7ae4f 11217 "0fpmrvhd40yay051bzn4x3gsrzdv42nav0pm5ps0np8wk1z689jg"))))
f825476c
LP		 11218 (build-system meson-build-system)
11219 (arguments
11220 `(#:glib-or-gtk? #t
11221 #:phases
11222 (modify-phases %standard-phases
11223 (add-after 'unpack 'skip-gtk-update-icon-cache
11224 (lambda _
11225 (substitute* "meson/meson-postinstall.sh"
11226 (("gtk-update-icon-cache") (which "true")))
11227 #t))
11228 (add-after 'glib-or-gtk-wrap 'wrap-typelib
11229 (lambda* (#:key outputs #:allow-other-keys)
11230 (let ((prog (string-append (assoc-ref outputs "out")
11231 "/bin/polari")))
11232 (wrap-program prog
11233 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11234 #t))))))
11235 (inputs
11236 `(("glib" ,glib)
11237 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11238 ("gspell" ,gspell)
11239 ("gtk+" ,gtk+)
11240 ("gjs" ,gjs)
11241 ("libsecret" ,libsecret)
11242 ("libsoup" ,libsoup)
11243 ("telepathy-glib" ,telepathy-glib)
11244 ("telepathy-logger" ,telepathy-logger)))
11245 (native-inputs
11246 `(("glib:bin" ,glib "bin")
11247 ("gobject-introspection" ,gobject-introspection)
11248 ("intltool" ,intltool)
11249 ("pkg-config" ,pkg-config)
11250 ("yelp-tools" ,yelp-tools)))
11251 (propagated-inputs
11252 `(("telepathy-idle" ,telepathy-idle)
11253 ("telepathy-mission-control" ,telepathy-mission-control)))
11254 (synopsis "Simple IRC Client")
11255 (description
11256 "Polari is a simple Internet Relay Chat (IRC) client that is designed to
11257integrate seamlessly with the GNOME desktop.")
11258 (home-page "https://wiki.gnome.org/Apps/Polari")
11259 (license license:gpl2+)))
59d4c8c2
PN		 11260
11261(define-public gnome-boxes
11262 (package
11263 (name "gnome-boxes")
915c2ad3 11264 (version "3.36.6")
59d4c8c2
PN		 11265 (source
11266 (origin
11267 (method url-fetch)
11268 (uri (string-append "mirror://gnome/sources/gnome-boxes/"
11269 (version-major+minor version) "/"
11270 "gnome-boxes-" version ".tar.xz"))
11271 (sha256
915c2ad3 11272 (base32 "0c3cw90xqqcpacc2z06ljs0gg8saxizfgjzg9alhpwgz3gl4c5pg"))))
59d4c8c2
PN		 11273 (build-system meson-build-system)
11274 (arguments
11275 '(#:glib-or-gtk? #t
11276 #:configure-flags (list "-Drdp=false"
11277 (string-append "-Dc_link_args=-Wl,-rpath="
11278 (assoc-ref %outputs "out")
11279 "/lib/gnome-boxes"))))
11280 (native-inputs
11281 `(("glib:bin" ,glib "bin") ; for glib-compile-resources
11282 ("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
11283 ("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
11284 ("itstool" ,itstool)
11285 ("intltool" ,intltool)
11286 ("vala" ,vala)
11287 ("pkg-config" ,pkg-config)))
11288 (inputs
11289 `(("libarchive" ,libarchive)
f0d7897e
MC		 11290 ("glib-networking" ,glib-networking) ;for TLS support
11291 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
59d4c8c2
PN		 11292 ("gtk" ,gtk+)
11293 ("gtk-vnc" ,gtk-vnc)
11294 ("libosinfo" ,libosinfo)
11295 ("libsecret" ,libsecret)
11296 ("libsoup" ,libsoup)
11297 ("libusb" ,libusb)
11298 ("libvirt" ,libvirt)
11299 ("libvirt-glib" ,libvirt-glib)
11300 ("libxml" ,libxml2)
11301 ("spice-gtk" ,spice-gtk)
11302 ("sparql-query" ,sparql-query)
11303 ("vte" ,vte)
11304 ("webkitgtk" ,webkitgtk)
11305 ("tracker" ,tracker)
11306 ("libgudev" ,libgudev)))
11307 (home-page "https://wiki.gnome.org/Apps/Boxes")
11308 (synopsis "View, access, and manage remote and virtual systems")
11309 (description "GNOME Boxes is a simple application to view, access, and
f0d7897e
MC		 11310manage remote and virtual systems. Note that this application requires the
11311@code{libvirt} and @code{virtlog} daemons to run. Use the command
11312@command{info '(guix) Virtualization Services'} to learn how to configure
11313these services on the Guix System.")
59d4c8c2
PN		 11314 (license (list
11315 ;; For data/icons/empty-boxes.png.
11316 license:cc-by2.0
11317 ;; For all others.
11318 license:lgpl2.0+))))
0e26c3cf 11319
11320(define-public geary
11321 (package
11322 (name "geary")
11323 (version "3.34.1")
11324 (source (origin
11325 (method git-fetch)
11326 (uri (git-reference
11327 (url "https://gitlab.gnome.org/GNOME/geary")
11328 (commit version)))
11329 (file-name (git-file-name name version))
11330 (sha256
11331 (base32
11332 "01cc921kyh3zxz07biqbdzkjgmdcc36kwjyajm4y382a75cl5zg7"))))
11333 (build-system meson-build-system)
11334 (arguments
11335 `(#:glib-or-gtk? #t
11336 #:phases (modify-phases %standard-phases
11337 (add-after 'unpack 'disable-failing-tests
11338 (lambda _
11339 (substitute* "test/meson.build"
11340 (("test\\('client-tests', geary_test_client_bin\\)")
11341 ""))
11342 #t))
11343 (add-after 'unpack 'disable-postinstall-script
11344 (lambda _
11345 (substitute* "meson.build"
11346 (("meson.add_install_script\\(\
11347join_paths\\('build-aux', 'post_install.py'\\)\\)")
11348 ""))
11349 #t))
11350 (add-before 'check 'setup-xvfb
11351 (lambda _
11352 (system "Xvfb :1 &")
11353 (setenv "DISPLAY" ":1")
11354 #t)))))
11355 (inputs
11356 `(("enchant" ,enchant)
11357 ("folks" ,folks)
11358 ("gcr" ,gcr)
11359 ("glib" ,glib)
11360 ("gmime" ,gmime-2.6)
11361 ("gnome-online-accounts:lib"
11362 ,gnome-online-accounts "lib")
11363 ("gspell" ,gspell)
11364 ("gtk+" ,gtk+)
11365 ("iso-codes" ,iso-codes)
11366 ("json-glib" ,json-glib)
11367 ("libcanberra" ,libcanberra)
11368 ("libgee" ,libgee)
a790dfe8 11369 ("libhandy" ,libhandy-0.0)
0e26c3cf 11370 ("libpeas" ,libpeas)
11371 ("libsecret" ,libsecret)
11372 ("libunwind" ,libunwind)
11373 ("sqlite" ,sqlite)
11374 ("webkitgtk" ,webkitgtk)
11375 ("ytnef" ,ytnef)))
11376 (native-inputs
11377 `(("appstream-glib" ,appstream-glib)
11378 ("cmake-minimal" ,cmake-minimal)
11379 ("desktop-file-utils" ,desktop-file-utils)
f2d97d57 11380 ("gettext" ,gettext-minimal)
0e26c3cf 11381 ("glib:bin" ,glib "bin")
11382 ("gobject-introspection" ,gobject-introspection)
11383 ("itstool" ,itstool)
11384 ("libarchive" ,libarchive)
11385 ("libxml2" ,libxml2)
11386 ("pkg-config" ,pkg-config)
11387 ("vala" ,vala)
11388 ("xvfb" ,xorg-server-for-tests)))
11389 (synopsis "GNOME email application built around conversations")
11390 (description
11391 "Geary collects related messages together into conversations,
11392making it easy to find and follow your discussions. Full-text and keyword
11393search makes it easy to find the email you are looking for. Geary's
11394full-featured composer lets you send rich, styled text with images, links, and
11395lists, but also send lightweight, easy to read text messages. Geary
11396automatically picks up your existing GNOME Online Accounts, and adding more is
11397easy. Geary has a clean, fast, modern interface that works like you want it
11398to.")
11399 (home-page "https://wiki.gnome.org/Apps/Geary")
11400 (license (list
11401 ;; geary
11402 license:lgpl2.1+
11403 ;; icons
11404 license:cc-by3.0
11405 license:cc-by-sa3.0
11406 license:public-domain
11407 ;; snowball
11408 license:bsd-2))))
1a17d21b 11409
21051eb7
VM		 11410(define-public glabels
11411 (package
11412 (name "glabels")
11413 (version "3.4.1")
11414 (source
11415 (origin
11416 (method url-fetch)
11417 (uri (string-append "mirror://gnome/sources/" name "/"
11418 (version-major+minor version) "/"
11419 "glabels-" version ".tar.xz"))
11420 (sha256
11421 (base32 "0f2rki8i27pkd9r0gz03cdl1g4vnmvp0j49nhxqn275vi8lmgr0q"))))
11422 (build-system glib-or-gtk-build-system)
11423 (native-inputs
11424 `(("gettext" ,gettext-minimal)
11425 ("glib:bin" ,glib "bin")
11426 ("intltool" ,intltool)
11427 ("itstool" ,itstool)
11428 ("pkg-config" ,pkg-config)))
11429 (inputs
11430 `(("gtk+" ,gtk+)
11431 ("librsvg" ,librsvg)
11432 ("libxml2" ,libxml2)))
11433 (home-page "https://glabels.org/")
11434 (synopsis "Program for creating labels and business cards")
11435 (description
11436 "gLabels is a program for creating labels and business cards. It is
11437designed to work with various laser/ink-jet peel-off label and business
11438card sheets that you’ll find at most office supply stores.")
11439 (license license:gpl3+)))
11440
7075082f
VM		 11441;; Version 3.38.0 is out but requires tepl>=5 which requires glib>=2.64.
11442(define-public gnome-latex
11443 (package
11444 (name "gnome-latex")
11445 (version "3.36.0")
11446 (source
11447 (origin
11448 (method url-fetch)
11449 (uri (string-append "mirror://gnome/sources/" name "/"
11450 (version-major+minor version) "/"
11451 "gnome-latex-" version ".tar.xz"))
11452 (sha256
11453 (base32 "1869kr1zhcp04mzbi67lwgk497w840dbbc7427i9yh9b9s7j6mqn"))))
11454 (build-system glib-or-gtk-build-system)
11455 (native-inputs
11456 `(("gettext" ,gettext-minimal)
11457 ("glib:bin" ,glib "bin")
11458 ("gobject-introspection" ,gobject-introspection)
11459 ("gtk-doc" ,gtk-doc)
11460 ("intltool" ,intltool)
11461 ("itstool" ,itstool)
11462 ("pkg-config" ,pkg-config)
11463 ("vala" ,vala)))
11464 (inputs
11465 `(("amtk" ,amtk)
11466 ("dconf" ,dconf)
11467 ("glib" ,glib)
11468 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11469 ("gspell" ,gspell)
11470 ("gtk+" ,gtk+)
11471 ("gtksourceview" ,gtksourceview)
11472 ("libgee" ,libgee)
11473 ("tepl" ,tepl)
11474 ("uchardet" ,uchardet)))
11475 (home-page "https://wiki.gnome.org/Apps/GNOME-LaTeX")
11476 (synopsis "LaTeX editor for the GNOME desktop")
11477 (description
11478 "GNOME LaTeX is a LaTeX editor for the GNOME desktop. It has features
11479such as build tools, completion of LaTeX commands, structure navigation,
11480symbol tables, document templates, project management, spell-checking, menus
11481and toolbars.")
11482 (license license:gpl3+)))
11483
b10d38ef
VM		 11484(define-public setzer
11485 (package
11486 (name "setzer")
3f849e7e 11487 (version "0.3.6")
b10d38ef
VM		 11488 (source
11489 (origin
11490 (method git-fetch)
11491 (uri (git-reference
11492 (url "https://github.com/cvfosammmm/Setzer")
11493 (commit (string-append "v" version))))
11494 (file-name (git-file-name name version))
11495 (sha256
3f849e7e 11496 (base32 "118gip6bv4mcsq4nrai7kl0vmqqbyzpsd4ky9vhxb1x2cvg048s8"))))
b10d38ef
VM		 11497 (build-system meson-build-system)
11498 (arguments
11499 `(#:glib-or-gtk? #t
11500 #:phases
11501 (modify-phases %standard-phases
11502 (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11503 (lambda* (#:key outputs #:allow-other-keys)
11504 (let ((prog (string-append (assoc-ref outputs "out")
11505 "/bin/setzer"))
11506 (pylib (string-append (assoc-ref outputs "out")
11507 "/lib/python"
11508 ,(version-major+minor
11509 (package-version python))
11510 "/site-packages")))
11511 (wrap-program prog
11512 `("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
11513 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11514 #t))))))
11515 (native-inputs
11516 `(("desktop-file-utils" ,desktop-file-utils)
11517 ("gettext" ,gettext-minimal)
11518 ("glib:bin" ,glib "bin")
11519 ("gobject-introspection" ,gobject-introspection)
11520 ("gtk+:bin" ,gtk+ "bin")))
11521 (inputs
11522 `(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
11523 ("gspell" ,gspell)
11524 ("gtk+" ,gtk+)
11525 ("gtksourceview" ,gtksourceview)
11526 ("pango" ,pango)
11527 ("poppler" ,poppler)
11528 ("python-pycairo" ,python-pycairo)
11529 ("python-pygobject" ,python-pygobject)
11530 ("python-pyxdg" ,python-pyxdg)
11531 ("webkitgtk" ,webkitgtk)
11532 ("xdg-utils" ,xdg-utils)))
11533 (home-page "https://www.cvfosammmm.org/setzer/")
11534 (synopsis "LaTeX editor written in Python with GTK+")
11535 (description
11536 "Setzer is a simple yet full-featured LaTeX editor written in Python with
11537GTK+. It integrates well with the GNOME desktop environment.")
11538 (license license:gpl3+)))
11539
2cd1de32
BT		 11540(define-public libratbag
11541 (package
11542 (name "libratbag")
34036792 11543 (version "0.14")
2cd1de32
BT		 11544 (source
11545 (origin
11546 (method git-fetch)
11547 (uri (git-reference
b0e7b699 11548 (url "https://github.com/libratbag/libratbag")
2cd1de32
BT		 11549 (commit (string-append "v" version))))
11550 (file-name (git-file-name name version))
11551 (sha256
34036792 11552 (base32 "1fpwp2sj8mf98bqasq2h8qwgprxi7k3iw33gcfid3d1lbyiacw0x"))))
2cd1de32
BT		 11553 (build-system meson-build-system)
11554 (arguments
11555 `(#:configure-flags
11556 (list "-Dsystemd=false"
11557 "-Dlogind-provider=elogind")
11558 #:phases
11559 (modify-phases %standard-phases
11560 (add-after 'install 'wrap
11561 (lambda* (#:key inputs outputs #:allow-other-keys)
11562 (let* ((out (assoc-ref outputs "out"))
11563 (site (string-append
11564 "/lib/python"
11565 ,(version-major+minor (package-version python))
11566 "/site-packages"))
11567 (evdev (string-append
11568 (assoc-ref inputs "python-evdev") site))
11569 (pygo (string-append
11570 (assoc-ref inputs "python-pygobject") site))
11571 (python-wrap
11572 `("PYTHONPATH" = (,evdev ,pygo))))
11573 (wrap-program (string-append out "/bin/" "ratbagctl")
11574 python-wrap)
11575 #t))))))
11576 (native-inputs
11577 `(("check" ,check)
11578 ("pkg-config" ,pkg-config)
11579 ("swig" ,swig)
11580 ("valgrind" ,valgrind)))
11581 (inputs
11582 `(("glib" ,glib)
11583 ("json-glib" ,json-glib)
11584 ("libevdev" ,libevdev)
11585 ("libsystemd" ,elogind)
11586 ("libunistring" ,libunistring)
11587 ("python-evdev" ,python-evdev)
11588 ("python-pygobject" ,python-pygobject)
11589 ("udev" ,eudev)))
11590 (home-page "https://github.com/libratbag/libratbag")
11591 (synopsis "DBus daemon and utility for configuring gaming mice")
11592 (description "libratbag provides @command{ratbagd}, a DBus daemon to
11593configure input devices, mainly gaming mice. The daemon provides a generic
11594way to access the various features exposed by these mice and abstracts away
11595hardware-specific and kernel-specific quirks. There is also the
11596@command{ratbagctl} command line interface for configuring devices.
11597
11598libratbag currently supports devices from Logitech, Etekcity, GSkill, Roccat,
11599Steelseries.
11600
11601The ratbagd DBus service can be enabled by adding the following service to
11602your operating-system definition:
11603
11604 (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11605 (license license:expat)))
11606
50d31a40
BT		 11607(define-public piper
11608 (package
11609 (name "piper")
d8e83969 11610 (version "0.5.1")
50d31a40
BT		 11611 (source
11612 (origin
11613 (method git-fetch)
11614 (uri (git-reference
b0e7b699 11615 (url "https://github.com/libratbag/piper")
50d31a40
BT		 11616 (commit version)))
11617 (sha256
d8e83969 11618 (base32 "1nfjnsiwg2rs6gkjsxzhr2708i6di149dgwq3cf6l12rxqpb8arj"))
81af0de9 11619 (file-name (git-file-name name version))))
50d31a40
BT		 11620 (build-system meson-build-system)
11621 (native-inputs
11622 `(("gettext" ,gettext-minimal)
11623 ("glib:bin" ,glib "bin")
11624 ("gobject-introspection" ,gobject-introspection)
11625 ("pkg-config" ,pkg-config)
11626 ("python-flake8" ,python-flake8)))
11627 (inputs
11628 `(("adwaita-icon-theme" ,adwaita-icon-theme)
11629 ("gtk" ,gtk+)
11630 ("gtk:bin" ,gtk+ "bin")
11631 ("librsvg" ,librsvg)
11632 ("python-evdev" ,python-evdev)
11633 ("python-lxml" ,python-lxml)
11634 ("python-pycairo" ,python-pycairo)
11635 ("python-pygobject" ,python-pygobject)))
11636 (arguments
11637 `(#:imported-modules ((guix build python-build-system)
11638 ,@%meson-build-system-modules)
11639 #:modules (((guix build python-build-system) #:prefix python:)
11640 (guix build meson-build-system)
11641 (guix build utils))
d8e83969 11642 #:tests? #f ;; The flake8 test fails trying to validate piper.in as code.
50d31a40
BT		 11643 #:phases
11644 (modify-phases %standard-phases
11645 (add-after 'unpack 'dont-update-gtk-icon-cache
11646 (lambda _
11647 (substitute* "meson.build"
11648 (("meson.add_install_script('meson_install.sh')") ""))
11649 #t))
11650 ;; TODO: Switch to wrap-script when it is fixed.
11651 (add-after 'install 'wrap-python
11652 (assoc-ref python:%standard-phases 'wrap))
11653 (add-after 'wrap-python 'wrap
11654 (lambda* (#:key outputs #:allow-other-keys)
11655 (wrap-program
11656 (string-append (assoc-ref outputs "out" )"/bin/piper")
11657 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11658 #t)))))
11659 (home-page "https://github.com/libratbag/piper/")
11660 (synopsis "Configure bindings and LEDs on gaming mice")
11661 (description "Piper is a GTK+ application for configuring gaming mice with
11662onboard configuration for key bindings via libratbag. Piper requires
11663a @command{ratbagd} daemon running with root privileges. It can be run
11664manually as root, but is preferably configured as a DBus service that can
11665launch on demand. This can be configured by enabling the following service,
11666provided there is a DBus service present:
11667
11668 (simple-service 'ratbagd dbus-root-service-type (list libratbag))")
11669 (license license:gpl2)))
11670
1a17d21b 11671(define-public parlatype
c10fb9fd
NG		 11672 (package
11673 (name "parlatype")
11674 (version "2.1")
11675 (source
11676 (origin
11677 (method git-fetch)
11678 (uri (git-reference
8ed4c468 11679 (url "https://github.com/gkarsay/parlatype")
c10fb9fd
NG		 11680 (commit (string-append "v" version))))
11681 (file-name (git-file-name name version))
11682 (sha256
11683 (base32 "1c15ja0rwz3jj8bnqdq0nmqka39iwrhy8krdv2a2x8nl4shfpmv0"))))
11684 (build-system meson-build-system)
11685 (arguments
11686 `(#:glib-or-gtk? #t
11687 #:tests? #f ;require internet access
11688 #:phases
11689 (modify-phases %standard-phases
11690 (add-after 'install 'wrap-parlatype
11691 ;; Add gstreamer plugin provided in this package to system's
11692 ;; plugins.
11693 (lambda* (#:key outputs #:allow-other-keys)
11694 (let* ((out (assoc-ref outputs "out"))
11695 (gst-plugin-path (string-append
11696 out "/lib/gstreamer-1.0/"
11697 ":"
11698 (getenv "GST_PLUGIN_SYSTEM_PATH"))))
11699 (wrap-program (string-append out "/bin/parlatype")
11700 `("GST_PLUGIN_SYSTEM_PATH" ":" = (,gst-plugin-path))))
11701 #t)))))
11702 (native-inputs
11703 `(("appstream-glib" ,appstream-glib)
11704 ("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11705 ("gettext" ,gettext-minimal)
11706 ("glib" ,glib "bin") ;for glib-compile-resources
11707 ("pkg-config" ,pkg-config)
11708 ("yelp-tools" ,yelp-tools)))
11709 (inputs
11710 `(("gst-plugins-base" ,gst-plugins-base)
11711 ("gst-plugins-good" ,gst-plugins-good)
11712 ("gstreamer" ,gstreamer)
11713 ("gtk+" ,gtk+)
11714 ("pocketsphinx" ,pocketsphinx)
11715 ("pulseaudio" ,pulseaudio)
11716 ("sphinxbase" ,sphinxbase)))
11717 (home-page "http://gkarsay.github.io/parlatype/")
11718 (synopsis "GNOME audio player for transcription")
11719 (description "Parlatype is an audio player for the GNOME desktop
1a17d21b
NG		 11720environment. Its main purpose is the manual transcription of spoken
11721audio files.")
c10fb9fd 11722 (license license:gpl3+)))
95856a6e
AT		 11723
11724(define-public jsonrpc-glib
11725 (package
11726 (name "jsonrpc-glib")
11727 (version "3.34.0")
11728 (source (origin
11729 (method url-fetch)
11730 (uri (string-append "mirror://gnome/sources/" name "/"
11731 (version-major+minor version) "/"
11732 name "-" version ".tar.xz"))
11733 (sha256
11734 (base32
11735 "0j05x4xv2cp3cbmp30m68z8g4rdw7b030ip4wszyfj9ya15v5kni"))))
11736 (build-system meson-build-system)
11737 (inputs
11738 `(("json-glib" ,json-glib)
11739 ("glib" ,glib)))
11740 (native-inputs
11741 `(("pkg-config" ,pkg-config)
11742 ("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
11743 ("gobject-introspection" ,gobject-introspection)
11744 ("vala" ,vala)))
11745 (home-page "https://gitlab.gnome.org/GNOME/jsonrpc-glib")
11746 (synopsis "JSON-RPC library for GLib")
11747 (description "Jsonrpc-GLib is a library to communicate with JSON-RPC based
11748peers in either a synchronous or asynchronous fashion. It also allows
11749communicating using the GVariant serialization format instead of JSON when
11750both peers support it. You might want that when communicating on a single
11751host to avoid parser overhead and memory-allocator fragmentation.")
11752 (license license:lgpl2.1+)))
0faed399
JB		 11753
11754(define-public feedbackd
11755 (package
11756 (name "feedbackd")
11757 (version "0.0.0+git20200527")
11758 (source (origin
11759 (method git-fetch)
11760 (uri (git-reference
11761 (url "https://source.puri.sm/Librem5/feedbackd.git")
11762 (commit (string-append "v" version))))
11763 (file-name (git-file-name name version))
11764 (sha256
11765 (base32
11766 "1wbkzxnqjydfgjvp7vz4ghczcz740zcb1yn90cb6gb5md4n6qx2y"))))
11767 (build-system meson-build-system)
11768 (native-inputs
11769 `(("glib:bin" ,glib "bin")
11770 ("gobject-introspection" ,gobject-introspection)
11771 ("pkg-config" ,pkg-config)
11772 ("vala" ,vala)))
11773 (inputs
11774 `(("dbus" ,dbus)
11775 ("gsound" ,gsound)
11776 ("json-glib" ,json-glib)
11777 ("libgudev" ,libgudev)))
11778 (propagated-inputs
11779 `(("glib" ,glib))) ; in Requires of libfeedback-0.0.pc
11780 (synopsis "Haptic/visual/audio feedback via DBus")
11781 (description "Feedbackd provides a DBus daemon to act on events to provide
11782haptic, visual and audio feedback. It offers the libfeedbackd library and
11783GObject introspection bindings.")
11784 (home-page "https://source.puri.sm/Librem5/feedbackd")
11785 (license (list license:lgpl2.1+ ; libfeedbackd
11786 license:lgpl3+)))) ; the rest
dcb4f7b7
LP		 11787
11788(define-public sysprof
11789 (package
11790 (name "sysprof")
f9812690
TGR		 11791 (version "3.36.0")
11792 (source
11793 (origin
11794 (method url-fetch)
11795 (uri (string-append "mirror://gnome/sources/sysprof/"
11796 (version-major+minor version) "/"
11797 "sysprof-" version ".tar.xz"))
11798 (sha256
11799 (base32 "024i0gzqnm79rpr4gqxdvcj6gvf82xdlcp2p1k9ikcppmi6xnw46"))))
dcb4f7b7
LP		 11800 (build-system meson-build-system)
11801 (arguments
11802 `(#:configure-flags
11803 (list (string-append "-Dsystemdunitdir="
11804 %output
11805 "/share/systemd"))
11806 #:tests? #f ; 3/4 test-model-filter barfs some dbus nonsense
11807 #:phases
11808 (modify-phases %standard-phases
11809 (add-after 'unpack 'patch-install-script
11810 (lambda _
11811 (substitute* "build-aux/meson/post_install.sh"
11812 (("gtk-update-icon-cache") "true")
11813 (("update-desktop-database") "true"))
11814 #t)))))
11815 (inputs
11816 `(("glib" ,glib)
11817 ("gtk+" ,gtk+)
11818 ("libdazzle" ,libdazzle)
11819 ("polkit" ,polkit)))
11820 (native-inputs
11821 `(("gettext" ,gettext-minimal)
11822 ("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
11823 ("itstool" ,itstool)
11824 ("pkg-config" ,pkg-config)
11825 ("xmllint" ,libxml2)))
b478c9b0
TGR		 11826 ;; This home page is so woefully out of date as to be essentially useless.
11827 ;; (home-page "http://www.sysprof.com")
11828 (home-page "https://wiki.gnome.org/Apps/Sysprof")
95cd53c1
TGR		 11829 (synopsis "System-wide performance profiler for GNU/Linux")
11830 (description
11831 "Sysprof performs detailed, accurate, and fast CPU profiling of an entire
11832GNU/Linux system including the kernel and all user-space applications. This
11833helps find the function(s) in which a program spends most of its time.
11834
11835It uses the kernel's built-in @code{ptrace} feature and handles shared
11836libraries. Applications do not need to be recompiled--or even restarted.")
dcb4f7b7 11837 (license license:gpl3+)))
683cac58
LP		 11838
11839(define-public gnome-builder
11840 (package
11841 (name "gnome-builder")
11842 (version "3.36.1")
11843 (source (origin
11844 (method url-fetch)
11845 (uri (string-append "mirror://gnome/sources/" name "/"
11846 (version-major+minor version) "/"
11847 name "-" version ".tar.xz"))
11848 (sha256
11849 (base32
11850 "17pvmd5jypar8dkr6w56hvf7jnq4l1wih2wwgkrv7sblr7rkkar2"))))
11851 (build-system meson-build-system)
11852 (arguments
11853 `(#:configure-flags (list "-Dnetwork_tests=false"
11854 ;; TODO: Enable all plugins...
11855 "-Dplugin_clang=false"
11856 "-Dplugin_flatpak=false"
11857 "-Dplugin_glade=false"
11858 ;; ... except this one.
11859 "-Dplugin_update_manager=false")
11860 #:phases
11861 (modify-phases %standard-phases
11862 (add-after 'unpack 'patch-meson
11863 (lambda* (#:key inputs #:allow-other-keys)
11864 (substitute* "build-aux/meson/post_install.py"
11865 (("gtk-update-icon-cache") "true")
11866 (("update-desktop-database") "true"))
11867 (substitute* "src/libide/meson.build"
11868 (("/usr/lib")
11869 (string-append (assoc-ref inputs "python-pygobject")
11870 "/lib")))
11871 #t))
9c69fec0
LP		 11872 (add-after 'configure 'fix-ninja
11873 (lambda _
11874 ;; #43296: meson(?) incorrectly assumes we want to link
11875 ;; this PIE against a static libselinux.
11876 (substitute* "build.ninja"
11877 (("libselinux\\.a") "libselinux.so"))
11878 #t))
683cac58
LP		 11879 (add-before 'check 'pre-check
11880 (lambda _
11881 (system "Xvfb :1 &")
11882 (setenv "DISPLAY" ":1")
11883 #t)))))
11884 (inputs
11885 `(("devhelp" ,devhelp)
11886 ("gspell" ,gspell)
11887 ("gtk+" ,gtk+)
11888 ("json-glib" ,json-glib)
11889 ("jsonrpc-glib" ,jsonrpc-glib)
11890 ("libdazzle" ,libdazzle)
11891 ("libgit2-glib" ,libgit2-glib)
11892 ("libpeas" ,libpeas)
11893 ("python-pygobject" ,python-pygobject)
11894 ("sysprof" ,sysprof)
11895 ("template-glib" ,template-glib)
11896 ("vte" ,vte)
11897 ("webkitgtk" ,webkitgtk)))
11898 (propagated-inputs
11899 `(("gtksourceview" ,gtksourceview))) ;needed for settings
11900 (native-inputs
11901 `(("desktop-file-utils" ,desktop-file-utils) ;for desktop-file-validate
11902 ("glib:bin" ,glib "bin")
11903 ("gettext" ,gettext-minimal)
11904 ("pkg-config" ,pkg-config)
11905 ("vala" ,vala)
11906 ("xorg-server" ,xorg-server-for-tests)))
11907 (home-page "https://wiki.gnome.org/Apps/Builder")
11908 (synopsis "Toolsmith for GNOME-based applications")
876d022c
LC		 11909 (description "Builder aims to be an integrated development
11910environment (IDE) for writing GNOME-based software. It features fuzzy search,
11911auto-completion, a mini code map, documentation browsing, Git integration, an
11912integrated profiler via Sysprof, debugging support, and more.")
683cac58 11913 (license license:gpl3+)))
438c4ee1
LP		 11914
11915(define-public komikku
11916 (package
11917 (name "komikku")
b4c727f1 11918 (version "0.23.0")
438c4ee1
LP		 11919 (source
11920 (origin
11921 (method git-fetch)
11922 (uri (git-reference
11923 (url "https://gitlab.com/valos/Komikku/")
11924 (commit (string-append "v" version))))
11925 (file-name (git-file-name name version))
11926 (sha256
11927 (base32
b4c727f1 11928 "1xh3qmf2pk80qxj528lajjcwg7mps72s1zz8cj388av58p8l3hyw"))))
438c4ee1
LP		 11929 (build-system meson-build-system)
11930 (arguments
11931 `(#:glib-or-gtk? #t
11932 #:phases
11933 (modify-phases %standard-phases
11934 (add-after 'unpack 'patch-sources
11935 (lambda _
11936 (substitute* "komikku/utils.py"
11937 (("from komikku\\.servers import get_servers_list")
11938 ;; code following that line should migrate old databases
11939 ;; but the line itself results in an import error
11940 "return data_dir_path"))))
11941 (add-after 'unpack 'skip-gtk-update-icon-cache
11942 (lambda _
11943 (substitute* "meson_post_install.py"
11944 (("gtk-update-icon-cache") (which "true")))
11945 #t))
11946 (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
11947 (lambda* (#:key outputs #:allow-other-keys)
11948 (let ((prog (string-append (assoc-ref outputs "out")
11949 "/bin/komikku")))
11950 (wrap-program prog
11951 `("PYTHONPATH" = (,(getenv "PYTHONPATH")))
11952 `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
11953 #t))))))
11954 (inputs
11955 `(("gtk+" ,gtk+)
11956 ("libhandy" ,libhandy)
11957 ("libnotify" ,libnotify)
11958 ("libsecret" ,libsecret)
11959 ("python-beautifulsoup4" ,python-beautifulsoup4)
11960 ("python-cloudscraper" ,python-cloudscraper)
11961 ("python-dateparser" ,python-dateparser)
11962 ("python-keyring" ,python-keyring)
11963 ("python-lxml" ,python-lxml)
11964 ("python-magic" ,python-magic)
11965 ("python-pillow" ,python-pillow)
11966 ("python-pure-protobuf" ,python-pure-protobuf)
11967 ("python-pycairo" ,python-pycairo)
11968 ("python-pygobject" ,python-pygobject)
11969 ("python-unidecode" ,python-unidecode)))
11970 (native-inputs
a4782e40
LP		 11971 `(("desktop-file-utils" ,desktop-file-utils)
11972 ("gettext" ,gettext-minimal)
11973 ("glib:bin" ,glib "bin")
438c4ee1
LP		 11974 ("gobject-introspection" ,gobject-introspection)
11975 ("pkg-config" ,pkg-config)))
11976 (home-page "https://gitlab.com/valos/Komikku")
11977 (synopsis "Manga reader for GNOME")
11978 (description "Komikku is an online/offline manga reader for GNOME,
11979developed with the aim of being used with the Librem 5 phone.")
11980 (license license:gpl3+)))
9ede39d6
LP		 11981
11982(define-public libgda
11983 (package
11984 (name "libgda")
b5454eb3 11985 (version "5.2.10")
9ede39d6
LP		 11986 (source
11987 (origin
11988 (method git-fetch)
11989 (uri (git-reference
11990 (url "https://gitlab.gnome.org/GNOME/libgda.git/")
b5454eb3
TGR		 11991 (commit (string-append "LIBGDA_" (string-replace-substring
11992 version "." "_")))))
9ede39d6
LP		 11993 (file-name (git-file-name name version))
11994 (sha256
b5454eb3 11995 (base32 "18rg773gq9v3cdywpmrp12c5xyp97ir9yqjinccpi22sksb1kl8a"))))
9ede39d6
LP		 11996 (build-system gnu-build-system)
11997 (arguments
11998 `(#:configure-flags '("--enable-vala")
11999 ;; There's a race between check_cnc_lock and check_threaded_cnc
12000 ;; in tests/multi-threading.
12001 #:parallel-tests? #f
12002 #:phases
12003 (modify-phases %standard-phases
12004 (add-after 'unpack 'fix-glade-install
12005 (lambda _
12006 (substitute* "configure.ac"
12007 (("`\\$PKG_CONFIG --variable=catalogdir gladeui-2\\.0`")
12008 "${datadir}/glade/catalogs")
12009 (("`\\$PKG_CONFIG --variable=pixmapdir gladeui-2\\.0`")
12010 "${datadir}/glade/pixmaps"))
12011 #t))
12012 (add-before 'check 'pre-check
12013 (lambda* (#:key inputs #:allow-other-keys)
12014 ;; Tests require a running X server.
12015 (system "Xvfb :1 &")
12016 (setenv "DISPLAY" ":1")
12017 #t))
12018 (add-after 'install 'symlink-glade-module
12019 (lambda* (#:key outputs #:allow-other-keys)
12020 (let* ((shlib "libgda-ui-5.0.so")
12021 (out (assoc-ref outputs "out"))
12022 (out/lib (string-append out "/lib"))
12023 (moduledir (string-append out/lib "/glade/modules")))
12024 (mkdir-p moduledir)
12025 (symlink (string-append out/lib "/" shlib)
12026 (string-append moduledir "/" shlib))
12027 #t))))))
12028 (propagated-inputs
12029 `(("libxml2" ,libxml2))) ; required by libgda-5.0.pc
12030 (inputs
12031 `(("glib" ,glib)
12032 ("glade" ,glade3)
12033 ("gtk+" ,gtk+)
12034 ("libsecret" ,libsecret)
12035 ("libxslt" ,libxslt)
12036 ("openssl" ,openssl)
12037 ("vala" ,vala)))
12038 (native-inputs
12039 `(("autoconf" ,autoconf)
b5454eb3 12040 ("autoconf-archive" ,autoconf-archive)
9ede39d6
LP		 12041 ("automake" ,automake)
12042 ("glib:bin" ,glib "bin")
12043 ("gnome-common" ,gnome-common)
12044 ("gobject-introspection" ,gobject-introspection)
12045 ("gtk-doc" ,gtk-doc)
12046 ("intltool" ,intltool)
12047 ("libtool" ,libtool)
12048 ("pkg-config" ,pkg-config)
12049 ("vala" ,vala)
12050 ("which" ,which)
12051 ("xorg-server" ,xorg-server-for-tests)
12052 ("yelp-tools" ,yelp-tools)))
12053 (home-page "https://gitlab.gnome.org/GNOME/libgda")
12054 (synopsis "Uniform data access")
12055 (description
12056 "GNU Data Access (GDA) is an attempt to provide uniform access to
12057different kinds of data sources (databases, information servers, mail spools,
12058etc). It is a complete architecture that provides all you need to access
12059your data.")
12060 (license license:lgpl2.1+)))
757764b7
LP		 12061
12062(define-public gtranslator
12063 (package
12064 (name "gtranslator")
12065 (version "3.36.0")
12066 (source (origin
12067 (method url-fetch)
12068 (uri (string-append "mirror://gnome/sources/" name "/"
12069 (version-major+minor version) "/"
12070 name "-" version ".tar.xz"))
12071 (sha256
12072 (base32
12073 "1lxd2nkji4jk8g2xmyc1a1r3ww710ddk91zh9psmx8xlb4xivaid"))))
12074 (build-system meson-build-system)
12075 (inputs
12076 `(("json-glib" ,json-glib)
12077 ("jsonrpc-glib" ,jsonrpc-glib)
12078 ("gettext" ,gettext-minimal)
12079 ("glib" ,glib)
12080 ("gtk+" ,gtk+)
12081 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
12082 ("gspell" ,gspell)
12083 ("libdazzle" ,libdazzle)
12084 ("libgda" ,libgda)
12085 ("libsoup" ,libsoup)))
12086 (native-inputs
12087 `(("glib:bin" ,glib "bin")
12088 ("itstool" ,itstool)
12089 ("pkg-config" ,pkg-config)))
12090 (propagated-inputs
12091 `(("gtksourceview" ,gtksourceview))) ; required for source view
12092 (arguments
12093 `(#:build-type "release"
6f588bb1 12094 #:glib-or-gtk? #t
757764b7
LP		 12095 #:phases
12096 (modify-phases %standard-phases
6f588bb1 12097 (add-after 'unpack 'skip-gtk-update-icon-cache
757764b7
LP		 12098 (lambda _
12099 (substitute* "build-aux/meson/meson_post_install.py"
12100 (("gtk-update-icon-cache") (which "true")))
12101 #t)))))
12102 (home-page "https://wiki.gnome.org/Apps/Gtranslator")
12103 (synopsis "Translation making program")
12104 (description
12105 "gtranslator is a quite comfortable gettext po/po.gz/(g)mo files editor
12106for the GNOME 3.x platform with many features. It aims to be a very complete
12107editing environment for translation issues within the GNU gettext/GNOME desktop
12108world.")
12109 (license license:gpl3+)))
jackhill's copy of GNU Guix: https://guix.gnu.org/