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

add documentation

Browse source
This commit is contained in:
Do Nhat Minh 2013-04-26 22:26:41 +08:00
parent a3ed5b7719
commit edcd1022ab
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/feeds.lisp
View file

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