diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-02-09 09:01:51 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-02-13 16:08:11 -0500 |
| commit | 47f0e022dcc3a7f3fbf36654d75a22a4e61a7dc5 (patch) | |
| tree | 0ba7161e5aa528ec3ae96d79185864579b80852c | |
| parent | fbd3565efc81f22faf9c52cb33ab0946c44682fd (diff) | |
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
| -rw-r--r-- | gnu/packages/gnuzilla.scm | 13 |
1 files changed, 13 insertions, 0 deletions
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")) |