[xmonad] Re: darcs patch: U.EZConfig: Correct additionalKeysP M2-M5 values

[Wirt Wolff]

> hehe, this foolish interface won't allow birdtrack code it thinks
> means I'm top posting. So add this.

Since the parser only runs the conversion on chars in "12345"
use !! for concise clarity. Considered using  2^(n+2) or shiftL,
or crazy ugly overkill like

>   return $ fromMaybe (modMask c) (mbMod (read [n]))
> where mbMod i =
>   lookup i $ zip [1..] [mod1Mask,mod2Mask,mod3Mask,mod4Mask,mod5Mask]

... but figured this is appropriate use of the much maligned (!!).

More context:

> parseModifier :: XConfig l -> ReadP KeyMask
> parseModifier c =  (string "M-" >> return (modMask c))
>                +++ (string "C-" >> return controlMask)
>                +++ (string "S-" >> return shiftMask)
>                +++ do char 'M'
>                       n <- satisfy (`elem` ['1'..'5'])
>                       char '-'
>                       return $ f n -- f converts

Also added couple of minor style changes unrelated to the Mn issue.

regards,

--
wmw