1 files changed, 99 insertions, 0 deletions
diff --git a/modules/freya/services/pipewire.scm b/modules/freya/services/pipewire.scm
new file mode 100644
index 0000000..ccc71a3
--- /dev/null
+++ b/modules/freya/services/pipewire.scm
@@ -0,0 +1,99 @@
+(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 (guix gexp))
+
+(define (home-pipewire-profile-service config)
+  (map specification->package
+       (list "pipewire"
+             "wireplumber")))
+
+(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 "/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 "/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 "/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 "/share/alsa/alsa.conf.d/50-pipewire.conf")
+            ">\n<"
+            #$(file-append
+                pipewire "/share/alsa/alsa.conf.d/99-pipewire-default.conf")
+            ">\n"
+            "
+            pcm_type.pipewire {
+              lib " #$(file-append pipewire "/lib/alsa-lib/libasound_module_pcm_pipewire.so")
+              "
+            }
+            ctl_type.pipewire {
+              lib " #$(file-append pipewire "/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")))