diff options
-rwxr-xr-x | hn/g | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -9,6 +9,7 @@ (require racket/list) (require racket/port) +(require racket/format) (require net/http-client) (require openssl) @@ -20,6 +21,9 @@ (define HOST "news.ycombinator.com") + +(define (fmt n w) (~a n #:width w #:align 'right #:pad-string "0")) + (define (fp) "Fetch HN Front Page." (let ((hc (http-conn-open HOST #:ssl? (ssl-make-client-context 'secure) |