From b627b6b13cf860df11efc8d1b0df75ed129f361a Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Mon, 25 Dec 2017 19:20:40 +0300
Subject: Provide absolute URIs for pancake.el

---
 Pancake/Printing.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'Pancake')

diff --git a/Pancake/Printing.hs b/Pancake/Printing.hs
index 5ef3a81..6778ac8 100644
--- a/Pancake/Printing.hs
+++ b/Pancake/Printing.hs
@@ -110,10 +110,12 @@ showSexps uri ro =
                                  , showDenotation d
                                  , showSexp s]
     showDenotation :: Denotation -> String
-    showDenotation (Link u) = list ["link", ".", encodeSexpStr $ show u]
-    showDenotation (Image u) = list ["image", ".", encodeSexpStr $ show u]
-    showDenotation (Math m) = list ["math", ".", encodeSexpStr m]
-    showDenotation (Heading l) = list ["heading", ".", show l]
+    showDenotation (Link u) = list [ "link", encodeSexpStr $ show u
+                                   , encodeSexpStr $ show $ relativeTo u uri]
+    showDenotation (Image u) = list [ "image", encodeSexpStr $ show u
+                                    , encodeSexpStr $ show $ relativeTo u uri]
+    showDenotation (Math m) = list ["math", encodeSexpStr m]
+    showDenotation (Heading l) = list ["heading", show l]
 
 -- | Merge elements with the same styling.
 mergeStyled :: [Styled] -> [Styled]
-- 
cgit v1.2.3