From b0ef58eaff0e5966dc1dafc6abba8e42e3db1fe2 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 20 Apr 2026 10:12:30 +0300
Subject: Add trait page link for probesets and phenotypes.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/phenotype.scm                     | 5 +++++
 examples/probesets-experiment-metadata.scm | 7 +++++++
 2 files changed, 12 insertions(+)

diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index 57fd2c5..70deed7 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -86,6 +86,11 @@
     (set owl:equivalentClass
          (field ("CONCAT(PublishFreeze.Name, '_', PublishXRef.Id)"
                  PublishFreeze)))
+    (set gnt:has_trait_page
+         (string->symbol
+          (format #f "<https://genenetwork.org/show_trait?trait_id=~a&dataset=~a>"
+                  (field PublishXRef Id)
+                  (field PublishFreeze Name))))
     (set dcat:distribution
          (string->symbol
           (format #f "gnd:~a.json"
diff --git a/examples/probesets-experiment-metadata.scm b/examples/probesets-experiment-metadata.scm
index 83a8ead..4bab425 100755
--- a/examples/probesets-experiment-metadata.scm
+++ b/examples/probesets-experiment-metadata.scm
@@ -30,6 +30,13 @@
     ;;        (format #f "gnd:~a.json"
     ;;                (field ("CONCAT(ProbeSetFreeze.Name, '_', ProbeSet.Name)"
     ;;                        PublishFreeze))))) )
+    (set gnt:has_trait_page
+         (string->symbol
+          (format #f "<https://genenetwork.org/show_trait?trait_id=~a&dataset=~a>"
+                  (field ProbeSet Name)
+                  ;; GTEx_Lung _0414
+                  (uri-encode
+                   (field ProbeSetFreeze Name ProbeSetFreezeName)))))
     (set gnt:has_probeset (string->identifier "probeset" (field ProbeSet Name ProbeSetName)))
     (set dcat:isPartOf (string->identifier "dataset" (field ProbeSetFreeze Name ProbeSetFreezeName)
                                            #:separator "_"))
-- 
cgit 1.4.1