(define-module (mpd)
  #:use-module (gnu packages)
  #:use-module (gnu services)
  #:use-module (gnu services audio)
  #:use-module (ymir)
  #:export (bd-mpd-package
            bd-mpd-service))


(define bd-mpd-package
  `(,@(map specification->package
           '(
             ;; if the user can't access mpd directly,
             ;; emms will fail to parse the supported
             ;; file types :)
             "mpd"
             "mpd-mpc"
             ))))

(define bd-mpd-service
  (list
   (service mpd-service-type
            (mpd-configuration
             (user user)
             (music-directory "~/ik/music")
             (playlist-directory "~/ik/playlist")
             (default-port 6600)))))