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

GenerateManpage: fix compiler warnings

Browse Source
This commit is contained in:
Peter Simons 2018-08-20 11:59:40 +02:00
parent f0975b734c
commit ec97d83f3f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
util/GenerateManpage.hs
View File

@ -8,7 +8,6 @@
-- Unlike the rest of xmonad, this file is released under the GNU General -- Unlike the rest of xmonad, this file is released under the GNU General
-- Public License version 2 or later. -- Public License version 2 or later.
import Control.Monad
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Data.Char import Data.Char
import Data.List import Data.List
@ -71,11 +70,16 @@ allBindings xs = map (binding . map trim) (xs =~ "(.*)--(.*)%!(.*)")
binding :: [String] -> (String, String) binding :: [String] -> (String, String)
binding [ _, bindingLine, "", desc ] = (guessKeys bindingLine, desc) binding [ _, bindingLine, "", desc ] = (guessKeys bindingLine, desc)
binding [ _, _, keyCombo, desc ] = (keyCombo, desc) binding [ _, _, keyCombo, desc ] = (keyCombo, desc)
binding x = error ("binding: called with unexpected argument " ++ show x)
guessKeys :: String -> String guessKeys :: String -> String
guessKeys line = concat $ intersperse "-" (modifiers ++ [map toLower key]) guessKeys line =
where modifiers = map (!!1) (line =~ "(mod|shift|control)Mask") case keys of
(_, _, _, [key]) = line =~ "xK_([_[:alnum:]]+)" :: (String, String, String, [String]) [key] -> concat $ intersperse "-" (modifiers ++ [map toLower key])
_ -> error ("guessKeys: unexpected number of keys " ++ show keys)
where
modifiers = map (!!1) (line =~ "(mod|shift|control)Mask")
(_, _, _, keys) = line =~ "xK_([_[:alnum:]]+)" :: (String, String, String, [String])
-- FIXME: What escaping should we be doing on these strings? -- FIXME: What escaping should we be doing on these strings?
markdownDefn :: (String, String) -> String markdownDefn :: (String, String) -> String