tissue: Add edit and blame links to issue pages.

* tissue.scm (%github-repo-uri, %repo-branch): New variables.
(genenetwork-gemtext-reader): New function.
(#:web-files): Use genenetwork-gemtext-reader instead of
gemtext-reader.

1 files changed, 20 insertions, 1 deletions

diff --git a/tissue.scm b/tissue.scm
index 25fc2dc..08abe0b 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -1,5 +1,24 @@
 (import (tissue tissue))
 
+(define %github-repo-uri
+  "https://github.com/genenetwork/gn-gemtext-threads")
+
+(define %repo-branch
+  "main")
+
+(define (genenetwork-gemtext-reader file)
+  (lambda (port)
+    (match ((gemtext-reader) port)
+      ((? eof-object? eof) eof)
+      (('document body ...)
+       `(document
+         (ref #:url ,(string-append %github-repo-uri "/edit/" %repo-branch "/" file)
+              #:text "Edit this page")
+         " | "
+         (ref #:url ,(string-append %github-repo-uri "/blame/" %repo-branch "/" file)
+              #:text "Blame")
+         ,@body)))))
+
 (tissue-configuration
  #:project "GeneNetwork issue tracker"
  #:aliases '(("Alexander Kabui" "alex")
@@ -27,5 +46,5 @@
                                                               "README.gmi"))
                                                (file (replace-extension filename "html")
                                                      (gemtext-exporter filename
-                                                                       (gemtext-reader)))))
+                                                                       (genenetwork-gemtext-reader filename)))))
                                         (git-tracked-files)))))