wes
/
LazyPlay
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

added previous links

master
Wesley Kerfoot 12 years ago
parent
5056b39de7
commit
fc6330b7f9
1 changed files with 8 additions and 5 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 13
      links.rkt

13
links.rkt
View File

@ -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
"<html><body>~a</body></html>"
"<html><body>~a <p></p><a href=\"http://localhost:8080/~a?p=~a\">Previous</a><a href=\"http://localhost:8080/~a?p=~a\">Next</a></body></html>"
(format "~a" (string-join
(map (λ (x)
(format "<a href=\"http://localhost:8080/add?name=~a\">~a</a>"
(form-urlencoded-encode
(blipurl->direct-url (hash-ref x 'url)))
(hash-ref x 'title))) data)
"<br />")))))
"<br />"))
username
(- page-n 1)
username
(+ 1 page-n))))
;(retrieve-videos "slowbeef")