Revert "More relative URLs please."

This reverts commit 3ca3db13cc.
This commit is contained in:
Brit Butler 2012-08-21 21:56:28 -04:00
parent 3ca3db13cc
commit cf10496557
2 changed files with 3 additions and 2 deletions

View file

@ -33,7 +33,8 @@
(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 "posts/~a.html" (post-slug post)) collect (list :url (format nil "~a/posts/~a.html"
(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= "css/style.css" rel="stylesheet" type="text/css" /> <link href= "{$siteroot}/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>