Minor comments and doc cleanups. Rearrange util.

src/coleslaw.lisp

@@ -67,6 +67,10 @@
       (with-output-to-string (str)
         (3bmd:parse-string-and-print-to-stream text str)))))
 
+(defun make-pubdate ()
+  "Make a RFC1123 pubdate representing the current time."
+  (local-time:format-rfc1123-timestring nil (local-time:now)))
+
 (defun page-path (object)
   "The path to store OBJECT at once rendered."
   (rel-path (staging-dir *config*) (namestring (page-url object))))

src/documents.lisp

@@ -44,7 +44,7 @@
 ;; Instance Methods
 
 (defgeneric page-url (document)
-  (:documentation "The url to the document, without the domain."))
+  (:documentation "The url to the DOCUMENT without the domain."))
 
 (defmethod page-url :around ((document t))
   (let ((result (call-next-method)))

src/indexes.lisp

@@ -102,6 +102,8 @@
   (dolist (feed (find-all 'feed))
     (render-feed feed)))
 
+;;; Tag Feeds
+
 (defclass tag-feed (feed) ())
 
 (defmethod page-url ((object tag-feed))

src/util.lisp

@@ -15,28 +15,6 @@ lexically bound to the current subclass' class-name."
        (let ((,klasses (,all-subclasses (find-class ',class))))
          (loop for ,var in ,klasses do ,@body)))))
 
-(defun fmt (fmt-str args)
-  "A convenient FORMAT interface for string building."
-  (apply 'format nil fmt-str args))
-
-(defun rel-path (base path &rest args)
-  "Take a relative PATH and return the corresponding pathname beneath BASE.
-If ARGS is provided, use (fmt path args) as the value of PATH."
-  (merge-pathnames (fmt path args) base))
-
-(defun app-path (path &rest args)
-  "Return a relative path beneath coleslaw."
-  (apply 'rel-path coleslaw-conf:*basedir* path args))
-
-(defun run-program (program &rest args)
-  "Take a PROGRAM and execute the corresponding shell command. If ARGS is provided,
-use (fmt program args) as the value of PROGRAM."
-  (inferior-shell:run (fmt program args) :show t))
-
-(defun update-symlink (path target)
-  "Update the symlink at PATH to point to TARGET."
-  (run-program "ln -sfn ~a ~a" target path))
-
 (defmacro do-files ((var path &optional extension) &body body)
   "For each file on PATH, run BODY. If EXTENSION is provided, only run BODY
 on files that match the given extension."
@@ -48,14 +26,15 @@ on files that match the given extension."
                    ,@body)))
              `,body))))
 
-(defun exit ()
-  "Exit the lisp system returning a 0 status code."
-  #+sbcl (sb-ext:quit)
-  #+ccl (ccl:quit)
-  #+ecl (si:quit)
-  #+cmucl (ext:quit)
-  #+clisp (ext:quit)
-  #-(or sbcl ccl ecl cmucl clisp) (error "Not implemented yet."))
+(defmacro with-current-directory (path &body body)
+  "Change the current OS directory to PATH and execute BODY in
+an UNWIND-PROTECT, then change back to the current directory."
+  (alexandria:with-gensyms (old)
+    `(let ((,old (current-directory)))
+       (unwind-protect (progn
+                         (setf (current-directory) ,path)
+                         ,@body)
+         (setf (current-directory) ,old)))))
 
 (defun current-directory ()
   "Return the operating system's current directory."
@@ -75,20 +54,37 @@ on files that match the given extension."
   #+clisp (ext:cd path)
   #-(or sbcl ccl ecl cmucl clisp) (error "Not implemented yet."))
 
-(defmacro with-current-directory (path &body body)
-  "Change the current OS directory to PATH and execute BODY in
-an UNWIND-PROTECT, then change back to the current directory."
-  (alexandria:with-gensyms (old)
-    `(let ((,old (current-directory)))
-       (unwind-protect (progn
-                         (setf (current-directory) ,path)
-                         ,@body)
-         (setf (current-directory) ,old)))))
+(defun exit ()
+  "Exit the lisp system returning a 0 status code."
+  #+sbcl (sb-ext:quit)
+  #+ccl (ccl:quit)
+  #+ecl (si:quit)
+  #+cmucl (ext:quit)
+  #+clisp (ext:quit)
+  #-(or sbcl ccl ecl cmucl clisp) (error "Not implemented yet."))
+
+(defun fmt (fmt-str args)
+  "A convenient FORMAT interface for string building."
+  (apply 'format nil fmt-str args))
+
+(defun rel-path (base path &rest args)
+  "Take a relative PATH and return the corresponding pathname beneath BASE.
+If ARGS is provided, use (fmt path args) as the value of PATH."
+  (merge-pathnames (fmt path args) base))
+
+(defun app-path (path &rest args)
+  "Return a relative path beneath coleslaw."
+  (apply 'rel-path coleslaw-conf:*basedir* path args))
+
+(defun run-program (program &rest args)
+  "Take a PROGRAM and execute the corresponding shell command. If ARGS is provided,
+use (fmt program args) as the value of PROGRAM."
+  (inferior-shell:run (fmt program args) :show t))
+
+(defun update-symlink (path target)
+  "Update the symlink at PATH to point to TARGET."
+  (run-program "ln -sfn ~a ~a" target path))
 
 (defun take-up-to (n seq)
   "Take elements from SEQ until all elements or N have been taken."
   (subseq seq 0 (min (length seq) n)))
-
-(defun make-pubdate ()
-  "Make a RFC1123 pubdate representing the current time."
-  (local-time:format-rfc1123-timestring nil (local-time:now)))