diff options
Diffstat (limited to 'hn/g')
-rwxr-xr-x | hn/g | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -7,9 +7,11 @@ #lang racket/base +(require racket/date) (require racket/list) (require racket/port) (require racket/format) +(require racket/string) (require net/http-client) (require openssl) @@ -24,6 +26,12 @@ (define (fmt n w) (~a n #:width w #:align 'right #:pad-string "0")) +(define (slug) + (let* ((d (current-date))) + (string-join `(,(fmt (date-year d) 4) + ,(fmt (date-month d) 2) + ,(fmt (date-day d) 2)) ""))) + (define (fp) "Fetch HN Front Page." (let ((hc (http-conn-open HOST #:ssl? (ssl-make-client-context 'secure) |