diff options
| -rw-r--r-- | fussy.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -531,7 +531,9 @@ h1 { (lzb:defendpoint* :get "/package/:pkg a-package:" ((page an-integer)) () "The page endpoint for a theme package" (let ((themes - (themes-in-package pkg))) + (themes-in-package pkg)) + (page + (or page 0))) (html:with-html-string (:doctype) (:html @@ -550,7 +552,7 @@ h1 { (:p (:a :href (theme-pkg-url pkg) (theme-pkg-url pkg)))) (when (< +themes-per-page+ (length themes)) - (page-nav (or page 0) (1- (length themes)))) + (page-nav page (1- (length themes)))) (:div :class "container" (dolist (theme (a:subseq* themes (* page +themes-per-page+) |