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

Fix manpage generator

Browse Source
This commit is contained in:
Spencer Janssen 2007-05-28 06:26:58 +00:00
parent abdbc23551
commit 39fd73a7f7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
util/GenerateManpage.hs
View File

@ -36,7 +36,7 @@ allBindings xs = map (binding . map trim) (xs =~ "(.*)--(.*)@@(.*)")
-- FIXME: What escaping should we be doing on these strings? -- FIXME: What escaping should we be doing on these strings?
troff :: (String, String) -> String troff :: (String, String) -> String
troff (key, desc) = ".IP \\fB" ++ key ++ "\\fR\n" ++ desc ++ "\n" troff (key, desc) = ".IP\n \\fB" ++ key ++ "\\fR\n" ++ desc ++ "\n"
replace :: Eq a => a -> a -> [a] -> [a] replace :: Eq a => a -> a -> [a] -> [a]
replace x y = map (\a -> if a == x then y else a) replace x y = map (\a -> if a == x then y else a)