primitive gemtext rendering. not helpful for links yet, but permits further progress on development

gem300.rkt

@@ -146,6 +146,20 @@
   (for-each displayln
             (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
    (cons "default" (lambda (line) (void)))