Merge pull request #99 from mawis/xhtml_blogging

Supporting other file extensions for the index page as well.
This commit is contained in:
Brit Butler 2015-11-21 10:06:07 -05:00
commit 8b4aac2686

View file

@ -36,7 +36,8 @@ in REPO-DIR. Optionally, OLDREV is the revision prior to the last push."
(publish ctype))
(do-subclasses (itype index)
(publish itype))
(update-symlink "index.html" "1.html")))
(update-symlink (format nil "index.~A" (page-ext *config*))
(format nil "1.~A" (page-ext *config*)))))
(defgeneric deploy (staging)
(:documentation "Deploy the STAGING build to the directory specified in the config.")