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

removed spurious lambda, changed hostname, fixed format string bug

master
Wesley Kerfoot 12 years ago
parent
3a9f5b8804
commit
ba21f9fc4b
3 changed files with 10 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
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 2
      cacher.rkt
  2. 2
      hostname-info.rkt
  3. 11
      links.rkt

2
cacher.rkt
View File

@ -80,7 +80,7 @@
(struct user-cache-params (username pagenum)) (struct user-cache-params (username pagenum))
(define (immuthsh->muthsh hsh) (define (immuthsh->muthsh hsh)
(make-hash (hash-map hsh (λ (a b) (cons a b))))) (make-hash (hash-map hsh cons)))
;; ;;
(define (check-cache info get-data updater) (define (check-cache info get-data updater)

2
hostname-info.rkt
View File

@ -1,4 +1,4 @@
#lang racket #lang racket
(define hostname "192.168.0.100") (define hostname "localhost")
(provide hostname) (provide hostname)

11
links.rkt
View File

@ -4,6 +4,7 @@
(require (planet neil/htmlprag:1:5)) (require (planet neil/htmlprag:1:5))
(require net/url) (require net/url)
(require net/uri-codec) (require net/uri-codec)
(require "hostname-info.rkt")
;; Blip.tv search and download server ;; Blip.tv search and download server
@ -98,22 +99,26 @@
(let* ([user-url (string->url (format "http://blip.tv/~a?pagelen=5&skin=json&version=2&no_wrap=1&page=~a" 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))]) [data (string->json (get-pure-port user-url))])
(format (format
"<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>" "<html><body>~a <p></p><a href=\"http://~a:8080/~a?p=~a\">Previous</a><a href=\"http://~a:8080/~a?p=~a\">Next</a></body></html>"
(format "~a" (string-join (format "~a" (string-join
(map (λ (x) (map (λ (x)
(format "<a href=\"http://localhost:8080/add?name=~a\">~a</a>" (format "<a href=\"http://~a:8080/add?name=~a\">~a</a>"
hostname
(form-urlencoded-encode (form-urlencoded-encode
(blipurl->direct-url (hash-ref x 'url))) (blipurl->direct-url (hash-ref x 'url)))
(hash-ref x 'title))) data) (hash-ref x 'title))) data)
"<br />")) "<br />"))
hostname
username username
(- page-n 1) (- page-n 1)
hostname
username username
(+ 1 page-n)))) (+ 1 page-n))))
;; Message when we get to the beginning/end of a user's list ;; Message when we get to the beginning/end of a user's list
(define (no-more username) (define (no-more username)
(format "<html><body>No more left<br></br><a href=\"http://localhost:8080/~a?p=1\">Beginning</a></body></html>" (format "<html><body>No more left<br></br><a href=\"http://~a:8080/~a?p=1\">Beginning</a></body></html>"
hostname
username)) username))
;(retrieve-videos "slowbeef") ;(retrieve-videos "slowbeef")