From 454244b774ece37f04f146c74353ea4ec35d43e1 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 21 Sep 2025 10:40:20 +0200
Subject: Render subdir of home/aging

---
 web/view/view.scm | 2 +-
 web/webserver.scm | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/web/view/view.scm b/web/view/view.scm
index 6b2ef22..95ff0a1 100644
--- a/web/view/view.scm
+++ b/web/view/view.scm
@@ -44,7 +44,7 @@ data to benefit from the power of integrated datasets, please contact:")
               (img (@ (src "/static/images/CMOR.jpg") (width "1000"))))))
 
 (define* (view-brand path)
-  (match (pk path)
+  (match path
     ("aging/UMHET-3" (aging-html #:info
               `(,(markdown-github->sxml "genenetwork/gn-docs/general/brand/aging/home.md"))))
     ("aging/umhet-3" (aging-html #:info
diff --git a/web/webserver.scm b/web/webserver.scm
index e0b0ea6..0c0bdd1 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -258,6 +258,8 @@ otherwise search for set/group data"
      (render-static-image (string-append (dirname (current-filename)) "/static/images/" fn)))
     (('GET "home" path)
      (render-brand path)) ; branding route for /home/aging, /home/msk etc
+    (('GET "home" "aging" path)
+     (render-brand (string-append "aging/" path))) ; branding route subs of /home/aging/...
     (('GET "dataset" "bxd-publish" "list")
      (render-json (get-bxd-publish)))
     (('GET "dataset" "bxd-publish" "dataid" "values" page)
-- 
cgit 1.4.1