aboutsummaryrefslogtreecommitdiff
path: root/web/view/markdown.scm
diff options
context:
space:
mode:
authorPjotr Prins2023-09-22 17:43:09 -0500
committerPjotr Prins2023-09-22 17:43:09 -0500
commit4b5ec2a5709404feb51ccc3900c0770ba81929bf (patch)
tree4ee3af5fc9a4b518db6c786beb62ece97886e3cb /web/view/markdown.scm
parent2a75f39404519ae6697c90a703e61fa65452872e (diff)
downloadgn-guile-4b5ec2a5709404feb51ccc3900c0770ba81929bf.tar.gz
Markdown and edit button
Diffstat (limited to 'web/view/markdown.scm')
-rw-r--r--web/view/markdown.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/web/view/markdown.scm b/web/view/markdown.scm
index 4dbedb2..2af2b26 100644
--- a/web/view/markdown.scm
+++ b/web/view/markdown.scm
@@ -46,8 +46,10 @@
"Parse a github markdown file that is formed like genenetwork/gn-docs/general/brand/aging/home.md"
(match-let (((project repo page ...) (string-split path #\/)))
`(div (@ (class "markdown"))
- (div (@ (class "button_align_right"))
- (a (@ (href ,(form-github-edit-url project repo page)) (role "button")) "edit text"))
,(commonmark->sxml
- (fetch-raw-file (pk (form-github-raw-url project repo (pk page)))))))
-)
+ (fetch-raw-file (pk (form-github-raw-url project repo (pk page)))))
+ (p
+ (div (@ (class "button-align-right"))
+ (a (@ (href ,(form-github-edit-url project repo page)) (role "button")) "edit")))
+ (br)
+ (br))))