From fe973842759bbe6c13952e53f9ae9775454d8b35 Mon Sep 17 00:00:00 2001
From: Armaan Bhojwani <me@armaanb.net>
Date: Sat, 27 Nov 2021 16:57:25 -0500
Subject: [PATCH] Add basic web server stuff

---
 README           |  3 +++
 bettersearch.rkt | 24 ++++++++++++++++++++----
 blacklist.rkt    | 11 ++++++++---
 server.rkt       | 35 +++++++++++++++++++++++++++++++++++
 4 files changed, 66 insertions(+), 7 deletions(-)
 create mode 100644 README
 create mode 100644 server.rkt

diff --git a/README b/README
new file mode 100644
index 0000000..88e5c09
--- /dev/null
+++ b/README
@@ -0,0 +1,3 @@
+Web search that sucks a little bit less
+
+https://search.armaanb.net
diff --git a/bettersearch.rkt b/bettersearch.rkt
index 81c6f53..f3acf79 100644
--- a/bettersearch.rkt
+++ b/bettersearch.rkt
@@ -5,6 +5,12 @@
 
 (require "blacklist.rkt")
 
+(define (member-match? itm lst)
+  (ormap (lambda (i)
+	   (regexp-match? (regexp i) itm))
+	 lst))
+
+(define (get-results query)
 (define engine (string->url
 		 "https://search.trom.tf/search?q=facebook&format=json"))
 (define response (get-pure-port engine))
@@ -17,9 +23,19 @@
     (lambda ()
       (read-json))))
 
-; Convert results to net/url format
+; Parse and filter results
+; TODO: replace this with tail-call recursion and return instead of printing
 (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))))
+	    (define result-title (hash-ref i 'title ""))
+	    (define result-url (url-host (string->url (hash-ref i 'url ""))))
+	    (define result-content (hash-ref i 'content ""))
+
+	    (unless (member-match? result-url blacklist)
+	      (writeln result-title)
+	      (writeln result-url)
+	      (writeln result-content)
+	      (writeln "")
+
+	      ))
 	  (hash-ref json 'results))
+)
diff --git a/blacklist.rkt b/blacklist.rkt
index 3791a38..4374c06 100644
--- a/blacklist.rkt
+++ b/blacklist.rkt
@@ -4,13 +4,18 @@
 
 (define blacklist
   '(
-    ; social_media
-    "www.facebook.com"
+    ; Social Media
     "facebook.com"
     "instagram.com"
+    "reddit.com"
+    "tiktok.com"
     "twitter.com"
 
-    ; "stackexchange"
+    ; Video Hosting
+    "youtube.com"
+    "vimeo.com"
+
+    ; Stack Exchange
     "askubuntu.com"
     "blogoverflow.com"
     "mathoverflow.net"
diff --git a/server.rkt b/server.rkt
new file mode 100644
index 0000000..7f7562f
--- /dev/null
+++ b/server.rkt
@@ -0,0 +1,35 @@
+#lang racket
+
+(require web-server/servlet)
+(require web-server/formlets)
+(require web-server/servlet-env)
+
+(require "bettersearch.rkt")
+
+(define-values (dispatch generate-url)
+  (dispatch-rules
+    [("")       do-index]
+    [("search") do-search]
+    ))
+
+(define (do-search req)
+  (define binds (request-bindings req))
+  (define query (if
+		  (exists-binding? 'q binds)
+		  (extract-binding/single 'q binds)
+		  ""))
+
+  (if (non-empty-string? query)
+    (response/xexpr `(html
+		       (h1 "Search results")
+		       (fetch-results query)
+		       ))
+    (response/xexpr `(html
+		       (h1 "ho")
+		       ))
+    )
+  )
+
+(serve/servlet dispatch
+	       #:command-line? #t
+	       #:servlet-regexp #rx"")
-- 
2.39.2