diff options
Diffstat (limited to '')
-rw-r--r-- | haunt.scm | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -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") |