1 files changed, 0 insertions, 101 deletions
diff --git a/modules/freya/services/pipewire.scm b/modules/freya/services/pipewire.scm
deleted file mode 100644
index adc5963..0000000
--- a/modules/freya/services/pipewire.scm
+++ /dev/null
@@ -1,101 +0,0 @@
-(define-module (freya services pipewire)
-               #:use-module (gnu packages)
-               #:use-module (gnu packages linux)
-               #:use-module (gnu services)
-               #:use-module (gnu services configuration)
-               #:use-module (gnu home services)
-               #:use-module (gnu home services shepherd)
-               #:use-module (freya packages linux)
-               #:use-module (freya packages networking)
-               #:use-module (guix gexp))
-
-(define (home-pipewire-profile-service config)
-  (list pipewire-new
-        wireplumber-new))
-
-
-(define (home-pipewire-shepherd-service config)
-  (list
-    ;; Pipewire daemon
-    (shepherd-service
-      (requirement '(dbus))
-      (provision '(pipewire))
-      (stop #~(make-kill-destructor))
-      (start #~(make-forkexec-constructor
-                 (list #$(file-append pipewire-new "/bin/pipewire"))
-                 #:log-file (string-append
-                              (or (getenv "XDG_LOG_HOME")
-                                  (format #f "~a/.local/var/log"
-                                          (getenv "HOME")))
-                              "/pipewire.log")
-                 #:environment-variables
-                 (append (list "DISABLE_RTKIT=0")
-                         (default-environment-variables)))))
-    ;; Pipewire-pulse
-    (shepherd-service
-      (requirement '(pipewire))
-      (provision '(pipewire-pulse))
-      (stop #~(make-kill-destructor))
-      (start #~(make-forkexec-constructor
-                 (list #$(file-append pipewire-new "/bin/pipewire-pulse"))
-                 #:log-file (string-append
-                              (or (getenv "XDG_LOG_HOME")
-                                  (format #f "~a/.local/var/log"
-                                          (getenv "HOME")))
-                              "/pipewire-pulse.log")
-                 #:environment-variables
-                 (append (list "DISABLE_RTKIT=0")
-                         (default-environment-variables)))))
-    ;; Wireplumber
-    (shepherd-service
-      (requirement '(pipewire))
-      (provision '(wireplumber))
-      (stop #~(make-kill-destructor))
-      (start #~(make-forkexec-constructor
-                 (list #$(file-append wireplumber-new "/bin/wireplumber"))
-                 #:log-file (string-append
-                              (or (getenv "XDG_LOG_HOME")
-                                  (format #f "~a/.local/var/log"
-                                          (getenv "HOME")))
-                              "/wireplumber.log")
-                 #:environment-variables
-                 (append (list "DISABLE_RTKIT=0")
-                         (default-environment-variables)))))))
-
-(define (home-pipewire-xdg-configuration-service config)
-  `(("alsa/asoundrc"
-     ,(mixed-text-file
-        "asoundrc"
-        #~(string-append
-            "<"
-            #$(file-append
-                pipewire-new "/share/alsa/alsa.conf.d/50-pipewire.conf")
-            ">\n<"
-            #$(file-append
-                pipewire-new "/share/alsa/alsa.conf.d/99-pipewire-default.conf")
-            ">\n"
-            "
-            pcm_type.pipewire {
-              lib " #$(file-append pipewire-new "/lib/alsa-lib/libasound_module_pcm_pipewire.so")
-              "
-            }
-            ctl_type.pipewire {
-              lib " #$(file-append pipewire-new "/lib/alsa-lib/libasound_module_ctl_pipewire.so")
-              "
-            }
-            ")))))
-
-(define-public home-pipewire-service-type
-               (service-type (name 'home-pipewire)
-                             (extensions
-                               (list (service-extension
-                                       home-profile-service-type
-                                       home-pipewire-profile-service)
-                                     (service-extension
-                                       home-shepherd-service-type
-                                       home-pipewire-shepherd-service)
-                                     (service-extension
-                                       home-xdg-configuration-files-service-type
-                                       home-pipewire-xdg-configuration-service)))
-                             (default-value #f)
-                             (description "Configures and runs Pipewire and Wireplumber")))