twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

update GenerateManpage to pandoc 1.12

Browse Source
This commit is contained in:
Adam Vogt 2014-05-11 17:14:41 +00:00
parent a9de363b14
commit f0054fdde7
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
util/GenerateManpage.hs
View File

@ -34,7 +34,7 @@ import Distribution.PackageDescription
import Text.PrettyPrint.HughesPJ import Text.PrettyPrint.HughesPJ
import Distribution.Text import Distribution.Text
import Text.Pandoc -- works with 1.6 import Text.Pandoc -- works with 1.12.4
releaseDate = "31 December 2012" releaseDate = "31 December 2012"
@ -68,9 +68,8 @@ main = do
`liftM` readFile "./src/XMonad/Config.hs" `liftM` readFile "./src/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 } parsed <- readMarkdown def
. unlines . unlines
. replace "___KEYBINDINGS___" keybindings . replace "___KEYBINDINGS___" keybindings
. lines . lines
@ -79,13 +78,13 @@ main = do
Right template <- getDefaultTemplate Nothing "man" Right template <- getDefaultTemplate Nothing "man"
writeFile "./man/xmonad.1" writeFile "./man/xmonad.1"
. (manHeader ++) . (manHeader ++)
. writeMan writeOpts{ writerStandalone = True, writerTemplate = template } . writeMan def{ writerStandalone = True, writerTemplate = template }
$ parsed $ parsed
putStrLn "Documentation created: man/xmonad.1" putStrLn "Documentation created: man/xmonad.1"
Right template <- getDefaultTemplate Nothing "html" Right template <- getDefaultTemplate Nothing "html"
writeFile "./man/xmonad.1.html" writeFile "./man/xmonad.1.html"
. writeHtmlString writeOpts . writeHtmlString def
{ writerVariables = { writerVariables =
[("include-before" [("include-before"
,"<h1>"++releaseName++"</h1>"++ ,"<h1>"++releaseName++"</h1>"++