From 4981da2c5e276dca0bcb55f02320d941af7c6035 Mon Sep 17 00:00:00 2001
From: Eric Drechsel <eric@pdxhub.org>
Date: Thu, 14 Oct 2021 11:53:53 -0700
Subject: [PATCH] DRAFT: online edit link

---
 default/templates/components/footer.tpl | 12 +++++++++++-
 docs/index.yaml                         |  3 +++
 src/Emanote/View/Template.hs            |  2 ++
 3 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/default/templates/components/footer.tpl b/default/templates/components/footer.tpl
index 4dd650c4b..3a01eea33 100644
--- a/default/templates/components/footer.tpl
+++ b/default/templates/components/footer.tpl
@@ -1,4 +1,4 @@
-<footer class="flex items-center justify-center mt-2 mb-8 space-x-4 text-center text-gray-800">
+<footer class="flex justify-center items-center mt-2 mb-8 space-x-4 text-center text-gray-800">
   <div>
     <a href="">
       <svg xmlns="http://www.w3.org/2000/svg" class="${iconSize} inline" fill="none"
@@ -27,6 +27,16 @@
         </path>
       </svg>
     </a>
+  </div>
+  <div>
+    <a href="${ema:note:editUrl}" title="Edit this page" rel="edit">
+      <svg style="width: 1rem;" class="hover:text-${theme}-700" fill="none" stroke="currentColor"
+        viewBox="0 0 24 24" xmlns="http://www.w3.org/2000/svg">
+        <path fill-rule="evenodd"
+          d="M7.293 14.707a1 1 0 010-1.414L10.586 10 7.293 6.707a1 1 0 011.414-1.414l4 4a1 1 0 010 1.414l-4 4a1 1 0 01-1.414 0z"
+          clip-rule="evenodd"></path>
+      </svg>
+    </a>
 
   </div>
 </footer>
\ No newline at end of file
diff --git a/docs/index.yaml b/docs/index.yaml
index 61747b37e..2fbdce6b9 100644
--- a/docs/index.yaml
+++ b/docs/index.yaml
@@ -7,6 +7,9 @@ page:
   headHtml: |
     <snippet var="js.prism" />
 
+site:
+  editBaseUrl: https://github.com/srid/emanote/edit/master/docs/
+
 pandoc:
   rewriteClass:
     # For use in notes with Prism.JS disabled
diff --git a/src/Emanote/View/Template.hs b/src/Emanote/View/Template.hs
index 8128cb5a4..e4e834009 100644
--- a/src/Emanote/View/Template.hs
+++ b/src/Emanote/View/Template.hs
@@ -164,6 +164,8 @@ renderLmlHtml model note = do
         "tree:open" ## Heist.ifElseISplice (not . null $ children)
     "ema:note:uptree:nonempty" ## Heist.ifElseISplice (not . null $ folgeAnc)
     "ema:note:uptreeStr" ## HI.textSplice (toText . Shower.shower $ folgeAnc)
+    "ema:note:editUrl"
+      ## HI.textSplice (MN.lookupAeson @Text "edit/" ("site" :| ["editBaseUrl"]) meta <> toText (R.encodeRoute $ R.lmlRouteCase r))
     "ema:note:pandoc"
       ## withBlockCtx
       $ \ctx ->