mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
X.A.VisualSubmap: Fix example
This commit is contained in:
parent
840d740366
commit
e85f0151b2
@ -76,17 +76,17 @@ submap = submapDefault (return ())
|
||||
-- >
|
||||
-- > gotoLayout :: [(String, X ())] -- for use with EZConfig
|
||||
-- > gotoLayout = -- assumes you have a layout named "Tall" and one named "Full".
|
||||
-- > ["M-l", visualSubmap def $ Map.fromList $ map (\(k, s, a) -> ((0, k), (s, a)))
|
||||
-- > [("M-l", visualSubmap def $ Map.fromList $ map (\(k, s, a) -> ((0, k), (s, a)))
|
||||
-- > [ (xK_t, "Tall", switchToLayout "Tall") -- "M-l t" switches to "Tall"
|
||||
-- > , (xK_r, "Full", switchToLayout "Full") -- "M-l r" switches to "full"
|
||||
-- > ]]
|
||||
-- > ])]
|
||||
--
|
||||
-- One could alternatively also write @gotoLayout@ as
|
||||
--
|
||||
-- > gotoLayout = ["M-l", visualSubmap def $ Map.fromList $
|
||||
-- > gotoLayout = [("M-l", visualSubmap def $ Map.fromList $
|
||||
-- > [ ((0, xK_t), subName "Tall" $ switchToLayout "Tall")
|
||||
-- > , ((0, xK_r), subName "Full" $ switchToLayout "Full")
|
||||
-- > ]]
|
||||
-- > ])]
|
||||
visualSubmap :: WindowConfig -- ^ The config for the spawned window.
|
||||
-> M.Map (KeyMask, KeySym) (String, X ())
|
||||
-- ^ A map @keybinding -> (description, action)@.
|
||||
|
Loading…
x
Reference in New Issue
Block a user