GNU bug report logs - #77455
Updates for papirus-icon-theme

Previous Next

Full log

View this message in rfc822 format

From: Timo Wilken <guix <at> twilken.net>
To: 77455 <at> debbugs.gnu.org
Cc: Timo Wilken <guix <at> twilken.net>, Liliana Marie Prikler <liliana.prikler <at> gmail.com>, Maxim Cournoyer <maxim.cournoyer <at> gmail.com>, Vivien Kraus <vivien <at> planete-kraus.eu>
Subject: [bug#77455] [PATCH 4/4] gnu: papirus-icon-theme: Avoid creating executable icons.
Date: Wed,  2 Apr 2025 13:16:22 +0200

* gnu/packages/gnome-xyz.scm (papirus-icon-theme) [arguments]:
  Add 'remove-executable-bit phase.

Change-Id: Ic4d4f41b348d728913a90b0ef9cdf50f9901070a
---
 gnu/packages/gnome-xyz.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 2054cd9762..432833a649 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -237,7 +237,13 @@ (define-public papirus-icon-theme
                                 (when (eq? 'regular (stat:type (stat target)))
                                   (delete-file file)
                                   (link target file))))
-                            (find-files "." symlink?))))))))
+                            (find-files "." symlink?)))))
+           (add-before 'install 'remove-executable-bit
+             (lambda _
+               (let ((file? (lambda (_ stat)
+                              (eq? 'regular (stat:type stat)))))
+                 (for-each (lambda (file) (chmod file #o644))
+                           (find-files "." file?))))))))
     (native-inputs
      (list `(,gtk+ "bin")))
     (home-page "https://git.io/papirus-icon-theme")
-- 
2.49.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.