From 3d495ba0b5c148b3d1d55cb3ad1004d1bf08841d Mon Sep 17 00:00:00 2001
From: Ryan Schanzenbacher <ryan@rschanz.org>
Date: Thu, 18 May 2023 01:57:03 -0400
Subject: many changes, mostly migrations to using shepherd home services

---
 home-config/pipewire.scm | 99 ------------------------------------------------
 1 file changed, 99 deletions(-)
 delete mode 100644 home-config/pipewire.scm

(limited to 'home-config/pipewire.scm')

diff --git a/home-config/pipewire.scm b/home-config/pipewire.scm
deleted file mode 100644
index 48089ad..0000000
--- a/home-config/pipewire.scm
+++ /dev/null
@@ -1,99 +0,0 @@
-(define-module (home-configuration 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 (getend "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")))
-- 
cgit v1.2.3