X-dark/config_files
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

current version of xmonad.hs

Browse source
This commit is contained in:
Cedric Girard 2012-12-05 13:18:30 +01:00
parent 648d361572
commit 2924175780
1 changed files with 27 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
xmonad/xmonad.hs
View file

@ -1,33 +1,40 @@
import XMonad import XMonad
import System.Exit
import Data.List import Data.List
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks import System.Exit
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO import System.IO
import XMonad.Layout
import XMonad.Layout.Grid
import XMonad.Layout.SimpleFloat
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.PerWorkspace
import XMonad.Layout.Spacing
import XMonad.Actions.GridSelect
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
import XMonad.Actions.GridSelect
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.SetWMName import XMonad.Hooks.SetWMName
import qualified XMonad.StackSet as W import XMonad.Layout
import qualified Data.Map as M import XMonad.Layout.Grid
import XMonad.Layout.NoBorders
import XMonad.Layout.PerWorkspace
import XMonad.Layout.SimpleFloat
import XMonad.Layout.Spacing
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Man import XMonad.Prompt.Man
import XMonad.Prompt.Shell import XMonad.Prompt.Shell
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Util.Run(spawnPipe)
import qualified Data.Map as M
import qualified XMonad.StackSet as W
-- The preferred terminal program, which is used in a binding below and by -- The preferred terminal program, which is used in a binding below and by
-- certain contrib modules. -- certain contrib modules.
-- --
myTerminal = "urxvt -e bash" myTerminal = "urxvtc -e bash"
-- Width of the window border in pixels. -- Width of the window border in pixels.
-- --
@ -182,16 +189,16 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Mouse bindings: default actions bound to mouse events -- Mouse bindings: default actions bound to mouse events
-- --
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $ myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList
-- mod-button1, Set the window to floating mode and move by dragging -- mod-button1, Set the window to floating mode and move by dragging
[ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w)) [ ((modMask, button1), \w -> focus w >> mouseMoveWindow w)
-- mod-button2, Raise the window to the top of the stack -- mod-button2, Raise the window to the top of the stack
, ((modMask, button2), (\w -> focus w >> windows W.swapMaster)) , ((modMask, button2), \w -> focus w >> windows W.swapMaster)
-- mod-button3, Set the window to floating mode and resize by dragging -- mod-button3, Set the window to floating mode and resize by dragging
, ((modMask, button3), (\w -> focus w >> mouseResizeWindow w)) , ((modMask, button3), \w -> focus w >> mouseResizeWindow w)
-- you may also bind events to the mouse scroll wheel (button4 and button5) -- you may also bind events to the mouse scroll wheel (button4 and button5)
] ]
@ -208,7 +215,7 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
-- which denotes layout choice. -- which denotes layout choice.
-- --
myLayout = spacing 3 $ avoidStruts $ myLayout = spacing 3 $ avoidStruts $
tiled ||| Mirror tiled ||| Full ||| Grid ||| simpleFloat tiled ||| Mirror tiled ||| smartBorders Full ||| Grid ||| simpleFloat
where where
-- default tiling algorithm partitions the screen into two panes -- default tiling algorithm partitions the screen into two panes
tiled = Tall nmaster delta ratio tiled = Tall nmaster delta ratio