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