Permalink
Browse files

Move around navigation links for browsing

  • Loading branch information...
1 parent a134d37 commit 70cc616f9d6f3da37486f460dfb40434ccfd5d30 @ckeen committed May 22, 2011
Showing with 3 additions and 3 deletions.
  1. +3 −3 pastiche.scm
View
@@ -345,8 +345,7 @@
(history-path (make-pathname base-path "browse")))
(html-page
(++ (<div> id: "content"
- (<h2> align: "center" "Browsing pastes from " from " to " to " of " nposts)
- (make-post-table to from)
+ (<h2> align: "center" "Browsing pastes")
(<div> id: "browse-navigation"
align: "center"
(if (>= newer-from 0) (link (sprintf "~a?from=~a;to=~a" history-path newer-from newer-to)
@@ -356,7 +355,8 @@
(if (and (not (= to nposts)) (<= older-to nposts))
(link (sprintf "~a?from=~a;to=~a" history-path older-from older-to)
"older >")
- "older >")))
+ "older >"))
+ (make-post-table to from))
(navigation-links)))))))
(define-page "about"
(lambda ()

0 comments on commit 70cc616

Please sign in to comment.