;;; 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 freedesktop)
  #: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 qt)
  #: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"
                           "qtlottie"
                           "qtremoteobjects"
                           "qt3d"
                           "qtbase"
                           "qtgamepad"
                           "qtdeclarative"
                           "qtxmlpatterns"
                           "qtmultimedia"
                           "xcb-util"
                           "xcb-util-cursor"
                           "xcb-util-image"
                           "xcb-util-keysyms"
                           "xcb-util-renderutil"
                           "xcb-util-wm"
                           "wayland"
                           "wayland-protocols"
                           "zlib")))
               `(("lib/zoom/ZoomLauncher" ,libs)
                 ;; ("lib/zoom/zoom" ,libs)
                 ("lib/zoom/zopen" ,libs)
                 ("lib/zoom/aomhost" ,libs)
                 ("lib/zoom/cef/libEGL.so" ,libs)
                 ("lib/zoom/cef/libffmpeg.so" ,libs)
                 ("lib/zoom/cef/libGLESv2.so" ,libs)
                 ("lib/zoom/cef/libsqlite3.so.0" ,libs)
                 ("lib/zoom/cef/libvk_swiftshader.so" ,libs)
                 ("lib/zoom/cef/libvulkan.so.1" ,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")
                              ;; ZoomLauncher sets Zoom's own library's paths
                              (string-append #$output "/lib/zoom")
                              (string-append #$output "/lib/zoom/cef")
                              (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"
                                        "qtlottie"
                                        "qtremoteobjects"
                                        "qt3d"
                                        "qtbase"
                                        "qtgamepad"
                                        "qtdeclarative"
                                        "qtxmlpatterns"
                                        "qtmultimedia"
                                        "xcb-util"
                                        "xcb-util-cursor"
                                        "xcb-util-image"
                                        "xcb-util-keysyms"
                                        "xcb-util-renderutil"
                                        "xcb-util-wm"
                                        "wayland"
                                        "wayland-protocols"
                                        "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"
                                        "wayland"
                                        "wayland-protocols"
                                        "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
                  ;; Need mesa for libgbm.so and libglvnd for libEGL, libGL, and libGLX
                  ;; 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
                  qt3d-5 ; libQt53DACore.so.5, Animation, etc.
                  qtbase-5 ; libQt5Concurrent.so.5, and many others
                  qtgamepad ; libQt5Gamepad.so.5
                  qtxmlpatterns ; libQt5XmlPatterns.so.5
                  ;; Qt below need Qt 5-specific versions! Upstream Guix has
                  ;; already moved to Qt 6!
                  qtlottie ; libQt5Bodymovin.so.5
                  qtremoteobjects ; libQt5RemoteObjects.so.5
                  qtdeclarative ; libQt5QuickParticles.so.5
                  qtmultimedia ; libQt5Multimedia.so.5
                  util-linux
                  xcb-util
                  xcb-util-cursor
                  xcb-util-image
                  xcb-util-keysyms
                  xcb-util-renderutil
                  xcb-util-wm
                  wayland
                  wayland-protocols
                  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/"))))