From 4b5ec2a5709404feb51ccc3900c0770ba81929bf Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Fri, 22 Sep 2023 17:43:09 -0500
Subject: Markdown and edit button

---
 web/view/brand/aging.scm |  6 ++++++
 web/view/markdown.scm    | 10 ++++++----
 2 files changed, 12 insertions(+), 4 deletions(-)

(limited to 'web/view')

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))))
-- 
cgit v1.2.3