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 Ludovic Courtès <ludo@gnu.org>
   6 ;;; Copyright © 2015, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
   7 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
   8 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
   9 ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
  10 ;;; Copyright © 2017, 2018 Mark H Weaver <mhw@netris.org>
  11 ;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com>
  12 ;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
  13 ;;; Copyright © 2017 Brendan Tildesley <brendan.tildesley@openmailbox.org>
  14 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  15 ;;;
  16 ;;; This file is part of GNU Guix.
  17 ;;;
  18 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  19 ;;; under the terms of the GNU General Public License as published by
  20 ;;; the Free Software Foundation; either version 3 of the License, or (at
  21 ;;; your option) any later version.
  22 ;;;
  23 ;;; GNU Guix is distributed in the hope that it will be useful, but
  24 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  25 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26 ;;; GNU General Public License for more details.
  27 ;;;
  28 ;;; You should have received a copy of the GNU General Public License
  29 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  30
  31 (define-module (gnu packages freedesktop)
  32   #:use-module ((guix licenses) #:prefix license:)
  33   #:use-module (guix utils)
  34   #:use-module (guix packages)
  35   #:use-module (guix download)
  36   #:use-module (guix git-download)
  37   #:use-module (guix build-system gnu)
  38   #:use-module (guix build-system meson)
  39   #:use-module (guix build-system perl)
  40   #:use-module (guix build-system python)
  41   #:use-module (gnu packages)
  42   #:use-module (gnu packages acl)
  43   #:use-module (gnu packages admin)
  44   #:use-module (gnu packages autotools)
  45   #:use-module (gnu packages bash)
  46   #:use-module (gnu packages boost)
  47   #:use-module (gnu packages check)
  48   #:use-module (gnu packages compression)
  49   #:use-module (gnu packages cryptsetup)
  50   #:use-module (gnu packages databases)
  51   #:use-module (gnu packages disk)
  52   #:use-module (gnu packages docbook)
  53   #:use-module (gnu packages documentation)
  54   #:use-module (gnu packages gettext)
  55   #:use-module (gnu packages gl)
  56   #:use-module (gnu packages glib)                ;intltool
  57   #:use-module (gnu packages gnome)
  58   #:use-module (gnu packages gnuzilla)
  59   #:use-module (gnu packages gperf)
  60   #:use-module (gnu packages graphviz)
  61   #:use-module (gnu packages gtk)
  62   #:use-module (gnu packages libffi)
  63   #:use-module (gnu packages libunwind)
  64   #:use-module (gnu packages libusb)
  65   #:use-module (gnu packages linux)
  66   #:use-module (gnu packages m4)
  67   #:use-module (gnu packages perl)
  68   #:use-module (gnu packages perl-check)
  69   #:use-module (gnu packages polkit)
  70   #:use-module (gnu packages pkg-config)
  71   #:use-module (gnu packages perl)
  72   #:use-module (gnu packages perl-check)
  73   #:use-module (gnu packages python)
  74   #:use-module (gnu packages valgrind)
  75   #:use-module (gnu packages w3m)
  76   #:use-module (gnu packages web)
  77   #:use-module (gnu packages xml)
  78   #:use-module (gnu packages xdisorg)
  79   #:use-module (gnu packages xorg)
  80   #:use-module (srfi srfi-1))
  81
  82 (define-public xdg-utils
  83   (package
  84     (name "xdg-utils")
  85     (version "1.1.3")
  86     (source
  87       (origin
  88         (method url-fetch)
  89           (uri (string-append
  90                  "https://portland.freedesktop.org/download/xdg-utils-"
  91                  version ".tar.gz"))
  92           (sha256
  93             (base32
  94              "1nai806smz3zcb2l5iny4x7li0fak0rzmjg6vlyhdqm8z25b166p"))))
  95     (build-system gnu-build-system)
  96     (native-inputs
  97      `(("docbook-xsl" ,docbook-xsl)
  98        ("docbook-xml" ,docbook-xml-4.1.2)
  99        ("libxslt" ,libxslt)
 100        ("w3m" ,w3m)
 101        ("xmlto" ,xmlto)))
 102     (propagated-inputs
 103      `(("perl-file-mimeinfo" ,perl-file-mimeinfo) ; for mimeopen fallback
 104        ("xprop" ,xprop) ; for Xfce detecting
 105        ("xset" ,xset))) ; for xdg-screensaver
 106     (arguments
 107      `(#:tests? #f   ; no check target
 108        #:phases
 109        (modify-phases %standard-phases
 110          (add-after 'unpack 'patch-hardcoded-paths
 111            (lambda _
 112              (substitute* "scripts/xdg-mime.in"
 113                (("/usr/bin/file") (which "file")))
 114              (substitute* "scripts/xdg-open.in"
 115                (("/usr/bin/printf") (which "printf")))
 116              #t))
 117          (add-before 'build 'locate-catalog-files
 118            (lambda* (#:key inputs #:allow-other-keys)
 119              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
 120                                           "/xml/dtd/docbook"))
 121                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
 122                                           "/xml/xsl/docbook-xsl-"
 123                                           ,(package-version docbook-xsl))))
 124                (for-each (lambda (file)
 125                            (substitute* file
 126                              (("http://.*/docbookx\\.dtd")
 127                               (string-append xmldoc "/docbookx.dtd"))))
 128                          (find-files "scripts/desc" "\\.xml$"))
 129                (substitute* "scripts/Makefile"
 130                  ;; Apparently `xmlto' does not bother to looks up the stylesheets
 131                  ;; specified in the XML, unlike the above substitition. Instead it
 132                  ;; uses a hard-coded URL. Work around it here, but if this is
 133                  ;; common perhaps we should hardcode this path in xmlto itself.
 134                  (("\\$\\(XMLTO\\) man")
 135                   (string-append "$(XMLTO) -x " xsldoc
 136                                  "/manpages/docbook.xsl man")))
 137                (setenv "STYLESHEET"
 138                        (string-append xsldoc "/html/docbook.xsl"))
 139                #t))))))
 140     (home-page "https://www.freedesktop.org/wiki/Software/xdg-utils/")
 141     (synopsis "Freedesktop.org scripts for desktop integration")
 142     (description "The xdg-utils package is a set of simple scripts that
 143 provide basic desktop integration functions in the framework of the
 144 freedesktop.org project.")
 145     (license license:expat)))
 146
 147 (define-public libinput
 148   (package
 149     (name "libinput")
 150     (version "1.10.3")
 151     (source (origin
 152               (method url-fetch)
 153               (uri (string-append "https://freedesktop.org/software/libinput/"
 154                                   name "-" version ".tar.xz"))
 155               (sha256
 156                (base32
 157                 "0002xk9cqzpqrlhgav1wp8nimsbp9d2w8rd8mgygczq2hjar0lhd"))))
 158     (build-system meson-build-system)
 159     (arguments
 160      `(#:configure-flags '("-Ddocumentation=false")))
 161     (native-inputs
 162      `(("check" ,check)
 163        ("pkg-config" ,pkg-config)
 164        ("valgrind" ,valgrind)))
 165     (propagated-inputs
 166      `(;; In Requires.private of libinput.pc.
 167        ("libevdev" ,libevdev)
 168        ("libudev" ,eudev)
 169        ("libwacom" ,libwacom)
 170        ("mtdev" ,mtdev)))
 171     (inputs
 172      `(("cairo" ,cairo)
 173        ("glib" ,glib)
 174        ("gtk+" ,gtk+)))
 175     (home-page "https://www.freedesktop.org/wiki/Software/libinput/")
 176     (synopsis "Input devices handling library")
 177     (description
 178      "Libinput is a library to handle input devices for display servers and
 179 other applications that need to directly deal with input devices.")
 180     (license license:x11)))
 181
 182 (define-public libinput-minimal
 183   (package (inherit libinput)
 184     (name "libinput-minimal")
 185     (inputs '())
 186     (propagated-inputs
 187      (alist-delete "libwacom" (package-propagated-inputs libinput)))
 188     (arguments
 189      (substitute-keyword-arguments (package-arguments libinput)
 190       ((#:configure-flags flags ''())
 191        `(cons* "-Dlibwacom=false"
 192                "-Ddebug-gui=false"    ;requires gtk+@3
 193                ,flags))))))
 194
 195 (define-public libxdg-basedir
 196   (package
 197     (name "libxdg-basedir")
 198     (version "1.2.0")
 199     (source (origin
 200               (method url-fetch)
 201               (uri (string-append
 202                     "https://github.com/devnev/libxdg-basedir/archive/"
 203                     name "-" version ".tar.gz"))
 204               (sha256
 205                (base32
 206                 "0s28c7sfwqimsmb3kn91mx7wi55fs3flhbmynl9k60rrllr00aqw"))))
 207     (build-system gnu-build-system)
 208     (arguments
 209      '(#:phases
 210        (modify-phases %standard-phases
 211          (add-after 'unpack 'autogen
 212            (lambda _
 213              ;; Run 'configure' in its own phase, not now.
 214              (substitute* "autogen.sh"
 215                (("^.*\\./configure.*") ""))
 216              (zero? (system* "sh" "autogen.sh")))))))
 217     (native-inputs
 218      `(("autoconf" ,autoconf)
 219        ("automake" ,automake)
 220        ("libtool" ,libtool)))
 221     (home-page "https://github.com/devnev/libxdg-basedir")
 222     (synopsis "Implementation of the XDG Base Directory specification")
 223     (description
 224      "libxdg-basedir is a C library providing some functions to use with
 225 the freedesktop.org XDG Base Directory specification.")
 226     (license license:expat)))
 227
 228 (define-public elogind
 229   (package
 230     (name "elogind")
 231     (version "232.4")
 232     (source (origin
 233               (method url-fetch)
 234               (uri (string-append "https://github.com/elogind/elogind/"
 235                                   "archive/v" version ".tar.gz"))
 236               (file-name (string-append name "-" version ".tar.gz"))
 237               (sha256
 238                (base32
 239                 "1qcxian48z2dj5gfmp7brrngdydqf2jm00f4rjr5sy1myh8fy931"))
 240               (patches (search-patches "elogind-glibc-2.27.patch"))
 241               (modules '((guix build utils)))
 242               (snippet
 243                '(begin
 244                   (use-modules (guix build utils))
 245                   (substitute* "Makefile.am"
 246                     ;; Avoid validation against DTD because the DTDs for
 247                     ;; both doctype 4.2 and 4.5 are needed.
 248                     (("XSLTPROC_FLAGS = ") "XSLTPROC_FLAGS = --novalid"))
 249                   #t))))
 250     (build-system gnu-build-system)
 251     (arguments
 252      `(#:tests? #f ;FIXME: "make check" in the "po" directory fails.
 253        #:configure-flags
 254        (list (string-append "--with-udevrulesdir="
 255                             (assoc-ref %outputs "out")
 256                             "/lib/udev/rules.d")
 257
 258              ;; Let elogind be its own cgroup controller, rather than relying
 259              ;; on systemd or OpenRC.  By default, 'configure' makes an
 260              ;; incorrect guess.
 261              "--with-cgroup-controller=elogind"
 262
 263              (string-append "--with-rootprefix="
 264                             (assoc-ref %outputs "out"))
 265              (string-append "--with-rootlibexecdir="
 266                             (assoc-ref %outputs "out")
 267                             "/libexec/elogind")
 268              ;; These are needed to ensure that lto linking works.
 269              "RANLIB=gcc-ranlib"
 270              "AR=gcc-ar"
 271              "NM=gcc-nm")
 272        #:make-flags '("PKTTYAGENT=/run/current-system/profile/bin/pkttyagent")
 273        #:phases
 274        (modify-phases %standard-phases
 275          (add-after 'unpack 'patch-locale-header
 276            (lambda _
 277              ;; Fix compilation with glibc >= 2.26, which removed xlocale.h.
 278              ;; This can be removed for elogind 234.
 279              (substitute* "src/basic/parse-util.c"
 280                (("xlocale\\.h") "locale.h"))
 281              #t))
 282          (replace 'bootstrap
 283            (lambda _
 284              (invoke "intltoolize" "--force" "--automake")
 285              (invoke "autoreconf" "-vif")))
 286          (add-before 'build 'fix-service-file
 287            (lambda* (#:key outputs #:allow-other-keys)
 288              ;; Fix the file name of the 'elogind' binary in the D-Bus
 289              ;; '.service' file.
 290              (substitute* "src/login/org.freedesktop.login1.service"
 291                (("^Exec=.*")
 292                 (string-append "Exec=" (assoc-ref %outputs "out")
 293                                "/libexec/elogind/elogind\n")))
 294              #t))
 295          (add-after 'install 'add-libcap-to-search-path
 296            (lambda* (#:key inputs outputs #:allow-other-keys)
 297              ;; Add a missing '-L' for libcap in libelogind.la.  See
 298              ;; <https://lists.gnu.org/archive/html/guix-devel/2017-09/msg00084.html>.
 299              (let ((libcap (assoc-ref inputs "libcap"))
 300                    (out    (assoc-ref outputs "out")))
 301                (substitute* (string-append out "/lib/libelogind.la")
 302                  (("-lcap")
 303                   (string-append "-L" libcap "/lib -lcap")))
 304                #t)))
 305          (add-after 'unpack 'remove-uaccess-tag
 306            (lambda _
 307              ;; systemd supports a "uaccess" built-in tag, but eudev currently
 308              ;; doesn't.  This leads to eudev warnings that we'd rather not
 309              ;; see, so remove the reference to "uaccess."
 310              (substitute* "src/login/73-seat-late.rules.in"
 311                (("^TAG==\"uaccess\".*" line)
 312                 (string-append "# " line "\n")))
 313              #t)))))
 314     (native-inputs
 315      `(("autoconf" ,autoconf)
 316        ("automake" ,automake)
 317        ("libtool" ,libtool)
 318        ("intltool" ,intltool)
 319        ("gettext" ,gettext-minimal)
 320        ("python" ,python)
 321        ("docbook-xsl" ,docbook-xsl)
 322        ("docbook-xml" ,docbook-xml)
 323        ("xsltproc" ,libxslt)
 324        ("m4" ,m4)
 325        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
 326        ("pkg-config" ,pkg-config)
 327
 328        ;; Use gperf 3.0 to work around
 329        ;; <https://github.com/wingo/elogind/issues/8>.
 330        ("gperf" ,gperf-3.0)))
 331     (inputs
 332      `(("linux-pam" ,linux-pam)
 333        ("linux-libre-headers" ,linux-libre-headers)
 334        ("libcap" ,libcap)
 335        ("shepherd" ,shepherd)                ;for 'halt' and 'reboot', invoked
 336                                              ;when pressing the power button
 337        ("dbus" ,dbus)
 338        ("eudev" ,eudev)
 339        ("acl" ,acl)))           ;to add individual users to ACLs on /dev nodes
 340     (home-page "https://github.com/elogind/elogind")
 341     (synopsis "User, seat, and session management service")
 342     (description "Elogind is the systemd project's \"logind\" service,
 343 extracted out as a separate project.  Elogind integrates with PAM to provide
 344 the org.freedesktop.login1 interface over the system bus, allowing other parts
 345 of a the system to know what users are logged in, and where.")
 346     (license license:lgpl2.1+)))
 347
 348 (define-public packagekit
 349   (package
 350     (name "packagekit")
 351     (version "1.1.10")
 352     (source (origin
 353              (method url-fetch)
 354              (uri (string-append
 355                    "https://www.freedesktop.org/software/"
 356                    "PackageKit/releases/"
 357                    "PackageKit-" version ".tar.xz"))
 358              (sha256
 359               (base32
 360                "1msfmb22cm4s3l6vsbr86b8s0v897sy6gcga3qg87z7640a0di2b"))))
 361     (build-system gnu-build-system)
 362     (arguments
 363      `(#:tests? #f
 364        #:make-flags (list (string-append "BASH_COMPLETIONS_DIR="
 365                                          %output "/etc/bash_completion.d"))
 366        #:configure-flags
 367        '("--disable-systemd")))
 368     (native-inputs
 369      `(("intltool" ,intltool)
 370        ("pkg-config" ,pkg-config)
 371        ("python" ,python-wrapper)
 372        ("glib:bin" ,glib "bin")))
 373     (inputs
 374      `(("glib" ,glib)
 375        ("bash-completion" ,bash-completion)
 376        ("polkit" ,polkit)))
 377     (propagated-inputs
 378      `(("sqlite" ,sqlite)))
 379     (home-page "https://www.freedesktop.org/software/PackageKit/")
 380     (synopsis "API for package management, through D-Bus")
 381     (description
 382      "PackageKit provides a way of performing package management tasks,
 383 e.g. updating, removing and installing software.  Through supporting many
 384 backends, PackageKit can perform these tasks using the appropriate package
 385 manager for the current system.")
 386     (license license:gpl2+)))
 387
 388 (define-public python-pyxdg
 389   (package
 390     (name "python-pyxdg")
 391     (version "0.25")
 392     (source
 393      (origin
 394        (method url-fetch)
 395        (uri (string-append
 396              "https://pypi.python.org/packages/source/p/pyxdg/pyxdg-"
 397              version ".tar.gz"))
 398        (sha256
 399         (base32
 400          "179767h8m634ydlm4v8lnz01ba42gckfp684id764zaip7h87s41"))))
 401     (build-system python-build-system)
 402     (arguments
 403      '(#:phases
 404        (modify-phases %standard-phases
 405          (replace 'check
 406            (lambda* (#:key inputs #:allow-other-keys)
 407              (setenv "XDG_DATA_DIRS"
 408                      (string-append (assoc-ref inputs "shared-mime-info")
 409                                     "/share/"))
 410              (substitute* "test/test-icon.py"
 411                (("/usr/share/icons/hicolor/index.theme")
 412                 (string-append (assoc-ref inputs "hicolor-icon-theme")
 413                                "/share/icons/hicolor/index.theme"))
 414                ;; FIXME: This test fails because the theme contains the unknown
 415                ;; key "Scale".
 416                (("theme.validate\\(\\)") "#"))
 417
 418              ;; One test fails with:
 419              ;; AssertionError: 'x-apple-ios-png' != 'png'
 420              (substitute* "test/test-mime.py"
 421                (("self.check_mimetype\\(imgpng, 'image', 'png'\\)") "#"))
 422              (zero? (system* "nosetests" "-v")))))))
 423     (native-inputs
 424      `(("shared-mime-info" ,shared-mime-info) ;for tests
 425        ("hicolor-icon-theme" ,hicolor-icon-theme) ;for tests
 426        ("python-nose" ,python-nose)))
 427     (home-page "https://www.freedesktop.org/wiki/Software/pyxdg")
 428     (synopsis "Implementations of freedesktop.org standards in Python")
 429     (description
 430      "PyXDG is a collection of implementations of freedesktop.org standards in
 431 Python.")
 432     (license license:lgpl2.0)))
 433
 434 (define-public python2-pyxdg
 435   (package-with-python2 python-pyxdg))
 436
 437 (define-public wayland
 438   (package
 439     (name "wayland")
 440     (version "1.15.0")
 441     (source (origin
 442               (method url-fetch)
 443               (uri (string-append "https://wayland.freedesktop.org/releases/"
 444                                   name "-" version ".tar.xz"))
 445               (sha256
 446                (base32
 447                 "1c5fnys8hi71cnzjv5k7j0r8gx80p0yyqlrpmn06mmarhnxvwgzb"))))
 448     (build-system gnu-build-system)
 449     (arguments
 450      `(#:parallel-tests? #f))
 451     (native-inputs
 452      `(("doxygen" ,doxygen)
 453        ("graphviz" ,graphviz)
 454        ("pkg-config" ,pkg-config)
 455        ("xmlto" ,xmlto)
 456        ("xsltproc" ,libxslt)))
 457     (inputs
 458      `(("docbook-xml" ,docbook-xml)
 459        ("docbook-xsl" ,docbook-xsl)
 460        ("expat" ,expat)
 461        ("libffi" ,libffi)
 462        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
 463     (home-page "https://wayland.freedesktop.org/")
 464     (synopsis "Display server protocol")
 465     (description
 466      "Wayland is a protocol for a compositor to talk to its clients as well as
 467 a C library implementation of that protocol.  The compositor can be a standalone
 468 display server running on Linux kernel modesetting and evdev input devices, an X
 469 application, or a wayland client itself.  The clients can be traditional
 470 applications, X servers (rootless or fullscreen) or other display servers.")
 471     (license license:x11)))
 472
 473 (define-public wayland-protocols
 474   (package
 475     (name "wayland-protocols")
 476     (version "1.14")
 477     (source (origin
 478               (method url-fetch)
 479               (uri (string-append
 480                     "https://wayland.freedesktop.org/releases/"
 481                     "wayland-protocols-" version ".tar.xz"))
 482               (sha256
 483                (base32
 484                 "1xknjcfhqvdi1s4iq4kk1q61fg2rar3g8q4vlqarpd324imqjj4n"))))
 485     (build-system gnu-build-system)
 486     (inputs
 487      `(("wayland" ,wayland)))
 488     (native-inputs
 489      `(("pkg-config" ,pkg-config)))
 490     (synopsis "Wayland protocols")
 491     (description "This package contains XML definitions of the Wayland protocols.")
 492     (home-page "https://wayland.freedesktop.org")
 493     (license license:expat)))
 494
 495 (define-public weston
 496   (package
 497     (name "weston")
 498     (version "4.0.0")
 499     (source (origin
 500               (method url-fetch)
 501               (uri (string-append
 502                     "https://wayland.freedesktop.org/releases/"
 503                     "weston-" version ".tar.xz"))
 504               (sha256
 505                (base32
 506                 "0n2big8xw6g6n46zm1jyf00dv9r4d84visdz5b8vxpw3xzkhmz50"))))
 507     (build-system gnu-build-system)
 508     (native-inputs
 509      `(("pkg-config" ,pkg-config)
 510        ("xorg-server" ,xorg-server)))
 511     (inputs
 512      `(("cairo" ,cairo-xcb)
 513        ("dbus" ,dbus)
 514        ("elogind" ,elogind)
 515        ("libinput" ,libinput-minimal)
 516        ("libunwind" ,libunwind)
 517        ("libxcursor" ,libxcursor)
 518        ("libxkbcommon" ,libxkbcommon)
 519        ("mesa" ,mesa)
 520        ("mtdev" ,mtdev)
 521        ("linux-pam" ,linux-pam)
 522        ("wayland" ,wayland)
 523        ("wayland-protocols" ,wayland-protocols)
 524        ("xorg-server-xwayland" ,xorg-server-xwayland)))
 525     (arguments
 526      `(#:configure-flags
 527        (list "--disable-setuid-install"
 528              "--enable-systemd-login"
 529              (string-append "--with-xserver-path="
 530                             (assoc-ref %build-inputs "xorg-server-xwayland")
 531                             "/bin/Xwayland"))
 532        #:parallel-tests? #f ; Parallel tests cause failures.
 533        #:phases
 534        (modify-phases %standard-phases
 535          (add-before 'configure 'use-elogind
 536            (lambda _
 537              ;; Use elogind instead of systemd
 538              (substitute* "configure"
 539                (("libsystemd-login >= 198") "libelogind"))
 540              (substitute* '("libweston/launcher-logind.c"
 541                             "libweston/weston-launch.c")
 542                (("#include <systemd/sd-login.h>")
 543                 "#include <elogind/sd-login.h>"))
 544              #t))
 545          (add-after 'configure 'patch-confdefs.h
 546            (lambda _
 547              (system "echo \"#define HAVE_SYSTEMD_LOGIN_209 1\" >> confdefs.h")))
 548          (add-before 'check 'setup
 549            (lambda _
 550              (setenv "HOME" (getcwd))
 551              (setenv "XDG_RUNTIME_DIR" (getcwd))
 552              #t))
 553          (add-before 'check 'start-xorg-server
 554            (lambda* (#:key inputs #:allow-other-keys)
 555              ;; The test suite requires a running X server.
 556              (system (string-append (assoc-ref inputs "xorg-server")
 557                                     "/bin/Xvfb :1 &"))
 558              (setenv "DISPLAY" ":1")
 559              #t)))))
 560     (home-page "https://wayland.freedesktop.org")
 561     (synopsis "Reference implementation of a Wayland compositor")
 562     (description "Weston is the reference implementation of a Wayland
 563 compositor, and a useful compositor in its own right.
 564
 565 A Wayland compositor allows applications to render to a shared offscreen
 566 buffer using OpenGL ES.  The compositor then culls the hidden parts and
 567 composes the final output.  A Wayland compositor is essentially a
 568 multiplexer to the KMS/DRM Linux kernel devices.")
 569     (license license:expat)))
 570
 571 (define-public exempi
 572   (package
 573     (name "exempi")
 574     (version "2.4.2")
 575     (source (origin
 576              (method url-fetch)
 577              (uri (string-append
 578                    "https://libopenraw.freedesktop.org/download/"
 579                    name "-" version ".tar.bz2"))
 580              (sha256
 581               (base32
 582                "1v665fc7x0yi7x6lzskvd8bd2anf7951svn2vd5384dblmgv43av"))))
 583     (build-system gnu-build-system)
 584     (arguments
 585      `(#:configure-flags (list (string-append "--with-boost="
 586                                (assoc-ref %build-inputs "boost")))))
 587     (native-inputs
 588      `(("boost" ,boost))) ; tests
 589     (inputs
 590      `(("expat" ,expat)
 591        ("zlib" ,zlib)))
 592     (home-page "https://wiki.freedesktop.org/libopenraw/Exempi")
 593     (synopsis "XMP metadata handling library")
 594     (description "Exempi is an implementation of the Extensible Metadata
 595 Platform (XMP), which enables embedding metadata in PDF and image formats.")
 596     (license license:bsd-3)))
 597
 598 (define-public libatasmart
 599   (package
 600     (name "libatasmart")
 601     (version "0.19")
 602     (source (origin
 603               (method url-fetch)
 604               (uri (string-append "http://0pointer.de/public/"
 605                                   name "-" version ".tar.xz"))
 606               (sha256
 607                (base32
 608                 "138gvgdwk6h4ljrjsr09pxk1nrki4b155hqdzyr8mlk3bwsfmw31"))))
 609     (build-system gnu-build-system)
 610     (native-inputs
 611      `(("pkg-config" ,pkg-config)))
 612     (inputs
 613      `(("udev" ,eudev)))
 614     (home-page "http://0pointer.de/blog/projects/being-smart.html")
 615     (synopsis "ATA S.M.A.R.T. reading and parsing library")
 616     (description
 617      "This library supports a subset of the ATA S.M.A.R.T. (Self-Monitoring,
 618 Analysis and Reporting Technology) functionality.")
 619     (license license:lgpl2.1+)))
 620
 621 (define-public udisks
 622   (package
 623     (name "udisks")
 624     (version "2.1.8")
 625     (source (origin
 626               (method url-fetch)
 627               (uri (string-append "https://udisks.freedesktop.org/releases/"
 628                                   name "-" version ".tar.bz2"))
 629               (sha256
 630                (base32
 631                 "1nkxhnqh39c9pzvm4zfj50rgv6apqawdx09bv3sfaxrah4a6jhfs"))))
 632     (build-system gnu-build-system)
 633     (native-inputs
 634      `(("docbook-xml" ,docbook-xml-4.3) ; to build the manpages
 635        ("docbook-xsl" ,docbook-xsl)
 636        ("glib:bin" ,glib "bin") ; for glib-mkenums
 637        ("gobject-introspection" ,gobject-introspection)
 638        ("intltool" ,intltool)
 639        ("pkg-config" ,pkg-config)
 640        ("xsltproc" ,libxslt)))
 641     (propagated-inputs
 642      `(("glib" ,glib))) ; required by udisks2.pc
 643     (inputs
 644      `(("acl" ,acl)
 645        ("libatasmart" ,libatasmart)
 646        ("libgudev" ,libgudev)
 647        ("polkit" ,polkit)
 648        ("util-linux" ,util-linux)
 649        ("cryptsetup" ,cryptsetup)
 650        ("parted" ,parted)))
 651     (outputs '("out"
 652                "doc"))                            ;5 MiB of gtk-doc HTML
 653     (arguments
 654      `(#:tests? #f ; requiring system message dbus
 655        #:disallowed-references ("doc")            ;enforce separation of "doc"
 656        #:configure-flags
 657        (list "--enable-man"
 658              "--localstatedir=/var"
 659              "--enable-fhs-media"     ;mount devices in /media, not /run/media
 660              (string-append "--with-html-dir="
 661                             (assoc-ref %outputs "doc")
 662                             "/share/doc/udisks/html")
 663              (string-append "--with-udevdir=" %output "/lib/udev"))
 664        #:make-flags
 665        (let*  ((docbook-xsl-name-version ,(string-append
 666                                            (package-name docbook-xsl) "-"
 667                                            (package-version  docbook-xsl)))
 668                (docbook-xsl-catalog-file (string-append
 669                                           (assoc-ref %build-inputs "docbook-xsl")
 670                                           "/xml/xsl/"
 671                                           docbook-xsl-name-version
 672                                           "/catalog.xml"))
 673                (docbook-xml-catalog-file (string-append
 674                                           (assoc-ref %build-inputs "docbook-xml")
 675                                           "/xml/dtd/docbook/catalog.xml")))
 676          ;; Reference the catalog files required to build the manpages.
 677          (list (string-append "XML_CATALOG_FILES=" docbook-xsl-catalog-file " "
 678                               docbook-xml-catalog-file)))
 679        #:phases
 680        (modify-phases %standard-phases
 681          (add-before
 682           'configure 'fix-girdir
 683           (lambda _
 684             ;; Install introspection data to its own output.
 685             (substitute* "udisks/Makefile.in"
 686               (("girdir = .*")
 687                "girdir = $(datadir)/gir-1.0\n")
 688               (("typelibsdir = .*")
 689                "typelibsdir = $(libdir)/girepository-1.0\n"))))
 690          (add-after 'install 'wrap-udisksd
 691            (lambda* (#:key outputs inputs #:allow-other-keys)
 692              ;; Tell 'udisksd' where to find the 'mount' command.
 693              (let ((out   (assoc-ref outputs "out"))
 694                    (utils (assoc-ref inputs "util-linux"))
 695                    (cryptsetup (assoc-ref inputs "cryptsetup"))
 696                    (parted (assoc-ref inputs "parted")))
 697                (wrap-program (string-append out "/libexec/udisks2/udisksd")
 698                  `("PATH" ":" prefix
 699                    (,(string-append utils "/bin") ;for 'mount'
 700                     ;; cryptsetup is required for setting encrypted
 701                     ;; partitions, e.g. in gnome-disks
 702                     ,(string-append cryptsetup "/sbin")
 703                     ;; parted is required for managing partitions, e.g. in
 704                     ;; gnome-disks
 705                     ,(string-append parted "/sbin")
 706                     "/run/current-system/profile/bin"
 707                     "/run/current-system/profile/sbin")))
 708                #t))))))
 709     (home-page "https://www.freedesktop.org/wiki/Software/udisks/")
 710     (synopsis "Disk manager service")
 711     (description
 712      "UDisks provides interfaces to enumerate and perform operations on disks
 713 and storage devices.  Any application (including unprivileged ones) can access
 714 the udisksd(8) daemon via the name org.freedesktop.UDisks2 on the system
 715 message bus.")
 716     ;; The dynamic library are under LGPLv2+, others are GPLv2+.
 717     (license (list license:gpl2+ license:lgpl2.0+))))
 718
 719 (define-public accountsservice
 720   (package
 721     (name "accountsservice")
 722     (version "0.6.43")
 723     (source (origin
 724               (method url-fetch)
 725               (uri (string-append "https://www.freedesktop.org/software/"
 726                                   name "/" name "-" version ".tar.xz"))
 727               (sha256
 728                (base32
 729                 "1k6n9079001sgcwlkq0bz6mkn4m8y4dwf6hs1qm85swcld5ajfzd"))))
 730     (build-system gnu-build-system)
 731     (arguments
 732      '(#:tests? #f ; XXX: tests require DocBook 4.1.2
 733        #:configure-flags
 734        '("--localstatedir=/var")
 735        #:phases
 736        (modify-phases %standard-phases
 737          (add-before
 738           'configure 'pre-configure
 739           (lambda* (#:key inputs #:allow-other-keys)
 740             ;; Don't try to create /var/lib/AccountsService.
 741             (substitute* "src/Makefile.in"
 742               (("\\$\\(MKDIR_P\\).*/lib/AccountsService.*") "true"))
 743             (let ((shadow (assoc-ref inputs "shadow")))
 744               (substitute* '("src/user.c" "src/daemon.c")
 745                 (("/usr/sbin/usermod") (string-append shadow "/sbin/usermod"))
 746                 (("/usr/sbin/useradd") (string-append shadow "/sbin/useradd"))
 747                 (("/usr/sbin/userdel") (string-append shadow "/sbin/userdel"))
 748                 (("/usr/bin/passwd")   (string-append shadow "/bin/passwd"))
 749                 (("/usr/bin/chage")    (string-append shadow "/bin/chage"))))
 750             #t)))))
 751     (native-inputs
 752      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
 753        ("gobject-introspection" ,gobject-introspection)
 754        ("intltool" ,intltool)
 755        ("pkg-config" ,pkg-config)))
 756     (inputs
 757      `(("shadow" ,shadow)
 758        ("polkit" ,polkit)))
 759     (home-page "https://www.freedesktop.org/wiki/Software/AccountsService/")
 760     (synopsis "D-Bus interface for user account query and manipulation")
 761     (description
 762      "The AccountService project provides a set of D-Bus interfaces for querying
 763 and manipulating user account information and an implementation of these
 764 interfaces, based on the useradd, usermod and userdel commands.")
 765     (license license:gpl3+)))
 766
 767 (define-public libmbim
 768   (package
 769     (name "libmbim")
 770     (version "1.16.0")
 771     (source (origin
 772               (method url-fetch)
 773               (uri (string-append
 774                     "https://www.freedesktop.org/software/" name "/"
 775                     name "-" version ".tar.xz"))
 776               (sha256
 777                (base32
 778                 "1hpsjc7bzmakzvj8z9fffvqknc38fa8ridpmklq46jyxxnz51jn8"))))
 779     (build-system gnu-build-system)
 780     (native-inputs
 781      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 782        ("pkg-config" ,pkg-config)
 783        ("python" ,python-wrapper)))
 784     (propagated-inputs
 785      `(("glib" ,glib))) ; required by mbim-glib.pc
 786     (inputs
 787      `(("libgudev" ,libgudev)))
 788     (synopsis "Library to communicate with MBIM-powered modems")
 789     (home-page "https://www.freedesktop.org/wiki/Software/libmbim/")
 790     (description
 791      "Libmbim is a GLib-based library for talking to WWAN modems and devices
 792 which speak the Mobile Interface Broadband Model (MBIM) protocol.")
 793     (license
 794      ;; The libmbim-glib library is released under the LGPLv2+ license.
 795      ;; The mbimcli tool is released under the GPLv2+ license.
 796      (list license:lgpl2.0+ license:gpl2+))))
 797
 798 (define-public libqmi
 799   (package
 800     (name "libqmi")
 801     (version "1.20.0")
 802     (source (origin
 803               (method url-fetch)
 804               (uri (string-append
 805                     "https://www.freedesktop.org/software/" name "/"
 806                     name "-" version ".tar.xz"))
 807               (sha256
 808                (base32
 809                 "1d3fca477sdwbv4bsq1cl98qc8sixrzp0gqjcmjj8mlwfk9qqhi1"))))
 810     (build-system gnu-build-system)
 811     (inputs
 812      `(("libgudev" ,libgudev)))
 813     (native-inputs
 814      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 815        ("pkg-config" ,pkg-config)
 816        ("python" ,python-wrapper)))
 817     (propagated-inputs
 818      `(("glib" ,glib))) ; required by qmi-glib.pc
 819     (synopsis "Library to communicate with QMI-powered modems")
 820     (home-page "https://www.freedesktop.org/wiki/Software/libqmi/")
 821     (description
 822      "Libqmi is a GLib-based library for talking to WWAN modems and devices
 823 which speak the Qualcomm MSM Interface (QMI) protocol.")
 824     (license
 825      ;; The libqmi-glib library is released under the LGPLv2+ license.
 826      ;; The qmicli tool is released under the GPLv2+ license.
 827      (list license:lgpl2.0+ license:gpl2+))))
 828
 829 (define-public modem-manager
 830   (package
 831     (name "modem-manager")
 832     (version "1.4.14")
 833     (source (origin
 834               (method url-fetch)
 835               (uri (string-append
 836                     "https://www.freedesktop.org/software/ModemManager/"
 837                     "ModemManager-" version ".tar.xz"))
 838               (sha256
 839                (base32
 840                 "18hvffwcncwz14kdzk42jbkh362n0kjv3kgx7axbqx572pawvrmb"))))
 841     (build-system gnu-build-system)
 842     (arguments
 843      '(#:configure-flags
 844        `(,(string-append "--with-udev-base-dir=" %output "/lib/udev")
 845          ;; FIXME: Without this flag the build fails with "error: assignment
 846          ;; from incompatible pointer type" whenever the return value of
 847          ;; "g_object_ref" is assigned to "ctx->self".
 848          "--disable-more-warnings")))
 849     (native-inputs
 850      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 851        ("gobject-introspection" ,gobject-introspection)
 852        ("intltool" ,intltool)
 853        ("pkg-config" ,pkg-config)
 854        ("vala" ,vala)
 855        ;; For testing.
 856        ("dbus" ,dbus)))
 857     (propagated-inputs
 858      `(("glib" ,glib))) ; required by mm-glib.pc
 859     (inputs
 860      `(("libgudev" ,libgudev)
 861        ("libmbim" ,libmbim)
 862        ("libqmi" ,libqmi)
 863        ("polkit" ,polkit)))
 864     (synopsis "Mobile broadband modems manager")
 865     (home-page "https://www.freedesktop.org/wiki/Software/ModemManager/")
 866     (description
 867      "ModemManager is a DBus-activated daemon which controls mobile
 868 broadband (2G/3G/4G) devices and connections.  Whether built-in devices, USB
 869 dongles, bluetooth-paired telephones, or professional RS232/USB devices with
 870 external power supplies, ModemManager is able to prepare and configure the
 871 modems and setup connections with them.")
 872     (license license:gpl2+)))
 873
 874 (define-public telepathy-logger
 875   (package
 876     (name "telepathy-logger")
 877     (version "0.8.2")
 878     (source (origin
 879               (method url-fetch)
 880               (uri (string-append "https://telepathy.freedesktop.org/releases/"
 881                                   name "/" name "-" version ".tar.bz2"))
 882               (sha256
 883                (base32
 884                 "1bjx85k7jyfi5pvl765fzc7q2iz9va51anrc2djv7caksqsdbjlg"))))
 885     (build-system gnu-build-system)
 886     (arguments
 887      '(#:parallel-tests? #f
 888        #:phases
 889        (modify-phases %standard-phases
 890          (add-before 'check 'pre-check
 891           (lambda _
 892             (setenv "HOME" (getenv "TMPDIR"))
 893             #t)))))
 894     (native-inputs
 895      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
 896        ("gobject-introspection" ,gobject-introspection)
 897        ("intltool" ,intltool)
 898        ("pkg-config" ,pkg-config)
 899        ("python" ,python-2)
 900        ("xsltproc" ,libxslt)))
 901     (propagated-inputs
 902      ;; telepathy-logger-0.2.pc refers to all these.
 903      `(("libxml2" ,libxml2)
 904        ("sqlite" ,sqlite)
 905        ("telepathy-glib" ,telepathy-glib)))
 906     (synopsis "Telepathy logger library")
 907     (home-page "https://telepathy.freedesktop.org/")
 908     (description
 909      "Telepathy logger is a headless observer client that logs information
 910 received by the Telepathy framework.  It features pluggable backends to log
 911 different sorts of messages in different formats.")
 912     (license license:lgpl2.1+)))
 913
 914 (define-public telepathy-idle
 915   (package
 916     (name "telepathy-idle")
 917     (version "0.2.0")
 918     (source (origin
 919               (method url-fetch)
 920               (uri (string-append "https://telepathy.freedesktop.org/releases/"
 921                                   name "/" name "-" version ".tar.bz2"))
 922               (sha256
 923                (base32
 924                 "1argdzbif1vdmwp5vqbgkadq9ancjmgdm2ncp0qfckni715ss4rh"))))
 925     (build-system gnu-build-system)
 926     (native-inputs
 927      `(("pkg-config" ,pkg-config)))
 928     (inputs
 929      `(("xsltproc" ,libxslt)
 930        ("python" ,python-2)
 931        ("python-dbus" ,python2-dbus)))
 932     (propagated-inputs
 933      `(("telepathy-glib" ,telepathy-glib)))
 934     (home-page "https://telepathy.freedesktop.org/")
 935     (synopsis "Telepathy IRC connection manager")
 936     (description
 937      "Idle is an IRC connection manager for the Telepathy framework.  This
 938 package enables usage of IRC channels and private messages in Telepathy instant
 939 messaging clients such as Empathy, GNOME Shell or KDE Telepathy.")
 940     (license (list license:lgpl2.1 license:lgpl2.1+))))
 941
 942 (define-public telepathy-mission-control
 943   (package
 944     (name "telepathy-mission-control")
 945     (version "5.16.4")
 946     (source (origin
 947               (method url-fetch)
 948               (uri (string-append "https://telepathy.freedesktop.org/releases/"
 949                                   name "/" name "-" version ".tar.gz"))
 950               (sha256
 951                (base32
 952                 "1jz6wwgsfxixha6ys2hbzbk5faqnj9kh2m5qdlgx5anqgandsscp"))))
 953     (build-system gnu-build-system)
 954     (native-inputs
 955      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
 956        ("pkg-config" ,pkg-config)))
 957     (inputs
 958      `(("dconf" ,dconf)
 959        ("gtk-doc" ,gtk-doc)
 960        ("libgnome-keyring" ,libgnome-keyring)
 961        ("python" ,python-2)
 962        ("xsltproc" ,libxslt)))
 963     (propagated-inputs
 964      `(("telepathy-glib" ,telepathy-glib)))
 965     (home-page "https://telepathy.freedesktop.org/wiki/Components/Mission_Control/")
 966     (synopsis "Telepathy real-time communication framework management daemon")
 967     (description
 968      "Telepathy Mission Control 5 is an account manager and channel dispatcher
 969 for the Telepathy framework, allowing user interfaces and other clients to
 970 share connections to real-time communication services without conflicting.")
 971     (license license:lgpl2.1)))
 972
 973 (define-public colord-gtk
 974   (package
 975     (name "colord-gtk")
 976     (version "0.1.26")
 977     (source (origin
 978               (method url-fetch)
 979               (uri (string-append "https://www.freedesktop.org/software/colord"
 980                                   "/releases/" name "-" version ".tar.xz"))
 981               (sha256
 982                (base32
 983                 "0i9y3bb5apj6a0f8cx36l6mjzs7xc0k7nf0magmf58vy2mzhpl18"))))
 984     (build-system gnu-build-system)
 985     (arguments '(#:tests? #f)) ; require the colord system service
 986     (native-inputs
 987      `(("gobject-introspection" ,gobject-introspection)
 988        ("intltool" ,intltool)
 989        ("pkg-config" ,pkg-config)
 990        ("vala" ,vala)))
 991     (propagated-inputs
 992      ;; colord-gtk.pc refers to all these.
 993      `(("colord" ,colord)
 994        ("gtk+" ,gtk+)))
 995     (synopsis "GTK integration for libcolord")
 996     (home-page "https://www.freedesktop.org/software/colord/")
 997     (description
 998      "This is a GTK+ convenience library for interacting with colord.  It is
 999 useful for both applications which need colour management and applications that
1000 wish to perform colour calibration.")
1001     (license license:lgpl2.1+)))
1002
1003 (define-public libfprint
1004   (package
1005     (name "libfprint")
1006     (version "0.6.0")
1007     (source (origin
1008               (method url-fetch)
1009               (uri (string-append "https://people.freedesktop.org/~hadess/"
1010                                   name "-" version ".tar.xz"))
1011               (sha256
1012                (base32
1013                 "1giwh2z63mn45galsjb59rhyrvgwcy01hvvp4g01iaa2snvzr0r5"))))
1014     (build-system gnu-build-system)
1015     (arguments
1016      '(#:configure-flags (list (string-append "--with-udev-rules-dir="
1017                                               (assoc-ref %outputs "out")
1018                                               "/lib/udev/rules.d"))))
1019     (native-inputs
1020      `(("pkg-config" ,pkg-config)))
1021     (inputs
1022      `(("libusb" ,libusb)
1023        ("nss" ,nss)
1024        ("glib" ,glib)
1025        ("eudev" ,eudev)
1026        ("pixman" ,pixman)))
1027     (home-page "https://www.freedesktop.org/wiki/Software/fprint/libfprint/")
1028     (synopsis "Library to access fingerprint readers")
1029     (description
1030      "libfprint is a library designed to make it easy for application
1031 developers to add support for consumer fingerprint readers to their
1032 software.")
1033     (license license:lgpl2.1+)))
1034
1035 (define-public fprintd
1036   (package
1037     (name "fprintd")
1038     (version "0.7.0")
1039     (source (origin
1040               (method url-fetch)
1041               (uri (string-append
1042                     "https://people.freedesktop.org/~hadess/fprintd-"
1043                     version ".tar.xz"))
1044               (sha256
1045                (base32
1046                 "05915i0bv7q62fqrs5diqwr8dz3pwqa1c1ivcgggkjyw0xk4ldp5"))))
1047     (build-system gnu-build-system)
1048     (arguments
1049      '(#:phases (modify-phases %standard-phases
1050                   (add-before 'build 'set-sysconfdir
1051                     (lambda* (#:key outputs #:allow-other-keys)
1052                       ;; Work around a bug whereby the 'SYSCONFDIR' macro
1053                       ;; expands literally to '${prefix}/etc'.
1054                       (let ((out (assoc-ref outputs "out")))
1055                         (substitute* "src/main.c"
1056                           (("SYSCONFDIR, \"fprintd.conf\"")
1057                            (string-append "\"" out "/etc\", "
1058                                           "\"fprintd.conf\"")))
1059                         #t))))))
1060     (native-inputs
1061      `(("pkg-config" ,pkg-config)
1062        ("intltool" ,intltool)))
1063     (inputs
1064      `(("libfprint" ,libfprint)
1065        ("dbus-glib" ,dbus-glib)
1066        ("polkit" ,polkit)
1067        ("linux-pam" ,linux-pam)))                 ;for pam_fprintd
1068     (home-page "https://www.freedesktop.org/wiki/Software/fprint/fprintd/")
1069     (synopsis "D-Bus daemon that exposes fingerprint reader functionality")
1070     (description
1071      "fprintd is a D-Bus daemon that offers functionality of libfprint, a
1072 library to access fingerprint readers, over the D-Bus interprocess
1073 communication bus.  This daemon layer above libfprint solves problems related
1074 to applications simultaneously competing for fingerprint readers.")
1075     (license license:gpl2+)))
1076
1077 (define-public desktop-file-utils
1078   (package
1079     (name "desktop-file-utils")
1080     (version "0.23")
1081     (source (origin
1082               (method url-fetch)
1083               (uri (string-append "https://www.freedesktop.org/software/" name
1084                                   "/releases/" name "-" version ".tar.xz"))
1085               (sha256
1086                (base32
1087                 "119kj2w0rrxkhg4f9cf5waa55jz1hj8933vh47vcjipcplql02bc"))))
1088     (build-system gnu-build-system)
1089     (native-inputs
1090      `(("pkg-config" ,pkg-config)))
1091     (inputs
1092      `(("glib" ,glib)))
1093     (home-page "https://www.freedesktop.org/wiki/Software/desktop-file-utils/")
1094     (synopsis "Utilities for working with desktop entries")
1095     (description
1096      "This package contains a few command line utilities for working with
1097 desktop entries:
1098
1099 desktop-file-validate: validates a desktop file and prints warnings/errors
1100                        about desktop entry specification violations.
1101
1102 desktop-file-install: installs a desktop file to the applications directory,
1103                       optionally munging it a bit in transit.
1104
1105 update-desktop-database: updates the database containing a cache of MIME types
1106                          handled by desktop files.")
1107     (license license:gpl2+)))
1108
1109 (define-public xdg-user-dirs
1110   (package
1111     (name "xdg-user-dirs")
1112     (version "0.17")
1113     (source (origin
1114               (method url-fetch)
1115               (uri (string-append "http://user-dirs.freedesktop.org/releases/"
1116                                     name "-" version ".tar.gz"))
1117               (sha256
1118                (base32 "13216b8rfkzak5k6bvpx6jvqv3cnbgpijnjwj8a8d3kq4cl0a1ra"))))
1119     (build-system gnu-build-system)
1120     (native-inputs
1121      `(("gettext" ,gettext-minimal)
1122        ("docbook-xsl" ,docbook-xsl)
1123        ("docbook-xml" ,docbook-xml-4.3)
1124        ("xsltproc" ,libxslt)))
1125     (arguments
1126      `(#:phases
1127        (modify-phases %standard-phases
1128          (add-before 'build 'locate-catalog-files
1129            (lambda* (#:key inputs #:allow-other-keys)
1130              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1131                                           "/xml/dtd/docbook"))
1132                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
1133                                           "/xml/xsl/docbook-xsl-"
1134                                           ,(package-version docbook-xsl))))
1135                (for-each (lambda (file)
1136                            (substitute* file
1137                              (("http://.*/docbookx\\.dtd")
1138                               (string-append xmldoc "/docbookx.dtd"))))
1139                          (find-files "man" "\\.xml$"))
1140                (substitute* "man/Makefile"
1141                  (("http://.*/docbook\\.xsl")
1142                   (string-append xsldoc "/manpages/docbook.xsl")))
1143                #t))))))
1144     (home-page "https://www.freedesktop.org/wiki/Software/xdg-user-dirs/")
1145     (synopsis "Tool to help manage \"well known\" user directories")
1146     (description "xdg-user-dirs is a tool to help manage \"well known\" user
1147 directories, such as the desktop folder or the music folder. It also handles
1148 localization (i.e. translation) of the file names.  Designed to be
1149 automatically run when a user logs in, xdg-user-dirs can also be run
1150 manually by a user.")
1151     (license license:gpl2)))
1152
1153 (define-public perl-file-basedir
1154   (package
1155     (name "perl-file-basedir")
1156     (version "0.08")
1157     (source
1158      (origin
1159        (method url-fetch)
1160        (uri (string-append "mirror://cpan/authors/id/K/KI/KIMRYAN/"
1161                            "File-BaseDir-" version ".tar.gz"))
1162        (sha256
1163         (base32
1164          "1qq5ag9zffx8zc5i9b4z03ar80pqj4drgk3vjdlyfapjwb9zqrf0"))))
1165     (build-system perl-build-system)
1166     (native-inputs
1167      `(("perl-module-build" ,perl-module-build)
1168        ("perl-file-which" ,perl-file-which)
1169        ("perl-test-pod" ,perl-test-pod)
1170        ("perl-test-pod-coverage" ,perl-test-pod-coverage)
1171        ("xdg-user-dirs" ,xdg-user-dirs)))
1172     (propagated-inputs
1173      `(("perl-ipc-system-simple" ,perl-ipc-system-simple)))
1174     (home-page "http://search.cpan.org/dist/File-BaseDir/")
1175     (synopsis "Use the Freedesktop.org base directory specification")
1176     (description
1177      "@code{File::Basedir} can be used to find directories and files as
1178 specified by the Freedesktop.org Base Directory Specification.  This
1179 specifications gives a mechanism to locate directories for configuration,
1180 application data and cache data.")
1181     (license license:perl-license)))
1182
1183 (define-public perl-file-desktopentry
1184   (package
1185     (name "perl-file-desktopentry")
1186     (version "0.22")
1187     (source
1188      (origin
1189        (method url-fetch)
1190        (uri (string-append "mirror://cpan/authors/id/M/MI/MICHIELB/"
1191                            "File-DesktopEntry-" version ".tar.gz"))
1192        (sha256
1193         (base32
1194          "1f1maqix2kbfg2rf008m7mqnvv6nvcf9y6pcgdv2kxp2vbih370n"))))
1195     (build-system perl-build-system)
1196     (native-inputs
1197      `(("perl-test-pod" ,perl-test-pod)
1198        ("perl-test-pod-coverage" ,perl-test-pod-coverage)))
1199     (propagated-inputs
1200      `(("perl-file-basedir" ,perl-file-basedir)
1201        ("perl-uri" ,perl-uri)))
1202     (home-page "http://search.cpan.org/~michielb/File-DesktopEntry/")
1203     (synopsis "Handle @file{.desktop} files")
1204     (description
1205      "@code{File::DesktopEntry} parses @file{.desktop} files defined by the
1206 Freedesktop.org @dfn{Desktop Entry} specification.  It can also run the
1207 applications define in those files.")
1208     (license license:perl-license)))
1209
1210 (define-public perl-file-mimeinfo
1211   (package
1212     (name "perl-file-mimeinfo")
1213     (version "0.28")
1214     (source
1215      (origin
1216        (method url-fetch)
1217        (uri (string-append "mirror://cpan/authors/id/M/MI/MICHIELB/"
1218                            "File-MimeInfo-" version ".tar.gz"))
1219        (sha256
1220         (base32
1221          "1ipbh63bkh1r2gy5g7q4bzhki8j29mm1jkhbv60p9vwsdys5s91a"))))
1222     (build-system perl-build-system)
1223     ;; If the tests are fixed, add perl-test-pod, perl-test-pod-coverage, and
1224     ;; perl-test-tiny as native-inputs.
1225     (propagated-inputs
1226      `(("shared-mime-info" ,shared-mime-info)
1227        ("perl-file-desktopentry" ,perl-file-desktopentry)))
1228     (arguments
1229      ;; Some tests fail due to requiring the mimetype of perl files to be
1230      ;; text/plain when they are actually application/x-perl.
1231      `(#:tests? #f
1232        #:phases
1233        (modify-phases %standard-phases
1234          (add-after 'install 'wrap-programs
1235            (lambda* (#:key outputs #:allow-other-keys)
1236              (let ((out (assoc-ref outputs "out")))
1237                (for-each (lambda (prog)
1238                            (wrap-program (string-append out "/bin/" prog)
1239                              `("PERL5LIB" ":" prefix
1240                                (,(string-append (getenv "PERL5LIB") ":" out
1241                                                 "/lib/perl5/site_perl")))))
1242                          '("mimeopen" "mimetype")))
1243              #t)))))
1244     (home-page "http://search.cpan.org/dist/File-MimeInfo/")
1245     (synopsis "Determine file type from the file name")
1246     (description
1247      "@code{File::Mimeinfo} can be used to determine the MIME type of a file.
1248 It tries to implement the Freedesktop specification for a shared MIME
1249 database.
1250
1251 This package also contains two related utilities:
1252
1253 @itemize
1254 @item @command{mimetype} determines a file's MIME type;
1255 @item @command{mimeopen} opens files in an appropriate program according to
1256 their MIME type.
1257 @end itemize")
1258     (license license:perl-license)))