diff options
| author | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-17 01:52:29 +0200 |
|---|---|---|
| committer | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-17 01:52:29 +0200 |
| commit | 23a0a3a3a683a4237196699a09719371e2042190 (patch) | |
| tree | 9cf560815d8d325b1dcefc80a0e6d2e7258394b4 /util | |
| parent | 2abea3a731f8bde30ddd618db4764ec85eeefcaa (diff) | |
| download | metatile-23a0a3a3a683a4237196699a09719371e2042190.tar metatile-23a0a3a3a683a4237196699a09719371e2042190.zip | |
Change manpage token @@ to %! to avoid conflicts with Haddock (xmonad)
darcs-hash:20070916235229-bd4fb-a0a20d34ba6fd4acdde2cc3019ca3685bb401018
Diffstat (limited to 'util')
| -rw-r--r-- | util/GenerateManpage.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/util/GenerateManpage.hs b/util/GenerateManpage.hs index 5137184..88d4848 100644 --- a/util/GenerateManpage.hs +++ b/util/GenerateManpage.hs @@ -4,14 +4,14 @@ -- -- Format for the docstrings in Config.hs takes the following form: -- --- -- mod-x @@ Frob the whatsit +-- -- mod-x %! Frob the whatsit -- -- "Frob the whatsit" will be used as the description for keybinding "mod-x" -- -- If the keybinding name is omitted, it will try to guess from the rest of the -- line. For example: -- --- [ ((modMask .|. shiftMask, xK_Return), spawn "xterm") -- @@ Launch an xterm +-- [ ((modMask .|. shiftMask, xK_Return), spawn "xterm") -- %! Launch an xterm -- -- Here, mod-shift-return will be used as the keybinding name. -- @@ -32,7 +32,7 @@ binding [ _, bindingLine, "", desc ] = (guessKeys bindingLine, desc) binding [ _, _, keyCombo, desc ] = (keyCombo, desc) allBindings :: String -> [(String, String)] -allBindings xs = map (binding . map trim) (xs =~ "(.*)--(.*)@@(.*)") +allBindings xs = map (binding . map trim) (xs =~ "(.*)--(.*)%!(.*)") -- FIXME: What escaping should we be doing on these strings? troff :: (String, String) -> String |