xmonad-contrib-0.13: Third party extensions for xmonad

Copyright | (c) 2007 Valery V. Vorotyntsev
License | BSD3-style (see LICENSE)
Safe Haskell | None
Language | Haskell98

XMonad.Util.CustomKeys

Contents

- Usage

Description

Customized key bindings.

See also XMonad.Util.EZConfig in xmonad-contrib.

Synopsis

- customKeys :: (XConfig Layout -> [(KeyMask, KeySym)]) -> (XConfig Layout -> [((KeyMask, KeySym), X ())]) -> XConfig Layout -> Map (KeyMask, KeySym) (X ())
- customKeysFrom :: XConfig l -> (XConfig Layout -> [(KeyMask, KeySym)]) -> (XConfig Layout -> [((KeyMask, KeySym), X ())]) -> XConfig Layout -> Map (KeyMask, KeySym) (X ())

# Usage

In `~/.xmonad/xmonad.hs` add:

    import XMonad.Util.CustomKeys

Set key bindings with `customKeys`:

    main = xmonad def { keys = customKeys delkeys inskeys }
        where
          delkeys :: XConfig l -> [(KeyMask, KeySym)]
          delkeys XConfig {modMask = modm} =
              [ (modm .|. shiftMask, xK_Return) -- > terminal
              , (modm .|. shiftMask, xK_c)      -- > close the focused window
              ]
              ++
              [ (modm .|. m, k) | m <- [0, shiftMask], k <- [xK_w, xK_e, xK_r] ]

          inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
          inskeys conf@(XConfig {modMask = modm}) =
              [ ((mod1Mask,             xK_F2  ), spawn $ terminal conf) -- mod1-f2 %! Run a terminal emulator
              , ((modm,                 xK_Delete), kill) -- %! Close the focused window
              , ((modm .|. controlMask, xK_F11 ), spawn "xscreensaver-command -lock")
              , ((mod1Mask,             xK_Down), spawn "amixer set Master 1-")
              , ((mod1Mask,             xK_Up  ), spawn "amixer set Master 1+")
              ]

customKeys #

Arguments

:: (XConfig Layout -> [(KeyMask, KeySym)]) | shortcuts to delete
-> (XConfig Layout -> [((KeyMask, KeySym), X ())]) | key bindings to insert
-> XConfig Layout |
-> Map (KeyMask, KeySym) (X ()) |

Customize `def` -- delete needless shortcuts and insert those you will use.

customKeysFrom #

Arguments

:: XConfig l | original configuration
-> (XConfig Layout -> [(KeyMask, KeySym)]) | shortcuts to delete
-> (XConfig Layout -> [((KeyMask, KeySym), X ())]) | key bindings to insert
-> XConfig Layout |
-> Map (KeyMask, KeySym) (X ()) |

General variant of `customKeys`: customize key bindings of third-party configuration.