gnu/packages/freedesktop.scm

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