website: Add "/en" to all pages.

* website/haunt.scm (base-layout): Add "/en" to links.
(static-pages): Add "/en" for software.md.

1 files changed, 4 insertions, 6 deletions

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")