ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 06:42:14 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: icedove: Install the icons of the 'comm' component.

Browse source 
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.
This commit is contained in:
Maxim Cournoyer 2023-02-20 09:16:00 -05:00
parent e2435b60f1
commit 8320c0c6b6
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/gnuzilla.scm
View file

@ -1459,8 +1459,10 @@ (define-public icedove-minimal
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 @@ (define-public icedove-minimal
(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"))