twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 20:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

Update util/GenerateManpage to be pandoc-1.4 compatible

Browse Source
This commit is contained in:
Adam Vogt
2010-04-03 18:13:54 +00:00
parent 673c3e9ed9
commit fa8fe9aca4
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
util/GenerateManpage.hs
View File

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