Commit 1c2fb032 authored by Heinz N. Gies's avatar Heinz N. Gies

Fix jump to -1 pages

parent 14b9f141
......@@ -129,7 +129,7 @@
entries (count all-rows)
sel-page (if match (str->int (second match)) 0)
page-size 20
max-page (dec (Math/ceil (/ entries page-size)))
max-page (max 0 (dec (Math/ceil (/ entries page-size))))
page (min max-page sel-page)
all-rows (drop (* page page-size) all-rows)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment