(define-module (freya packages pulseaudio)
               #:use-module (guix download)
               #:use-module (guix git-download)
               #:use-module (guix packages)
               #:use-module (guix gexp)
               #:use-module (guix utils)
               #:use-module (gnu packages)
               #:use-module (gnu packages pulseaudio)
               #:use-module (freya packages linux))

(define-public pulseaudio-new
  (package
    (inherit pulseaudio)
    (name "pulseaudio")
    (version "17.0")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://freedesktop.org/software/pulseaudio/releases/"
                    name "-" version ".tar.xz"))
              (sha256
               (base32
                "1dc7xdfbn5rknwsvv5m2ijfwnqrap208liwyhiykjghsczb98dq5"))))
    (arguments
     (substitute-keyword-arguments (package-arguments pulseaudio)
       ((#:phases phases)
        #~(modify-phases #$phases
            (delete 'check)))))
    (inputs
	    (modify-inputs (package-inputs pulseaudio)
		    (delete "alsa-lib")
        (delete "bluez")
		    (prepend alsa-lib-new)
        (prepend bluez-new)))))