include scheme in rendered links

2025-09-06 16:58:02 -07:00
parent dbe6bbf43b
commit 75187116eb
1 changed files with 5 additions and 1 deletions
--- a/gmi.rkt
+++ b/gmi.rkt
@@ -146,7 +146,11 @@
        (for-each displayln (pre-lines 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)))