gnu/packages/freedesktop.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
   4 ;;; Copyright © 2015, 2017 Andy Wingo <wingo@pobox.com>
   5 ;;; Copyright © 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
   6 ;;; Copyright © 2015, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
   7 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
   8 ;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
   9 ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
  10 ;;; Copyright © 2017, 2018 Mark H Weaver <mhw@netris.org>
  11 ;;; Copyright © 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
  12 ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
  13 ;;; Copyright © 2017 Brendan Tildesley <mail@brendan.scot>
  14 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  15 ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
  16 ;;; Copyright © 2018 Stefan Stefanović <stefanx2ovic@gmail.com>
  17 ;;; Copyright © 2019 Reza Alizadeh Majd <r.majd@pantherx.org>
  18 ;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
  19 ;;;
  20 ;;; This file is part of GNU Guix.
  21 ;;;
  22 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  23 ;;; under the terms of the GNU General Public License as published by
  24 ;;; the Free Software Foundation; either version 3 of the License, or (at
  25 ;;; your option) any later version.
  26 ;;;
  27 ;;; GNU Guix is distributed in the hope that it will be useful, but
  28 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  29 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30 ;;; GNU General Public License for more details.
  31 ;;;
  32 ;;; You should have received a copy of the GNU General Public License
  33 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  34
  35 (define-module (gnu packages freedesktop)
  36   #:use-module ((guix licenses) #:prefix license:)
  37   #:use-module (guix utils)
  38   #:use-module (guix packages)
  39   #:use-module (guix download)
  40   #:use-module (guix git-download)
  41   #:use-module (guix build-system cmake)
  42   #:use-module (guix build-system gnu)
  43   #:use-module (guix build-system meson)
  44   #:use-module (guix build-system perl)
  45   #:use-module (guix build-system python)
  46   #:use-module (gnu packages)
  47   #:use-module (gnu packages acl)
  48   #:use-module (gnu packages admin)
  49   #:use-module (gnu packages autotools)
  50   #:use-module (gnu packages bash)
  51   #:use-module (gnu packages boost)
  52   #:use-module (gnu packages check)
  53   #:use-module (gnu packages compression)
  54   #:use-module (gnu packages cryptsetup)
  55   #:use-module (gnu packages disk)
  56   #:use-module (gnu packages docbook)
  57   #:use-module (gnu packages documentation)
  58   #:use-module (gnu packages gettext)
  59   #:use-module (gnu packages ghostscript)
  60   #:use-module (gnu packages gl)
  61   #:use-module (gnu packages glib)                ;intltool
  62   #:use-module (gnu packages gnome)
  63   #:use-module (gnu packages gperf)
  64   #:use-module (gnu packages graphviz)
  65   #:use-module (gnu packages gtk)
  66   #:use-module (gnu packages image)
  67   #:use-module (gnu packages libffi)
  68   #:use-module (gnu packages libunwind)
  69   #:use-module (gnu packages libusb)
  70   #:use-module (gnu packages linux)
  71   #:use-module (gnu packages m4)
  72   #:use-module (gnu packages nss)
  73   #:use-module (gnu packages perl)
  74   #:use-module (gnu packages perl-check)
  75   #:use-module (gnu packages pkg-config)
  76   #:use-module (gnu packages polkit)
  77   #:use-module (gnu packages python)
  78   #:use-module (gnu packages python-crypto)
  79   #:use-module (gnu packages python-xyz)
  80   #:use-module (gnu packages sqlite)
  81   #:use-module (gnu packages valgrind)
  82   #:use-module (gnu packages video)
  83   #:use-module (gnu packages w3m)
  84   #:use-module (gnu packages web)
  85   #:use-module (gnu packages xdisorg)
  86   #:use-module (gnu packages xml)
  87   #:use-module (gnu packages xorg)
  88   #:use-module (srfi srfi-1))
  89
  90 (define-public xdg-utils
  91   (package
  92     (name "xdg-utils")
  93     (version "1.1.3")
  94     (source
  95       (origin
  96         (method url-fetch)
  97           (uri (string-append
  98                  "https://portland.freedesktop.org/download/xdg-utils-"
  99                  version ".tar.gz"))
 100           (sha256
 101             (base32
 102              "1nai806smz3zcb2l5iny4x7li0fak0rzmjg6vlyhdqm8z25b166p"))))
 103     (build-system gnu-build-system)
 104     (native-inputs
 105      `(("docbook-xsl" ,docbook-xsl)
 106        ("docbook-xml" ,docbook-xml-4.1.2)
 107        ("libxslt" ,libxslt)
 108        ("w3m" ,w3m)
 109        ("xmlto" ,xmlto)))
 110     (propagated-inputs
 111      `(("perl-file-mimeinfo" ,perl-file-mimeinfo) ; for mimeopen fallback
 112        ("xprop" ,xprop) ; for Xfce detecting
 113        ("xset" ,xset))) ; for xdg-screensaver
 114     (arguments
 115      `(#:tests? #f   ; no check target
 116        #:phases
 117        (modify-phases %standard-phases
 118          (add-after 'unpack 'patch-hardcoded-paths
 119            (lambda _
 120              (substitute* "scripts/xdg-mime.in"
 121                (("/usr/bin/file") (which "file")))
 122              (substitute* "scripts/xdg-open.in"
 123                (("/usr/bin/printf") (which "printf")))
 124              #t))
 125          (add-before 'build 'locate-catalog-files
 126            (lambda* (#:key inputs #:allow-other-keys)
 127              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
 128                                           "/xml/dtd/docbook"))
 129                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
 130                                           "/xml/xsl/docbook-xsl-"
 131                                           ,(package-version docbook-xsl))))
 132                (for-each (lambda (file)
 133                            (substitute* file
 134                              (("http://.*/docbookx\\.dtd")
 135                               (string-append xmldoc "/docbookx.dtd"))))
 136                          (find-files "scripts/desc" "\\.xml$"))
 137                (substitute* "scripts/Makefile"
 138                  ;; Apparently `xmlto' does not bother to looks up the stylesheets
 139                  ;; specified in the XML, unlike the above substitition. Instead it
 140                  ;; uses a hard-coded URL. Work around it here, but if this is
 141                  ;; common perhaps we should hardcode this path in xmlto itself.
 142                  (("\\$\\(XMLTO\\) man")
 143                   (string-append "$(XMLTO) -x " xsldoc
 144                                  "/manpages/docbook.xsl man")))
 145                (setenv "STYLESHEET"
 146                        (string-append xsldoc "/html/docbook.xsl"))
 147                #t))))))
 148     (home-page "https://www.freedesktop.org/wiki/Software/xdg-utils/")
 149     (synopsis "Freedesktop.org scripts for desktop integration")
 150     (description "The xdg-utils package is a set of simple scripts that
 151 provide basic desktop integration functions in the framework of the
 152 freedesktop.org project.")
 153     (license license:expat)))
 154
 155 (define-public libinput
 156   (package
 157     (name "libinput")
 158     (version "1.14.1")
 159     (source (origin
 160               (method url-fetch)
 161               (uri (string-append "https://freedesktop.org/software/libinput/"
 162                                   "libinput-" version ".tar.xz"))
 163               (sha256
 164                (base32
 165                 "0w7fas37mp2k06f12i3lnj717lw73asziknj6z51kh1m50ja6cz3"))))
 166     (build-system meson-build-system)
 167     (arguments
 168      `(#:configure-flags '("-Ddocumentation=false")
 169
 170        ;; XXX: Using 'debug' or 'debugoptimized' pulls in an additional test that
 171        ;; hangs, and the comments around it suggests that we should be using this
 172        ;; Meson target anyway.
 173        #:build-type "release"))
 174     (native-inputs
 175      `(("check" ,check)
 176        ("pkg-config" ,pkg-config)))
 177     (inputs
 178      `(("cairo" ,cairo)
 179        ("glib" ,glib)
 180        ("gtk+" ,gtk+)
 181        ("libevdev" ,libevdev)
 182        ("libwacom" ,libwacom)
 183        ("mtdev" ,mtdev)))
 184     (propagated-inputs
 185      `(;; libinput.h requires <libudev.h>, so propagate it.
 186        ("udev" ,eudev)))
 187     (home-page "https://www.freedesktop.org/wiki/Software/libinput/")
 188     (synopsis "Input devices handling library")
 189     (description
 190      "Libinput is a library to handle input devices for display servers and
 191 other applications that need to directly deal with input devices.")
 192     (license license:x11)))
 193
 194 (define-public libinput-minimal
 195   (package (inherit libinput)
 196     (name "libinput-minimal")
 197     (inputs
 198      (fold alist-delete (package-inputs libinput)
 199            '("cairo" "glib" "gtk+" "libwacom")))
 200     (arguments
 201      (substitute-keyword-arguments (package-arguments libinput)
 202       ((#:configure-flags flags ''())
 203        `(cons* "-Dlibwacom=false"
 204                "-Ddebug-gui=false"    ;requires gtk+@3
 205                ,flags))))))
 206
 207 (define-public libxdg-basedir
 208   (package
 209     (name "libxdg-basedir")
 210     (version "1.2.0")
 211     (source (origin
 212               (method git-fetch)
 213               (uri (git-reference
 214                      (url "https://github.com/devnev/libxdg-basedir")
 215                      (commit (string-append name "-" version))))
 216               (file-name (git-file-name name version))
 217               (sha256
 218                (base32
 219                 "12yz53ny5bi2dii3zwcr6b9ay0yy1g1xv13jg097k7gjligcq11m"))))
 220     (build-system gnu-build-system)
 221     (arguments
 222      '(#:phases
 223        (modify-phases %standard-phases
 224          (add-after 'unpack 'patch-autogen
 225            (lambda _
 226              ;; Run 'configure' in its own phase, not now.
 227              (substitute* "autogen.sh"
 228                (("^.*\\./configure.*") ""))
 229              #t)))))
 230     (native-inputs
 231      `(("autoconf" ,autoconf)
 232        ("automake" ,automake)
 233        ("libtool" ,libtool)))
 234     (home-page "https://github.com/devnev/libxdg-basedir")
 235     (synopsis "Implementation of the XDG Base Directory specification")
 236     (description
 237      "libxdg-basedir is a C library providing some functions to use with
 238 the freedesktop.org XDG Base Directory specification.")
 239     (license license:expat)))
 240
 241 (define-public elogind
 242   (package
 243     (name "elogind")
 244     (version "241.4")
 245     (source (origin
 246               (method git-fetch)
 247               (uri (git-reference
 248                     (url "https://github.com/elogind/elogind")
 249                     (commit (string-append "v" version))))
 250               (file-name (git-file-name name version))
 251               (sha256
 252                (base32
 253                 "13nd0chackqclgvw43910k4pkw2q773dh6wq9s5f3d97ibnik48k"))))
 254     (build-system meson-build-system)
 255     (arguments
 256      `(#:configure-flags
 257        (let* ((out (assoc-ref %outputs "out"))
 258               (sysconf (string-append out "/etc"))
 259               (libexec (string-append out "/libexec/elogind"))
 260               (dbuspolicy (string-append out "/etc/dbus-1/system.d"))
 261               (shepherd (assoc-ref %build-inputs "shepherd"))
 262               (halt-path (string-append shepherd "/sbin/halt"))
 263               (kexec-path "")           ;not available in Guix yet
 264               (poweroff-path (string-append shepherd "/sbin/shutdown"))
 265               (reboot-path (string-append shepherd "/sbin/reboot")))
 266          (list
 267           (string-append "-Drootprefix=" out)
 268           (string-append "-Dsysconfdir=" sysconf)
 269           (string-append "-Drootlibexecdir=" libexec)
 270           (string-append "-Ddbuspolicydir=" dbuspolicy)
 271           (string-append "-Dc_link_args=-Wl,-rpath=" libexec)
 272           (string-append "-Dcpp_link_args=-Wl,-rpath=" libexec)
 273           (string-append "-Dhalt-path=" halt-path)
 274           (string-append "-Dkexec-path=" kexec-path)
 275           (string-append "-Dpoweroff-path=" poweroff-path)
 276           (string-append "-Dreboot-path=" reboot-path)
 277           "-Dcgroup-controller=elogind"
 278           ;; Disable some tests.
 279           "-Dtests=false"
 280           "-Dslow-tests=false"))
 281        #:phases
 282        (modify-phases %standard-phases
 283          (add-after 'unpack 'fix-pkttyagent-path
 284            (lambda _
 285              (substitute* "meson.build"
 286                (("join_paths\\(bindir, 'pkttyagent'\\)")
 287                 "'\"/run/current-system/profile/bin/pkttyagent\"'"))
 288              #t))
 289          (add-after 'unpack 'change-pid-file-path
 290            (lambda _
 291              (substitute* "src/login/elogind.c"
 292                (("\"/run/elogind.pid\"") "\"/run/systemd/elogind.pid\""))
 293              #t)))))
 294     (native-inputs
 295      `(("docbook-xml" ,docbook-xml)
 296        ("docbook-xml-4.2" ,docbook-xml-4.2)
 297        ("docbook-xsl" ,docbook-xsl)
 298        ("gettext" ,gettext-minimal)
 299        ("gperf" ,gperf)
 300        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
 301        ("m4" ,m4)
 302        ("pkg-config" ,pkg-config)
 303        ("python" ,python)
 304        ("xsltproc" ,libxslt)))
 305     (inputs
 306      `(("linux-pam" ,linux-pam)
 307        ("libcap" ,libcap)
 308        ("shepherd" ,shepherd)                ;for 'halt' and 'reboot', invoked
 309                                              ;when pressing the power button
 310        ("dbus" ,dbus)
 311        ("eudev" ,eudev)
 312        ("acl" ,acl)))           ;to add individual users to ACLs on /dev nodes
 313     (home-page "https://github.com/elogind/elogind")
 314     (synopsis "User, seat, and session management service")
 315     (description "Elogind is the systemd project's \"logind\" service,
 316 extracted out as a separate project.  Elogind integrates with PAM to provide
 317 the org.freedesktop.login1 interface over the system bus, allowing other parts
 318 of a the system to know what users are logged in, and where.")
 319     (license license:lgpl2.1+)))
 320
 321 (define-public localed
 322   ;; XXX: This package is extracted from systemd but we retain so little of it
 323   ;; that it would make more sense to maintain a fork of the bits we need.
 324   (package
 325     (name "localed")
 326     (version "241")
 327     (source (origin
 328               (method git-fetch)
 329               (uri (git-reference
 330                     (url "https://github.com/systemd/systemd")
 331                     (commit (string-append "v" version))))
 332               (sha256
 333                (base32
 334                 "0sy91flzbhpq58k7v0294pa2gxpr0bk27rcnxlbhk2fi6nc51d28"))
 335               (file-name (git-file-name name version))
 336               (modules '((guix build utils)))
 337               (snippet
 338                '(begin
 339                   ;; Connect to the right location for our D-Bus daemon.
 340                   (substitute* '("src/basic/def.h"
 341                                  "src/libsystemd/sd-bus/sd-bus.c"
 342                                  "src/stdio-bridge/stdio-bridge.c")
 343                     (("/run/dbus/system_bus_socket")
 344                      "/var/run/dbus/system_bus_socket"))
 345
 346                   ;; Don't insist on having systemd as PID 1 (otherwise
 347                   ;; 'localectl' would exit without doing anything.)
 348                   (substitute* "src/shared/bus-util.c"
 349                     (("sd_booted\\(\\)")
 350                      "(1)"))
 351                   #t))
 352               (patches (search-patches "localed-xorg-keyboard.patch"))))
 353     (build-system meson-build-system)
 354     (arguments
 355      ;; Try to build as little as possible (list of components taken from the
 356      ;; top-level 'meson.build' file.)
 357      (let ((components '("utmp"
 358                          "hibernate"
 359                          "environment-d"
 360                          "binfmt"
 361                          "coredump"
 362                          "resolve"
 363                          "logind"
 364                          "hostnamed"
 365                          "localed"
 366                          "machined"
 367                          "portabled"
 368                          "networkd"
 369                          "timedated"
 370                          "timesyncd"
 371                          "firstboot"
 372                          "randomseed"
 373                          "backlight"
 374                          "vconsole"
 375                          "quotacheck"
 376                          "sysusers"
 377                          "tmpfiles"
 378                          "hwdb"
 379                          "rfkill"
 380                          "ldconfig"
 381                          "efi"
 382                          "tpm"
 383                          "ima"
 384                          "smack"
 385                          "gshadow"
 386                          "idn"
 387                          "nss-myhostname"
 388                          "nss-systemd")))
 389        `(#:configure-flags ',(map (lambda (component)
 390                                     (string-append "-D" component "=false"))
 391                                   (delete "localed" components))
 392
 393          ;; It doesn't make sense to test all of systemd.
 394          #:tests? #f
 395
 396          #:phases (modify-phases %standard-phases
 397                     (add-after 'unpack 'set-xkeyboard-config-file-name
 398                       (lambda* (#:key inputs #:allow-other-keys)
 399                         ;; Set the file name to xkeyboard-config and kbd.
 400                         ;; This is used by 'localectl list-x11-keymap-layouts'
 401                         ;; and similar functions.
 402                         (let ((xkb (assoc-ref inputs "xkeyboard-config"))
 403                               (kbd (assoc-ref inputs "kbd")))
 404                           (substitute* "src/locale/localectl.c"
 405                             (("/usr/share/X11/xkb/rules")
 406                              (string-append xkb "/share/X11/xkb/rules")))
 407                           (substitute* "src/basic/def.h"
 408                             (("/usr/share/keymaps")
 409                              (string-append kbd "/share/keymaps")))
 410                           #t)))
 411                     (replace 'install
 412                       (lambda* (#:key outputs #:allow-other-keys)
 413                         ;; Install 'localed', the D-Bus and polkit files, and
 414                         ;; 'localectl'.
 415                         (let* ((out (assoc-ref outputs "out"))
 416                                (libexec (string-append out "/libexec/localed"))
 417                                (bin     (string-append out "/bin"))
 418                                (lib     (string-append out "/lib"))
 419                                (dbus    (string-append out
 420                                                        "/share/dbus-1/system-services"))
 421                                (conf    (string-append out
 422                                                        "/etc/dbus-1/system.d/"))
 423                                (polkit  (string-append out
 424                                                        "/share/polkit-1/actions"))
 425                                (data    (string-append out "/share/systemd")))
 426                           (define (source-file regexp)
 427                             (car (find-files ".." regexp)))
 428
 429                           (mkdir-p libexec)
 430                           (copy-file "systemd-localed"
 431                                      (string-append libexec "/localed"))
 432                           (install-file "localectl" bin)
 433
 434                           (let ((service-file (source-file
 435                                                "\\.locale1\\.service$")))
 436                             (substitute* service-file
 437                               (("^Exec=.*$")
 438                                (string-append "Exec=" libexec "/localed\n")))
 439                             (install-file service-file dbus))
 440                           (install-file (source-file "\\.locale1\\.policy$")
 441                                         polkit)
 442                           (install-file (source-file "\\.locale1\\.conf$")
 443                                         conf)
 444                           (for-each (lambda (file)
 445                                       (install-file file lib))
 446                                     (find-files "src/shared"
 447                                                 "libsystemd-shared.*\\.so"))
 448
 449                           (for-each (lambda (map)
 450                                       (install-file map data))
 451                                     (find-files ".." "^(kbd-model-map|language-fallback-map)$"))
 452                           #t)))))))
 453     (native-inputs (package-native-inputs elogind))
 454     (inputs `(("libmount" ,util-linux)
 455               ("xkeyboard-config" ,xkeyboard-config)
 456               ("kbd" ,kbd)
 457               ,@(package-inputs elogind)))
 458     (home-page "https://www.freedesktop.org/wiki/Software/systemd/localed/")
 459     (synopsis "Control the system locale and keyboard layout")
 460     (description
 461      "Localed is a tiny daemon that can be used to control the system locale
 462 and keyboard mapping from user programs.  It is used among other things by the
 463 GNOME Shell.  The @command{localectl} command-line tool allows you to interact
 464 with localed.  This package is extracted from the broader systemd package.")
 465     (license license:lgpl2.1+)))
 466
 467 (define-public packagekit
 468   (package
 469     (name "packagekit")
 470     (version "1.1.12")
 471     (source (origin
 472              (method url-fetch)
 473              (uri (string-append
 474                    "https://www.freedesktop.org/software/"
 475                    "PackageKit/releases/"
 476                    "PackageKit-" version ".tar.xz"))
 477              (sha256
 478               (base32
 479                "00css16dv3asaxrklvyxy9dyjzhw82wmfrqxqpca9w2xryz58i8z"))))
 480     (build-system gnu-build-system)
 481     (arguments
 482      `(#:tests? #f
 483        #:make-flags (list (string-append "BASH_COMPLETIONS_DIR="
 484                                          %output "/etc/bash_completion.d"))
 485        #:configure-flags
 486        '("--disable-systemd")))
 487     (native-inputs
 488      `(("intltool" ,intltool)
 489        ("pkg-config" ,pkg-config)
 490        ("python" ,python-wrapper)
 491        ("glib:bin" ,glib "bin")))
 492     (inputs
 493      `(("glib" ,glib)
 494        ("bash-completion" ,bash-completion)
 495        ("polkit" ,polkit)))
 496     (propagated-inputs
 497      `(("sqlite" ,sqlite)))
 498     (home-page "https://www.freedesktop.org/software/PackageKit/")
 499     (synopsis "API for package management, through D-Bus")
 500     (description
 501      "PackageKit provides a way of performing package management tasks,
 502 e.g. updating, removing and installing software.  Through supporting many
 503 backends, PackageKit can perform these tasks using the appropriate package
 504 manager for the current system.")
 505     (license license:gpl2+)))
 506
 507 (define-public python-pyxdg
 508   (package
 509     (name "python-pyxdg")
 510     (version "0.25")
 511     (source
 512      (origin
 513        (method url-fetch)
 514        (uri (pypi-uri "pyxdg" version))
 515        (sha256
 516         (base32
 517          "179767h8m634ydlm4v8lnz01ba42gckfp684id764zaip7h87s41"))))
 518     (build-system python-build-system)
 519     (arguments
 520      '(#:phases
 521        (modify-phases %standard-phases
 522          (replace 'check
 523            (lambda* (#:key inputs #:allow-other-keys)
 524              (setenv "XDG_DATA_DIRS"
 525                      (string-append (assoc-ref inputs "shared-mime-info")
 526                                     "/share/"))
 527              (substitute* "test/test-icon.py"
 528                (("/usr/share/icons/hicolor/index.theme")
 529                 (string-append (assoc-ref inputs "hicolor-icon-theme")
 530                                "/share/icons/hicolor/index.theme"))
 531                ;; FIXME: This test fails because the theme contains the unknown
 532                ;; key "Scale".
 533                (("theme.validate\\(\\)") "#"))
 534
 535              ;; One test fails with:
 536              ;; AssertionError: 'x-apple-ios-png' != 'png'
 537              (substitute* "test/test-mime.py"
 538                (("self.check_mimetype\\(imgpng, 'image', 'png'\\)") "#"))
 539              (invoke "nosetests" "-v"))))))
 540     (native-inputs
 541      ;; For tests.
 542      `(("shared-mime-info" ,shared-mime-info)
 543        ("hicolor-icon-theme" ,hicolor-icon-theme)
 544        ("python-nose" ,python-nose)))
 545     (home-page "https://www.freedesktop.org/wiki/Software/pyxdg")
 546     (synopsis "Implementations of freedesktop.org standards in Python")
 547     (description
 548      "PyXDG is a collection of implementations of freedesktop.org standards in
 549 Python.")
 550     (license license:lgpl2.0)))
 551
 552 (define-public python2-pyxdg
 553   (package-with-python2 python-pyxdg))
 554
 555 (define-public wayland
 556   (package
 557     (name "wayland")
 558     (version "1.17.0")
 559     (source (origin
 560               (method url-fetch)
 561               (uri (string-append "https://wayland.freedesktop.org/releases/"
 562                                   name "-" version ".tar.xz"))
 563               (sha256
 564                (base32
 565                 "194ibzwpdcn6fvk4xngr4bf5axpciwg2bj82fdvz88kfmjw13akj"))))
 566     (build-system gnu-build-system)
 567     (arguments
 568      `(#:parallel-tests? #f))
 569     (native-inputs
 570      `(("doxygen" ,doxygen)
 571        ("graphviz" ,graphviz)
 572        ("pkg-config" ,pkg-config)
 573        ("xmlto" ,xmlto)
 574        ("xsltproc" ,libxslt)))
 575     (inputs
 576      `(("docbook-xml" ,docbook-xml)
 577        ("docbook-xsl" ,docbook-xsl)
 578        ("expat" ,expat)
 579        ("libffi" ,libffi)
 580        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
 581     (home-page "https://wayland.freedesktop.org/")
 582     (synopsis "Display server protocol")
 583     (description
 584      "Wayland is a protocol for a compositor to talk to its clients as well as
 585 a C library implementation of that protocol.  The compositor can be a standalone
 586 display server running on Linux kernel modesetting and evdev input devices, an X
 587 application, or a wayland client itself.  The clients can be traditional
 588 applications, X servers (rootless or fullscreen) or other display servers.")
 589     (license license:x11)))
 590
 591 (define-public wayland-protocols
 592   (package
 593     (name "wayland-protocols")
 594     (version "1.18")
 595     (source (origin
 596               (method url-fetch)
 597               (uri (string-append
 598                     "https://wayland.freedesktop.org/releases/"
 599                     "wayland-protocols-" version ".tar.xz"))
 600               (sha256
 601                (base32
 602                 "1cvl93h83ymbfhb567jv5gzyq08181w7c46rsw4xqqqpcvkvfwrx"))))
 603     (build-system gnu-build-system)
 604     (inputs
 605      `(("wayland" ,wayland)))
 606     (native-inputs
 607      `(("pkg-config" ,pkg-config)))
 608     (synopsis "Wayland protocols")
 609     (description "This package contains XML definitions of the Wayland protocols.")
 610     (home-page "https://wayland.freedesktop.org")
 611     (license license:expat)))
 612
 613 (define-public waylandpp
 614   (package
 615     (name "waylandpp")
 616     (version "0.2.5")
 617     (home-page "https://github.com/NilsBrause/waylandpp")
 618     (source (origin
 619               (method git-fetch)
 620               (uri (git-reference (url home-page) (commit version)))
 621               (file-name (git-file-name name version))
 622               (sha256
 623                (base32
 624                 "16h57hzd688664qcyznzhjp3hxipdkzgv46x82yhkww24av8b55n"))))
 625     (build-system cmake-build-system)
 626     (arguments
 627      `(#:tests? #f))                    ;no tests
 628     (native-inputs
 629      `(("pkg-config" ,pkg-config)))
 630     (inputs
 631      `(("mesa" ,mesa)
 632        ("pugixml" ,pugixml)))
 633     (propagated-inputs
 634      `(;; In Requires of the .pc files.
 635        ("wayland" ,wayland)))
 636     (synopsis "Wayland C++ bindings")
 637     (description
 638      "This package provides C++ bindings for the Wayland display protocol.")
 639     (license license:bsd-2)))
 640
 641 (define-public weston
 642   (package
 643     (name "weston")
 644     (version "6.0.1")
 645     (source (origin
 646               (method url-fetch)
 647               (uri (string-append
 648                     "https://wayland.freedesktop.org/releases/"
 649                     "weston-" version ".tar.xz"))
 650               (sha256
 651                (base32
 652                 "1d2m658ll8x7prlsfk71qgw89c7dz6y7d6nndfxwl49fmrd6sbxz"))))
 653     (build-system meson-build-system)
 654     (native-inputs
 655      `(("pkg-config" ,pkg-config)
 656        ("xorg-server" ,xorg-server)))
 657     (inputs
 658      `(("cairo" ,cairo-xcb)
 659        ("colord" ,colord)
 660        ("dbus" ,dbus)
 661        ("elogind" ,elogind)
 662        ("lcms" ,lcms)
 663        ("libevdev" ,libevdev)
 664        ("libinput" ,libinput-minimal)
 665        ("libjpeg" ,libjpeg)
 666        ("libunwind" ,libunwind)
 667        ("libva" ,libva)
 668        ("libwebp" ,libwebp)
 669        ("libxcursor" ,libxcursor)
 670        ("libxkbcommon" ,libxkbcommon)
 671        ("libxml2" ,libxml2)
 672        ("mesa" ,mesa)
 673        ("mtdev" ,mtdev)
 674        ("linux-pam" ,linux-pam)
 675        ("pango" ,pango)
 676        ("wayland" ,wayland)
 677        ("wayland-protocols" ,wayland-protocols)
 678        ("xorg-server-xwayland" ,xorg-server-xwayland)))
 679     (arguments
 680      `(#:configure-flags
 681        (list "-Dbackend-rdp=false" ; TODO: Enable.
 682              "-Dremoting=false" ; TODO: Enable.
 683              "-Dsimple-dmabuf-drm=auto"
 684              "-Dsystemd=false"
 685              (string-append "-Dxwayland-path="
 686                             (assoc-ref %build-inputs "xorg-server-xwayland")
 687                             "/bin/Xwayland"))
 688        #:parallel-tests? #f ; Parallel tests cause failures.
 689        #:phases
 690        (modify-phases %standard-phases
 691          (add-before 'configure 'use-elogind
 692            (lambda _
 693              ;; Use elogind instead of systemd
 694              (substitute* "libweston/meson.build"
 695                (("libsystemd-login") "libelogind"))
 696              (substitute* '("libweston/launcher-logind.c"
 697                             "libweston/weston-launch.c")
 698                (("#include <systemd/sd-login.h>")
 699                 "#include <elogind/sd-login.h>"))
 700              #t))
 701          (add-after 'configure 'patch-confdefs.h
 702            (lambda _
 703              (system "echo \"#define HAVE_SYSTEMD_LOGIN_209 1\" >> confdefs.h")
 704              #t))
 705          (add-before 'check 'setup
 706            (lambda _
 707              (setenv "HOME" (getcwd))
 708              (setenv "XDG_RUNTIME_DIR" (getcwd))
 709              #t))
 710          (add-before 'check 'start-xorg-server
 711            (lambda* (#:key inputs #:allow-other-keys)
 712              ;; The test suite requires a running X server.
 713              (system (string-append (assoc-ref inputs "xorg-server")
 714                                     "/bin/Xvfb :1 &"))
 715              (setenv "DISPLAY" ":1")
 716              #t)))))
 717     (home-page "https://wayland.freedesktop.org")
 718     (synopsis "Reference implementation of a Wayland compositor")
 719     (description "Weston is the reference implementation of a Wayland
 720 compositor, and a useful compositor in its own right.
 721
 722 A Wayland compositor allows applications to render to a shared offscreen
 723 buffer using OpenGL ES.  The compositor then culls the hidden parts and
 724 composes the final output.  A Wayland compositor is essentially a
 725 multiplexer to the KMS/DRM Linux kernel devices.")
 726     (license license:expat)))
 727
 728 (define-public exempi
 729   (package
 730     (name "exempi")
 731     (version "2.5.1")
 732     (source (origin
 733              (method url-fetch)
 734              (uri (string-append
 735                    "https://libopenraw.freedesktop.org/download/"
 736                    name "-" version ".tar.bz2"))
 737              (sha256
 738               (base32
 739                "1j4vx054l1c2cggw4aka4iw48jkcf68qk5y064pbqw1k3ddks2qh"))))
 740     (build-system gnu-build-system)
 741     (arguments
 742      `(#:configure-flags (list (string-append "--with-boost="
 743                                (assoc-ref %build-inputs "boost")))))
 744     (native-inputs
 745      `(("boost" ,boost))) ; tests
 746     (inputs
 747      `(("expat" ,expat)
 748        ("zlib" ,zlib)))
 749     (home-page "https://libopenraw.freedesktop.org/exempi/")
 750     (synopsis "XMP metadata handling library")
 751     (description "Exempi is an implementation of the Extensible Metadata
 752 Platform (@dfn{XMP}), which enables embedding metadata in PDF and image
 753 formats.")
 754     (license license:bsd-3)))
 755
 756 (define-public libatasmart
 757   (package
 758     (name "libatasmart")
 759     (version "0.19")
 760     (source (origin
 761               (method url-fetch)
 762               (uri (string-append "http://0pointer.de/public/"
 763                                   name "-" version ".tar.xz"))
 764               (sha256
 765                (base32
 766                 "138gvgdwk6h4ljrjsr09pxk1nrki4b155hqdzyr8mlk3bwsfmw31"))))
 767     (build-system gnu-build-system)
 768     (native-inputs
 769      `(("pkg-config" ,pkg-config)))
 770     (inputs
 771      `(("udev" ,eudev)))
 772     (home-page "http://0pointer.de/blog/projects/being-smart.html")
 773     (synopsis "ATA S.M.A.R.T. reading and parsing library")
 774     (description
 775      "This library supports a subset of the ATA S.M.A.R.T. (Self-Monitoring,
 776 Analysis and Reporting Technology) functionality.")
 777     (license license:lgpl2.1+)))
 778
 779 (define-public udisks
 780   (package
 781     (name "udisks")
 782     (version "2.7.7")
 783     (source (origin
 784               (method url-fetch)
 785               (uri (string-append
 786                     "https://github.com/storaged-project/udisks/releases/download/udisks-"
 787                     version "/udisks-" version ".tar.bz2"))
 788               (sha256
 789                (base32
 790                 "1dnlxqgy9v0mjdknv3b1s64szdykyk3hk0rxj3chwhpd415lrwgs"))))
 791     (build-system gnu-build-system)
 792     (native-inputs
 793      `(("docbook-xml" ,docbook-xml-4.3) ; to build the manpages
 794        ("docbook-xsl" ,docbook-xsl)
 795        ("glib:bin" ,glib "bin")         ; for glib-mkenums
 796        ("gnome-common" ,gnome-common)   ; TODO: Why is this needed?
 797        ("gobject-introspection" ,gobject-introspection)
 798        ("gtk-doc" ,gtk-doc)
 799        ("intltool" ,intltool)
 800        ("pkg-config" ,pkg-config)
 801        ("xsltproc" ,libxslt)))
 802     (propagated-inputs
 803      `(("glib" ,glib))) ; required by udisks2.pc
 804     (inputs
 805      `(("acl" ,acl)
 806        ("cryptsetup" ,cryptsetup)
 807        ("libatasmart" ,libatasmart)
 808        ("libblockdev" ,libblockdev)
 809        ("libgudev" ,libgudev)
 810        ("polkit" ,polkit)
 811        ("util-linux" ,util-linux)))
 812     (outputs '("out"
 813                "doc"))                            ;5 MiB of gtk-doc HTML
 814     (arguments
 815      `(#:tests? #f ; requiring system message dbus
 816        #:disallowed-references ("doc")            ;enforce separation of "doc"
 817        #:configure-flags
 818        (list "--enable-man"
 819              "--enable-gtk-doc" ; Without this the HTML doc does not seem to build automatically.
 820              "--enable-available-modules" ; Such as lvm2, btrfs, etc.
 821              "--localstatedir=/var"
 822              "--enable-fhs-media"     ;mount devices in /media, not /run/media
 823              (string-append "--with-html-dir="
 824                             (assoc-ref %outputs "doc")
 825                             "/share/doc/udisks/html")
 826              (string-append "--with-udevdir=" %output "/lib/udev"))
 827        #:make-flags
 828        (let*  ((docbook-xsl-name-version ,(string-append
 829                                            (package-name docbook-xsl) "-"
 830                                            (package-version  docbook-xsl)))
 831                (docbook-xsl-catalog-file (string-append
 832                                           (assoc-ref %build-inputs "docbook-xsl")
 833                                           "/xml/xsl/"
 834                                           docbook-xsl-name-version
 835                                           "/catalog.xml"))
 836                (docbook-xml-catalog-file (string-append
 837                                           (assoc-ref %build-inputs "docbook-xml")
 838                                           "/xml/dtd/docbook/catalog.xml")))
 839          ;; Reference the catalog files required to build the manpages.
 840          (list (string-append "XML_CATALOG_FILES=" docbook-xsl-catalog-file " "
 841                               docbook-xml-catalog-file)))
 842        #:phases
 843        (modify-phases %standard-phases
 844          (add-before
 845           'configure 'fix-girdir
 846           (lambda _
 847             ;; Install introspection data to its own output.
 848             (substitute* "udisks/Makefile.in"
 849               (("girdir = .*")
 850                "girdir = $(datadir)/gir-1.0\n")
 851               (("typelibsdir = .*")
 852                "typelibsdir = $(libdir)/girepository-1.0\n"))))
 853          (add-after 'install 'wrap-udisksd
 854            (lambda* (#:key outputs inputs #:allow-other-keys)
 855              ;; Tell 'udisksd' where to find the 'mount' command.
 856              (let ((out   (assoc-ref outputs "out"))
 857                    (utils (assoc-ref inputs "util-linux"))
 858                    (cryptsetup (assoc-ref inputs "cryptsetup"))
 859                    (parted (assoc-ref inputs "parted")))
 860                (wrap-program (string-append out "/libexec/udisks2/udisksd")
 861                  `("PATH" ":" prefix
 862                    (,(string-append utils "/bin") ;for 'mount'
 863                     ;; cryptsetup is required for setting encrypted
 864                     ;; partitions, e.g. in gnome-disks
 865                     ,(string-append cryptsetup "/sbin")
 866                     "/run/current-system/profile/bin"
 867                     "/run/current-system/profile/sbin")))
 868                #t))))))
 869     (home-page "https://www.freedesktop.org/wiki/Software/udisks/")
 870     (synopsis "Disk manager service")
 871     (description
 872      "UDisks provides interfaces to enumerate and perform operations on disks
 873 and storage devices.  Any application (including unprivileged ones) can access
 874 the udisksd(8) daemon via the name org.freedesktop.UDisks2 on the system
 875 message bus.")
 876     ;; The dynamic library are under LGPLv2+, others are GPLv2+.
 877     (license (list license:gpl2+ license:lgpl2.0+))))
 878
 879 (define-public accountsservice
 880   (package
 881     (name "accountsservice")
 882     (version "0.6.50")
 883     (source
 884      (origin
 885        (method url-fetch)
 886        (uri (string-append "https://www.freedesktop.org/software/"
 887                            "accountsservice/accountsservice-" version ".tar.xz"))
 888        (sha256
 889         (base32 "0jn7vg1z4vxnna0hl33hbcb4bb3zpilxc2vyclh24vx4vvsjhn83"))))
 890     (build-system gnu-build-system)
 891     (arguments
 892      '(#:tests? #f ; XXX: tests require DocBook 4.1.2
 893        #:configure-flags
 894        '("--localstatedir=/var"
 895          "--disable-systemd"
 896          "--enable-elogind")
 897        #:phases
 898        (modify-phases %standard-phases
 899          (add-before
 900           'configure 'pre-configure
 901           (lambda* (#:key inputs #:allow-other-keys)
 902             ;; Don't try to create /var/lib/AccountsService.
 903             (substitute* "src/Makefile.in"
 904               (("\\$\\(MKDIR_P\\).*/lib/AccountsService.*") "true"))
 905             (let ((shadow (assoc-ref inputs "shadow")))
 906               (substitute* '("src/user.c" "src/daemon.c")
 907                 (("/usr/sbin/usermod") (string-append shadow "/sbin/usermod"))
 908                 (("/usr/sbin/useradd") (string-append shadow "/sbin/useradd"))
 909                 (("/usr/sbin/userdel") (string-append shadow "/sbin/userdel"))
 910                 (("/usr/bin/passwd")   (string-append shadow "/bin/passwd"))
 911                 (("/usr/bin/chage")    (string-append shadow "/bin/chage"))))
 912             #t)))))
 913     (native-inputs
 914      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
 915        ("gobject-introspection" ,gobject-introspection)
 916        ("intltool" ,intltool)
 917        ("pkg-config" ,pkg-config)))
 918     (inputs
 919      `(("elogind" ,elogind)
 920        ("polkit" ,polkit)
 921        ("shadow" ,shadow)))
 922     (home-page "https://www.freedesktop.org/wiki/Software/AccountsService/")
 923     (synopsis "D-Bus interface for user account query and manipulation")
 924     (description
 925      "The AccountService project provides a set of D-Bus interfaces for querying
 926 and manipulating user account information and an implementation of these
 927 interfaces, based on the useradd, usermod and userdel commands.")
 928     (license license:gpl3+)))
 929
 930 (define-public libmbim
 931   (package
 932     (name "libmbim")
 933     (version "1.20.2")
 934     (source (origin
 935               (method url-fetch)
 936               (uri (string-append
 937                     "https://www.freedesktop.org/software/libmbim/"
 938                     "libmbim-" version ".tar.xz"))
 939               (sha256
 940                (base32
 941                 "16q550sy84izi5ic3sbbhjnnka2fwhj8vvdrirpn9xspbsgbc3sm"))))
 942     (build-system gnu-build-system)
 943     (native-inputs
 944      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 945        ("pkg-config" ,pkg-config)
 946        ("python" ,python-wrapper)))
 947     (propagated-inputs
 948      `(("glib" ,glib))) ; required by mbim-glib.pc
 949     (inputs
 950      `(("libgudev" ,libgudev)))
 951     (synopsis "Library to communicate with MBIM-powered modems")
 952     (home-page "https://www.freedesktop.org/wiki/Software/libmbim/")
 953     (description
 954      "Libmbim is a GLib-based library for talking to WWAN modems and devices
 955 which speak the Mobile Interface Broadband Model (MBIM) protocol.")
 956     (license
 957      ;; The libmbim-glib library is released under the LGPLv2+ license.
 958      ;; The mbimcli tool is released under the GPLv2+ license.
 959      (list license:lgpl2.0+ license:gpl2+))))
 960
 961 (define-public libqmi
 962   (package
 963     (name "libqmi")
 964     (version "1.22.4")
 965     (source (origin
 966               (method url-fetch)
 967               (uri (string-append
 968                     "https://www.freedesktop.org/software/libqmi/"
 969                     "libqmi-" version ".tar.xz"))
 970               (sha256
 971                (base32
 972                 "1wgrrb9vb3myl8xgck8ik86876ycbg8crylybs3ssi21vrxqwnsc"))))
 973     (build-system gnu-build-system)
 974     (inputs
 975      `(("libgudev" ,libgudev)))
 976     (native-inputs
 977      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 978        ("pkg-config" ,pkg-config)
 979        ("python" ,python-wrapper)))
 980     (propagated-inputs
 981      `(("glib" ,glib))) ; required by qmi-glib.pc
 982     (synopsis "Library to communicate with QMI-powered modems")
 983     (home-page "https://www.freedesktop.org/wiki/Software/libqmi/")
 984     (description
 985      "Libqmi is a GLib-based library for talking to WWAN modems and devices
 986 which speak the Qualcomm MSM Interface (QMI) protocol.")
 987     (license
 988      ;; The libqmi-glib library is released under the LGPLv2+ license.
 989      ;; The qmicli tool is released under the GPLv2+ license.
 990      (list license:lgpl2.0+ license:gpl2+))))
 991
 992 (define-public modem-manager
 993   (package
 994     (name "modem-manager")
 995     (version "1.10.8")
 996     (source (origin
 997               (method url-fetch)
 998               (uri (string-append
 999                     "https://www.freedesktop.org/software/ModemManager/"
1000                     "ModemManager-" version ".tar.xz"))
1001               (sha256
1002                (base32
1003                 "16hnl0sdriqgv4v30mfs64mdl9rw7lsh802zlm3ggwxxil3p9qfb"))))
1004     (build-system gnu-build-system)
1005     (arguments
1006      '(#:configure-flags
1007        `(,(string-append "--with-udev-base-dir=" %output "/lib/udev")
1008          ;; FIXME: Without this flag the build fails with "error: assignment
1009          ;; from incompatible pointer type" whenever the return value of
1010          ;; "g_object_ref" is assigned to "ctx->self".
1011          "--disable-more-warnings")))
1012     (native-inputs
1013      `(("glib:bin" ,glib "bin") ; for glib-mkenums
1014        ("gobject-introspection" ,gobject-introspection)
1015        ("intltool" ,intltool)
1016        ("pkg-config" ,pkg-config)
1017        ("vala" ,vala)
1018        ;; For testing.
1019        ("dbus" ,dbus)))
1020     (propagated-inputs
1021      `(("glib" ,glib))) ; required by mm-glib.pc
1022     (inputs
1023      `(("libgudev" ,libgudev)
1024        ("libmbim" ,libmbim)
1025        ("libqmi" ,libqmi)
1026        ("polkit" ,polkit)))
1027     (synopsis "Mobile broadband modems manager")
1028     (home-page "https://www.freedesktop.org/wiki/Software/ModemManager/")
1029     (description
1030      "ModemManager is a DBus-activated daemon which controls mobile
1031 broadband (2G/3G/4G) devices and connections.  Whether built-in devices, USB
1032 dongles, bluetooth-paired telephones, or professional RS232/USB devices with
1033 external power supplies, ModemManager is able to prepare and configure the
1034 modems and setup connections with them.")
1035     (license license:gpl2+)))
1036
1037 (define-public telepathy-logger
1038   (package
1039     (name "telepathy-logger")
1040     (version "0.8.2")
1041     (source (origin
1042               (method url-fetch)
1043               (uri (string-append "https://telepathy.freedesktop.org/releases/"
1044                                   name "/" name "-" version ".tar.bz2"))
1045               (sha256
1046                (base32
1047                 "1bjx85k7jyfi5pvl765fzc7q2iz9va51anrc2djv7caksqsdbjlg"))))
1048     (build-system gnu-build-system)
1049     (arguments
1050      '(#:parallel-tests? #f
1051        #:phases
1052        (modify-phases %standard-phases
1053          (add-before 'check 'pre-check
1054           (lambda _
1055             (setenv "HOME" (getenv "TMPDIR"))
1056             #t)))))
1057     (native-inputs
1058      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
1059        ("gobject-introspection" ,gobject-introspection)
1060        ("intltool" ,intltool)
1061        ("pkg-config" ,pkg-config)
1062        ("python" ,python-2)
1063        ("xsltproc" ,libxslt)))
1064     (propagated-inputs
1065      ;; telepathy-logger-0.2.pc refers to all these.
1066      `(("libxml2" ,libxml2)
1067        ("sqlite" ,sqlite)
1068        ("telepathy-glib" ,telepathy-glib)))
1069     (synopsis "Telepathy logger library")
1070     (home-page "https://telepathy.freedesktop.org/")
1071     (description
1072      "Telepathy logger is a headless observer client that logs information
1073 received by the Telepathy framework.  It features pluggable backends to log
1074 different sorts of messages in different formats.")
1075     (license license:lgpl2.1+)))
1076
1077 (define-public telepathy-idle
1078   (package
1079     (name "telepathy-idle")
1080     (version "0.2.0")
1081     (source (origin
1082               (method url-fetch)
1083               (uri (string-append "https://telepathy.freedesktop.org/releases/"
1084                                   name "/" name "-" version ".tar.bz2"))
1085               (sha256
1086                (base32
1087                 "1argdzbif1vdmwp5vqbgkadq9ancjmgdm2ncp0qfckni715ss4rh"))))
1088     (build-system gnu-build-system)
1089     (native-inputs
1090      `(("pkg-config" ,pkg-config)))
1091     (inputs
1092      `(("xsltproc" ,libxslt)
1093        ("python" ,python-2)
1094        ("python-dbus" ,python2-dbus)))
1095     (propagated-inputs
1096      `(("telepathy-glib" ,telepathy-glib)))
1097     (home-page "https://telepathy.freedesktop.org/")
1098     (synopsis "Telepathy IRC connection manager")
1099     (description
1100      "Idle is an IRC connection manager for the Telepathy framework.  This
1101 package enables usage of IRC channels and private messages in Telepathy instant
1102 messaging clients such as Empathy, GNOME Shell or KDE Telepathy.")
1103     (license (list license:lgpl2.1 license:lgpl2.1+))))
1104
1105 (define-public telepathy-mission-control
1106   (package
1107     (name "telepathy-mission-control")
1108     (version "5.16.5")
1109     (source
1110      (origin
1111        (method url-fetch)
1112        (uri (string-append "https://telepathy.freedesktop.org/releases/"
1113                            "telepathy-mission-control/"
1114                            "telepathy-mission-control-" version ".tar.gz"))
1115        (sha256
1116         (base32 "00xxv38cfdirnfvgyd56m60j0nkmsv5fz6p2ydyzsychicxl6ssc"))))
1117     (build-system gnu-build-system)
1118     (native-inputs
1119      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
1120        ("pkg-config" ,pkg-config)))
1121     (inputs
1122      `(("dconf" ,dconf)
1123        ("gtk-doc" ,gtk-doc)
1124        ("libgnome-keyring" ,libgnome-keyring)
1125        ("python" ,python-2)
1126        ("xsltproc" ,libxslt)))
1127     (propagated-inputs
1128      `(("telepathy-glib" ,telepathy-glib)))
1129     (home-page "https://telepathy.freedesktop.org/wiki/Components/Mission_Control/")
1130     (synopsis "Telepathy real-time communication framework management daemon")
1131     (description
1132      "Telepathy Mission Control 5 is an account manager and channel dispatcher
1133 for the Telepathy framework, allowing user interfaces and other clients to
1134 share connections to real-time communication services without conflicting.")
1135     (license license:lgpl2.1)))
1136
1137 (define-public colord-gtk
1138   (package
1139     (name "colord-gtk")
1140     (version "0.1.26")
1141     (source (origin
1142               (method url-fetch)
1143               (uri (string-append "https://www.freedesktop.org/software/colord"
1144                                   "/releases/" name "-" version ".tar.xz"))
1145               (sha256
1146                (base32
1147                 "0i9y3bb5apj6a0f8cx36l6mjzs7xc0k7nf0magmf58vy2mzhpl18"))))
1148     (build-system gnu-build-system)
1149     (arguments '(#:tests? #f)) ; require the colord system service
1150     (native-inputs
1151      `(("gobject-introspection" ,gobject-introspection)
1152        ("intltool" ,intltool)
1153        ("pkg-config" ,pkg-config)
1154        ("vala" ,vala)))
1155     (propagated-inputs
1156      ;; colord-gtk.pc refers to all these.
1157      `(("colord" ,colord)
1158        ("gtk+" ,gtk+)))
1159     (synopsis "GTK integration for libcolord")
1160     (home-page "https://www.freedesktop.org/software/colord/")
1161     (description
1162      "This is a GTK+ convenience library for interacting with colord.  It is
1163 useful for both applications which need colour management and applications that
1164 wish to perform colour calibration.")
1165     (license license:lgpl2.1+)))
1166
1167 (define-public libfprint
1168   (package
1169     (name "libfprint")
1170     (version "0.6.0")
1171     (source (origin
1172               (method url-fetch)
1173               (uri (string-append "https://people.freedesktop.org/~hadess/"
1174                                   name "-" version ".tar.xz"))
1175               (sha256
1176                (base32
1177                 "1giwh2z63mn45galsjb59rhyrvgwcy01hvvp4g01iaa2snvzr0r5"))))
1178     (build-system gnu-build-system)
1179     (arguments
1180      '(#:configure-flags (list (string-append "--with-udev-rules-dir="
1181                                               (assoc-ref %outputs "out")
1182                                               "/lib/udev/rules.d"))))
1183     (native-inputs
1184      `(("pkg-config" ,pkg-config)))
1185     (inputs
1186      `(("libusb" ,libusb)
1187        ("nss" ,nss)
1188        ("glib" ,glib)
1189        ("eudev" ,eudev)
1190        ("pixman" ,pixman)))
1191     (home-page "https://www.freedesktop.org/wiki/Software/fprint/libfprint/")
1192     (synopsis "Library to access fingerprint readers")
1193     (description
1194      "libfprint is a library designed to make it easy for application
1195 developers to add support for consumer fingerprint readers to their
1196 software.")
1197     (license license:lgpl2.1+)))
1198
1199 (define-public fprintd
1200   (package
1201     (name "fprintd")
1202     (version "0.7.0")
1203     (source (origin
1204               (method url-fetch)
1205               (uri (string-append
1206                     "https://people.freedesktop.org/~hadess/fprintd-"
1207                     version ".tar.xz"))
1208               (sha256
1209                (base32
1210                 "05915i0bv7q62fqrs5diqwr8dz3pwqa1c1ivcgggkjyw0xk4ldp5"))))
1211     (build-system gnu-build-system)
1212     (arguments
1213      '(#:phases (modify-phases %standard-phases
1214                   (add-before 'build 'set-sysconfdir
1215                     (lambda* (#:key outputs #:allow-other-keys)
1216                       ;; Work around a bug whereby the 'SYSCONFDIR' macro
1217                       ;; expands literally to '${prefix}/etc'.
1218                       (let ((out (assoc-ref outputs "out")))
1219                         (substitute* "src/main.c"
1220                           (("SYSCONFDIR, \"fprintd.conf\"")
1221                            (string-append "\"" out "/etc\", "
1222                                           "\"fprintd.conf\"")))
1223                         #t))))))
1224     (native-inputs
1225      `(("pkg-config" ,pkg-config)
1226        ("intltool" ,intltool)))
1227     (inputs
1228      `(("libfprint" ,libfprint)
1229        ("dbus-glib" ,dbus-glib)
1230        ("polkit" ,polkit)
1231        ("linux-pam" ,linux-pam)))                 ;for pam_fprintd
1232     (home-page "https://www.freedesktop.org/wiki/Software/fprint/fprintd/")
1233     (synopsis "D-Bus daemon that exposes fingerprint reader functionality")
1234     (description
1235      "fprintd is a D-Bus daemon that offers functionality of libfprint, a
1236 library to access fingerprint readers, over the D-Bus interprocess
1237 communication bus.  This daemon layer above libfprint solves problems related
1238 to applications simultaneously competing for fingerprint readers.")
1239     (license license:gpl2+)))
1240
1241 (define-public desktop-file-utils
1242   (package
1243     (name "desktop-file-utils")
1244     (version "0.23")
1245     (source (origin
1246               (method url-fetch)
1247               (uri (string-append "https://www.freedesktop.org/software/" name
1248                                   "/releases/" name "-" version ".tar.xz"))
1249               (sha256
1250                (base32
1251                 "119kj2w0rrxkhg4f9cf5waa55jz1hj8933vh47vcjipcplql02bc"))))
1252     (build-system gnu-build-system)
1253     (native-inputs
1254      `(("pkg-config" ,pkg-config)))
1255     (inputs
1256      `(("glib" ,glib)))
1257     (home-page "https://www.freedesktop.org/wiki/Software/desktop-file-utils/")
1258     (synopsis "Utilities for working with desktop entries")
1259     (description
1260      "This package contains a few command line utilities for working with
1261 desktop entries:
1262
1263 desktop-file-validate: validates a desktop file and prints warnings/errors
1264                        about desktop entry specification violations.
1265
1266 desktop-file-install: installs a desktop file to the applications directory,
1267                       optionally munging it a bit in transit.
1268
1269 update-desktop-database: updates the database containing a cache of MIME types
1270                          handled by desktop files.")
1271     (license license:gpl2+)))
1272
1273 (define-public xdg-user-dirs
1274   (package
1275     (name "xdg-user-dirs")
1276     (version "0.17")
1277     (source (origin
1278               (method url-fetch)
1279               (uri (string-append "http://user-dirs.freedesktop.org/releases/"
1280                                     name "-" version ".tar.gz"))
1281               (sha256
1282                (base32 "13216b8rfkzak5k6bvpx6jvqv3cnbgpijnjwj8a8d3kq4cl0a1ra"))))
1283     (build-system gnu-build-system)
1284     (native-inputs
1285      `(("gettext" ,gettext-minimal)
1286        ("docbook-xsl" ,docbook-xsl)
1287        ("docbook-xml" ,docbook-xml-4.3)
1288        ("xsltproc" ,libxslt)))
1289     (arguments
1290      `(#:phases
1291        (modify-phases %standard-phases
1292          (add-before 'build 'locate-catalog-files
1293            (lambda* (#:key inputs #:allow-other-keys)
1294              (let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
1295                                           "/xml/dtd/docbook"))
1296                    (xsldoc (string-append (assoc-ref inputs "docbook-xsl")
1297                                           "/xml/xsl/docbook-xsl-"
1298                                           ,(package-version docbook-xsl))))
1299                (for-each (lambda (file)
1300                            (substitute* file
1301                              (("http://.*/docbookx\\.dtd")
1302                               (string-append xmldoc "/docbookx.dtd"))))
1303                          (find-files "man" "\\.xml$"))
1304                (substitute* "man/Makefile"
1305                  (("http://.*/docbook\\.xsl")
1306                   (string-append xsldoc "/manpages/docbook.xsl")))
1307                #t))))))
1308     (home-page "https://www.freedesktop.org/wiki/Software/xdg-user-dirs/")
1309     (synopsis "Tool to help manage \"well known\" user directories")
1310     (description "xdg-user-dirs is a tool to help manage \"well known\" user
1311 directories, such as the desktop folder or the music folder. It also handles
1312 localization (i.e. translation) of the file names.  Designed to be
1313 automatically run when a user logs in, xdg-user-dirs can also be run
1314 manually by a user.")
1315     (license license:gpl2)))
1316
1317 (define-public perl-file-basedir
1318   (package
1319     (name "perl-file-basedir")
1320     (version "0.08")
1321     (source
1322      (origin
1323        (method url-fetch)
1324        (uri (string-append "mirror://cpan/authors/id/K/KI/KIMRYAN/"
1325                            "File-BaseDir-" version ".tar.gz"))
1326        (sha256
1327         (base32
1328          "1qq5ag9zffx8zc5i9b4z03ar80pqj4drgk3vjdlyfapjwb9zqrf0"))))
1329     (build-system perl-build-system)
1330     (native-inputs
1331      `(("perl-module-build" ,perl-module-build)
1332        ("perl-file-which" ,perl-file-which)
1333        ("perl-test-pod" ,perl-test-pod)
1334        ("perl-test-pod-coverage" ,perl-test-pod-coverage)
1335        ("xdg-user-dirs" ,xdg-user-dirs)))
1336     (propagated-inputs
1337      `(("perl-ipc-system-simple" ,perl-ipc-system-simple)))
1338     (home-page "https://metacpan.org/release/File-BaseDir")
1339     (synopsis "Use the Freedesktop.org base directory specification")
1340     (description
1341      "@code{File::Basedir} can be used to find directories and files as
1342 specified by the Freedesktop.org Base Directory Specification.  This
1343 specifications gives a mechanism to locate directories for configuration,
1344 application data and cache data.")
1345     (license license:perl-license)))
1346
1347 (define-public perl-file-desktopentry
1348   (package
1349     (name "perl-file-desktopentry")
1350     (version "0.22")
1351     (source
1352      (origin
1353        (method url-fetch)
1354        (uri (string-append "mirror://cpan/authors/id/M/MI/MICHIELB/"
1355                            "File-DesktopEntry-" version ".tar.gz"))
1356        (sha256
1357         (base32
1358          "1f1maqix2kbfg2rf008m7mqnvv6nvcf9y6pcgdv2kxp2vbih370n"))))
1359     (build-system perl-build-system)
1360     (native-inputs
1361      `(("perl-test-pod" ,perl-test-pod)
1362        ("perl-test-pod-coverage" ,perl-test-pod-coverage)))
1363     (propagated-inputs
1364      `(("perl-file-basedir" ,perl-file-basedir)
1365        ("perl-uri" ,perl-uri)))
1366     (home-page "https://metacpan.org/release/File-DesktopEntry")
1367     (synopsis "Handle @file{.desktop} files")
1368     (description
1369      "@code{File::DesktopEntry} parses @file{.desktop} files defined by the
1370 Freedesktop.org @dfn{Desktop Entry} specification.  It can also run the
1371 applications define in those files.")
1372     (license license:perl-license)))
1373
1374 (define-public perl-file-mimeinfo
1375   (package
1376     (name "perl-file-mimeinfo")
1377     (version "0.29")
1378     (source
1379      (origin
1380        (method url-fetch)
1381        (uri (string-append "mirror://cpan/authors/id/M/MI/MICHIELB/"
1382                            "File-MimeInfo-" version ".tar.gz"))
1383        (sha256
1384         (base32
1385          "1sh8r6vczyz08zm8vfsjmkg6a165wch54akjdrd1vbifcmwjg5pi"))))
1386     (build-system perl-build-system)
1387     ;; If the tests are fixed, add perl-test-pod, perl-test-pod-coverage, and
1388     ;; perl-test-tiny as native-inputs.
1389     (propagated-inputs
1390      `(("shared-mime-info" ,shared-mime-info)
1391        ("perl-file-desktopentry" ,perl-file-desktopentry)))
1392     (arguments
1393      ;; Some tests fail due to requiring the mimetype of perl files to be
1394      ;; text/plain when they are actually application/x-perl.
1395      `(#:tests? #f
1396        #:phases
1397        (modify-phases %standard-phases
1398          (add-after 'install 'wrap-programs
1399            (lambda* (#:key outputs #:allow-other-keys)
1400              (let ((out (assoc-ref outputs "out")))
1401                (for-each (lambda (prog)
1402                            (wrap-program (string-append out "/bin/" prog)
1403                              `("PERL5LIB" ":" prefix
1404                                (,(string-append (getenv "PERL5LIB") ":" out
1405                                                 "/lib/perl5/site_perl")))))
1406                          '("mimeopen" "mimetype")))
1407              #t)))))
1408     (home-page "https://metacpan.org/release/File-MimeInfo")
1409     (synopsis "Determine file type from the file name")
1410     (description
1411      "@code{File::Mimeinfo} can be used to determine the MIME type of a file.
1412 It tries to implement the Freedesktop specification for a shared MIME
1413 database.
1414
1415 This package also contains two related utilities:
1416
1417 @itemize
1418 @item @command{mimetype} determines a file's MIME type;
1419 @item @command{mimeopen} opens files in an appropriate program according to
1420 their MIME type.
1421 @end itemize")
1422     (license license:perl-license)))
1423
1424 (define-public uchardet
1425   (package
1426     (name "uchardet")
1427     (version "0.0.6")
1428     (source
1429       (origin
1430         (method url-fetch)
1431         (uri (string-append "https://www.freedesktop.org/software/"
1432                             name "/releases/" name "-" version ".tar.xz"))
1433         (sha256
1434           (base32 "0q9c02b6nmw41yfsiqsnphgc3f0yg3fj31wkccp47cmwvy634lc3"))))
1435     (build-system cmake-build-system)
1436     (home-page "https://www.freedesktop.org/wiki/Software/uchardet/")
1437     (synopsis "Encoding detector library")
1438     (description "uchardet is an encoding detector library, which takes a
1439 sequence of bytes in an unknown character encoding without any additional
1440 information, and attempts to determine the encoding of the text.  Returned
1441 encoding names are iconv-compatible.")
1442
1443     ;; This combines code under MPL 1.1, LGPL 2.1+, and GPL 2.0+, so the
1444     ;; combination is GPL 2.0+.
1445     (license license:gpl2+)))
1446
1447 (define-public udiskie
1448   (package
1449     (name "udiskie")
1450     (version "1.7.7")
1451     (source
1452      (origin
1453        (method url-fetch)
1454        (uri (pypi-uri "udiskie" version))
1455        (sha256
1456         (base32
1457          "121g9dkr7drv9igpdbcbkj59x15mm72rzp3198bp50zj0lr4wbvi"))
1458        ;; Remove support for the libappindicator library of the
1459        ;; Unity desktop environment which is not in Guix.
1460        (patches (search-patches "udiskie-no-appindicator.patch"))))
1461     (build-system python-build-system)
1462     (native-inputs
1463      `(("asciidoc" ,asciidoc)
1464        ("gettext" ,gettext-minimal)
1465        ("gobject-introspection" ,gobject-introspection)))
1466     (inputs
1467      `(("gobject-introspection" ,gobject-introspection)
1468        ("gtk+" ,gtk+)
1469        ("libnotify" ,libnotify)
1470        ("udisks" ,udisks)))
1471     (propagated-inputs
1472      `(("python-docopt" ,python-docopt)
1473        ("python-pygobject" ,python-pygobject)
1474        ("python-keyutils" ,python-keyutils)
1475        ("python-pyxdg" ,python-pyxdg)
1476        ("python-pyyaml" ,python-pyyaml)))
1477     (arguments
1478      `(#:phases
1479        (modify-phases %standard-phases
1480          (add-after 'install 'wrap-gi-typelib
1481            (lambda* (#:key outputs #:allow-other-keys)
1482              (let ((out (assoc-ref outputs "out"))
1483                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
1484                (wrap-program (string-append out "/bin/udiskie")
1485                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
1486              #t)))))
1487     (home-page "https://github.com/coldfix/udiskie")
1488     (synopsis "Automounter for removable media")
1489     (description
1490      "The @command{udiskie} program is a udisks2 front-end that allows to
1491 manage removable media such as CDs or flash drives from userspace.
1492
1493 Its features include:
1494
1495 @itemize
1496 @item automount removable media,
1497 @item notifications,
1498 @item tray icon,
1499 @item command line tools for manual (un)mounting,
1500 @item LUKS encrypted devices,
1501 @item unlocking with keyfiles,
1502 @item loop devices (mounting ISO archives),
1503 @item password caching.
1504 @end itemize
1505 ")
1506     (license license:expat)))