diff options
Diffstat (limited to 'dthompson/home')
| -rw-r--r-- | dthompson/home/pipewire.scm | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/dthompson/home/pipewire.scm b/dthompson/home/pipewire.scm index bff47ea..600db49 100644 --- a/dthompson/home/pipewire.scm +++ b/dthompson/home/pipewire.scm @@ -1,6 +1,9 @@ ;; Snarfed from David Wilson who I believe snarfed from Andrew Tropin. (define-module (dthompson home pipewire) + #:use-module (guix build-system trivial) + #:use-module (guix packages) #:use-module (gnu packages) + #:use-module (gnu packages bash) #:use-module (gnu packages linux) #:use-module (gnu services) #:use-module (gnu services configuration) @@ -98,3 +101,48 @@ ctl_type.pipewire { home-pipewire-xdg-configuration-service))) (default-value #f) (description "Configures and runs the Pipewire audio system."))) + +(define-public (package-with-pw-jack pkg program) + (package + (name (package-name pkg)) + (version (package-version pkg)) + (source #f) + (build-system trivial-build-system) + (arguments + (list + #:modules '((guix build union) + (guix build utils)) + #:builder + #~(begin + (use-modules (ice-9 match) + (guix build union) + (guix build utils)) + (let* ((program (string-append #$output "/bin/" #$program)) + (program* (string-append program ".real")) + (desktop (string-append #$output "/share/applications/" + #$program ".desktop"))) + (union-build #$output (list #$pkg) + #:create-all-directories? #t) + (when (file-exists? desktop) + (substitute* desktop + (("Exec=.*") + (string-append "Exec=" program "\n")))) + (rename-file program program*) + (call-with-output-file program + (lambda (port) + (display "#!" port) + (display #$bash-minimal port) + (display "/bin/sh" port) + (newline port) + (display "exec " port) + (display #$pipewire port) + (display "/bin/pw-jack " port) + (display program* port) + (display " \"$@\"" port) + (newline port))) + (chmod program #x555) + #t)))) + (synopsis (package-synopsis pkg)) + (description (package-description pkg)) + (home-page (package-home-page pkg)) + (license (package-license pkg)))) |