Remove page-url methods now stored in the config.

We probably don't want to merge this in until users have had an
adjustment period or without putting a *big* warning in the NEWS.
Users will need to know to update their configs/steal the :routing
block from the example config.

src/indexes.lisp

@@ -17,9 +17,6 @@
 
 (defclass tag-index (index) ())
 
-(defmethod page-url ((object tag-index))
-  (format nil "tag/~a" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'tag-index))))
   (let ((content (by-date (find-all 'post))))
     (dolist (tag (all-tags))
@@ -39,9 +36,6 @@
 
 (defclass month-index (index) ())
 
-(defmethod page-url ((object month-index))
-  (format nil "date/~a" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'month-index))))
   (let ((content (by-date (find-all 'post))))
     (dolist (month (all-months))
@@ -61,9 +55,6 @@
 
 (defclass numeric-index (index) ())
 
-(defmethod page-url ((object numeric-index))
-  (format nil "~d" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'numeric-index))))
   (let ((content (by-date (find-all 'post))))
     (dotimes (i (ceiling (length content) 10))
@@ -90,9 +81,6 @@
 (defclass feed (index)
   ((format :initform nil :initarg :format :accessor feed-format)))
 
-(defmethod page-url ((object feed))
-  (format nil "~a.xml" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'feed))))
   (let ((content (by-date (find-all 'post))))
     (dolist (format '(rss atom))
@@ -109,9 +97,6 @@
 
 (defclass tag-feed (feed) ())
 
-(defmethod page-url ((object tag-feed))
-  (format nil "tag/~a.xml" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'tag-feed))))
   (let ((content (by-date (find-all 'post))))
     (dolist (tag (feeds *config*))

src/posts.lisp

@@ -21,9 +21,6 @@
                                   :prev prev
                                   :next next)))
 
-(defmethod page-url ((object post))
-  (format nil "posts/~a" (content-slug object)))
-
 (defmethod publish ((doc-type (eql (find-class 'post))))
   (loop for (next post prev) on (append '(nil) (by-date (find-all 'post)))
      while post do (write-document post nil :prev prev :next next)))