hn/g: Add athings.

* hn/g (athings): New function.

1 files changed, 9 insertions, 0 deletions

diff --git a/hn/g b/hn/g
index dbd58e9..8432cad 100755
--- a/hn/g
+++ b/hn/g
@@ -7,11 +7,13 @@
 
 #lang racket/base
 
+(require racket/list)
 (require racket/port)
 
 (require net/http-client)
 (require openssl)
 
+(require html-parsing)
 (require sxml/sxpath)
 
 
@@ -25,3 +27,10 @@
     (define-values (status headers port)
       (http-conn-sendrecv! hc "/"))
     (port->string port)))
+
+(define (athings)
+  "Get 20 athings from HN front page."
+  (let ((x (html->xexp (fp)))
+        (s (sxpath "//tr[@class=\"athing\"]")))
+    (take (s x) 20)))
+