1
我该怎么做?我尝试以下方法,但它给了我一个错误说我的括号不匹配等。我甚至不知道该功能项是正确的使用Xmonad和自定义键来启动一个函数?
main = xmonad defaultConfig
{ terminal = "terminator"
, modMask = mod4Mask
, borderWidth = 3
, layoutHook = myLayout
, keys = inskeys
}
inskeys :: XConfig l -> [((KeyMask, KeySym), X())]
inskeys [email protected](XConfig {modMask = modm}) =
[ ((mod1Mask, xK_F2 ), saveCurrentWorkspace) ]
getLayout :: X (Layout Window)
getLayout = gets $ W.layout . W.workspace . W.current . windowset
myLayout = tiled ||| Mirror tiled ||| Full
where
tiled = spacing 5 $ Tall nmaster delta ratio
nmaster = 1
ratio = 1/2
delta = 3/100
saveCurrentWorkspace :: X()
saveCurrentWorkspace = do
Layout x <- getLayout
liftIO $ writeFile "currentLayout" (show x)