mirror of
https://gitlab.com/nonguix/nonguix.git
synced 2025-10-02 02:14:59 +00:00
486 lines
22 KiB
Scheme
486 lines
22 KiB
Scheme
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
;;; Copyright © 2021, 2022 PantherX OS Team <team@pantherx.org>
|
|
;;; Copyright © 2022, 2023, 2024, 2025 John Kehayias <john.kehayias@protonmail.com>
|
|
;;; Copyright © 2022 Evgenii Lepikhin <johnlepikhin@gmail.com>
|
|
;;; Copyright © 2023 Giacomo Leidi <goodoldpaul@autistici.org>
|
|
;;; Copyright © 2023 Raven Hallsby <karl@hallsby.org>
|
|
;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
|
|
|
|
(define-module (nongnu packages messaging)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages bash)
|
|
#:use-module (gnu packages commencement)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages cups)
|
|
#:use-module (gnu packages fontutils)
|
|
#:use-module (gnu packages gcc)
|
|
#:use-module (gnu packages gl)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages gnome)
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages kerberos)
|
|
#:use-module (gnu packages linux)
|
|
#:use-module (gnu packages nss)
|
|
#:use-module (gnu packages pulseaudio)
|
|
#:use-module (gnu packages xdisorg)
|
|
#:use-module (gnu packages xml)
|
|
#:use-module (gnu packages xorg)
|
|
#:use-module (guix download)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix utils)
|
|
#:use-module ((guix licenses) :prefix license:)
|
|
#:use-module (nonguix build-system binary)
|
|
#:use-module (nonguix build-system chromium-binary)
|
|
#:use-module ((nonguix licenses) :prefix license:)
|
|
#:use-module (ice-9 match))
|
|
|
|
(define-public element-desktop
|
|
(package
|
|
(name "element-desktop")
|
|
(version "1.11.89")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri
|
|
(string-append
|
|
"https://packages.riot.im/debian/pool/main/e/" name "/" name "_" version
|
|
"_amd64.deb"))
|
|
(sha256
|
|
(base32 "0riavl8qq59s45xxdk0s1n6i1wymsx1zfdz5dp3ccr8xpzw77abq"))))
|
|
(supported-systems '("x86_64-linux"))
|
|
(build-system chromium-binary-build-system)
|
|
(arguments
|
|
(list #:validate-runpath? #f ; TODO: fails on wrapped binary and included other files
|
|
#:wrapper-plan
|
|
#~'(("lib/Element/element-desktop" (("out" "/lib/Element"))))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'binary-unpack 'setup-cwd
|
|
(lambda _
|
|
(copy-recursively "usr/" ".")
|
|
;; Use the more standard lib directory for everything.
|
|
(rename-file "opt/" "lib")
|
|
;; Remove unneeded files.
|
|
(delete-file-recursively "usr")
|
|
;; Fix the .desktop file binary location.
|
|
(substitute* '("share/applications/element-desktop.desktop")
|
|
(("/opt/Element/")
|
|
(string-append #$output "/bin/")))))
|
|
(add-after 'install 'symlink-binary-file
|
|
(lambda _
|
|
(mkdir-p (string-append #$output "/bin"))
|
|
(symlink (string-append #$output "/lib/Element/element-desktop")
|
|
(string-append #$output "/bin/element-desktop")))))))
|
|
(home-page "https://github.com/vector-im/element-desktop")
|
|
(synopsis "Matrix collaboration client for desktop")
|
|
(description "Element Desktop is a Matrix client for desktop with Element Web at
|
|
its core.")
|
|
;; not working?
|
|
(properties
|
|
'((release-monitoring-url . "https://github.com/vector-im/element-desktop/releases")))
|
|
(license license:asl2.0)))
|
|
|
|
(define-public signal-desktop
|
|
(package
|
|
(name "signal-desktop")
|
|
(version "7.41.0")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri
|
|
(string-append
|
|
"https://updates.signal.org/desktop/apt/pool/s/" name "/" name "_" version
|
|
"_amd64.deb"))
|
|
(sha256
|
|
(base32 "1ainlhhzf427f0jqdh83m8519ywihnxyiw505n4msgyhpwgwj5n0"))))
|
|
(supported-systems '("x86_64-linux"))
|
|
(build-system chromium-binary-build-system)
|
|
(arguments
|
|
(list #:validate-runpath? #f ; TODO: fails on wrapped binary and included other files
|
|
#:wrapper-plan
|
|
#~'(("lib/Signal/signal-desktop" (("out" "/lib/Signal"))))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'binary-unpack 'setup-cwd
|
|
(lambda _
|
|
(copy-recursively "usr/" ".")
|
|
;; Use the more standard lib directory for everything.
|
|
(rename-file "opt/" "lib")
|
|
;; Remove unneeded files.
|
|
(delete-file-recursively "usr")
|
|
;; Fix the .desktop file binary location.
|
|
(substitute* '("share/applications/signal-desktop.desktop")
|
|
(("/opt/Signal/")
|
|
(string-append #$output "/bin/")))))
|
|
(add-after 'install 'symlink-binary-file
|
|
(lambda _
|
|
(mkdir-p (string-append #$output "/bin"))
|
|
(symlink (string-append #$output "/lib/Signal/signal-desktop")
|
|
(string-append #$output "/bin/signal-desktop")))))))
|
|
(home-page "https://signal.org/")
|
|
(synopsis "Private messenger using the Signal protocol")
|
|
(description "Signal Desktop is an Electron application that links with Signal on Android
|
|
or iOS.")
|
|
;; doesn't work?
|
|
(properties
|
|
'((release-monitoring-url . "https://github.com/signalapp/Signal-Desktop/releases")))
|
|
(license license:agpl3)))
|
|
|
|
(define-public zoom
|
|
(package
|
|
(name "zoom")
|
|
(version "6.2.11.5069")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://cdn.zoom.us/prod/" version "/zoom_x86_64.tar.xz"))
|
|
(file-name (string-append name "-" version "-x86_64.tar.xz"))
|
|
(sha256
|
|
(base32 "09l9jfmld1dlinkgdgf8ra549rw1hwis3b5cly49a2gvz1sfr8lc"))))
|
|
(supported-systems '("x86_64-linux"))
|
|
(build-system binary-build-system)
|
|
(arguments
|
|
(list #:validate-runpath? #f ; TODO: fails on wrapped binary and included other files
|
|
#:patchelf-plan
|
|
;; Note: it seems like some (all?) of these only do anything in
|
|
;; LD_LIBRARY_PATH, or at least needed there as well.
|
|
#~(let ((libs '("alsa-lib"
|
|
"atk"
|
|
"at-spi2-atk"
|
|
"at-spi2-core"
|
|
"cairo"
|
|
"cups"
|
|
"dbus"
|
|
"eudev"
|
|
"expat"
|
|
"fontconfig-minimal"
|
|
;; "gcc"
|
|
"gcc-toolchain"
|
|
"gdk-pixbuf"
|
|
"glib"
|
|
"gtk+"
|
|
"libdrm"
|
|
"libglvnd"
|
|
"libx11"
|
|
"libxcb"
|
|
"libxcomposite"
|
|
"libxcursor"
|
|
"libxdamage"
|
|
"libxext"
|
|
"libxfixes"
|
|
"libxi"
|
|
"libxkbcommon"
|
|
"libxkbfile"
|
|
"libxrandr"
|
|
"libxshmfence"
|
|
"libxtst"
|
|
"mesa"
|
|
"nspr"
|
|
"pango"
|
|
"pipewire"
|
|
"pulseaudio"
|
|
"xcb-util"
|
|
"xcb-util-cursor"
|
|
"xcb-util-image"
|
|
"xcb-util-keysyms"
|
|
"xcb-util-renderutil"
|
|
"xcb-util-wm"
|
|
"zlib")))
|
|
`(("lib/zoom/ZoomLauncher"
|
|
,libs)
|
|
("lib/zoom/zopen"
|
|
,libs)
|
|
("lib/zoom/aomhost"
|
|
,libs)))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(replace 'unpack
|
|
(lambda* (#:key source #:allow-other-keys)
|
|
(invoke "tar" "xvf" source)
|
|
;; Use the more standard lib directory for everything.
|
|
(mkdir-p "lib")
|
|
(rename-file "zoom/" "lib/zoom")))
|
|
(add-before 'patchelf 'zoom-dynamic-linker-shenanigans
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
;; (format #t "CWD=~a~%" (getcwd))
|
|
(with-directory-excursion "lib/zoom"
|
|
(copy-file "zoom" ".zoom")
|
|
(delete-file "zoom")
|
|
(copy-file (car (find-files (assoc-ref inputs "libc")
|
|
"ld-linux.*\\.so"))
|
|
"ld.so")
|
|
;; We're going to do something super fucked, but this made
|
|
;; Zoom work on nixpkgs.
|
|
;; We are going to do a fake wrap-program to set the exec
|
|
;; line manually, then rely on the later calls to
|
|
;; (guix build utils) version of wrap-program to add the
|
|
;; environment variables we want.
|
|
;; This is a workaround because Guix's wrap-program does
|
|
;; not let us change the actual exec line in the generated
|
|
;; wrapper script and we cannot use patchelf on the zoom
|
|
;; binary from the tarball because that magically breaks
|
|
;; things.
|
|
(let* ((prog ".zoom")
|
|
(prog-tmp (string-append prog "-tmp"))
|
|
(wrapped-file "zoom"))
|
|
(link prog wrapped-file)
|
|
|
|
(call-with-output-file prog-tmp
|
|
(lambda (port)
|
|
(format port
|
|
"#!~a~%exec \"~a\" \"~a\" \"$@\"~%"
|
|
(which "bash")
|
|
(string-append #$output "/lib/zoom/ld.so")
|
|
(string-append #$output "/lib/zoom/" prog))))
|
|
(chmod prog-tmp #o755)
|
|
(rename-file prog-tmp wrapped-file)
|
|
;; Lastly, we need to leave a file that LOOKS like we
|
|
;; have already wrapped lib/zoom/zoom, so the later call
|
|
;; to wrap-program that adds library paths and other env
|
|
;; vars does not overwrite our work.
|
|
(copy-file prog ".zoom-real")))))
|
|
(add-after 'install 'wrap-where-patchelf-does-not-work
|
|
(lambda _
|
|
(wrap-program (string-append #$output "/lib/zoom/zopen")
|
|
`("LD_LIBRARY_PATH" prefix
|
|
,(list #$@(map (lambda (pkg)
|
|
(file-append (this-package-input pkg) "/lib"))
|
|
'("fontconfig-minimal"
|
|
"freetype"
|
|
;; "gcc"
|
|
"gcc-toolchain"
|
|
"gdk-pixbuf"
|
|
"glib"
|
|
"libglvnd"
|
|
"libxcomposite"
|
|
"libxcursor"
|
|
"libxdamage"
|
|
"libxkbcommon"
|
|
"libxkbfile"
|
|
"libxrandr"
|
|
"libxrender"
|
|
"zlib")))))
|
|
(wrap-program (string-append #$output "/lib/zoom/zoom")
|
|
'("QML2_IMPORT_PATH" = ())
|
|
'("QT_PLUGIN_PATH" = ())
|
|
'("QT_SCREEN_SCALE_FACTORS" = ())
|
|
`("FONTCONFIG_PATH" ":" prefix
|
|
(,(string-join
|
|
(list
|
|
(string-append #$(this-package-input "fontconfig-minimal") "/etc/fonts")
|
|
#$output)
|
|
":")))
|
|
`("PATH" prefix
|
|
,(list #$@(map (lambda (pkg)
|
|
(file-append (this-package-input pkg) "/bin"))
|
|
'("mesa-utils"
|
|
"pulseaudio"
|
|
"pipewire"
|
|
"util-linux"))))
|
|
`("LD_LIBRARY_PATH" prefix
|
|
,(list (string-append #$(this-package-input "nss") "/lib/nss")
|
|
(string-append #$output "/lib/")
|
|
(string-append #$output "/lib/zoom/Qt/lib")
|
|
#$@(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"
|
|
"fontconfig-minimal"
|
|
"freetype"
|
|
;; "gcc"
|
|
"gcc-toolchain"
|
|
"gdk-pixbuf"
|
|
"glib"
|
|
"gtk+"
|
|
"libdrm"
|
|
"libglvnd"
|
|
"libx11"
|
|
"libxcb"
|
|
"libxcomposite"
|
|
"libxcursor"
|
|
"libxdamage"
|
|
"libxext"
|
|
"libxfixes"
|
|
"libxi"
|
|
"libxkbcommon"
|
|
"libxkbfile"
|
|
"libxrandr"
|
|
"libxshmfence"
|
|
"libxtst"
|
|
"mesa"
|
|
"mit-krb5"
|
|
"nspr"
|
|
"pango"
|
|
"pipewire"
|
|
"pulseaudio"
|
|
"xcb-util"
|
|
"xcb-util-cursor"
|
|
"xcb-util-image"
|
|
"xcb-util-keysyms"
|
|
"xcb-util-renderutil"
|
|
"xcb-util-wm"
|
|
"zlib")))))
|
|
(wrap-program (string-append #$output "/lib/zoom/aomhost")
|
|
`("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"))
|
|
'("alsa-lib"
|
|
"atk"
|
|
"at-spi2-atk"
|
|
"at-spi2-core"
|
|
"cairo"
|
|
"cups"
|
|
"dbus"
|
|
"eudev"
|
|
"expat"
|
|
;; "gcc"
|
|
"gcc-toolchain"
|
|
"gdk-pixbuf"
|
|
"glib"
|
|
"mesa"
|
|
"mit-krb5"
|
|
"nspr"
|
|
"libglvnd"
|
|
"libxcb"
|
|
"libxcomposite"
|
|
"libxcursor"
|
|
"libxdamage"
|
|
"libxext"
|
|
"libxkbcommon"
|
|
"libxkbfile"
|
|
"libxrandr"
|
|
"libxshmfence"
|
|
"pango"
|
|
"pipewire"
|
|
"pulseaudio"
|
|
"xcb-util"
|
|
"xcb-util-cursor"
|
|
"xcb-util-image"
|
|
"xcb-util-keysyms"
|
|
"xcb-util-wm"
|
|
"xcb-util-renderutil"
|
|
"zlib")))))))
|
|
(add-after 'wrap-where-patchelf-does-not-work 'cleanup-linker-shenanigans
|
|
(lambda _
|
|
(delete-file (string-append #$output "/lib/zoom/.zoom-real"))))
|
|
(add-after 'wrap-where-patchelf-does-not-work 'symlink-binaries
|
|
(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")
|
|
(string-append #$output "/bin/zopen"))
|
|
(symlink (string-append #$output "/lib/zoom/ZoomLauncher")
|
|
(string-append #$output "/bin/ZoomLauncher"))))
|
|
(add-after 'symlink-binaries 'create-desktop-file
|
|
(lambda _
|
|
(let ((apps (string-append #$output "/share/applications")))
|
|
(mkdir-p apps)
|
|
(make-desktop-entry-file
|
|
(string-append apps "/zoom.desktop")
|
|
#:name "Zoom"
|
|
#:generic-name "Zoom Client for Linux"
|
|
#:exec (string-append #$output "/bin/ZoomLauncher %U")
|
|
#:mime-type (list
|
|
"x-scheme-handler/zoommtg"
|
|
"x-scheme-handler/zoomus"
|
|
"x-scheme-handler/tel"
|
|
"x-scheme-handler/callto"
|
|
"x-scheme-handler/zoomphonecall"
|
|
"application/x-zoom")
|
|
#:categories '("Network" "InstantMessaging"
|
|
"VideoConference" "Telephony")
|
|
#:startup-w-m-class "zoom"
|
|
#:comment
|
|
'(("en" "Zoom Video Conference")
|
|
(#f "Zoom Video Conference")))))))))
|
|
(native-inputs (list tar))
|
|
(inputs (list alsa-lib
|
|
at-spi2-atk
|
|
at-spi2-core
|
|
atk
|
|
bash-minimal
|
|
cairo
|
|
cups
|
|
dbus
|
|
eudev
|
|
expat
|
|
fontconfig
|
|
freetype
|
|
;; The gcc and `(,gcc "lib") package BOTH have the "gcc"
|
|
;; string key in the package inputs alist, and gcc's default
|
|
;; out package is found first.
|
|
;; We need to rename gcc's lib output so we can look it up
|
|
;; correctly later with (this-package-input pkg).
|
|
;; gcc is provided by the fact binary-build-system "inherits"
|
|
;; from gnu-build-system.
|
|
;; Using gcc-toolchain as a stopgap for now.
|
|
;; FIXME: Make gcc-lib output work, so we do not need to add
|
|
;; gcc-toolchain to Zoom's package closure.
|
|
`(,gcc "lib")
|
|
gcc-toolchain
|
|
glib
|
|
gtk+
|
|
gdk-pixbuf
|
|
libdrm
|
|
librsvg
|
|
libglvnd
|
|
libx11
|
|
libxcb
|
|
libxcomposite
|
|
libxcursor
|
|
libxdamage
|
|
libxext
|
|
libxfixes
|
|
libxi
|
|
libxkbcommon
|
|
libxkbfile
|
|
libxrandr
|
|
libxrender
|
|
libxshmfence
|
|
libxtst
|
|
mesa
|
|
;; Needed for screensharing.
|
|
mesa-utils
|
|
mit-krb5
|
|
nspr
|
|
nss
|
|
pango
|
|
pipewire
|
|
pulseaudio
|
|
util-linux
|
|
xcb-util
|
|
xcb-util-cursor
|
|
xcb-util-image
|
|
xcb-util-keysyms
|
|
xcb-util-renderutil
|
|
xcb-util-wm
|
|
zlib))
|
|
(home-page "https://zoom.us/")
|
|
(synopsis "Video conference client")
|
|
(description "The Zoom video conferencing and messaging client. Zoom must
|
|
be run via an app launcher to use its .desktop file, or with
|
|
@code{ZoomLauncher}.")
|
|
(license (license:nonfree "https://explore.zoom.us/en/terms/"))))
|