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)))