aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPjotr Prins2023-09-14 12:17:19 -0500
committerPjotr Prins2023-09-14 12:17:19 -0500
commit2a75f39404519ae6697c90a703e61fa65452872e (patch)
tree76bde978b1f0a47d90d588391de0e3af225143c0
parent46a218730028f7c3aedeabf62f47883752651fb4 (diff)
downloadgn-guile-2a75f39404519ae6697c90a703e61fa65452872e.tar.gz
Added edit button
-rw-r--r--web/css/gn-lite.css8
-rw-r--r--web/view/brand/msk.scm6
-rw-r--r--web/view/markdown.scm11
3 files changed, 23 insertions, 2 deletions
diff --git a/web/css/gn-lite.css b/web/css/gn-lite.css
new file mode 100644
index 0000000..3ce6ace
--- /dev/null
+++ b/web/css/gn-lite.css
@@ -0,0 +1,8 @@
+.markdown {
+ background-color: #fffde7;
+ padding: 20px;
+}
+
+.button_align_right{
+ float:right;
+}
diff --git a/web/view/brand/msk.scm b/web/view/brand/msk.scm
index c20d8d9..69c1253 100644
--- a/web/view/brand/msk.scm
+++ b/web/view/brand/msk.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
(main (@ (class "container"))
diff --git a/web/view/markdown.scm b/web/view/markdown.scm
index c0cb992..4dbedb2 100644
--- a/web/view/markdown.scm
+++ b/web/view/markdown.scm
@@ -39,8 +39,15 @@
(define (form-github-raw-url project repo page)
(string-append "https://raw.githubusercontent.com/" project "/" repo "/master/" (string-join page "/")))
+(define (form-github-edit-url project repo page)
+ (string-append "https://github.com/" project "/" repo "/edit/master/" (string-join page "/")))
+
(define (markdown-github->sxml path)
"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 #\/)))
- (commonmark->sxml
- (fetch-raw-file (pk (form-github-raw-url project repo (pk page)))))))
+ `(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)))))))
+)