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 Andy Wingo <wingo@pobox.com>
   5 ;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
   6 ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
   7 ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
   8 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
   9 ;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
  10 ;;;
  11 ;;; This file is part of GNU Guix.
  12 ;;;
  13 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  14 ;;; under the terms of the GNU General Public License as published by
  15 ;;; the Free Software Foundation; either version 3 of the License, or (at
  16 ;;; your option) any later version.
  17 ;;;
  18 ;;; GNU Guix is distributed in the hope that it will be useful, but
  19 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;;; GNU General Public License for more details.
  22 ;;;
  23 ;;; You should have received a copy of the GNU General Public License
  24 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  25
  26 (define-module (gnu packages freedesktop)
  27   #:use-module ((guix licenses) #:prefix license:)
  28   #:use-module (guix packages)
  29   #:use-module (guix download)
  30   #:use-module (guix git-download)
  31   #:use-module (guix build-system gnu)
  32   #:use-module (guix build-system python)
  33   #:use-module (gnu packages gnome)
  34   #:use-module (gnu packages python)
  35   #:use-module (gnu packages linux)
  36   #:use-module (gnu packages pkg-config)
  37   #:use-module (gnu packages autotools)
  38   #:use-module (gnu packages gettext)
  39   #:use-module (gnu packages gperf)
  40   #:use-module (gnu packages graphviz)
  41   #:use-module (gnu packages gtk)
  42   #:use-module (gnu packages xml)
  43   #:use-module (gnu packages docbook)
  44   #:use-module (gnu packages glib)                ;intltool
  45   #:use-module (gnu packages xdisorg)
  46   #:use-module (gnu packages xorg)
  47   #:use-module (gnu packages boost)
  48   #:use-module (gnu packages m4)
  49   #:use-module (gnu packages compression)
  50   #:use-module (gnu packages documentation)
  51   #:use-module (gnu packages libffi)
  52   #:use-module (gnu packages acl)
  53   #:use-module (gnu packages admin)
  54   #:use-module (gnu packages polkit)
  55   #:use-module (gnu packages databases))
  56
  57 (define-public xdg-utils
  58   (package
  59     (name "xdg-utils")
  60     (version "1.0.2")
  61     (source
  62       (origin
  63         (method url-fetch)
  64           (uri (string-append
  65                  "https://portland.freedesktop.org/download/xdg-utils-"
  66                  version ".tgz"))
  67           (sha256
  68             (base32
  69              "1b019d3r1379b60p33d6z44kx589xjgga62ijz9vha95dg8vgbi1"))))
  70     (build-system gnu-build-system)
  71     (propagated-inputs
  72      `(("xprop" ,xprop) ; for Xfce detecting
  73        ("xset" ,xset))) ; for xdg-screensaver
  74     (arguments
  75      `(#:tests? #f)) ; no check target
  76     (home-page "http://portland.freedesktop.org/")
  77     (synopsis "Freedesktop.org scripts for desktop integration")
  78     (description "The xdg-utils package is a set of simple scripts that
  79 provide basic desktop integration functions in the framework of the
  80 freedesktop.org project.")
  81     (license license:expat)))
  82
  83 (define-public libinput
  84   (package
  85     (name "libinput")
  86     (version "1.4.0")
  87     (source (origin
  88               (method url-fetch)
  89               (uri (string-append "https://freedesktop.org/software/libinput/"
  90                                   name "-" version ".tar.xz"))
  91               (sha256
  92                (base32
  93                 "085lcxy111j8r1lwyghsc6zrysqh0vg8xip5axxsdl8r8n3i1vvn"))))
  94     (build-system gnu-build-system)
  95     (native-inputs
  96      `(("pkg-config" ,pkg-config)))
  97     (propagated-inputs
  98      `(("libudev" ,eudev))) ; required by libinput.pc
  99     (inputs
 100      `(("libevdev" ,libevdev)
 101        ("mtdev" ,mtdev)
 102        ("libwacom" ,libwacom)))
 103     (home-page "https://www.freedesktop.org/wiki/Software/libinput/")
 104     (synopsis "Input devices handling library")
 105     (description
 106      "Libinput is a library to handle input devices for display servers and
 107 other applications that need to directly deal with input devices.")
 108     (license license:x11)))
 109
 110 (define-public libinput-minimal
 111   (package (inherit libinput)
 112     (name "libinput-minimal")
 113     (inputs
 114      `(("libevdev" ,libevdev)
 115        ("mtdev" ,mtdev)))
 116     (arguments
 117       `(#:configure-flags
 118         '("--disable-libwacom")))))
 119
 120 (define-public libxdg-basedir
 121   (package
 122     (name "libxdg-basedir")
 123     (version "1.2.0")
 124     (source (origin
 125               (method url-fetch)
 126               (uri (string-append
 127                     "https://github.com/devnev/libxdg-basedir/archive/"
 128                     name "-" version ".tar.gz"))
 129               (sha256
 130                (base32
 131                 "0s28c7sfwqimsmb3kn91mx7wi55fs3flhbmynl9k60rrllr00aqw"))))
 132     (build-system gnu-build-system)
 133     (arguments
 134      '(#:phases
 135        (modify-phases %standard-phases
 136          (add-after 'unpack 'autogen
 137            (lambda _
 138              ;; Run 'configure' in its own phase, not now.
 139              (substitute* "autogen.sh"
 140                (("^.*\\./configure.*") ""))
 141              (zero? (system* "sh" "autogen.sh")))))))
 142     (native-inputs
 143      `(("autoconf" ,autoconf)
 144        ("automake" ,automake)
 145        ("libtool" ,libtool)))
 146     (home-page "https://github.com/devnev/libxdg-basedir")
 147     (synopsis "Implementation of the XDG Base Directory specification")
 148     (description
 149      "libxdg-basedir is a C library providing some functions to use with
 150 the freedesktop.org XDG Base Directory specification.")
 151     (license license:expat)))
 152
 153 (define-public elogind
 154   (package
 155     (name "elogind")
 156     (version "219.14")
 157     (source (origin
 158               (method url-fetch)
 159               (uri (string-append "https://wingolog.org/pub/" name "/"
 160                                   name "-" version ".tar.xz"))
 161               (sha256
 162                (base32
 163                 "1jckc4wx199n1q4r4fv43ibjs6nlq91s39w9r78ilk1z383m1hcx"))
 164               (modules '((guix build utils)))
 165               (snippet
 166                '(begin
 167                   (use-modules (guix build utils))
 168                   (substitute* "Makefile.am"
 169                     ;; Avoid validation against DTD because the DTDs for
 170                     ;; both doctype 4.2 and 4.5 are needed.
 171                     (("XSLTPROC_FLAGS = ") "XSLTPROC_FLAGS = --novalid"))))))
 172     (build-system gnu-build-system)
 173     (arguments
 174      `(#:configure-flags
 175        (list (string-append "--with-libcap="
 176                             (assoc-ref %build-inputs "libcap"))
 177              (string-append "--with-udevrulesdir="
 178                             (assoc-ref %outputs "out")
 179                             "/lib/udev/rules.d"))
 180        #:make-flags '("PKTTYAGENT=/run/current-system/profile/bin/pkttyagent")
 181        #:phases (modify-phases %standard-phases
 182                   (add-before 'build 'fix-service-file
 183                     (lambda* (#:key outputs #:allow-other-keys)
 184                       ;; Fix the file name of the 'elogind' binary in the D-Bus
 185                       ;; '.service' file.
 186                       (substitute* "src/login/org.freedesktop.login1.service"
 187                         (("^Exec=.*")
 188                          (string-append "Exec=" (assoc-ref %outputs "out")
 189                                         "/libexec/elogind/elogind\n"))))))))
 190     (native-inputs
 191      `(("intltool" ,intltool)
 192        ("gettext" ,gnu-gettext)
 193        ("docbook-xsl" ,docbook-xsl)
 194        ("docbook-xml" ,docbook-xml)
 195        ("xsltproc" ,libxslt)
 196        ("m4" ,m4)
 197        ("libxml2" ,libxml2)                     ;for XML_CATALOG_FILES
 198        ("pkg-config" ,pkg-config)
 199        ("gperf" ,gperf)))
 200     (inputs
 201      `(("linux-pam" ,linux-pam)
 202        ("linux-libre-headers" ,linux-libre-headers)
 203        ("libcap" ,libcap)
 204        ("shepherd" ,shepherd)                ;for 'halt' and 'reboot', invoked
 205                                              ;when pressing the power button
 206        ("dbus" ,dbus)
 207        ("eudev" ,eudev)))
 208     (home-page "https://github.com/wingo/elogind")
 209     (synopsis "User, seat, and session management service")
 210     (description "Elogind is the systemd project's \"logind\" service,
 211 extracted out as a separate project.  Elogind integrates with PAM to provide
 212 the org.freedesktop.login1 interface over the system bus, allowing other parts
 213 of a the system to know what users are logged in, and where.")
 214     (license license:lgpl2.1+)))
 215
 216 (define-public python-pyxdg
 217   (package
 218     (name "python-pyxdg")
 219     (version "0.25")
 220     (source
 221      (origin
 222        (method url-fetch)
 223        (uri (string-append
 224              "https://pypi.python.org/packages/source/p/pyxdg/pyxdg-"
 225              version ".tar.gz"))
 226        (sha256
 227         (base32
 228          "179767h8m634ydlm4v8lnz01ba42gckfp684id764zaip7h87s41"))))
 229     (build-system python-build-system)
 230     (arguments
 231      '(#:phases
 232        (alist-replace
 233         'check
 234         (lambda* (#:key inputs #:allow-other-keys)
 235           (setenv "XDG_DATA_DIRS"
 236                   (string-append (assoc-ref inputs "shared-mime-info")
 237                                  "/share/"))
 238           (substitute* "test/test-icon.py"
 239             (("/usr/share/icons/hicolor/index.theme")
 240              (string-append (assoc-ref inputs "hicolor-icon-theme")
 241                             "/share/icons/hicolor/index.theme")))
 242
 243           ;; One test fails with:
 244           ;; AssertionError: 'x-apple-ios-png' != 'png'
 245           (substitute* "test/test-mime.py"
 246             (("self.check_mimetype\\(imgpng, 'image', 'png'\\)") "#"))
 247           (zero? (system* "nosetests" "-v")))
 248         %standard-phases)))
 249     (native-inputs
 250      `(("shared-mime-info" ,shared-mime-info) ;for tests
 251        ("hicolor-icon-theme" ,hicolor-icon-theme) ;for tests
 252        ("python-nose" ,python-nose)
 253        ("python-setuptools" ,python-setuptools)))
 254     (home-page "http://freedesktop.org/wiki/Software/pyxdg")
 255     (synopsis "Implementations of freedesktop.org standards in Python")
 256     (description
 257      "PyXDG is a collection of implementations of freedesktop.org standards in
 258 Python.")
 259     (license license:lgpl2.0)))
 260
 261 (define-public python2-pyxdg
 262   (package-with-python2 python-pyxdg))
 263
 264 (define-public wayland
 265   (package
 266     (name "wayland")
 267     (version "1.11.0")
 268     (source (origin
 269               (method url-fetch)
 270               (uri (string-append "https://wayland.freedesktop.org/releases/"
 271                                   name "-" version ".tar.xz"))
 272               (sha256
 273                (base32
 274                 "1c0d5ivy9n44hykvw2ggrvqrnn7naw3wg11vbvgwzgi8g5gr4h4m"))))
 275     (build-system gnu-build-system)
 276     (arguments `(#:parallel-tests? #f))
 277     (native-inputs
 278      `(("doxygen" ,doxygen)
 279        ("graphviz" ,graphviz)
 280        ("pkg-config" ,pkg-config)
 281        ("xmlto" ,xmlto)
 282        ("xsltproc" ,libxslt)))
 283     (inputs
 284      `(("docbook-xml" ,docbook-xml)
 285        ("docbook-xsl" ,docbook-xsl)
 286        ("expat" ,expat)
 287        ("libffi" ,libffi)
 288        ("libxml2" ,libxml2))) ; for XML_CATALOG_FILES
 289     (home-page "https://wayland.freedesktop.org/")
 290     (synopsis "Display server protocol")
 291     (description
 292      "Wayland is a protocol for a compositor to talk to its clients as well as
 293 a C library implementation of that protocol.  The compositor can be a standalone
 294 display server running on Linux kernel modesetting and evdev input devices, an X
 295 application, or a wayland client itself.  The clients can be traditional
 296 applications, X servers (rootless or fullscreen) or other display servers.")
 297     (license license:x11)))
 298
 299 (define-public wayland-protocols
 300   (package
 301     (name "wayland-protocols")
 302     (version "1.4")
 303     (source (origin
 304               (method url-fetch)
 305               (uri (string-append
 306                     "https://wayland.freedesktop.org/releases/"
 307                     "wayland-protocols-" version ".tar.xz"))
 308               (sha256
 309                (base32
 310                 "0wpm7mz7ww6nn3vrgz7a9iyk7mk6za73wnq0n54lzl8yq8irljh1"))))
 311     (build-system gnu-build-system)
 312     (inputs
 313      `(("wayland" ,wayland)))
 314     (native-inputs
 315      `(("pkg-config" ,pkg-config)))
 316     (synopsis "Wayland protocols")
 317     (description "This package contains XML definitions of the Wayland protocols.")
 318     (home-page "https://wayland.freedesktop.org")
 319     (license license:expat)))
 320
 321 (define-public exempi
 322   (package
 323     (name "exempi")
 324     (version "2.3.0")
 325     (source (origin
 326              (method url-fetch)
 327              (uri (string-append
 328                    "https://libopenraw.freedesktop.org/download/"
 329                    name "-" version ".tar.bz2"))
 330              (sha256
 331               (base32
 332                "0jcrv3w8m415cq8xi886hcxfqbrn5dczxbzybx9bhf3dbqsyv6nq"))))
 333     (build-system gnu-build-system)
 334     (arguments
 335      `(#:configure-flags (list (string-append "--with-boost="
 336                                (assoc-ref %build-inputs "boost")))))
 337     (native-inputs
 338      `(("boost" ,boost))) ; tests
 339     (inputs
 340      `(("expat" ,expat)
 341        ("zlib" ,zlib)))
 342     (home-page "https://wiki.freedesktop.org/libopenraw/Exempi")
 343     (synopsis "XMP metadata handling library")
 344     (description "Exempi is an implementation of the Extensible Metadata
 345 Platform (XMP), which enables embedding metadata in PDF and image formats.")
 346     (license license:bsd-3)))
 347
 348 (define-public libatasmart
 349   (package
 350     (name "libatasmart")
 351     (version "0.19")
 352     (source (origin
 353               (method url-fetch)
 354               (uri (string-append "http://0pointer.de/public/"
 355                                   name "-" version ".tar.xz"))
 356               (sha256
 357                (base32
 358                 "138gvgdwk6h4ljrjsr09pxk1nrki4b155hqdzyr8mlk3bwsfmw31"))))
 359     (build-system gnu-build-system)
 360     (native-inputs
 361      `(("pkg-config" ,pkg-config)))
 362     (inputs
 363      `(("udev" ,eudev)))
 364     (home-page "http://0pointer.de/blog/projects/being-smart.html")
 365     (synopsis "ATA S.M.A.R.T. reading and parsing library")
 366     (description
 367      "This library supports a subset of the ATA S.M.A.R.T. (Self-Monitoring,
 368 Analysis and Reporting Technology) functionality.")
 369     (license license:lgpl2.1+)))
 370
 371 (define-public udisks
 372   (package
 373     (name "udisks")
 374     (version "2.1.7")
 375     (source (origin
 376               (method url-fetch)
 377               (uri (string-append "https://udisks.freedesktop.org/releases/"
 378                                   name "-" version ".tar.bz2"))
 379               (sha256
 380                (base32
 381                 "119pr2zbff8vkwlhghim7d7ir24c1dil9hp4q49wm4f6pnrjpbmb"))))
 382     (build-system gnu-build-system)
 383     (native-inputs
 384      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 385        ("gobject-introspection" ,gobject-introspection)
 386        ("intltool" ,intltool)
 387        ("pkg-config" ,pkg-config)
 388        ("xsltproc" ,libxslt)))
 389     (propagated-inputs
 390      `(("glib" ,glib))) ; required by udisks2.pc
 391     (inputs
 392      `(("acl" ,acl)
 393        ("libatasmart" ,libatasmart)
 394        ("libgudev" ,libgudev)
 395        ("polkit" ,polkit)
 396        ("util-linux" ,util-linux)))
 397     (outputs '("out"
 398                "doc"))                            ;5 MiB of gtk-doc HTML
 399     (arguments
 400      `(#:tests? #f ; requiring system message dbus
 401        #:disallowed-references ("doc")            ;enforce separation of "doc"
 402        #:configure-flags
 403        (list "--disable-man"
 404              "--localstatedir=/var"
 405              "--enable-fhs-media"     ;mount devices in /media, not /run/media
 406              (string-append "--with-html-dir="
 407                             (assoc-ref %outputs "doc")
 408                             "/share/doc/udisks/html")
 409              (string-append "--with-udevdir=" %output "/lib/udev"))
 410        #:phases
 411        (modify-phases %standard-phases
 412          (add-before
 413           'configure 'fix-girdir
 414           (lambda _
 415             ;; Install introspection data to its own output.
 416             (substitute* "udisks/Makefile.in"
 417               (("girdir = .*")
 418                "girdir = $(datadir)/gir-1.0\n")
 419               (("typelibsdir = .*")
 420                "typelibsdir = $(libdir)/girepository-1.0\n"))))
 421          (add-after 'install 'set-mount-file-name
 422            (lambda* (#:key outputs inputs #:allow-other-keys)
 423              ;; Tell 'udisksd' where to find the 'mount' command.
 424              (let ((out   (assoc-ref outputs "out"))
 425                    (utils (assoc-ref inputs "util-linux")))
 426                (wrap-program (string-append out "/libexec/udisks2/udisksd")
 427                  `("PATH" ":" prefix
 428                    (,(string-append utils "/bin") ;for 'mount'
 429                     "/run/current-system/profile/bin"
 430                     "/run/current-system/profile/sbin")))
 431                #t))))))
 432     (home-page "http://www.freedesktop.org/wiki/Software/udisks/")
 433     (synopsis "Disk manager service")
 434     (description
 435      "UDisks provides interfaces to enumerate and perform operations on disks
 436 and storage devices.  Any application (including unprivileged ones) can access
 437 the udisksd(8) daemon via the name org.freedesktop.UDisks2 on the system
 438 message bus.")
 439     ;; The dynamic library are under LGPLv2+, others are GPLv2+.
 440     (license (list license:gpl2+ license:lgpl2.0+))))
 441
 442 (define-public accountsservice
 443   (package
 444     (name "accountsservice")
 445     (version "0.6.40")
 446     (source (origin
 447               (method url-fetch)
 448               (uri (string-append "https://www.freedesktop.org/software/"
 449                                   name "/" name "-" version ".tar.xz"))
 450               (sha256
 451                (base32
 452                 "0ayb3y3l25dmwxlh9g071h02mphjfbkvi2k5f635bayb01k7akzh"))))
 453     (build-system gnu-build-system)
 454     (arguments
 455      '(#:tests? #f ; XXX: tests require DocBook 4.1.2
 456        #:configure-flags
 457        '("--localstatedir=/var")
 458        #:phases
 459        (modify-phases %standard-phases
 460          (add-before
 461           'configure 'pre-configure
 462           (lambda _
 463             ;; Don't try to create /var/lib/AccoutsService.
 464             (substitute* "src/Makefile.in"
 465               (("\\$\\(MKDIR_P\\).*/lib/AccountsService.*") "true")))))))
 466     (native-inputs
 467      `(("glib:bin" ,glib "bin") ; for gdbus-codegen, etc.
 468        ("gobject-introspection" ,gobject-introspection)
 469        ("intltool" ,intltool)
 470        ("pkg-config" ,pkg-config)))
 471     (inputs
 472      `(("polkit" ,polkit)))
 473     (home-page "http://www.freedesktop.org/wiki/Software/AccountsService/")
 474     (synopsis "D-Bus interface for user account query and manipulation")
 475     (description
 476      "The AccountService project provides a set of D-Bus interfaces for querying
 477 and manipulating user account information and an implementation of these
 478 interfaces, based on the useradd, usermod and userdel commands.")
 479     (license license:gpl3+)))
 480
 481 (define-public libmbim
 482   (package
 483     (name "libmbim")
 484     (version "1.12.4")
 485     (source (origin
 486               (method url-fetch)
 487               (uri (string-append
 488                     "https://www.freedesktop.org/software/" name "/"
 489                     name "-" version ".tar.xz"))
 490               (sha256
 491                (base32
 492                 "0flpgzsqpjgybjkx4smbb4rjxf2w1xgd1v9gmz61rvl89qasznbv"))))
 493     (build-system gnu-build-system)
 494     (native-inputs
 495      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 496        ("pkg-config" ,pkg-config)
 497        ("python" ,python-wrapper)))
 498     (propagated-inputs
 499      `(("glib" ,glib))) ; required by mbim-glib.pc
 500     (inputs
 501      `(("libgudev" ,libgudev)))
 502     (synopsis "Library to communicate with MBIM-powered modems")
 503     (home-page "https://www.freedesktop.org/wiki/Software/libmbim/")
 504     (description
 505      "Libmbim is a GLib-based library for talking to WWAN modems and devices
 506 which speak the Mobile Interface Broadband Model (MBIM) protocol.")
 507     (license
 508      ;; The libmbim-glib library is released under the LGPLv2+ license.
 509      ;; The mbimcli tool is released under the GPLv2+ license.
 510      (list license:lgpl2.0+ license:gpl2+))))
 511
 512 (define-public libqmi
 513   (package
 514     (name "libqmi")
 515     (version "1.14.2")
 516     (source (origin
 517               (method url-fetch)
 518               (uri (string-append
 519                     "https://www.freedesktop.org/software/" name "/"
 520                     name "-" version ".tar.xz"))
 521               (sha256
 522                (base32
 523                 "0h009bzss4bal47nk21lyp4s3mmlcivhhaaj7r9229qvx85bi0v2"))))
 524     (build-system gnu-build-system)
 525     (native-inputs
 526      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 527        ("pkg-config" ,pkg-config)
 528        ("python" ,python-wrapper)))
 529     (propagated-inputs
 530      `(("glib" ,glib))) ; required by qmi-glib.pc
 531     (synopsis "Library to communicate with QMI-powered modems")
 532     (home-page "https://www.freedesktop.org/wiki/Software/libqmi/")
 533     (description
 534      "Libqmi is a GLib-based library for talking to WWAN modems and devices
 535 which speak the Qualcomm MSM Interface (QMI) protocol.")
 536     (license
 537      ;; The libqmi-glib library is released under the LGPLv2+ license.
 538      ;; The qmicli tool is released under the GPLv2+ license.
 539      (list license:lgpl2.0+ license:gpl2+))))
 540
 541 (define-public modem-manager
 542   (package
 543     (name "modem-manager")
 544     (version "1.4.14")
 545     (source (origin
 546               (method url-fetch)
 547               (uri (string-append
 548                     "https://www.freedesktop.org/software/ModemManager/"
 549                     "ModemManager-" version ".tar.xz"))
 550               (sha256
 551                (base32
 552                 "18hvffwcncwz14kdzk42jbkh362n0kjv3kgx7axbqx572pawvrmb"))))
 553     (build-system gnu-build-system)
 554     (arguments
 555      '(#:configure-flags
 556        `(,(string-append "--with-udev-base-dir=" %output "/lib/udev"))))
 557     (native-inputs
 558      `(("glib:bin" ,glib "bin") ; for glib-mkenums
 559        ("gobject-introspection" ,gobject-introspection)
 560        ("intltool" ,intltool)
 561        ("pkg-config" ,pkg-config)
 562        ("vala" ,vala)
 563        ;; For testing.
 564        ("dbus" ,dbus)))
 565     (propagated-inputs
 566      `(("glib" ,glib))) ; required by mm-glib.pc
 567     (inputs
 568      `(("libgudev" ,libgudev)
 569        ("libmbim" ,libmbim)
 570        ("libqmi" ,libqmi)
 571        ("polkit" ,polkit)))
 572     (synopsis "Mobile broadband modems manager")
 573     (home-page "http://www.freedesktop.org/wiki/Software/ModemManager/")
 574     (description
 575      "ModemManager is a DBus-activated daemon which controls mobile
 576 broadband (2G/3G/4G) devices and connections.  Whether built-in devices, USB
 577 dongles, bluetooth-paired telephones, or professional RS232/USB devices with
 578 external power supplies, ModemManager is able to prepare and configure the
 579 modems and setup connections with them.")
 580     (license license:gpl2+)))
 581
 582 (define-public telepathy-logger
 583   (package
 584     (name "telepathy-logger")
 585     (version "0.8.2")
 586     (source (origin
 587               (method url-fetch)
 588               (uri (string-append "https://telepathy.freedesktop.org/releases/"
 589                                   name "/" name "-" version ".tar.bz2"))
 590               (sha256
 591                (base32
 592                 "1bjx85k7jyfi5pvl765fzc7q2iz9va51anrc2djv7caksqsdbjlg"))))
 593     (build-system gnu-build-system)
 594     (arguments
 595      '(#:parallel-tests? #f
 596        #:phases
 597        (modify-phases %standard-phases
 598          (add-before 'check 'pre-check
 599           (lambda _
 600             (setenv "HOME" (getenv "TMPDIR"))
 601             #t)))))
 602     (native-inputs
 603      `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
 604        ("gobject-introspection" ,gobject-introspection)
 605        ("intltool" ,intltool)
 606        ("pkg-config" ,pkg-config)
 607        ("python" ,python-2)
 608        ("xsltproc" ,libxslt)))
 609     (propagated-inputs
 610      ;; telepathy-logger-0.2.pc refers to all these.
 611      `(("libxml2" ,libxml2)
 612        ("sqlite" ,sqlite)
 613        ("telepathy-glib" ,telepathy-glib)))
 614     (synopsis "Telepathy logger library")
 615     (home-page "http://telepathy.freedesktop.org/")
 616     (description
 617      "Telepathy logger is a headless observer client that logs information
 618 received by the Telepathy framework.  It features pluggable backends to log
 619 different sorts of messages in different formats.")
 620     (license license:lgpl2.1+)))
 621
 622 (define-public telepathy-idle
 623   (package
 624     (name "telepathy-idle")
 625     (version "0.2.0")
 626     (source (origin
 627               (method url-fetch)
 628               (uri (string-append "https://telepathy.freedesktop.org/releases/"
 629                                   name "/" name "-" version ".tar.bz2"))
 630               (sha256
 631                (base32
 632                 "1argdzbif1vdmwp5vqbgkadq9ancjmgdm2ncp0qfckni715ss4rh"))))
 633     (build-system gnu-build-system)
 634     (native-inputs
 635      `(("pkg-config" ,pkg-config)))
 636     (inputs
 637      `(("xsltproc" ,libxslt)
 638        ("python" ,python-2)
 639        ("python-dbus" ,python2-dbus)))
 640     (propagated-inputs
 641      `(("telepathy-glib" ,telepathy-glib)))
 642     (home-page "http://telepathy.freedesktop.org/")
 643     (synopsis "Telepathy IRC connection manager")
 644     (description
 645      "Idle is an IRC connection manager for the Telepathy framework.  This
 646 package enables usage of IRC channels and private messages in Telepathy instant
 647 messaging clients such as Empathy, GNOME Shell or KDE Telepathy.")
 648     (license (list license:lgpl2.1 license:lgpl2.1+))))
 649
 650 (define-public telepathy-mission-control
 651   (package
 652     (name "telepathy-mission-control")
 653     (version "5.16.3")
 654     (source (origin
 655               (method url-fetch)
 656               (uri (string-append "https://telepathy.freedesktop.org/releases/"
 657                                   name "/" name "-" version ".tar.bz2"))
 658               (sha256
 659                (base32
 660                 "0zcbx69k0d3p2pjh3g7sa3q2zkd5xchxkqsmlfn3fwxaz0pmsmvi"))))
 661     (build-system gnu-build-system)
 662     (native-inputs
 663      `(("glib:bin" ,glib "bin") ; for glib-compile-schemas, etc.
 664        ("pkg-config" ,pkg-config)))
 665     (inputs
 666      `(("dconf" ,dconf)
 667        ("gtk-doc" ,gtk-doc)
 668        ("libgnome-keyring" ,libgnome-keyring)
 669        ("python" ,python-2)
 670        ("xsltproc" ,libxslt)))
 671     (propagated-inputs
 672      `(("telepathy-glib" ,telepathy-glib)))
 673     (home-page "https://telepathy.freedesktop.org/wiki/Components/Mission_Control/")
 674     (synopsis "Telepathy real-time communication framework management daemon")
 675     (description
 676      "Telepathy Mission Control 5 is an account manager and channel dispatcher
 677 for the Telepathy framework, allowing user interfaces and other clients to
 678 share connections to real-time communication services without conflicting.")
 679     (license license:lgpl2.1)))
 680
 681 (define-public colord-gtk
 682   (package
 683     (name "colord-gtk")
 684     (version "0.1.26")
 685     (source (origin
 686               (method url-fetch)
 687               (uri (string-append "https://www.freedesktop.org/software/colord"
 688                                   "/releases/" name "-" version ".tar.xz"))
 689               (sha256
 690                (base32
 691                 "0i9y3bb5apj6a0f8cx36l6mjzs7xc0k7nf0magmf58vy2mzhpl18"))))
 692     (build-system gnu-build-system)
 693     (arguments '(#:tests? #f)) ; require the colord system service
 694     (native-inputs
 695      `(("gobject-introspection" ,gobject-introspection)
 696        ("intltool" ,intltool)
 697        ("pkg-config" ,pkg-config)
 698        ("vala" ,vala)))
 699     (propagated-inputs
 700      ;; colord-gtk.pc refers to all these.
 701      `(("colord" ,colord)
 702        ("gtk+" ,gtk+)))
 703     (synopsis "GTK integration for libcolord")
 704     (home-page "http://www.freedesktop.org/software/colord/")
 705     (description
 706      "This is a GTK+ convenience library for interacting with colord.  It is
 707 useful for both applications which need colour management and applications that
 708 wish to perform colour calibration.")
 709     (license license:lgpl2.1+)))