From 12013076de28abd133ad0098428cc775116f1d69 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 11 Apr 2021 22:10:26 +0200 Subject: website: Add "/en" to all pages. * website/haunt.scm (base-layout): Add "/en" to links. (static-pages): Add "/en" for software.md. --- website/haunt.scm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'website') diff --git a/website/haunt.scm b/website/haunt.scm index 54090b7..f4c95aa 100644 --- a/website/haunt.scm +++ b/website/haunt.scm @@ -43,8 +43,8 @@ (define (menubar where) (let ((locations '(("about" "About" "/") - ("software" "Software" "/software") - ("blog" "Blog" "/blog")))) + ("software" "Software" "/en/software") + ("blog" "Blog" "/en/blog")))) `(div (@ (id "menubar") (class "width-control")) (ul @@ -56,7 +56,7 @@ `(li (a (@ (href ,(base-url path))) ,text))))) locations) - (li (a (@ (href ,(base-url "/blog/feed.xml"))) + (li (a (@ (href ,(base-url "/en/blog/feed.xml"))) (img (@ (alt "Atom feed") (src ,(image-url "/feed.png")))))))))) (define front-page? @@ -126,8 +126,6 @@ representation." (let ((meta body (read-markdown (string-append %cwd "/" file)))) (base-layout `(div (@ (class "post")) (div (@ (class "post-body")) - - ,body)) #:title (string-append "The GNU Assembly — " (assoc-ref meta 'title)) @@ -144,7 +142,7 @@ representation." (list (markdown-page "index.html" "index.md") - (markdown-page "/software/index.html" + (markdown-page "/en/software/index.html" "software.md") (markdown-page "/en/documents/free-software/index.html" "free-software.md") -- cgit v1.2.1