Update util/GenerateManpage to be pandoc-1.4 compatible

Ignore-this: 3f5efd5786ef0182a6f86494d1d933c9

darcs-hash:20100403181354-1499c-56cae48d86405d346010fb6d0d20afa71f1caa4c

1 files changed, 8 insertions, 4 deletions

diff --git a/util/GenerateManpage.hs b/util/GenerateManpage.hs
index 9c7e2e0..e0acb31 100644
--- a/util/GenerateManpage.hs
+++ b/util/GenerateManpage.hs
@@ -76,19 +76,23 @@ main = do
         . lines
         <$> readFile "./man/xmonad.1.markdown"
 
+    Right template <- getDefaultTemplate "man"
     writeFile "./man/xmonad.1"
         . (manHeader ++)
-        . writeMan writeOpts
+        . writeMan writeOpts{ writerStandalone = True, writerTemplate = template }
         $ parsed
     putStrLn "Documentation created: man/xmonad.1"
 
+    Right template <- getDefaultTemplate "html"
     writeFile "./man/xmonad.1.html"
         . writeHtmlString writeOpts
-            { writerHeader = "<h1>"++releaseName++"</h1>"++
-                             "<p>Section: xmonad manual (1)<br>"++
+            { writerIncludeBefore =
+                             "<h1>"++releaseName++"</h1>"++
+                             "<p>Section: xmonad manual (1)<br/>"++
                              "Updated: "++releaseDate++"</p>"++
-                             "<hr>"
+                             "<hr/>"
             , writerStandalone = True
+            , writerTemplate = template
             , writerTableOfContents = True }
         $ parsed
     putStrLn "Documentation created: man/xmonad.1.html"