hn


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/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)))