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

Grab the xmonad.cabal version for putting into the manpage

Browse Source
This commit is contained in:
Adam Vogt 2009-10-24 20:09:20 +00:00
parent 17c89e327e
commit b4bf8de874
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
man/xmonad.1.in
View File

@ -1,6 +1,8 @@
./" man page created by David Lazar on April 24, 2007
./" uses ``tmac.an'' macro set
.TH xmonad 1 "18 April 07" xmonad\-1.0 "xmonad manual"
.TH xmonad 1 "8 September 09"\
___RELEASE___\
"xmonad manual"
.SH NAME
xmonad \- a tiling window manager
.SH DESCRIPTION

12
util/GenerateManpage.hs
View File

@ -20,6 +20,13 @@ import Text.Regex.Posix
import Data.Char
import Data.List
import Distribution.PackageDescription.Parse
import Distribution.Verbosity
import Distribution.Package
import Distribution.PackageDescription
import Text.PrettyPrint.HughesPJ
import Distribution.Text
trim :: String -> String
trim = reverse . dropWhile isSpace . reverse . dropWhile isSpace
@ -42,6 +49,9 @@ replace :: Eq a => a -> a -> [a] -> [a]
replace x y = map (\a -> if a == x then y else a)
main = do
releaseName <- ((' ':) . (++" \\") . show . disp . package . packageDescription) `liftM` readPackageDescription normal "xmonad.cabal"
troffBindings <- (concatMap troff . allBindings) `liftM` readFile "./XMonad/Config.hs"
let sed = unlines . replace "___KEYBINDINGS___" troffBindings . lines
let sed = unlines . replace "___RELEASE___\\" releaseName . replace "___KEYBINDINGS___" troffBindings . lines
readFile "./man/xmonad.1.in" >>= return . sed >>= writeFile "./man/xmonad.1"