diff options
| author | Arun Isaac | 2022-06-10 16:57:10 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-10 19:50:33 +0530 |
| commit | 1ed8185e53c1e7aa75e2c418b28d522e6fc6b981 (patch) | |
| tree | e2b9e414339b8ea774d470099f72e1ee9aafc7dc | |
| parent | 0041ace0ab0595d6010b724714a2673460ae9775 (diff) | |
| download | gn-machines-1ed8185e53c1e7aa75e2c418b28d522e6fc6b981.tar.gz | |
Link to channels.scm from laminar page.
* genenetwork-development.scm (laminar-template-gexp): Link to
channels.scm.
| -rw-r--r-- | genenetwork-development.scm | 10 |
1 files 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." |