nongnu: Add zulip-desktop.

* nongnu/packages/messaging.scm (zulip-desktop): New variable.

nongnu/packages/messaging.scm

@@ -62,7 +62,7 @@
                    ;; Remove unneeded files.
                    (delete-file-recursively "usr")
                    ;; Fix the .desktop file binary location.
-                   (substitute* '("share/applications/element-desktop.desktop") 
+                   (substitute* '("share/applications/element-desktop.desktop")
                      (("/opt/Element/")
                       (string-append #$output "/bin/")))))
                (add-after 'install 'symlink-binary-file
@@ -116,7 +116,7 @@ its core.")
                    ;; Remove unneeded files.
                    (delete-file-recursively "usr")
                    ;; Fix the .desktop file binary location.
-                   (substitute* '("share/applications/signal-desktop.desktop") 
+                   (substitute* '("share/applications/signal-desktop.desktop")
                      (("/opt/Signal/")
                       (string-append #$output "/bin/")))))
                (add-after 'install 'symlink-binary-file
@@ -405,3 +405,66 @@ or iOS.")
     (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/"))))
+
+(define-public zulip-desktop
+  (package
+    (name "zulip-desktop")
+    (version "5.11.1")
+    (source
+     (origin
+       (method url-fetch)
+       (uri
+        (string-append "https://github.com/zulip/zulip-desktop/releases/download/"
+                       "v" version "/Zulip-" version "-x64.tar.xz"))
+       (sha256
+        (base32
+         "0kshajcbajkq5jqygn85x12yy8c8b6rwc5r0flrvris474p1vzp0"))))
+    (build-system chromium-binary-build-system)
+    (arguments
+     (list
+      #:validate-runpath? #f ; TODO: Fails on wrapped binary for NSS libs
+      #:substitutable? #f
+      #:wrapper-plan
+      #~(list
+         "chrome-sandbox"
+         "chrome_crashpad_handler"
+         "libEGL.so"
+         "libffmpeg.so"
+         "libGLESv2.so"
+         "libvk_swiftshader.so"
+         "libvulkan.so.1"
+         "zulip")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'install-wrapper 'install-entrypoint
+            (lambda _
+              (let* ((bin (string-append #$output "/bin")))
+                (mkdir-p bin)
+                (symlink (string-append #$output "/zulip")
+                         (string-append bin "/zulip")))))
+          (add-after 'install 'create-desktop-file
+            (lambda _
+              (make-desktop-entry-file
+               (string-append #$output "/share/applications/zulip-desktop.desktop")
+               #:name "Zulip-Desktop"
+               #:type "Application"
+               #:generic-name "Zulip Chat"
+               #:exec (string-join (list (string-append #$output "/bin/zulip") "%U"))
+               #:icon "zulip"
+               #:keywords '("zulip")
+               #:categories '("Network" "InstantMessaging" "Chat")
+               #:terminal #f
+               #:startup-notify #t
+               #:startup-w-m-class "zulip-desktop"
+               #:comment
+               '(("en" "Zulip Desktop Client for Linux")
+                 (#f "Zulip Chat"))))))))
+    (synopsis "Zulip Desktop client for desktop")
+    (supported-systems '("x86_64-linux"))
+    (description "Zulip Desktop is a client for the Zulip thread and
+conversation platform.  Zulip is designed around conversations that are
+labeled with topics, to make communication organized and efficient.  It’s easy
+to get an overview of what conversations are happening, and to read one
+conversation at a time.")
+    (home-page "https://github.com/zulip/zulip-desktop")
+    (license license:asl2.0)))