From 75187116eb16f4e8ee62aa228b2a803c6eeb72e5 Mon Sep 17 00:00:00 2001
From: w6vvn <vivienne@w6vvn.net>
Date: Sat, 6 Sep 2025 16:58:02 -0700
Subject: [PATCH] include scheme in rendered links

---
 gmi.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gmi.rkt b/gmi.rkt
index 912f387..593bbdf 100644
--- 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)))