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