diff options
| -rw-r--r-- | website/haunt.scm | 10 |
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 @@ | |||
| 43 | (define (menubar where) | 43 | (define (menubar where) |
| 44 | (let ((locations | 44 | (let ((locations |
| 45 | '(("about" "About" "/") | 45 | '(("about" "About" "/") |
| 46 | ("software" "Software" "/software") | 46 | ("software" "Software" "/en/software") |
| 47 | ("blog" "Blog" "/blog")))) | 47 | ("blog" "Blog" "/en/blog")))) |
| 48 | `(div (@ (id "menubar") | 48 | `(div (@ (id "menubar") |
| 49 | (class "width-control")) | 49 | (class "width-control")) |
| 50 | (ul | 50 | (ul |
| @@ -56,7 +56,7 @@ | |||
| 56 | `(li (a (@ (href ,(base-url path))) | 56 | `(li (a (@ (href ,(base-url path))) |
| 57 | ,text))))) | 57 | ,text))))) |
| 58 | locations) | 58 | locations) |
| 59 | (li (a (@ (href ,(base-url "/blog/feed.xml"))) | 59 | (li (a (@ (href ,(base-url "/en/blog/feed.xml"))) |
| 60 | (img (@ (alt "Atom feed") | 60 | (img (@ (alt "Atom feed") |
| 61 | (src ,(image-url "/feed.png")))))))))) | 61 | (src ,(image-url "/feed.png")))))))))) |
| 62 | (define front-page? | 62 | (define front-page? |
| @@ -126,8 +126,6 @@ representation." | |||
| 126 | (let ((meta body (read-markdown (string-append %cwd "/" file)))) | 126 | (let ((meta body (read-markdown (string-append %cwd "/" file)))) |
| 127 | (base-layout `(div (@ (class "post")) | 127 | (base-layout `(div (@ (class "post")) |
| 128 | (div (@ (class "post-body")) | 128 | (div (@ (class "post-body")) |
| 129 | |||
| 130 | |||
| 131 | ,body)) | 129 | ,body)) |
| 132 | #:title (string-append "The GNU Assembly — " | 130 | #:title (string-append "The GNU Assembly — " |
| 133 | (assoc-ref meta 'title)) | 131 | (assoc-ref meta 'title)) |
| @@ -144,7 +142,7 @@ representation." | |||
| 144 | 142 | ||
| 145 | (list (markdown-page "index.html" "index.md") | 143 | (list (markdown-page "index.html" "index.md") |
| 146 | 144 | ||
| 147 | (markdown-page "/software/index.html" | 145 | (markdown-page "/en/software/index.html" |
| 148 | "software.md") | 146 | "software.md") |
| 149 | (markdown-page "/en/documents/free-software/index.html" | 147 | (markdown-page "/en/documents/free-software/index.html" |
| 150 | "free-software.md") | 148 | "free-software.md") |