From 949ab9c5a1094dcba781e712a6672ea012becb67 Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Wed, 5 Jun 2019 19:34:25 -0400
Subject: hn -> hn/g

---
 hn   | 23 -----------------------
 hn/g | 24 ++++++++++++++++++++++++
 2 files changed, 24 insertions(+), 23 deletions(-)
 delete mode 100755 hn
 create mode 100755 hn/g

diff --git a/hn b/hn
deleted file mode 100755
index f2e6f23..0000000
--- a/hn
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/env racket
-;;
-;; SPDX-License-Identifier: ISC
-;;
-;; Copyright © 2019 rsiddharth <s@ricketyspace.net>
-;;
-
-#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)))
diff --git a/hn/g b/hn/g
new file mode 100755
index 0000000..db168e0
--- /dev/null
+++ b/hn/g
@@ -0,0 +1,24 @@
+#!/usr/bin/env racket
+;;
+;; SPDX-License-Identifier: ISC
+;;
+;; Copyright © 2019 rsiddharth <s@ricketyspace.net>
+;;
+
+#lang racket/base
+
+(require net/http-client)
+(require racket/port)
+(require sxml/sxpath)
+(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)))
-- 
cgit v1.2.3