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