From ba21f9fc4b53ac055f1bcd5532571a8926d88a8b Mon Sep 17 00:00:00 2001 From: Wesley Kerfoot Date: Tue, 28 Aug 2012 23:24:36 -0400 Subject: [PATCH] removed spurious lambda, changed hostname, fixed format string bug --- cacher.rkt | 2 +- hostname-info.rkt | 2 +- links.rkt | 11 ++++++++--- 3 files changed, 10 insertions(+), 5 deletions(-) diff --git a/cacher.rkt b/cacher.rkt index a7315ec..095b4ac 100644 --- a/cacher.rkt +++ b/cacher.rkt @@ -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) diff --git a/hostname-info.rkt b/hostname-info.rkt index f7b7a8e..009df32 100644 --- a/hostname-info.rkt +++ b/hostname-info.rkt @@ -1,4 +1,4 @@ #lang racket -(define hostname "192.168.0.100") +(define hostname "localhost") (provide hostname) \ No newline at end of file diff --git a/links.rkt b/links.rkt index 6f56eff..19f3aad 100644 --- a/links.rkt +++ b/links.rkt @@ -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 - "~a

PreviousNext" + "~a

PreviousNext" (format "~a" (string-join (map (λ (x) - (format "~a" + (format "~a" + hostname (form-urlencoded-encode (blipurl->direct-url (hash-ref x 'url))) (hash-ref x 'title))) data) "
")) + 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 "No more left

Beginning" + (format "No more left

Beginning" + hostname username)) ;(retrieve-videos "slowbeef")