refuse to visit non-gemini urls

2025-09-06 17:17:02 -07:00
parent b4d226477e
commit 7e1e21439d
1 changed files with 3 additions and 2 deletions
--- a/client.rkt
+++ b/client.rkt
@@ -109,7 +109,6 @@
                [(and (>= status 20)
                      (<= status 29))

-
                 (let-values ([(doc) (gmi:parse (port->lines c-in))]
                              [(db-in db-out) (make-pipe #f)])

@@ -150,4 +149,6 @@
                      (<= status 69))
                 (displayln "certificate handling not yet implemented")]))))

-          (iter url 5))))
+        (if (not (string=? (url-scheme url) "gemini"))
+            (printf "unsupported url: ~a~n" (url->string url))
+            (iter url 5)))))