aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--web/css/gn-lite.css5
-rw-r--r--web/view/brand/aging.scm6
-rw-r--r--web/view/markdown.scm10
3 files changed, 15 insertions, 6 deletions
diff --git a/web/css/gn-lite.css b/web/css/gn-lite.css
index 3ce6ace..4eb2968 100644
--- a/web/css/gn-lite.css
+++ b/web/css/gn-lite.css
@@ -3,6 +3,7 @@
padding: 20px;
}
-.button_align_right{
- float:right;
+.button-align-right{
+ float: right;
+ padding: 5px;
}
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))))