for wikilink [directory/bla/blo/mypage]() display myPage instead of directory/bla/blo/mypage

Author: freiric

Network/Gitit2/WikiPage.hs

@@ -104,10 +104,13 @@ contentToWikiPage' title contents converter defaultFormat =
     doc = reader $ toString b
     Pandoc _ blocks = sanitizePandoc $ addWikiLinks doc
     convertWikiLinks :: Inline -> Inline
-    convertWikiLinks (Link ref ("", "")) = Link ref (converter ref, "")
+    convertWikiLinks (Link ref ("", "")) = Link (linkTitle ref) (converter ref, "")
     convertWikiLinks (Image ref ("", "")) = Image ref (converter ref, "")
     convertWikiLinks x = x
 
+    linkTitle [Str refStr] = [Str $ T.unpack $ last . T.splitOn "/" $ T.pack refStr]
+    linkTitle x = x
+
     addWikiLinks :: Pandoc -> Pandoc
     addWikiLinks = bottomUp (convertWikiLinks)
 
@@ -142,4 +145,3 @@ contentToWikiPage' title contents converter defaultFormat =
         sanitizeAttr (x,y) = case sanitizeAttribute (T.pack x, T.pack y) of
                                   Just (w,z) -> Just (T.unpack w, T.unpack z)
                                   Nothing    -> Nothing
-