diff mbox

gnu: icecat: Install icons.

Message ID 1469315731.1871874.674881241.56961947@webmail.messagingengine.com
State New
Headers

Commit Message

Alex Griffin July 23, 2016, 11:15 p.m. UTC 
  This patch installs some icons so that the IceCat desktop menu entry
displays its logo.

Comments

Ludovic Courtès July 26, 2016, 12:53 p.m. UTC | #1 
Alex Griffin <a@ajgrf.com> skribis:

> This patch installs some icons so that the IceCat desktop menu entry
> displays its logo.
> -- 
> Alex Griffin
>
> From 3db1ee5a43de65ad14645267b1abcfd323304d45 Mon Sep 17 00:00:00 2001
> From: Alex Griffin <a@ajgrf.com>
> Date: Sat, 23 Jul 2016 16:44:46 -0500
> Subject: [PATCH] gnu: icecat: Install icons.
>
> * gnu/packages/gnuzilla.scm (icecat)[arguments]: Add
> 'install-icons' phase.

Applied, thanks!

Ludo’.
diff mbox

Patch

From 3db1ee5a43de65ad14645267b1abcfd323304d45 Mon Sep 17 00:00:00 2001
From: Alex Griffin <a@ajgrf.com>
Date: Sat, 23 Jul 2016 16:44:46 -0500
Subject: [PATCH] gnu: icecat: Install icons.

* gnu/packages/gnuzilla.scm (icecat)[arguments]: Add
'install-icons' phase.
---
 gnu/packages/gnuzilla.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm
index b1ffbc8..9afe87c 100644
--- a/gnu/packages/gnuzilla.scm
+++ b/gnu/packages/gnuzilla.scm
@@ -4,6 +4,7 @@ 
 ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -566,7 +567,21 @@  standards.")
                  (("@MOZ_APP_NAME@")
                   "icecat"))
                (install-file "debian/icecat.desktop" applications)
-               #t))))))
+               #t)))
+         (add-after 'install-desktop-entry 'install-icons
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (with-directory-excursion "browser/branding/official"
+                 (for-each
+                  (lambda (file)
+                    (let* ((size (string-filter char-numeric? file))
+                           (icons (string-append out "/share/icons/hicolor/"
+                                                 size "x" size "/apps")))
+                      (mkdir-p icons)
+                      (copy-file file (string-append icons "/icecat.png"))))
+                  '("default16.png" "default22.png" "default24.png"
+                    "default32.png" "default48.png" "content/icon64.png"
+                    "mozicon128.png" "default256.png")))))))))
     (home-page "http://www.gnu.org/software/gnuzilla/")
     (synopsis "Entirely free browser derived from Mozilla Firefox")
     (description
-- 
2.9.1