From fc6330b7f958a7aa29e019d450f160312355ab17 Mon Sep 17 00:00:00 2001 From: Wesley Kerfoot Date: Sun, 26 Aug 2012 19:34:35 -0400 Subject: [PATCH] added previous links --- links.rkt | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/links.rkt b/links.rkt index 00d1632..7b7f6b7 100644 --- a/links.rkt +++ b/links.rkt @@ -81,7 +81,6 @@ (define (string->json data) (json->jsexpr (regexp-replace* #px"\\s" (port->string data) ""))) - ;; Turns a normal blip video url into the direct link (define (blipurl->direct-url link) (let* ([data (string->json (get-pure-port (string->url (format "~a?skin=json&version=2&no_wrap=1" link))))] @@ -95,18 +94,22 @@ (string->json data))) ;;Gets all of a user's videos -(define (retrieve-videos username) - (let* ([user-url (string->url (format "http://blip.tv/~a?pagelen=10&skin=json&version=2&no_wrap=1" username))] +(define (retrieve-videos username page-n) + (let* ([user-url (string->url (format "http://blip.tv/~a?pagelen=5&skin=json&version=2&no_wrap=1&page=~a" username page-n))] [data (string->json (get-pure-port user-url))]) (format - "~a" + "~a

PreviousNext" (format "~a" (string-join (map (λ (x) (format "~a" (form-urlencoded-encode (blipurl->direct-url (hash-ref x 'url))) (hash-ref x 'title))) data) - "
"))))) + "
")) + username + (- page-n 1) + username + (+ 1 page-n)))) ;(retrieve-videos "slowbeef")