marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "More relative URLs please."

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/indices.lisp
View file

@ -33,7 +33,8 @@
(defun write-index (posts filename title &optional prev next)
"Write out the HTML for POSTS to FILENAME.html."
(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)
:date (post-date post)
:content (render-content (post-content post)

2
themes/hyde/base.tmpl
View file

@ -8,7 +8,7 @@
<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=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" />
{if $headInject} {$headInject |noAutoescape} {/if}
</head>