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 util/GenerateManpage for pandoc 1.6

Browse Source
This commit is contained in:
Adam Vogt 2010-12-31 16:31:18 +00:00
parent fa8fe9aca4
commit ae59a5184f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
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 import Text.Pandoc -- works with 1.6
releaseDate = "25 October 09" releaseDate = "25 October 09"
@ -76,21 +76,22 @@ main = do
. lines . lines
<$> readFile "./man/xmonad.1.markdown" <$> readFile "./man/xmonad.1.markdown"
Right template <- getDefaultTemplate "man" Right template <- getDefaultTemplate Nothing "man"
writeFile "./man/xmonad.1" writeFile "./man/xmonad.1"
. (manHeader ++) . (manHeader ++)
. writeMan writeOpts{ writerStandalone = True, writerTemplate = template } . writeMan writeOpts{ writerStandalone = True, writerTemplate = template }
$ parsed $ parsed
putStrLn "Documentation created: man/xmonad.1" putStrLn "Documentation created: man/xmonad.1"
Right template <- getDefaultTemplate "html" Right template <- getDefaultTemplate Nothing "html"
writeFile "./man/xmonad.1.html" writeFile "./man/xmonad.1.html"
. writeHtmlString writeOpts . writeHtmlString writeOpts
{ writerIncludeBefore = { writerVariables =
"<h1>"++releaseName++"</h1>"++ [("include-before"
,"<h1>"++releaseName++"</h1>"++
"<p>Section: xmonad manual (1)<br/>"++ "<p>Section: xmonad manual (1)<br/>"++
"Updated: "++releaseDate++"</p>"++ "Updated: "++releaseDate++"</p>"++
"<hr/>" "<hr/>")]
, writerStandalone = True , writerStandalone = True
, writerTemplate = template , writerTemplate = template
, writerTableOfContents = True } , writerTableOfContents = True }