From 1ed8185e53c1e7aa75e2c418b28d522e6fc6b981 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 10 Jun 2022 16:57:10 +0530
Subject: Link to channels.scm from laminar page.

* genenetwork-development.scm (laminar-template-gexp): Link to
channels.scm.
---
 genenetwork-development.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 5036c13..c344dc5 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -661,7 +661,7 @@ command to be executed."
 
 (define (laminar-template-gexp issue-tracker-uri)
   "Return a G-expression that creates a custom Laminar template with a
-menu link to the issue tracker at ISSUE-TRACKER-URI."
+menu link to channels.scm and the issue tracker at ISSUE-TRACKER-URI."
   (with-imported-modules '((guix build utils))
     #~(begin
         (use-modules (guix build utils))
@@ -676,9 +676,11 @@ menu link to the issue tracker at ISSUE-TRACKER-URI."
                                "/src/resources/index.html"))
         (copy-file "index.html" #$output)
         (substitute* #$output
-          (("<router-link to=\"jobs\">Jobs</router-link>" all)
-           (string-append all
-                          "<a href=\"" #$issue-tracker-uri "\" target=\"_blank\">Issues</a>"))))))
+          (("<router-link to=\"jobs\">Jobs</router-link>" jobs-link)
+           (string-append
+            "<a href=\"/channels.scm\" target=\"_blank\">channels.scm</a>"
+            jobs-link
+            "<a href=\"" #$issue-tracker-uri "\" target=\"_blank\">Issues</a>"))))))
 
 (define (install-laminar-template-gexp template)
   "Return a G-expression that installs custom laminar TEMPLATE."
-- 
cgit v1.2.3