More relative URLs please.

This commit is contained in:
Brit Butler 2012-08-21 21:53:38 -04:00
parent 8cc380bc2d
commit 3ca3db13cc
2 changed files with 2 additions and 3 deletions

View file

@ -33,8 +33,7 @@
(defun write-index (posts filename title &optional prev next) (defun write-index (posts filename title &optional prev next)
"Write out the HTML for POSTS to FILENAME.html." "Write out the HTML for POSTS to FILENAME.html."
(let ((content (loop for post in posts (let ((content (loop for post in posts
collect (list :url (format nil "~a/posts/~a.html" collect (list :url (format nil "posts/~a.html" (post-slug post))
(domain *config*) (post-slug post))
:title (post-title post) :title (post-title post)
:date (post-date post) :date (post-date post)
:content (render-content (post-content post) :content (render-content (post-content post)

View file

@ -8,7 +8,7 @@
<meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" /> <meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" />
<link href="http://fonts.googleapis.com/css?family=Vollkorn:regular,italic,bold,bolditalic" rel="stylesheet" type="text/css" /> <link href="http://fonts.googleapis.com/css?family=Vollkorn:regular,italic,bold,bolditalic" rel="stylesheet" type="text/css" />
<link href="http://fonts.googleapis.com/css?family=Inconsolata" rel="stylesheet" type="text/css" /> <link href="http://fonts.googleapis.com/css?family=Inconsolata" rel="stylesheet" type="text/css" />
<link href= "{$siteroot}/css/style.css" rel="stylesheet" type="text/css" /> <link href= "css/style.css" rel="stylesheet" type="text/css" />
<link rel="alternate" href="{$siteroot}/feed.atom" type="application/atom+xml" /> <link rel="alternate" href="{$siteroot}/feed.atom" type="application/atom+xml" />
{if $headInject} {$headInject |noAutoescape} {/if} {if $headInject} {$headInject |noAutoescape} {/if}
</head> </head>