gnu/packages/mpd.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014, 2015 David Thompson <dthompson2@worcester.edu>
   3 ;;; Copyright © 2014 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
   5 ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
   6 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
   7 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
   8 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   9 ;;;
  10 ;;; This file is part of GNU Guix.
  11 ;;;
  12 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  13 ;;; under the terms of the GNU General Public License as published by
  14 ;;; the Free Software Foundation; either version 3 of the License, or (at
  15 ;;; your option) any later version.
  16 ;;;
  17 ;;; GNU Guix is distributed in the hope that it will be useful, but
  18 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;;; GNU General Public License for more details.
  21 ;;;
  22 ;;; You should have received a copy of the GNU General Public License
  23 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 (define-module (gnu packages mpd)
  26   #:use-module (gnu packages)
  27   #:use-module ((guix licenses) #:prefix license:)
  28   #:use-module (guix packages)
  29   #:use-module (guix download)
  30   #:use-module (guix utils)
  31   #:use-module (guix build-system gnu)
  32   #:use-module (guix build-system meson)
  33   #:use-module (guix build-system python)
  34   #:use-module (gnu packages avahi)
  35   #:use-module (gnu packages boost)
  36   #:use-module (gnu packages gettext)
  37   #:use-module (gnu packages gnome)
  38   #:use-module (gnu packages gtk)
  39   #:use-module (gnu packages icu4c)
  40   #:use-module (gnu packages readline)
  41   #:use-module (gnu packages check)
  42   #:use-module (gnu packages compression)
  43   #:use-module (gnu packages curl)
  44   #:use-module (gnu packages documentation)
  45   #:use-module (gnu packages glib)
  46   #:use-module (gnu packages linux)
  47   #:use-module (gnu packages mp3)
  48   #:use-module (gnu packages ncurses)
  49   #:use-module (gnu packages pkg-config)
  50   #:use-module (gnu packages python)
  51   #:use-module (gnu packages pulseaudio)
  52   #:use-module (gnu packages databases)
  53   #:use-module (gnu packages video)
  54   #:use-module (gnu packages xiph))
  55
  56 (define-public libmpdclient
  57   (package
  58     (name "libmpdclient")
  59     (version "2.13")
  60     (source (origin
  61               (method url-fetch)
  62               (uri
  63                (string-append "http://musicpd.org/download/libmpdclient/"
  64                               (car (string-split version #\.))
  65                               "/libmpdclient-" version ".tar.xz"))
  66               (sha256
  67                (base32
  68                 "0pflbv2jzik7yxnacci1iqs0awy1i5ipwn67xk0hg9r0pi9bs5ai"))))
  69     (build-system meson-build-system)
  70     (native-inputs
  71      `(("pkg-config" ,pkg-config)
  72
  73        ;; For building HTML documentation.
  74        ("doxygen" ,doxygen)
  75
  76        ;; For tests.
  77        ("check" ,check)))
  78     (arguments
  79      `(#:configure-flags
  80        (list "-Ddocumentation=true"
  81              "-Dtest=true")))
  82     (synopsis "Music Player Daemon client library")
  83     (description "A stable, documented, asynchronous API library for
  84 interfacing MPD in the C, C++ & Objective C languages.")
  85     (home-page "https://www.musicpd.org/libs/libmpdclient/")
  86     (license license:bsd-3)))
  87
  88 (define-public mpd
  89   (package
  90     (name "mpd")
  91     (version "0.20.13")
  92     (source (origin
  93               (method url-fetch)
  94               (uri
  95                (string-append "http://musicpd.org/download/mpd/"
  96                               (version-major+minor version)
  97                               "/mpd-" version ".tar.xz"))
  98               (sha256
  99                (base32
 100                 "0h7z90dnpwlyad4kfi1ja9v9vzqic0xg93iy4q0dwlhav0scbha6"))))
 101     (build-system gnu-build-system)
 102     (arguments
 103      `(#:phases
 104        (modify-phases %standard-phases
 105          (add-after 'install 'install-service-files
 106            (lambda* (#:key outputs #:allow-other-keys)
 107              (let* ((out (assoc-ref outputs "out"))
 108                     (systemd (string-append out "/etc/systemd/system"))
 109                     (systemd-user (string-append out "/etc/systemd/user")))
 110                (install-file "systemd/system/mpd.service" systemd)
 111                (install-file "systemd/user/mpd.service" systemd-user)
 112                #t))))))
 113     (inputs `(("ao" ,ao)
 114               ("alsa-lib" ,alsa-lib)
 115               ("avahi" ,avahi)
 116               ("boost" ,boost)
 117               ("curl" ,curl)
 118               ("ffmpeg" ,ffmpeg)
 119               ("flac" ,flac)
 120               ("glib" ,glib)
 121               ("icu4c" ,icu4c)
 122               ("lame" ,lame)
 123               ("libid3tag" ,libid3tag)
 124               ("libmad" ,libmad)
 125               ("libmpdclient" ,libmpdclient)
 126               ("libsamplerate" ,libsamplerate)
 127               ("libsndfile" ,libsndfile)
 128               ("libvorbis" ,libvorbis)
 129               ("opus" ,opus)
 130               ("pulseaudio" ,pulseaudio)
 131               ("sqlite" ,sqlite)
 132               ("zlib" ,zlib)))
 133     (native-inputs `(("pkg-config" ,pkg-config)))
 134     ;; Missing optional inputs:
 135     ;;   libyajl
 136     ;;   libcdio_paranoia
 137     ;;   libmms
 138     ;;   libadplug
 139     ;;   libaudiofile
 140     ;;   faad2
 141     ;;   fluidsynth
 142     ;;   libgme
 143     ;;   libshout
 144     ;;   libmpg123
 145     ;;   libmodplug
 146     ;;   libmpcdec
 147     ;;   libsidplay2
 148     ;;   libwavpack
 149     ;;   libwildmidi
 150     ;;   libtwolame
 151     ;;   libroar
 152     ;;   libjack
 153     ;;   OpenAL
 154     (synopsis "Music Player Daemon")
 155     (description "Music Player Daemon (MPD) is a flexible, powerful,
 156 server-side application for playing music.  Through plugins and libraries it
 157 can play a variety of sound files while being controlled by its network
 158 protocol.")
 159     (home-page "https://www.musicpd.org/")
 160     (license license:gpl2)))
 161
 162 (define-public mpd-mpc
 163   (package
 164     (name "mpd-mpc")
 165     (version "0.28")
 166     (source (origin
 167               (method url-fetch)
 168               (uri
 169                (string-append "http://www.musicpd.org/download/mpc/"
 170                               (car (string-split version #\.))
 171                               "/mpc-" version ".tar.xz"))
 172               (sha256
 173                (base32
 174                 "0iy5mdffkk61255f62si7p8mhyhkib70zlr1i1iimj2xr037scx4"))))
 175     (build-system gnu-build-system)
 176     (inputs `(("libmpdclient" ,libmpdclient)))
 177     (native-inputs `(("pkg-config" ,pkg-config)))
 178     (synopsis "Music Player Daemon client")
 179     (description "MPC is a minimalist command line interface to MPD, the music
 180 player daemon.")
 181     (home-page "https://www.musicpd.org/clients/mpc/")
 182     (license license:gpl2)))
 183
 184 (define-public ncmpc
 185   (package
 186     (name "ncmpc")
 187     (version "0.27")
 188     (source (origin
 189               (method url-fetch)
 190               (uri
 191                (string-append "http://musicpd.org/download/ncmpc/"
 192                               (car (string-split version #\.))
 193                               "/ncmpc-" version ".tar.xz"))
 194               (sha256
 195                (base32
 196                 "1n8m7syhpgx24hfipixv66h2izn229jkxsmh2q5dzkv9r0znm8pr"))))
 197     (build-system gnu-build-system)
 198     (inputs `(("glib" ,glib)
 199               ("libmpdclient" ,libmpdclient)
 200               ("ncurses" ,ncurses)))
 201     (native-inputs `(("pkg-config" ,pkg-config)))
 202     (synopsis "Curses Music Player Daemon client")
 203     (description "ncmpc is a fully featured MPD client, which runs in a
 204 terminal using ncurses.")
 205     (home-page "https://www.musicpd.org/clients/ncmpc/")
 206     (license license:gpl2)))
 207
 208 (define-public ncmpcpp
 209   (package
 210     (name "ncmpcpp")
 211     (version "0.8.1")
 212     (source (origin
 213               (method url-fetch)
 214               (uri
 215                (string-append "https://ncmpcpp.rybczak.net/stable/ncmpcpp-"
 216                               version ".tar.bz2"))
 217               (sha256
 218                (base32
 219                 "1zw8d07b2bkssbsybg6jnmpq001w525viajrnz4jvfml3l55gyad"))))
 220     (build-system gnu-build-system)
 221     (inputs `(("libmpdclient" ,libmpdclient)
 222               ("boost"  ,boost)
 223               ("readline" ,readline)
 224               ("ncurses" ,ncurses)
 225               ("taglib" ,taglib)
 226               ("icu4c" ,icu4c)
 227               ("curl" ,curl)))
 228     (native-inputs
 229      `(("pkg-config" ,pkg-config)))
 230     (arguments
 231      '(#:configure-flags
 232        '("BOOST_LIB_SUFFIX=" "--with-taglib")))
 233     (synopsis "Featureful ncurses based MPD client inspired by ncmpc")
 234     (description "Ncmpcpp is an mpd client with a UI very similar to ncmpc,
 235 but it provides new useful features such as support for regular expressions
 236 for library searches, extended song format, items filtering, the ability to
 237 sort playlists, and a local file system browser.")
 238     (home-page "https://ncmpcpp.rybczak.net/")
 239     (license license:gpl2+)))
 240
 241 (define-public mpdscribble
 242   (package
 243     (name "mpdscribble")
 244     (version "0.22")
 245     (source (origin
 246               (method url-fetch)
 247               (uri (string-append "http://www.musicpd.org/download/mpdscribble/"
 248                                   version "/mpdscribble-" version ".tar.gz"))
 249               (sha256
 250                (base32
 251                 "0f0ybx380x2z2g1qvdndpvcrhkrgsfqckhz3ryydq2w3pl12v27z"))))
 252     (build-system gnu-build-system)
 253     (inputs `(("libmpdclient" ,libmpdclient)
 254               ("curl" ,curl)
 255               ("glib" ,glib)))
 256     (native-inputs `(("pkg-config" ,pkg-config)))
 257     (synopsis "MPD client for track scrobbling")
 258     (description "mpdscribble is a Music Player Daemon client which submits
 259 information about tracks being played to a scrobbler, such as Libre.FM.")
 260     (home-page "https://www.musicpd.org/clients/mpdscribble/")
 261     (license license:gpl2+)))
 262
 263 (define-public python-mpd2
 264   (package
 265     (name "python-mpd2")
 266     (version "0.5.5")
 267     (source (origin
 268               (method url-fetch)
 269               (uri (pypi-uri "python-mpd2" version))
 270               (sha256
 271                (base32
 272                 "0laypd7h1j14b4vrmiayqlzdsh2j5hc3zv4l0fqvbrbw9y6763ii"))))
 273     (build-system python-build-system)
 274     (arguments
 275      '(#:phases
 276        (modify-phases %standard-phases
 277          (replace 'check
 278            (lambda _ (zero? (system* "python" "mpd_test.py")))))))
 279     (native-inputs `(("python-mock" ,python-mock)))
 280     (home-page "https://github.com/Mic92/python-mpd2")
 281     (synopsis "Python MPD client library")
 282     (description "Python-mpd2 is a Python library which provides a client
 283 interface for the Music Player Daemon.")
 284     (license license:lgpl3+)))
 285
 286 (define-public python2-mpd2
 287   (package-with-python2 python-mpd2))
 288
 289 (define-public sonata
 290   (package
 291     (name "sonata")
 292     (version "1.7b1")
 293     (source (origin
 294               (method url-fetch)
 295               (uri
 296                (string-append "https://github.com/multani/sonata/archive/v"
 297                               version ".tar.gz"))
 298               (file-name (string-append name "-" version ".tar.gz"))
 299               (sha256
 300                (base32
 301                 "07gq2nxqwxs0qyxjbay7k5j25zd386bn7wdr2dl1gk53diwnn7s0"))))
 302     (build-system python-build-system)
 303     (arguments
 304      `(#:modules ((guix build gnu-build-system)
 305                   (guix build python-build-system)
 306                   ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
 307                   (guix build utils))
 308        #:imported-modules (,@%gnu-build-system-modules
 309                            (guix build python-build-system)
 310                            (guix build glib-or-gtk-build-system))
 311        #:phases
 312        (modify-phases %standard-phases
 313          (add-after 'install 'glib-or-gtk-wrap
 314            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
 315          (add-after 'install 'wrap-sonata
 316            (lambda* (#:key outputs #:allow-other-keys)
 317              (let ((out               (assoc-ref outputs "out"))
 318                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
 319                (wrap-program (string-append out "/bin/sonata")
 320                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
 321              #t)))))
 322     (native-inputs
 323      `(("gettext" ,gettext-minimal)))
 324     (inputs
 325      `(("python-mpd2" ,python-mpd2)
 326        ("gtk+" ,gtk+)
 327        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 328        ("gobject-introspection" ,gobject-introspection)
 329        ("adwaita-icon-theme" ,adwaita-icon-theme)
 330        ("python-pygobject" ,python-pygobject)))
 331     (synopsis "Elegant client for the Music Player Daemon")
 332     (description "Sonata is an elegant graphical client for the Music Player
 333 Daemon (MPD).  It supports playlists, multiple profiles (connecting to different
 334 MPD servers, search and multimedia key support.")
 335     (home-page "http://www.nongnu.org/sonata/")
 336     (license license:gpl3+)))