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")