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