w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

clean up formatting on gmi:render procedure and document

Browse Source
This commit is contained in:
w6vvn
2025-09-03 20:15:21 -07:00
parent 41e092975d
commit febdca7180
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
gmi.rkt
View File

@@ -125,9 +125,13 @@
(map string-join (outer-iter (list) (string-split paragraph)))) (map string-join (outer-iter (list) (string-split paragraph))))
(newline))) (newline)))
;; given a document, which is a list of structs, render it out into
;; the current output port exactly as it will be shown to the user
(define (render document) (define (render document)
(for-each (λ (line) (for-each
(cond [(text? line) (λ (line)
(cond
[(text? line)
(render-paragraph (text-str line))] (render-paragraph (text-str line))]
[(pre? line) [(pre? line)