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

Stick with pathnames throughout.

Browse source
This commit is contained in:
Brit Butler 2012-12-14 15:04:21 -05:00
parent d7747ea0b2
commit 8463a33b62
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/coleslaw.lisp
View file

@ -15,11 +15,11 @@
(defgeneric page-path (object) (defgeneric page-path (object)
(:documentation "The path to store OBJECT at once rendered.")) (:documentation "The path to store OBJECT at once rendered."))
(defmethod page-path :around ((object object)) (defmethod page-path :around ((object t))
(let ((result (namestring (call-next-method)))) (let ((result (call-next-method)))
(if (position #\. result) (if (pathname-type result)
result result
(concatenate 'string result ".html")))) (make-pathname :type "html" :defaults result))))
(defun render-page (content &optional theme-fn &rest render-args) (defun render-page (content &optional theme-fn &rest render-args)
"Render the given CONTENT to disk using THEME-FN if supplied. "Render the given CONTENT to disk using THEME-FN if supplied.