abhin4v
/
clj-lastfm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added page size support to paged API functions

master
Abhinav Sarkar 2010-07-25 02:10:35 +05:30
parent b3dac061a0
commit 3279235fb7
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/clj_lastfm/core.clj
View File

@ -142,12 +142,14 @@
:totalPages safe-parse-int) :totalPages safe-parse-int)
page (-> data page-meta-extractor-fn page (-> data page-meta-extractor-fn
:page safe-parse-int) :page safe-parse-int)
limit (-> data page-meta-extractor-fn
:perPage safe-parse-int)
params (param-extractor-fn data)] params (param-extractor-fn data)]
(if (= page pages) (if (= page pages)
(parse-unpaged-fn data-fn) (parse-unpaged-fn data-fn)
(lazy-cat (lazy-cat
(parse-unpaged-fn data-fn) (parse-unpaged-fn data-fn)
(get-fn (merge params {:page (inc page)})))))))) (get-fn (merge params {:page (inc page) :limit limit}))))))))
;;;;;;;;;; forward declaration ;;;;;;;;;; ;;;;;;;;;; forward declaration ;;;;;;;;;;
@ -477,11 +479,15 @@
(defmulti artist-pastevents artist-or-name) (defmulti artist-pastevents artist-or-name)
(defmethod artist-pastevents :artist [artst] (defmethod artist-pastevents :artist
(-> artst :name artist-pastevents)) ([artst] (-> artst :name artist-pastevents))
([artst limit] (artist-pastevents (artst :name) limit)))
(defmethod artist-pastevents :name [artist-name] (defmethod artist-pastevents :name
(get-artist-pastevents {:artist artist-name})) ([artist-name]
(get-artist-pastevents {:artist artist-name}))
([artist-name limit]
(get-artist-pastevents {:artist artist-name :limit limit})))
;;;;;;;;;; artist.getshouts ;;;;;;;;;; ;;;;;;;;;; artist.getshouts ;;;;;;;;;;
@ -506,11 +512,15 @@
(defmulti artist-shouts artist-or-name) (defmulti artist-shouts artist-or-name)
(defmethod artist-shouts :artist [artst] (defmethod artist-shouts :artist
(-> artst :name artist-shouts)) ([artst] (-> artst :name artist-shouts))
([artst limit] (artist-shouts (artst :name) limit)))
(defmethod artist-shouts :name [artist-name] (defmethod artist-shouts :name
(get-artist-shouts {:artist artist-name})) ([artist-name]
(get-artist-shouts {:artist artist-name}))
([artist-name limit]
(get-artist-shouts {:artist artist-name :limit limit})))
;;;;;;;;;; Tag ;;;;;;;;;; ;;;;;;;;;; Tag ;;;;;;;;;;