13 年之前 · ada2e397ae
--- a/src/indices.lisp
+++ b/src/indices.lisp
@@ -33,8 +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 "~a/posts/~a.html"
			
 
				-                                               (domain *config*) (post-slug post))
			
 
				+                    collect (list :url (format nil "~a/posts/~a"
			
 
				+                                               (domain *config*) (post-url post))
			
 
				                                   :title (post-title post)
			
 
				                                   :date (post-date post)
			
 
				                                   :content (render-content (post-content post)
			
--- a/src/posts.lisp
+++ b/src/posts.lisp
@@ -24,7 +24,7 @@
 
				 
			
 
				 (defun post-url (post)
			
 
				   "Return the relative URL for a given post."
			
 
				-  (format nil "posts/~a.html" (post-slug post)))
			
 
				+  (format nil "~a.html" (post-slug post)))
			
 
				 
			
 
				 (defun render-posts ()
			
 
				   "Iterate through the files in the repo to render+write the posts out to disk."
			
--- a/themes/hyde/base.tmpl
+++ b/themes/hyde/base.tmpl
@@ -15,7 +15,7 @@
 
				   <body>
			
 
				     <div class="navigation">
			
 
				       {$navigation |noAutoescape}
			
 
				-      {$title}
			
 
				+      <a href="{$siteroot}">{$title}</a>
			
 
				     </div>
			
 
				     <div id="content">
			
 
				       {$content |noAutoescape}