From 917c329007a7d28d5687c5cbc04754fbb60c59bf Mon Sep 17 00:00:00 2001 From: John Kehayias Date: Fri, 17 Mar 2023 15:25:55 -0400 Subject: nongnu: zoom: Fix background blurring and virtual backgrounds. There is a long list of libraries for LD_LIBRARY_PATH that could be refactored into a LET form, but alas could not figure out with the many quotes and gexps how right now. Or aomhost may only need a subset of these. * nongnu/packages/messaging.scm (zoom)[patchelf-plan]: Add aomhost. [phases]{wrap-where-patchelf-does-not-work}: Wrap it. --- nongnu/packages/messaging.scm | 47 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) diff --git a/nongnu/packages/messaging.scm b/nongnu/packages/messaging.scm index a3ae9d1..7e56aff 100644 --- a/nongnu/packages/messaging.scm +++ b/nongnu/packages/messaging.scm @@ -323,6 +323,8 @@ or iOS.") ("lib/zoom/zoom" ,libs) ("lib/zoom/zopen" + ,libs) + ("lib/zoom/aomhost" ,libs))) #:phases #~(modify-phases %standard-phases @@ -350,6 +352,49 @@ or iOS.") "libxrender" "zlib"))))) (wrap-program (string-append #$output "/lib/zoom/zoom") + `("FONTCONFIG_PATH" ":" prefix + (,(string-join + (list + (string-append #$(this-package-input "fontconfig-minimal") "/etc/fonts") + #$output) + ":"))) + `("LD_LIBRARY_PATH" prefix + ,(list (string-append #$(this-package-input "nss") "/lib/nss") + #$@(map (lambda (pkg) + (file-append (this-package-input pkg) "/lib")) + ;; TODO: Reuse this long list as it is + ;; needed for aomhost. Or perhaps + ;; aomhost has a shorter needed list, + ;; but untested. + '("alsa-lib" + "atk" + "at-spi2-atk" + "at-spi2-core" + "cairo" + "cups" + "dbus" + "eudev" + "expat" + "gcc" + "glib" + "mesa" + "mit-krb5" + "nspr" + "libxcb" + "libxcomposite" + "libxdamage" + "libxext" + "libxkbcommon" + "libxkbfile" + "libxrandr" + "libxshmfence" + "pango" + "pulseaudio" + "xcb-util" + "xcb-util-wm" + "xcb-util-renderutil" + "zlib"))))) + (wrap-program (string-append #$output "/lib/zoom/aomhost") `("FONTCONFIG_PATH" ":" prefix (,(string-join (list @@ -402,6 +447,8 @@ or iOS.") (lambda _ (delete-file (string-append #$output "/environment-variables")) (mkdir-p (string-append #$output "/bin")) + (symlink (string-append #$output "/lib/zoom/aomhost") + (string-append #$output "/bin/aomhost")) (symlink (string-append #$output "/lib/zoom/zoom") (string-append #$output "/bin/zoom")) (symlink (string-append #$output "/lib/zoom/zopen") -- cgit v1.2.3