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.
This commit is contained in:
John Kehayias 2023-03-17 15:25:55 -04:00
parent 76d776a3f5
commit 917c329007
No known key found for this signature in database
GPG Key ID: 499097AE5EA815D9

View File

@ -323,6 +323,8 @@ or iOS.")
("lib/zoom/zoom" ("lib/zoom/zoom"
,libs) ,libs)
("lib/zoom/zopen" ("lib/zoom/zopen"
,libs)
("lib/zoom/aomhost"
,libs))) ,libs)))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
@ -350,6 +352,49 @@ or iOS.")
"libxrender" "libxrender"
"zlib"))))) "zlib")))))
(wrap-program (string-append #$output "/lib/zoom/zoom") (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 `("FONTCONFIG_PATH" ":" prefix
(,(string-join (,(string-join
(list (list
@ -402,6 +447,8 @@ or iOS.")
(lambda _ (lambda _
(delete-file (string-append #$output "/environment-variables")) (delete-file (string-append #$output "/environment-variables"))
(mkdir-p (string-append #$output "/bin")) (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") (symlink (string-append #$output "/lib/zoom/zoom")
(string-append #$output "/bin/zoom")) (string-append #$output "/bin/zoom"))
(symlink (string-append #$output "/lib/zoom/zopen") (symlink (string-append #$output "/lib/zoom/zopen")