hn/g: Add fmt.

* hn/g (fmt): New function.

1 files changed, 4 insertions, 0 deletions

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