diff mbox series

[bug#69432,1/3] website: Adjust style of web site builder.

Message ID 20240227213835.21147-1-ludo@gnu.org
State New
Headers
Series [bug#69432,1/3] website: Adjust style of web site builder. |

Commit Message

Ludovic Courtès Feb. 27, 2024, 9:38 p.m. UTC 
* website/.guix.scm (lingua-web-site)[build]: Use ‘for-each’ and
‘install-file’ when copying font files.
---
 website/.guix.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

Comments

pelzflorian (Florian Pelz) Feb. 28, 2024, 8:06 a.m. UTC | #1 
Ludovic Courtès <ludo@gnu.org> writes:
> * website/.guix.scm (lingua-web-site)[build]: Use ‘for-each’ and
> ‘install-file’ when copying font files.

I did not remember there’s install-file.  But with it the

>              (mkdir-p (string-append #$output "/static/base/fonts"))

became unnecessary.  Could you remove it?

Regards,
Florian
diff mbox series

Patch

diff --git a/website/.guix.scm b/website/.guix.scm
index 3d8fdb6..438d337 100644
--- a/website/.guix.scm
+++ b/website/.guix.scm
@@ -207,12 +207,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