From 47f0e022dcc3a7f3fbf36654d75a22a4e61a7dc5 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Thu, 9 Feb 2023 09:01:51 -0500 Subject: [PATCH] gnu: icedove: Install icons. * 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 --- gnu/packages/gnuzilla.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm index ef21673e2f..33b5744c17 100644 --- a/gnu/packages/gnuzilla.scm +++ b/gnu/packages/gnuzilla.scm @@ -1347,6 +1347,19 @@ ca495991b7852b855")) 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"))