twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.VisualSubmap: Fix example

Browse Source
This commit is contained in:
Tony Zorman 2023-01-11 16:50:09 +01:00
parent 840d740366
commit e85f0151b2
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Actions/Submap.hs
View File

@ -76,17 +76,17 @@ submap = submapDefault (return ())
-- > -- >
-- > gotoLayout :: [(String, X ())] -- for use with EZConfig -- > gotoLayout :: [(String, X ())] -- for use with EZConfig
-- > gotoLayout = -- assumes you have a layout named "Tall" and one named "Full". -- > 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_t, "Tall", switchToLayout "Tall") -- "M-l t" switches to "Tall"
-- > , (xK_r, "Full", switchToLayout "Full") -- "M-l r" switches to "full" -- > , (xK_r, "Full", switchToLayout "Full") -- "M-l r" switches to "full"
-- > ]] -- > ])]
-- --
-- One could alternatively also write @gotoLayout@ as -- 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_t), subName "Tall" $ switchToLayout "Tall")
-- > , ((0, xK_r), subName "Full" $ switchToLayout "Full") -- > , ((0, xK_r), subName "Full" $ switchToLayout "Full")
-- > ]] -- > ])]
visualSubmap :: WindowConfig -- ^ The config for the spawned window. visualSubmap :: WindowConfig -- ^ The config for the spawned window.
-> M.Map (KeyMask, KeySym) (String, X ()) -> M.Map (KeyMask, KeySym) (String, X ())
-- ^ A map @keybinding -> (description, action)@. -- ^ A map @keybinding -> (description, action)@.