|
|
@@ -18,12 +18,12 @@
|
|
18
|
18
|
(in-package :coleslaw-sitemap)
|
|
19
|
19
|
|
|
20
|
20
|
(defmethod deploy :before (staging)
|
|
21
|
|
- "Render sitemap.xml under document root"
|
|
|
21
|
+ "Render sitemap.xml under document root."
|
|
22
|
22
|
(declare (ignore staging))
|
|
23
|
23
|
(let ((urls (append '("" "sitemap.xml") ; empty string is for root url
|
|
24
|
|
- (mapcar #'page-url (find-all 'coleslaw:post)))))
|
|
|
24
|
+ (mapcar #'page-url (hash-table-values coleslaw::*site*)))))
|
|
25
|
25
|
(write-page (rel-path (staging-dir *config*) "sitemap.xml")
|
|
26
|
|
- (funcall (theme-fn 'sitemap "feeds")
|
|
|
26
|
+ (funcall (theme-fn 'sitemap "sitemap")
|
|
27
|
27
|
(list :config *config*
|
|
28
|
28
|
:urls urls
|
|
29
|
29
|
:pubdate (format-timestring nil (now)))))))
|
Brit Butler