hn/g: Add slug.

* hn/g (slug): New function.

1 files changed, 8 insertions, 0 deletions

diff --git a/hn/g b/hn/g
index c7360c1..78631b9 100755
--- a/hn/g
+++ b/hn/g
@@ -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)