ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: icedove: Install icons.

Browse source 
* gnu/packages/gnuzilla.scm (icedove) [phases]: Add install-icons phase.

Series-to: 61391@debbugs.gnu.org
Cover-letter:
Improvements to Icedove (icons, gexps, un-bundling)
Hi Guix,

This series improves our Icedove package a bit, unbundling NSS and producing
its icon so that it looks more tidy in GNOME or other desktop environments.

Thanks!
END
This commit is contained in:
Maxim Cournoyer 2023-02-09 09:01:51 -05:00
parent fbd3565efc
commit 47f0e022dc
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/gnuzilla.scm
View file

@ -1347,6 +1347,19 @@ (define-public icedove
Name=Write new message~@
Exec=~@*~a/bin/icedove -compose~%"
#$output))))))
(add-after 'install-desktop-file 'install-icons
(lambda _
(with-directory-excursion "browser/branding/official"
(for-each
(lambda (file)
(let* ((size (string-filter char-numeric? file))
(icons (string-append #$output "/share/icons/hicolor/"
size "x" size "/apps")))
(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")))))
(add-after 'install 'wrap-program
(lambda* (#:key inputs #:allow-other-keys)
(let* ((lib (string-append #$output "/lib"))