02/04: website: Don't resort to Coreutils.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 85e9701cf95b4ca20347c0207cb0bbcbd8f54a15
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Oct 25 22:13:55 2021 +0200

    website: Don't resort to Coreutils.
    
    * website/.guix.scm (build): Use 'find-files' and 'make-file-writable'
    rather than invoking "chmod -R u+w".
---
 website/.guix.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/website/.guix.scm b/website/.guix.scm
index a7a6d36..7779e0d 100644
--- a/website/.guix.scm
+++ b/website/.guix.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix web site
-;;; Copyright © 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
 ;;;
 ;;; This file is part of the GNU Guix web site.
@@ -135,9 +135,8 @@
             (close-pipe pipe))
 
           ;; Make the copy writable so Haunt can overwrite duplicate assets.
-          (invoke #+(file-append (specification->package "coreutils")
-                                 "/bin/chmod")
-                  "--recursive" "u+w" ".")
+          (for-each make-file-writable
+                    (find-files "." ".*" #:directories? #t))
 
           ;; For translations, create MO files from PO files.
           (for-each