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

subject link rendering to paragraph wrapping

Browse Source
This commit is contained in:
w6vvn
2025-09-06 17:03:45 -07:00
parent 75187116eb
commit b4d226477e
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
gmi.rkt
View File

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