aboutsummaryrefslogtreecommitdiff
path: root/web/view/view.scm
diff options
context:
space:
mode:
authorPjotr Prins2023-09-12 15:10:21 -0500
committerPjotr Prins2023-09-12 15:10:21 -0500
commit3b7f80d4471036050e6416e029f2c76c8e468ed0 (patch)
treece3fd3e7ba16104ca2897be07c693b733f053c52 /web/view/view.scm
parent278e35a4150bfcc18232be93857000032e60d484 (diff)
downloadgn-guile-3b7f80d4471036050e6416e029f2c76c8e468ed0.tar.gz
Adding markdown support
Diffstat (limited to 'web/view/view.scm')
-rw-r--r--web/view/view.scm8
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"))
)