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

(define-public bluez-new
  (package
    (inherit bluez)
    (version "5.72")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://kernel.org/linux/bluetooth/bluez-"
               version ".tar.xz"))
        (sha256
          (base32
            "0vjk4ihywzv8k07bxq7clqgi2afrw54nfp0gcnxw35m98nipz7a9"))))
    (arguments (list
                 #:configure-flags
                 #~(list "--sysconfdir=/etc"
                         "--localstatedir=/var"
                         "--enable-library"
                         "--disable-manpages"
                         "--disable-systemd"
                         "--enable-hid2hci"
                         (string-append "--with-dbusconfdir=" #$output "/etc")
                         (string-append "--with-udevdir=" #$output "/lib/udev"))))))


(define-public pipewire-new
  (package
    (inherit pipewire)
    (name "pipewire")
    (version "1.2.2")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://gitlab.freedesktop.org/pipewire/pipewire")
                    (commit version)))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0cvbyklzqcdr9zj7k7psb24xp8cxb9fdksrd74r68zvnbbix1qlx"))))
    (inputs
	    (modify-inputs
		  (package-inputs pipewire)
		  (delete "alsa-lib")
		  (prepend alsa-lib-new)))))


(define-public wireplumber-new
  (package
    (inherit wireplumber)
    (name "wireplumber")
    (version "0.5.5")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url
              "https://gitlab.freedesktop.org/pipewire/wireplumber.git")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1s9p2hpi9v4w70j6hhqnsa4czhn3rzrk03j0qb7lz87qlw491yks"))))
    (inputs
	    (modify-inputs
		  (package-inputs wireplumber)
		  (delete "pipewire")
		  (prepend pipewire-new)))))