diff options
| author | Pjotr Prins | 2023-09-22 17:43:09 -0500 |
|---|---|---|
| committer | Pjotr Prins | 2023-09-22 17:43:09 -0500 |
| commit | 4b5ec2a5709404feb51ccc3900c0770ba81929bf (patch) | |
| tree | 4ee3af5fc9a4b518db6c786beb62ece97886e3cb /web/view | |
| parent | 2a75f39404519ae6697c90a703e61fa65452872e (diff) | |
| download | gn-guile-4b5ec2a5709404feb51ccc3900c0770ba81929bf.tar.gz | |
Markdown and edit button
Diffstat (limited to 'web/view')
| -rw-r--r-- | web/view/brand/aging.scm | 6 | ||||
| -rw-r--r-- | web/view/markdown.scm | 10 |
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)))) |