02/04: gnu: papirus-icon-theme: Use G-Expressions for arguments.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit ac98cf42fa38bf5d642ffb6beae12258230c7b93
Author: Timo Wilken <guix@twilken.net>
AuthorDate: Wed Apr 2 13:16:20 2025 +0200

    gnu: papirus-icon-theme: Use G-Expressions for arguments.
    
    * gnu/packages/gnome-xyz.scm (papirus-icon-theme)[arguments]:
    Convert to list of G-Expressions.
    
    Change-Id: I8578fd392d10be3f249c304ffd7e9dbc23952fa1
    Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
 gnu/packages/gnome-xyz.scm | 43 ++++++++++++++++++++++---------------------
 1 file changed, 22 insertions(+), 21 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 92867d1177..ac1b3c38df 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -216,27 +216,28 @@ simple and consistent.")
        (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (arguments
-     '(#:tests? #f                      ; no test suite
-       #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'bootstrap)
-         (delete 'configure)
-         (delete 'build)
-         (add-before 'install 'halve-inode-consumption
-           ;; This package uses over 100K inodes, which is a lot.  We can 
easily
-           ;; halve that number by using (hard) links, to no ill effect.
-           ;; See <https://logs.guix.gnu.org/guix/2023-01-31.log#171227>.
-           ;; However, the source checkout will still use the full amount!
-           (lambda _
-             (let ((symlink? (lambda (_ stat)
-                               (eq? 'symlink (stat:type stat)))))
-               (for-each (lambda (file)
-                           (let ((target (canonicalize-path file)))
-                             (when (eq? 'regular (stat:type (stat target)))
-                               (delete-file file)
-                               (link target file))))
-                         (find-files "." symlink?))))))))
+     (list
+      #:tests? #f                       ; no test suite
+      #:make-flags #~(list (string-append "PREFIX=" (assoc-ref %outputs 
"out")))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'bootstrap)
+          (delete 'configure)
+          (delete 'build)
+          (add-before 'install 'halve-inode-consumption
+            ;; This package uses over 100K inodes, which is a lot.  We can 
easily
+            ;; halve that number by using (hard) links, to no ill effect.
+            ;; See <https://logs.guix.gnu.org/guix/2023-01-31.log#171227>.
+            ;; However, the source checkout will still use the full amount!
+            (lambda _
+              (let ((symlink? (lambda (_ stat)
+                                (eq? 'symlink (stat:type stat)))))
+                (for-each (lambda (file)
+                            (let ((target (canonicalize-path file)))
+                              (when (eq? 'regular (stat:type (stat target)))
+                                (delete-file file)
+                                (link target file))))
+                          (find-files "." symlink?))))))))
     (native-inputs
      (list `(,gtk+ "bin")))
     (home-page "https://git.io/papirus-icon-theme";)