bettersearch.rkt

   1 #lang racket
   2
   3 (require json)
   4 (require net/url)
   5
   6 (require "blacklist.rkt")
   7
   8 (define engine (string->url
   9                  "https://search.trom.tf/search?q=facebook&format=json"))
  10 (define response (get-pure-port engine))
  11 (define json-raw (port->string response))
  12 (close-input-port response)
  13
  14 (define json
  15   (with-input-from-string
  16     json-raw
  17     (lambda ()
  18       (read-json))))
  19
  20 ; Convert results to net/url format
  21 (for-each (lambda (i)
  22             (define result-url (string->url (hash-ref i 'url)))
  23             (unless (member (url-host result-url) blacklist)
  24               (writeln (url-host result-url))))
  25           (hash-ref json 'results))