Prepending level 1 heading

1 files changed, 9 insertions, 4 deletions

diff --git a/src/Servall/WikiParser.hs b/src/Servall/WikiParser.hs
index 2680fad..e284a3b 100644
--- a/src/Servall/WikiParser.hs
+++ b/src/Servall/WikiParser.hs
@@ -32,8 +32,9 @@ import qualified Data.Text                     as T
 import           Data.Text                      ( Text )
 import           GHC.Generics                   ( Generic )
 import           Servall.Types
-import           Text.Pandoc.Definition         ( Inline(..)
-                                                , Pandoc
+import           Text.Pandoc.Definition         ( Block(..)
+                                                , Inline(..)
+                                                , Pandoc(..)
                                                 )
 import           Text.Pandoc.Generic            ( topDown )
 
@@ -109,8 +110,12 @@ wikilinkP = do
   content <- T.pack <$> manyTill anyChar (string "]]")
   return $ beg <> content <> "]]"
 
-wikiFilter :: Pandoc -> Pandoc
-wikiFilter = topDown fixUrl
+wikiFilter :: Text -> Pandoc -> Pandoc
+wikiFilter title = insertHeader title . topDown fixUrl
+
+insertHeader :: Text -> Pandoc -> Pandoc
+insertHeader title (Pandoc m bs) =
+  Pandoc m (Header 1 ("", [], []) [Str title] : bs)
 
 fixUrl :: Inline -> Inline
 fixUrl (Link attr label (url, "wikilink")) =