diff options
| author | Pjotr Prins | 2023-09-12 15:10:21 -0500 |
|---|---|---|
| committer | Pjotr Prins | 2023-09-12 15:10:21 -0500 |
| commit | 3b7f80d4471036050e6416e029f2c76c8e468ed0 (patch) | |
| tree | ce3fd3e7ba16104ca2897be07c693b733f053c52 /web/view/view.scm | |
| parent | 278e35a4150bfcc18232be93857000032e60d484 (diff) | |
| download | gn-guile-3b7f80d4471036050e6416e029f2c76c8e468ed0.tar.gz | |
Adding markdown support
Diffstat (limited to 'web/view/view.scm')
| -rw-r--r-- | web/view/view.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/web/view/view.scm b/web/view/view.scm index 20f3578..7ba7979 100644 --- a/web/view/view.scm +++ b/web/view/view.scm @@ -7,6 +7,7 @@ #:use-module (ice-9 string-fun) #:use-module (sxml simple) #:use-module (web sxml) + #:use-module (web view markdown) #:use-module (web view brand msk) #:use-module (web view brand aging) @@ -14,13 +15,14 @@ (define (view-aging) (aging-html #:info - '((h2 "Introduction") + `( (p "New aging portal! This is initial work for providing a full community webservice for aging.") + ,(markdown-file->sxml "test.md") (h2 "Explore GeneNetwork for aging (GN4AGING)") - (p "Find all genes that have a hit for") + (p "Find all " (mark "genes") " that have a hit for") (ul (li (a (@ (href "https://genenetwork.org/gsearch?type=gene&terms=aging")) "aging"))) - (p "Find all phenotypes that have a hit for") + (p "Find all " (mark "phenotypes") " that have a hit for") (ul (li (a (@ (href "https://genenetwork.org/gsearch?type=phenotype&terms=aging")) "aging")) ) |