diff options
Diffstat (limited to 'util/GenerateManpage.hs')
| -rw-r--r-- | util/GenerateManpage.hs | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/util/GenerateManpage.hs b/util/GenerateManpage.hs index 77a45ab..3c289d8 100644 --- a/util/GenerateManpage.hs +++ b/util/GenerateManpage.hs @@ -33,7 +33,7 @@ import Distribution.Text import Text.Pandoc -releaseDate = "\"8 September 09\"" +releaseDate = "25 October 09" trim :: String -> String trim = reverse . dropWhile isSpace . reverse . dropWhile isSpace @@ -64,7 +64,7 @@ main = do keybindings <- (intercalate "\n\n" . map markdownDefn . allBindings) `liftM` readFile "./XMonad/Config.hs" - let manHeader = unwords [".TH xmonad 1",releaseDate,releaseName,"\"xmonad manual\""] + let manHeader = unwords [".TH xmonad 1","\""++releaseDate++"\"",releaseName,"\"xmonad manual\""] writeOpts = defaultWriterOptions -- { writerLiterateHaskell = True } parsed <- readMarkdown defaultParserState { stateLiterateHaskell = True } @@ -80,6 +80,12 @@ main = do putStrLn "Documentation created: man/xmonad.1" writeFile "./man/xmonad.1.html" - . writeHtmlString writeOpts { writerStandalone = True } + . writeHtmlString writeOpts + { writerHeader = "<h1>"++releaseName++"</h1>"++ + "<p>Section: xmonad manual (1)<br>"++ + "Updated: "++releaseDate++"</p>"++ + "<hr>" + , writerStandalone = True + , writerTableOfContents = True } $ parsed putStrLn "Documentation created: man/xmonad.1.html" |