subject link rendering to paragraph wrapping

2025-09-06 17:03:45 -07:00
parent 75187116eb
commit b4d226477e
1 changed files with 6 additions and 5 deletions
--- a/gmi.rkt
+++ b/gmi.rkt
@@ -146,11 +146,12 @@
        (for-each displayln (pre-lines item))]

       [(link? item)
+        (render-paragraph
         (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))))]))
+               (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)))