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
Split 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))
(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)

2
hostname-info.rkt
View File

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

11
links.rkt
View File

@ -4,6 +4,7 @@
(require (planet neil/htmlprag:1:5))
(require net/url)
(require net/uri-codec)
(require "hostname-info.rkt")
;; 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))]
[data (string->json (get-pure-port user-url))])
(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
(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
(blipurl->direct-url (hash-ref x 'url)))
(hash-ref x 'title))) data)
"<br />"))
hostname
username
(- page-n 1)
hostname
username
(+ 1 page-n))))
;; Message when we get to the beginning/end of a user's list
(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))
;(retrieve-videos "slowbeef")