Add some static-specific vars, DWIMfix to find-by-range, update .gitignore, small post template improvement.

.gitignore

@@ -1,2 +1,4 @@
 *~
 *.fasl
+ignore/
+generated/

TODO

@@ -12,9 +12,12 @@ Ideas:
 ;;;; DYNAMIC
 
 ;;;; STATIC
-;;;; implement *output-dir*, render-site.
+;;;; implement render-site, head-inject/body-inject/navigation.
+;;;; non-disqus comment support?
 ;;; posts
 ;; Make find-by-date, post-url not suck.
+;; -- re: post-url, escaping is insufficient and there are collisions by title.
+;; -- What are alternatives?
 
 ;;;; PLUGINS
 ;;;; implement disqus support
@@ -22,8 +25,7 @@ Ideas:
 ;; add comment handling ... (when comments ...)
 ;; support old URLs via use of post-aliases?
 
-;;;; rendering hooks (eg. :pygmentize, :xpost-lj?)
-;; may need pre- and post- but for now stick to post-.
+;;;; rendering hooks (pygmentize, xposting) via :around/:before/:after methods
 ;; get run on rendered html before "storage"
 ;; xposting may be a rendering hook but may necessitate publishing hooks
 ;; again, these should be methods on a generic function

static/coleslaw.lisp

@@ -1,5 +1,27 @@
 (in-package :coleslaw)
 
+(defvar *site-root* nil
+  "A string representing the base URL of the site,
+e.g. \"http://blog.redlinernotes.com/\".")
+
+(defvar *site-title* nil
+  "A string containing the title of the site,
+e.g. \"Improved Means for Achieving Deterioriated Ends\".")
+
+(defvar *site-credits* nil
+  "A string containing the credits of the site,
+e.g. \"Brit Butler (year)\".")
+
+(defvar *site-license* nil
+  "A string containing the (optional) license of the site,
+e.g. \"CC-BY-SA\". Otherwise, standard copyright is assumed.")
+
+(defvar *output-directory* nil
+  "The path where the compiled coleslaw site will be output.")
+
+(defvar *input-directory* nil
+  "The directory which will be watched for new posts.")
+
 (defun static-init ()
   (setf *storage* (make-hash-table))
   (loop for table in '(:authors :comments :posts :indices :credentials)

static/posts.lisp

@@ -57,7 +57,9 @@
     results))
 
 (defmethod find-by-range (start end)
-  (loop for id from start upto end collecting (find-post id)))
+  (if (> start end)
+      (loop for id from start downto end collecting (find-post id))
+      (loop for id from start upto end collecting (find-post id))))
 
 (defmethod post-url (id)
   (flet ((escape (str)

themes/hyde/post.tmpl

@@ -14,8 +14,8 @@
   {$content |noAutoescape}
 </div>{\n}
 <div class="relative-nav">{\n}
-  {if $prev} <a href="{$prev}">Previous</a> {/if}
-  {if $next} <a href="{$next}">Next</a> {/if}
+  {if $prev} <a href="{$prev}">Previous</a><br> {/if}{\n}
+  {if $next} <a href="{$next}">Next</a><br> {/if}{\n}
 </div>{\n}
 {if $comments}
   <div class="comments">{$comments |noAutoescape}</div>