aboutsummaryrefslogtreecommitdiff
path: root/web/view
diff options
context:
space:
mode:
Diffstat (limited to 'web/view')
-rw-r--r--web/view/brand/aging.scm6
-rw-r--r--web/view/markdown.scm10
2 files changed, 12 insertions, 4 deletions
diff --git a/web/view/brand/aging.scm b/web/view/brand/aging.scm
index e4e72e6..19db4d7 100644
--- a/web/view/brand/aging.scm
+++ b/web/view/brand/aging.scm
@@ -37,6 +37,12 @@
(type "text/css")
(href "/css/pico.css")
))
+ (link
+ (@ (rel "stylesheet")
+ (media "screen")
+ (type "text/css")
+ (href "/css/gn-lite.css")
+ ))
,@head)
(body
;; (header (p "TEST"))
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))))