From b4d226477ed225d37cef7805ed6a9288e2e7cda6 Mon Sep 17 00:00:00 2001 From: w6vvn Date: Sat, 6 Sep 2025 17:03:45 -0700 Subject: [PATCH] subject link rendering to paragraph wrapping --- gmi.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/gmi.rkt b/gmi.rkt index 593bbdf..c9d9b0e 100644 --- a/gmi.rkt +++ b/gmi.rkt @@ -146,11 +146,12 @@ (for-each displayln (pre-lines item))] [(link? item) - (let ([scheme (url-scheme (link-url item))]) - (if (or (not scheme) - (string=? scheme "gemini")) - (printf "[~a] ~a\n" (link-id item) (link-line item)) - (printf "[~a ~a] ~a\n" (link-id item) scheme (link-line item))))])) + (render-paragraph + (let ([scheme (url-scheme (link-url item))]) + (if (or (not scheme) + (string=? scheme "gemini")) + (format "[~a] ~a\n" (link-id item) (link-line item)) + (format "[~a ~a] ~a\n" (link-id item) scheme (link-line item)))))])) (document-items document)))