01/03: website: Adjust style of web site builder.

[Ludovic Courtès]

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

commit 6f925630034433ec2b12e0f366de60667a9e6c1e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Feb 27 17:08:58 2024 +0100

    website: Adjust style of web site builder.
    
    * website/.guix.scm (lingua-web-site)[build]: Use ‘for-each’ and
    ‘install-file’ when copying font files.
---
 website/.guix.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/website/.guix.scm b/website/.guix.scm
index 3d8fdb6..1d8c3e6 100644
--- a/website/.guix.scm
+++ b/website/.guix.scm
@@ -206,13 +206,13 @@
 
             ;; Include the Fira fonts used in
             ;; website/static/base/css/manual.css.
-            (mkdir-p (string-append #$output "/static/base/fonts"))
-            (map (lambda (file)
-                   (copy-file (string-append #+font-fira-sans
-                                             "/share/fonts/truetype/" file)
-                              (string-append #$output
-                                             "/static/base/fonts/" file)))
-                 '("FiraSans-Bold.ttf" "FiraSans-Regular.ttf"))))))
+            (for-each (lambda (file)
+                        (install-file (string-append #+font-fira-sans
+                                                     "/share/fonts/truetype/"
+                                                     file)
+                                      (string-append #$output
+                                                     "/static/base/fonts")))
+                      '("FiraSans-Bold.ttf" "FiraSans-Regular.ttf"))))))
 
   (computed-file (string-append "guix-web-site-" lingua)
                  build