summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--haunt.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/haunt.scm b/haunt.scm
index 54090b7..f4c95aa 100644
--- a/haunt.scm
+++ b/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")