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

(define-public bluez-new
  (package
    (inherit bluez)
    (version "5.78")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://kernel.org/linux/bluetooth/bluez-"
               version ".tar.xz"))
        (sha256
          (base32
            "1qy5fc6z1l3fvcqkvyszzz2xr86yzi2nyphgvsw7bly52lcys3w3"))))
    (arguments (list
                 #:configure-flags
                 #~(list (string-append "--prefix=" #$output)
                         "--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"))
                 #:phases
                 #~(modify-phases %standard-phases
                     (add-after 'configure 'fix-makefile
                       (lambda _
                         (substitute* "Makefile"
                           (("install-confDATA:") "install-IGNORED:")
                           (("install-confDATA") "")
                           (("bluetoothd-fix-permissions:") "install-IGNORED2:")
                           (("bluetoothd-fix-permissions") "")))))
                 ))
    ))


(define-public alsa-lib-new
  (package
    (inherit alsa-lib)
    (name "alsa-lib")
    (version "1.2.12")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "ftp://ftp.alsa-project.org/pub/lib/alsa-lib-"
                    version ".tar.bz2"))
              (sha256
               (base32
                "1lnh38wii8mnwp3n4hnqa718rgi52rq6ix1llsjrs9r7hs8css28"))))))


(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")
        (delete "bluez")
        (delete "pulseaudio")
		    (prepend alsa-lib-new)
        (prepend bluez-new)
        (prepend pulseaudio-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)))))