[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: icecat: Install icons.
From: |
Ludovic Courtès |
Subject: |
01/02: gnu: icecat: Install icons. |
Date: |
Tue, 26 Jul 2016 12:57:14 +0000 (UTC) |
civodul pushed a commit to branch master
in repository guix.
commit 88a8ce87a4c016a2869f1e9c81dd71dd0d57d97d
Author: Alex Griffin <address@hidden>
Date: Sat Jul 23 16:44:46 2016 -0500
gnu: icecat: Install icons.
* gnu/packages/gnuzilla.scm (icecat)[arguments]: Add
'install-icons' phase.
Signed-off-by: Ludovic Courtès <address@hidden>
---
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 fabf666..8e5ff45 100644
--- a/gnu/packages/gnuzilla.scm
+++ b/gnu/packages/gnuzilla.scm
@@ -4,6 +4,7 @@
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <address@hidden>
;;; Copyright © 2015 Sou Bunnbu <address@hidden>
;;; Copyright © 2016 Efraim Flashner <address@hidden>
+;;; Copyright © 2016 Alex Griffin <address@hidden>
;;;
;;; 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