summaryrefslogtreecommitdiffstats
path: root/util
diff options
context:
space:
mode:
Diffstat (limited to 'util')
-rw-r--r--util/GenerateManpage.hs12
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"