diff options
Diffstat (limited to 'src/Internal')
| -rw-r--r-- | src/Internal/Keys.hs | 2 | ||||
| -rw-r--r-- | src/Internal/Layout.hs | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index 75c70a3..09d0cc8 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -1,6 +1,7 @@ {-# LANGUAGE RankNTypes #-} module Internal.Keys where +import XMonad.Hooks.ManageDocks import XMonad.Layout.MosaicAlt import Graphics.X11.ExtraTypes.XorgDefault import System.Process @@ -159,6 +160,7 @@ newKeys markContext = , ((modm .|. mod1Mask, xK_a), runXPlus markContext config (withScreen W.greedyView 0)) , ((modm .|. mod1Mask, xK_o), runXPlus markContext config (withScreen W.greedyView 1)) , ((modm .|. mod1Mask, xK_e), runXPlus markContext config (withScreen W.greedyView 2)) + , ((modm, xK_b), sendMessage ToggleStruts) -- Buttons programmed on my mouse. , ((shiftMask, xK_F1), click >> (withFocused $ windows . W.sink)) diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs index eb33a5e..2b66f06 100644 --- a/src/Internal/Layout.hs +++ b/src/Internal/Layout.hs @@ -26,7 +26,7 @@ myLayout = ModifiedLayout (Zoomable False 0.05 0.05) $ ModifiedLayout (Flippable False) $ ModifiedLayout (HFlippable False) $ - spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True $ avoidStruts $ + spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True $ spiral (6/7) ||| ModifyDescription TallDescriptionModifier (Tall 1 (3/100) (1/2)) ||| ModifyDescription ThreeColDescMod (ThreeCol 1 (3/100) (1/2)) ||| |