Provide absolute URIs for pancake.el

1 files changed, 6 insertions, 4 deletions

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]