luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move pagination helper to monger.internal.pagination

Browse source
This commit is contained in:
Michael S. Klishin 2011-11-15 03:48:31 +04:00
parent 3534e579b7
commit d9f5ae5951
3 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/monger/pagination.clj → src/monger/internal/pagination.clj
View file

@ -1,4 +1,4 @@
(ns monger.pagination) (ns monger.internal.pagination)
(defn offset-for (defn offset-for
[^long page ^long per-page] [^long page ^long per-page]

5
src/monger/query.clj
View file

@ -1,6 +1,7 @@
(ns monger.query (ns monger.query
(:refer-clojure :exclude [select find sort]) (:refer-clojure :exclude [select find sort])
(:require monger.core) (:require [monger.core]
[monger.internal pagination])
(:import [com.mongodb DB DBCollection DBObject DBCursor] (:import [com.mongodb DB DBCollection DBObject DBCursor]
[java.util List]) [java.util List])
(:use [monger conversion operators])) (:use [monger conversion operators]))
@ -82,7 +83,7 @@
(defn paginate (defn paginate
[m & { :keys [page per-page] :or { page 1 per-page 10 } }] [m & { :keys [page per-page] :or { page 1 per-page 10 } }]
(merge m { :limit per-page :skip (monger.pagination/offset-for page per-page) })) (merge m { :limit per-page :skip (monger.internal.pagination/offset-for page per-page) }))
(defmacro with-collection (defmacro with-collection
[^String coll & body] [^String coll & body]

4
test/monger/test/pagination.clj → test/monger/test/internal/pagination.clj
View file

@ -1,6 +1,6 @@
(ns monger.test.pagination (ns monger.test.internal.pagination
(:use [clojure.test] (:use [clojure.test]
[monger.pagination])) [monger.internal.pagination]))
(deftest test-pagination-offset (deftest test-pagination-offset
(are [a b] (= a b) (are [a b] (= a b)