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

include scheme in rendered links

Browse Source
This commit is contained in:
w6vvn
2025-09-06 16:58:02 -07:00
parent dbe6bbf43b
commit 75187116eb
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gmi.rkt
View File

@@ -146,7 +146,11 @@
(for-each displayln (pre-lines item))] (for-each displayln (pre-lines item))]
[(link? item) [(link? item)
(printf "[~a] ~a\n" (link-id item) (link-line 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))))]))
(document-items document))) (document-items document)))