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

add special case for empty paragraphs

Browse Source
This commit is contained in:
w6vvn
2025-09-02 18:25:17 -07:00
parent dc2d9ed906
commit a78e3c8b09
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gem300.rkt
View File

@@ -149,10 +149,14 @@
(inner-iter (list) rst)]) (inner-iter (list) rst)])
(outer-iter (append acc (list inner-acc)) inner-rst)))) (outer-iter (append acc (list inner-acc)) inner-rst))))
;; the algorithm implemented here does not work for empty
;; paragraphs. thus, they are handled as a special case here.
(if (non-empty-string? paragraph)
;; join each sublist into one string, and display one string per ;; join each sublist into one string, and display one string per
;; line ;; line
(for-each displayln (for-each displayln
(map string-join (outer-iter (list) (string-split paragraph))))) (map string-join (outer-iter (list) (string-split paragraph))))
(newline)))
(define (render-gemtext document) (define (render-gemtext document)
(for-each (λ (line) (for-each (λ (line)