diff options
author | rsiddharth <s@ricketyspace.net> | 2019-06-05 19:34:25 -0400 |
---|---|---|
committer | rsiddharth <s@ricketyspace.net> | 2019-06-05 19:34:25 -0400 |
commit | 949ab9c5a1094dcba781e712a6672ea012becb67 (patch) | |
tree | 37aa25d5e67736f8d042304264b5244a3eab6eed /hn/g | |
parent | bd852355946fe8cdb7dd1bb36e2fe760cd474bc0 (diff) |
hn -> hn/g
Diffstat (limited to 'hn/g')
-rwxr-xr-x | hn/g | 24 |
1 files changed, 24 insertions, 0 deletions
@@ -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))) |