#lang racket

(require json)
(require net/url)

(require "blacklist.rkt")

(define engine (string->url
		 "https://search.trom.tf/search?q=facebook&format=json"))
(define response (get-pure-port engine))
(define json-raw (port->string response))
(close-input-port response)

(define json
  (with-input-from-string
    json-raw
    (lambda ()
      (read-json))))

; Convert results to net/url format
(for-each (lambda (i)
	    (define result-url (string->url (hash-ref i 'url)))
	    (unless (member (url-host result-url) blacklist)
	      (writeln (url-host result-url))))
	  (hash-ref json 'results))