如何調(diào)用這函數(shù)?

sw2wolf

import Text.Regex.Posix

guessKeys line = concat $ intersperse "-" (modifiers ++ [map toLower key])
    where modifiers = map (!!1) (line =~ "(mod|shift|control)Mask")
          (_, _, _, [key]) = line =~ "xK_(\\w+)" :: (String, String, String, [String])

對正則表達式不熟悉, 參數(shù)line不知道應(yīng)該是什么樣?

MMMIX

原帖由 sw2wolf 于 2009-6-4 13:59 發(fā)表
對正則表達式不熟悉, 參數(shù)line不知道應(yīng)該是什么樣?

line 就是 XMonad/Config.hs 中那些包含 %! 的行，把 -- 后的部分去掉，然后把前后的空白字符去掉的結(jié)果。

sw2wolf

我這樣試不對:

"((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)" =~ "(mod|shift|control)Mask"

<interactive>:1:0:
    No instance for (Text.Regex.Base.RegexLike.RegexContext
                       Regex [Char] target)
      arising from a use of `=~' at <interactive>:1:0-96
    Possible fix:
      add an instance declaration for
      (Text.Regex.Base.RegexLike.RegexContext Regex [Char] target)
    In the expression:
          "((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)"
        =~
          "(mod|shift|control)Mask"
    In the definition of `it':
        it = "((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)"
           =~
             "(mod|shift|control)Mask"

MMMIX

原帖由 sw2wolf 于 2009-6-5 08:04 發(fā)表
我這樣試不對:

"((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)" =~ "(mod|shift|control)Mask"

這么試：
> let line = ...
> (line =~ "regex") :: (String, String, String, [String])
> (line =~ "regex") :: [[String]]

class RegexContext 有好多 instances, 你給 (=~) 的返回值指定不同的類型，它就會調(diào)用不同 instance 中的 match 實現(xiàn)。