;;;
;;; Nex client
;;; Description: Example of a Nex request in Slope
;;; https://slope.colorfield.space/
;;; Author: samhunter
;;; Version: 0.1
;;;

(define get-nex
  (lambda ( host port timeout path)
    (define conn (net-conn host port #f timeout))
    (if conn
      (begin0
        (read-all (write (append path "\r\n") conn))
        (close conn))
      (! "Could not connect"))))


(define host "nightfall.city")
(define port "1900")
(define path "/shore/twtxt/timeline.txt")
(define timeout 5)

(display-lines (get-nex host port timeout path))

; vim: ts=2 sw=2 expandtab ft=slope