From 0dc93d369e8278db667b17531df49495b6f8a6c9 Mon Sep 17 00:00:00 2001 From: w6vvn Date: Mon, 8 Sep 2025 13:40:44 -0700 Subject: [PATCH] prepare for use over the radio --- client.rkt | 1 + gem300.rkt | 15 +++++++++++++++ 2 files changed, 16 insertions(+) diff --git a/client.rkt b/client.rkt index f8747ac..7c6af74 100644 --- a/client.rkt +++ b/client.rkt @@ -190,6 +190,7 @@ [(and (>= status 10) (<= status 19)) (displayln "input requested") (display "? ") + (flush-output) (get-document (struct-copy diff --git a/gem300.rkt b/gem300.rkt index 16e0250..bb5bcf6 100644 --- a/gem300.rkt +++ b/gem300.rkt @@ -9,6 +9,8 @@ (define (repl) (display "G-300 > ") + (flush-output) + (with-handlers ([(or/c exn:fail:user? ;; todo: catch these errors separately and reformat them @@ -46,7 +48,20 @@ (list _ "b" _)) (send client back-cmd)] + [(or (list _ "quit" _) + (list _ "q" _ )) + (exit)] + [else (displayln "no such command")])) (repl)) + +(displayln + (string-append "welcome to gem300, a gemini client.\n" + "to learn more, type:\n" + "'go w6vvn.flounder.online/gem300/tutorial.gmi'")) + +(flush-output) + +(repl)