diff options
| author | David Roundy <droundy@darcs.net> | 2007-11-11 01:56:29 +0100 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-11-11 01:56:29 +0100 |
| commit | 970ea52bb7d2379390b3acdb03a8e2fa2e923ccb (patch) | |
| tree | 004bac35e23c75ad0e5bdff4b0f65a1c076644c4 /XMonad/Config/Arossato.hs | |
| parent | 3e6325d478daa289c2247cc317f1e9ac87fbc7aa (diff) | |
| download | XMonadContrib-970ea52bb7d2379390b3acdb03a8e2fa2e923ccb.tar.gz XMonadContrib-970ea52bb7d2379390b3acdb03a8e2fa2e923ccb.tar.xz XMonadContrib-970ea52bb7d2379390b3acdb03a8e2fa2e923ccb.zip | |
changes to work with XConfig of kind * -> *.
darcs-hash:20071111005629-72aca-19e9e88bd2c31a9d5a3bbccbb9a569a8cd8fd2bc.gz
Diffstat (limited to 'XMonad/Config/Arossato.hs')
| -rw-r--r-- | XMonad/Config/Arossato.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs index 5885734..ccb0096 100644 --- a/XMonad/Config/Arossato.hs +++ b/XMonad/Config/Arossato.hs @@ -1,3 +1,4 @@ +{-# OPTIONS_GHC -fno-warn-missing-signatures #-} ----------------------------------------------------------------------------- -- | -- Module : XMonad.Config.Arossato @@ -52,7 +53,7 @@ myTabConfig = defaultTConf { -- -- Key bindings: -- I want to remove some of the default key bindings, such as those to exit XMonad -defaultKeys :: XConfig -> M.Map (KeyMask, KeySym) (X ()) +defaultKeys :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ()) defaultKeys x = M.fromList $ -- launching and killing programs [ ((modMask x .|. shiftMask, xK_Return), spawn "xterm") -- %! Launch an xterm @@ -105,7 +106,7 @@ defaultKeys x = M.fromList $ ++ mykeys x -- These are my personal key bindings -mykeys :: XConfig -> [((KeyMask, KeySym), (X ()))] +mykeys :: XConfig Layout -> [((KeyMask, KeySym), (X ()))] mykeys x = [ ((modMask x , xK_F12 ), xmonadPrompt myXPConfig ) , ((modMask x , xK_F3 ), shellPrompt myXPConfig ) @@ -126,7 +127,6 @@ mykeys x = ] -arossatoConfig :: XConfig arossatoConfig = defaultConfig { borderWidth = 1 , workspaces = map show [1 .. 9 :: Int] |