diff options
author | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-05 22:01:28 +0200 |
---|---|---|
committer | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-05 22:01:28 +0200 |
commit | a2ceae3cf6f302de2420f072238a29c9fbe8d974 (patch) | |
tree | bdd6ec53b679432c8a88a1cb60e4bc437b86a3dd /Submap.hs | |
parent | bea7c7116f233a785e4c96a1d577ca2797fe70bf (diff) | |
download | XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.gz XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.xz XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.zip |
Docstring parser for generating xmonad build configs with default settings for extensions
darcs-hash:20070905200128-bd4fb-ff90db3eb7ebce6ea75956f19ebc6c35d36c08d4.gz
Diffstat (limited to 'Submap.hs')
-rw-r--r-- | Submap.hs | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -43,6 +43,14 @@ anyModifier will not work, because that is a special value passed to XGrabKey() and not an actual modifier. -} +-- %import XMonadContrib.Submap +-- %keybind , ((modMask, xK_a), submap . M.fromList $ +-- %keybind [ ((0, xK_n), spawn "mpc next") +-- %keybind , ((0, xK_p), spawn "mpc prev") +-- %keybind , ((0, xK_z), spawn "mpc random") +-- %keybind , ((0, xK_space), spawn "mpc toggle") +-- %keybind ]) + submap :: M.Map (KeyMask, KeySym) (X ()) -> X () submap keys = do XConf { theRoot = root, display = d } <- ask |