|
@@ -5,7 +5,7 @@
|
5
|
5
|
(local-time:format-rfc1123-timestring nil (local-time:now)))
|
6
|
6
|
|
7
|
7
|
(defun render-sitemap ()
|
8
|
|
- "Render sitemap.xml under document root"
|
|
8
|
+ "Render sitemap.xml and write robots.txt under document root"
|
9
|
9
|
(let* ((template (theme-fn :sitemap "feeds"))
|
10
|
10
|
(urls (append '("" "robots.txt") ; empty string is for root url
|
11
|
11
|
(mapcar #'page-url (find-all 'post))
|