05/05: gnu: icedove-minimal: Add StartupWMClass.

[guix-commits]

jonsger pushed a commit to branch master
in repository guix.

commit b1b3724996952102ad2751fa5111c6e8680b2ed4
Author: Jonathan Brielmaier <jonathan.brielma...@web.de>
AuthorDate: Sun Aug 18 13:47:12 2024 +0200

    gnu: icedove-minimal: Add StartupWMClass.
    
    Fixes https://issues.guix.gnu.org/69267
    
    * gnu/packages/gnuzilla.scm (icedove-minimal)[arguments]: Set
    MOZ_APP_REMOTINGNAME and StartupWMClass.
    
    Change-Id: Ibf334c2d840a49aa7ec84da44eceecd85cb3bcd2
---
 gnu/packages/gnuzilla.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm
index 7228667be7..67390d9699 100644
--- a/gnu/packages/gnuzilla.scm
+++ b/gnu/packages/gnuzilla.scm
@@ -1424,6 +1424,9 @@ ca495991b7852b855"))
 
                 (setenv "MOZ_BUILD_DATE" #$%icedove-build-id) ; avoid timestamp
                 (setenv "MOZ_APP_NAME" "icedove")
+                ;; WM_CLASS (default is "$MOZ_APP_NAME-$MOZ_UPDATE_CHANNEL").
+                (setenv "MOZ_APP_REMOTINGNAME" "Icedove")
+
                 (setenv "LDFLAGS" (string-append "-Wl,-rpath=" #$output
                                                  "/lib/icedove"))
                 (mkdir-p (string-append (getcwd) "/builddir"))
@@ -1496,6 +1499,7 @@ ca495991b7852b855"))
                             MimeType=x-scheme-handler/mailto;~@
                             Type=Application~@
                             Actions=ComposeMessage;~@
+                            StartupWMClass=Icedove;~@
                             [Desktop Action ComposeMessage]~@
                             Name=Write new message~@
                             Exec=~@*~a/bin/icedove -compose~%"