From b09eacbae6d94f294050a7eb0d29a96d5a163180 Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Wed, 24 Sep 2008 06:49:46 +0200 Subject: add XMonad.Config.Azerty darcs-hash:20080924044946-78224-2db16d2bd81ac1419418c56360079b168ccd7226.gz --- XMonad/Config/Azerty.hs | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 XMonad/Config/Azerty.hs (limited to 'XMonad/Config') diff --git a/XMonad/Config/Azerty.hs b/XMonad/Config/Azerty.hs new file mode 100644 index 0000000..06e987e --- /dev/null +++ b/XMonad/Config/Azerty.hs @@ -0,0 +1,46 @@ +{-# OPTIONS_GHC -fno-warn-missing-signatures #-} + +----------------------------------------------------------------------------- +-- | +-- Module : XMonad.Config.Azerty +-- Copyright : (c) Devin Mullins +-- License : BSD +-- +-- Maintainer : Devin Mullins +-- +-- This module fixes some of the keybindings for the francophone among you who +-- use an AZERTY keyboard layout. Config stolen from TeXitoi's config on the +-- wiki. + +module XMonad.Config.Azerty ( + -- * Usage + -- $usage + azertyConfig, azertyKeys + ) where + +import XMonad +import qualified XMonad.StackSet as W + +import qualified Data.Map as M + +-- $usage +-- To use this module, start with the following @~\/.xmonad\/xmonad.hs@: +-- +-- > import XMonad +-- > import XMonad.Config.Azerty +-- > +-- > main = xmonad azertyConfig +-- +-- If you prefer, an azertyKeys function is provided which you can use as so: +-- +-- > import qualified Data.Map as M +-- > main = xmonad someConfig { keys = \c -> azertyKeys c `M.union` keys someConfig c } + +azertyConfig = defaultConfig { keys = \c -> azertyKeys c `M.union` keys defaultConfig c } + +azertyKeys conf@(XConfig {modMask = modm}) = M.fromList $ + [((modm, xK_semicolon), sendMessage (IncMasterN (-1)))] + ++ + [((m .|. modm, k), windows $ f i) + | (i, k) <- zip (workspaces conf) [0x26,0xe9,0x22,0x27,0x28,0x2d,0xe8,0x5f,0xe7,0xe0], + (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] -- cgit v1.2.3