From: Javier Sancho Date: Sun, 10 Dec 2017 19:21:08 +0000 (+0100) Subject: Relative urls X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=cc0b9bf6f1a55467f0b836b3c89bed1943d79400;p=blog.git Relative urls --- diff --git a/haunt.scm b/haunt.scm index 9890d01..4aa7485 100644 --- a/haunt.scm +++ b/haunt.scm @@ -10,7 +10,7 @@ (define (stylesheet name) `(link (@ (rel "stylesheet") - (href ,(string-append "/css/" name ".css"))))) + (href ,(string-append "css/" name ".css"))))) (define flex-theme (theme #:name "Flex" @@ -31,8 +31,8 @@ ,(let ((metadata (site-default-metadata site))) `(aside (div - (a (@ (href "/")) (img (@ (src ,(assoc-ref metadata 'picture))))) - (h1 (a (@ (href "/")) ,(assoc-ref metadata 'author))) + (a (@ (href "index.html")) (img (@ (src ,(assoc-ref metadata 'picture))))) + (h1 (a (@ (href "index.html")) ,(assoc-ref metadata 'author))) (p ,(assoc-ref metadata 'description)) (nav (ul (@ (class "list")) @@ -46,7 +46,7 @@ " " (li (a (@ (class "sc-twitter") (target "_blank") (href "")) (i (@ (class "fa fa-twitter"))))) " " - (li (a (@ (class "sc-rss") (target "_blank") (href "/feed.xml")) (i (@ (class "fa fa-rss"))))))))) + (li (a (@ (class "sc-rss") (target "_blank") (href "feed.xml")) (i (@ (class "fa fa-rss"))))))))) (main ,body))))) #:post-template @@ -68,7 +68,7 @@ #:collection-template (lambda (site title posts prefix) (define (post-uri post) - (string-append "/" (or prefix "") + (string-append (or prefix "") (site-post-slug site post) ".html")) (define (get-paragraphs sxml count) @@ -104,7 +104,7 @@ '((author . "Javier Sancho") (description . "Free Software Evangelist - Programmer") (email . "jsf@jsancho.org") - (picture . "/images/jsancho.jpg") + (picture . "images/jsancho.jpg") (pages . (("about" . "about.html") ("projects" . "http://git.jsancho.org/")))) #:readers (list sxml-reader html-reader)