From 6070cd33aa3cb91bf2273a119f822bc46579e19b Mon Sep 17 00:00:00 2001 From: w6vvn Date: Tue, 2 Sep 2025 08:21:58 -0700 Subject: [PATCH] primitive gemtext rendering. not helpful for links yet, but permits further progress on development --- gem300.rkt | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/gem300.rkt b/gem300.rkt index e5a70dd..724c5f0 100644 --- a/gem300.rkt +++ b/gem300.rkt @@ -144,7 +144,21 @@ ;; join each sublist into one string, and display one string per ;; line (for-each displayln - (map string-join (outer-iter (list) (string-split paragraph))))) + (map string-join (outer-iter (list) (string-split paragraph))))) + +(define (render-gemtext document) + (for-each (λ (line) + (cond [(text? line) + (render-paragraph (text-str line))] + + [(preformatted? line) + (for-each (λ (line) + (displayln line)) + (preformatted-str line))] + + [(link? line) + (printf "[#] ~a\n" (link-str line))])) + document)) (define commands (list