HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: libdvdcss: Update to 1.4.3.
[jackhill/guix/guix.git] / gnu / packages / freedesktop.scm
CommitLineData
0b0e11a9
AE		 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
dac354fe 3;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
e76008db 4;;; Copyright © 2015, 2017 Andy Wingo <wingo@pobox.com>
aff0cce9 5;;; Copyright © 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
15dc8ed5 6;;; Copyright © 2015, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
177b4255 7;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
906476e0 8;;; Copyright © 2016, 2017, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
3c8ba11a 9;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
5b9bdeb5 10;;; Copyright © 2017 Nikita <nikita@n0.is>
d4040f6e 11;;; Copyright © 2017, 2018 Mark H Weaver <mhw@netris.org>
20c87138 12;;; Copyright © 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
a6037072 13;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
ad64b09d 14;;; Copyright © 2017, 2020 Brendan Tildesley <mail@brendan.scot>
239d3e9c 15;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
4715f92e 16;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
4163f246 17;;; Copyright © 2018 Stefan Stefanović <stefanx2ovic@gmail.com>
748ca12f 18;;; Copyright © 2019 Reza Alizadeh Majd <r.majd@pantherx.org>
dc4fae11 19;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
2e4bb893 20;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
c9aadd07 21;;; Copyright © 2020 Rene Saavedra <pacoon@protonmail.com>
5e2750fb 22;;; Copyright © 2020 Nicolò Balzarotti <nicolo@nixo.xyz>
ef43f74c 23;;; Copyright © 2020 Anders Thuné <asse.97@gmail.com>
c8764640 24;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
141e74a8 25;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
0b0e11a9
AE		 26;;;
27;;; This file is part of GNU Guix.
28;;;
29;;; GNU Guix is free software; you can redistribute it and/or modify it
30;;; under the terms of the GNU General Public License as published by
31;;; the Free Software Foundation; either version 3 of the License, or (at
32;;; your option) any later version.
33;;;
34;;; GNU Guix is distributed in the hope that it will be useful, but
35;;; WITHOUT ANY WARRANTY; without even the implied warranty of
36;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
37;;; GNU General Public License for more details.
38;;;
39;;; You should have received a copy of the GNU General Public License
40;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
41
42(define-module (gnu packages freedesktop)
366553e4 43 #:use-module ((guix licenses) #:prefix license:)
285c091e 44 #:use-module (guix utils)
0b0e11a9
AE		 45 #:use-module (guix packages)
46 #:use-module (guix download)
366553e4 47 #:use-module (guix git-download)
1f2e0601 48 #:use-module (guix build-system cmake)
dac354fe 49 #:use-module (guix build-system gnu)
285c091e 50 #:use-module (guix build-system meson)
b32596ec 51 #:use-module (guix build-system perl)
e8444b26 52 #:use-module (guix build-system python)
e4b8feaf 53 #:use-module (guix build-system glib-or-gtk)
d4040f6e 54 #:use-module (gnu packages)
73bb984e
EF		 55 #:use-module (gnu packages acl)
56 #:use-module (gnu packages admin)
366553e4 57 #:use-module (gnu packages autotools)
2e4bb893 58 #:use-module (gnu packages base)
fe4e0b0a 59 #:use-module (gnu packages bash)
73bb984e 60 #:use-module (gnu packages boost)
ac257f12 61 #:use-module (gnu packages check)
afd83de0 62 #:use-module (gnu packages cmake)
73bb984e 63 #:use-module (gnu packages compression)
03800de1 64 #:use-module (gnu packages cryptsetup)
afd83de0 65 #:use-module (gnu packages databases)
03800de1 66 #:use-module (gnu packages disk)
73bb984e
EF		 67 #:use-module (gnu packages docbook)
68 #:use-module (gnu packages documentation)
91150437 69 #:use-module (gnu packages fontutils)
2e4bb893 70 #:use-module (gnu packages gawk)
366553e4 71 #:use-module (gnu packages gettext)
23635b2e 72 #:use-module (gnu packages ghostscript)
24e051cb 73 #:use-module (gnu packages gl)
73bb984e
EF		 74 #:use-module (gnu packages glib) ;intltool
75 #:use-module (gnu packages gnome)
366553e4 76 #:use-module (gnu packages gperf)
55ba649d 77 #:use-module (gnu packages graphviz)
c8764640 78 #:use-module (gnu packages gstreamer)
e6823279 79 #:use-module (gnu packages gtk)
23635b2e 80 #:use-module (gnu packages image)
afd83de0 81 #:use-module (gnu packages language)
171ae35c 82 #:use-module (gnu packages libffi)
24e051cb 83 #:use-module (gnu packages libunwind)
dfb01bae 84 #:use-module (gnu packages libusb)
73bb984e 85 #:use-module (gnu packages linux)
ad64b09d 86 #:use-module (gnu packages man)
73bb984e 87 #:use-module (gnu packages m4)
c8764640 88 #:use-module (gnu packages networking)
aff0cce9 89 #:use-module (gnu packages nss)
91150437 90 #:use-module (gnu packages package-management)
825cebdb
BT		 91 #:use-module (gnu packages perl)
92 #:use-module (gnu packages perl-check)
73bb984e 93 #:use-module (gnu packages pkg-config)
5d46c8b4 94 #:use-module (gnu packages polkit)
73bb984e 95 #:use-module (gnu packages python)
d29d04c9 96 #:use-module (gnu packages python-crypto)
44d10b1f 97 #:use-module (gnu packages python-xyz)
cd0322a3 98 #:use-module (gnu packages sqlite)
285c091e 99 #:use-module (gnu packages valgrind)
23635b2e 100 #:use-module (gnu packages video)
fa8a585e 101 #:use-module (gnu packages w3m)
825cebdb 102 #:use-module (gnu packages web)
73bb984e 103 #:use-module (gnu packages xdisorg)
5d46c8b4 104 #:use-module (gnu packages xml)
285c091e
MB		 105 #:use-module (gnu packages xorg)
106 #:use-module (srfi srfi-1))
0b0e11a9 107
afd83de0
RG		 108(define-public appstream
109 (package
110 (name "appstream")
111 (version "0.13.1")
112 (source
113 (origin
114 (method url-fetch)
115 (uri
116 (string-append "https://www.freedesktop.org/software/"
117 "appstream/releases/"
118 "AppStream-" version ".tar.xz"))
119 (sha256
120 (base32 "09l6ixz1w29pi0nb0flz14m4r3f2hpqpp1fq8y66v9xa4c9fczds"))))
121 (build-system meson-build-system)
122 (arguments
123 `(#:glib-or-gtk? #t
124 #:phases
125 (modify-phases %standard-phases
126 (add-after 'unpack 'patch-libstemmer
127 (lambda* (#:key inputs #:allow-other-keys)
128 (substitute* "meson.build"
129 (("/usr/include")
130 (string-append (assoc-ref inputs "libstemmer")
131 "/include")))
132 #t))
133 (add-after 'patch-libstemmer 'patch-docbook-xml
134 (lambda* (#:key inputs #:allow-other-keys)
135 (with-directory-excursion "docs/api"
136 (substitute* "appstream-docs.xml"
137 (("http://www.oasis-open.org/docbook/xml/4.3/")
138 (string-append (assoc-ref inputs "docbook-xml-4.3")
139 "/xml/dtd/docbook/"))))
140 (for-each (lambda (file)
141 (substitute* file
142 (("http://www.oasis-open.org/docbook/xml/4.5/")
143 (string-append (assoc-ref inputs "docbook-xml")
144 "/xml/dtd/docbook/"))))
145 (find-files "scripts/desc" "\\.xml$"))
146 #t))
147 (add-after 'patch-docbook-xml 'disable-failing-tests
148 (lambda _
149 (substitute* "tests/test-pool.c"
150 (("[ \t]*g_test_add_func \\(\"/AppStream/PoolRead?.*;")
151 "")
152 (("[ \t]*g_test_add_func \\(\"/AppStream/PoolReadAsync?.*;")
153 "")
154 (("[ \t]*g_test_add_func \\(\"/AppStream/PoolEmpty?.*;")
155 "")
156 (("[ \t]*g_test_add_func \\(\"/AppStream/Cache?.*;")
157 "")
158 (("[ \t]*g_test_add_func \\(\"/AppStream/Merges?.*;")
159 ""))
160 #t))
161 (add-after 'disable-failing-tests 'patch-install-dir
162 (lambda* (#:key outputs #:allow-other-keys)
163 (substitute* "data/meson.build"
164 (("/etc")
165 (string-append (assoc-ref outputs "out")
166 "/etc")))
167 #t)))))
168 (native-inputs
169 `(("cmake" ,cmake)
170 ("docbook-xml-4.3" ,docbook-xml-4.3)
171 ("docbook-xml" ,docbook-xml)
172 ("docbook-xsl" ,docbook-xsl)
173 ("gettext" ,gettext-minimal)
174 ("glib:bin" ,glib "bin")
175 ("gobject-introspection" ,gobject-introspection)
176 ("gperf" ,gperf)
9dea1618 177 ("gtk-doc" ,gtk-doc/stable)
afd83de0
RG		 178 ("pkg-config" ,pkg-config)
179 ("python" ,python-wrapper)
180 ("xsltproc" ,libxslt)))
181 (inputs
182 `(("libsoup" ,libsoup)
183 ("libstemmer" ,libstemmer)
184 ("libxml2" ,libxml2)
185 ("libyaml" ,libyaml)
186 ("lmdb" ,lmdb)))
187 (propagated-inputs
188 `(("glib" ,glib)))
189 (synopsis "Tools and libraries to work with AppStream metadata")
190 (description "AppStream is a cross-distribution effort for enhancing the way
191we interact with the software repositories provided by distributions by
192standardizing software component metadata. It provides the foundation to build
193software-center applications, by providing metadata necessary for an
194application-centric view on package repositories. It additionally provides
195specifications for things like an unified software metadata database, screenshot
196services and various other things needed to create user-friendly
197application-centers for distributions.")
198 (home-page "https://www.freedesktop.org/wiki/Distributions/AppStream/")
199 ;; XXX: meson.build claims both, headers just indicate lgpl2.1+
200 ;; there are also some (irrelevant) wtfpl2 examples
201 (license (list license:gpl2+ license:lgpl2.1+))))
202
c8764640
RG		 203(define-public farstream
204 (package
205 (name "farstream")
206 (version "0.2.9")
207 (source
208 (origin
209 (method git-fetch)
210 (uri
211 (git-reference
212 (url "https://gitlab.freedesktop.org/farstream/farstream.git")
213 (commit version)))
214 (file-name (git-file-name name version))
215 (sha256
216 (base32 "1sd8syldyq6bphfdm129s3gq554vfv7vh1vcwzk48gjryf101awk"))
217 (patches
218 (search-patches "farstream-make.patch"))))
219 (build-system glib-or-gtk-build-system)
220 (outputs '("out" "doc"))
221 (arguments
222 `(#:tests? #f ; https://gitlab.freedesktop.org/farstream/farstream/-/issues/18
223 #:configure-flags
224 (list
225 "--enable-gtk-doc"
226 "--enable-glib-asserts"
227 (string-append "--with-html-dir="
228 (assoc-ref %outputs "doc")
229 "/share/gtk-doc/html"))
230 #:phases
231 (modify-phases %standard-phases
232 (add-after 'unpack 'copy-common
233 (lambda _
234 (delete-file "autogen.sh")
235 (copy-recursively
236 (assoc-ref %build-inputs "common")
237 "common")
238 #t))
239 (add-after 'unpack 'patch-docbook-xml
240 (lambda* (#:key inputs #:allow-other-keys)
241 (with-directory-excursion "docs"
242 (substitute* '("libs/farstream-libs-docs.sgml"
243 "plugins/farstream-plugins-docs.sgml")
244 (("http://www.oasis-open.org/docbook/xml/4.1.2/")
245 (string-append (assoc-ref inputs "docbook-xml")
246 "/xml/dtd/docbook/"))))
247 #t)))))
248 (native-inputs
249 `(("autoconf" ,autoconf)
250 ("automake" ,automake)
251 ("common"
252 ,(origin
253 (method git-fetch)
254 (uri
255 (git-reference
256 (url "https://gitlab.freedesktop.org/gstreamer/common.git")
257 (commit "88e512ca7197a45c4114f7fa993108f23245bf50")))
258 (file-name
259 (git-file-name "common" "latest.88e512c"))
260 (sha256
261 (base32 "1nk94pnskjyngqcfb9p32g4yvf4nzpjszisw24r9azl0pawqpsn6"))))
262 ("docbook-xml" ,docbook-xml-4.1.2)
263 ("docbook-xsl" ,docbook-xsl)
264 ("gobject-introspection" ,gobject-introspection)
9dea1618 265 ("gtk-doc" ,gtk-doc/stable)
c8764640
RG		 266 ("libtool" ,libtool)
267 ("perl" ,perl)
268 ("pkg-config" ,pkg-config)
269 ("python" ,python-wrapper)
270 ("xsltproc" ,libxslt)))
271 (inputs
272 `(("glib" ,glib)
273 ("gtk+" ,gtk+)
274 ("gupnp-igd" ,gupnp-igd)
275 ("libnice" ,libnice)))
276 (propagated-inputs
277 `(("gstreamer" ,gstreamer)
278 ("gst-plugins-bad" ,gst-plugins-bad)
279 ("gst-plugins-base" ,gst-plugins-base)
280 ("gst-plugins-good" ,gst-plugins-good)))
281 (synopsis "The Farstream VVoIP framework")
282 (description "Farstream is a collection of GStreamer modules and libraries
283for videoconferencing.")
284 (home-page "https://www.freedesktop.org/wiki/Software/Farstream/")
285 (license license:lgpl2.1+)))
286
bd8a6a89
RG		 287(define-public libglib-testing
288 (package
289 (name "libglib-testing")
290 (version "0.1.0")
291 (source
292 (origin
293 (method git-fetch)
294 (uri (git-reference
295 (url "https://gitlab.gnome.org/pwithnall/libglib-testing.git")
296 (commit version)))
297 (file-name (git-file-name name version))
298 (sha256
299 (base32 "0xmycsrlqyji6sc2i4wvp2gxf3897z65a57ygihfnpjpyl7zlwkr"))))
300 (build-system meson-build-system)
301 (arguments
302 `(#:glib-or-gtk? #t
303 #:phases
304 (modify-phases %standard-phases
305 (add-before
306 'check 'pre-check
307 (lambda _
308 ;; The test suite requires a running dbus-daemon.
309 (system "dbus-daemon &")
310 ;; Don't fail on missing '/etc/machine-id'.
311 (setenv "DBUS_FATAL_WARNINGS" "0")
312 #t)))))
313 (native-inputs
314 `(("glib:bin" ,glib "bin")
315 ("gobject-introspection" ,gobject-introspection)
316 ("pkg-config" ,pkg-config)
9dea1618 317 ("gtk-doc" ,gtk-doc/stable)))
bd8a6a89
RG		 318 (inputs
319 `(("dbus" ,dbus)
320 ("glib" ,glib)))
321 (synopsis "Glib testing library")
322 (description "Libglib-testing is a test library providing test harnesses and
323mock classes which complement the classes provided by GLib. It is intended to
324be used by any project which uses GLib and which wants to write internal unit
325tests.")
326 (home-page "https://gitlab.gnome.org/pwithnall/libglib-testing")
327 (license license:lgpl2.1+)))
328
08684798
RG		 329(define-public malcontent
330 (package
331 (name "malcontent")
332 (version "0.8.0")
333 (source
334 (origin
335 (method git-fetch)
336 (uri (git-reference
337 (url "https://gitlab.freedesktop.org/pwithnall/malcontent.git")
338 (commit version)))
339 (file-name (git-file-name name version))
340 (sha256
341 (base32 "0vnf0pk516fwwh41v96c29l2i7h1pnwhivlkbf53kkx1q35g7lb3"))))
342 (build-system meson-build-system)
343 (arguments
344 `(#:glib-or-gtk? #t
345 #:phases
346 (modify-phases %standard-phases
347 ;; AppInfo not available inside build environment.
348 (add-after 'unpack 'fix-tests
349 (lambda _
350 (substitute* "libmalcontent/tests/app-filter.c"
351 (("g_test_add_func \\(\"/app-filter/appinfo\", test_app_filter_appinfo\\);")
352 ""))
353 #t)))))
354 (native-inputs
355 `(("desktop-file-utils" ,desktop-file-utils)
356 ("gettext" ,gettext-minimal)
357 ("glib:bin" ,glib "bin")
358 ("gobject-introspection" ,gobject-introspection)
359 ("gtk+:bin" ,gtk+ "bin")
360 ("itstool" ,itstool)
361 ("libglib-testing" ,libglib-testing)
362 ("libxml2" ,libxml2)
363 ("pkg-config" ,pkg-config)))
364 (inputs
365 `(("accountsservice" ,accountsservice)
366 ("appstream-glib" ,appstream-glib)
367 ("dbus" ,dbus)
368 ("flatpak" ,flatpak)
369 ("glib" ,glib)
370 ("gtk+" ,gtk+)
371 ("libostree" ,libostree)
372 ("linux-pam" ,linux-pam)
373 ("polkit" ,polkit)))
374 (synopsis "Parental controls support")
375 (description "MalContent implements parental controls support which can
376be used by applications to filter or limit the access of child accounts to
377inappropriate content.")
378 (home-page "https://gitlab.freedesktop.org/pwithnall/malcontent")
379 (license
380 (list
381 license:gpl2+
382 license:lgpl2.1+))))
383
0b0e11a9
AE		 384(define-public xdg-utils
385 (package
386 (name "xdg-utils")
4d0f463d 387 (version "1.1.3")
0b0e11a9
AE		 388 (source
389 (origin
390 (method url-fetch)
391 (uri (string-append
5cc3096c 392 "https://portland.freedesktop.org/download/xdg-utils-"
fa8a585e 393 version ".tar.gz"))
0b0e11a9
AE		 394 (sha256
395 (base32
4d0f463d 396 "1nai806smz3zcb2l5iny4x7li0fak0rzmjg6vlyhdqm8z25b166p"))))
0b0e11a9 397 (build-system gnu-build-system)
fa8a585e
MB		 398 (native-inputs
399 `(("docbook-xsl" ,docbook-xsl)
400 ("docbook-xml" ,docbook-xml-4.1.2)
401 ("libxslt" ,libxslt)
402 ("w3m" ,w3m)
403 ("xmlto" ,xmlto)))
2e4bb893
JK		 404 (inputs
405 `(("awk" ,gawk)
406 ("coreutils" ,coreutils)
407 ("grep" ,grep)
408 ("inetutils" ,inetutils) ; xdg-screensaver uses `hostname'
409 ("perl-file-mimeinfo" ,perl-file-mimeinfo) ; for mimeopen fallback
410 ("sed" ,sed)
04c35737 411 ("xprop" ,xprop) ; for Xfce detecting
b3546174 412 ("xset" ,xset))) ; for xdg-screensaver
0b0e11a9 413 (arguments
fa8a585e 414 `(#:tests? #f ; no check target
2e4bb893
JK		 415 #:modules ((srfi srfi-26)
416 ,@%gnu-build-system-modules)
fa8a585e
MB		 417 #:phases
418 (modify-phases %standard-phases
419 (add-after 'unpack 'patch-hardcoded-paths
420 (lambda _
421 (substitute* "scripts/xdg-mime.in"
422 (("/usr/bin/file") (which "file")))
423 (substitute* "scripts/xdg-open.in"
424 (("/usr/bin/printf") (which "printf")))
425 #t))
426 (add-before 'build 'locate-catalog-files
427 (lambda* (#:key inputs #:allow-other-keys)
428 (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
429 "/xml/dtd/docbook"))
430 (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
431 "/xml/xsl/docbook-xsl-"
432 ,(package-version docbook-xsl))))
433 (for-each (lambda (file)
434 (substitute* file
435 (("http://.*/docbookx\\.dtd")
436 (string-append xmldoc "/docbookx.dtd"))))
437 (find-files "scripts/desc" "\\.xml$"))
438 (substitute* "scripts/Makefile"
439 ;; Apparently `xmlto' does not bother to looks up the stylesheets
440 ;; specified in the XML, unlike the above substitition. Instead it
441 ;; uses a hard-coded URL. Work around it here, but if this is
442 ;; common perhaps we should hardcode this path in xmlto itself.
443 (("\\$\\(XMLTO\\) man")
444 (string-append "$(XMLTO) -x " xsldoc
445 "/manpages/docbook.xsl man")))
446 (setenv "STYLESHEET"
447 (string-append xsldoc "/html/docbook.xsl"))
2e4bb893
JK		 448 #t)))
449 (add-after 'install 'wrap-executables
450 (lambda* (#:key inputs outputs #:allow-other-keys)
451 (let ((out (assoc-ref outputs "out")))
452 (with-directory-excursion (string-append out "/bin")
453 (let ((path-ext
454 (map (cute string-append <> "/bin")
455 (cons out
456 (map (cute assoc-ref inputs <>)
457 '("awk" "coreutils" "grep" "inetutils"
458 "perl-file-mimeinfo" "sed" "xprop"
459 "xset"))))))
460 (for-each (cute wrap-program <>
461 `("PATH" ":" prefix ,path-ext))
462 (find-files "."))))
fa8a585e
MB		 463 #t))))))
464 (home-page "https://www.freedesktop.org/wiki/Software/xdg-utils/")
0b0e11a9
AE		 465 (synopsis "Freedesktop.org scripts for desktop integration")
466 (description "The xdg-utils package is a set of simple scripts that
467provide basic desktop integration functions in the framework of the
468freedesktop.org project.")
366553e4 469 (license license:expat)))
dac354fe
SB		 470
471(define-public libinput
56451c78 472 ;; Updating this will rebuild over 700 packages through libinput-minimal.
dac354fe
SB		 473 (package
474 (name "libinput")
60e51f86 475 (version "1.16.4")
dac354fe
SB		 476 (source (origin
477 (method url-fetch)
521b1d88 478 (uri (string-append "https://freedesktop.org/software/libinput/"
b4ed7c3e 479 "libinput-" version ".tar.xz"))
dac354fe
SB		 480 (sha256
481 (base32
60e51f86 482 "0acywdjppj5i591l879bnqa9cs4vgdwnhilwk550x5x8sl33m4k5"))))
285c091e
MB		 483 (build-system meson-build-system)
484 (arguments
794c773d
MB		 485 `(#:configure-flags '("-Ddocumentation=false")
486
487 ;; XXX: Using 'debug' or 'debugoptimized' pulls in an additional test that
488 ;; hangs, and the comments around it suggests that we should be using this
489 ;; Meson target anyway.
490 #:build-type "release"))
dac354fe 491 (native-inputs
285c091e 492 `(("check" ,check)
411c27e2 493 ("pkg-config" ,pkg-config)))
c6deabf9
MB		 494 (inputs
495 `(("cairo" ,cairo)
496 ("glib" ,glib)
497 ("gtk+" ,gtk+)
7ca37da8 498 ("libevdev" ,libevdev)
285c091e
MB		 499 ("libwacom" ,libwacom)
500 ("mtdev" ,mtdev)))
0dbb6c2f
MB		 501 (propagated-inputs
502 `(;; libinput.h requires <libudev.h>, so propagate it.
503 ("udev" ,eudev)))
6aabc87d 504 (home-page "https://www.freedesktop.org/wiki/Software/libinput/")
dac354fe
SB		 505 (synopsis "Input devices handling library")
506 (description
507 "Libinput is a library to handle input devices for display servers and
508other applications that need to directly deal with input devices.")
366553e4
RW		 509 (license license:x11)))
510
c38fb02e 511(define-public libinput-minimal
1a265842 512 (package/inherit libinput
c38fb02e 513 (name "libinput-minimal")
c6deabf9
MB		 514 (inputs
515 (fold alist-delete (package-inputs libinput)
516 '("cairo" "glib" "gtk+" "libwacom")))
c38fb02e 517 (arguments
285c091e
MB		 518 (substitute-keyword-arguments (package-arguments libinput)
519 ((#:configure-flags flags ''())
520 `(cons* "-Dlibwacom=false"
521 "-Ddebug-gui=false" ;requires gtk+@3
522 ,flags))))))
c38fb02e 523
60a5617b
AK		 524(define-public libxdg-basedir
525 (package
526 (name "libxdg-basedir")
527 (version "1.2.0")
528 (source (origin
959a7d73
EF		 529 (method git-fetch)
530 (uri (git-reference
531 (url "https://github.com/devnev/libxdg-basedir")
532 (commit (string-append name "-" version))))
533 (file-name (git-file-name name version))
60a5617b
AK		 534 (sha256
535 (base32
959a7d73 536 "12yz53ny5bi2dii3zwcr6b9ay0yy1g1xv13jg097k7gjligcq11m"))))
60a5617b
AK		 537 (build-system gnu-build-system)
538 (arguments
539 '(#:phases
540 (modify-phases %standard-phases
15dc8ed5 541 (add-after 'unpack 'patch-autogen
60a5617b
AK		 542 (lambda _
543 ;; Run 'configure' in its own phase, not now.
544 (substitute* "autogen.sh"
545 (("^.*\\./configure.*") ""))
15dc8ed5 546 #t)))))
60a5617b
AK		 547 (native-inputs
548 `(("autoconf" ,autoconf)
549 ("automake" ,automake)
550 ("libtool" ,libtool)))
551 (home-page "https://github.com/devnev/libxdg-basedir")
552 (synopsis "Implementation of the XDG Base Directory specification")
553 (description
554 "libxdg-basedir is a C library providing some functions to use with
555the freedesktop.org XDG Base Directory specification.")
556 (license license:expat)))
557
366553e4 558(define-public elogind
5c91962a
AW		 559 (package
560 (name "elogind")
81f685d0 561 (version "243.7")
5c91962a 562 (source (origin
1f9b1d3d
SS		 563 (method git-fetch)
564 (uri (git-reference
565 (url "https://github.com/elogind/elogind")
566 (commit (string-append "v" version))))
567 (file-name (git-file-name name version))
5c91962a
AW		 568 (sha256
569 (base32
81f685d0 570 "1ccj3cbs9nsfg497wg195in1a7b9csm1jdm7z6q7vvx1ynpjxlxz"))))
4163f246 571 (build-system meson-build-system)
5c91962a 572 (arguments
4163f246
SS		 573 `(#:configure-flags
574 (let* ((out (assoc-ref %outputs "out"))
575 (sysconf (string-append out "/etc"))
576 (libexec (string-append out "/libexec/elogind"))
577 (dbuspolicy (string-append out "/etc/dbus-1/system.d"))
c0d1f923 578 (shadow (assoc-ref %build-inputs "shadow"))
4163f246
SS		 579 (shepherd (assoc-ref %build-inputs "shepherd"))
580 (halt-path (string-append shepherd "/sbin/halt"))
581 (kexec-path "") ;not available in Guix yet
c0d1f923 582 (nologin-path (string-append shadow "/sbin/nologin"))
4163f246
SS		 583 (poweroff-path (string-append shepherd "/sbin/shutdown"))
584 (reboot-path (string-append shepherd "/sbin/reboot")))
585 (list
586 (string-append "-Drootprefix=" out)
587 (string-append "-Dsysconfdir=" sysconf)
588 (string-append "-Drootlibexecdir=" libexec)
589 (string-append "-Ddbuspolicydir=" dbuspolicy)
590 (string-append "-Dc_link_args=-Wl,-rpath=" libexec)
591 (string-append "-Dcpp_link_args=-Wl,-rpath=" libexec)
592 (string-append "-Dhalt-path=" halt-path)
593 (string-append "-Dkexec-path=" kexec-path)
594 (string-append "-Dpoweroff-path=" poweroff-path)
595 (string-append "-Dreboot-path=" reboot-path)
c0d1f923 596 (string-append "-Dnologin-path=" nologin-path)
4163f246 597 "-Dcgroup-controller=elogind"
c0d1f923 598 "-Dman=true"
4163f246 599 ;; Disable some tests.
4163f246 600 "-Dslow-tests=false"))
fa67d565
RW		 601 #:phases
602 (modify-phases %standard-phases
4163f246 603 (add-after 'unpack 'fix-pkttyagent-path
fa67d565 604 (lambda _
4163f246
SS		 605 (substitute* "meson.build"
606 (("join_paths\\(bindir, 'pkttyagent'\\)")
607 "'\"/run/current-system/profile/bin/pkttyagent\"'"))
3f54fd1e 608 #t))
20c87138
MB		 609 (add-after 'unpack 'adjust-tests
610 (lambda _
611 ;; This test tries to copy some bytes from /usr/lib/os-release,
612 ;; which does not exist in the build container. Choose something
613 ;; more likely to be available.
614 (substitute* "src/test/test-copy.c"
615 (("/usr/lib/os-release")
616 "/etc/passwd"))
617 ;; Use a shebang that works in the build container.
618 (substitute* "src/test/test-exec-util.c"
619 (("#!/bin/sh")
620 (string-append "#!" (which "sh"))))
621 ;; Do not look for files or directories that do not exist.
622 (substitute* "src/test/test-fs-util.c"
623 (("usr") "etc")
624 (("/etc/machine-id") "/etc/passwd"))
625 ;; FIXME: Why is sd_id128_get_machine_app_specific failing.
626 ;; Disable for now by hooking into the kernel support check.
627 (substitute* "src/test/test-id128.c"
628 (("if \\(r == -EOPNOTSUPP\\)")
629 "if (1)"))
630 ;; This test expects that /sys is available.
631 (substitute* "src/test/test-mountpoint-util.c"
632 (("assert_se\\(path_is_mount_point\\(\"/sys.*")
633 ""))
634 ;; /bin/sh does not exist in the build container.
635 (substitute* "src/test/test-path-util.c"
636 (("/bin/sh") (which "sh")))
637 ;; This test uses sd_device_new_from_syspath to allocate a
638 ;; loopback device, but that fails because /sys is unavailable.
639 (substitute* "src/libelogind/sd-device/test-sd-device-thread.c"
640 ((".*sd_device_new_from_syspath.*/sys/class/net/lo.*")
641 "return 77;"))
642 ;; Most of these tests require cgroups or an actual live
643 ;; logind system so that it can flicker the monitor, etc.
644 ;; Just skip it until a more narrow selection can be made.
645 (substitute* "src/libelogind/sd-login/test-login.c"
646 (("r = sd_pid_get_slice.*")
647 "return 77;"))
648 #t))
4163f246 649 (add-after 'unpack 'change-pid-file-path
f8446df6 650 (lambda _
4163f246
SS		 651 (substitute* "src/login/elogind.c"
652 (("\"/run/elogind.pid\"") "\"/run/systemd/elogind.pid\""))
f8446df6 653 #t)))))
5c91962a 654 (native-inputs
4163f246
SS		 655 `(("docbook-xml" ,docbook-xml)
656 ("docbook-xml-4.2" ,docbook-xml-4.2)
5c91962a 657 ("docbook-xsl" ,docbook-xsl)
4163f246
SS		 658 ("gettext" ,gettext-minimal)
659 ("gperf" ,gperf)
5c91962a 660 ("libxml2" ,libxml2) ;for XML_CATALOG_FILES
4163f246 661 ("m4" ,m4)
b3546174 662 ("pkg-config" ,pkg-config)
4163f246
SS		 663 ("python" ,python)
664 ("xsltproc" ,libxslt)))
5c91962a
AW		 665 (inputs
666 `(("linux-pam" ,linux-pam)
5c91962a 667 ("libcap" ,libcap)
c0d1f923 668 ("shadow" ,shadow) ;for 'nologin'
d312a832 669 ("shepherd" ,shepherd) ;for 'halt' and 'reboot', invoked
1d19bc11 670 ;when pressing the power button
5c91962a 671 ("dbus" ,dbus)
95d7d0c5
CM		 672 ("eudev" ,eudev)
673 ("acl" ,acl))) ;to add individual users to ACLs on /dev nodes
fa67d565 674 (home-page "https://github.com/elogind/elogind")
5c91962a
AW		 675 (synopsis "User, seat, and session management service")
676 (description "Elogind is the systemd project's \"logind\" service,
366553e4
RW		 677extracted out as a separate project. Elogind integrates with PAM to provide
678the org.freedesktop.login1 interface over the system bus, allowing other parts
679of a the system to know what users are logged in, and where.")
5c91962a 680 (license license:lgpl2.1+)))
e8444b26 681
f63861b5
LC		 682(define-public localed
683 ;; XXX: This package is extracted from systemd but we retain so little of it
684 ;; that it would make more sense to maintain a fork of the bits we need.
685 (package
686 (name "localed")
687 (version "241")
688 (source (origin
689 (method git-fetch)
690 (uri (git-reference
691 (url "https://github.com/systemd/systemd")
692 (commit (string-append "v" version))))
693 (sha256
694 (base32
695 "0sy91flzbhpq58k7v0294pa2gxpr0bk27rcnxlbhk2fi6nc51d28"))
696 (file-name (git-file-name name version))
697 (modules '((guix build utils)))
698 (snippet
699 '(begin
700 ;; Connect to the right location for our D-Bus daemon.
701 (substitute* '("src/basic/def.h"
702 "src/libsystemd/sd-bus/sd-bus.c"
703 "src/stdio-bridge/stdio-bridge.c")
704 (("/run/dbus/system_bus_socket")
705 "/var/run/dbus/system_bus_socket"))
706
707 ;; Don't insist on having systemd as PID 1 (otherwise
708 ;; 'localectl' would exit without doing anything.)
709 (substitute* "src/shared/bus-util.c"
710 (("sd_booted\\(\\)")
711 "(1)"))
712 #t))
713 (patches (search-patches "localed-xorg-keyboard.patch"))))
714 (build-system meson-build-system)
715 (arguments
716 ;; Try to build as little as possible (list of components taken from the
717 ;; top-level 'meson.build' file.)
718 (let ((components '("utmp"
719 "hibernate"
720 "environment-d"
721 "binfmt"
722 "coredump"
723 "resolve"
724 "logind"
725 "hostnamed"
726 "localed"
727 "machined"
728 "portabled"
729 "networkd"
730 "timedated"
731 "timesyncd"
732 "firstboot"
733 "randomseed"
734 "backlight"
735 "vconsole"
736 "quotacheck"
737 "sysusers"
738 "tmpfiles"
739 "hwdb"
740 "rfkill"
741 "ldconfig"
742 "efi"
743 "tpm"
744 "ima"
745 "smack"
746 "gshadow"
747 "idn"
748 "nss-myhostname"
749 "nss-systemd")))
750 `(#:configure-flags ',(map (lambda (component)
751 (string-append "-D" component "=false"))
752 (delete "localed" components))
753
754 ;; It doesn't make sense to test all of systemd.
755 #:tests? #f
756
757 #:phases (modify-phases %standard-phases
758 (add-after 'unpack 'set-xkeyboard-config-file-name
759 (lambda* (#:key inputs #:allow-other-keys)
760 ;; Set the file name to xkeyboard-config and kbd.
761 ;; This is used by 'localectl list-x11-keymap-layouts'
762 ;; and similar functions.
763 (let ((xkb (assoc-ref inputs "xkeyboard-config"))
764 (kbd (assoc-ref inputs "kbd")))
765 (substitute* "src/locale/localectl.c"
766 (("/usr/share/X11/xkb/rules")
767 (string-append xkb "/share/X11/xkb/rules")))
768 (substitute* "src/basic/def.h"
769 (("/usr/share/keymaps")
770 (string-append kbd "/share/keymaps")))
771 #t)))
772 (replace 'install
773 (lambda* (#:key outputs #:allow-other-keys)
774 ;; Install 'localed', the D-Bus and polkit files, and
775 ;; 'localectl'.
776 (let* ((out (assoc-ref outputs "out"))
777 (libexec (string-append out "/libexec/localed"))
778 (bin (string-append out "/bin"))
779 (lib (string-append out "/lib"))
780 (dbus (string-append out
781 "/share/dbus-1/system-services"))
782 (conf (string-append out
783 "/etc/dbus-1/system.d/"))
784 (polkit (string-append out
785 "/share/polkit-1/actions"))
786 (data (string-append out "/share/systemd")))
787 (define (source-file regexp)
788 (car (find-files ".." regexp)))
789
790 (mkdir-p libexec)
791 (copy-file "systemd-localed"
792 (string-append libexec "/localed"))
793 (install-file "localectl" bin)
794
795 (let ((service-file (source-file
796 "\\.locale1\\.service$")))
797 (substitute* service-file
798 (("^Exec=.*$")
799 (string-append "Exec=" libexec "/localed\n")))
800 (install-file service-file dbus))
801 (install-file (source-file "\\.locale1\\.policy$")
802 polkit)
803 (install-file (source-file "\\.locale1\\.conf$")
804 conf)
805 (for-each (lambda (file)
806 (install-file file lib))
807 (find-files "src/shared"
808 "libsystemd-shared.*\\.so"))
809
810 (for-each (lambda (map)
811 (install-file map data))
812 (find-files ".." "^(kbd-model-map|language-fallback-map)$"))
813 #t)))))))
814 (native-inputs (package-native-inputs elogind))
bb93042c 815 (inputs `(("libmount" ,util-linux "lib")
f63861b5
LC		 816 ("xkeyboard-config" ,xkeyboard-config)
817 ("kbd" ,kbd)
818 ,@(package-inputs elogind)))
819 (home-page "https://www.freedesktop.org/wiki/Software/systemd/localed/")
820 (synopsis "Control the system locale and keyboard layout")
821 (description
822 "Localed is a tiny daemon that can be used to control the system locale
823and keyboard mapping from user programs. It is used among other things by the
824GNOME Shell. The @command{localectl} command-line tool allows you to interact
825with localed. This package is extracted from the broader systemd package.")
826 (license license:lgpl2.1+)))
827
fe4e0b0a
CB		 828(define-public packagekit
829 (package
830 (name "packagekit")
ba0b9d41 831 (version "1.1.13")
fe4e0b0a
CB		 832 (source (origin
833 (method url-fetch)
834 (uri (string-append
835 "https://www.freedesktop.org/software/"
836 "PackageKit/releases/"
837 "PackageKit-" version ".tar.xz"))
838 (sha256
839 (base32
ba0b9d41 840 "1dr1laic65ld95abp2yxbwvijnngh0dwyb1x49x4wjm5rhq43dl8"))))
fe4e0b0a
CB		 841 (build-system gnu-build-system)
842 (arguments
843 `(#:tests? #f
844 #:make-flags (list (string-append "BASH_COMPLETIONS_DIR="
845 %output "/etc/bash_completion.d"))
846 #:configure-flags
847 '("--disable-systemd")))
848 (native-inputs
849 `(("intltool" ,intltool)
850 ("pkg-config" ,pkg-config)
851 ("python" ,python-wrapper)
852 ("glib:bin" ,glib "bin")))
853 (inputs
854 `(("glib" ,glib)
c695fb76 855 ("bash-completion" ,bash-completion)
fe4e0b0a
CB		 856 ("polkit" ,polkit)))
857 (propagated-inputs
858 `(("sqlite" ,sqlite)))
859 (home-page "https://www.freedesktop.org/software/PackageKit/")
860 (synopsis "API for package management, through D-Bus")
861 (description
862 "PackageKit provides a way of performing package management tasks,
863e.g. updating, removing and installing software. Through supporting many
864backends, PackageKit can perform these tasks using the appropriate package
865manager for the current system.")
866 (license license:gpl2+)))
867
e8444b26
RW		 868(define-public python-pyxdg
869 (package
870 (name "python-pyxdg")
906476e0 871 (version "0.27")
e8444b26
RW		 872 (source
873 (origin
874 (method url-fetch)
8f60e533 875 (uri (pypi-uri "pyxdg" version))
e8444b26
RW		 876 (sha256
877 (base32
906476e0 878 "19f5j5mxp7ff0vp33s32qbpdi65iiwha0bj641gl70pdwnm97gc0"))))
e8444b26
RW		 879 (build-system python-build-system)
880 (arguments
881 '(#:phases
dc1d3cde
KK		 882 (modify-phases %standard-phases
883 (replace 'check
884 (lambda* (#:key inputs #:allow-other-keys)
885 (setenv "XDG_DATA_DIRS"
886 (string-append (assoc-ref inputs "shared-mime-info")
887 "/share/"))
888 (substitute* "test/test-icon.py"
889 (("/usr/share/icons/hicolor/index.theme")
890 (string-append (assoc-ref inputs "hicolor-icon-theme")
906476e0 891 "/share/icons/hicolor/index.theme")))
e8444b26 892
906476e0 893 ;; These two tests are known to fail in strange ways.
dc1d3cde 894 (substitute* "test/test-mime.py"
906476e0
EF		 895 (("def test_get_type\\(self") "def _test_get_type(self")
896 (("def test_get_type2\\(self") "def _test_get_type2(self"))
897
898 ;; There are test files not shipped in the release tarball
899 (substitute* "test/test-icon.py"
900 (("def test_validate_icon_theme") "def _test_validate_icon_theme"))
10ee03c1 901 (invoke "nosetests" "-v"))))))
e8444b26 902 (native-inputs
10ee03c1
TGR		 903 ;; For tests.
904 `(("shared-mime-info" ,shared-mime-info)
905 ("hicolor-icon-theme" ,hicolor-icon-theme)
f3b98f4f 906 ("python-nose" ,python-nose)))
57e7d748 907 (home-page "https://www.freedesktop.org/wiki/Software/pyxdg")
e8444b26
RW		 908 (synopsis "Implementations of freedesktop.org standards in Python")
909 (description
910 "PyXDG is a collection of implementations of freedesktop.org standards in
e881752c 911Python.")
e8444b26
RW		 912 (license license:lgpl2.0)))
913
914(define-public python2-pyxdg
915 (package-with-python2 python-pyxdg))
6178d947
SB		 916
917(define-public wayland
918 (package
919 (name "wayland")
ca6ad3fb 920 (version "1.18.0")
6178d947
SB		 921 (source (origin
922 (method url-fetch)
5cc3096c 923 (uri (string-append "https://wayland.freedesktop.org/releases/"
6178d947
SB		 924 name "-" version ".tar.xz"))
925 (sha256
926 (base32
ca6ad3fb 927 "0k995rn96xkplrapz5k648j651wc43kq817xk1x8280h16gsfxa6"))))
6178d947 928 (build-system gnu-build-system)
28a96f2a 929 (arguments
62a91d2e 930 `(#:parallel-tests? #f))
6178d947
SB		 931 (native-inputs
932 `(("doxygen" ,doxygen)
55ba649d 933 ("graphviz" ,graphviz)
6178d947
SB		 934 ("pkg-config" ,pkg-config)
935 ("xmlto" ,xmlto)
936 ("xsltproc" ,libxslt)))
937 (inputs
938 `(("docbook-xml" ,docbook-xml)
939 ("docbook-xsl" ,docbook-xsl)
940 ("expat" ,expat)
941 ("libffi" ,libffi)
942 ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
9012e118 943 (home-page "https://wayland.freedesktop.org/")
6178d947
SB		 944 (synopsis "Display server protocol")
945 (description
946 "Wayland is a protocol for a compositor to talk to its clients as well as
947a C library implementation of that protocol. The compositor can be a standalone
948display server running on Linux kernel modesetting and evdev input devices, an X
949application, or a wayland client itself. The clients can be traditional
950applications, X servers (rootless or fullscreen) or other display servers.")
951 (license license:x11)))
177b4255 952
eca4c011
DC		 953(define-public wayland-protocols
954 (package
955 (name "wayland-protocols")
c7228351 956 (version "1.20")
eca4c011
DC		 957 (source (origin
958 (method url-fetch)
959 (uri (string-append
960 "https://wayland.freedesktop.org/releases/"
961 "wayland-protocols-" version ".tar.xz"))
962 (sha256
963 (base32
c7228351 964 "1rsdgvkkvxs3cjhpl6agvbkm53vm7k8rg127j9y2vn33m2hvg0lp"))))
eca4c011
DC		 965 (build-system gnu-build-system)
966 (inputs
967 `(("wayland" ,wayland)))
968 (native-inputs
969 `(("pkg-config" ,pkg-config)))
970 (synopsis "Wayland protocols")
971 (description "This package contains XML definitions of the Wayland protocols.")
972 (home-page "https://wayland.freedesktop.org")
973 (license license:expat)))
974
1f2e0601
MB		 975(define-public waylandpp
976 (package
977 (name "waylandpp")
c4593535 978 (version "0.2.8")
1f2e0601
MB		 979 (home-page "https://github.com/NilsBrause/waylandpp")
980 (source (origin
981 (method git-fetch)
982 (uri (git-reference (url home-page) (commit version)))
f1d4d79f 983 (file-name (git-file-name name version))
1f2e0601
MB		 984 (sha256
985 (base32
c4593535 986 "1kxiqab48p0n97pwg8c2zx56wqq32m3rcq7qd2pjj33ipcanb3qq"))))
1f2e0601
MB		 987 (build-system cmake-build-system)
988 (arguments
c4593535 989 `(#:tests? #f)) ; no tests
1f2e0601
MB		 990 (native-inputs
991 `(("pkg-config" ,pkg-config)))
992 (inputs
993 `(("mesa" ,mesa)
994 ("pugixml" ,pugixml)))
995 (propagated-inputs
996 `(;; In Requires of the .pc files.
997 ("wayland" ,wayland)))
998 (synopsis "Wayland C++ bindings")
999 (description
1000 "This package provides C++ bindings for the Wayland display protocol.")
1001 (license license:bsd-2)))
1002
24e051cb
DC		 1003(define-public weston
1004 (package
1005 (name "weston")
38c8437e 1006 (version "6.0.1")
24e051cb
DC		 1007 (source (origin
1008 (method url-fetch)
1009 (uri (string-append
1010 "https://wayland.freedesktop.org/releases/"
1011 "weston-" version ".tar.xz"))
1012 (sha256
1013 (base32
38c8437e 1014 "1d2m658ll8x7prlsfk71qgw89c7dz6y7d6nndfxwl49fmrd6sbxz"))))
23635b2e 1015 (build-system meson-build-system)
24e051cb
DC		 1016 (native-inputs
1017 `(("pkg-config" ,pkg-config)
1018 ("xorg-server" ,xorg-server)))
1019 (inputs
1020 `(("cairo" ,cairo-xcb)
23635b2e 1021 ("colord" ,colord)
24e051cb
DC		 1022 ("dbus" ,dbus)
1023 ("elogind" ,elogind)
23635b2e
RH		 1024 ("lcms" ,lcms)
1025 ("libevdev" ,libevdev)
24e051cb 1026 ("libinput" ,libinput-minimal)
4bd428a7 1027 ("libjpeg" ,libjpeg-turbo)
24e051cb 1028 ("libunwind" ,libunwind)
23635b2e
RH		 1029 ("libva" ,libva)
1030 ("libwebp" ,libwebp)
24e051cb
DC		 1031 ("libxcursor" ,libxcursor)
1032 ("libxkbcommon" ,libxkbcommon)
23635b2e 1033 ("libxml2" ,libxml2)
24e051cb
DC		 1034 ("mesa" ,mesa)
1035 ("mtdev" ,mtdev)
1036 ("linux-pam" ,linux-pam)
23635b2e 1037 ("pango" ,pango)
24e051cb
DC		 1038 ("wayland" ,wayland)
1039 ("wayland-protocols" ,wayland-protocols)
1040 ("xorg-server-xwayland" ,xorg-server-xwayland)))
1041 (arguments
1042 `(#:configure-flags
23635b2e
RH		 1043 (list "-Dbackend-rdp=false" ; TODO: Enable.
1044 "-Dremoting=false" ; TODO: Enable.
1045 "-Dsimple-dmabuf-drm=auto"
1046 "-Dsystemd=false"
1047 (string-append "-Dxwayland-path="
24e051cb
DC		 1048 (assoc-ref %build-inputs "xorg-server-xwayland")
1049 "/bin/Xwayland"))
26bcd2a2 1050 #:parallel-tests? #f ; Parallel tests cause failures.
24e051cb
DC		 1051 #:phases
1052 (modify-phases %standard-phases
1053 (add-before 'configure 'use-elogind
1054 (lambda _
1055 ;; Use elogind instead of systemd
23635b2e
RH		 1056 (substitute* "libweston/meson.build"
1057 (("libsystemd-login") "libelogind"))
b23992af
MB		 1058 (substitute* '("libweston/launcher-logind.c"
1059 "libweston/weston-launch.c")
24e051cb 1060 (("#include <systemd/sd-login.h>")
b23992af
MB		 1061 "#include <elogind/sd-login.h>"))
1062 #t))
24e051cb
DC		 1063 (add-after 'configure 'patch-confdefs.h
1064 (lambda _
23635b2e
RH		 1065 (system "echo \"#define HAVE_SYSTEMD_LOGIN_209 1\" >> confdefs.h")
1066 #t))
24e051cb
DC		 1067 (add-before 'check 'setup
1068 (lambda _
1069 (setenv "HOME" (getcwd))
1070 (setenv "XDG_RUNTIME_DIR" (getcwd))
1071 #t))
1072 (add-before 'check 'start-xorg-server
1073 (lambda* (#:key inputs #:allow-other-keys)
1074 ;; The test suite requires a running X server.
1075 (system (string-append (assoc-ref inputs "xorg-server")
1076 "/bin/Xvfb :1 &"))
1077 (setenv "DISPLAY" ":1")
1078 #t)))))
1079 (home-page "https://wayland.freedesktop.org")
1080 (synopsis "Reference implementation of a Wayland compositor")
1081 (description "Weston is the reference implementation of a Wayland
1082compositor, and a useful compositor in its own right.
1083
1084A Wayland compositor allows applications to render to a shared offscreen
1085buffer using OpenGL ES. The compositor then culls the hidden parts and
1086composes the final output. A Wayland compositor is essentially a
1087multiplexer to the KMS/DRM Linux kernel devices.")
1088 (license license:expat)))
1089
ad64b09d 1090(define-public wev
d94be771
BT		 1091 (package
1092 (name "wev")
1093 (version "1.0.0")
1094 (source (origin
1095 (method git-fetch)
1096 (uri (git-reference
1097 (url "https://git.sr.ht/~sircmpwn/wev")
1098 (commit version)))
1099 (file-name (git-file-name name version))
1100 (sha256
1101 (base32
1102 "0l71v3fzgiiv6xkk365q1l08qvaymxd4kpaya6r2g8yzkr7i2hms"))))
1103 (build-system gnu-build-system)
1104 (arguments
1105 `(#:tests? #f ; no tests
1106 #:make-flags
1107 (list "CC=gcc" (string-append "PREFIX=" (assoc-ref %outputs "out")))
1108 #:phases
1109 (modify-phases %standard-phases
1110 (delete 'configure))))
1111 (native-inputs
1112 `(("pkg-config" ,pkg-config)
1113 ("scdoc" ,scdoc)))
1114 (inputs
1115 `(("libxkbcommon" ,libxkbcommon)
1116 ("wayland" ,wayland)
1117 ("wayland-protocols" ,wayland-protocols)))
1118 (home-page "https://git.sr.ht/~sircmpwn/wev")
1119 (synopsis "Wayland event viewer")
1120 (description "Wev is a tool that opens a window, printing all events
ad64b09d
BT		 1121sent to a Wayland window, such as key presses. It is analogous to the X11 tool
1122XEv.")
d94be771 1123 (license license:expat)))
ad64b09d 1124
177b4255
DH		 1125(define-public exempi
1126 (package
1127 (name "exempi")
28d3f49e 1128 (version "2.5.2")
177b4255
DH		 1129 (source (origin
1130 (method url-fetch)
1131 (uri (string-append
5cc3096c 1132 "https://libopenraw.freedesktop.org/download/"
177b4255
DH		 1133 name "-" version ".tar.bz2"))
1134 (sha256
1135 (base32
28d3f49e 1136 "1mdfxb36p8251n5m7l55gx3fcqpk46yz9v568xfr8igxmqa47xaj"))))
177b4255
DH		 1137 (build-system gnu-build-system)
1138 (arguments
1139 `(#:configure-flags (list (string-append "--with-boost="
cd533cb4
MB		 1140 (assoc-ref %build-inputs "boost")))
1141 #:phases
1142 (modify-phases %standard-phases
1143 (add-after 'install 'remove-static-library
1144 (lambda* (#:key outputs #:allow-other-keys)
1145 ;; XXX: Some tests fail to build with --disable-static due to
1146 ;; symbols not being visible in the shared library:
1147 ;; <https://gitlab.freedesktop.org/libopenraw/exempi/-/issues/17>.
1148 ;; Simply delete the static library instead to save ~4.3 MiB.
1149 (delete-file (string-append (assoc-ref outputs "out")
1150 "/lib/libexempi.a"))
1151 #t)))))
177b4255
DH		 1152 (native-inputs
1153 `(("boost" ,boost))) ; tests
1154 (inputs
1155 `(("expat" ,expat)
1156 ("zlib" ,zlib)))
c96ec771 1157 (home-page "https://libopenraw.freedesktop.org/exempi/")
177b4255
DH		 1158 (synopsis "XMP metadata handling library")
1159 (description "Exempi is an implementation of the Extensible Metadata
0b042591
TGR		 1160Platform (@dfn{XMP}), which enables embedding metadata in PDF and image
1161formats.")
177b4255 1162 (license license:bsd-3)))
cfbbff31
SB		 1163
1164(define-public libatasmart
1165 (package
1166 (name "libatasmart")
1167 (version "0.19")
1168 (source (origin
1169 (method url-fetch)
1170 (uri (string-append "http://0pointer.de/public/"
1171 name "-" version ".tar.xz"))
1172 (sha256
1173 (base32
1174 "138gvgdwk6h4ljrjsr09pxk1nrki4b155hqdzyr8mlk3bwsfmw31"))))
1175 (build-system gnu-build-system)
1176 (native-inputs
1177 `(("pkg-config" ,pkg-config)))
1178 (inputs
1179 `(("udev" ,eudev)))
1180 (home-page "http://0pointer.de/blog/projects/being-smart.html")
1181 (synopsis "ATA S.M.A.R.T. reading and parsing library")
1182 (description
1183 "This library supports a subset of the ATA S.M.A.R.T. (Self-Monitoring,
1184Analysis and Reporting Technology) functionality.")
1185 (license license:lgpl2.1+)))
171ae35c
SB		 1186
1187(define-public udisks
1188 (package
1189 (name "udisks")
59b7689e 1190 (version "2.8.4")
171ae35c
SB		 1191 (source (origin
1192 (method url-fetch)
92eb7aff
PN		 1193 (uri (string-append
1194 "https://github.com/storaged-project/udisks/releases/download/udisks-"
1195 version "/udisks-" version ".tar.bz2"))
171ae35c
SB		 1196 (sha256
1197 (base32
59b7689e 1198 "06cq52kp1nyy15qzylywy9s7hhhqc45k0s3y68crf0zsmjyng0yj"))))
171ae35c
SB		 1199 (build-system gnu-build-system)
1200 (native-inputs
aef5055f
MC		 1201 `(("docbook-xml" ,docbook-xml-4.3) ; to build the manpages
1202 ("docbook-xsl" ,docbook-xsl)
92eb7aff
PN		 1203 ("glib:bin" ,glib "bin") ; for glib-mkenums
1204 ("gnome-common" ,gnome-common) ; TODO: Why is this needed?
171ae35c 1205 ("gobject-introspection" ,gobject-introspection)
9dea1618 1206 ("gtk-doc" ,gtk-doc/stable)
171ae35c
SB		 1207 ("intltool" ,intltool)
1208 ("pkg-config" ,pkg-config)
1209 ("xsltproc" ,libxslt)))
1210 (propagated-inputs
1211 `(("glib" ,glib))) ; required by udisks2.pc
1212 (inputs
1213 `(("acl" ,acl)
92eb7aff 1214 ("cryptsetup" ,cryptsetup)
171ae35c 1215 ("libatasmart" ,libatasmart)
92eb7aff 1216 ("libblockdev" ,libblockdev)
171ae35c 1217 ("libgudev" ,libgudev)
5905114a 1218 ("polkit" ,polkit)
92eb7aff 1219 ("util-linux" ,util-linux)))
daa3b04c
LC		 1220 (outputs '("out"
1221 "doc")) ;5 MiB of gtk-doc HTML
171ae35c
SB		 1222 (arguments
1223 `(#:tests? #f ; requiring system message dbus
c0351459 1224 #:disallowed-references ("doc") ;enforce separation of "doc"
171ae35c 1225 #:configure-flags
aef5055f 1226 (list "--enable-man"
92eb7aff 1227 "--enable-available-modules" ; Such as lvm2, btrfs, etc.
171ae35c 1228 "--localstatedir=/var"
35263cd8 1229 "--enable-fhs-media" ;mount devices in /media, not /run/media
daa3b04c
LC		 1230 (string-append "--with-html-dir="
1231 (assoc-ref %outputs "doc")
1232 "/share/doc/udisks/html")
171ae35c 1233 (string-append "--with-udevdir=" %output "/lib/udev"))
aef5055f
MC		 1234 #:make-flags
1235 (let* ((docbook-xsl-name-version ,(string-append
1236 (package-name docbook-xsl) "-"
1237 (package-version docbook-xsl)))
1238 (docbook-xsl-catalog-file (string-append
1239 (assoc-ref %build-inputs "docbook-xsl")
1240 "/xml/xsl/"
1241 docbook-xsl-name-version
1242 "/catalog.xml"))
1243 (docbook-xml-catalog-file (string-append
1244 (assoc-ref %build-inputs "docbook-xml")
1245 "/xml/dtd/docbook/catalog.xml")))
1246 ;; Reference the catalog files required to build the manpages.
1247 (list (string-append "XML_CATALOG_FILES=" docbook-xsl-catalog-file " "
1248 docbook-xml-catalog-file)))
171ae35c
SB		 1249 #:phases
1250 (modify-phases %standard-phases
1251 (add-before
1252 'configure 'fix-girdir
1253 (lambda _
1254 ;; Install introspection data to its own output.
1255 (substitute* "udisks/Makefile.in"
1256 (("girdir = .*")
1257 "girdir = $(datadir)/gir-1.0\n")
1258 (("typelibsdir = .*")
5905114a 1259 "typelibsdir = $(libdir)/girepository-1.0\n"))))
03800de1 1260 (add-after 'install 'wrap-udisksd
5905114a
LC		 1261 (lambda* (#:key outputs inputs #:allow-other-keys)
1262 ;; Tell 'udisksd' where to find the 'mount' command.
1263 (let ((out (assoc-ref outputs "out"))
03800de1
CB		 1264 (utils (assoc-ref inputs "util-linux"))
1265 (cryptsetup (assoc-ref inputs "cryptsetup"))
1266 (parted (assoc-ref inputs "parted")))
5905114a
LC		 1267 (wrap-program (string-append out "/libexec/udisks2/udisksd")
1268 `("PATH" ":" prefix
1269 (,(string-append utils "/bin") ;for 'mount'
03800de1
CB		 1270 ;; cryptsetup is required for setting encrypted
1271 ;; partitions, e.g. in gnome-disks
1272 ,(string-append cryptsetup "/sbin")
5905114a
LC		 1273 "/run/current-system/profile/bin"
1274 "/run/current-system/profile/sbin")))
1275 #t))))))
988e1dca 1276 (home-page "https://www.freedesktop.org/wiki/Software/udisks/")
171ae35c
SB		 1277 (synopsis "Disk manager service")
1278 (description
1279 "UDisks provides interfaces to enumerate and perform operations on disks
1280and storage devices. Any application (including unprivileged ones) can access
1281the udisksd(8) daemon via the name org.freedesktop.UDisks2 on the system
1282message bus.")
1283 ;; The dynamic library are under LGPLv2+, others are GPLv2+.
1284 (license (list license:gpl2+ license:lgpl2.0+))))
83a2e492
SB		 1285
1286(define-public accountsservice
1287 (package
1288 (name "accountsservice")
0981ec13 1289 (version "0.6.50")
2a6403c1
TGR		 1290 (source
1291 (origin
1292 (method url-fetch)
1293 (uri (string-append "https://www.freedesktop.org/software/"
1294 "accountsservice/accountsservice-" version ".tar.xz"))
1295 (sha256
1296 (base32 "0jn7vg1z4vxnna0hl33hbcb4bb3zpilxc2vyclh24vx4vvsjhn83"))))
83a2e492
SB		 1297 (build-system gnu-build-system)
1298 (arguments
1299 '(#:tests? #f ; XXX: tests require DocBook 4.1.2
1300 #:configure-flags
0981ec13
MB		 1301 '("--localstatedir=/var"
1302 "--disable-systemd"
1303 "--enable-elogind")
83a2e492
SB		 1304 #:phases
1305 (modify-phases %standard-phases
c9aadd07
RS		 1306 (add-after 'unpack 'patch-/bin/cat
1307 (lambda _
1308 (substitute* "src/user.c"
1309 (("/bin/cat") (which "cat")))
1310 #t))
83a2e492
SB		 1311 (add-before
1312 'configure 'pre-configure
e76008db
AW		 1313 (lambda* (#:key inputs #:allow-other-keys)
1314 ;; Don't try to create /var/lib/AccountsService.
83a2e492 1315 (substitute* "src/Makefile.in"
571ffdeb 1316 (("\\$\\(MKDIR_P\\).*/lib/AccountsService.*") "true"))
e76008db
AW		 1317 (let ((shadow (assoc-ref inputs "shadow")))
1318 (substitute* '("src/user.c" "src/daemon.c")
1319 (("/usr/sbin/usermod") (string-append shadow "/sbin/usermod"))
1320 (("/usr/sbin/useradd") (string-append shadow "/sbin/useradd"))
1321 (("/usr/sbin/userdel") (string-append shadow "/sbin/userdel"))
1322 (("/usr/bin/passwd") (string-append shadow "/bin/passwd"))
1323 (("/usr/bin/chage") (string-append shadow "/bin/chage"))))
571ffdeb 1324 #t)))))
83a2e492
SB		 1325 (native-inputs
1326 `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
1327 ("gobject-introspection" ,gobject-introspection)
1328 ("intltool" ,intltool)
1329 ("pkg-config" ,pkg-config)))
1330 (inputs
0981ec13
MB		 1331 `(("elogind" ,elogind)
1332 ("polkit" ,polkit)
1333 ("shadow" ,shadow)))
57e7d748 1334 (home-page "https://www.freedesktop.org/wiki/Software/AccountsService/")
83a2e492
SB		 1335 (synopsis "D-Bus interface for user account query and manipulation")
1336 (description
1337 "The AccountService project provides a set of D-Bus interfaces for querying
1338and manipulating user account information and an implementation of these
1339interfaces, based on the useradd, usermod and userdel commands.")
1340 (license license:gpl3+)))
f3ad1490
SB		 1341
1342(define-public libmbim
1343 (package
1344 (name "libmbim")
fdb88305 1345 (version "1.20.2")
f3ad1490
SB		 1346 (source (origin
1347 (method url-fetch)
1348 (uri (string-append
351c8042
TGR		 1349 "https://www.freedesktop.org/software/libmbim/"
1350 "libmbim-" version ".tar.xz"))
f3ad1490
SB		 1351 (sha256
1352 (base32
fdb88305 1353 "16q550sy84izi5ic3sbbhjnnka2fwhj8vvdrirpn9xspbsgbc3sm"))))
f3ad1490
SB		 1354 (build-system gnu-build-system)
1355 (native-inputs
1356 `(("glib:bin" ,glib "bin") ; for glib-mkenums
1357 ("pkg-config" ,pkg-config)
1358 ("python" ,python-wrapper)))
1359 (propagated-inputs
1360 `(("glib" ,glib))) ; required by mbim-glib.pc
1361 (inputs
1362 `(("libgudev" ,libgudev)))
1363 (synopsis "Library to communicate with MBIM-powered modems")
66056126 1364 (home-page "https://www.freedesktop.org/wiki/Software/libmbim/")
f3ad1490
SB		 1365 (description
1366 "Libmbim is a GLib-based library for talking to WWAN modems and devices
1367which speak the Mobile Interface Broadband Model (MBIM) protocol.")
1368 (license
1369 ;; The libmbim-glib library is released under the LGPLv2+ license.
1370 ;; The mbimcli tool is released under the GPLv2+ license.
1371 (list license:lgpl2.0+ license:gpl2+))))
5302c5ff
SB		 1372
1373(define-public libqmi
1374 (package
1375 (name "libqmi")
22fdca91 1376 (version "1.24.14")
5302c5ff
SB		 1377 (source (origin
1378 (method url-fetch)
1379 (uri (string-append
6c5101f8
MB		 1380 "https://www.freedesktop.org/software/libqmi/"
1381 "libqmi-" version ".tar.xz"))
5302c5ff
SB		 1382 (sha256
1383 (base32
22fdca91 1384 "0zshxqbm9ldybgrzh7pjmwmfjvvvfd0xh8qhgl8xiqdb9ply73r0"))))
5302c5ff 1385 (build-system gnu-build-system)
b707140b
MW		 1386 (inputs
1387 `(("libgudev" ,libgudev)))
5302c5ff
SB		 1388 (native-inputs
1389 `(("glib:bin" ,glib "bin") ; for glib-mkenums
1390 ("pkg-config" ,pkg-config)
1391 ("python" ,python-wrapper)))
1392 (propagated-inputs
1393 `(("glib" ,glib))) ; required by qmi-glib.pc
1394 (synopsis "Library to communicate with QMI-powered modems")
97a08595 1395 (home-page "https://www.freedesktop.org/wiki/Software/libqmi/")
5302c5ff
SB		 1396 (description
1397 "Libqmi is a GLib-based library for talking to WWAN modems and devices
1398which speak the Qualcomm MSM Interface (QMI) protocol.")
1399 (license
1400 ;; The libqmi-glib library is released under the LGPLv2+ license.
1401 ;; The qmicli tool is released under the GPLv2+ license.
1402 (list license:lgpl2.0+ license:gpl2+))))
1509a1dc
SB		 1403
1404(define-public modem-manager
1405 (package
1406 (name "modem-manager")
cf390391 1407 (version "1.12.10")
1509a1dc
SB		 1408 (source (origin
1409 (method url-fetch)
1410 (uri (string-append
e9f68a64 1411 "https://www.freedesktop.org/software/ModemManager/"
1509a1dc
SB		 1412 "ModemManager-" version ".tar.xz"))
1413 (sha256
1414 (base32
cf390391 1415 "1apq9camys2gaw6y6ic1ld20cncfwpmxnzvh4j5zkbbjpf5hbcxj"))))
1509a1dc
SB		 1416 (build-system gnu-build-system)
1417 (arguments
1418 '(#:configure-flags
cf390391 1419 `(,(string-append "--with-udev-base-dir=" %output "/lib/udev"))))
1509a1dc
SB		 1420 (native-inputs
1421 `(("glib:bin" ,glib "bin") ; for glib-mkenums
1422 ("gobject-introspection" ,gobject-introspection)
1423 ("intltool" ,intltool)
1424 ("pkg-config" ,pkg-config)
1425 ("vala" ,vala)
1426 ;; For testing.
1427 ("dbus" ,dbus)))
1428 (propagated-inputs
1429 `(("glib" ,glib))) ; required by mm-glib.pc
1430 (inputs
1431 `(("libgudev" ,libgudev)
1432 ("libmbim" ,libmbim)
1433 ("libqmi" ,libqmi)
1434 ("polkit" ,polkit)))
1435 (synopsis "Mobile broadband modems manager")
57e7d748 1436 (home-page "https://www.freedesktop.org/wiki/Software/ModemManager/")
1509a1dc
SB		 1437 (description
1438 "ModemManager is a DBus-activated daemon which controls mobile
1439broadband (2G/3G/4G) devices and connections. Whether built-in devices, USB
1440dongles, bluetooth-paired telephones, or professional RS232/USB devices with
1441external power supplies, ModemManager is able to prepare and configure the
1442modems and setup connections with them.")
1443 (license license:gpl2+)))
6976e7d2
SB		 1444
1445(define-public telepathy-logger
1446 (package
1447 (name "telepathy-logger")
1448 (version "0.8.2")
1449 (source (origin
1450 (method url-fetch)
5cc3096c 1451 (uri (string-append "https://telepathy.freedesktop.org/releases/"
6976e7d2
SB		 1452 name "/" name "-" version ".tar.bz2"))
1453 (sha256
1454 (base32
1455 "1bjx85k7jyfi5pvl765fzc7q2iz9va51anrc2djv7caksqsdbjlg"))))
1456 (build-system gnu-build-system)
1457 (arguments
8758efe0
LF		 1458 '(#:parallel-tests? #f
1459 #:phases
6976e7d2
SB		 1460 (modify-phases %standard-phases
1461 (add-before 'check 'pre-check
1462 (lambda _
1463 (setenv "HOME" (getenv "TMPDIR"))
1464 #t)))))
1465 (native-inputs
1466 `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
1467 ("gobject-introspection" ,gobject-introspection)
1468 ("intltool" ,intltool)
1469 ("pkg-config" ,pkg-config)
1470 ("python" ,python-2)
1471 ("xsltproc" ,libxslt)))
1472 (propagated-inputs
1473 ;; telepathy-logger-0.2.pc refers to all these.
1474 `(("libxml2" ,libxml2)
1475 ("sqlite" ,sqlite)
1476 ("telepathy-glib" ,telepathy-glib)))
1477 (synopsis "Telepathy logger library")
57e7d748 1478 (home-page "https://telepathy.freedesktop.org/")
6976e7d2
SB		 1479 (description
1480 "Telepathy logger is a headless observer client that logs information
1481received by the Telepathy framework. It features pluggable backends to log
1482different sorts of messages in different formats.")
1483 (license license:lgpl2.1+)))
e6823279 1484
bb8b543a
KK		 1485(define-public telepathy-idle
1486 (package
1487 (name "telepathy-idle")
b45ae3bd
TGR		 1488 (version "0.2.2")
1489 (source
1490 (origin
1491 (method git-fetch)
1492 (uri (git-reference
1493 (url "https://github.com/TelepathyIM/telepathy-idle")
1494 (commit (string-append "telepathy-idle-" version))))
1495 (file-name (git-file-name name version))
1496 (sha256
1497 (base32 "1pfw4g2cicw3ykxhsy743r0fc1yqbdrqxh2c5ha6am19dajcr95l"))))
bb8b543a
KK		 1498 (build-system gnu-build-system)
1499 (native-inputs
b45ae3bd
TGR		 1500 `(("autoconf" ,autoconf)
1501 ("automake" ,automake)
1502 ("libtool" ,libtool)
1503 ("pkg-config" ,pkg-config)))
bb8b543a
KK		 1504 (inputs
1505 `(("xsltproc" ,libxslt)
1506 ("python" ,python-2)
1507 ("python-dbus" ,python2-dbus)))
1508 (propagated-inputs
1509 `(("telepathy-glib" ,telepathy-glib)))
57e7d748 1510 (home-page "https://telepathy.freedesktop.org/")
bb8b543a
KK		 1511 (synopsis "Telepathy IRC connection manager")
1512 (description
1513 "Idle is an IRC connection manager for the Telepathy framework. This
1514package enables usage of IRC channels and private messages in Telepathy instant
1515messaging clients such as Empathy, GNOME Shell or KDE Telepathy.")
1516 (license (list license:lgpl2.1 license:lgpl2.1+))))
1517
261b3da5
KK		 1518(define-public telepathy-mission-control
1519 (package
1520 (name "telepathy-mission-control")
6c5401fc 1521 (version "5.16.5")
da42873c
TGR		 1522 (source
1523 (origin
1524 (method url-fetch)
1525 (uri (string-append "https://telepathy.freedesktop.org/releases/"
1526 "telepathy-mission-control/"
1527 "telepathy-mission-control-" version ".tar.gz"))
1528 (sha256
6c5401fc 1529 (base32 "00xxv38cfdirnfvgyd56m60j0nkmsv5fz6p2ydyzsychicxl6ssc"))))
261b3da5
KK		 1530 (build-system gnu-build-system)
1531 (native-inputs
1532 `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
1533 ("pkg-config" ,pkg-config)))
1534 (inputs
1535 `(("dconf" ,dconf)
1536 ("gtk-doc" ,gtk-doc)
1537 ("libgnome-keyring" ,libgnome-keyring)
1538 ("python" ,python-2)
1539 ("xsltproc" ,libxslt)))
1540 (propagated-inputs
1541 `(("telepathy-glib" ,telepathy-glib)))
1542 (home-page "https://telepathy.freedesktop.org/wiki/Components/Mission_Control/")
1543 (synopsis "Telepathy real-time communication framework management daemon")
1544 (description
1545 "Telepathy Mission Control 5 is an account manager and channel dispatcher
1546for the Telepathy framework, allowing user interfaces and other clients to
1547share connections to real-time communication services without conflicting.")
1548 (license license:lgpl2.1)))
1549
e6823279
SB		 1550(define-public colord-gtk
1551 (package
1552 (name "colord-gtk")
1553 (version "0.1.26")
1554 (source (origin
1555 (method url-fetch)
5cc3096c 1556 (uri (string-append "https://www.freedesktop.org/software/colord"
e6823279
SB		 1557 "/releases/" name "-" version ".tar.xz"))
1558 (sha256
1559 (base32
1560 "0i9y3bb5apj6a0f8cx36l6mjzs7xc0k7nf0magmf58vy2mzhpl18"))))
1561 (build-system gnu-build-system)
1562 (arguments '(#:tests? #f)) ; require the colord system service
1563 (native-inputs
1564 `(("gobject-introspection" ,gobject-introspection)
1565 ("intltool" ,intltool)
1566 ("pkg-config" ,pkg-config)
1567 ("vala" ,vala)))
1568 (propagated-inputs
1569 ;; colord-gtk.pc refers to all these.
1570 `(("colord" ,colord)
1571 ("gtk+" ,gtk+)))
1572 (synopsis "GTK integration for libcolord")
57e7d748 1573 (home-page "https://www.freedesktop.org/software/colord/")
e6823279
SB		 1574 (description
1575 "This is a GTK+ convenience library for interacting with colord. It is
1576useful for both applications which need colour management and applications that
1577wish to perform colour calibration.")
1578 (license license:lgpl2.1+)))
dfb01bae
LC		 1579
1580(define-public libfprint
1581 (package
1582 (name "libfprint")
8ee5b425 1583 (version "1.90.7")
239d3e9c
TGR		 1584 (source
1585 (origin
1586 (method git-fetch)
1587 (uri (git-reference
1588 (url "https://gitlab.freedesktop.org/libfprint/libfprint")
1589 (commit (string-append "v" version))))
1590 (file-name (git-file-name name version))
1591 (sha256
8ee5b425 1592 (base32 "00pmdpxxjj4sh8qjq9ch3pylgg9w019rg1bbaw53a4wr637rrz43"))))
239d3e9c 1593 (build-system meson-build-system)
dfb01bae 1594 (arguments
239d3e9c
TGR		 1595 '(#:configure-flags
1596 (list (string-append "-Dudev_rules_dir=" (assoc-ref %outputs "out")
1597 "/lib/udev/rules.d"))))
dfb01bae 1598 (native-inputs
239d3e9c
TGR		 1599 `(("eudev" ,eudev)
1600 ("glib:bin" ,glib "bin") ; for {glib-,}mkenums
1601 ("gobject-introspection" ,gobject-introspection)
9dea1618 1602 ("gtk-doc" ,gtk-doc/stable) ; for 88 KiB of API documentation
239d3e9c 1603 ("pkg-config" ,pkg-config)))
dfb01bae 1604 (inputs
239d3e9c
TGR		 1605 `(("glib" ,glib)
1606 ("gusb" ,gusb)
1607 ("nss" ,nss) ; for the URU4x00 driver
1608
1609 ;; Replacing this with cairo works but just results in a reference
1610 ;; (only) to pixman in the end.
dfb01bae 1611 ("pixman" ,pixman)))
50f02ced 1612 (home-page "https://fprint.freedesktop.org/")
dfb01bae
LC		 1613 (synopsis "Library to access fingerprint readers")
1614 (description
1615 "libfprint is a library designed to make it easy for application
1616developers to add support for consumer fingerprint readers to their
1617software.")
1618 (license license:lgpl2.1+)))
9e3e972d
LC		 1619
1620(define-public fprintd
1621 (package
1622 (name "fprintd")
239d3e9c
TGR		 1623 (version "1.90.1")
1624 (source
1625 (origin
1626 (method git-fetch)
1627 (uri (git-reference
1628 (url "https://gitlab.freedesktop.org/libfprint/fprintd")
1629 (commit version)))
1630 (file-name (git-file-name name version))
1631 (sha256
1632 (base32 "0mbzk263x7f58i9cxhs44mrngs7zw5wkm62j5r6xlcidhmfn03cg"))))
1633 (build-system meson-build-system)
5c3d6c1d 1634 (arguments
239d3e9c
TGR		 1635 `(#:configure-flags
1636 (list "-Dsystemd_system_unit_dir=/tmp"
1637 (string-append "-Ddbus_service_dir=" (assoc-ref %outputs "out")
1638 "/share/dbus-1/system-services")
1639 (string-append "-Dpam_modules_dir=" (assoc-ref %outputs "out")
1640 "/lib/security"))
1641 #:phases
1642 (modify-phases %standard-phases
1643 (add-before 'configure 'patch-output-directories
1644 ;; Install files to our output, not that of the ‘owner’ package.
1645 ;; These are not exposed as Meson options and must be patched.
1646 (lambda* (#:key outputs #:allow-other-keys)
1647 (let ((out (assoc-ref outputs "out")))
1648 (substitute* "meson.build"
1649 (("(dbus_interfaces_dir = ).*" _ set)
1650 (string-append set "'" out "/share/dbus-1/interfaces'\n"))
1651 (("(polkit_policy_directory = ).*" _ set)
1652 (string-append set "'" out "/share/polkit-1/actions/'\n"))
1653 (("(dbus_data_dir = ).*" _ set)
1654 (string-append set "get_option('prefix')"
1655 " / get_option('datadir')\n")))
1656 #t)))
1657 (add-before 'configure 'patch-mistake
1658 (lambda _
1659 (substitute* "meson.build"
1660 (("(storage_path = )(get_option\\('prefix'\\))(.*)"
1661 _ set mistake value)
1662 (string-append set "''" value "\n")))
1663 #t))
1664 (add-before 'configure 'patch-systemd-dependencies
1665 (lambda _
1666 (substitute* "meson.build"
1667 (("'(libsystemd|systemd)'") "'libelogind'"))
1668 #t))
1669 (add-before 'configure 'ignore-test-dependencies
1670 (lambda _
1671 (substitute* "meson.build"
1672 (("pam_wrapper_dep .*") "")
1673 ((".*'(cairo|dbus|dbusmock|gi|pypamtest)': .*,.*") ""))
1674 #t))
1675 (add-before 'install 'no-polkit-magic
1676 ;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
1677 (lambda _
1678 (setenv "PKEXEC_UID" "something")
1679 #t)))
1680 #:tests? #f)) ; XXX depend on unpackaged packages
9e3e972d 1681 (native-inputs
239d3e9c
TGR		 1682 `(("gettext" ,gettext-minimal)
1683 ("glib:bin" ,glib "bin") ; for glib-genmarshal
1684 ("libxslt" ,libxslt) ; for xsltproc
1685 ("perl" ,perl) ; for pod2man
1686 ("pkg-config" ,pkg-config)))
1687 ;; For tests.
1688 ;;("pam_wrapper" ,pam_wrapper)
1689 ;;("python-pycairo" ,python-pycairo)
1690 ;;("python-dbus" ,python-dbus)
1691 ;;("python-dbusmock" ,python-dbusmock)
1692 ;;("python-pygobject" ,python-pygobject)
1693 ;;("python-pypamtest" ,python-pypamtest)
9e3e972d 1694 (inputs
239d3e9c
TGR		 1695 `(("dbus-glib" ,dbus-glib)
1696 ("elogind" ,elogind)
1697 ("libfprint" ,libfprint)
1698 ("linux-pam" ,linux-pam)
9e3e972d 1699 ("polkit" ,polkit)
239d3e9c
TGR		 1700
1701 ;; XXX These are in libfprint's Requires.private. Meson refuses to grant
1702 ;; the ‘libfprint-2’ dependency if they are not provided here.
1703 ("gusb" ,gusb)
1704 ("nss" ,nss)
1705 ("pixman" ,pixman)))
50f02ced 1706 (home-page "https://fprint.freedesktop.org/")
9e3e972d
LC		 1707 (synopsis "D-Bus daemon that exposes fingerprint reader functionality")
1708 (description
1709 "fprintd is a D-Bus daemon that offers functionality of libfprint, a
1710library to access fingerprint readers, over the D-Bus interprocess
1711communication bus. This daemon layer above libfprint solves problems related
1712to applications simultaneously competing for fingerprint readers.")
1713 (license license:gpl2+)))
324b0040
DM		 1714
1715(define-public desktop-file-utils
1716 (package
1717 (name "desktop-file-utils")
04172e9c 1718 (version "0.26")
324b0040
DM		 1719 (source (origin
1720 (method url-fetch)
d4c09245
TGR		 1721 (uri (string-append "https://www.freedesktop.org/software/"
1722 "desktop-file-utils/releases/"
1723 "desktop-file-utils-" version ".tar.xz"))
324b0040
DM		 1724 (sha256
1725 (base32
04172e9c 1726 "02bkfi6fyk4c0gh2avd897882ww5zl7qg7bzzf28qb57kvkvsvdj"))))
324b0040
DM		 1727 (build-system gnu-build-system)
1728 (native-inputs
04172e9c
VL		 1729 `(("autoconf" ,autoconf)
1730 ("automake" ,automake)
1731 ("pkg-config" ,pkg-config)))
324b0040
DM		 1732 (inputs
1733 `(("glib" ,glib)))
57e7d748 1734 (home-page "https://www.freedesktop.org/wiki/Software/desktop-file-utils/")
324b0040
DM		 1735 (synopsis "Utilities for working with desktop entries")
1736 (description
1737 "This package contains a few command line utilities for working with
1738desktop entries:
1739
1740desktop-file-validate: validates a desktop file and prints warnings/errors
1741 about desktop entry specification violations.
1742
1743desktop-file-install: installs a desktop file to the applications directory,
1744 optionally munging it a bit in transit.
1745
1746update-desktop-database: updates the database containing a cache of MIME types
1747 handled by desktop files.")
1748 (license license:gpl2+)))
b9bf08f0
AW		 1749
1750(define-public xdg-user-dirs
1751 (package
1752 (name "xdg-user-dirs")
7c9b7c5c 1753 (version "0.17")
b9bf08f0
AW		 1754 (source (origin
1755 (method url-fetch)
1756 (uri (string-append "http://user-dirs.freedesktop.org/releases/"
1757 name "-" version ".tar.gz"))
1758 (sha256
7c9b7c5c 1759 (base32 "13216b8rfkzak5k6bvpx6jvqv3cnbgpijnjwj8a8d3kq4cl0a1ra"))))
b9bf08f0
AW		 1760 (build-system gnu-build-system)
1761 (native-inputs
1762 `(("gettext" ,gettext-minimal)
1763 ("docbook-xsl" ,docbook-xsl)
1764 ("docbook-xml" ,docbook-xml-4.3)
1765 ("xsltproc" ,libxslt)))
1766 (arguments
1767 `(#:phases
1768 (modify-phases %standard-phases
1769 (add-before 'build 'locate-catalog-files
1770 (lambda* (#:key inputs #:allow-other-keys)
1771 (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1772 "/xml/dtd/docbook"))
1773 (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
1774 "/xml/xsl/docbook-xsl-"
1775 ,(package-version docbook-xsl))))
1776 (for-each (lambda (file)
1777 (substitute* file
1778 (("http://.*/docbookx\\.dtd")
1779 (string-append xmldoc "/docbookx.dtd"))))
1780 (find-files "man" "\\.xml$"))
1781 (substitute* "man/Makefile"
1782 (("http://.*/docbook\\.xsl")
1783 (string-append xsldoc "/manpages/docbook.xsl")))
1784 #t))))))
1785 (home-page "https://www.freedesktop.org/wiki/Software/xdg-user-dirs/")
1786 (synopsis "Tool to help manage \"well known\" user directories")
1787 (description "xdg-user-dirs is a tool to help manage \"well known\" user
1788directories, such as the desktop folder or the music folder. It also handles
1789localization (i.e. translation) of the file names. Designed to be
1790automatically run when a user logs in, xdg-user-dirs can also be run
1791manually by a user.")
1792 (license license:gpl2)))
b32596ec
BT		 1793
1794(define-public perl-file-basedir
1795 (package
1796 (name "perl-file-basedir")
12c069db 1797 (version "0.08")
b32596ec
BT		 1798 (source
1799 (origin
1800 (method url-fetch)
1801 (uri (string-append "mirror://cpan/authors/id/K/KI/KIMRYAN/"
1802 "File-BaseDir-" version ".tar.gz"))
1803 (sha256
1804 (base32
12c069db 1805 "1qq5ag9zffx8zc5i9b4z03ar80pqj4drgk3vjdlyfapjwb9zqrf0"))))
b32596ec
BT		 1806 (build-system perl-build-system)
1807 (native-inputs
1808 `(("perl-module-build" ,perl-module-build)
1809 ("perl-file-which" ,perl-file-which)
1810 ("perl-test-pod" ,perl-test-pod)
1811 ("perl-test-pod-coverage" ,perl-test-pod-coverage)
1812 ("xdg-user-dirs" ,xdg-user-dirs)))
1813 (propagated-inputs
1814 `(("perl-ipc-system-simple" ,perl-ipc-system-simple)))
9aba9b12 1815 (home-page "https://metacpan.org/release/File-BaseDir")
b32596ec
BT		 1816 (synopsis "Use the Freedesktop.org base directory specification")
1817 (description
1818 "@code{File::Basedir} can be used to find directories and files as
1819specified by the Freedesktop.org Base Directory Specification. This
1820specifications gives a mechanism to locate directories for configuration,
1821application data and cache data.")
1822 (license license:perl-license)))
825cebdb
BT		 1823
1824(define-public perl-file-desktopentry
1825 (package
1826 (name "perl-file-desktopentry")
1827 (version "0.22")
1828 (source
1829 (origin
1830 (method url-fetch)
1831 (uri (string-append "mirror://cpan/authors/id/M/MI/MICHIELB/"
1832 "File-DesktopEntry-" version ".tar.gz"))
1833 (sha256
1834 (base32
1835 "1f1maqix2kbfg2rf008m7mqnvv6nvcf9y6pcgdv2kxp2vbih370n"))))
1836 (build-system perl-build-system)
1837 (native-inputs
1838 `(("perl-test-pod" ,perl-test-pod)
1839 ("perl-test-pod-coverage" ,perl-test-pod-coverage)))
1840 (propagated-inputs
1841 `(("perl-file-basedir" ,perl-file-basedir)
1842 ("perl-uri" ,perl-uri)))
9aba9b12 1843 (home-page "https://metacpan.org/release/File-DesktopEntry")
825cebdb
BT		 1844 (synopsis "Handle @file{.desktop} files")
1845 (description
1846 "@code{File::DesktopEntry} parses @file{.desktop} files defined by the
1847Freedesktop.org @dfn{Desktop Entry} specification. It can also run the
1848applications define in those files.")
1849 (license license:perl-license)))
d0ce96bc
BT		 1850
1851(define-public perl-file-mimeinfo
1852 (package
1853 (name "perl-file-mimeinfo")
2f989172 1854 (version "0.29")
d0ce96bc
BT		 1855 (source
1856 (origin
1857 (method url-fetch)
1858 (uri (string-append "mirror://cpan/authors/id/M/MI/MICHIELB/"
1859 "File-MimeInfo-" version ".tar.gz"))
1860 (sha256
1861 (base32
2f989172 1862 "1sh8r6vczyz08zm8vfsjmkg6a165wch54akjdrd1vbifcmwjg5pi"))))
d0ce96bc
BT		 1863 (build-system perl-build-system)
1864 ;; If the tests are fixed, add perl-test-pod, perl-test-pod-coverage, and
1865 ;; perl-test-tiny as native-inputs.
1866 (propagated-inputs
1867 `(("shared-mime-info" ,shared-mime-info)
1868 ("perl-file-desktopentry" ,perl-file-desktopentry)))
1869 (arguments
1870 ;; Some tests fail due to requiring the mimetype of perl files to be
1871 ;; text/plain when they are actually application/x-perl.
1872 `(#:tests? #f
1873 #:phases
1874 (modify-phases %standard-phases
1875 (add-after 'install 'wrap-programs
1876 (lambda* (#:key outputs #:allow-other-keys)
1877 (let ((out (assoc-ref outputs "out")))
1878 (for-each (lambda (prog)
1879 (wrap-program (string-append out "/bin/" prog)
1880 `("PERL5LIB" ":" prefix
1881 (,(string-append (getenv "PERL5LIB") ":" out
1882 "/lib/perl5/site_perl")))))
1883 '("mimeopen" "mimetype")))
1884 #t)))))
9aba9b12 1885 (home-page "https://metacpan.org/release/File-MimeInfo")
d0ce96bc
BT		 1886 (synopsis "Determine file type from the file name")
1887 (description
1888 "@code{File::Mimeinfo} can be used to determine the MIME type of a file.
1889It tries to implement the Freedesktop specification for a shared MIME
1890database.
1891
1892This package also contains two related utilities:
1893
1894@itemize
1895@item @command{mimetype} determines a file's MIME type;
1896@item @command{mimeopen} opens files in an appropriate program according to
1897their MIME type.
1898@end itemize")
1899 (license license:perl-license)))
748ca12f
RAM		 1900
1901(define-public uchardet
1902 (package
1903 (name "uchardet")
e071b0c9 1904 (version "0.0.7")
748ca12f
RAM		 1905 (source
1906 (origin
1907 (method url-fetch)
1908 (uri (string-append "https://www.freedesktop.org/software/"
1909 name "/releases/" name "-" version ".tar.xz"))
1910 (sha256
e071b0c9 1911 (base32 "1ca51sryhryqz82v4d0graaiqqq5w2f33a9gj83b910xmq499irz"))))
748ca12f
RAM		 1912 (build-system cmake-build-system)
1913 (home-page "https://www.freedesktop.org/wiki/Software/uchardet/")
1914 (synopsis "Encoding detector library")
1915 (description "uchardet is an encoding detector library, which takes a
1916sequence of bytes in an unknown character encoding without any additional
1917information, and attempts to determine the encoding of the text. Returned
1918encoding names are iconv-compatible.")
1919
1920 ;; This combines code under MPL 1.1, LGPL 2.1+, and GPL 2.0+, so the
1921 ;; combination is GPL 2.0+.
1922 (license license:gpl2+)))
d29d04c9 1923
141e74a8
BT		 1924(define-public python-cchardet
1925 (package
1926 (name "python-cchardet")
1927 (version "2.1.7")
1928 (source
1929 (origin
1930 (method url-fetch)
1931 (uri (pypi-uri "cchardet" version))
1932 (sha256
1933 (base32
1934 "1bqfz85cd51sw0bvhvdq9ikccxi2ld7g5jpni4jkq1a5clrvca64"))))
1935 (build-system python-build-system)
1936 (inputs
1937 `(("uchardet" ,uchardet)))
1938 (home-page "https://github.com/PyYoshi/cChardet")
1939 (synopsis "High-performance character encoding detection for Python")
1940 (description "cChardet is a character encoding detector, written in
1941Python, that binds to the C library @code{uchardet} to increase performance.")
1942 (license license:gpl2+)))
1943
d29d04c9
GLV		 1944(define-public udiskie
1945 (package
1946 (name "udiskie")
034d9544 1947 (version "2.1.0")
d29d04c9
GLV		 1948 (source
1949 (origin
1950 (method url-fetch)
1951 (uri (pypi-uri "udiskie" version))
1952 (sha256
1953 (base32
034d9544 1954 "0smib8vbs9q37n7ynhzyw97q16fgdkcdw7fw69lci0xvyq00v1dz"))
d29d04c9
GLV		 1955 ;; Remove support for the libappindicator library of the
1956 ;; Unity desktop environment which is not in Guix.
1957 (patches (search-patches "udiskie-no-appindicator.patch"))))
1958 (build-system python-build-system)
1959 (native-inputs
1960 `(("asciidoc" ,asciidoc)
1961 ("gettext" ,gettext-minimal)
1962 ("gobject-introspection" ,gobject-introspection)))
1963 (inputs
1964 `(("gobject-introspection" ,gobject-introspection)
1965 ("gtk+" ,gtk+)
1966 ("libnotify" ,libnotify)
1967 ("udisks" ,udisks)))
1968 (propagated-inputs
1969 `(("python-docopt" ,python-docopt)
1970 ("python-pygobject" ,python-pygobject)
1971 ("python-keyutils" ,python-keyutils)
1972 ("python-pyxdg" ,python-pyxdg)
1973 ("python-pyyaml" ,python-pyyaml)))
1974 (arguments
1975 `(#:phases
1976 (modify-phases %standard-phases
1977 (add-after 'install 'wrap-gi-typelib
1978 (lambda* (#:key outputs #:allow-other-keys)
1979 (let ((out (assoc-ref outputs "out"))
1980 (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
1981 (wrap-program (string-append out "/bin/udiskie")
1982 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
1983 #t)))))
1984 (home-page "https://github.com/coldfix/udiskie")
1985 (synopsis "Automounter for removable media")
1986 (description
bf6c2788
VC		 1987 "The @command{udiskie} program is a udisks2 front-end that
1988manages removable media such as CDs or flash drives from userspace.
d29d04c9
GLV		 1989
1990Its features include:
1991
1992@itemize
1993@item automount removable media,
1994@item notifications,
1995@item tray icon,
1996@item command line tools for manual (un)mounting,
1997@item LUKS encrypted devices,
1998@item unlocking with keyfiles,
1999@item loop devices (mounting ISO archives),
2000@item password caching.
2001@end itemize
2002")
2003 (license license:expat)))
5b9bdeb5
RW		 2004
2005(define-public plymouth
2006 (package
2007 (name "plymouth")
2008 (version "0.9.4")
2009 (source
2010 (origin
2011 (method url-fetch)
2012 (uri (string-append "https://www.freedesktop.org/software/"
2013 "plymouth/releases/" name "-" version ".tar.xz"))
2014 (sha256
2015 (base32
2016 "0l8kg7b2vfxgz9gnrn0v2w4jvysj2cirp0nxads5sy05397pl6aa"))))
2017 (build-system gnu-build-system)
2018 (arguments
2019 `(#:configure-flags
2020 (list (string-append "--with-logo="
2021 "/etc/plymouth/logo.png")
2022 (string-append "--with-background-color="
2023 "0x00ff00")
2024 (string-append "--with-background-start-color-stop="
2025 "0xff0000")
2026 (string-append "--with-background-end-color-stop="
2027 "0x0000ff")
2028 "--localstatedir=/var"
2029 "--with-boot-tty=/dev/console"
2030 "--without-system-root-install"
2031 "--without-rhgb-compat-link"
2032 "--enable-drm"
2033 "--disable-systemd-integration"
2034 ;; Disable GTK to dramatically reduce the closure
2035 ;; size from ~800 MiB to a little more than 200 MiB
2036 "--disable-gtk")
2037 #:phases
2038 (modify-phases %standard-phases
2039 (add-after 'unpack 'make-reproducible
2040 (lambda _
2041 (substitute* "src/main.c"
2042 (("__DATE__") "\"guix\""))
2043 #t))
2044 (add-before 'configure 'fix-docbook
2045 (lambda* (#:key inputs #:allow-other-keys)
2046 (substitute* "docs/Makefile.in"
2047 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2048 (string-append (assoc-ref inputs "docbook-xsl")
2049 "/xml/xsl/docbook-xsl-"
2050 ,(package-version docbook-xsl)
2051 "/manpages/docbook.xsl")))
2052 (setenv "XML_CATALOG_FILES"
2053 (string-append (assoc-ref inputs "docbook-xml")
2054 "/xml/dtd/docbook/catalog.xml"))
2055 #t)))))
2056 (inputs
2057 `(("glib" ,glib)
2058 ("pango" ,pango)
2059 ("libdrm" ,libdrm)
2060 ("libpng" ,libpng)
2061 ("eudev" ,eudev)))
2062 (native-inputs
2063 `(("pkg-config" ,pkg-config)
2064 ("libxslt" ,libxslt)
2065 ("docbook-xsl" ,docbook-xsl)
2066 ("docbook-xml" ,docbook-xml)))
2067 (synopsis "Graphical boot animation (splash) and logger")
2068 (home-page "https://www.freedesktop.org/wiki/Software/Plymouth/")
2069 (description
2070 "Plymouth is an application that runs very early in the boot process and
2071that provides a graphical boot animation while the boot process happens in the
2072background. You are not supposed to install this on your own, it is only
2073useful with system integration.")
2074 (license license:gpl2+)))
5e2750fb
NB		 2075
2076(define-public libindicator
2077 (package
2078 (name "libindicator")
2079 (version "12.10.1")
2080 (source
2081 (origin
2082 (method url-fetch)
2083 (uri (string-append
2084 "https://launchpad.net/libindicator/"
2085 (version-major+minor version) "/" version
2086 "/+download/libindicator-" version ".tar.gz"))
2087 (sha256
2088 (base32
2089 "0zs4z7l9b57jldwz0ban77f3c2zq43ambd0dssf5qg9i216f9lmj"))))
2090 (build-system gnu-build-system)
2091 (native-inputs
2092 `(("dbus-test-runner" ,dbus-test-runner)
2093 ("glib:bin" ,glib "bin")
2094 ("pkg-config" ,pkg-config)
2095 ("xvfb" ,xorg-server-for-tests)))
2096 (inputs
2097 `(("gtk+" ,gtk+)
2098 ("glib" ,glib)))
2099 (arguments
2100 `(#:make-flags '("CFLAGS=-Wno-error")
2101 #:phases
2102 (modify-phases %standard-phases
2103 (add-before 'configure 'fix-missing-space-for-libm
2104 (lambda* (#:key outputs #:allow-other-keys)
2105 (substitute* "configure"
2106 (("LIBM=\"-lm\"") "LIBM=\" -lm\""))
2107 #t))
2108 (add-before 'configure 'fix-test-paths
2109 (lambda* (#:key inputs #:allow-other-keys)
2110 (substitute* "tests/Makefile.in"
2111 (("/bin/sh") (which "sh"))
2112 (("#!/bin/bash") (string-append "#!" (which "bash")))
2113 (("/usr/share")
2114 (string-append (assoc-ref inputs "dbus-test-runner") "/share")))
2115 #t)))))
2116 (home-page "https://launchpad.net/libindicator")
2117 (synopsis "Ayatana indicators symbols and functions")
2118 (description "A set of symbols and convenience functions for Ayatana indicators.")
2119 (license license:gpl3)))
c7b77713
NB		 2120
2121(define-public libappindicator
2122 (package
2123 (name "libappindicator")
2124 (version "12.10.0")
2125 (source
2126 (origin
2127 (method url-fetch)
2128 (uri (string-append
2129 "https://launchpad.net/libappindicator/"
2130 (version-major+minor version) "/" version
2131 "/+download/libappindicator-" version ".tar.gz"))
2132 (sha256
2133 (base32
2134 "17xlqd60v0zllrxp8bgq3k5a1jkj0svkqn8rzllcyjh8k0gpr46m"))))
2135 (build-system gnu-build-system)
2136 (native-inputs
2137 `(("dbus-test-runner" ,dbus-test-runner)
2138 ("glib:bin" ,glib "bin")
2139 ("gobject-introspection" ,gobject-introspection)
2140 ("pkg-config" ,pkg-config)
2141 ("xvfb" ,xorg-server-for-tests)))
2142 (inputs
2143 `(("dbus-glib" ,dbus-glib)
c7b77713
NB		 2144 ("libindicator" ,libindicator)
2145 ("python@2" ,python-2)
2146 ("python2-pygtk" ,python2-pygtk)
2147 ("python2-pygobject-2" ,python2-pygobject-2)
2148 ;; ("mono" ,mono) ; requires non-packaged gapi
2149 ("vala" ,vala)))
eb8c32f8
RG		 2150 (propagated-inputs
2151 `(("gtk+" ,gtk+)
2152 ("libdbusmenu" ,libdbusmenu)))
c7b77713
NB		 2153 (arguments
2154 ;; FIXME: do not hardcode gtk version
2155 `(#:configure-flags '("--with-gtk=3")
2156 #:make-flags '("CFLAGS=-Wno-error")
2157 #:tests? #f ; One test does not pass (it succeeds when it should fail).
2158 #:phases
2159 (modify-phases %standard-phases
2160 (add-before 'configure 'fix-paths
2161 (lambda* (#:key inputs #:allow-other-keys)
2162 (substitute* "docs/reference/Makefile.in"
2163 (("/bin/sh") (which "sh")))
2164 (substitute* "tests/Makefile.in"
2165 (("/bin/sh") (which "sh"))
2166 (("#!/bin/bash") (string-append "#!" (which "bash")))
2167 (("/usr") (string-append (assoc-ref inputs "dbus-test-runner"))))
2168 (substitute* "bindings/python/Makefile.in"
2169 (("-lappindicator") "-lappindicator3"))
2170 #t))
2171 (add-after 'unpack 'fix-codegen-path
2172 (lambda _
2173 (substitute* "configure"
2174 (("PYGTK_CODEGEN=.*") "PYGTK_CODEGEN=pygtk-codegen-2.0\n"))
2175 #t))
2176 (add-after 'build 'build-bindings
2177 (lambda _
2178 (invoke "make" "-C" "bindings/python")
2179 #t))
2180 (add-after 'install 'install-bindings
2181 (lambda _
2182 (invoke "make" "-C" "bindings/python" "install")
2183 #t)))))
2184 (home-page "https://launchpad.net/libappindicator")
2185 (synopsis "Allow applications to export a menu into the Unity menu bar")
2186 (description "A library to allow applications to export a menu, originally
2187into the Unity menu bar. Based on KSNI, it also works in KDE and will
2188fallback to generic Systray support if none of those are available.")
2189 (license license:lgpl2.1+)))
ef43f74c
AT		 2190
2191(define-public libportal
2192 (let ((commit "bff3289")
2193 (revision "1"))
2194 (package
2195 (name "libportal")
2196 (version (git-version "0.3" revision commit))
2197 (source (origin
2198 (method git-fetch)
2199 (uri (git-reference
2200 (url "https://github.com/flatpak/libportal")
2201 (commit commit)))
2202 (file-name (git-file-name name version))
2203 (sha256
2204 (base32
2205 "104b91qircr1i9jkmm6f725awywky52aimrki303kiaadn2v8b5i"))))
2206 (build-system meson-build-system)
2207 (arguments
2208 `(#:phases
2209 (modify-phases %standard-phases
2210 (add-after 'install 'move-doc
2211 (lambda* (#:key outputs #:allow-other-keys)
2212 (let ((out (assoc-ref outputs "out"))
2213 (doc (assoc-ref outputs "doc"))
2214 (html "/share/gtk-doc"))
2215 (copy-recursively (string-append out html)
2216 (string-append doc html))
2217 (delete-file-recursively (string-append out html))
2218 #t))))))
2219 (native-inputs
2220 `(("pkg-config" ,pkg-config)
9dea1618 2221 ("gtk-doc" ,gtk-doc/stable)
ef43f74c
AT		 2222 ("docbook-xsl" ,docbook-xsl)
2223 ("docbook-xml" ,docbook-xml)
2224 ("libxml2" ,libxml2)
2225 ("glib:bin" ,glib "bin")))
2226 (propagated-inputs
2227 `(("glib" ,glib)))
2228 (outputs '("out" "doc"))
2229 (home-page "https://github.com/flatpak/libportal")
2230 (synopsis "Flatpak portal library")
2231 (description
2232 "libportal provides GIO-style async APIs for most Flatpak portals.")
2233 (license license:lgpl2.1+))))
91150437
AT		 2234
2235(define-public xdg-desktop-portal
2236 (package
2237 (name "xdg-desktop-portal")
2238 (version "1.7.2")
2239 (source (origin
2240 (method git-fetch)
2241 (uri (git-reference
2242 (url "https://github.com/flatpak/xdg-desktop-portal")
2243 (commit version)))
2244 (file-name (git-file-name name version))
2245 (sha256
2246 (base32
2247 "0rkwpsmbn3d3spkzc2zsd50l2r8pp4la390zcpsawaav8w7ql7xm"))))
2248 (build-system gnu-build-system)
2249 (native-inputs
2250 `(("pkg-config" ,pkg-config)
2251 ("autoconf" ,autoconf)
2252 ("automake" ,automake)
2253 ("libtool" ,libtool)
2254 ("glib:bin" ,glib "bin")
2255 ("which" ,which)
2256 ("gettext" ,gettext-minimal)))
2257 (inputs
2258 `(("glib" ,glib)
2259 ("flatpak" ,flatpak)
2260 ("fontconfig" ,fontconfig)
2261 ("json-glib" ,json-glib)
2262 ("libportal" ,libportal)
2263 ("dbus" ,dbus)
2264 ("geoclue" ,geoclue)
2265 ("pipewire" ,pipewire-0.3)
2266 ("fuse" ,fuse)))
2267 (home-page "https://github.com/flatpak/xdg-desktop-portal")
2268 (synopsis "Desktop integration portal for sandboxed apps")
2269 (description
2270 "xdg-desktop-portal is a @dfn{portal front-end service} for Flatpak and
2271possibly other desktop containment frameworks. It works by exposing a series
2272of D-Bus interfaces known as portals under a well-known
2273name (@code{org.freedesktop.portal.Desktop}) and object
2274path (@code{/org/freedesktop/portal/desktop}).
2275
2276The portal interfaces include APIs for file access, opening URIs, printing
2277and others.")
2278 (license license:lgpl2.1+)))
e4b8feaf
AT		 2279
2280(define-public xdg-desktop-portal-gtk
2281 (package
2282 (name "xdg-desktop-portal-gtk")
2283 (version "1.7.1")
2284 (source (origin
2285 (method git-fetch)
2286 (uri (git-reference
2287 (url "https://github.com/flatpak/xdg-desktop-portal-gtk")
2288 (commit version)))
2289 (file-name (git-file-name name version))
2290 (sha256
2291 (base32
2292 "183iha9dxmvprn99ymgz17jx1lyn1fj5jyj6ghxl716zn9mxmird"))))
2293 (build-system glib-or-gtk-build-system)
2294 (arguments
2295 `(#:phases
2296 (modify-phases %standard-phases
2297 (add-after 'unpack 'po-chmod
2298 (lambda _
2299 ;; Make sure 'msgmerge' can modify the PO files.
2300 (for-each (lambda (po)
2301 (chmod po #o666))
2302 (find-files "po" "\\.po$"))
2303 #t)))))
2304 (native-inputs
2305 `(("pkg-config" ,pkg-config)
2306 ("autoconf" ,autoconf)
2307 ("automake" ,automake)
2308 ("libtool" ,libtool)
2309 ("xdg-desktop-portal" ,xdg-desktop-portal)
2310 ("glib:bin" ,glib "bin")
2311 ("which" ,which)
2312 ("gettext" ,gettext-minimal)))
2313 (inputs
2314 `(("glib" ,glib)
2315 ("gtk" ,gtk+)
2316 ("fontconfig" ,fontconfig)
2317 ("gnome-desktop" ,gnome-desktop)
2318 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
2319 (native-search-paths
2320 (list (search-path-specification
2321 (variable "XDG_DESKTOP_PORTAL_DIR")
2322 (files '("share/xdg-desktop-portal/portals")))))
2323 (home-page "https://github.com/flatpak/xdg-desktop-portal-gtk")
2324 (synopsis "GTK implementation of xdg-desktop-portal")
2325 (description
2326 "This package provides a backend implementation for xdg-desktop-portal
2327which uses GTK+ and various pieces of GNOME infrastructure, such as the
2328@code{org.gnome.Shell.Screenshot} or @code{org.gnome.SessionManager} D-Bus
2329interfaces.")
2330 (license license:lgpl2.1+)))
jackhill's copy of GNU Guix: https://guix.gnu.org/