hn: Add fp.

* hn (fp): New function.
(HOST): New constant.

1 files changed, 14 insertions, 0 deletions

diff --git a/hn b/hn
index 3c0f493..f2e6f23 100755
--- a/hn
+++ b/hn
@@ -7,3 +7,17 @@
 
 #lang racket/base
 
+(require net/http-client)
+(require racket/port)
+(require openssl)
+
+(define HOST "news.ycombinator.com")
+
+(define (fp)
+  "Fetch HN Front Page."
+  (let ((hc (http-conn-open HOST
+                            #:ssl? (ssl-make-client-context 'secure)
+                            #:port 443)))
+    (define-values (status headers port)
+      (http-conn-sendrecv! hc "/"))
+    (port->string port)))