diff options
Diffstat (limited to 'dthompson/home')
| -rw-r--r-- | dthompson/home/pipewire.scm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/dthompson/home/pipewire.scm b/dthompson/home/pipewire.scm index 600db49..9faa64c 100644 --- a/dthompson/home/pipewire.scm +++ b/dthompson/home/pipewire.scm @@ -146,3 +146,36 @@ ctl_type.pipewire { (description (package-description pkg)) (home-page (package-home-page pkg)) (license (package-license pkg)))) + +(define-public (package-with-pw-wrapper 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)) + (desktop (string-append #$output "/share/applications/" + #$program ".desktop")) + (pw-lib (string-append #$pipewire "/lib"))) + (union-build #$output (list #$pkg) + #:create-all-directories? #t) + (when (file-exists? desktop) + (substitute* desktop + (("Exec=.*") + (string-append "Exec=" program "\n")))) + (wrap-program program + #:sh (string-append #$bash-minimal "/bin/sh") + `("LD_LIBRARY_PATH" ":" prefix (,pw-lib))))))) + (synopsis (package-synopsis pkg)) + (description (package-description pkg)) + (home-page (package-home-page pkg)) + (license (package-license pkg)))) |