Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

don't repeat frontpage headlines

  • Loading branch information...
commit 39dddfbe342ea3851691d9a48126b827c1fa68d9 1 parent 4299cea
@vii authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.