Browse files

don't repeat frontpage headlines

  • Loading branch information...
1 parent 4299cea commit 39dddfbe342ea3851691d9a48126b827c1fa68d9 @vii committed Feb 20, 2011
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/blog/blog.lisp
View
5 src/blog/blog.lisp
@@ -191,8 +191,9 @@
(reverse-entries (reverse entries)))
(flet ((headlines (count)
(<div :class "blog-front-page-entries"
- (loop for entry in entries
- repeat (/ count 3)
+ (loop for entry = (pop entries)
+ repeat (/ (min (length reverse-entries) count) 3)
+ while entry
do
(with-ml-output (entry-headline-ml entry score-mul)
(loop repeat 2 do

0 comments on commit 39dddfb

Please sign in to comment.