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

Fixes to RENDER-BY-20.

Browse source
This commit is contained in:
Brit Butler 2012-08-20 21:01:06 -04:00
parent ec025b5f65
commit 9ab56bddd1
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/indices.lisp
View file

@ -43,11 +43,11 @@
"Render the indices to view posts in reverse chronological order by 20."
(flet ((by-20 (posts start)
(let ((index (* 20 (1- start))))
(subseq posts index (min (length posts) (+ index 19))))))
(subseq posts index (min (length posts) (+ index 20))))))
(let ((posts (sort *posts* #'string> :key #'post-date)))
(loop for i from 1 then (1+ i)
until (> (* (1- i) 20) (length posts))
do (write-index (by-20 posts i) (format nil "~d.html" i) "Recent Posts")))))
(loop for i = 1 then (1+ i)
do (write-index (by-20 posts i) (format nil "~d.html" i) "Recent Posts")
until (> (* i 20) (length posts))))))
(defun render-by-tag ()
"Render the indices to view posts by tag."