branch master updated: gnu: icedove: Install the icons of the 'comm' component.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 8320c0c6b6 gnu: icedove: Install the icons of the 'comm' component.
8320c0c6b6 is described below

commit 8320c0c6b6486f1991aa99246460ec955add65c7
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Feb 20 09:16:00 2023 -0500

    gnu: icedove: Install the icons of the 'comm' component.
    
    This is a follow-up commit to 47f0e022dc ("gnu: icedove: Install icons.")
    which installed the icons of the 'browser' component (which are those used 
by
    IceCat).
    
    * gnu/packages/gnuzilla.scm (icedove-minimal) [phases]
    {install-icon}: Install the icons of the 'comm' component, which is Icedove.
---
 gnu/packages/gnuzilla.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm
index 6a9d3d18ad..eb6395cb56 100644
--- a/gnu/packages/gnuzilla.scm
+++ b/gnu/packages/gnuzilla.scm
@@ -1459,8 +1459,10 @@ ca495991b7852b855"))
                             Exec=~@*~a/bin/icedove -compose~%"
                             #$output))))))
           (add-after 'install-desktop-file 'install-icons
+            ;; TODO: Use actual Icedove branding icons (currently the stock
+            ;; Thunderbird icon is used).
             (lambda _
-              (with-directory-excursion "browser/branding/official"
+              (with-directory-excursion "comm/mail/branding/thunderbird"
                 (for-each
                  (lambda (file)
                    (let* ((size (string-filter char-numeric? file))
@@ -1469,8 +1471,7 @@ ca495991b7852b855"))
                      (mkdir-p icons)
                      (copy-file file (string-append icons "/icedove.png"))))
                  '("default16.png" "default22.png" "default24.png"
-                   "default32.png" "default48.png" "content/icon64.png"
-                   "mozicon128.png" "default256.png")))))
+                   "default32.png" "default48.png" "default256.png")))))
           (add-after 'install 'wrap-program
             (lambda* (#:key inputs #:allow-other-keys)
               (let* ((lib (string-append #$output "/lib"))